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 | CHPI010.m | Mon Nov 5 16:39:51 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHPI010.m | Fri Nov 9 03:45:17 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 1076 |
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 | CHPI010 ; PMK/PMK - PC PIE MAS K | |
2 | ;;1.0;CHP I;****;Jun 27, 2016; Build 9 | |
3 | ; | |
4 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
5 | ; Process es Claim r ows 1 thru 20 | |
6 | ; 1 - CL M_ROW | |
7 | ; 2 - CL M_TYPE | |
8 | ; 3 - CL M_ID | |
9 | ; 4 - CL M_REOPEN_I D | |
10 | ; 5 - CL M_EDI_ID | |
11 | ; 6 - CL M_LN_EDI_I D | |
12 | ; 7 - CL M_IS_EDI_M XCO | |
13 | ; 8 - CL M_PDI_NUM | |
14 | ; 9 - CL M_PDI_PROG | |
15 | ; 10 - CL M_STATUS | |
16 | ; 11 - CL M_CRT_DT | |
17 | ; 12 - CL M_COMP_DT | |
18 | ; 13 - CL M_VA_STATI ON | |
19 | ; 14 - CL M_LN_QTY_P AID | |
20 | ; 15 - CL M_MEDICAID _PAID_AMT | |
21 | ; 16 - CL M_LN_MEDIC AID_PAID_A MT | |
22 | ; 17 - CL M_REJ_CODE | |
23 | ; 18 - CL M_PCN | |
24 | ; 19 - CL M_TOB | |
25 | ; 20 - CL M_BILL_AMT | |
26 | ; | |
27 | ; ABBREVI ATIONS - S EE ROUTINE CHPIDRVR | |
28 | ; | |
29 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
30 | ; | |
31 | START(IEN, OPT) ; | |
32 | ; | |
33 | ; Number 1 | |
34 | ; CLM_ROW | |
35 | SET RETCO DE=$$CLMRO W(IEN,1,OP T) | |
36 | ; | |
37 | ; Number 2 | |
38 | ; CLM_TYP E | |
39 | SET RETCO DE=$$CLMTY PE(IEN,2,O PT) | |
40 | ; | |
41 | ; Number 3 | |
42 | ; CLM_ID | |
43 | SET RETCO DE=$$CLMID (IEN,3,OPT ) | |
44 | ; | |
45 | ; Number 4 | |
46 | ; CLM_REO PEN_ID | |
47 | SET RETCO DE=$$CLMRO PEN(IEN,4, OPT) | |
48 | ; | |
49 | ; Number 5 | |
50 | ; CLM_EDI _ID | |
51 | SET RETCO DE=$$CLMED IID(IEN,5, OPT) | |
52 | ; Number 6 | |
53 | ; | |
54 | ; CLM_LN_ EDI_ID | |
55 | ; SET RET CODE=$$CLM LNEDI(IEN, 6,OPT) | |
56 | ; | |
57 | ; Number 7 | |
58 | ; CLM_IS_ EDI_MXCO | |
59 | SET RETCO DE=$$CLMMX CO(IEN,7,O PT) | |
60 | ; | |
61 | ; Number 8 | |
62 | ; CLM_PDI _NUM | |
63 | SET RETCO DE=$$CLMPI DNM(IEN,8, OPT) | |
64 | ; | |
65 | ; Number 9 | |
66 | ; CLM_PDI _PROG | |
67 | SET RETCO DE=$$CLMPD IP(IEN,9,O PT) | |
68 | ; | |
69 | ; Number 10 | |
70 | ; CLM_STA TUS | |
71 | SET RETCO DE=$$CLMST AT(IEN,10, OPT) | |
72 | ; | |
73 | ; Number 11 | |
74 | ; CLM_CRT _DT | |
75 | SET RETCO DE=$$CLMCR TDT(IEN,11 ,OPT) | |
76 | ; | |
77 | ; Number 12 | |
78 | ; CLM_COM P_DATE | |
79 | SET RETCO DE=$$COMPD ATE(IEN,12 ,OPT) | |
80 | ; | |
81 | ; Number 13 | |
82 | ; CLM_VA_ STATION | |
83 | SET RETCO DE=$$VASTA T(IEN,13,O PT) | |
84 | ; | |
85 | ; Number 14 | |
86 | ; CLM_LN_ QTY_PAID | |
87 | ; SET RET CODE=$$QTY PAID(IEN,1 4,OPT) | |
88 | ; | |
89 | ; Number 15 | |
90 | ; CLM_MED ICAID_PAID _AMT | |
91 | SET RETCO DE=$$CLMPA ID(IEN,15, OPT) | |
92 | ; | |
93 | ; Number 16 | |
94 | ; CLM_LN_ MEDICAID_P AID_AMT | |
95 | ; SET RET CODE=$$LNP AID(IEN,16 ,OPT) | |
96 | ; | |
97 | ; Number 17 | |
98 | ; CLM_REJ _CODE | |
99 | SET RETCO DE=$$CLMRE JCD(IEN,17 ,OPT) | |
100 | ; | |
101 | ; Number 18 | |
102 | ; CLM_PCN | |
103 | SET RETCO DE=$$CLMPC N(IEN,18,O PT) | |
104 | ; | |
105 | ; Number 19 | |
106 | ; CLM_TOB | |
107 | SET RETCO DE=$$CLMTO B(IEN,19,O PT) | |
108 | ; | |
109 | ; Number 20 | |
110 | ; CLM_BIL L_AMT | |
111 | SET RETCO DE=$$CLMBI LAT(IEN,20 ,OPT) | |
112 | QUIT 1 | |
113 | ; | |
114 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
115 | ; 01 01 01 01 01 01 01 01 0 1 01 01 01 01 01 01 01 01 01 0 1 01 01 01 | |
116 | CLMROW(IEN ,PIECE,OPT ) ; CLAIM ROW | |
117 | ; | |
118 | ; The val ue for CLA IM ROW is derived fr om the OPT variable | |
119 | ; which i s passed i n. | |
120 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
121 | ; | |
122 | NEW RETCO DE,FIELD,V ALUE,X,ROW | |
123 | ; | |
124 | SET FIELD ="ROW" | |
125 | ; | |
126 | IF OPT'[" ,ROW=" SET VALUE="NO VALUE" | |
127 | IF OPT["R OW=" DO | |
128 | . SET X=$ F(OPT,",RO W=") | |
129 | . SET ROW =$E(OPT,X, $L(OPT)) | |
130 | . SET VAL UE=$P(ROW, ",",1) | |
131 | ; | |
132 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
133 | ; | |
134 | QUIT 1 | |
135 | ; | |
136 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
137 | ; 02 02 0 2 02 02 02 02 02 02 02 02 02 0 2 02 02 02 02 02 02 02 02 02 0 2 | |
138 | CLMTYPE(IE N,PIECE,OP T) ; TYPE OF CLAIM | |
139 | ; | |
140 | ; FILE #7 41000, FLD #.07 P741 002.05 $P (^CHMPAY(I EN,0),"^", 7) | |
141 | ; 1 INP ATIENT I PT | |
142 | ; 2 OUT PATIENT O PT | |
143 | ; 3 PHA RMACY R XT | |
144 | ; 4 DUR ABLE MEDIC AL D UR | |
145 | ; 5 DEN TAL D NT | |
146 | ; 6 TRA VEL T RV | |
147 | ; | |
148 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
149 | ; | |
150 | NEW RETCO DE,FIELD,V ALUE | |
151 | ; | |
152 | SET FIELD ="CLM_TYPE " | |
153 | ; | |
154 | SET VALUE =$P($G(CHP IARRAY("NO D0")),"^", 7) | |
155 | ; | |
156 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
157 | ; | |
158 | QUIT 1 | |
159 | ; | |
160 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
161 | ; 03 03 0 3 03 03 03 03 03 03 03 03 03 0 3 03 03 03 03 03 03 03 03 03 0 3 | |
162 | CLMID(IEN, PIECE,OPT) ; CLAIM I D | |
163 | ; | |
164 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
165 | ; | |
166 | NEW RETCO DE,FIELD,V ALUE | |
167 | ; | |
168 | SET FIELD ="CLM_ID" | |
169 | ; | |
170 | SET VALUE =$P($G(CHP IARRAY("NO D0")),"^", 1) | |
171 | ;SET VALU E=$ZCONVER T(VALUE,"U ") | |
172 | ; | |
173 | SET ^TMP( $J,"MISC", "CLM_ID")= VALUE ; USED IN CHPI020 #1 4 CLAIM CO MMENTS | |
174 | ; | |
175 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
176 | ; | |
177 | QUIT 1 | |
178 | ; | |
179 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
180 | ; 04 04 0 4 04 04 04 04 04 04 04 04 04 0 4 04 04 04 04 04 04 04 04 04 0 4 | |
181 | CLMROPEN(I EN,PIECE,O PT) ; CLAI M REOPEN I D | |
182 | ; | |
183 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
184 | ; | |
185 | NEW RETCO DE,FIELD,V ALUE,PTR,F TIME,NIEN, CLAIMNO | |
186 | ; | |
187 | SET FIELD ="CLM_REOP EN_ID" | |
188 | SET VALUE ="" | |
189 | ; | |
190 | SET FTIME =1,PTR=IEN | |
191 | ; | |
192 | ;-------- ---------- ---------- ---------- ---------- ----- | |
193 | AGAIN ; Ma nual Loop | |
194 | ;-------- ---------- ---------- ---------- ---------- ----- | |
195 | SET PTR=$ P($G(^CHMP AY(PTR,6)) ,"^",2) | |
196 | IF PTR="" GOTO OUT | |
197 | SET CLAIM NO=$P($G(^ CHMPAY(PTR ,0)),"^",1 ) | |
198 | IF FTIME SET VALUE= CLAIMNO | |
199 | IF 'FTIME SET VALUE =VALUE_"~" _CLAIMNO | |
200 | SET FTIME =0 | |
201 | GOTO AGAI N | |
202 | OUT ; | |
203 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
204 | ; | |
205 | QUIT 1 | |
206 | ; | |
207 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
208 | ; 05 05 0 5 05 05 05 05 05 05 05 05 05 0 5 05 05 05 05 05 05 05 05 05 0 5 | |
209 | CLMEDIID(I EN,PIECE,O PT) ; CLAI M EDI ID | |
210 | ; | |
211 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
212 | ; | |
213 | NEW RETCO DE,FIELD,V ALUE | |
214 | NEW PDI,P CNNUM,BATC H,EDIPTR,E DIDATA,EDI ID,DATA,CL MID,EDIPTR 4 | |
215 | ; | |
216 | SET FIELD ="CLM_EDI_ ID" | |
217 | ; | |
218 | SET VALUE ="" | |
219 | SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4) | |
220 | SET PDI=$ P(VAR,"*", 1) | |
221 | IF PDI="" GOTO EXIT | |
222 | ; | |
223 | SET PCNNU M="" | |
224 | FOR DO Q:PCNNUM=" " | |
225 | . SET PCN NUM=$O(^CH MXCLE("PDI ",PDI,PCNN UM)) Q:PCN NUM="" | |
226 | . SET BAT CH="" | |
227 | . FOR DO Q:BATCH= "" | |
228 | . . SET B ATCH=$O(^C HMXCLE("PD I",PDI,PCN NUM,BATCH) ) Q:BATCH= "" | |
229 | . . SET E DIPTR="" | |
230 | . . FOR DO Q:EDIP TR="" | |
231 | . . . SET EDIPTR=$O (^CHMXCLE( "PDI",PDI, PCNNUM,BAT CH,EDIPTR) ) Q:EDIPTR ="" | |
232 | . . . SET EDIPTR4=$ P(EDIPTR," *",4) | |
233 | . . . IF EDIPTR4'=" " DO | |
234 | . . . . S ET DATA=$G (^CHMXCLE( EDIPTR4,0) ) | |
235 | . . . . I F DATA'="" DO | |
236 | . . . . . SET CLMID =$P(DATA," ^",14) | |
237 | . . . . . SET VALUE =CLMID | |
238 | EXIT ; | |
239 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
240 | ; | |
241 | QUIT 1 | |
242 | ; | |
243 | ; ******* ********** ********** ********** ********** ********** ********* | |
244 | ; 06 06 0 6 06 06 06 06 06 06 06 06 06 0 6 06 06 06 06 06 06 06 06 06 0 6 | |
245 | CLMLNEDI(I EN,PIECE,O PT) ; CLAI M LINE EDI ID | |
246 | ; | |
247 | ; ******* ********** ********** ********** ********** ********** ********* | |
248 | ; | |
249 | NEW RETCO DE,FIELD,V ALUE,CNT,A RRAY,FRSTT IME,D1,X | |
250 | ; | |
251 | SET FIELD ="CLM_LN_E DI_ID" | |
252 | ; | |
253 | SET VALUE ="" | |
254 | ; | |
255 | SET CNT=0 | |
256 | K ARRAY | |
257 | SET FRSTT IME=1 | |
258 | SET D1="" FOR DO Q:D1="" | |
259 | . SET D1= $O(^CHMPAY (IEN,"OPT- PROC",D1)) Q:D1="" | |
260 | . SET X=$ P($G(^CHMP AY(IEN,"OP T-PROC",D1 ,0)),"^",1 8) ;Ge t X | |
261 | . IF X'=" " DO | |
262 | . . IF '$ D(ARRAY(X) ) DO | |
263 | . . . SET ARRAY(X)= "" | |
264 | . . . IF 'FRSTTIME SET VALUE= VALUE_"~"_ X ;A ppend X to VALUE | |
265 | . . . IF FRSTTIME S ET VALUE=X ,FRSTTIME= 0 ;I nit VALUE to X | |
266 | ; | |
267 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
268 | K ARRAY | |
269 | ; | |
270 | QUIT 1 | |
271 | ; | |
272 | ; ******* ********** ********** ********** ********** ********** ********* | |
273 | ; 07 07 0 7 07 07 07 07 07 07 07 07 07 0 7 07 07 07 07 07 07 07 07 07 0 7 | |
274 | CLMMXCO(IE N,PIECE,OP T) ; CLAIM IS EDI MX CO | |
275 | ; | |
276 | ; ******* ********** ********** ********** ********** ********** ********* | |
277 | ; | |
278 | NEW RETCO DE,FIELD,V ALUE,CNT,A RRAY,FRSTT IME,D1,X,P DI,HIT | |
279 | ; | |
280 | SET FIELD ="CLM_IS_E DI_MXCO" | |
281 | ; | |
282 | SET VALUE ="" | |
283 | SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4) | |
284 | SET PDI=$ P(VAR,"*", 1) | |
285 | ; | |
286 | IF PDI'=" " SET VALU E=$P($G(^C HMIMAGE(PD I,"BUFF")) ,"^",1) | |
287 | IF VALUE= "MEDCOB" S ET VALUE=" Y" | |
288 | IF VALUE' ="Y" SET V ALUE="N" | |
289 | ; | |
290 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
291 | ; | |
292 | QUIT 1 | |
293 | ; | |
294 | ; ******* ********** ********** ********** ********** ********** ********* | |
295 | ; 08 08 0 8 08 08 08 08 08 08 08 08 08 0 8 08 08 08 08 08 08 08 08 08 0 8 | |
296 | CLMPIDNM(I EN,PIECE,O PT) ; CLAI M PDI NUM | |
297 | ; | |
298 | ; ******* ********** ********** ********** ********** ********** ********* | |
299 | ; | |
300 | NEW RETCO DE,FIELD,V ALUE,FRSTT IME,D1,X,P DI,HIT | |
301 | ; | |
302 | SET FIELD ="CLM_PDI_ NUM" | |
303 | ; | |
304 | SET VALUE ="" | |
305 | SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4) | |
306 | SET VALUE =$P(VAR,"* ",1) | |
307 | ; | |
308 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
309 | ; | |
310 | QUIT 1 | |
311 | ; | |
312 | ; ******* ********** ********** ********** ********** ********** ********* | |
313 | ; 09 09 0 9 09 09 09 09 09 09 09 09 09 0 9 09 09 09 09 09 09 09 09 09 0 9 | |
314 | CLMPDIP(IE N,PIECE,OP T) ; CLAIM PDI PROGR AM | |
315 | ; | |
316 | ; ******* ********** ********** ********** ********** ********** ********* | |
317 | ; | |
318 | NEW RETCO DE,FIELD,V ALUE,X,FRS TTIME,D1,P DI,HIT | |
319 | ; | |
320 | SET FIELD ="CLM_PDI_ PROG" | |
321 | ; | |
322 | SET VALUE ="" | |
323 | SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4) | |
324 | SET PDI=$ P(VAR,"*", 1) | |
325 | ; | |
326 | SET VALUE =$E(PDI,8, 9) | |
327 | ; | |
328 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
329 | ; | |
330 | QUIT 1 | |
331 | ; | |
332 | ; ******* ********** ********** ********** ********** ********** ********* | |
333 | ; 10 10 1 0 10 10 10 10 10 10 10 10 10 1 0 10 10 10 10 10 10 10 10 10 1 0 | |
334 | CLMSTAT(IE N,PIECE,OP T) ; CLAIM STATUS | |
335 | ; | |
336 | ; ******* ********** ********** ********** ********** ********** ********* | |
337 | ; | |
338 | NEW RETCO DE,FIELD,V ALLUE | |
339 | ; | |
340 | SET FIELD ="CLM_STAT US" | |
341 | ; | |
342 | SET VALUE =$P($G(CHP IARRAY("NO D0")),"^", 2) | |
343 | ; | |
344 | IF VALUE= 0 SET VALU E="REJECTE D" | |
345 | IF VALUE= 1 SET VALU E="IN PROC ESS" | |
346 | IF VALUE= 2 SET VALU E="PAYMENT REQUESTED " | |
347 | IF VALUE= 3 SET VALU E="EOB REQ UESTED" | |
348 | IF VALUE= 4 SET VALU E="COMPLET E" | |
349 | IF VALUE= 5 SET VALU E="ADJUDIC ATED" | |
350 | IF VALUE= 6 SET VALU E="PAYMENT REJECTED CAPPS/CALM " | |
351 | IF VALUE= 7 SET VALU E="ADMINIS TRATIVE SU SPENSE" | |
352 | IF VALUE= 8 SET VALU E="PAYMENT APPROVED CAPPS/CALM " | |
353 | IF VALUE= 9 SET VALU E="MANUALL Y PROCESSE D" | |
354 | IF VALUE= 10 SET VAL UE="DELETE D" | |
355 | ; | |
356 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
357 | ; | |
358 | QUIT 1 | |
359 | ; | |
360 | ; ******* ********** ********** ********** ********** ********** ********* | |
361 | ; 11 11 1 1 11 11 11 11 11 11 11 11 11 1 1 11 11 11 11 11 11 11 11 11 1 1 | |
362 | CLMCRTDT(I EN,PIECE,O PT) ; CRT DATE | |
363 | ; | |
364 | ; ******* ********** ********** ********** ********** ********** ********* | |
365 | ; | |
366 | NEW FIELD ,VALUE,X,R ETCODE | |
367 | ; | |
368 | SET FIELD ="CLM_CRT_ DT" | |
369 | ; | |
370 | SET X=$P( $G(CHPIARR AY("NOD0") ),"^",25) | |
371 | SET VALUE =$$CVTDATE ^CHPIDRVR( X) ; Convert FM date to M M/DD/YYYY | |
372 | ; | |
373 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
374 | ; | |
375 | QUIT 1 | |
376 | ; | |
377 | ; ******* ********** ********** ********** ********** ********** ********* | |
378 | ; 12 12 1 2 12 12 12 12 12 12 12 12 12 1 2 12 12 12 12 12 12 12 12 12 1 2 | |
379 | COMPDATE(I EN,PIECE,O PT) ; CLAI M COMPLETE DATE | |
380 | ; | |
381 | ; ******* ********** ********** ********** ********** ********** ********* | |
382 | ; | |
383 | NEW FIELD ,VALUE,X,R ETCODE | |
384 | ; | |
385 | SET FIELD ="CLM_COMP _DT" | |
386 | ; | |
387 | SET X=$P( $G(CHPIARR AY("NOD0") ),"^",10) | |
388 | SET VALUE =$$CVTDATE ^CHPIDRVR( X) ; C onvert FM date to MM /DD/YYYY | |
389 | ; | |
390 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
391 | ; | |
392 | QUIT 1 | |
393 | ; | |
394 | ; ******* ********** ********** ********** ********** ********** ********* | |
395 | ; 13 13 1 3 13 13 13 13 13 13 13 13 13 1 3 13 13 13 13 13 13 13 13 13 1 3 | |
396 | VASTAT(IEN ,PIECE,OPT ) ; CLAIM VA STATION | |
397 | ; | |
398 | ; ******* ********** ********** ********** ********** ********** ******** | |
399 | ; | |
400 | NEW FIELD ,VALUE,X,R ETCODE,PTR | |
401 | ; | |
402 | SET FIELD ="CLM_VA_S TATION" | |
403 | ; | |
404 | SET VALUE ="" | |
405 | SET PTR=$ P($G(CHPIA RRAY("NOD0 ")),"^",3) | |
406 | IF PTR'=" " SET VALU E=$P($G(^C HMVEN(PTR, 15)),"^",1 ) | |
407 | ; | |
408 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
409 | ; | |
410 | QUIT 1 | |
411 | ; | |
412 | ; ******* ********** ********** ********** ********** ********** ********* | |
413 | ; 14 14 1 4 14 14 14 14 14 14 14 14 14 1 4 14 14 14 14 14 14 14 14 14 1 4 | |
414 | QTYPAID(IE N,PIECE,OP T) ; CLM_L N_QTY_PAID | |
415 | ; | |
416 | ; ******* ********** ********** ********** ********** ********** ********* | |
417 | ; | |
418 | NEW FIELD ,VALUE,X,R ETCODE,PTR | |
419 | ; | |
420 | SET FIELD ="CLM_LN_Q TY_PAID" | |
421 | ; | |
422 | SET VALUE ="" | |
423 | SET VALUE =$TR(VALUE ,$C(34),"" ) ; REMOV E QUOTES | |
424 | ; | |
425 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
426 | ; | |
427 | QUIT 1 | |
428 | ; | |
429 | ; ******* ********** ********** ********** ********** ********** ********* | |
430 | ; 15 15 1 5 15 15 15 15 15 15 15 15 15 1 5 15 15 15 15 15 15 15 15 15 1 5 | |
431 | CLMPAID(IE N,PIECE,OP T) ; CLM_M EDICAID_PA ID_AMT | |
432 | ; | |
433 | ; ******* ********** ********** ********** ********** ********** ********* | |
434 | ; | |
435 | NEW FIELD ,VALUE,X,R ETCODE,PTR | |
436 | ; | |
437 | SET FIELD ="CLM_MEDI CAID_PAID_ AMT" | |
438 | ; | |
439 | SET VALUE =$P($G(CHP IARRAY("NO D7")),"^", 2) | |
440 | SET VALUE =$TR(VALUE ,$C(34),"" ) ; REMO VE QUOTES | |
441 | IF VALUE' ="",VALUE' ["." SET V ALUE=VALUE _".00" | |
442 | ; | |
443 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
444 | ; | |
445 | QUIT 1 | |
446 | ; | |
447 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
448 | ; 16 16 1 6 16 16 16 16 16 16 16 16 16 1 6 16 16 16 16 16 16 16 16 16 1 6 | |
449 | LNPAID(IEN ,PIECE,OPT ) ; CLM_LN _MEDICAID_ PAID_AMT | |
450 | ; | |
451 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
452 | ; | |
453 | NEW FIELD ,VALUE,X,R ETCODE,PTR | |
454 | ; | |
455 | SET FIELD ="CLM_LN_M EDICAID_PA ID_AMT" | |
456 | ; | |
457 | SET VALUE ="" | |
458 | SET VALUE =$TR(VALUE ,$C(34),"" ) ; REMO VE QUOTES | |
459 | ; | |
460 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
461 | ; | |
462 | QUIT 1 | |
463 | ; | |
464 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
465 | ; 17 17 1 7 17 17 17 17 17 17 17 17 17 1 7 17 17 17 17 17 17 17 17 17 1 7 | |
466 | CLMREJCD(I EN,PIECE,O PT) ; CLAI M REJECTIO N CODE | |
467 | ; | |
468 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
469 | ; | |
470 | NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1,S3 | |
471 | ; | |
472 | SET FIELD ="CLM_REJ_ CODE" | |
473 | ; | |
474 | SET VALUE ="" | |
475 | ; | |
476 | SET FIRST IME=1 | |
477 | SET S3=0 FOR DO Q :'S3 | |
478 | . SET S3= $O(^CHMPAY (IEN,4,S3) ) Q:'S3 | |
479 | . SET PTR =$P($G(^CH MPAY(IEN,4 ,S3,0)),"^ ",1) | |
480 | . IF PTR' ="" DO | |
481 | . . IF $P ($G(^CHMDI C(741002.2 2,PTR,0)), "^",7)=0 D O | |
482 | . . . SET DESC=$P($ G(^CHMDIC( 741002.22, PTR,0)),"^ ",1) | |
483 | . . . IF FIRSTIME S ET VALUE=D ESC | |
484 | . . . IF 'FIRSTIME SET VALUE= VALUE_"~"_ DESC | |
485 | . . . SET FIRSTIME= 0 | |
486 | ; | |
487 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
488 | ; | |
489 | QUIT 1 | |
490 | ; | |
491 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
492 | ; 18 18 1 8 18 18 18 18 18 18 18 18 18 1 8 18 18 18 18 18 18 18 18 18 1 8 | |
493 | CLMPCN(IEN ,PIECE,OPT ) ; CLAIM PATIENT CO NTROL NUMB ER | |
494 | ; | |
495 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
496 | ; | |
497 | NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1 | |
498 | ; | |
499 | SET FIELD ="CLM_PCN" | |
500 | ; | |
501 | SET VALUE =$P($G(CHP IARRAY("NO D7")),"^", 5) | |
502 | ; | |
503 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
504 | ; | |
505 | QUIT 1 | |
506 | ; | |
507 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
508 | ; 19 19 1 9 19 19 19 19 19 19 19 19 19 1 9 19 19 19 19 19 19 19 19 19 1 9 | |
509 | CLMTOB(IEN ,PIECE,OPT ) ; CLAIM TYPE OF BI LL | |
510 | ; | |
511 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
512 | ; | |
513 | NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1 | |
514 | ; | |
515 | SET FIELD ="CLM_TOB" | |
516 | ; | |
517 | SET VALUE =$P($G(CHP IARRAY("NO D7")),"^", 6) | |
518 | ; | |
519 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
520 | ; | |
521 | QUIT 1 | |
522 | ; | |
523 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
524 | ; 20 20 2 0 20 20 20 20 20 20 20 20 20 2 0 20 20 20 20 20 20 20 20 20 2 0 | |
525 | CL PYR LAT(IEN,PI ECE,OPT) ; CLAIM BIL L AMOUNT | |
526 | ; | |
527 | ; ******* ********** ********** ********** ********** ********** ********** *** | |
528 | ; | |
529 | NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1 | |
530 | ; | |
531 | SET FIELD ="CLM_BILL _AMT" | |
532 | ; | |
533 | SET VALUE =$P($G(CHP IARRAY("NO DCOMMON")) ,"^",1) | |
534 | SET VALUE =$TR(VALUE ,$C(34),"" ) ; R EMOVE QUOT ES | |
535 | IF VALUE' ="",VALUE' ["." SET V ALUE=VALUE _".00" | |
536 | ; | |
537 | SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE | |
538 | ; | |
539 | QUIT 1 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.