Produced by Araxis Merge on 11/9/2018 12:34:11 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 | CHMXMW02.m | Mon Nov 5 16:41:31 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMW02.m | Mon Nov 5 17:53:02 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 416 |
Changed | 2 | 10 |
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 | CHMXMW02 ; HAC/RKN;MM I/WEBMD BL D PAY DATA ELE PART 2;08/06/03 1330 PM | |
2 | ;;V1.0; | |
3 | ;;; | |
4 | ;;;***** ROUTINE NO T USED RKN 05/24/200 5 ***** | |
5 | ;;; | |
6 | ; | |
7 | WRGLOB S C HBRWCT=CHB RWCT+1 | |
8 | S CHMAXL= 10,CHNUM=C HBRWCT D S TRPIT D PA DZROS S CH BRWCT=CHX4 K CHX4,CH NUM,X | |
9 | ; | |
10 | DETAIL S C HBDRCID="D TL",CHMAXL =4,CHXAL=C HBDRCID D PADBLKS S CHBDRCID=C HXAL | |
11 | S CHBPAYI D="00232", CHMAXL=5,C HXAL=CHBPA YID D PADB LKS S CHBP AYID=CHXAL | |
12 | S CHBBPFX =$P(^CHMXC LB(CHMXCLB ,0),"^",2) ,CHMAXL=9, CHXAL=CHBB PFX D PADB LKS S CHBB PFX=CHXAL | |
13 | S CHBBPLN =$P(^CHMXC LB(CHMXCLB ,0),"^",3) ,CHMAXL=35 ,CHXAL=CHB BPLN D PAD BLKS S CHB BPLN=CHXAL | |
14 | S CHBBPFN =" ",CHMAX L=25,CHXAL =CHBBPFN D PADBLKS S CHBBPFN=C HXAL | |
15 | S CHBSPFX =" ",CHMAX L=9,CHXAL= CHBSPFX D PADBLKS S CHBSPFX=CH XAL | |
16 | S CHBSPLN =" ",CHMAX L=35,CHXAL =CHBSPLN D PADBLKS S CHBSPLN=C HXAL | |
17 | S CHBSPFN =" ",CHMAX L=25,CHXAL =CHBSPFN D PADBLKS S CHBSPFN=C HXAL | |
18 | S CHBSID= $P(^CHMXCL C(CHMXCLC, 0),"^",4), CHMAXL=30, CHXAL=CHBS ID D PADBL KS S CHBSI D=CHXAL | |
19 | S CHBLNAM =$P(^CHMXC LC(CHMXCLC ,0),"^",5) ,CHMAXL=35 ,CHXAL=CHB LNAM D PAD BLKS S CHB LNAM=CHXAL | |
20 | S CHBFNAM =$P(^CHMXC LC(CHMXCLC ,0),"^",6) ,CHMAXL=25 ,CHXAL=CHB FNAM D PAD BLKS S CHB FNAM=CHXAL | |
21 | S CHBPSID =" ",CHMAX L=30,CHXAL =CHBPSID D PADBLKS S CHBPSID=C HXAL | |
22 | S CHBDOB= $P(^CHMXCL C(CHMXCLC, 0),"^",9), CHMAXL=8,C HNUM=CHBDO B D STRPIT D PADZROS S CHBDOB= CHX4 K CHX 4,CHNUM,X | |
23 | S CHBSEX= $P(^CHMXCL C(CHMXCLC, 0),"^",10) | |
24 | I (CHBSEX '="M")&(CH BSEX'="F") S CHBSEX= "U" | |
25 | S CHMAXL= 1,CHXAL=CH BSEX D PAD BLKS S CHB SEX=CHXAL | |
26 | S CHBWCLM =$P(^CHMXC LE(CHMXCLE ,0),"^",14 ),CHMAXL=1 5,CHXAL=CH BWCLM D PA DBLKS S CH BWCLM=CHXA L | |
27 | S CHMAXL= 3,CHXAL=CH BCSCC1 D P ADBLKS S C HBCSCC1=CH XAL | |
28 | S CHMAXL= 3,CHXAL=CH BCSC1 D PA DBLKS S CH BCSC1=CHXA L | |
29 | S CHMAXL= 3,CHXAL=CH BCSCE1 D P ADBLKS S C HBCSCE1=CH XAL | |
30 | S CHMAXL= 3,CHXAL=CH BCSCC2 D P ADBLKS S C HBCSCC2=CH XAL | |
31 | S CHMAXL= 3,CHXAL=CH BCSC2 D PA DBLKS S CH BCSC2=CHXA L | |
32 | S CHMAXL= 3,CHXAL=CH BCSCE2 D P ADBLKS S C HBCSCE2=CH XAL | |
33 | S CHMAXL= 3,CHXAL=CH BCSCC3 D P ADBLKS S C HBCSCC3=CH XAL | |
34 | S CHMAXL= 3,CHXAL=CH BCSC3 D PA DBLKS S CH BCSC3=CHXA L | |
35 | S CHMAXL= 3,CHXAL=CH BCSCE3 D P ADBLKS S C HBCSCE3=CH XAL | |
36 | D NOW^%DT C S CHDRT= $E(%,1,7) | |
37 | I $E(CHDR T,1,1)="1" S CENDTE= "18" | |
38 | I $E(CHDR T,1,1)="2" S CENDTE= "19" | |
39 | I $E(CHDR T,1,1)="3" S CENDTE= "20" | |
40 | S CHBCDTE =CENDTE_$E (CHDRT,2,3 )_$E(CHDRT ,4,5)_$E(C HDRT,6,7) | |
41 | S CHMAXL= 8,CHXAL=CH BCDTE D PA DBLKS S CH BCDTE=CHXA L | |
42 | S CHBCCAM T=$P(^CHMX CLE(CHMXCL E,2),"^",1 ),CHMAXL=1 5,CHNUM=CH BCCAMT D S TRPIT D PA DZROS S CH BCCAMT=CHX 4 K CHX4,C HNUM,X | |
43 | S X1=$E(C HBCCAMT,2, 13),X2=$E( CHBCCAMT,1 4,15),CHBC CAMT=X1_". "_X2 | |
44 | K X1,X2 | |
45 | S CHMAXL= 15,CHNUM=C HBCPAMT D STRPIT D P ADZROS S C HBCPAMT=CH X4 K CHX4, CHNUM,X | |
46 | S X1=$E(C HBCPAMT,2, 13),X2=$E( CHBCPAMT,1 4,15),CHBC PAMT=X1_". "_X2 | |
47 | K X1,X2 | |
48 | S CHMAXL= 8,CHXAL=CH BCAPD D PA DBLKS S CH BCAPD=CHXA L | |
49 | S CHMAXL= 3,CHXAL=CH BPMC D PAD BLKS S CHB PMC=CHXAL | |
50 | S CHMAXL= 8,CHXAL=CH BEFTD D PA DBLKS S CH BEFTD=CHXA L | |
51 | S CHMAXL= 20,CHXAL=C HBEFTN D P ADBLKS S C HBEFTN=CHX AL | |
52 | S CHBBTYP E=" ",CHMA XL=3,CHNUM =CHBBTYPE D STRPIT D PADZROS S CHBBTYPE= CHX4 K CHX 4,CHNUM,X | |
53 | S CHBBTYP E=" ",CHMA XL=3,CHXAL =CHBBTYPE D PADBLKS S CHBBTYPE =CHXAL | |
54 | S CHMAXL= 20,CHXAL=C HBPDI D PA DBLKS S CH BPDI=CHXAL | |
55 | S CHMAXL= 10,CHXAL=C HBPDI2 D P ADBLKS S C HBPDI2=CHX AL | |
56 | S CHBMRI= " ",CHMAXL =20,CHXAL= CHBMRI D P ADBLKS S C HBMRI=CHXA L | |
57 | ; | |
58 | S CHBCSDS =$P(^CHMXC LE(CHMXCLE ,1),"^",1) | |
59 | I '$D(CHB CSDS) S CH BCSDS=$P(^ CHMPAY(HAC CLM,0),"^" ,8) | |
60 | S CHMAXL= 8,CHXAL=CH BCSDS D PA DBLKS S CH BCSDS=CHXA L | |
61 | ; | |
62 | S CHBSES= $P(^CHMXCL E(CHMXCLE, 1),"^",2) | |
63 | I '$D(CHB SES) S CHB SES=$P(^CH MPAY(HACCL M,0),"^",8 ) | |
64 | S CHMAXL= 8,CHXAL=CH BSES D PAD BLKS S CHB SES=CHXAL | |
65 | ; | |
66 | S CHBCSC2 3=CHBCSCC2 _CHBCSC2_C HBCSCE2_CH BCSCC3_CHB CSC3_CHBCS CE3 | |
67 | ; | |
68 | I MMXFLAG =1 S CHBDF IL1=" ",CH MAXL=66,CH XAL=CHBDFI L1 D PADBL KS S CHBDF IL1=CHXAL | |
69 | I WEBFLAG =1 S CHBDF IL1=" ",CH MAXL=97,CH XAL=CHBDFI L1 D PADBL KS S CHBDF IL1=CHXAL | |
70 | ; | |
71 | I MMXFLAG =1 D | |
72 | .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,0)= CHBDRCID_C HBRWCT_CHB PAYID_CHBB PFX_CHBBPL N_CHBBPFN_ CHBSPFX_CH BSPLN_CHBS PFN_CHBSID _CHBLNAM_C HBFNAM_CHB PSID_CHBLN AM_CHBFNAM _CHBDOB_CH BSEX_CHBWC LM_CHBCSCC 1_CHBCSC1_ CHBCSCE1_C HBCSC23_CH BCDTE_CHBC CAMT | |
73 | .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,1)= CHBCPAMT_C HBCAPD_CHB PMC_CHBEFT D_CHBEFTN_ CHBBTYPE_C HBPDI_CHBM RI_CHBCSDS _CHBSES_CH BPDI2_CHBD FIL1 | |
74 | .Q | |
75 | ; | |
76 | I WEBFLAG =1 D | |
77 | .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,0)= CHBDRCID_C HBRWCT_CHB PAYID_CHBB PFX_CHBBPL N_CHBBPFN_ CHBSPFX_CH BSPLN_CHBS PFN_CHBSID _CHBLNAM_C HBFNAM_CHB PSID_CHBLN AM_CHBFNAM _CHBDOB_CH BSEX_CHBWC LM_CHBCSCC 1_CHBCSC1_ CHBCDTE_CH BCCAMT | |
78 | .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,1)= CHBCPAMT_C HBCAPD_CHB PMC_CHBEFT D_CHBEFTN_ CHBBTYPE_C HBPDI_CHBM RI_CHBCSDS _CHBSES_CH BDFIL1 | |
79 | .Q | |
80 | ; | |
81 | Q | |
82 | ; | |
83 | VMSFILE I MMXFLAG=1 S IO="HAC_ HFS$:[KERM IT.MATRIX] "_"MMICLMP D.DAT" ;L IVE | |
84 | I WEBFLAG =1 S IO="H AC_HFS$:[K ERMIT.WEBM D]"_"WEBCL MPD.DAT" ;LIVE | |
85 | ;I MMXFLA G=1 S IO=" HAC_HFS$:[ KERMIT.MAT RIX]"_"MD" _CHFMDTE_" .DAT" ;LI VE | |
86 | ;I WEBFLA G=1 S IO=" HAC_HFS$:[ KERMIT.MAT RIX]"_"WD" _CHFMDTE_" .DAT" ;LI VE | |
87 | S $ZTRAP= "VMSERR" | |
88 | S (CHDFN, CHBFN)=0,C HRECT1="", CHRECT2="" | |
89 | C IO | |
90 | S CHVMSFL ="FILE: "_ IO | |
91 | O IO:"NWS " | |
92 | ;O IO:(NE W:PROTECTI ON=(W:RWED )) ;SKD | |
93 | U IO | |
94 | ; | |
95 | HEADER S C HBHRCID="H DR",CHMAXL =4,CHXAL=C HBHRCID D PADBLKS S CHBHRCID=C HXAL | |
96 | D NOW^%DT C S CHDRT= $E(%,1,7) | |
97 | I $E(CHDR T,1,1)="1" S CENDTE= "18" | |
98 | I $E(CHDR T,1,1)="2" S CENDTE= "19" | |
99 | I $E(CHDR T,1,1)="3" S CENDTE= "20" | |
100 | S CHBCDTE =CENDTE_$E (CHDRT,2,3 )_$E(CHDRT ,4,5)_$E(C HDRT,6,7), CHMAXL=8,C HXAL=CHBCD TE D PADBL KS S CHBCD TE=CHXAL | |
101 | S CHBCTIM E=$E(%,9,1 4),CHMAXL= 6,CHNUM=CH BCTIME D S TRPIT D PA DZROS S CH BCTIME=CHX 4 K CHX4,C HNUM,X | |
102 | S CHBPAYI D="00232", CHMAXL=5,C HXAL=CHBPA YID D PADB LKS S CHBP AYID=CHXAL | |
103 | S CHBSBNM ="VA HEALT H ADM CTR" ,CHMAXL=30 ,CHXAL=CHB SBNM D PAD BLKS S CHB SBNM=CHXAL | |
104 | I MMXFLAG =1 S CHBRC NM="MEDICA L MATRIX I NC",CHMAXL =30,CHXAL= CHBRCNM D PADBLKS S CHBRCNM=CH XAL | |
105 | I WEBFLAG =1 S CHBRC NM="WEBMD/ Empower",C HMAXL=30,C HXAL=CHBRC NM D PADBL KS S CHBRC NM=CHXAL | |
106 | S CHBLOAD T="F" | |
107 | S CHBTRAC E=CHBCDTE_ CHBCTIME,C HMAXL=20,C HXAL=CHBTR ACE D PADB LKS S CHBT RACE=CHXAL | |
108 | S CHBVERC D="01",CHM AXL=2,CHNU M=CHBVERCD D STRPIT D PADZROS S CHBVERCD =CHX4 K CH X4,CHNUM,X | |
109 | S CHBRELC D="03",CHM AXL=2,CHNU M=CHBRELCD D STRPIT D PADZROS S CHBRELCD =CHX4 K CH X4,CHNUM,X | |
110 | S CHBHFIL 1="",CHMAX L=100,CHXA L=CHBHFIL1 D PADBLKS S CHBHFIL 1=CHXAL | |
111 | S CHBHFIL 2="",CHMAX L=392,CHXA L=CHBHFIL2 D PADBLKS S CHBHFIL 2=CHXAL | |
112 | W CHBHRCI D_CHBCDTE_ CHBCTIME_C HBPAYID_CH BSBNM_CHBR CNM_CHBLOA DT_CHBTRAC E_CHBVERCD _CHBRELCD_ CHBHFIL1,! ,"~",CHBHF IL2,!,"~", ! | |
113 | S CHRWCT1 =0 | |
114 | D WRCNT | |
115 | C IO S RC =$ZF(-1,"S ET PROT=(W :RWED) "_I O) | |
116 | Q | |
117 | ; | |
118 | WRCNT S CH RWCT1=$O(^ CHMZHOLD(" RKN",$J,"M MX_277U_UP DT",CHRWCT 1)) G:'CHR WCT1 TRAIL R | |
119 | S CHRCT1A =^CHMZHOLD ("RKN",$J, "MMX_277U_ UPDT",CHRW CT1,0) | |
120 | S CHRCT2A =^CHMZHOLD ("RKN",$J, "MMX_277U_ UPDT",CHRW CT1,1) | |
121 | W CHRCT1A ,!,"~",CHR CT2A,! | |
122 | K ^CHMZHO LD("RKN",$ J,"MMX_277 U_UPDT",CH RWCT1,0) | |
123 | K ^CHMZHO LD("RKN",$ J,"MMX_277 U_UPDT",CH RWCT1,1) | |
124 | G WRCNT | |
125 | ; | |
126 | TRAILR S C HBTRCID="T RLR",CHMAX L=4,CHXAL= CHBTRCID D PADBLKS S CHBTRCID= CHXAL | |
127 | S CHBPAYI D="00232" | |
128 | S CHBRCCN T=CHBRWCT, CHMAXL=7,C HNUM=CHBRC CNT D STRP IT D PADZR OS S CHBRC CNT=CHX4 K CHX4,CHNU M,X | |
129 | S CHBTFIL 1=" ",CHMA XL=200,CHX AL=CHBTFIL 1 D PADBLK S S CHBTFI L1=CHXAL | |
130 | S CHBTFIL 2=" ",CHMA XL=384,CHX AL=CHBTFIL 2 D PADBLK S S CHBTFI L2=CHXAL | |
131 | W CHBTRCI D_CHBPAYID _CHBRCCNT_ CHBTFIL1,! ,"~",CHBTF IL2 | |
132 | Q | |
133 | ; | |
134 | VMSERR C I O | |
135 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG]C HV_DELETE_ WB_WN.COM /NOPRINT/U SER=HACCAC HEMGR/PARA M="_CHFMDT E) | |
136 | ERRMM S CH ERRMSG=1,C HNB=2,ZML( CHNB)="" | |
137 | S ZML(CHN B)=CHVMSFL | |
138 | I MMXFLAG =1 S CHNB= CHNB+1,ZML (CHNB)="", CHNB=CHNB+ 1,ZML(CHNB )="NOTICE: An error has occurr ed in writ ing Update for the", CHNB=CHNB+ 1,ZML(CHNB )=" 277U M d Paid Cla ims file!" | |
139 | I WEBFLAG =1 S CHNB= CHNB+1,ZML (CHNB)="", CHNB=CHNB+ 1,ZML(CHNB )="NOTICE: An error has occurr ed in writ ing Update for the", CHNB=CHNB+ 1,ZML(CHNB )=" 277U W D Paid Cla ims file!" | |
140 | S XMDUZ=. 5,XMY("107 22")="" ;R KN LIVE | |
141 | ;S XMY(" P I I ")="" | |
142 | ;S XMY(" PII ")= "" | |
143 | S XMY(" PII " )="" | |
144 | I MMXFLAG =1 S XMTEX T="ZML(",X MSUB="277U MD Paid C laims..Err or.."_FMDA TE | |
145 | I WEBFLAG =1 S XMTEX T="ZML(",X MSUB="277U WD Paid C laims..Err or.."_FMDA TE | |
146 | D ^XMD | |
147 | Q | |
148 | ; | |
149 | AUTOMM S C HNB=2,ZML( CHNB)="" | |
150 | I '$D(CHV MSFL) S CH VMSFL="NO FILE CREAT ED! ",FLFL AG="1" | |
151 | S ZML(CHN B)=CHVMSFL _" (Total Records = "_CHBRCCN T_")" | |
152 | I FLFLAG= 1 S CHNB=C HNB+1,ZML( CHNB)="",C HNB=CHNB+1 ,ZML(CHNB) ="NOTICE: UNSUCESSFU LL CREATIO N MD 277U Paid Claim s STAT fil e!" | |
153 | I FLFLAG' =1 I MMXFL AG=1 S CHN B=CHNB+1,Z ML(CHNB)=" ",CHNB=CHN B+1,ZML(CH NB)="NOTIC E: Success ful CREATI ON MD 277U Paid Clai ms STAT fi le!" | |
154 | I FLFLAG' =1 I WEBFL AG=1 S CHN B=CHNB+1,Z ML(CHNB)=" ",CHNB=CHN B+1,ZML(CH NB)="NOTIC E: Success ful CREATI ON WD 277U Paid Clai ms STAT fi le!" | |
155 | S XMDUZ=. 5,XMY("107 22")="" ;R KN LIVE | |
156 | ;S XMY(" P I I ")="" | |
157 | S XMY(" PII " )="" | |
158 | I FLFLAG= 1 S XMTEXT ="ZML(",XM SUB="277U MD Paid Cl aims..UNSU CESS.."_FM DATE | |
159 | I FLFLAG' =1 I MMXFL AG=1 S XMT EXT="ZML(" ,XMSUB="27 7U MD Paid Claims..S uccess.."_ FMDATE | |
160 | I FLFLAG' =1 I WEBFL AG=1 S XMT EXT="ZML(" ,XMSUB="27 7U WD Paid Claims..S uccess.."_ FMDATE | |
161 | D ^XMD | |
162 | Q | |
163 | ; | |
164 | STRPIT S C HNUM2="" | |
165 | F X=1:1:$ L(CHNUM) D | |
166 | .S CHAR=$ E(CHNUM,X) I CHAR?1N S CHNUM2= CHNUM2_CHA R | |
167 | S CHX4=CH NUM2 | |
168 | Q | |
169 | ; | |
170 | STRPDL I $ E(CHNUM,1, 1)=0 D D STRPIT ;s trip leadi ng 0's | |
171 | .S $E(CHN UM,1,1)="" | |
172 | .Q | |
173 | I $E(CHNU M,$F(CHNUM ,"."),$F(C HNUM,".")+ 1)="" D ; Dec only | |
174 | .S CHNUM= CHNUM_"00" | |
175 | .Q | |
176 | S CHX1=$L (CHNUM) | |
177 | I '$F(CHN UM,".") D ;No Dec | |
178 | .S CHX4=C HNUM | |
179 | .I $D(DOL FLG) S CHX 4=CHNUM_"0 0" | |
180 | .S CHX4=$ E(CHX4,1,C HMAXL) | |
181 | .K DOLFLG | |
182 | .Q | |
183 | S CHX2=$F (CHNUM,"." ),CHX3=CHX 2-2 | |
184 | S CHX4=$E (CHNUM,1,C HX3)_$E(CH NUM,CHX2,C HX2+1) | |
185 | I CHX1=CH X2 S CHX4= CHX4_"0" | |
186 | K CHNUM,C HX1,CHX2,C HX3,CHMAXL | |
187 | Q | |
188 | ; | |
189 | STRPPH S C HLG1=$L(CH NUM) | |
190 | I ($E(CHN UM,1,1)=0) !($E(CHNUM ,1,1)=" ") !($E(CHNUM ,1,1)="(") D G STRP PH | |
191 | .S $E(CHN UM,1,1)="" | |
192 | .Q | |
193 | I $F(CHNU M,")") D G STRPPH | |
194 | .S CHLG2= ($F(CHNUM, ")")-1) | |
195 | .S CHNUM= $E(CHNUM,1 ,CHLG2-1)_ $E(CHNUM,C HLG2+1,CHL G1) | |
196 | .Q | |
197 | I $F(CHNU M," ") D G STRPPH | |
198 | .S CHLG2= ($F(CHNUM, " ")-1) | |
199 | .S CHNUM= $E(CHNUM,1 ,CHLG2-1)_ $E(CHNUM,C HLG2+1,CHL G1) | |
200 | .Q | |
201 | I $F(CHNU M,"-") D G STRPPH | |
202 | .S CHLG2= ($F(CHNUM, "-")-1) | |
203 | .S CHNUM= $E(CHNUM,1 ,CHLG2-1)_ $E(CHNUM,C HLG2+1,CHL G1) | |
204 | .Q | |
205 | Q | |
206 | ; | |
207 | PADZROS F I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 ="0"_CHX4 | |
208 | S CHX4=$R E($E($RE(C HX4),1,CHM AXL)) | |
209 | Q | |
210 | ; | |
211 | PADBLKS F I=1:1:(CHM AXL-$L(CHX AL)) S CHX AL=CHXAL_" " | |
212 | S CHXAL=$ E(CHXAL,1, CHMAXL) | |
213 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.