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 | CHMRBNP1.m | Mon Nov 5 16:45:21 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMRBNP1.m | Mon Nov 5 17:51:09 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 386 |
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 | CHMRBNP ;C VA/AEB;PRI NT OF BENE DEMPGRAPH IC DATA;02 /02/95 10 :23 AM | |
2 | ;;1.0 | |
3 | ;;DEV0128 93-08 YJK Mar 2014 | |
4 | ;;DEV0128 93-08 YJK Aug 2015 | |
5 | QUEUE W @I OF,"BENEFI CIARY DEMO GRAPHIC DA TA" | |
6 | ;PRINTS T O A VMS FI LE | |
7 | ;S IOP="Q ",%ZIS="Q" W !! D ^% ZIS S ION= $E(ION,1,1 1)_"/W" S CHFIO=ION | |
8 | ;S IOP="Q ",%ZIS="Q" W !! D ^% ZIS S ION= $E(ION,1,1 1) S CHFIO =ION | |
9 | ;S ZTRTN= "CALC^CHMR BNR",ZTIO= "",ZTSAVE( "CHFIO")=" ",ZTSAVE(" CHSTAT")=" " | |
10 | ;D ^%ZTLO AD S IOP=0 D HOME^%Z IS K CHSTA T Q | |
11 | K ^TMP($J ) D CALC | |
12 | Q | |
13 | ; | |
14 | CALC ;ST - POINTER TO DIC(5 F ILE | |
15 | ;GRP - A GE GROUP D ESIGNATOR | |
16 | Q:'$D(^CH MZHOLD("SB _STATE_RES TART_VALUE ")) | |
17 | S DOLJ=^C HMZHOLD("S B_STATE_RE START_VALU E") Q:DOLJ ="" | |
18 | S ST=0 | |
19 | A1 S ST=$O (^CHMZHOLD (DOLJ,"SB- STATE",ST) ) G:'ST QU E S GRP=0 | |
20 | A2 S GRP=$ O(^CHMZHOL D(DOLJ,"SB -STATE",ST ,GRP)) G:' GRP A1 | |
21 | G:'$D(^CH MZHOLD(DOL J,"SB-STAT E",ST,GRP) ) A2 | |
22 | I $D(^CHM ZHOLD(DOLJ ,"SB-STATE ",ST,GRP," F")) D FEM ALE | |
23 | I $D(^CHM ZHOLD(DOLJ ,"SB-STATE ",ST,GRP," M")) D MAL E | |
24 | G A2 | |
25 | END Q | |
26 | QUE ;S IOP ="Q;"_CHFI O,%ZIS="Q" D ^%ZIS G :POP END K ZTIO | |
27 | ;S ZTRTN= "PRINT^CHM RBNR",ZTDT H=$H,ZTSAV E("^TMP($J ,")="" | |
28 | ;D ^%ZTLO AD Q | |
29 | ;D PRINT Q ;USE TO PRINT TO THE SCREEN | |
30 | D PRINTF Q ;USE TO PRINT TO A TAB DELI MITED FILE | |
31 | Q | |
32 | FEMALE I ' $D(^CHMZHO LD(DOLJ,"S B-STATE",S T,GRP,"F") ) Q | |
33 | S REC=^CH MZHOLD(DOL J,"SB-STAT E",ST,GRP, "F") | |
34 | S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3) | |
35 | S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6) | |
36 | S OHICT=$ P(REC,"^", 7) | |
37 | ;SET UP S EX/STATE D ATA | |
38 | I '$D(^TM P($J,"F",S T)) S ^TMP ($J,"F",ST )="0^0^0^0 ^0^0^0^0" | |
39 | S $P(^TMP ($J,"F",ST ),"^",GRP) =$P(^TMP($ J,"F",ST), "^",GRP)+E ACNT | |
40 | S $P(^TMP ($J,"F",ST ),"^",6)=$ P(^TMP($J, "F",ST),"^ ",6)+CITIF LG | |
41 | S $P(^TMP ($J,"F",ST ),"^",7)=$ P(^TMP($J, "F",ST),"^ ",7)+OHIFL G | |
42 | S $P(^TMP ($J,"F",ST ),"^",8)=$ P(^TMP($J, "F",ST),"^ ",8)+NOCLM | |
43 | ;SET UP O HI TOTALS | |
44 | I '$D(^TM P($J,"CLAI MS","OHI", "F")) S ^T MP($J,"CLA IMS","OHI" ,"F")="0^0 ^0^0^0" | |
45 | S $P(^TMP ($J,"CLAIM S","OHI"," F"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","F" ),U,GRP)+O HICT | |
46 | ;SET UP C ITI CLAIMS | |
47 | I '$D(^TM P($J,"CLAI MS","CITI" ,"F")) S ^ TMP($J,"CL AIMS","CIT I","F")="0 ^0^0^0^0" | |
48 | S $P(^TMP ($J,"CLAIM S","CITI", "F"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," F"),U,GRP) +CITICT | |
49 | ;SET UP T OTALS | |
50 | I '$D(^TM P($J,"CLAI MS","TOTAL ","F")) S ^TMP($J,"C LAIMS","TO TAL","F")= "0^0^0^0^0 " | |
51 | S $P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)+CLMCNT | |
52 | Q | |
53 | ; | |
54 | MALE I '$D (^CHMZHOLD (DOLJ,"SB- STATE",ST, GRP,"M")) Q | |
55 | S REC=^CH MZHOLD(DOL J,"SB-STAT E",ST,GRP, "M") | |
56 | S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3) | |
57 | S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6) | |
58 | S OHICT=$ P(REC,"^", 7) | |
59 | ;SET UP S EX/STATE D ATA | |
60 | I '$D(^TM P($J,"M",S T)) S ^TMP ($J,"M",ST )="0^0^0^0 ^0^0^0^0" | |
61 | S $P(^TMP ($J,"M",ST ),"^",GRP) =$P(^TMP($ J,"M",ST), "^",GRP)+E ACNT | |
62 | S $P(^TMP ($J,"M",ST ),"^",6)=$ P(^TMP($J, "M",ST),"^ ",6)+CITIF LG | |
63 | S $P(^TMP ($J,"M",ST ),"^",7)=$ P(^TMP($J, "M",ST),"^ ",7)+OHIFL G | |
64 | S $P(^TMP ($J,"M",ST ),"^",8)=$ P(^TMP($J, "M",ST),"^ ",8)+NOCLM | |
65 | ;SET UP O HI TOTALS | |
66 | I '$D(^TM P($J,"CLAI MS","OHI", "M")) S ^T MP($J,"CLA IMS","OHI" ,"M")="0^0 ^0^0^0" | |
67 | S $P(^TMP ($J,"CLAIM S","OHI"," M"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","M" ),U,GRP)+O HICT | |
68 | ;SET UP C ITI CLAIMS | |
69 | I '$D(^TM P($J,"CLAI MS","CITI" ,"M")) S ^ TMP($J,"CL AIMS","CIT I","M")="0 ^0^0^0^0" | |
70 | S $P(^TMP ($J,"CLAIM S","CITI", "M"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," M"),U,GRP) +CITICT | |
71 | ;SET UP T OTALS | |
72 | I '$D(^TM P($J,"CLAI MS","TOTAL ","M")) S ^TMP($J,"C LAIMS","TO TAL","M")= "0^0^0^0^0 " | |
73 | S $P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)+CLMCNT | |
74 | Q | |
75 | ;PRINT BY STATE/SEX | |
76 | 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 | |
77 | S:M<10 M= 0_M S:H<10 H=0_M S T IME=H_M S SEX="E",CT =0 | |
78 | P1 S SEX=$ O(^TMP($J, SEX)) G:SE X="" CLAIM S S ST=0 D STHEAD | |
79 | S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0 | |
80 | P2 S ST=$O (^TMP($J,S EX,ST)) I 'ST D TOTA LS G P1 | |
81 | I '$D(^TM P($J,SEX,S T)) G P2 | |
82 | S REC=^TM P($J,SEX,S T) | |
83 | S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4) | |
84 | S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7),G8 =$P(REC,U, 8) | |
85 | S GST=G1+ G2+G3+G4+G 5 | |
86 | S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T | |
87 | S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8 | |
88 | G:'$D(^DI C(5,ST,0)) P2 S STPN T=$P(^DIC( 5,ST,0),U, 1) | |
89 | 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 | |
90 | G P2 | |
91 | 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 | |
92 | CLAIMS D C LMHEAD F S EXCHK="F", "M" D CLMH D1 S TYPE= "" D CL1 W !! | |
93 | G PEND | |
94 | CL1 S TYPE =$O(^TMP($ J,"CLAIMS" ,TYPE)) Q: TYPE="" S SEX="" | |
95 | S (GST)=0 | |
96 | CL2 S SEX= $O(^TMP($J ,"CLAIMS", TYPE,SEX)) G:SEX="" CL1 | |
97 | I SEX'=SE XCHK G CL2 | |
98 | I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2 | |
99 | S REC=^TM P($J,"CLAI MS",TYPE,S EX) | |
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) | |
102 | S GST=G1+ G2+G3+G4+G 5 | |
103 | S PTYPE=$ S(TYPE="CI TI":"CITI CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ") | |
104 | W !?2,PTY PE,?19,G1, ?29,G2,?39 ,G3,?49,G4 ,?59,G5,?6 9,GST | |
105 | G CL2 | |
106 | STHEAD W @ IOF,!,DUZ, ?33,"HEALT H ADMINIST RATION CEN TER",?71," Page: ",PG S PG=PG+1 | |
107 | S TITLE=" BENEFICIAR Y STATISTI CS FY99" | |
108 | S TAB=((7 1-$L(TITLE ))/2)+6 W !,TIME,?TA B,TITLE,!? 34,DATE | |
109 | S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES BY STATE" | |
110 | S TAB=((7 1-$L(TITLE ))/2)+6 W !!,?TAB,TI TLE | |
111 | I SEX="F" W !,?7,"F EMALES" | |
112 | I SEX="M" W !,?7,"M ALES" | |
113 | 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" | |
114 | Q | |
115 | CLMHEAD W @IOF,!,DUZ ,?33,"HEAL TH ADMINIS TRATION CE NTER",?71, "Page: ",P G S PG=PG+ 1 | |
116 | S TITLE=" CLAIM BREA KOUT BY AG E GROUP" | |
117 | S TAB=((7 1-$L(TITLE ))/2)+6 W !!!,?TAB,T ITLE,!! | |
118 | Q | |
119 | CLMHD1 I S EXCHK="F" W !,?7,"FE MALES" | |
120 | I SEXCHK= "M" W !,?7 ,"MALES" | |
121 | 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" | |
122 | Q | |
123 | PEND K G1, G2,G3,G4,G 5,G6,G7,G8 ,G1T,G2T,G 3T,G4T,G5T ,G6T,G7T,G 8T,TITLE,T AB | |
124 | K SEXCHK, PG,GST,TYP E,ST,REC | |
125 | Q | |
126 | PRINTF ;S PIO="VA554 5::PW_WPCO RP:[BIGDIS K]SB_DEMO_ CY97.DAT" S T=$C(9) ;DEV012893 -08 YJK Ma r 2014 | |
127 | ;O PIO C PIO:"D" O PIO:"NWV" ;DEV012893 -08 YJK Ma r 2014 | |
128 | S T=$C(9) ;DEV012893 -08 YJK Ma r 2014 | |
129 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV012893 -08 YJK Ma r 2014 | |
130 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DEV012893 -08 YJK Au g 2015 | |
131 | S FILE="S B_DEMO_CY9 7.DAT" ;DEV012893 -08 YJK Ma r 2014 | |
132 | S PIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILE ;DEV012893 -08 YJK Ma r 2014 | |
133 | I UCI'="H AC" S PIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILE ;DEV01 2893-08 YJ K Mar 2014 | |
134 | S X=$ZF(- 1,"DELETE "_PIO_";*" ) ;DEV012893 -08 YJK Ma r 2014 | |
135 | I '$$OPEN FIWR^CHTFL IB9(.PIO," PIO") Q ;DEV012893 -08 YJK Ma r 2014 | |
136 | S Y=DT X ^DD("DD") S DATE=Y,P G=1,X=$P($ H,",",2),H =X\3600,M= X#3600\60 | |
137 | S:M<10 M= 0_M S:H<10 H=0_M S T IME=H_M S SEX="E",CT =0 | |
138 | P1F S SEX= $O(^TMP($J ,SEX)) G:S EX="" CLAI MF S ST=0 D SFHEAD | |
139 | S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0 | |
140 | P2F S ST=$ O(^TMP($J, SEX,ST)) I 'ST D TOT ALF G P1F | |
141 | I '$D(^TM P($J,SEX,S T)) G P2F | |
142 | S REC=^TM P($J,SEX,S T) | |
143 | S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4) | |
144 | S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7),G8 =$P(REC,U, 8) | |
145 | S GST=G1+ G2+G3+G4+G 5 | |
146 | S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T | |
147 | S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8 | |
148 | G:'$D(^DI C(5,ST,0)) P2 S STPN T=$P(^DIC( 5,ST,0),U, 1) | |
149 | 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 | |
150 | G P2F | |
151 | 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 | |
152 | CLAIMF D C LMHF F SEX CHK="F","M " D CLMHD1 F S TYPE=" " D CL1F U PIO U PIO W !! | |
153 | G PFEND | |
154 | CL1F S TYP E=$O(^TMP( $J,"CLAIMS ",TYPE)) Q :TYPE="" S SEX="" | |
155 | S (GST)=0 | |
156 | CL2F S SEX =$O(^TMP($ J,"CLAIMS" ,TYPE,SEX) ) G:SEX="" CL1F | |
157 | I SEX'=SE XCHK G CL2 F | |
158 | I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2 F | |
159 | S REC=^TM P($J,"CLAI MS",TYPE,S EX) | |
160 | S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4) | |
161 | S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7) | |
162 | S GST=G1+ G2+G3+G4+G 5 | |
163 | S PTYPE=$ S(TYPE="CI TI":"CITI CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ") | |
164 | U PIO W ! ,PTYPE_T_G 1_T_G2_T_G 3_T_G4_T_G 5_T_GST | |
165 | G CL2F | |
166 | SFHEAD U P IO W !," " _T_"HEALTH ADMINISTR ATION CENT ER" | |
167 | S TITLE=" BENEFICIAR Y STATISTI CS FY99" | |
168 | S TAB=((7 1-$L(TITLE ))/2)+6 U PIO W !," "_T_TITLE_ T_T_T_T_T_ T_T_DATE | |
169 | S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES BY STATE" | |
170 | S TAB=((7 1-$L(TITLE ))/2)+6 U PIO W !!," "_T_TITLE | |
171 | I SEX="F" U PIO W ! ," "_T_"FE MALES" | |
172 | I SEX="M" U PIO W ! ," "_T_"MA LES" | |
173 | 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" | |
174 | Q | |
175 | CLMHF U PI O W !," "_ T_"HEALTH ADMINISTRA TION CENTE R" | |
176 | S TITLE=" CLAIM BREA KOUT BY AG E GROUP" | |
177 | S TAB=((7 1-$L(TITLE ))/2)+6 U PIO W !!!, " "_T_TITL E,!! | |
178 | Q | |
179 | CLMHD1F I SEXCHK="F" U PIO W ! ," "_T_"FE MALES" | |
180 | I SEXCHK= "M" U PIO W !," "_T_ "MALES" | |
181 | U PIO W ! ,"CLAIM TY PE"_T_"UND ER 18"_T_" 19-25"_T_" 26-40"_T_" 41-64"_T_" OVER 64"_T _"TOTALS" | |
182 | Q | |
183 | PFEND K G1 ,G2,G3,G4, G5,G6,G7,G 8,G1T,G2T, G3T,G4T,G5 T,G6T,G7T, G8T,TITLE, TAB | |
184 | K SEXCHK, PG,GST,TYP E,ST,REC | |
185 | ;C PIO ;DEV012893 -08 YJK Ma r 2014 | |
186 | D CLOSEF^ CHTFLIB9(P IO,"PIO") ;DEV012893 -08 YJK Ma r 2014 | |
187 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV012893 -08 YJK Au g 2014 | |
188 | S FOLDER= "/FS3BIG" ;DEV012893 -08 YJK Ma r 2014 | |
189 | D FTPFILE ^CHTFLIB9( PIO," DNS fs3. DNS ",FOLDER," PUT") ;DEV012893 -08 YJK Ma r 2014 | |
190 | Q | |
191 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
192 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y | |
193 | Q | |
194 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.