Produced by Araxis Merge on 11/9/2018 12:34:16 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 | CHRXDIF1.m | Mon Nov 5 16:42:45 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHRXDIF1.m | Mon Nov 5 17:55:11 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 898 |
Changed | 3 | 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 | CHRXDIF1 ; HAC/AEB;ED I 835 FILE | |
2 | ;;BST-020 6-20093 X12 835 EXTRACT-FI LE CREATIO N-FMS LOOP ; 06-15-20 01; | |
3 | ;;COPIED FROM CHEDI F1 (jbm) P I 3 Duplic ation and Change Req uest MC16 1 "X12 835 PI 3 Dupl ication" 02/08/2006 RKN | |
4 | ;;1.0 IS THE INITIA L VERSION (HIPAA Rea dy LLC) 7/ 31/06 JPN added new variable t hrough out routine c alled | |
5 | ;;NCPDP w hich will hold the v alue of ei ther "NCPD P_NET" or "NCPDP_NON " | |
6 | ;;All ^TM P globals will have value of N CPDP IE: ^ TMP($J,NCP DP | |
7 | ;; | |
8 | NEW ; Crea te a new f ile run | |
9 | K ^CHMEDI F("C",0) | |
10 | N POP | |
11 | S POP=0 | |
12 | S NNIND=" " | |
13 | D GETCLMS Q:POP | |
14 | D FCREATE | |
15 | D WBADVID | |
16 | K ^CHMZHO LD(NCPDP_" RKN_835OUT ") | |
17 | I NNIND'= 1 Q ;1.0 I S THE INIT IAL VERSIO N (HIPAA R eady LLC)W ill quit o ut if ther e are no n on-network claims 7/ 31/06 JPN | |
18 | ;1.0 IS T HE INITIAL VERSION ( HIPAA Read y LLC) thi s will now run for N on-Network and produ ce a Non-N etwork fil e 7/31/06 JPN | |
19 | S NCPDP=" NCPDP_NON" | |
20 | D FCREATE | |
21 | D WBADVID | |
22 | K ^CHMZHO LD(NCPDP_" RKN_835OUT ") | |
23 | ;1.0 IS T HE INITIAL VERSION ( HIPAA Read y LLC) end of modifi cations 7/ 31/06 JPN | |
24 | Q | |
25 | ; | |
26 | RERUN ; | |
27 | ;S POP=0 | |
28 | ;D GETFIL E Q:POP | |
29 | ;1.0 IS T HE INITIAL VERSION ( HIPAA Read y LLC)NOT SURE THIS IS USED BU T CODING T O ASK FOR NETWORK OR NON-NETWO RK RERUN 7 /31/06 | |
30 | R "RERUN FOR NETWOR K ""NET"" OR NON-NET WORK ""NON "":",NET | |
31 | I NET="NE T" S NCPDP ="NCPDP_NE T" | |
32 | I NET="NO N" S NCPDP ="NCPDP_NO N" | |
33 | S FILEI=1 37 | |
34 | D FCREATE | |
35 | Q | |
36 | GETFILE ; | |
37 | Q | |
38 | GETCLMS ;G ets claims from CHME DI file wi th a statu s of "NEED S 835 SENT " and | |
39 | ;sets a n ew file nu mber to it . This fil e is then used to cr eate | |
40 | ;EDI 835 files. | |
41 | ;Check to see if cu rrent 835 file gener ation is i nprogress | |
42 | I $D(^CHM EDIF("C",0 )) S POP=1 Q | |
43 | I '$D(^CH MEDI("D",0 )) S POP=1 Q ; Quit if no cla ims need s ent | |
44 | ;Get new file numbe r | |
45 | L ^CHMEDI F(0) | |
46 | S FILEI=$ P(^CHMEDIF (0),"^",3) S:'FILEI FILEI=0 | |
47 | S FILEI=F ILEI+1 | |
48 | S $P(^CHM EDIF(0),"^ ",3)=FILEI ,$P(^CHMED IF(0),"^", 4)=FILEI L | |
49 | D NOW^%DT C | |
50 | S ^CHMEDI F("B",%,FI LEI)="" | |
51 | S $P(^CHM EDIF(FILEI ,0),"^",1) =% | |
52 | ;set stat us to inpr ogrss and set x-ref | |
53 | S $P(^CHM EDIF(FILEI ,0),"^",2) =0 | |
54 | S ^CHMEDI F("C",0,FI LEI)="" | |
55 | ; | |
56 | S NCPDP=" NCPDP_NET" ;1.0 I S THE INIT IAL VERSIO N (HIPAA R eady LLC)a dded for n etwork/non -network 7 /31/06 JPN | |
57 | ; | |
58 | ;Set clai ms to new file numbe r | |
59 | TEST K ^CH MZHOLD(NCP DP_"RKN_83 5OUT") | |
60 | S I=0 F S I=$O(^CH MEDI("D",0 ,I)) Q:'I D | |
61 | .;RKN 05/ 17/2004 ch eck for ve ndor id pt (VENI) | |
62 | .;in $P(^ CHMEDI(I,0 ),"^",5) & $P(CHMPAY (CLMI,0)," ^",3) | |
63 | .;and upd ate both f rom $P(CHM IMAGE(PDI, "P-VEN",J, 0),"^",1) | |
64 | .K XRKNCL MPT,XRKNPD I,XRKNJVAL ,XRKNJVAL, XRKNVID | |
65 | .D NOW^%D TC S CHCDT =% | |
66 | .S XRKNCL MPT=$P(^CH MEDI(I,1,1 ,0),"^",1) | |
67 | .S X1=XRK NCLMPT D P ROGTYP^CHF CD001 | |
68 | .S CHEFTC K="" | |
69 | .S:$D(@(G LPAY_"XRKN CLMPT,7)") ) CHEFTCK= $P(@(GLPAY _"XRKNCLMP T,7)"),"^" ,7) | |
70 | .I $P(NCP DP,"_",2)= "NET" S CH EFTCK="" ; 1.0 IS THE INITIAL V ERSION (HI PAA Ready LLC) added to not ge t EFT info r for netw ork claims | |
71 | .S XRKNPD I=$P(^CHMP AY(XRKNCLM PT,"PDI",1 ,0),"^",1) | |
72 | .S XRKNJV AL=0 | |
73 | .I ($P(^C HMEDI(I,0) ,"^",5)="" )!($P(^CHM PAY(XRKNCL MPT,0),"^" ,3)="") D CKVID | |
74 | .I XRKNJV AL="" K XR KNCLMPT,XR KNPDI,XRKN JVAL,XRKNJ VAL,XRKNVI D Q | |
75 | .I $D(XRK NVID) I XR KNVID="" K XRKNCLMPT ,XRKNPDI,X RKNJVAL,XR KNJVAL,XRK NVID Q | |
76 | .I '$D(XR KNVID) S X RKNVID=$P( ^CHMEDI(I, 0),"^",5) | |
77 | .I CHEFTC K=1 I '$D( ^CHMVEN(XR KNVID,3)) D Q ;NO EFT INFO | |
78 | ..S ^CHMZ HOLD(NCPDP _"RKN_835O UT",XRKNPD I)=XRKNPDI _"^"_XRKNC LMPT_"^"_I _"^"_XRKNJ VAL_"^"_FI LEI_"^"_CH CDT ;AEB 8/3/2005 | |
79 | ..S XRKNV ID="" | |
80 | ..Q | |
81 | .I CHEFTC K=1 I $D(^ CHMVEN(XRK NVID,3)) D | |
82 | ..;Q:'$L( ^CHMVEN(XR KNVID,3)) ;SKD, 7- 31-05 TO F IX THE ERR OR IN THE ERROR TRAP ON 7-31-0 5 comment off on 1/ 3/2006 by AEB | |
83 | ..I ^CHMV EN(XRKNVID ,3)="" D Q ;AEB 1/ 3/2006 | |
84 | ...S ^CHM ZHOLD(NCPD P_"RKN_835 OUT",XRKNP DI)=XRKNPD I_"^"_XRKN CLMPT_"^"_ I_"^"_XRKN JVAL_"^"_F ILEI_"^"_C HCDT ;AEB 1/3/2006 | |
85 | ...S XRKN VID="" ;A EB 1/3/200 6 | |
86 | ...Q ;AE B 1/3/2006 | |
87 | ..S VREC= ^CHMVEN(XR KNVID,3) | |
88 | ..F TMPI= 1,3 I $P(V REC,"^",TM PI)="" D Q | |
89 | ...S ^CHM ZHOLD(NCPD P_"RKN_835 OUT",XRKNP DI)=XRKNPD I_"^"_XRKN CLMPT_"^"_ I_"^"_XRKN JVAL_"^"_F ILEI_"^"_C HCDT ;AEB 8/3/2005 | |
90 | ...S XRKN VID="" | |
91 | ...Q | |
92 | .I $D(XRK NVID) I XR KNVID="" K XRKNCLMPT ,XRKNPDI,X RKNJVAL,XR KNJVAL,XRK NVID Q ;S TOP IF NO EFT INFO | |
93 | .K XRKNCL MPT,XRKNPD I,XRKNJVAL ,XRKNJVAL, XRKNVID | |
94 | .;1.0 IS THE INITIA L VERSION (HIPAA Rea dy LLC)ADD ED HERE TO ONLY GET PHARMACY C LAIMS MDMT RX 7/31/06 JPN | |
95 | .N J,CI,T PID,N1,X1, P1,CHXI,CM XR,NET,NNI ND | |
96 | .S J=1 | |
97 | .S (CMXI, CMXR,CMXK, N1,P1,NET, NNIND)="" | |
98 | .S (N1,X1 ,P1)=0 | |
99 | .S CI=$P( $G(^CHMEDI (I,1,J,0)) ,"^",1) | |
100 | .S TPID=0 S TPID=$O (^CHMPAY(C I,"ZEMC",T PID)) Q:TP ID="" | |
101 | .Q:TPID'= "MDMTRX" ; Will need to add th is to CHED IF1 for MM IACH!ENV | |
102 | .;1.0 IS THE INITIA L VERSION (HIPAA Rea dy LLC)Bel ow added f or network /non-netwo rk 7/31/06 JPN | |
103 | .S X1=0 S X1=$O(^CH MPAY(CI,"Z EMC",TPID, X1)) Q:X1= "" | |
104 | .S N1=$G( ^CHMPAY(CI ,"ZEMC",TP ID,X1)) | |
105 | .S P1=$P( N1,"^",1) | |
106 | .S CMXI=$ P(P1,"*",1 ) | |
107 | .S CMXR=$ P(P1,"*",2 ) | |
108 | .S CMXK=$ P(P1,"*",3 ) | |
109 | .S NET=$P (^CHMXRX(C MXI,100,CM XR,100,CMX K,1),"^",1 6) | |
110 | .; THE NE XT 2 LINES ARE NEEDE D TO MAKE SURE THE P ROGRAM DOE SNT CRASH | |
111 | .; WHEN R ESPONSES A RE RECEIVE D FROM AAC FOR CLAIM S PROCESSE D BEFORE N CPDP GO LI VE | |
112 | .I NET="" S NET="Y" ;THIS LINE SHOUL D BE TAKE OUT AFTER 10/15/2006 | |
113 | .I NET=" " S NET="Y " ;THIS LINE SHOUL D BE TAKEN OUT AFTER 10/15/200 6 | |
114 | .S NET=$S (NET="Y":" NET",NET=" N":"NON") | |
115 | .I NET="N ON" S NNIN D=1 | |
116 | .;S NET=" NET" | |
117 | .;I NET=" N" S NET=" NON" | |
118 | .;1.0 IS THE INITIA L VERSION (HIPAA Rea dy LLC)END OF MODIFI CATIONS 7/ 31/06 JPN | |
119 | .;set the file numb er and x-r ef | |
120 | .S $P(^CH MEDI(I,0), "^",6)=FIL EI | |
121 | .S ^CHMED I("G",FILE I,I,NET)=" " | |
122 | .;set sta tus to "83 5 sent", k ill old x- ref, and s et new x-r ef | |
123 | .S $P(^CH MEDI(I,0), "^",2)=1 | |
124 | .S ^CHMED I("D",1,I) ="" | |
125 | .K ^CHMED I("D",0,I) | |
126 | Q | |
127 | ; | |
128 | CKVID S XR KNJVAL=$O( ^CHMIMAGE( XRKNPDI,"P -VEN",XRKN JVAL)) | |
129 | ;followin g line wri tes out mi ssing vend or's | |
130 | I XRKNJVA L="" S ^CH MZHOLD(NCP DP_"RKN_83 5OUT",XRKN PDI)=XRKNP DI_"^"_XRK NCLMPT_"^" _I_"^"_XRK NJVAL_"^"_ FILEI_"^"_ % Q ;AEB 8/3/2005 | |
131 | ;followin g line pic kups missi ng vendor' s from ima ge file | |
132 | S XRKNVID =$P(^CHMIM AGE(XRKNPD I,"P-VEN", XRKNJVAL,0 ),"^",1) | |
133 | I XRKNVID ="" G CKVI D | |
134 | S $P(^CHM EDI(I,0)," ^",5)=XRKN VID | |
135 | S $P(^CHM PAY(XRKNCL MPT,0),"^" ,3)=XRKNVI D | |
136 | I CHEFTCK =1 I '$D(^ CHMVEN(XRK NVID,3)) D Q ;NO E FT INFO | |
137 | .S ^CHMZH OLD(NCPDP_ "RKN_835OU T",XRKNPDI )=XRKNPDI_ "^"_XRKNCL MPT_"^"_I_ "^"_XRKNJV AL_"^"_FIL EI_"^"_% ;AEB 8/3/ 2005 | |
138 | .S XRKNVI D="" | |
139 | .Q | |
140 | S VREC=^C HMVEN(XRKN VID,3) | |
141 | I CHEFTCK =1 F TMPI= 1,3 I $P(V REC,"^",TM PI)="" D Q | |
142 | .S ^CHMZH OLD(NCPDP_ "RKN_835OU T",XRKNPDI )=XRKNPDI_ "^"_XRKNCL MPT_"^"_I_ "^"_XRKNJV AL_"^"_FIL EI_"^"_% ;AEB 8/3/ 2005 | |
143 | .S XRKNVI D="" | |
144 | Q | |
145 | ; | |
146 | FCREATE ; | |
147 | D SORT | |
148 | ;S IO="HA C_HFS$:[SC R.000000]8 35_"_FILEI _".TXT" | |
149 | ;S FIO="H AC_HFS$:[X 12OCR.IN]" _NCPDP_"83 5_"_FILEI_ ".TXT" | |
150 | ;1.0 IS T HE INITIAL VERSION ( HIPAA Read y LLC) Cha nged path of output file 7/31/ 06 JPN | |
151 | S FIO="HA C_HFS$:[X1 2OCR.IN]"_ NCPDP_"835 _"_FILEI_" .TXT" | |
152 | ;S FIO="H ACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG .WEBMD.835 _EXTRACT]8 35_"_FILEI _"_.TXT" | |
153 | O FIO:"NW S" | |
154 | D FMSLOOP | |
155 | C FIO | |
156 | Q | |
157 | SORT ; Sor t FMS_ID's by payor and load i nto tmp gl obal | |
158 | N I,J,CHP ID,CI,NNET | |
159 | K ^TMP($J ,NCPDP,"ED I-835") | |
160 | S I=0,NNE T="" | |
161 | F S I=$O (^CHMEDI(" G",FILEI,I )) Q:'I D | |
162 | .S NNET=$ O(^CHMEDI( "G",FILEI, I,NNET)) | |
163 | .I $P(NCP DP,"_",2)' =NNET Q ;1.0 IS TH E INITIAL VERSION (H IPAA Ready LLC)Added for netwo rk.non-net work 7/31/ 06 JPN | |
164 | .S CHPID= "" | |
165 | .S J=0 | |
166 | .F S J=$ O(^CHMEDI( I,1,J)) Q: J="" Q:CH PID]"" D | |
167 | ..S CI=$P ($G(^CHMED I(I,1,J,0) ),"^",1) | |
168 | ..S CHPID =$$CHPID^C HRXIFU1(CI ) | |
169 | ..S CICMP DT="" S:$D (^CHMPAY(C I,0)) CICM PDT=$P(^(0 ),"^",25) Q:CICMPDT= "" | |
170 | ..I CICMP DT<3031016 S ^CHMZHO LD("835_PR E-HIPAA_CL M",CI,FILE I,I)="" | |
171 | .I CHPID] "" S ^TMP( $J,NCPDP," EDI-835",C HPID,I)="" | |
172 | .S NNET=" " | |
173 | Q | |
174 | FMSLOOP ; | |
175 | N CHPID,F MSI,I,J | |
176 | K ^TMP($J ,NCPDP,"ED I_CREATE") | |
177 | S CHPID=" " | |
178 | F S CHPI D=$O(^TMP( $J,NCPDP," EDI-835",C HPID)) Q:C HPID="" D | |
179 | .S FMSI=" ",STSEQ=0 | |
180 | .F S FMS I=$O(^TMP( $J,NCPDP," EDI-835",C HPID,FMSI) ) Q:FMSI=" " D | |
181 | ..Q:'$D(^ CHMEDI(FMS I,1)) K ^ TMP($J,NCP DP,"EDI_CR EATE") | |
182 | ..S NFILE =CHPID_"_" _$P(NCPDP, "_",2)_"_" _FILEI_".8 35" | |
183 | ..S FMSID =$P(^CHMED I(FMSI,0), "^",1) | |
184 | ..S VENI= $P(^CHMEDI (FMSI,0)," ^",5) | |
185 | ..S PLB(1 )=0 ;USED TO SET PL B ADJUSTME NT IF NEED ED | |
186 | ..;get fi rst clm in fms-id to get clear ing house and payer_ id | |
187 | ..;the fi rst clm sh ould be sa me for all clms for the fms_id assuming | |
188 | ..;that t he fms sor t was done correctly . So firs t clm use used to ge t | |
189 | ..;fms le vel data. | |
190 | ..S J=0 S J=$O(^CHM EDI(FMSI,1 ,J)) Q:J=" " | |
191 | ..S CI=$P ($G(^CHMED I(FMSI,1,J ,0)),"^",1 ) | |
192 | ..D CLM^C HEDIFU2(CI ) | |
193 | ..S:VENI= "" VENI=$P (CLMLVL(1) ,"^",9) | |
194 | ..S STSEQ =STSEQ+1 | |
195 | ..D HDR | |
196 | ..D BPR | |
197 | ..D TRN | |
198 | ..D CLM^C HRXDIF2 ; Claim loop 1.0 IS TH E INITIAL VERSION (H IPAA Ready LLC)will call new r outine CHM XDIF2 7/31 /06 JPN | |
199 | ..D WRT ;WRIT TRAN SACTION TO FILE | |
200 | .Q | |
201 | Q | |
202 | HDR ;HDR s egment | |
203 | S INHDR=" 00000001" | |
204 | S GRPCTNR ="1" | |
205 | ;S ^TMP($ J,"EDI_CRE ATE","HDR" ,0)=NFILE_ "^"_STSEQ_ "^"_INHDR_ "^"_GRPCTN R_"^"_"0"_ "^"_$$PID^ CHEDIFU1(C I)_"^"_$$P ROVID^CHED IFU1(VENI) _"^"_$$CHI D^CHEDIFU1 (CI)_"^"_" P"_"^"_"NE W" | |
206 | ;1.0 IS T HE INITIAL VERSION ( HIPAA Read y LLC) Add ed new seg ment to ge t Payer Na me 7/31/06 JPN | |
207 | S ^TMP($J ,NCPDP,"ED I_CREATE", "HDR",0)=N FILE_"^"_S TSEQ_"^"_I NHDR_"^"_G RPCTNR_"^" _"0"_"^"_$ $PID^CHRXI FU1(CI)_"^ "_$$PROVID ^CHRXIFU1( VENI)_"^"_ $$CHID^CHR XIFU1(CI)_ "^"_"P"_"^ "_"NEW"_"^ "_$$PNAME^ CHRXIFU1(V ENI) | |
208 | Q | |
209 | BPR ;BPT s egment | |
210 | S (PMETHO D,PYRDFI,P YRACCT,PYR ID,RCVDFI, RCVACCT,PD ATE,CHKEFD T)="" | |
211 | S DT=$P(C LMLVL(1)," ^",4) | |
212 | S PAMT=0, PMETHOD="N ON" | |
213 | S PYRID=" 1"_$E($P(^ CHMXTP(3,0 ),"^",2),1 ,9) | |
214 | S PAMT=+$ P(^CHMEDI( FMSI,0),"^ ",4) | |
215 | S PMETHOD =$P(CLMLVL (2),"^",10 ) | |
216 | S:PMETHOD ="" PMETHO D="NON" | |
217 | I PMETHOD ="ACH" D | |
218 | .S PYRDFI =111036183 | |
219 | .S PYRACC T=36001200 0 | |
220 | .S PYRID= "1"_$E($P( ^CHMXTP(3, 0),"^",2), 1,9) | |
221 | .S RCVDFI =$P($G(^CH MVEN(VENI, 3)),"^",1) | |
222 | .S RCVACC T=$P($G(^C HMVEN(VENI ,3)),"^",3 ) | |
223 | .S CHKEFD T=$$DTOUT^ CHRXIFU1($ P(CLMLVL(1 ),"^",4)) | |
224 | I CHKEFDT ="" D | |
225 | .;S CHKEF DT=$$FMTE^ XLFDT(DT," 5D") | |
226 | .S CHKEFD T=$$DTOUT^ CHRXIFU1($ P(CLMLVL(1 ),"^",4)) | |
227 | .;S CKMON TH=$P(CHKE FDT,"/",1) | |
228 | .;S CKDAY =$P(CHKEFD T,"/",2) | |
229 | .;F I=1:1 :2-$L(CKMO NTH) S CKM ONTH="0"_C KMONTH | |
230 | .;F I=1:1 :2-$L(CKDA Y) S CKDAY ="0"_CKDAY | |
231 | .;S CHKEF DT=$P(CHKE FDT,"/",3) _CKMONTH_C KDAY | |
232 | S ^TMP($J ,NCPDP,"ED I_CREATE", "BPR",0)=N FILE_"^"_S TSEQ_"^"_P AMT_"^"_PM ETHOD_"^"_ PYRDFI_"^" _PYRACCT_" ^"_PYRID_" ^"_RCVDFI_ "^"_RCVACC T_"^"_CHKE FDT | |
233 | Q | |
234 | TRN ;TRN s egment | |
235 | ; | |
236 | S ^TMP($J ,NCPDP,"ED I_CREATE", "TRN",0)=N FILE_"^"_S TSEQ_"^"_F MSID_"^"_P YRID_"^"_$ $DTOUT^CHR XIFU1($P(C LMLVL(1)," ^",4)) | |
237 | Q | |
238 | PLB ;PLB s egment | |
239 | S (PLBPTI D,PLBENDFY ,PLBADJCD, PLBADAMT,P LBRSNCD)=" " | |
240 | S PLBPTID =$P($G(^CH MVEN(VENI, 0)),"^",3) | |
241 | S PRENDFY =$$FMTE^XL FDT(DT,"5D ") ;MUST BE DEC 31 OF CURRENT YEAR | |
242 | S PLBENDF Y=$P(PREND FY,"/",3)_ "1231" | |
243 | S PLBRSNC D="L6" ;H ARD CODE T O 'L6' | |
244 | S PLBADJI D=FMSID ; HAC FMS ID NUMBER | |
245 | ;IF CLAIM IS UNDER 1.00 = PAI D AMT ELSE 0 | |
246 | S ^TMP($J ,NCPDP,"ED I_CREATE", "PLB",0)=N FILE_"^"_S TSEQ_"^"_P LBPTID_"^" _PLBENDFY_ "^"_PLBRSN CD_"^"_PLB ADJID_"^"_ PLBTOT | |
247 | Q | |
248 | ; | |
249 | ;/// MODU LE TO COPY FILE AND EMAIL UNKN OWN VENDOR S RKN 05/2 6/2004 /// | |
250 | WBADVID S XBADVID=0 | |
251 | I $P(NCPD P,"_",2)=" NET" Q ;1. 0 IS THE I NITIAL VER SION (HIPA A Ready LL C) added t o not get EFT infor for networ k claims | |
252 | ; | |
253 | COPFILE ;S X=$&ZLIB. %SUBMIT("H AC_HFS$:[D SMMANAG]WE B835.COM", "/NAME=WEB 835_JOB/NO PRINTER/US ER=HACCACH EMGR","835 _"_FILEI_" .TXT") | |
254 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG] WEB835.COM /NAME=WEB 835_JOB/NO PRINTER/US ER=HACCACH EMGR/PARAM ="_NCPDP_" 835_"_FILE I_".TXT") | |
255 | ;COMMENTE D OUT ABOV E LINE AS i AM GETTI NG -RMS-E- PRV, insuf ficient pr ivilege or file prot ection vio lation | |
256 | ; | |
257 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [KERMIT.WE BMD]WEB835 .COM /NAME =WEB835_JO B/NOPRINTE R/PARAM="_ NCPDP_"835 _"_FILEI_" .TXT") | |
258 | GBADVID S XBADVID=$O (^CHMZHOLD (NCPDP_"RK N_835OUT", XBADVID)) G:'XBADVID MMAUTO | |
259 | S XREC1(X BADVID)=^C HMZHOLD(NC PDP_"RKN_8 35OUT",XBA DVID),XPDI =$P(XREC1( XBADVID)," ^",1),XCLM PT=$P(XREC 1(XBADVID) ,"^",2),XI VAL=$P(XRE C1(XBADVID ),"^",3),X JVAL=$P(XR EC1(XBADVI D),"^",4), XFILEI=$P( XREC1(XBAD VID),"^",5 ),XDTTM=$P (XREC1(XBA DVID),"^", 6) | |
260 | S XCLMNUM =$P(^CHMPA Y(XCLMPT,0 ),"^",1) | |
261 | S XMAIL(X PDI)=XPDI_ "^"_XCLMNU M_"^"_XIVA L_"^"_XJVA L_"^"_XFIL EI_"^"_XDT TM | |
262 | G GBADVID | |
263 | MMAUTO D N OW^%DTC S VENCT=0 | |
264 | S CHNB=2, ZML(CHNB)= "",ZML(CHN B)=NCPDP_" 835_"_FILE I_".TXT"_" is on sha red drive Fs3big on ' DNS fs3'\WEBMD , ready to process!" ,CHNB=CHNB +1 | |
265 | S CHNB=CH NB+1,ZML(C HNB)="**** ********** ********** ********** ********** ********** ********** ********** *****" | |
266 | S CHNB=CH NB+2,ZML(C HNB)="",ZM L(CHNB)="U nknown Ven dor or mis sing EFT i nfo ...Cla ims not pr ocessed!", CHNB=CHNB+ 2,ZML(CHNB )=" " | |
267 | S XPDI=0 | |
268 | MBADV1 S X PDI=$O(XMA IL(XPDI)) G:'XPDI MB ADV2 | |
269 | S CHNB=CH NB+1,ZML(C HNB)="PDI = "_$P (XMAIL(XPD I),"^",1) | |
270 | S CHNB=CH NB+1,ZML(C HNB)="CLAI M NUMBER = "_$P( XMAIL(XPDI ),"^",2) | |
271 | S CHNB=CH NB+1,ZML(C HNB)="IVAL ..^CHMEDI( ""D"",0,I = "_$P(XMA IL(XPDI)," ^",3) | |
272 | S CHNB=CH NB+1,ZML(C HNB)="VEND OR ID..^CH MIMAGE(PDI ,""P-VEN"" = "_$P(X MAIL(XPDI) ,"^",4) | |
273 | S CHNB=CH NB+1,ZML(C HNB)="FILE I..$P(^CHM EDIF(0),"" ^"",3) = "_$P(XM AIL(XPDI), "^",5) | |
274 | S CHNB=CH NB+1,ZML(C HNB)="DATE & TIME RE CORDED = "_$P(XMAI L(XPDI),"^ ",6) | |
275 | S CHNB=CH NB+1,CHNB= CHNB+1,ZML (CHNB)="-- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -------" | |
276 | S VENCT=V ENCT+1 | |
277 | G MBADV1 | |
278 | MBADV2 S C HNB=CHNB+1 ,ZML(CHNB) ="TOTAL NU MBER OF VE NDORS TO C ORRECT "_V ENCT | |
279 | S XMDUZ=. 5 | |
280 | S XMY("
|
|
281 | S XMY("
|
|
282 | S XMY(" P I I ")="" | |
283 | S XMTEXT= "ZML(",XMS UB="835 Un known Vend ors or Mis sing EFT I nfo" | |
284 | D ^XMD | |
285 | ; | |
286 | K XREC1,X MAIL,XPDI, XCLMPT,XIV AL,XJVAL,X FILEI,XDTT M,X,XBADVI D,XMDUN,XM DUZ,XMZ,ZM L | |
287 | ; | |
288 | Q | |
289 | ;//////// ////////// ////////// ////////// ////////// /// | |
290 | ;BALANCE AND WRITE TO FILE | |
291 | WRT ; | |
292 | D SVCBAL | |
293 | D CLPBAL | |
294 | D BPRBAL | |
295 | D PLB | |
296 | I $D(^TMP ($J,NCPDP, "EDI_CREAT E","HDR",0 )) D ;WRI TE HDR | |
297 | .U FIO W "HDR^" | |
298 | .U FIO W ^TMP($J,NC PDP,"EDI_C REATE","HD R",0),! Q | |
299 | I $D(^TMP ($J,NCPDP, "EDI_CREAT E","BPR",0 )) D | |
300 | .U FIO W "BPR^" | |
301 | .U FIO W ^TMP($J,NC PDP,"EDI_C REATE","BP R",0),! Q | |
302 | I $D(^TMP ($J,NCPDP, "EDI_CREAT E","TRN",0 )) D | |
303 | .U FIO W "TRN^" | |
304 | .U FIO W ^TMP($J,NC PDP,"EDI_C REATE","TR N",0),! Q | |
305 | I $D(^TMP ($J,NCPDP, "EDI_CREAT E","CLP")) D | |
306 | .S TI=0 F S TI=$O( ^TMP($J,NC PDP,"EDI_C REATE","CL P",TI)) Q: 'TI D | |
307 | ..U FIO W "CLP^" | |
308 | ..U FIO W ^TMP($J,N CPDP,"EDI_ CREATE","C LP",TI),! | |
309 | ..I $D(^T MP($J,NCPD P,"EDI_CRE ATE","CLPC AS",TI)) D | |
310 | ...S CLPC TI=0 F S CLPCTI=$O( ^TMP($J,NC PDP,"EDI_C REATE","CL PCAS",TI,C LPCTI)) Q: 'CLPCTI D | |
311 | ....U FIO W "CLPCAS ^" | |
312 | ....U FIO W ^TMP($J ,NCPDP,"ED I_CREATE", "CLPCAS",T I,CLPCTI), ! | |
313 | .... ;1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) Added co de to add CLP NAME a nd SSN 7/ 31/06 JPN | |
314 | ....I $D( ^TMP($J,NC PDP,"EDI_C REATE","CL PNAME",TI) ) D | |
315 | ..... U F IO W "CLPN AME^" | |
316 | ..... U F IO W ^TMP( $J,NCPDP," EDI_CREATE ","CLPNAME ",TI),! Q | |
317 | ....Q | |
318 | ..D SVCPT | |
319 | ...Q | |
320 | ..Q | |
321 | .Q | |
322 | I $D(^TMP ($J,NCPDP, "EDI_CREAT E","PLB",0 )) D | |
323 | .U FIO W "PLB^" | |
324 | .U FIO W ^TMP($J,NC PDP,"EDI_C REATE","PL B",0),! | |
325 | .Q | |
326 | Q | |
327 | SVCBAL ; | |
328 | S (SVCREC ,CASREC,SB AL)=0 | |
329 | Q:'$D(^TM P($J,NCPDP ,"EDI_CREA TE","SVC") ) | |
330 | S IVAL=0 F S IVAL= $O(^TMP($J ,NCPDP,"ED I_CREATE", "SVC",IVAL )) Q:'IVAL D | |
331 | .S JVAL=0 F S JVAL =$O(^TMP($ J,NCPDP,"E DI_CREATE" ,"SVC",IVA L,JVAL)) Q :'JVAL D | |
332 | ..S SVC=^ TMP($J,NCP DP,"EDI_CR EATE","SVC ",IVAL,JVA L) | |
333 | ..S $P(SV CREC,"^",1 3)=$P(SVCR EC,"^",13) +$P(SVC,"^ ",13) | |
334 | ..S $P(SV CREC,"^",1 4)=$P(SVCR EC,"^",14) +$P(SVC,"^ ",14) | |
335 | S IVAL=0 F S IVAL= $O(^TMP($J ,NCPDP,"ED I_CREATE", "SVCCAS",I VAL)) Q:'I VAL D | |
336 | .S JVAL=0 F S JVAL =$O(^TMP($ J,NCPDP,"E DI_CREATE" ,"SVCCAS", IVAL,JVAL) ) Q:'JVAL D | |
337 | ..S KVAL= 0 F S KVA L=$O(^TMP( $J,NCPDP," EDI_CREATE ","SVCCAS" ,IVAL,JVAL ,KVAL)) Q: 'KVAL D | |
338 | ...S SVCC AS=^TMP($J ,NCPDP,"ED I_CREATE", "SVCCAS",I VAL,JVAL,K VAL) | |
339 | ...S $P(C ASREC,"^", 8)=$P(CASR EC,"^",8)+ $P(SVCCAS, "^",8) | |
340 | ...S $P(C ASREC,"^", 10)=$P(CAS REC,"^",10 )+$P(SVCCA S,"^",10) | |
341 | ...S $P(C ASREC,"^", 12)=$P(CAS REC,"^",12 )+$P(SVCCA S,"^",12) | |
342 | ...S $P(C ASREC,"^", 14)=$P(CAS REC,"^",14 )+$P(SVCCA S,"^",14) | |
343 | ...S $P(C ASREC,"^", 16)=$P(CAS REC,"^",16 )+$P(SVCCA S,"^",16) | |
344 | ...S $P(C ASREC,"^", 18)=$P(CAS REC,"^",18 )+$P(SVCCA S,"^",18) | |
345 | ...Q | |
346 | ..Q | |
347 | .Q | |
348 | S CHGAMT= $P(SVCREC, "^",13),AL LAMT=$P(SV CREC,"^",1 4) | |
349 | S SBAL=CH GAMT-ALLAM T-$P(CASRE C,"^",8)-$ P(CASREC," ^",10)-$P( CASREC,"^" ,12)-$P(CA SREC,"^",1 4)-$P(CASR EC,"^",16) -$P(CASREC ,"^",18) | |
350 | I SBAL'=0 D ;SOMET HING?????? ?????????? ?????????? ???? | |
351 | .Q | |
352 | Q | |
353 | CLPBAL ; | |
354 | CLP01 S CL P=0 | |
355 | CLP02 S CL P=$O(^TMP( $J,NCPDP," EDI_CREATE ","CLP",CL P)) G:'CLP CLPEND | |
356 | G:'$D(^TM P($J,NCPDP ,"EDI_CREA TE","CLP", CLP)) CLP0 2 | |
357 | S (CASTOT ,SVCTOT,CL P04,CLP03, CBAL)=0 | |
358 | D CCAS | |
359 | D SCAS | |
360 | S CLP04=$ P(^TMP($J, NCPDP,"EDI _CREATE"," CLP",CLP), "^",10) | |
361 | S CLP03=$ P(^TMP($J, NCPDP,"EDI _CREATE"," CLP",CLP), "^",9) | |
362 | S CBAL=CL P03-CLP04- SVCTOT-CAS TOT | |
363 | ; | |
364 | I CBAL'=0 S PNUM=8 D S CBAL= 0 ;SOMETH ING?????? ;ADDED P NUM=8 RKN 02/13/2006 | |
365 | .D I $D( SKFLG) K S KFLG Q | |
366 | ..S CLMNM =$P(^TMP($ J,NCPDP,"E DI_CREATE" ,"CLP",CLP ),"^",12) S:CLMNM'=" " CLPPT=$O (^CHMPAY(" B",CLMNM,0 )) Q:'CLPP T | |
367 | ..I '$D(^ TMP($J,NCP DP,"EDI_CR EATE","CLP CAS",CLP)) I $P(^CHM PAY(CLPPT, 0),"^",7)= 1 I $P(^CH MPAY(CLPPT ,"COMMON") ,"^",8)'=" " D Q ;I F NO CLAIM LVL ADJ & TOS = INP ATIENT & D RG CLAIM LA38603 | |
368 | ...S TCLM ID=$P(^TMP ($J,NCPDP, "EDI_CREAT E","CLP",C LP),"^",3) | |
369 | ...S ^TMP ($J,NCPDP, "EDI_CREAT E","CLPCAS ",CLP,NWCC AS)=NFILE_ "^"_STSEQ_ "^"_TCLMID _"^"_CLMNM _"^"_"OA"_ "^"_23_"^" _CBAL_"^^^ ^^^^^^^" | |
370 | ...S SKFL G="" | |
371 | ...Q | |
372 | ..Q:'$D(^ TMP($J,NCP DP,"EDI_CR EATE","CLP CAS",CLP)) | |
373 | ..S NWCCA S=0 K SKFL G | |
374 | ..Q | |
375 | CLP03 ..S NWCCAS=$O( ^TMP($J,NC PDP,"EDI_C REATE","CL PCAS",CLP, NWCCAS)) Q :'NWCCAS | |
376 | ..I $P(^T MP($J,NCPD P,"EDI_CRE ATE","CLPC AS",CLP,NW CCAS),"^", 5)'="PI" G CLP03 | |
377 | ..S $P(^T MP($J,NCPD P,"EDI_CRE ATE","CLPC AS",CLP,NW CCAS),"^", 7)=$P(^TMP ($J,NCPDP, "EDI_CREAT E","CLPCAS ",CLP,NWCC AS),"^",7) +CBAL | |
378 | ..S SKFLG ="" | |
379 | ..Q | |
380 | .S NWCCAS =9999 | |
381 | .S NWCCAS =$O(^TMP($ J,NCPDP,"E DI_CREATE" ,"CLPCAS", CLP,NWCCAS ),-1) | |
382 | .S NWCCAS =NWCCAS+1 | |
383 | .S TCLMID =$P(^TMP($ J,NCPDP,"E DI_CREATE" ,"CLP",CLP ),"^",3) | |
384 | .S TCLNUM =$P(^TMP($ J,NCPDP,"E DI_CREATE" ,"CLP",CLP ),"^",12) | |
385 | .; | |
386 | .;XXXXXXX XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX XX | |
387 | .S RCNT=- 1 | |
388 | RK2 .;///S TART MODIF IED/ADDED CODE 02/13 /2006 RKN | |
389 | .;S ^TMP( $J,NCPDP," EDI_CREATE ","CLPCAS" ,CLP,NWCCA S)=NFILE_" ^"_STSEQ_" ^"_TCLMID_ "^"_TCLNUM _"^"_"PI"_ "^"_3_"^"_ CBAL_"^^^^ ^^^^^^" ; REMARKED O UT 02/13/2 006 RKN | |
390 | .S RCNT=$ O(^TMP($J, NCPDP,"EDI _CREATE"," CLPCAS",CL P,RCNT)) Q :'RCNT | |
391 | .; | |
392 | RK3 .;*** TEST FOR 6 OCCURANCE S, IF NOT 6 WRITTEN, THEN QUIT *** | |
393 | .I $D(^TM P($J,NCPDP ,"EDI_CREA TE","CLPCA S",CLP,1)) I $P(^TMP ($J,NCPDP, "EDI_CREAT E","CLPCAS ",CLP,1)," ^",5)="PI" I $P(^TMP ($J,NCPDP, "EDI_CREAT E","CLPCAS ",CLP,1)," ^",16)'="" Q | |
394 | .; | |
395 | RK4 .;**** CHECK FOR FIRST OCC URANCE *** * | |
396 | .I $D(^TM P($J,NCPDP ,"EDI_CREA TE","CLPCA S",CLP,RCN T)) I $P(^ TMP($J,NCP DP,"EDI_CR EATE","CLP CAS",CLP,R CNT),"^",5 )'="PI" I $P(^TMP($J ,NCPDP,"ED I_CREATE", "CLPCAS",C LP,1),"^", 5)'="PI" D G RK2 | |
397 | ..S ^TMP( $J,NCPDP," EDI_CREATE ","CLPCAS" ,CLP,1)=NF ILE_"^"_ST SEQ_"^"_TC LMID_"^"_T CLNUM_"^"_ "PI"_"^"_3 _"^"_CBAL_ "^^^^^^^^^ ^" Q | |
398 | .; | |
399 | RK5 .;**** CHECK FOR 2 THROUGH 6 OCCURAN CES **** | |
400 | .I $D(^TM P($J,NCPDP ,"EDI_CREA TE","CLPCA S",CLP,1)) I $P(^TMP ($J,NCPDP, "EDI_CREAT E","CLPCAS ",CLP,1)," ^",PNUM)=" " D S PNU M=PNUM+2 G RK2 | |
401 | ..S CBAL= $P(^TMP($J ,NCPDP,"ED I_CREATE", "CLPCAS",C LP,RCNT)," ^",7) S $P (^TMP($J,N CPDP,"EDI_ CREATE","C LPCAS",CLP ,1),"^",PN UM)="3" S $P(^TMP($J ,NCPDP,"ED I_CREATE", "CLPCAS",C LP,1),"^", PNUM+1)=CB AL K ^TMP( $J,NCPDP," EDI_CREATE ","CLPCAS" ,CLP,RCNT) Q | |
402 | .; | |
403 | .;///END MODIFIED/A DDED CODE 02/13/2006 RKN | |
404 | .;XXXXXXX XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX XXXXXXXXXX XX | |
405 | .; | |
406 | .Q | |
407 | G CLP02 | |
408 | ; | |
409 | ; | |
410 | ; | |
411 | CCAS S CCA S=0 | |
412 | CLP11 S CC AS=$O(^TMP ($J,NCPDP, "EDI_CREAT E","CLPCAS ",CLP,CCAS )) Q:'CCAS | |
413 | S CASREC= ^TMP($J,NC PDP,"EDI_C REATE","CL PCAS",CLP, CCAS) | |
414 | S CASTOT= CASTOT+$P( CASREC,"^" ,7)+$P(CAS REC,"^",9) +$P(CASREC ,"^",11) | |
415 | S CASTOT= CASTOT+$P( CASREC,"^" ,13)+$P(CA SREC,"^",1 5)+$P(CASR EC,"^",17) | |
416 | G CLP11 | |
417 | SCAS S SVC =0 | |
418 | CLP31 S SV C=$O(^TMP( $J,NCPDP," EDI_CREATE ","SVC",CL P,SVC)) Q: 'SVC | |
419 | G:'$D(^TM P($J,NCPDP ,"EDI_CREA TE","SVCCA S")) CLP31 | |
420 | S SVCCAS= 0 | |
421 | CLP51 S SV CCAS=$O(^T MP($J,NCPD P,"EDI_CRE ATE","SVCC AS",CLP,SV C,SVCCAS)) G:'SVCCAS CLP31 | |
422 | S SVCREC= ^TMP($J,NC PDP,"EDI_C REATE","SV CCAS",CLP, SVC,SVCCAS ) | |
423 | S SVCTOT= SVCTOT+$P( SVCREC,"^" ,8)+$P(SVC REC,"^",10 )+$P(SVCRE C,"^",12) | |
424 | S SVCTOT= SVCTOT+$P( SVCREC,"^" ,14)+$P(SV CREC,"^",1 6)+$P(SVCR EC,"^",18) | |
425 | G CLP51 | |
426 | CLPEND ; | |
427 | Q | |
428 | BPRBAL ; | |
429 | S CLP04TO T=0,PLBTOT =0 | |
430 | S BPR02=$ P(^TMP($J, NCPDP,"EDI _CREATE"," BPR",0),"^ ",3) | |
431 | S IVAL=0 F S IVAL= $O(^TMP($J ,NCPDP,"ED I_CREATE", "CLP",IVAL )) Q:'IVAL D | |
432 | .S CLP04T OT=CLP04TO T+$P(^TMP( $J,NCPDP," EDI_CREATE ","CLP",IV AL),"^",10 ) | |
433 | .Q | |
434 | S PLBTOT= CLP04TOT-B PR02 | |
435 | I PLBTOT' =0 D ;SOM ETHING???? ?????????? ?????????? ????? | |
436 | .Q | |
437 | Q | |
438 | SVCPT ;PRI NT SERVICE LINE, SER VICE LINE CAS AND SE RVICE LINE LQ | |
439 | I $D(^TMP ($J,NCPDP, "EDI_CREAT E","SVC",T I)) D | |
440 | .S TII=0 F S TII=$ O(^TMP($J, NCPDP,"EDI _CREATE"," SVC",TI,TI I)) Q:'TII D | |
441 | ..U FIO W "SVC^" | |
442 | ..U FIO W ^TMP($J,N CPDP,"EDI_ CREATE","S VC",TI,TII ),! | |
443 | ..I $D(^T MP($J,NCPD P,"EDI_CRE ATE","SVCC AS",TI,TII )) D | |
444 | ...S TIII =0 F S TI II=$O(^TMP ($J,NCPDP, "EDI_CREAT E","SVCCAS ",TI,TII,T III)) Q:'T III D | |
445 | ....U FIO W "SVCCAS ^" | |
446 | ....U FIO W ^TMP($J ,NCPDP,"ED I_CREATE", "SVCCAS",T I,TII,TIII ),! | |
447 | ....Q | |
448 | ..I $D(^T MP($J,NCPD P,"EDI_CRE ATE","SVCL Q",TI,TII) ) D | |
449 | ...U FIO W "SVCLQ^" | |
450 | ...U FIO W ^TMP($J, NCPDP,"EDI _CREATE"," SVCLQ",TI, TII),! | |
451 | ...Q | |
452 | ..Q | |
453 | .Q | |
454 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.