229. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:09 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

229.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENP2.m Mon Nov 5 16:39:21 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENP2.m Mon Nov 5 17:51:52 2018 UTC

229.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 354
Changed 2 4
Inserted 0 0
Removed 0 0

229.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

229.4 Active regular expressions

No regular expressions were active.

229.5 Comparison detail

  1   CHMVENP2 ; HAC/SKD -  GENERATES  CHAMPVA VE NDOR DATA  REQUEST RE PORTS
  2    ;This inf ormation i s needed b y J.D. Fai rey, Offic e the Dire ctor, to p erform con tractual o bligations
  3    ;
  4    ;Report 2 :
  5    ;input:   ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"B ENE",CHFY, CHZIP,CHVE NI,CHDFN,C HBFN)  ;ge nerated in  ^CHMVENP1
  6    ;output:  FS3BIG\CHA MPVA_VENDO R_REPORT2. TXT
  7    ;DEV01289 3 DPT RMV  DECNET
  8    ;
  9   START2 ;
  10    S CHCITIF G="C"
  11    D GETDATA 2
  12    ;S FILE2= "HACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT2_"_UCI_ ".TXT"
  13    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 12893 DPT   
  14    S FILE2=" CHAMPVA_VE NDOR_REPOR T2_"_UCI_" .TXT"
  15    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]"  ; DEV012893  DPT 
  16    I 'HAC S  FOLDR="HAC _HFS$:[DSM MANAG]"  ; DEV012893  DPT 
  17    S FILE2=F OLDER_FILE 2 ;DEV0128 93 DPT 
  18    S FLDR="/ FS3BIG" ;D EV012893 D PT 
  19    O FILE2:" NWS":5
  20    U FILE2 D  WREPORT2^ CHMVENP2
  21    C FILE2
  22    D FTPFILE ^CHTFLIB9( FILE2," DNS     fs3. DNS             ",FLDR,"PU T")    ;DEV012893  DPT
  23    
  24    Q
  25    ;
  26   GETDATA2 Q :'$D(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"BENE") )
  27    K ^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,"REPORT2" )
  28    S CHFY=0
  29    F  S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY)) Q:'C HFY  D
  30    .S CHZIP= ""
  31    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"BENE" ,CHFY,CHZI P)) Q:CHZI P=""  D
  32    ..S CHVEN I=0
  33    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI )) Q:'CHVE NI  D
  34    ...S (CHB ENECT,CHAG ETOT)=0
  35    ...S CHDF N=0
  36    ...F  S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI ,CHDFN)) Q :'CHDFN  D
  37    ....S CHB FN=0
  38    ....F  S  CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"BE NE",CHFY,C HZIP,CHVEN I,CHDFN,CH BFN)) Q:'C HBFN  D
  39    .....S (R EC,CHAGE,C HAAGEGP,CH SEX,CHREL, CHBENTY)=" "
  40    .....S (C HFSCT,CHMS CT,CHCHCT) =0
  41    .....S (C HBILLED,CH ALLOW,CHPA ID,CHNOAS, CHCS,CHOHI )=0
  42    .....S RE C=^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "BENE",CHF Y,CHZIP,CH VENI,CHDFN ,CHBFN) Q: REC=""
  43    .....S CH AGE=$P(REC ,U,1) 
  44    .....S CH AGEGP=$$GE TAGEGP(CHA GE)
  45    .....S CH SEX=$P(REC ,U,2) Q:CH SEX=""
  46    .....S CH REL=$P($G( ^AHCHVA(CH DFN,100,CH BFN,0)),U, 4) 
  47    .....S CH BENTY=$S(C HREL="C":" CH",CHSEX= "F"&(CHREL ="S"):"FS" ,CHSEX="F" &(CHREL="X S"):"FS",C HSEX="M"&( CHREL="S") :"MS",CHSE X="M"&(CHR EL="XS"):" MS",1:"UK" )
  48    .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT2",CHFY ,CHZIP,CHV ENI,CHBENT Y)=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T2",CHFY,C HZIP,CHVEN I,CHBENTY) )+1
  49    .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT2",CHFY ,CHZIP,CHV ENI,1,CHSE X,CHAGEGP) =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"REPORT2 ",CHFY,CHZ IP,CHVENI, 1,CHSEX,CH AGEGP))+1
  50    .....S CI =0,REC1=""
  51    .....F  S  CI=$O(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"BENE ",CHFY,CHZ IP,CHVENI, CHDFN,CHBF N,CI)) Q:' CI  D
  52    ......S R EC1=^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY,CHZIP, CHVENI,CHD FN,CHBFN,C I) Q:REC1= ""
  53    ......S C HBILLED=$P (REC1,U,3)
  54    ......S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,2,CHS EX,CHAGEGP ,"TBILLED" )=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 2",CHFY,CH ZIP,CHVENI ,2,CHSEX,C HAGEGP,"TB ILLED"))+C HBILLED
  55    ......S C HALLOW=$P( REC1,U,4)
  56    ......S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,3,CHS EX,CHAGEGP ,"TALLOW") =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"REPORT2 ",CHFY,CHZ IP,CHVENI, 3,CHSEX,CH AGEGP,"TAL LOW"))+CHA LLOW
  57    ......S C HPAID=$P(R EC1,U,5)
  58    ......S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,4,CHS EX,CHAGEGP ,"TPAID")= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,"REPORT2" ,CHFY,CHZI P,CHVENI,4 ,CHSEX,CHA GEGP,"TPAI D"))+CHPAI D
  59    ......S C HNOAS=$P(R EC1,U,6)
  60    ......S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,5,CHS EX,CHAGEGP ,"TNOAS")= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,"REPORT2" ,CHFY,CHZI P,CHVENI,5 ,CHSEX,CHA GEGP,"TNOA S"))+CHNOA S
  61    ......S C HCS=$P(REC 1,U,7)
  62    ......S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,6,CHS EX,CHAGEGP ,"TCS")=$G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT2",C HFY,CHZIP, CHVENI,6,C HSEX,CHAGE GP,"TCS")) +CHCS
  63    ......S C HOHI=$P(RE C1,U,8)
  64    ......S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,7,CHS EX,CHAGEGP ,"TOHI")=$ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT2", CHFY,CHZIP ,CHVENI,7, CHSEX,CHAG EGP,"TOHI" ))+CHOHI
  65    Q
  66    ;
  67   CMACCD(VI)  ;
  68    ;VI=VENDO R IEN
  69    NEW Z,ZJ
  70    S Z="",ZJ ="A"
  71    S ZJ=$O(^ CHMVEN(VI, 41,ZJ),-1)
  72    I ZJ S Z= $P($G(^CHM VEN(VI,41, ZJ,0)),U,4 )
  73    I $G(Z)=1  S Z="PHYS ICIAN"
  74    E  I $G(Z )=2 S Z="C LINICAL PS Y"
  75    E  S Z="A LL OTHERS"
  76    Q Z
  77    ;
  78   GETAGEGP(A G) 
  79    ;AG=BENE  AGE
  80    I AG>89 Q  9
  81    I AG>79 Q  8
  82    I AG>69 Q  7
  83    I AG>59 Q  6
  84    I AG>49 Q  5
  85    I AG>39 Q  4
  86    I AG>29 Q  3
  87    I AG>19 Q  2
  88    I AG>10 Q  1
  89    Q 0
  90    ;
  91   WREPORT2 ;
  92    ;INPUT: ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2")
  93    S CHRPT=" REPORT2"
  94    W !,"FY^Z IP^TIN^VEN DOR NAME^P L ADDRESS  1^PL ADDRE SS 2^PL CI TY^PL STAT E^PL ZIP^C MAC CODE^V ENDOR TYPE ^VENDOR SP EC^# FEMAL E SPOUSE^#  MALE SPOU SE^# CHILD REN^"
  95    W "TF10^T F19^TF29^T F39^TF49^T F59^TF69^T F79^TF89^T F90^TM10^T M19^TM29^T M39^TM49^T M59^TM69^T M79^TM89^T M90^"
  96    W "TBCF10 ^TBCF19^TB CF29^TBCF3 9^TBCF49^T BCF59^TBCF 69^TBCF79^ TBCF89^TBC F90^TBCM10 ^TBCM19^TB CM29^TBCM3 9^TBCM49^T BCM59^TBCM 69^TBCM79^ TBCM89^TBC M90^"
  97    W "TALF10 ^TALF19^TA LF29^TALF3 9^TALF49^T ALF59^TALF 69^TALF79^ TALF89^TAL F90^TALM10 ^TALM19^TA LM29^TALM3 9^TALM49^T ALM59^TALM 69^TALM79^ TALM89^TAL M90^"
  98    W "TPDF10 ^TPDF19^TP DF29^TPDF3 9^TPDF49^T PDF59^TPDF 69^TPDF79^ TPDF89^TPD F90^TPDM10 ^TPDM19^TP DM29^TPDM3 9^TPDM49^T PDM59^TPDM 69^TPDM79^ TPDM89^TPD M90^"
  99    W "TPDFNO A10^TPDFNO A19^TPDFNO A29^TPDFNO A39^TPDFNO A49^TPDFNO A59^TPDFNO A69^TPDFNO A79^TPDFNO A89^TPDFNO A90^TPDMNO A10^TPDMNO A19^TPDMNO A29^TPDMNO A39^TPDMNO A49^TPDMNO A59^TPDMNO A69^TPDMNO A79^TPDMNO A89^TPDMNO A90^"
  100    W "TCSF10 ^TCSF19^TC SF29^TCSF3 9^TCSF49^T CSF59^TCSF 69^TCSF79^ TCSF89^TCS F90^TCSM10 ^TCSM19^TC SM29^TCSM3 9^TCSM49^T CSM59^TCSM 69^TCSM79^ TCSM89^TCS M90^"
  101    W "TOHF10 ^TOHF19^TO HF29^TOHF3 9^TOHF49^T OHF59^TOHF 69^TOHF79^ TOHF89^TOH F90^TOHM10 ^TOHM19^TO HM29^TOHM3 9^TOHM49^T OHM59^TOHM 69^TOHM79^ TOHM89^TOH M90^"
  102    F CHFY=20 04,2005,20 06 D  
  103    .;D WTITL E^CHMVENP1 ,RPT2HEAD
  104    .S CHZIP= ""
  105    .F  S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T2",CHFY,C HZIP)) Q:C HZIP=""  D   
  106    ..S CHVEN I=0
  107    ..F  S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT2",CHFY ,CHZIP,CHV ENI)) Q:'C HVENI  D  
  108    ...S (CHT IN,CHVNAME ,CHPLAD1,C HPLAD2,CHP LCITY,CHPL ST,CHPLZIP ,CHCMACCD, CHVENTY,CH VENSP,WREC )=""
  109    ...S (CHF SCT,CHMSCT ,CHCHCT)=0
  110    ...S CHTI N=$P(^CHMV EN(CHVENI, 0),U,3) S  CHTIN=CHTI N_"-"_$P(^ CHMVEN(CHV ENI,0),U,2 3)
  111    ...S CHVN AME=$P($G( ^CHMVEN(CH VENI,0)),U ,1),CHVNAM E=$$TRIM^C HTFLIB($E( CHVNAME,1, 20))
  112    ...S CHPL AD1=$P($G( ^CHMVEN(CH VENI,2)),U ,1)
  113    ...S CHPL AD2=$P($G( ^CHMVEN(CH VENI,2)),U ,2)
  114    ...S CHPL CITY=$P($G (^CHMVEN(C HVENI,2)), U,3)
  115    ...S CHPL ST=$P($G(^ CHMVEN(CHV ENI,2)),U, 4) I $G(CH PLST) S CH PLST=$P($G (^DIC(5,CH PLST,0)),U ,2)
  116    ...S CHPL ZIP=$P($G( ^CHMVEN(CH VENI,2)),U ,5)
  117    ...S CHCM ACCD=$$CMA CCD(CHVENI )
  118    ...S CHVE NTY=$P($G( ^CHMVEN(CH VENI,1)),U ,7) I $G(C HVENTY) S  CHVENTY=$E ($P($G(^CH MDIC(74100 2.11,CHVEN TY,0)),U,2 ),1,15)
  119    ...S CHVE NSP=$P($G( ^CHMVEN(CH VENI,1)),U ,11) I $G( CHVENSP) S  CHVENSP=$ E($P($G(^C HMDIC(7410 02.26,CHVE NSP,0)),U, 1),1,15)
  120    ...S CHFS CT=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T2",CHFY,C HZIP,CHVEN I,"FS"))
  121    ...S CHMS CT=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T2",CHFY,C HZIP,CHVEN I,"MS"))
  122    ...S CHCH CT=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T2",CHFY,C HZIP,CHVEN I,"CH"))
  123    ...S WREC =CHFY_U_CH ZIP_U_CHTI N_U_CHVNAM E_U_$E(CHP LAD1,1,28) _U_$E(CHPL AD2,1,28)_ U_$E(CHPLC ITY,1,16)_ U_CHPLST
  124    ...S WREC =WREC_U_CH PLZIP_U_CH CMACCD_U_C HVENTY_U_C HVENSP_U_C HFSCT_U_CH MSCT_U_CHC HCT
  125    ...S ZZ=1  F CHSEX=" F","M" F Z Z1=0:1:9 S  WREC=WREC _U_$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T2",CHFY,C HZIP,CHVEN I,ZZ,CHSEX ,ZZ1))
  126    ...S ZZ=2  F CHSEX=" F","M" F Z Z1=0:1:9 S  WREC=WREC _U_$J($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,ZZ,CH SEX,ZZ1,"T BILLED")), 0,2)
  127    ...S ZZ=3  F CHSEX=" F","M" F Z Z1=0:1:9 S  WREC=WREC _U_$J($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,ZZ,CH SEX,ZZ1,"T ALLOW")),0 ,2)
  128    ...S ZZ=4  F CHSEX=" F","M" F Z Z1=0:1:9 S  WREC=WREC _U_$J($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,ZZ,CH SEX,ZZ1,"T PAID")),0, 2)
  129    ...S ZZ=5  F CHSEX=" F","M" F Z Z1=0:1:9 S  WREC=WREC _U_$J($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,ZZ,CH SEX,ZZ1,"T NOAS")),0, 2)
  130    ...S ZZ=6  F CHSEX=" F","M" F Z Z1=0:1:9 S  WREC=WREC _U_$J($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,ZZ,CH SEX,ZZ1,"T CS")),0,2)
  131    ...S ZZ=7  F CHSEX=" F","M" F Z Z1=0:1:9 S  WREC=WREC _U_$J($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT2",CHF Y,CHZIP,CH VENI,ZZ,CH SEX,ZZ1,"T OHI")),0,2 )
  132    ...W !,WR EC
  133    Q 
  134    ;
  135   RPT2HEAD ;
  136    W !
  137    ;W !,210, "Number of  unique fe male benes  by age",? 277,"Numbe r of uniqu e male ben es by age"
  138    ;W ?347," Total bill ed charges  for uniqu e females" ,?417,"Tot al billed  charges fo r unique m ales"
  139    ;W ?487," Total amou nt allowed  for uniqu e females" ,?557,"Tot al amount  allowed fo r unique m ales"
  140    ;W ?627," Total amou nt paid fo r unique f emales",?6 97,"Total  amount pai d for uniq ue males"
  141    ;
  142    W !,"FY", ?7,"ZIP",? 19,"TIN",? 30,"VENDOR  NAME",?52 ,"PL ADDRE SS 1",?82, "PL ADDRES S 2",?112, "PL CITY"
  143    W ?130,"P L STATE",? 140,"PL ZI P",?150,"V ENDOR TYPE ",?167,"VE NDOR SPEC" ,?182,"# F  SPOUSE",? 194,"# M S POUSE",?20 6,"# CHILD REN"
  144    W !,"--", ?7,"---",? 19,"---",? 30,"------ ----",?52, "--------- ---",?82," ---------- --",?112," --------"
  145    W ?130,"- ------",?1 40,"------ ",?150,"-- ---------" ,?167,"--- -------",? 182,"----- -----",?19 4,"------- ---",?206, "--------- -"
  146    W !
  147    ;
  148    ;W ?210," 0-10",217, "11-19",22 4,"20-29", 231,"30-39 ",238,"40- 49",245,"5 0-59",?252 ,"60-69",? 259,"70-79 ",?263,"80 -89",?270, "90+"
  149    ;W ?277," 0-10",284, "11-19",29 1,"20-29", 298,"30-39 ",305,"40- 49",312,"5 0-59",?319 ,"60-69",? 326,"70-79 ",?333,"80 -89",?340, "90+"
  150    ;W ?347," 0-10",354, "11-19",36 1,"20-29", 368,"30-39 ",375,"40- 49",382,"5 0-59",?389 ,"60-69",? 396,"70-79 ",?403,"80 -89",?410, "90+"
  151    ;W ?417," 0-10",424, "11-19",43 1,"20-29", 438,"30-39 ",445,"40- 49",452,"5 0-59",?459 ,"60-69",? 466,"70-79 ",?473,"80 -89",?480, "90+"
  152    ;W ?487," 0-10",494, "11-19",50 1,"20-29", 508,"30-39 ",515,"40- 49",522,"5 0-59",?529 ,"60-69",? 536,"70-79 ",?543,"80 -89",?550, "90+"
  153    ;W ?627," 0-10",634, "11-19",64 1,"20-29", 648,"30-39 ",655,"40- 49",662,"5 0-59",?669 ,"60-69",? 676,"70-79 ",?683,"80 -89",?690, "90+"
  154    Q
  155    ;
  156   INITTTL ;
  157    S STITLE1 ="Number o f unique " _$S(CHSEX= "F":"femal e",1:"male ")_" benes  treated b y age:"
  158    S STITLE2 ="Total bi lled charg es for uni que "_$S(C HSEX="F":" female",1: "male")_"  by age:"
  159    S STITLE3 ="Total am ount allow ed for uni que "_$S(C HSEX="F":" female",1: "male")_"  by age:"
  160    S STITLE4 ="Total am ount paid  for unique  "_$S(CHSE X="F":"fem ale",1:"ma le")_" by  age:"
  161    S STITLE5 ="Total am ount paid  for unique  "_$S(CHSE X="F":"fem ale",1:"ma le")_" by  age with n o Assignme nt of Bene fits:"
  162    S STITLE6 ="Total Co st Share f or unique  "_$S(CHSEX ="F":"fema le",1:"mal e")_" by a ge:"
  163    S STITLE7 ="Total OH I Payment  Amount for  unique "_ $S(CHSEX=" F":"female ",1:"male" )_" by age :"
  164    Q
  165    ;
  166   AGEGROUP(Z 1) ;
  167    ;Z1 = AGE  GROUP
  168    I Z1=0 Q  " 0-10:"
  169    I Z1=1 Q  "11-19:"
  170    I Z1=2 Q  "20-29:"
  171    I Z1=3 Q  "30-39:"
  172    I Z1=4 Q  "40-49:"
  173    I Z1=5 Q  "50-59:"
  174    I Z1=6 Q  "60-69:"
  175    I Z1=7 Q  "70-79:"
  176    I Z1=8 Q  "80-89:"
  177    I Z1=9 Q  "  90+:"
  178    ;
  179