Produced by Araxis Merge on 11/9/2018 12:33:50 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 | CHLCR79B.m | Mon Nov 5 16:39:00 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHLCR79B.m | Mon Nov 5 17:41:45 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 668 |
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 | CHLCR79B ; AHJ/DEN;MI LLIMAN BEN EFICIARY A ND CLAIMS REPORT TO FS3BIG | |
2 | ;V1.0 | |
3 | ; DEF0287 72 RFE 07/ 25/17 Cut lines to b e under 25 5 position s long | |
4 | ;Added cu tting envi ronment to 3 chars, otherwise the file n ames were too long - YG | |
5 | ;001 OLD ROUTINE NA ME WAS ZAL CR79B | |
6 | S U="^" | |
7 | ; RFE 07/ 25/17 DEF0 28772 Cut following line into 2 | |
8 | ;INPUT = ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ) ^CHMZHOL D($J,"MILL IMAN_SPONS OR") ^CHMZ HOLD($J,"M ILLIMAN_BE NE") ^CHMZ HOLD($J,"M ILLIMAN_OH I") ^CHMZH OLD($J,"MI LLIMAN_OPT _DX") ^CHM ZHOLD($J," MILLIMAN_O PT_PROC") | |
9 | ; ^CHM ZHOLD($J," MILLIMAN_I NP_DX") ^C HMZHOLD($J ,"MILLIMAN _INP_PROC" ) ^CHMZHOL D($J,"MILL IMAN_RX") FROM CHLC R79Z ;TLH 3/27/09 DE V006956 | |
10 | ;OUTPUT = FS3BIG BE NEFICIARY FILE | |
11 | B1 ; | |
12 | X ^%ZOSF( "UCI") S C HUCI=$E($P (Y,",",1), 1,3) ;F ilename is sue fix | |
13 | S PSDT=$$FMT E^XLFDT(ST DATE,"5D") | |
14 | S PSDT=$P(PS DT,"/",1)_ $P(PSDT,"/ ",2)_$P(PS DT,"/",3) | |
15 | S PEDT=$$FMT E^XLFDT(ED DATE,"5D") | |
16 | S PEDT=$P(PE DT,"/",1)_ $P(PEDT,"/ ",2)_$P(PE DT,"/",3) | |
17 | I CHUCI="HAC " S BFIO=" HAC_HFS$:[ SCR.TEMP_F ILES]MILLI MAN_BENE_" _PSDT_"to" _PEDT_".TX T" ;TLH 1 /20/09 | |
18 | I CHUCI="HAC " S SFIO=" HAC_HFS$:[ SCR.TEMP_F ILES]MILLI MAN_SPON_" _PSDT_"to" _PEDT_".TX T" ;TLH 3 /29/09 DEV 006956 | |
19 | I CHUCI="HAC " S OFIO=" HAC_HFS$:[ SCR.TEMP_F ILES]MILLI MAN_OHI_"_ PSDT_"to"_ PEDT_".TXT " ;TLH 3/ 29/09 DEV0 06956 | |
20 | I CHUCI'="HA C" S BFIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ CHUCI_"_MI LLIMAN_BEN E_"_PSDT_" to"_PEDT_" .TXT" ;TL H 1/20/09 | |
21 | I CHUCI'="HA C" S SFIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ CHUCI_"_MI LLIMAN_SPO N_"_PSDT_" to"_PEDT_" .TXT" ;TL H 3/29/09 DEV006956 | |
22 | I CHUCI'="HA C" S OFIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ CHUCI_"_MI LLIMAN_OHI _"_PSDT_"t o"_PEDT_". TXT" ;TLH 3/29/09 D EV006956 | |
23 | ;S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]MILLIMAN_ BENE_"_PSD T_"to"_PED T_".TXT" | |
24 | O BFIO O SFI O O OFIO C BFIO:"D" C SFIO:"D" C OFIO:"D " | |
25 | O BFIO:"NWS" O SFIO:"N WS" O OFIO :"NWS" | |
26 | S (SCNT,BCNT ,OCNT)=0 | |
27 | D SHEAD | |
28 | D BHEAD | |
29 | D OHEAD | |
30 | S NAME=0 | |
31 | S NUM="",SFL G=0,ODFN=0 | |
32 | B15 S NUM= $O(^CHMZHO LD($J,"JPN BENE",NUM) ) G:NUM="" SEND | |
33 | S DFN=0 | |
34 | B16 S DFN= $O(^CHMZHO LD($J,"JPN BENE",NUM, DFN)) G:DF N="" B15 | |
35 | I ODFN'=DFN S SFLG=1 | |
36 | S BFLG=0,BFN =0 | |
37 | B2 ; | |
38 | S BFN=$O(^CH MZHOLD($J, "JPNBENE", NUM,DFN,BF N)) G:BFN= "" B16 | |
39 | S BFLG=1 | |
40 | S ZNUM=0 | |
41 | B3 ; | |
42 | S ZNUM=$O(^C HMZHOLD($J ,"JPNBENE" ,NUM,DFN,B FN,ZNUM)) G:'ZNUM B2 | |
43 | ; | |
44 | B4 ; | |
45 | ;S DFN=$P(^C HMZHOLD($J ,"JPNBENE" ,NUM,DFN,B FN,ZNUM)," ^",1) | |
46 | S SPONSSN=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",2) | |
47 | S SPONEAR=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",3) | |
48 | S SPONPT=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",4) | |
49 | S SPONDOB=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",5) | |
50 | S SPONGEN=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",6) | |
51 | S SPONDOD=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",7) | |
52 | S SPONCOA=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",8) | |
53 | S SPONZIP=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",9) | |
54 | ; BFN=$P(^CH MZHOLD($J, "JPNBENE", NUM,DFN,BF N,ZNUM),"^ ",10) | |
55 | S BENSSN=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",11) | |
56 | S BENEAS=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",12) | |
57 | S BENDOB=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",13) | |
58 | S BENGEN=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",14) | |
59 | S BENREL=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",15) | |
60 | S BENCLDR=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",16) | |
61 | S BENHELP=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",17) | |
62 | S BENDOD=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",18) | |
63 | S BENCOA=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",19) | |
64 | S BENZIP=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",20) | |
65 | S BENSTAT=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",21) | |
66 | S BENAPP=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",22) | |
67 | S BENOHI=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",23) | |
68 | S BENELIG=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",24) | |
69 | S BENEND=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",25) | |
70 | S BENIREA=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",26) | |
71 | S BEGOHI=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",27) | |
72 | S ENDOHI=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",28) | |
73 | S SDATA=DFN_ "^"_SPONSS N_"^"_SPON EAR_"^"_SP ONPT_"^"_S PONDOB_"^" _SPONDOD_" ^"_SPONGEN _"^"_SPONZ IP_"^"_SPO NCOA | |
74 | I SFLG=1 D | |
75 | .U SFIO W !, SDATA | |
76 | .S SCNT=SCNT +1 | |
77 | .S SFLG=0,OD FN=DFN | |
78 | .Q | |
79 | S BDATA=DFN_ "^"_DFN_"- "_BFN_"^"_ BENSSN_"^" _BENDOB_"^ "_BENDOD_" ^"_BENGEN_ "^"_BENZIP _"^"_BENST AT_"^"_BEN COA_"^"_BE NREL_"^"_B ENCLDR_"^" _BENHELP_" ^"_BENAPP_ "^"_BENEAS _"^"_BENEL IG_"^"_BEN END_"^"_BE NIREA ;TL H DEV00768 3 changed "*" to a " -" | |
80 | I BFLG=1 D | |
81 | .U BFIO W !, BDATA | |
82 | .S BCNT=BCNT +1 | |
83 | .S BFLG=0 | |
84 | .Q | |
85 | S ODATA=D FN_"-"_BFN _"^"_BENOH I_"^"_BEGO HI_"^"_END OHI ;TLH DEV007683 changed "* " to a "-" | |
86 | U OFIO W !,ODATA | |
87 | S OCNT=OC NT+1 | |
88 | G B3 | |
89 | SHEAD ; WR ITES OUT S PONSOR HEA DER | |
90 | S PSDATE=$$F MTE^XLFDT( STDATE,"5D ") | |
91 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
92 | S TITLE="SPO NSOR DATA COLLECTED FROM "_PSD ATE_" TO " _PEDATE | |
93 | U SFIO W !!, TITLE | |
94 | S SHEAD="SPO N ID^SPON SSN^ELIG R EASON^P&T DATE^SPON DOB^SPON D OD^SPON GE ND^SPON ZI P^SPON COU NTRY" | |
95 | U SFIO W !!, SHEAD | |
96 | Q | |
97 | SEND; | |
98 | U SFIO W !!, "TOTAL SPO NSOR COUNT = ",SCN T | |
99 | U BFIO W !!, "TOTAL BEN EFICIARY C OUNT = ",B CNT | |
100 | U OFIO W !!, "TOTAL OHI COUNT = " ,OCNT | |
101 | C SFIO C BFI O C OFIO | |
102 | X ^%ZOSF( "UCI") S C HUCI=$E($P (Y,",",1), 1,3) ;File name issue fix | |
103 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _SFIO_")") | |
104 | H 30 | |
105 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _BFIO_")") | |
106 | H 30 | |
107 | I CHUCI="HAC " S X=$ZF( -1,"SUBMIT HAC_HFS$: [SCR.TEMP_ FILES]REC_ COPY.COM/P ARAM=("_OF IO_")") | |
108 | H 30 | |
109 | Q | |
110 | BHEAD ; WR ITES OUT B ENE HEADER | |
111 | S PSDATE=$$F MTE^XLFDT( STDATE,"5D ") | |
112 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
113 | S TITLE="BEN EFICIARY D ATA COLLEC TED FROM " _PSDATE_" TO "_PEDAT E | |
114 | U BFIO W !!, TITLE | |
115 | S BHEAD="SPO N ID^BENE ID^BENE SS N^BENE DOB ^BENE DOD^ BENE GEND^ BENE ZIP^B ENE STATE^ BENE COUNT RY^BENE RE LATION^CHI LD TYPE^HE LPLESS?^AP PLY DATE^E LIG STATUS ^ELIG STAR T^ELIG END ^REASON IN ELIG" | |
116 | U BFIO W !!, BHEAD | |
117 | Q | |
118 | OHEAD ;WR ITES OUT O HI HEADER | |
119 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
120 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
121 | S TITLE="BEN E OHI DATA COLLECTED FROM "_PS DATE_" TO "_PEDATE | |
122 | U OFIO W !!, TITLE | |
123 | S OHEAD="BEN E ID^OHI T YPE^OHI ST ART^OHI EN D" | |
124 | U OFIO W !!, OHEAD | |
125 | Q | |
126 | ;C LAIMS DATA COLLECTIO N FOR MILL IMAN REPOR T DEV00605 8 TLH 12/1 0/08 | |
127 | C1 X ^%ZOS F("UCI") S CHUCI=$E( $P(Y,",",1 ),1,3) ;Fi lename iss ue fix | |
128 | S PSDT=$$ FMTE^XLFDT (STDATE,"5 D") | |
129 | S PSDT=$P (PSDT,"/", 1)_$P(PSDT ,"/",2)_$P (PSDT,"/", 3) | |
130 | S PEDT=$$FMT E^XLFDT(ED DATE,"5D") | |
131 | S PEDT=$P(PE DT,"/",1)_ $P(PEDT,"/ ",2)_$P(PE DT,"/",3) | |
132 | I CHUCI=" HAC" S CFI O="HAC_HFS $:[SCR.TEM P_FILES]MI LLIMAN_CLA IMS_"_PSDT _"to"_PEDT _".TXT" | |
133 | I CHUCI=" HAC" S ODF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_OP T_DX_"_PSD T_"to"_PED T_".TXT" | |
134 | I CHUCI=" HAC" S OPF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_OP T_PROC_"_P SDT_"to"_P EDT_".TXT" | |
135 | I CHUCI=" HAC" S IDF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_IN P_DX_"_PSD T_"to"_PED T_".TXT" | |
136 | I CHUCI=" HAC" S IPF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_IN P_PROC_"_P SDT_"to"_P EDT_".TXT" | |
137 | I CHUCI=" HAC" S PFI O="HAC_HFS $:[SCR.TEM P_FILES]MI LLIMAN_PHA RM_"_PSDT_ "to"_PEDT_ ".TXT" | |
138 | I CHUCI=" HAC" S DND FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D EN_DX_"_PS DT_"to"_PE DT_".TXT" | |
139 | I CHUCI=" HAC" S DNP FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D EN_PROC_"_ PSDT_"to"_ PEDT_".TXT " | |
140 | I CHUCI=" HAC" S DMD FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D ME-DX_"_PS DT_"to"_PE DT_".TXT" | |
141 | I CHUCI=" HAC" S DMS FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D ME-SUPPLY_ "_PSDT_"to "_PEDT_".T XT" | |
142 | I CHUCI'= "HAC" S CF IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_CHUCI_" _MILLIMAN_ CLAIMS_"_P SDT_"to"_P EDT_".TXT" | |
143 | I CHUCI'= "HAC" S OD FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _OPT_DX_"_ PSDT_"to"_ PEDT_".TXT " | |
144 | I CHUCI'= "HAC" S OP FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _OPT_PROC_ "_PSDT_"to "_PEDT_".T XT" | |
145 | I CHUCI'= "HAC" S ID FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _INP_DX_"_ PSDT_"to"_ PEDT_".TXT " | |
146 | I CHUCI'= "HAC" S IP FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _INP_PROC_ "_PSDT_"to "_PEDT_".T XT" | |
147 | I CHUCI'= "HAC" S PF IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_CHUCI_" _MILLIMAN_ PHARM_"_PS DT_"to"_PE DT_".TXT" | |
148 | I CHUCI'= "HAC" S DN DFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DEN_DX_" _PSDT_"to" _PEDT_".TX T" | |
149 | I CHUCI'= "HAC" S DN PFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DEN_PROC _"_PSDT_"t o"_PEDT_". TXT" | |
150 | I CHUCI'= "HAC" S DM DFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DME-DX_" _PSDT_"to" _PEDT_".TX T" | |
151 | I CHUCI'= "HAC" S DM SFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DME-SUPP _"_PSDT_"t o"_PEDT_". TXT" ;File name issue fix | |
152 | O CFIO O ODFIO O OP FIO O IDFI O O IPFIO O PFIO O D NDFIO O DN PFIO O DMD FIO O DMSF IO | |
153 | C CFIO:"D " C ODFIO :"D" C OPF IO:"D" C I DFIO:"D" C IPFIO:"D" C PFIO:"D " C DNDFIO :"D" C DNP FIO:"D" C DMDFIO:"D" C DMSFIO: "D" | |
154 | O CFIO:"NWS" O ODFIO:" NWS" O OPF IO:"NWS" O IDFIO:"NW S" O IPFIO :"NWS" O P FIO:"NWS" O DNDFIO:" NWS" O DNP FIO:"NWS" O DMDFIO:" NWS" O DMS FIO:"NWS" | |
155 | S (CLMCNT,OD CNT,OPCNT, IDCNT,IPCN T,PCNT,DND CNT,DNPCNT ,DMDCNT,DM SCNT)=0 | |
156 | D CHEAD | |
157 | D ODHEAD | |
158 | D OPHEAD | |
159 | D IDHEAD | |
160 | D IPHEAD | |
161 | D PHEAD | |
162 | D DNDHEAD | |
163 | D DNPHEAD | |
164 | D DMDHEAD | |
165 | D DMSHEAD | |
166 | S DFN=0 | |
167 | C1A S DFN= $O(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN)) G:'DFN END 2 | |
168 | S BFN=0 | |
169 | C1B S BFN= $O(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N)) G:'BFN C1A | |
170 | S CLMCI=0 | |
171 | C2 S CLMCI=$O(^ CHMZHOLD($ J,"MILLIMA N_CLAIMS", DFN,BFN,CL MCI)) G:'C LMCI C1B | |
172 | S CLMNUM=$P( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI),"^", 1) | |
173 | S BSSN=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",2) | |
174 | S CLMCREDT=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",3) | |
175 | S TYPE=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",4) | |
176 | S CLMCMPDT=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",5) | |
177 | S STATUS=$P( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI),"^", 6) | |
178 | S SRVCDT=$P( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI),"^", 7) | |
179 | S DISDT=$P(^ CHMZHOLD($ J,"MILLIMA N_CLAIMS", DFN,BFN,CL MCI),"^",8 ) | |
180 | S DRG=$P(^CH MZHOLD($J, "MILLIMAN_ CLAIMS",DF N,BFN,CLMC I),"^",9) | |
181 | S INSTAYOUT= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",10) | |
182 | S VPCN=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",11 ) | |
183 | S VENTAXID=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",12) | |
184 | S POS=$P(^CH MZHOLD($J, "MILLIMAN_ CLAIMS",DF N,BFN,CLMC I),"^",13) | |
185 | S DESC=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",14 ) | |
186 | S TOTCHGPD=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",15) | |
187 | S TOTALLAMT= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",16) | |
188 | S TOTOHIPMT= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",17) | |
189 | S AMTBENEPD= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",18) | |
190 | S DEDMETIND= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",19) | |
191 | S CATMETIND= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",20) | |
192 | S AMTPAID=$P (^CHMZHOLD ($J,"MILLI MAN_CLAIMS ",DFN,BFN, CLMCI),"^" ,21) | |
193 | S ASSBENIND= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",22) | |
194 | S CTYP=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",23 ) | |
195 | ; RFE 07/25/ 17 DEF0287 72 Cut fol lowing lin e into 2 | |
196 | S CDAT A=CLMNUM_" ^"_DFN_"-" _BFN_"^"_C LMCREDT_"^ "_TYPE_"^" _CLMCMPDT_ "^"_STATUS _"^"_SRVCD T_"^"_DISD T_"^"_DRG_ "^"_INSTAY OUT_"^"_VP CN_"^"_VEN TAXID_"^"_ POS_"^"_DE SC_"^"_TOT CHGPD_"^" | |
197 | S CDAT A=CDATA_TO TALLAMT_"^ "_TOTOHIPM T_"^"_AMTB ENEPD_"^"_ DEDMETIND_ "^"_CATMET IND_"^"_AM TPAID | |
198 | S CDAT A=CDATA_"^ "_ASSBENIN D_"^"_CTYP ;TLH DEV 007683 cha nged "*" t o a "-" | |
199 | U CFIO W !,CDATA | |
200 | S CLMCNT= CLMCNT+1 | |
201 | S CHDES=" " | |
202 | C3 S CHDES =$O(^CHMZH OLD($J,"MI LLIMAN_CLA IMS",DFN,B FN,CLMCI,C HDES)) G:C HDES="" C2 | |
203 | I CHDES=" OPT-DX" S FIO2=ODFIO | |
204 | I CHDES=" OPT-PROC" S FIO2=OPF IO | |
205 | I CHDES=" INP-DX" S FIO2=IDFIO | |
206 | I CHDES=" INP-PROC" S FIO2=IPF IO | |
207 | I CHDES=" PHARM" S F IO2=PFIO | |
208 | I CHDES=" DME_DX" S FIO2=DMDFI O | |
209 | I CHDES=" DME-SUPPLY " S FIO2=D MSFIO | |
210 | I CHDES=" DEN-DX" S FIO2=DNDFI O | |
211 | I CHDES=" DEN-PROC" S FIO2=DNP FIO | |
212 | S J=0 | |
213 | C4 S J=$O( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI,CHDES ,J)) G:'J C3 | |
214 | I CHDES[" DX" S DATA 3=^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI,CHD ES,J)_"^"_ J | |
215 | I CHDES'[ "DX" S DAT A3=^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI,CH DES,J) | |
216 | U FIO2 W !,DATA3 | |
217 | I CHDES=" OPT-DX" S ODCNT=ODCN T+1 | |
218 | I CHDES=" OPT-PROC" S OPCNT=OP CNT+1 | |
219 | I CHDES=" INP-DX" S IDCNT=IDCN T+1 | |
220 | I CHDES=" INP-PROC" S IPCNT=IP CNT+1 | |
221 | I CHDES=" PHARM" S P CNT=PCNT+1 | |
222 | I CHDES=" DME_DX" S DMDCNT=DMD CNT+1 | |
223 | I CHDES=" DME-SUPPLY " S DMSCNT =DMSCNT+1 | |
224 | I CHDES=" DEN-DX" S DNDCNT=DND CNT+1 | |
225 | I CHDES=" DEN-PROC" S DNPCNT=D NPCNT+1 | |
226 | G C4 | |
227 | CHEAD ;WRI TES OUT CL AIM HEADER | |
228 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
229 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
230 | S TITLE2= "CLAIM DAT A COLLECTE D FROM "_P SDATE_" TO "_PEDATE | |
231 | U CFIO W !,T ITLE2 | |
232 | ; RFE 07/25/ 17 DEF0287 72 Cut fol lowing lin e into 2 | |
233 | S CHEA D="CLAIM N UM^SPON_BE NE ID^CREA TE DATE^CL AIM TYPE^C OMPLETE DA TE^CLAIM S TATUS^DATE OF SERV^D ISCHARGE D ATE^DRG^IN PAT OUTLIE R PAY^VEND OR PCN^TAX ID^POS^DE SC^TOT AMT CHARGED^T OT ALL AMT ^TOT OHI P AMT^AMT BE NE PAID^DE D MET FLG^ CAT CAP ME T FLG" | |
234 | S CHEA D=CHEAD_"^ AMT PAID O N CLAIM^AS SGN BENEFI TS^CTYPE" | |
235 | U CFIO W !!,CHEAD | |
236 | Q | |
237 | ODHEAD ; W RITES OUT OPT-DX HEA DER | |
238 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
239 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
240 | S TITLE2= "OUTPATIEN T DIAGNOSI S CLAIM DA TA COLLECT ED FROM "_ PSDATE_" T O "_PEDATE | |
241 | U ODFIO W !, TITLE2 | |
242 | S ODHEAD="CL AIM NUM^OP T DIAG COD E^OPT DIAG ORDER" | |
243 | U ODFIO W !! ,ODHEAD | |
244 | Q | |
245 | OPHEAD ;W RITES OUT OPT-PROC H EADER | |
246 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
247 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
248 | S TITLE2= "OUTPATIEN T PROCEDUR E CLAIM DA TA COLLECT ED FROM "_ PSDATE_" T O "_PEDATE | |
249 | U OPFIO W !, TITLE2 | |
250 | S OPHEAD="CL AIM NUM^PR OC CODE^BI LL AMT^ALL OW AMT" | |
251 | U OPFIO W !! ,OPHEAD | |
252 | Q | |
253 | IDHEAD ;W RITES OUT INP-DX HEA DER | |
254 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
255 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
256 | S TITLE2= "INPATIENT DIAGNOSIS CLAIM DAT A COLLECTE D FROM "_P SDATE_" TO "_PEDATE | |
257 | U IDFIO W !, TITLE2 | |
258 | S IDHEAD="CL AIM NUM^IN P DIAG COD E^INP DIAG ORDER" | |
259 | U IDFIO W !! ,IDHEAD | |
260 | Q | |
261 | IPHEAD ;W RITES OUT INP-PROC H EADER | |
262 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
263 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
264 | S TITLE2= "INPATIENT PROCEDURE CLAIM DAT A COLLECTE D FROM "_P SDATE_" TO "_PEDATE | |
265 | U IPFIO W !, TITLE2 | |
266 | S IPHEAD="CL AIM NUM^PR OC CODE^BI LL AMT^ALL OW AMT" | |
267 | U IPFIO W !! ,IPHEAD | |
268 | Q | |
269 | PHEAD ; W RITES OUT PHARMACY H EADER | |
270 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
271 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
272 | S TITLE2= "PHARMACY CLAIM DATA COLLECTED FROM "_PS DATE_" TO "_PEDATE | |
273 | U PFIO W !,T ITLE2 | |
274 | S PHEAD="CLA IM NUM^NDC ^BILL AMT^ ALLOW AMT" | |
275 | U PFIO W !!, PHEAD | |
276 | Q | |
277 | DNDHEAD ; WRITES OUT DEN-DX HE ADER | |
278 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
279 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
280 | S TITLE2= "DENTAL DI AGNOSIS CL AIM DATA C OLLECTED F ROM "_PSDA TE_" TO "_ PEDATE | |
281 | U DNDFIO W ! ,TITLE2 | |
282 | S DNDHEAD="C LAIM NUM^D EN DIAG CO DE^DEN DIA G ORDER" | |
283 | U DNDFIO W ! !,DNDHEAD | |
284 | Q | |
285 | DNPHEAD ; WRITES OUT DEN-PROC HEADER | |
286 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
287 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
288 | S TITLE2= "DENTAL PR OCEDURE CL AIM DATA C OLLECTED F ROM "_PSDA TE_" TO "_ PEDATE | |
289 | U DNPFIO W ! ,TITLE2 | |
290 | S DNPHEAD="C LAIM NUM^P ROC CODE^B ILL AMT^AL LOW AMT" | |
291 | U DNPFIO W ! !,DNPHEAD | |
292 | Q | |
293 | DMDHEAD ; WRITES OUT DURABLE M EDICAL DIA GNOSIS HEA DER | |
294 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
295 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
296 | S TITLE2= "DURABLE M EDICAL DIA GNOSIS CLA IM DATA CO LLECTED FR OM "_PSDAT E_" TO "_P EDATE | |
297 | U DMDFIO W ! ,TITLE2 | |
298 | S DMDHEAD="C LAIM NUM^D ME DIAG CO DE^DME DIA G ORDER" | |
299 | U DMDFIO W ! !,DMDHEAD | |
300 | Q | |
301 | DMSHEAD ; WRITES OUT DURABLE M EDICAL SUP PLY HEADER | |
302 | S PSDATE= $$FMTE^XLF DT(STDATE, "5D") | |
303 | S PEDATE=$$F MTE^XLFDT( EDDATE,"5D ") | |
304 | S TITLE2= "DURABLE M EDICARE SU PPLY CLAIM DATA COLL ECTED FROM "_PSDATE_ " TO "_PED ATE | |
305 | U DMSFIO W ! ,TITLE2 | |
306 | S DMSHEAD="C LAIM NUM^S UPPLY CODE ^BILL AMT^ ALLOW AMT" | |
307 | U DMSFIO W ! !,DMSHEAD | |
308 | Q | |
309 | END2 ; | |
310 | U CFIO W !!, "TOTAL CLA IMS COUNT = ",CLMC NT | |
311 | U ODFIO W !! ,"TOTAL OP T-DX COUNT = ",ODCNT | |
312 | U OPFIO W !! ,"TOTAL OP T-PROC COU NT = ",OPC NT | |
313 | U IDFIO W !! ,"TOTAL IN P-DX COUNT = ",IDCNT | |
314 | U IPFIO W !! ,"TOTAL IN P-PROC COU NT = ",IPC NT | |
315 | U PFIO W !!, "TOTAL PHA RM COUNT = ",PCNT | |
316 | U DNDFIO W ! !,"TOTAL D EN-DX COUN T = ",DNDC NT | |
317 | U DNPFIO W ! !,"TOTAL D EN-PROC CO UNT = ",DN PCNT | |
318 | U DMDFIO W ! !,"TOTAL D ME-DX COUN T = ",DMDC NT | |
319 | U DMSFIO W ! !,"TOTAL D ME-SUPPLY COUNT = ", DMSCNT | |
320 | C CFIO C ODF IO C OPFIO C IDFIO C IPFIO C P FIO C DNDF IO C DNPFI O C DMDFIO C DMSFIO | |
321 | X ^%ZOSF("UC I") S CHUC I=$E($P(Y, ",",1),1,3 ) ;Filenam e issue fi x | |
322 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _CFIO_")") H 30 | |
323 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _ODFIO_")" ) H 30 | |
324 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _OPFIO_")" ) H 30 | |
325 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _IDFIO_")" ) H 30 | |
326 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _IPFIO_")" ) H 30 | |
327 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _PFIO_")") H 30 | |
328 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DNDFIO_") ") H 30 | |
329 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DNPFIO_") ") H 30 | |
330 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DMDFIO_") ") H 30 | |
331 | I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DMSFIO_") ") H 30 | |
332 | Q | |
333 | ||
334 | ||
335 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.