Produced by Araxis Merge on 11/9/2018 12:34:13 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 | CHMXWB12.m | Mon Nov 5 16:43:29 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXWB12.m | Mon Nov 5 17:53:39 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 698 |
Changed | 3 | 12 |
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 | CHMXWB12 ;HAC/RK N;WEB 277 UNSOLICITE D STATUS P ART II;06/ 14/03 0700 AM | |
2 | ;;1.0 ;CHAMPVA S YSTEM;;JUL Y 4,1990; | |
3 | ; | |
4 | ;;CAL LED BY CHM XWB11 | |
5 | ;;CAL LS NONE | |
6 | ;;CAC HE TESTED AND PASSED 03/14/200 6 @ 1120 A M RKN | |
7 | ;;1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) | |
8 | ;;AJM DEF4399 - ADD NPI A ND TIN TO GENERATED 277 (04-JU N-08) | |
9 | ; | |
10 | ;;HR- COB-Medica re-A/B-Beg in-9372 - Setting up blocks fo r new trad ing partne r (09-Mar- 2010) | |
11 | ;; | |
12 | ;DEF0 16554 - Re placed wit h new open command i n line tag VMSFILE - DRW 01/23 /14 | |
13 | WRGLOB S CHBRWCT=C HBRWCT+1 | |
14 | S CHM AXL=10,CHN UM=CHBRWCT D STRPDL D PADZROS S CHBRWCT= CHX4 | |
15 | ; | |
16 | DETAIL S CHBDRCID= "DTL",CHMA XL=4,CHXAL =CHBDRCID D PADBLKS S CHBDRCID =CHXAL | |
17 | S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D PADBLKS S CHBPAYID=C HXAL | |
18 | S CHB BPFX=$P(^C HMXCLB(CHM XCLB,0),"^ ",2),CHMAX L=9,CHXAL= CHBBPFX D PADBLKS S CHBBPFX=CH XAL | |
19 | S CHB BPPAN=" ", CHMAXL=20, CHXAL=CHBB PPAN D PAD BLKS S CHB BPPAN=CHXA L | |
20 | ;S CH BBPNPI=" " ,CHMAXL=10 ,CHXAL=CHB BPNPI D PA DBLKS S CH BBPNPI=CHX AL | |
21 | S CHB BPNPI=$P(^ CHMXCLB(CH MXCLB,0)," ^",13),CHM AXL=10,CHX AL=CHBBPNP I D PADBLK S S CHBBPN PI=CHXAL ; DEV4399 aj m | |
22 | S CHB BPLN=$P(^C HMXCLB(CHM XCLB,0),"^ ",3),CHMAX L=35,CHXAL =CHBBPLN D PADBLKS S CHBBPLN=C HXAL | |
23 | S CHB BPFN=" ",C HMAXL=25,C HXAL=CHBBP FN D PADBL KS S CHBBP FN=CHXAL | |
24 | ;S CH BSPFX=" ", CHMAXL=9,C HXAL=CHBSP FX D PADBL KS S CHBSP FX=CHXAL | |
25 | S CHB SPFX=$P($G (^CHMXCLB( CHMXCLB,1) ),"^",2),C HMAXL=9,CH XAL=CHBSPF X D PADBLK S S CHBSPF X=CHXAL ;D EF4399 ajm | |
26 | S CHB SPPAN=" ", CHMAXL=20, CHXAL=CHBS PPAN D PAD BLKS S CHB SPPAN=CHXA L | |
27 | ;S CH BSPNPI=" " ,CHMAXL=10 ,CHXAL=CHB SPNPI D PA DBLKS S CH BSPNPI=CHX AL | |
28 | S CHB SPNPI=$P($ G(^CHMXCLB (CHMXCLB,1 )),"^",9), CHMAXL=10, CHXAL=CHBS PNPI D PAD BLKS S CHB SPNPI=CHXA L ;DEF4399 ajm | |
29 | ;S CH BSPLN=" ", CHMAXL=35, CHXAL=CHBS PLN D PADB LKS S CHBS PLN=CHXAL | |
30 | S CHB SPLN=$P($G (^CHMXCLB( CHMXCLB,1) ),"^",1),C HMAXL=35,C HXAL=CHBSP LN D PADBL KS S CHBSP LN=CHXAL ; DEF4399 aj m | |
31 | S CHB SPFN=" ",C HMAXL=25,C HXAL=CHBSP FN D PADBL KS S CHBSP FN=CHXAL | |
32 | S CHB SID=$P(^CH MXCLC(CHMX CLC,0),"^" ,4),CHMAXL =30,CHXAL= CHBSID D P ADBLKS S C HBSID=CHXA L | |
33 | S CHB LNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",5),CHMAX L=35,CHXAL =CHBLNAM D PADBLKS S CHBLNAM=C HXAL | |
34 | S CHB FNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",6),CHMAX L=25,CHXAL =CHBFNAM D PADBLKS S CHBFNAM=C HXAL | |
35 | S CHB PSID=" ",C HMAXL=30,C HXAL=CHBPS ID D PADBL KS S CHBPS ID=CHXAL | |
36 | S CHB DOB=$P(^CH MXCLC(CHMX CLC,0),"^" ,9) S:CHBD OB="" CHBD OB=1875010 1 S CHMAXL =8,CHNUM=C HBDOB D ST RPDL D PAD ZROS S CHB DOB=CHX4 | |
37 | S CHB SEX=$P(^CH MXCLC(CHMX CLC,0),"^" ,10) | |
38 | I (CH BSEX'="M") &(CHBSEX'= "F") S CHB SEX="U" | |
39 | S CHM AXL=1,CHXA L=CHBSEX D PADBLKS S CHBSEX=CH XAL | |
40 | ; | |
41 | CHBCSCC1 S CH MAXL=3,CHX AL=CHBCSCC 1 D PADBLK S S CHBCSC C1=CHXAL | |
42 | S CHM AXL=3,CHXA L=CHBCSC1 D PADBLKS S CHBCSC1= CHXAL | |
43 | S CHM AXL=2,CHXA L=CHBCSCE1 D PADBLKS S CHBCSCE 1=CHXAL | |
44 | CHBCSCC2 S CH MAXL=3,CHX AL=CHBCSCC 2 D PADBLK S S CHBCSC C2=CHXAL | |
45 | S CHM AXL=3,CHXA L=CHBCSC2 D PADBLKS S CHBCSC2= CHXAL | |
46 | S CHM AXL=2,CHXA L=CHBCSCE2 D PADBLKS S CHBCSCE 2=CHXAL | |
47 | CHBCSCC3 S CH MAXL=3,CHX AL=CHBCSCC 3 D PADBLK S S CHBCSC C3=CHXAL | |
48 | S CHM AXL=3,CHXA L=CHBCSC3 D PADBLKS S CHBCSC3= CHXAL | |
49 | S CHM AXL=2,CHXA L=CHBCSCE3 D PADBLKS S CHBCSCE 3=CHXAL | |
50 | ; | |
51 | S CUR DT=$H | |
52 | S CHB CDTE=$ZDAT E(CURDT,8) | |
53 | ; | |
54 | S CHB CCAMT=$P(^ CHMXCLE(CH MXCLE,2)," ^",1) D | |
55 | .I CH BCCAMT'[". " S CHBCCA MT=CHBCCAM T_".00" | |
56 | .S CH MAXL=15,CH NUM=CHBCCA MT D STRPD L D PADZRO S S CHBCCA MT=CHX4 | |
57 | S X1= $E(CHBCCAM T,2,13),X2 =$E(CHBCCA MT,14,15), CHBCCAMT=X 1_"."_X2 | |
58 | K X1, X2 | |
59 | ; | |
60 | S CHB BTYPE=" ", CHMAXL=3,C HXAL=CHBBT YPE D PADB LKS S CHBB TYPE=CHXAL | |
61 | S CHB PDI=$P(^CH MXCLE(CHMX CLE,100)," ^",2),CHMA XL=20,CHXA L=CHBPDI D PADBLKS S CHBPDI=CH XAL | |
62 | ; | |
63 | ; Com mented off the follo wing secti on no paym ent inform ation shou ld be sent to EMDEON | |
64 | ; on acknowledg ement resp onses (A*) . Saved f or 5010 wh en final r esponses w ill be | |
65 | ; sen t also - A JM 02/18/2 010 (DEF00 9102) | |
66 | ; | |
67 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) 10/10/06 JPN COMME NTED OUT T HE CODE BE LOW TO | |
68 | ;NEW COD E FOR MULT IPLE CLAIM S IN A PDI | |
69 | ;S (N EWCPAMT,CH ACLM)=0,NE WCHACLM="" ,FLG="" | |
70 | ;S CH BCPAMT="0" ,CHMAXL=15 ,CHNUM=CHB CPAMT D ST RPDL D PAD ZROS S CHB CPAMT=CHX4 | |
71 | ;F S CHACLM=$O (^CHMPAY(" C",$E(CHBP DI,1,15),C HACLM)) Q :CHACLM="" D | |
72 | ;. I $D(^CHMPAY (CHACLM,1) ) S CHBCPA MT=$P(^CHM PAY(CHACLM ,1),"^",14 ) D | |
73 | ;.. I CHBCPAMT' ["." S CHB CPAMT=CHBC PAMT_".00" | |
74 | ;.. S NEWCPAMT= NEWCPAMT+C HBCPAMT | |
75 | ;.. I FLG'=1 S NEWCHACLM= CHACLM S F LG=1 | |
76 | ;.. Q | |
77 | ;S CH ACLM=NEWCH ACLM | |
78 | ;S CH BCPAMT=NEW CPAMT | |
79 | ;S CH MAXL=15,CH NUM=CHBCPA MT D STRPD L D PADZRO S S CHBCPA MT=CHX4 | |
80 | ;S X1 =$E(CHBCPA MT,2,13),X 2=$E(CHBCP AMT,14,15) ,CHBCPAMT= X1_"."_X2 | |
81 | ;K X1 ,X2 | |
82 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) JPN END OF MODIFIC ATIONS | |
83 | ; | |
84 | ;S CH BCAPD=" ", CHMAXL=8,C HXAL=CHBCA PD D PADBL KS S CHBCA PD=CHXAL | |
85 | ; | |
86 | ;I CH ACLM>"1" S CHBCAPD=$ E($P(^CHMP AY(CHACLM, 0),"^",10) ,1,7) D | |
87 | ;.I $ E(CHBCAPD, 1,1)="2" S CENDTE="1 9" | |
88 | ;.I $ E(CHBCAPD, 1,1)="3" S CENDTE="2 0" | |
89 | ;.S C HBCAPD=CEN DTE_$E(CHB CAPD,2,3)_ $E(CHBCAPD ,4,5)_$E(C HBCAPD,6,7 ) | |
90 | ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S S CHBCAP D=CHXAL | |
91 | ;.I $ E(CHBCAPD, 3,3)=" " S CHBCAPD=C HBCDTE | |
92 | ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S S CHBCAP D=CHXAL | |
93 | ;.Q | |
94 | ; | |
95 | ; | |
96 | ;I CH BCPAMT<"1" S CHBCAPD =" ",CHMAX L=8,CHXAL= CHBCAPD D PADBLKS S CHBCAPD=CH XAL | |
97 | ; | |
98 | ;I CH BCPAMT<"1" S CHBPMC= " ",CHMAXL =3,CHXAL=C HBPMC D PA DBLKS S CH BPMC=CHXAL | |
99 | ;I CH BCPAMT>"0" D | |
100 | ;.S C HBPMC="CHK ",CHMAXL=3 ,CHXAL=CHB PMC D PADB LKS S CHBP MC=CHXAL | |
101 | ;.I ' $D(^CHMPAY (CHACLM,7) ) Q | |
102 | ;.I $ P(^CHMPAY( CHACLM,7), "^",7)>" " S CHBPMC= "ACH",CHMA XL=3,CHXAL =CHBPMC D PADBLKS S CHBPMC=CHX AL | |
103 | ; | |
104 | ;S CH BEFTD=CHBC APD,CHMAXL =8,CHXAL=C HBEFTD D P ADBLKS S C HBEFTD=CHX AL | |
105 | ; | |
106 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) JPN 10/1 0/06 CHANG ED CODE TO GRAB THE CORRECT IN FORMATION | |
107 | ; FRO M THE GLOB AL CHMPAY CHBEFTN SH OULD BE GE TTING PIEC E 16 OF NO DE 1 VENDO R TREASURY CHECK NUM BER | |
108 | ;S CH BEFTN=" ", CHMAXL=20, CHXAL=CHBE FTN D PADB LKS S CHBE FTN=CHXAL | |
109 | ;I CH BCPAMT>"0" I CHACLM' =" " I $D( ^CHMPAY(CH ACLM,7)) S CHBEFTN=$ P(^CHMPAY( CHACLM,7), "^",3) S C HMAXL=20,C HXAL=CHBEF TN D PADBL KS S CHBEF TN=CHXAL | |
110 | ;NOT SURE WHY C HBEFTN WER E BEING SE T TO THE B ELOW PIECE S | |
111 | ;I CH BCPAMT>"0" I CHACLM' =" " I CHB EFTN'>"0" S CHBEFTN= $P(^CHMPAY (CHACLM,7) ,"^",4) S CHMAXL=20, CHXAL=CHBE FTN D PADB LKS S CHBE FTN=CHXAL | |
112 | ;I CH BCPAMT>"0" I CHACLM' =" " I CHB EFTN'>"0" S CHBEFTN= $P(^CHMPAY (CHACLM,7) ,"^",5) S CHMAXL=20, CHXAL=CHBE FTN D PADB LKS S CHBE FTN=CHXAL | |
113 | ; | |
114 | ;I CH BCPAMT>"0" I CHACLM' =" " S CHB EFTN=$P(^C HMPAY(CHAC LM,1),"^", 16) S CHMA XL=20,CHXA L=CHBEFTN D PADBLKS S CHBEFTN= CHXAL | |
115 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) JPN END OF MODIFIC ATIONS | |
116 | ; | |
117 | ;I (C HBCAPD="") !(CHBEFTD= "")!(CHBEF TN="") D | |
118 | ;.S C HBCPAMT="0 ",CHBCAPD= " ",CHBPMC =" ",CHBEF TD=" ",CHB EFTN=" " | |
119 | ;.S C HMAXL=15,C HNUM=CHBCP AMT D STRP DL D PADZR OS S CHBCP AMT=CHX4 | |
120 | ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S S CHBCAP D=CHXAL | |
121 | ;.S C HMAXL=3,CH XAL=CHBPMC D PADBLKS S CHBPMC= CHXAL | |
122 | ;.S C HMAXL=8,CH XAL=CHBEFT D D PADBLK S S CHBEFT D=CHXAL | |
123 | ;.S C HMAXL=20,C HXAL=CHBEF TN D PADBL KS S CHBEF TN=CHXAL | |
124 | ;.Q | |
125 | ; | |
126 | ; add ed to repl ace the co mmented se ction abov e | |
127 | S CHB CPAMT=" ", CHBCAPD=" ",CHBPMC=" ",CHBEFTD =" ",CHBEF TN=" " | |
128 | S CHB CPAMT="000 000000000. 00" | |
129 | S CHM AXL=8,CHXA L=CHBCAPD D PADBLKS S CHBCAPD= CHXAL | |
130 | S CHM AXL=3,CHXA L=CHBPMC D PADBLKS S CHBPMC=CH XAL | |
131 | S CHM AXL=8,CHXA L=CHBEFTD D PADBLKS S CHBEFTD= CHXAL | |
132 | S CHM AXL=20,CHX AL=CHBEFTN D PADBLKS S CHBEFTN =CHXAL | |
133 | ;(DEF 009102) | |
134 | ; | |
135 | I CHB PDI<"1" S CHBPDI=$P( ^CHMXCLE(C HMXCLE,100 ),"^",4),C HMAXL=20,C HXAL=CHBPD I D PADBLK S S CHBPDI =CHXAL | |
136 | ; | |
137 | S CHB MRI=" ",CH MAXL=20,CH XAL=CHBMRI D PADBLKS S CHBMRI= CHXAL | |
138 | S CHB PAN=" ",CH MAXL=20,CH XAL=CHBPAN D PADBLKS S CHBPAN= CHXAL | |
139 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) JPN 10/1 0/06 ADDED TO GET CL M/PATIENT CONTROL NU MBER | |
140 | I $D( ^CHMXCLE(C HMXCLE,0)) S CHBPAN= $P(^CHMXCL E(CHMXCLE, 0),"^",2) S CHMAXL=2 0,CHXAL=CH BPAN D PAD BLKS S CHB PAN=CHXAL | |
141 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) JPN END OF MODIFIC ATION | |
142 | I '$D (^CHMXCLE( CHMXCLE,1) ) D ALTDAT E G ALTDTN XT | |
143 | S CHB CSDS=$P(^C HMXCLE(CHM XCLE,1),"^ ",1) | |
144 | S CHB SES=$P(^CH MXCLE(CHMX CLE,1),"^" ,2) | |
145 | I CHB CSDS="" D ALTDATE G ALTDTNXT | |
146 | I CHB CSDS="" S CHBCSDS="1 7760704" | |
147 | S CHM AXL=8,CHXA L=CHBCSDS D PADBLKS S CHBCSDS= CHXAL | |
148 | I CHB SES="" S C HBSES="177 60704" | |
149 | S CHM AXL=8,CHXA L=CHBSES D PADBLKS S CHBSES=CH XAL | |
150 | ; | |
151 | ALTDTNXT S CH BDFIL1=" " ,CHMAXL=98 ,CHXAL=CHB DFIL1 D PA DBLKS S CH BDFIL1=CHX AL | |
152 | ; | |
153 | S CHB IUD="L",CH MAXL=1,CHX AL=CHBIUD D PADBLKS S CHBIUD=C HXAL | |
154 | I '$D (^CHMXCLE( CHMXCLE,3) ) S CHBWCL M="" G SET | |
155 | S CHB WCLM=$P(^C HMXCLE(CHM XCLE,3),"^ ",5) | |
156 | I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N) S CHBWCLM= $P(^CHMXCL E(CHMXCLE, 3),"^",6) | |
157 | I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N) S CHBWCLM= "" | |
158 | S CHM AXL=15,CHX AL=CHBWCLM D PADBLKS S CHBWCLM =CHXAL | |
159 | ; | |
160 | SET S XCHBCS CC1=CHBCSC C1_CHBCSC1 _CHBCSCE1_ CHBCSCC2_C HBCSC2_CHB CSCE2_CHBC SCC3_CHBCS C3_CHBCSCE 3 | |
161 | S XCH BDRCID=CHB DRCID_CHBR WCT_CHBPAY ID_CHBBPFX | |
162 | S XCH BBP=CHBBPP AN_CHBBPNP I_CHBBPLN_ CHBBPFN_CH BSPFX_CHBS PPAN_CHBSP NPI_CHBSPL N_CHBSPFN_ CHBSID_CHB LNAM_CHBFN AM_CHBPSID _CHBLNAM_C HBFNAM_CHB DOB_CHBSEX _CHBWCLM_X CHBCSCC1_C HBCDTE_CHB CCAMT | |
163 | ; | |
164 | S ^CH MZHOLD("RK N_W277",$J ,"WEB_277U _UPDT",CHB RWCT,0)=XC HBDRCID_XC HBBP | |
165 | S ^CH MZHOLD("RK N_W277",$J ,"WEB_277U _UPDT",CHB RWCT,1)=CH BCPAMT_CHB CAPD_CHBPM C_CHBEFTD_ CHBEFTN_CH BBTYPE_CHB PDI_CHBMRI _CHBPAN_CH BCSDS_CHBS ES_CHBDFIL 1_CHBIUD | |
166 | ; | |
167 | Q | |
168 | ; | |
169 | VMSFILE S IO="HAC_HF S$:[KERMIT .WEBMD]"_C HFILE | |
170 | S CHV MSFL="HAC_ HFS$:[KERM IT.WEBMD]" _CHFILE | |
171 | S (CH DFN,CHBFN) =0,CHRECT1 ="",CHRECT 2="" | |
172 | I '$$ OPENFIWR^C HTFLIB9(.I O,"IO") G VMSERR^CHM XWB12 ;;DEF01655 4 -- New e xtrinsic f unction fo r open -- 01/23/2014 | |
173 | ;O IO :"NWS" ;; ; RKN 08/0 4/05 | |
174 | U IO | |
175 | ; | |
176 | S LDF LG="" ; 1.0 IS THE INITIAL V ERSION (HI PAA Ready LLC) JPN 1 0/10/06 TH IS IS SET TO NULL HE RE BUT WIL L COME IN | |
177 | ; AS 1 IF RUNNI NG THE QUA RTERLY REP ORT | |
178 | ; | |
179 | ;HR- COB-Medica re-A/B-Beg in-9372 (0 9-Mar-2010 ) | |
180 | ;HEA DER S CHB HRCID="HDR ",CHMAXL=4 ,CHXAL=CHB HRCID D PA DBLKS S CH BHRCID=CHX AL | |
181 | HEADER N CHFLG,I,M AX,TXT | |
182 | S CH BHRCID="HD R",CHMAXL= 4,CHXAL=CH BHRCID D P ADBLKS S C HBHRCID=CH XAL | |
183 | ;HR- COB-Medica re-A/B-End -9372 | |
184 | S CHB FGSN="01", CHMAXL=2,C HNUM=CHBFG SN D STRPD L D PADZRO S S CHBFGS N=CHX4 | |
185 | S CHB FGCNT="01" ,CHMAXL=2, CHNUM=CHBF GCNT D STR PDL D PADZ ROS S CHBF GCNT=CHX4 | |
186 | ; | |
187 | S CUR DT=$H | |
188 | S CHB CDTE=$ZDAT E(CURDT,8) | |
189 | S CHB CTIME=$$GE THHMMSS^CH EDILIB(CUR DT) | |
190 | S CHB FGID=CHBCD TE_CHBCTIM E,CHMAXL=2 0,CHXAL=CH BFGID D PA DBLKS S CH BFGID=CHXA L | |
191 | S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D PADBLKS S CHBPAYID=C HXAL | |
192 | S CHB SBNM="VA, Health Adm in Center" ,CHMAXL=30 ,CHXAL=CHB SBNM D PAD BLKS S CHB SBNM=CHXAL | |
193 | ;HR- COB-Medica re-A/B-Beg in-9372 (0 9-Mar-2010 ) | |
194 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) 7/31/06B AS SET CHB RCNM BASED ON TRADIN G PARTNER | |
195 | ; S C HBRCNM="WE BMD/Empowe r",CHMAXL= 30,CHXAL=C HBRCNM D P ADBLKS S C HBRCNM=CHX AL | |
196 | ;I CH TPABBR="EN V" S CHBRC NM="WEBMD/ Empower",C HMAXL=30,C HXAL=CHBRC NM D PADBL KS S CHBRC NM=CHXAL | |
197 | ;I CH TPABBR="MM IACH" S CH BRCNM="MED ICAL MATRI X INC",CHM AXL=30,CHX AL=CHBRCNM D PADBLKS S CHBRCNM =CHXAL | |
198 | ;1.0 IS THE INI TIAL VERSI ON (HIPAA Ready LLC) BAS - END OF MODIFI CATION | |
199 | ;HR- PBM-PHASE 1B-Begin | |
200 | ;ENC5 591 - HR - SXC Iplem entation f or 837P | |
201 | ;Adde d line for seting CH BRCNM for SXC | |
202 | ;I CH TPABBR="SX CACH" S CH BRCNM="SXC HEALTH SO LUTIONS IN C",CHMAXL= 30,CHXAL=C HBRCNM D P ADBLKS S C HBRCNM=CHX AL | |
203 | ;HR- PBM-PHASE 1B-End | |
204 | S CHF LG=0 | |
205 | S TXT ="ENV^WEBM D/Empower; MMIACH^MED ICAL MATRI X INC;SXCA CH^SXC HEA LTH SOLUTI ONS INC;ME DCOB^WEBMD /Empower" | |
206 | S MAX =$L(TXT,"; ") | |
207 | F I=1 :1:MAX D Q:CHFLG | |
208 | .I $P ($P(TXT,"; ",I),"^",1 )=CHTPABBR D | |
209 | ..S C HBRCNM=$P( $P(TXT,";" ,I),"^",2) | |
210 | ..S C HMAXL=30,C HXAL=CHBRC NM D PADBL KS S CHBRC NM=CHXAL | |
211 | ..S C HFLG=1 | |
212 | ;HR- COB-Medica re-A/B-End -9372 | |
213 | ; | |
214 | S CHB LOADT="I" | |
215 | I LDF LG=1 S CHB LOADT="F" | |
216 | S CHB TRACE=CHBC DTE_CHBCTI ME,CHMAXL= 20,CHXAL=C HBTRACE D PADBLKS S CHBTRACE=C HXAL | |
217 | S CHB FTYPE="Cst at",CHMAXL =8,CHXAL=C HBFTYPE D PADBLKS S CHBFTYPE=C HXAL | |
218 | S CHB VERCD="02" ,CHMAXL=2, CHNUM=CHBV ERCD D STR PDL D PADZ ROS S CHBV ERCD=CHX4 | |
219 | S CHB RELCD="00" ,CHMAXL=2, CHNUM=CHBR ELCD D STR PDL D PADZ ROS S CHBR ELCD=CHX4 | |
220 | S CHB CPHO=" ",C HMAXL=10,C HXAL=CHBCP HO D PADBL KS S CHBCP HO=CHXAL | |
221 | S CHB CEXT=" ",C HMAXL=10,C HXAL=CHBCE XT D PADBL KS S CHBCE XT=CHXAL | |
222 | S CHB CNAM=" ",C HMAXL=60,C HXAL=CHBCN AM D PADBL KS S CHBCN AM=CHXAL | |
223 | S CHB CEML=" ",C HMAXL=80,C HXAL=CHBCE ML D PADBL KS S CHBCE ML=CHXAL | |
224 | ; | |
225 | S CON TACT=CHBCN AM_CHBCPHO _CHBCEXT_C HBCEML | |
226 | ; | |
227 | S CHB HFIL1="",C HMAXL=100, CHXAL=CHBH FIL1 D PAD BLKS S CHB HFIL1=CHXA L | |
228 | S CHB HFIL2="",C HMAXL=299, CHXAL=CHBH FIL2 D PAD BLKS S CHB HFIL2=CHXA L | |
229 | S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF D PADBLKS S CHBEOF=C HXAL | |
230 | ; | |
231 | W CHB HRCID_CHBF GID_CHBFGS N_CHBFGCNT _CHBCDTE_C HBCTIME_CH BPAYID_CHB SBNM_CONTA CT_CHBRCNM _CHBLOADT_ CHBTRACE_C HBFTYPE_CH BVERCD_CHB RELCD,!,"~ ",CHBHFIL1 _CHBHFIL2_ CHBEOF,!," ~",! | |
232 | ; | |
233 | S CHR WCT1=0 | |
234 | D WRC NT | |
235 | D CLO SEF^CHTFLI B9(IO,"IO" ) ;;DEF01 6554 | |
236 | ;C IO | |
237 | Q | |
238 | ; | |
239 | WRCNT S CHRWCT1= $O(^CHMZHO LD("RKN_W2 77",$J,"WE B_277U_UPD T",CHRWCT1 )) G:'CHRW CT1 TRAILR | |
240 | S CHR CT1A=^CHMZ HOLD("RKN_ W277",$J," WEB_277U_U PDT",CHRWC T1,0) | |
241 | S CHR CT2A=^CHMZ HOLD("RKN_ W277",$J," WEB_277U_U PDT",CHRWC T1,1) | |
242 | W CHR CT1A,!,"~" ,CHRCT2A,! | |
243 | G WRC NT | |
244 | ; | |
245 | TRAILR S CHBTRCID= "TRLR",CHM AXL=4,CHXA L=CHBTRCID D PADBLKS S CHBTRCI D=CHXAL | |
246 | S CHB PAYID="002 32" | |
247 | S CHB RCCNT=CHBR WCT,CHMAXL =10,CHNUM= CHBRCCNT D STRPDL D PADZROS S CHBRCCNT=C HX4 | |
248 | S CHB TFIL1=" ", CHMAXL=480 ,CHXAL=CHB TFIL1 D PA DBLKS S CH BTFIL1=CHX AL | |
249 | S CHB TFIL2=" ", CHMAXL=200 ,CHXAL=CHB TFIL2 D PA DBLKS S CH BTFIL2=CHX AL | |
250 | S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF D PADBLKS S CHBEOF=C HXAL | |
251 | W CHB TRCID_CHBP AYID_CHBRC CNT_CHBTFI L1,!,"~",C HBTFIL2_CH BEOF | |
252 | Q | |
253 | ; | |
254 | ; | |
255 | VMSERR D CLOSEF^CH TFLIB9(IO, "IO") ;;D EF016554 | |
256 | ; | |
257 | S X=$ ZF(-1,"SUB MIT HAC_HF S$:[DSMMAN AG]CHV_DEL ETE_WB_WN. COM /NOPRI NTER/USER =DSMMANAG/ PARAM="_CH FMDTE) | |
258 | ; | |
259 | ERRMM ; | |
260 | ;S CH ERRMSG=1,C HNB=2,ZML( CHNB)="",Z ML(CHNB)=C HVMSFL,CHN B=CHNB+1,Z ML(CHNB)=" ",CHNB=CHN B+1,ZML(CH NB)="NOTIC E: An erro r has occu rred in wr iting Upda te for the ",CHNB=CHN B+1,ZML(CH NB)=" 277U WebMD fil e!" | |
261 | ;S XM DUZ=.5,XMY ("10722")= "" ;RKN LI VE | |
262 | ;S XM TEXT="ZML( ",XMSUB="2 77U WebMD. .Error.."_ FMDATE | |
263 | S CHE RRMSG=1,CH NB=2,ZML(C HNB)="",ZM L(CHNB)=CH VMSFL,CHNB =CHNB+1,ZM L(CHNB)="" ,CHNB=CHNB +1,ZML(CHN B)="NOTICE : An error has occur red in wri ting Updat e for the" ,CHNB=CHNB +1,ZML(CHN B)=" 277U file!" | |
264 | ;S XMDUZ=. 5,XMY(" PII ")="" ;RKN LIVE | |
265 | ;S XM Y(" PII ")= "" | |
266 | S XMDUZ=.5 ,XMY("2745 77")="",XM Y("246183" )="",XMY(" PII ")="",XMY( "
|
|
267 | S XMT EXT="ZML(" ,XMSUB="27 7U..Error. ."_FMDATE | |
268 | ; BAS -END MOD | |
269 | D ^XM D | |
270 | Q | |
271 | AUTOMM D NOW^%DTC | |
272 | S ZRK DTE=% | |
273 | S CHN B=2,ZML(CH NB)="",ZML (CHNB)=CHV MSFL_" (T otal Recor ds = "_CHB RCCNT_")", CHNB=CHNB+ 1,ZML(CHNB )="" | |
274 | ; BAS - MADE RE FERENCE GE NERIC | |
275 | ; S C HNB=CHNB+1 ,ZML(CHNB) ="NOTICE: Successful CREATION WebMD 277U STAT file !" | |
276 | S CHN B=CHNB+1,Z ML(CHNB)=" NOTICE: Su ccessful C REATION 27 7U STAT fi le!" | |
277 | ; BAS -END MOD | |
278 | S CHN B=CHNB+1,Z ML(CHNB)=" EDI BATCH NUMBER ^CH MXCL("_CHM XI_",0)" | |
279 | ; BAS - CHANGED E-MAIL AN D WEBMD RE FERENCE | |
280 | S XMDUZ=.5 ,XMY("2745 77")="",XM Y("246183" )="",XMY(" PII ")="",XMY( "
|
|
281 | S XMT EXT="ZML(" ,XMSUB="27 7U WebMD.. Success.." _FMDATE | |
282 | ;S XMDUZ=. 5,XMY("107 22")="",XM Y("246183" )="",XMY(" PII ")="" | |
283 | ;S XM Y(" PII ")= "" | |
284 | ; BAS -END MOD | |
285 | D ^XM D | |
286 | ; | |
287 | ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// //// | |
288 | S ^CH MZHOLD("RK N_W277X",C HMXI,"SENT MAIL",ZRK DTE)=CHBRC CNT_"^"_DU Z | |
289 | K ZRK DTE | |
290 | ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// //// | |
291 | ; | |
292 | Q | |
293 | ; | |
294 | END K CHBDR CID,CHBRWC T,CHBPAYID ,CHBBPFX,C HBBPLN,CHB BPFN,CHBSP FX,CHBSPLN ,CHBSPFN,C HBPSID,CHB SID,CHBLNA M,CHBFNAM, CHBSID,CHB LNAM,CHBFN AM,CHBDOB, CHBSEX,CHB WCLM | |
295 | K CHB CSCC1,CHBC SC1,CHBCSC C2,CHBCSC2 ,CHBCSCC3, CHBCSC3 | |
296 | K CHB CDTE,CHBCC AMT,CHBCPA MT,CHBCAPD ,CHBPMC,CH BEFTD,CHBE FTN,CHBBTY PE,CHBPDI, CHBMRI,CHB CSDS,CHBSE S,CHBDFIL1 | |
297 | K CHB HRCID,CHBC DTE,CHBCTI ME,CHBPAYI D,CHBSBNM, CHBRCNM,CH BLOADT,CHB TRACE,CHBV ERCD,CHBRE LCD,CHBHFI L1,CHBHFIL 2,CHBTRCID ,CHBPAYID, CHBRCCNT,C HBTFIL1,CH BTFIL2,CHV MSFL | |
298 | K CHB FGID,CHBFG SN,CHBFGCN T,CHBBPPAN ,CHBBPNPI, CHBSPPAN,C HBSPNPI,CH BPAN,CHBIU D,CHBEOF,C HACLM | |
299 | K ^CH MZHOLD("RK N_W277") | |
300 | Q | |
301 | ; | |
302 | STRPIT S CHNUM2=" " | |
303 | F X=1 :1:$L(CHNU M) D | |
304 | .S CH AR=$E(CHNU M,X) I CHA R?1N S CHN UM2=CHNUM2 _CHAR | |
305 | S CHX 4=CHNUM2 | |
306 | Q | |
307 | ; | |
308 | STRPDL I $E(CHNUM ,1,1)=0 D G STRPIT ;s trip leadi ng 0's | |
309 | .S $E (CHNUM,1,1 )="" | |
310 | I $E( CHNUM,$F(C HNUM,"."), $F(CHNUM," .")+1)="" D ;Dec on ly | |
311 | .S CH NUM=CHNUM_ "00" | |
312 | S CHX 1=$L(CHNUM ) | |
313 | I '$F (CHNUM,"." ) D Q ;No Dec | |
314 | .S CH X4=CHNUM | |
315 | .I $D (DOLFLG) S CHX4=CHNU M_"00" | |
316 | .S CH X4=$E(CHX4 ,1,CHMAXL) | |
317 | .K DO LFLG | |
318 | S CHX 2=$F(CHNUM ,"."),CHX3 =CHX2-2 | |
319 | S CHX 4=$E(CHNUM ,1,CHX3)_$ E(CHNUM,CH X2,CHX2+1) | |
320 | I CHX 1=CHX2 S C HX4=CHX4_" 0" | |
321 | STRPPH ;STRIPS PH ONE NUMBER S | |
322 | S CHL G1=$L(CHNU M) | |
323 | I ($E (CHNUM,1,1 )=0)!($E(C HNUM,1,1)= " ")!($E(C HNUM,1,1)= "(") D G STRPPH | |
324 | .S $E (CHNUM,1,1 )="" | |
325 | I $F( CHNUM,")") D G STRP PH | |
326 | .S CH LG2=($F(CH NUM,")")-1 ) | |
327 | .S CH NUM=$E(CHN UM,1,CHLG2 -1)_$E(CHN UM,CHLG2+1 ,CHLG1) | |
328 | I $F( CHNUM," ") D G STRP PH | |
329 | .S CH LG2=($F(CH NUM," ")-1 ) | |
330 | .S CH NUM=$E(CHN UM,1,CHLG2 -1)_$E(CHN UM,CHLG2+1 ,CHLG1) | |
331 | I $F( CHNUM,"-") D G STRP PH | |
332 | .S CH LG2=($F(CH NUM,"-")-1 ) | |
333 | .S CH NUM=$E(CHN UM,1,CHLG2 -1)_$E(CHN UM,CHLG2+1 ,CHLG1) | |
334 | Q | |
335 | ; | |
336 | PADZROS F I=1:1:(CH MAXL-$L(CH X4)) S CHX 4="0"_CHX4 | |
337 | S CHX 4=$RE($E($ RE(CHX4),1 ,CHMAXL)) | |
338 | Q | |
339 | ; | |
340 | PADBLKS F I=1:1:(CH MAXL-$L(CH XAL)) S CH XAL=CHXAL_ " " | |
341 | S CHX AL=$E(CHXA L,1,CHMAXL ) | |
342 | Q | |
343 | ; | |
344 | PADRZRO F I=1:1:(CH MAXL-$L(CH X4)) S CHX 4=CHX4_"0" | |
345 | S CHX 4=$RE($E($ RE(CHX4),1 ,CHMAXL)) | |
346 | Q | |
347 | ; | |
348 | ALTDATE ; ADDED BY D TP 5-DEC-0 3 TO GET S VC DT FROM LINE LEVE L FOR PROF . CLMS | |
349 | S CHM XCLF=0 | |
350 | ALTDT1 S CHMXCLF= $O(^CHMXCL F("B",CHMX CLE,CHMXCL F)) Q:'CHM XCLF | |
351 | G:'$D (^CHMXCLF( CHMXCLF,1) ) ALTDT1 | |
352 | S CHB CSDS=$P(^C HMXCLF(CHM XCLF,1),"^ ",11),CHBS ES=$P(^(1) ,"^",12) | |
353 | G:CHB CSDS="" AL TDT1 S:CHB SES="" CHB SES=CHBCSD S | |
354 | Q | |
355 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.