Produced by Araxis Merge on 11/9/2018 12:34:07 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 | CHMRDMOP.m | Mon Nov 5 16:42:48 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMRDMOP.m | Mon Nov 5 17:51:12 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 450 |
Changed | 1 | 2 |
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 | CHMRDMOP ; CVA/AEB;PR INT OF BEN E DEMPGRAP HIC DATA;0 2/02/95 1 0:23 AM | |
2 | ;;1.0 | |
3 | ; | |
4 | CALC ;ST - POINTER TO DIC(5 F ILE | |
5 | ;GRP - A GE GROUP D ESIGNATOR | |
6 | S ST=0 | |
7 | A1 S ST=$O (^CHMZHOLD ($J,"STATE ",ST)) G:' ST END S G RP=0 | |
8 | A2 S GRP=$ O(^CHMZHOL D($J,"STAT E",ST,GRP) ) G:'GRP A 1 | |
9 | G:'$D(^CH MZHOLD($J, "STATE",ST ,GRP)) A2 | |
10 | I $D(^CHM ZHOLD($J," STATE",ST, GRP,"F")) D FEMALE | |
11 | I $D(^CHM ZHOLD($J," STATE",ST, GRP,"M")) D MALE | |
12 | G A2 | |
13 | END ; | |
14 | D PRINTF ; FOR OUTP UT TO FILE | |
15 | ;D PRINT ; FOR OUTP UT TO HARD COPY | |
16 | K REC,EAC NT,OHIFLG, ST,GRP,CIT IFLG,NOCLM ,^TMP($J) | |
17 | K SEX,ST | |
18 | Q | |
19 | FEMALE I ' $D(^CHMZHO LD($J,"STA TE",ST,GRP ,"F")) Q | |
20 | S REC=^CH MZHOLD($J, "STATE",ST ,GRP,"F") | |
21 | S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3) | |
22 | S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6) | |
23 | S OHICT=$ P(REC,"^", 7) | |
24 | ;SET UP S EX/STATE D ATA | |
25 | I '$D(^TM P($J,"F",S T)) S ^TMP ($J,"F",ST )="0^0^0^0 ^0^0^0^0" | |
26 | S $P(^TMP ($J,"F",ST ),"^",GRP) =$P(^TMP($ J,"F",ST), "^",GRP)+E ACNT | |
27 | S $P(^TMP ($J,"F",ST ),"^",6)=$ P(^TMP($J, "F",ST),"^ ",6)+CITIF LG | |
28 | S $P(^TMP ($J,"F",ST ),"^",7)=$ P(^TMP($J, "F",ST),"^ ",7)+OHIFL G | |
29 | S $P(^TMP ($J,"F",ST ),"^",8)=$ P(^TMP($J, "F",ST),"^ ",8)+NOCLM | |
30 | ;SET UP B OTH SEX/ST ATE DATA | |
31 | I '$D(^TM P($J,"TOT" ,ST)) S ^T MP($J,"TOT ",ST)="0^0 ^0^0^0^0^0 ^0" | |
32 | S $P(^TMP ($J,"TOT", ST),"^",GR P)=$P(^TMP ($J,"TOT", ST),"^",GR P)+EACNT | |
33 | S $P(^TMP ($J,"TOT", ST),"^",6) =$P(^TMP($ J,"TOT",ST ),"^",6)+C ITIFLG | |
34 | S $P(^TMP ($J,"TOT", ST),"^",7) =$P(^TMP($ J,"TOT",ST ),"^",7)+O HIFLG | |
35 | S $P(^TMP ($J,"TOT", ST),"^",8) =$P(^TMP($ J,"TOT",ST ),"^",8)+N OCLM | |
36 | ;SET UP O HI TOTALS | |
37 | I '$D(^TM P($J,"CLAI MS","OHI", "F")) S ^T MP($J,"CLA IMS","OHI" ,"F")="0^0 ^0^0^0" | |
38 | S $P(^TMP ($J,"CLAIM S","OHI"," F"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","F" ),U,GRP)+O HICT | |
39 | ;SET UP O HI TOTALS FOR BOTH S EXES | |
40 | I '$D(^TM P($J,"CLAI MS","OHI", "TOT")) S ^TMP($J,"C LAIMS","OH I","TOT")= "0^0^0^0^0 " | |
41 | S $P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)=$P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)+OHICT | |
42 | ;SET UP C ITI CLAIMS | |
43 | I '$D(^TM P($J,"CLAI MS","CITI" ,"F")) S ^ TMP($J,"CL AIMS","CIT I","F")="0 ^0^0^0^0" | |
44 | S $P(^TMP ($J,"CLAIM S","CITI", "F"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," F"),U,GRP) +CITICT | |
45 | ;SET UP C ITI CLAIMS FOR BOTH SEXES | |
46 | I '$D(^TM P($J,"CLAI MS","CITI" ,"TOT")) S ^TMP($J," CLAIMS","C ITI","TOT" )="0^0^0^0 ^0" | |
47 | S $P(^TMP ($J,"CLAIM S","CITI", "TOT"),U,G RP)=$P(^TM P($J,"CLAI MS","CITI" ,"TOT"),U, GRP)+CITIC T | |
48 | ;SET UP T OTALS | |
49 | I '$D(^TM P($J,"CLAI MS","TOTAL ","F")) S ^TMP($J,"C LAIMS","TO TAL","F")= "0^0^0^0^0 " | |
50 | S $P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)+CLMCNT | |
51 | ;SET UP T OTALS FOR BOTH SEXES | |
52 | I '$D(^TM P($J,"CLAI MS","TOTAL ","TOT")) S ^TMP($J, "CLAIMS"," TOTAL","TO T")="0^0^0 ^0^0" | |
53 | S $P(^TMP ($J,"CLAIM S","TOTAL" ,"TOT"),U, GRP)=$P(^T MP($J,"CLA IMS","TOTA L","TOT"), U,GRP)+CLM CNT | |
54 | Q | |
55 | ; | |
56 | MALE I '$D (^CHMZHOLD ($J,"STATE ",ST,GRP," M")) Q | |
57 | S REC=^CH MZHOLD($J, "STATE",ST ,GRP,"M") | |
58 | S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3) | |
59 | S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6) | |
60 | S OHICT=$ P(REC,"^", 7) | |
61 | ;SET UP S EX/STATE D ATA | |
62 | I '$D(^TM P($J,"M",S T)) S ^TMP ($J,"M",ST )="0^0^0^0 ^0^0^0^0" | |
63 | S $P(^TMP ($J,"M",ST ),"^",GRP) =$P(^TMP($ J,"M",ST), "^",GRP)+E ACNT | |
64 | S $P(^TMP ($J,"M",ST ),"^",6)=$ P(^TMP($J, "M",ST),"^ ",6)+CITIF LG | |
65 | S $P(^TMP ($J,"M",ST ),"^",7)=$ P(^TMP($J, "M",ST),"^ ",7)+OHIFL G | |
66 | S $P(^TMP ($J,"M",ST ),"^",8)=$ P(^TMP($J, "M",ST),"^ ",8)+NOCLM | |
67 | ;SET UP S EX/STATE D ATA FOR BO TH SEXES | |
68 | I '$D(^TM P($J,"TOT" ,ST)) S ^T MP($J,"TOT ",ST)="0^0 ^0^0^0^0^0 ^0" | |
69 | S $P(^TMP ($J,"TOT", ST),"^",GR P)=$P(^TMP ($J,"TOT", ST),"^",GR P)+EACNT | |
70 | S $P(^TMP ($J,"TOT", ST),"^",6) =$P(^TMP($ J,"TOT",ST ),"^",6)+C ITIFLG | |
71 | S $P(^TMP ($J,"TOT", ST),"^",7) =$P(^TMP($ J,"TOT",ST ),"^",7)+O HIFLG | |
72 | S $P(^TMP ($J,"TOT", ST),"^",8) =$P(^TMP($ J,"TOT",ST ),"^",8)+N OCLM | |
73 | ;SET UP O HI TOTALS | |
74 | I '$D(^TM P($J,"CLAI MS","OHI", "M")) S ^T MP($J,"CLA IMS","OHI" ,"M")="0^0 ^0^0^0" | |
75 | S $P(^TMP ($J,"CLAIM S","OHI"," M"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","M" ),U,GRP)+O HICT | |
76 | ;SET UP O HI TOTALS FOR BOTH S EXES | |
77 | I '$D(^TM P($J,"CLAI MS","OHI", "TOT")) S ^TMP($J,"C LAIMS","OH I","TOT")= "0^0^0^0^0 " | |
78 | S $P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)=$P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)+OHICT | |
79 | ;SET UP C ITI CLAIMS | |
80 | I '$D(^TM P($J,"CLAI MS","CITI" ,"M")) S ^ TMP($J,"CL AIMS","CIT I","M")="0 ^0^0^0^0" | |
81 | S $P(^TMP ($J,"CLAIM S","CITI", "M"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," M"),U,GRP) +CITICT | |
82 | ;SET UP C ITI CLAIMS FOR BOTH SEXES | |
83 | I '$D(^TM P($J,"CLAI MS","CITI" ,"TOT")) S ^TMP($J," CLAIMS","C ITI","TOT" )="0^0^0^0 ^0" | |
84 | S $P(^TMP ($J,"CLAIM S","CITI", "TOT"),U,G RP)=$P(^TM P($J,"CLAI MS","CITI" ,"TOT"),U, GRP)+CITIC T | |
85 | ;SET UP T OTALS | |
86 | I '$D(^TM P($J,"CLAI MS","TOTAL ","M")) S ^TMP($J,"C LAIMS","TO TAL","M")= "0^0^0^0^0 " | |
87 | S $P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)+CLMCNT | |
88 | ;SET UP T OTALS FOR BOTH SEXES | |
89 | I '$D(^TM P($J,"CLAI MS","TOTAL ","TOT")) S ^TMP($J, "CLAIMS"," TOTAL","TO T")="0^0^0 ^0^0" | |
90 | S $P(^TMP ($J,"CLAIM S","TOTAL" ,"TOT"),U, GRP)=$P(^T MP($J,"CLA IMS","TOTA L","TOT"), U,GRP)+CLM CNT | |
91 | Q | |
92 | ;PRINT BY STATE/SEX | |
93 | PRINT S Y= DT X ^DD(" DD") S DAT E=Y,PG=1,X =$P($H,"," ,2),H=X\36 00,M=X#360 0\60 | |
94 | S:M<10 M= 0_M S:H<10 H=0_M S T IME=H_M S SEX="E",CT =0 | |
95 | P1 S SEX=$ O(^TMP($J, SEX)) G:SE X="" CLAIM S S ST=0 D STHEAD | |
96 | S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0 | |
97 | P2 S ST=$O (^TMP($J,S EX,ST)) I 'ST D TOTA LS G P1 | |
98 | I '$D(^TM P($J,SEX,S T)) G P2 | |
99 | S REC=^TM P($J,SEX,S T) | |
100 | S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4) | |
101 | S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7),G8 =$P(REC,U, 8) | |
102 | S GST=G1+ G2+G3+G4+G 5 | |
103 | S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T | |
104 | S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8 | |
105 | G:'$D(^DI C(5,ST,0)) P2 S STPN T=$P(^DIC( 5,ST,0),U, 1) | |
106 | W !?2,STP NT,?19,G1, ?29,G2,?39 ,G3,?49,G4 ,?59,G5,?6 9,GST,?76, "|",?82,G6 ,?92,G7,?1 04,G8 | |
107 | ;U PIO W !?2,STPNT, ?19,G1,?29 ,G2,?39,G3 ,?49,G4,?5 9,G5,?69,G ST,?76,"|" ,?82,G6,?9 2,G7,?104, G8 | |
108 | G P2 | |
109 | TOTALS W ! ?76,"|",!? 76,"|",!," TOTALS",?1 9,G1T,?29, G2T,?39,G3 T,?49,G4T, ?59,G5T,?6 9,GSTT,?76 ,"|",?82,G 6T,?92,G7T ,?104,G8T Q | |
110 | ;U PIO W !?76,"|",! ?76,"|",!, "TOTALS",? 19,G1T,?29 ,G2T,?39,G 3T,?49,G4T ,?59,G5T,? 69,GSTT,?7 6,"|",?82, G6T,?92,G7 T,?104,G8T Q | |
111 | CLAIMS ;D CLMHEAD F SEXCHK="F" ,"M" D CLM HD1 S TYPE ="" D CL1 U PIO U PI O W !! | |
112 | D CLMHEAD F SEXCHK= "F","M" D CLMHD1 S T YPE="" D C L1 W !! | |
113 | G PEND | |
114 | CL1 S TYPE =$O(^TMP($ J,"CLAIMS" ,TYPE)) Q: TYPE="" S SEX="" | |
115 | S (GST)=0 | |
116 | CL2 S SEX= $O(^TMP($J ,"CLAIMS", TYPE,SEX)) G:SEX="" CL1 | |
117 | I SEX'=SE XCHK G CL2 | |
118 | I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2 | |
119 | S REC=^TM P($J,"CLAI MS",TYPE,S EX) | |
120 | S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4) | |
121 | S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7) | |
122 | S GST=G1+ G2+G3+G4+G 5 | |
123 | S PTYPE=$ S(TYPE="CI TI":"CITI CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ") | |
124 | ;U PIO W !?2,PTYPE, ?19,G1,?29 ,G2,?39,G3 ,?49,G4,?5 9,G5,?69,G ST | |
125 | W !?2,PTY PE,?19,G1, ?29,G2,?39 ,G3,?49,G4 ,?59,G5,?6 9,GST | |
126 | G CL2 | |
127 | STHEAD S T ITL="HEALT H ADMINIST RATION CEN TER" | |
128 | S TAB=(13 2-$L(TITL) )/2 | |
129 | W @IOF,!, DUZ,?TAB,T ITL,?120," Page: ",PG S PG=PG+1 | |
130 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
131 | S PEDATE= $$FMTE^XLF DT(EDDATE, "5D") | |
132 | S TITLE=" BENEFICIAR Y STATISTI CS FROM "_ PSDATE_" T O "_PEDATE | |
133 | S TAB=((1 30-$L(TITL E))/2)+6 W !,TIME,?T AB,TITLE | |
134 | S CHNOTE= DATE_" CLAIM COUN TS HAVE BE EN COMMENT ED OFF" | |
135 | S TAB=((1 30-$L(CHNO TE))/2)+6 | |
136 | W !?TAB,C HNOTE | |
137 | S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES BY STATE" | |
138 | S TAB=((1 30-$L(TITL E))/2)+6 W !!,?TAB,T ITLE | |
139 | I SEX="F" W !,?7,"F EMALES" | |
140 | I SEX="M" W !,?7,"M ALES" | |
141 | W !,?1,"S TATE",?16, "UNDER 18" ,?26,"19-2 5",?36,"26 -40",?46," 41-64",?56 ,"OVER 64" ,?80,"CITI ",?90,"OHI ",?100,"NO CLAIMS" | |
142 | Q | |
143 | CLMHEAD S TITL="HEAL TH ADMINIS TRATION CE NTER" | |
144 | S TAB=(13 2-$L(TITL) )/2 | |
145 | W @IOF,!, DUZ,?TAB,T ITL,?120," Page: ",PG S PG=PG+1 | |
146 | S TITLE=" CLAIM BREA KOUT BY AG E GROUP" | |
147 | S TAB=((1 30-$L(TITL E))/2)+6 W !!!,?TAB, TITLE,! | |
148 | S CHNOTE= "CLAIM COU NTS HAVE B EEN COMMEN TED OFF" | |
149 | S TAB=((1 30-$L(CHNO TE))/2)+6 | |
150 | W TIME,?T AB,CHNOTE, ! | |
151 | Q | |
152 | CLMHD1 I S EXCHK="F" W !,?7,"FE MALES" | |
153 | I SEXCHK= "M" W !,?7 ,"MALES" | |
154 | W !,?1,"C LAIM TYPE" ,?16,"UNDE R 18",?26, "19-25",?3 6,"26-40", ?46,"41-64 ",?56,"OVE R 64",?66, "TOTALS" | |
155 | Q | |
156 | PEND K G1, G2,G3,G4,G 5,G6,G7,G8 ,G1T,G2T,G 3T,G4T,G5T ,G6T,G7T,G 8T,TITLE,T AB | |
157 | K SEXCHK, PG,GST,TYP E,ST,REC | |
158 | ;C PIO Q | |
159 | Q | |
160 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
161 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y | |
162 | Q | |
163 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
164 | ; | |
165 | PRINTF ;S PIO="HACFS 3"" DNS coledec We lcome1!"": :D:[FS3BIG ]CHV_DEMO. DAT" | |
166 | ;S T=$C(9 ) | |
167 | ;O PIO C PIO:"D" O PIO:"NWV" | |
168 | S PIO="HA C_HFS$:[SC R.TEMP_FIL ES]CHV_DEM O.DAT" S T =$C(9) ; FOR LIVE O NLY | |
169 | ;S PIO="H AC_HFS$:[D SMMANAG.CH AMPVA]CHV_ DEMO.DAT" S T=$C(9) ;FOR DEV ONLY | |
170 | O PIO:"NW S" | |
171 | ; CHANGED ABOVE LIN ES TO USE SCRATCH$ A ND "NWS" - CJM 10/11 /2005 | |
172 | S Y=DT X ^DD("DD") S DATE=Y,P G=1,X=$P($ H,",",2),H =X\3600,M= X#3600\60 | |
173 | S:M<10 M= 0_M S:H<10 H=0_M S T IME=H_M S SEX="E",CT =0 | |
174 | P1F S SEX= $O(^TMP($J ,SEX)) G:S EX="" CLAI MF S ST=0 D SFHEAD | |
175 | S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0 | |
176 | P2F S ST=$ O(^TMP($J, SEX,ST)) I 'ST D TOT ALF G P1F | |
177 | I '$D(^TM P($J,SEX,S T)) G P2F | |
178 | S REC=^TM P($J,SEX,S T) | |
179 | S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4) | |
180 | S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7),G8 =$P(REC,U, 8) | |
181 | S GST=G1+ G2+G3+G4+G 5 | |
182 | S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T | |
183 | S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8 | |
184 | G:'$D(^DI C(5,ST,0)) P2F S STP NT=$P(^DIC (5,ST,0),U ,1) | |
185 | U PIO W ! ,STPNT_T_G 1_T_G2_T_G 3_T_G4_T_G 5_T_GST_T_ "|"_T_G6_T _G7_T_G8 | |
186 | G P2F | |
187 | TOTALF U P IO W !,"TO TALS"_T_G1 T_T_G2T_T_ G3T_T_G4T_ T_G5T_T_GS TT_T_"|"_T _G6T_T_G7T _T_G8T Q | |
188 | CLAIMF D C LMHF F SEX CHK="F","M ","TOT" D CLMHD1F S TYPE="" D CL1F U PIO W !! | |
189 | G PFEND | |
190 | CL1F S TYP E=$O(^TMP( $J,"CLAIMS ",TYPE)) Q :TYPE="" S SEX="" | |
191 | S (GST)=0 | |
192 | CL2F S SEX =$O(^TMP($ J,"CLAIMS" ,TYPE,SEX) ) G:SEX="" CL1F | |
193 | I SEX'=SE XCHK G CL2 F | |
194 | I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2 F | |
195 | S REC=^TM P($J,"CLAI MS",TYPE,S EX) | |
196 | S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4) | |
197 | S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7) | |
198 | S GST=G1+ G2+G3+G4+G 5 | |
199 | S PTYPE=$ S(TYPE="CI TI":"CITI CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ") | |
200 | U PIO W ! ,PTYPE_T_G 1_T_G2_T_G 3_T_G4_T_G 5_T_GST | |
201 | G CL2F | |
202 | SFHEAD U P IO W !," " _T_"HEALTH ADMINISTR ATION CENT ER" | |
203 | S TITLE=" BENEFICIAR Y STATISTI CS FY01" | |
204 | S TAB=((7 1-$L(TITLE ))/2)+6 U PIO W !," "_T_TITLE_ T_T_T_T_T_ T_T_DATE | |
205 | S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES BY STATE" | |
206 | S TAB=((7 1-$L(TITLE ))/2)+6 U PIO W !!," "_T_TITLE | |
207 | I SEX="F" U PIO W ! ," "_T_"FE MALES" | |
208 | I SEX="M" U PIO W ! ," "_T_"MA LES" | |
209 | I SEX="TO T" U PIO W !," "_T_" MALES & FE MALES" | |
210 | U PIO W ! ,"STATE"_T _"UNDER 18 "_T_"19-25 "_T_"26-40 "_T_"41-64 "_T_"OVER 64"_T_"TOT AL"_T_T_"C ITI"_T_"OH I"_T_"NO C LAIMS" | |
211 | Q | |
212 | CLMHF U PI O W !," "_ T_"HEALTH ADMINISTRA TION CENTE R" | |
213 | S TITLE=" CLAIM BREA KOUT BY AG E GROUP" | |
214 | S TAB=((7 1-$L(TITLE ))/2)+6 U PIO W !!!, " "_T_TITL E,!! | |
215 | Q | |
216 | CLMHD1F I SEXCHK="F" U PIO W ! ," "_T_"FE MALES" | |
217 | I SEXCHK= "M" U PIO W !," "_T_ "MALES" | |
218 | I SEXCHK= "TOT" U PI O W !," "_ T_"TOTAL M ALES/FEMAL ES" | |
219 | U PIO W ! ,"CLAIM TY PE"_T_"UND ER 18"_T_" 19-25"_T_" 26-40"_T_" 41-64"_T_" OVER 64"_T _"TOTALS" | |
220 | Q | |
221 | PFEND K G1 ,G2,G3,G4, G5,G6,G7,G 8,G1T,G2T, G3T,G4T,G5 T,G6T,G7T, G8T,TITLE, TAB | |
222 | K SEXCHK, PG,GST,TYP E,ST,REC | |
223 | C PIO | |
224 | ;S X=$&ZL IB.%SUBMIT ("HAC_HFS$ :[SCR.0000 00]DEMO_CO PY.COM") | |
225 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ SCR.TEMP_F ILES]DEMO_ COPY.COM/P ARAM=("_PI O_")") ; tlh 101405 | |
226 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.