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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 354 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.