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 | CHMXPU03.m | Mon Nov 5 16:44:02 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXPU03.m | Mon Nov 5 17:53:10 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 650 |
Changed | 3 | 6 |
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 | CHMXPU03 ;CVA /DTP;X12 8 37 READ ED IT UTILITY #3 (HEALT H CARE CLA IMS);02/06 /98 1:34 PM | |
2 | ;; 1.0;CHAMPV A SYSTEM;; JULY 11,20 11;Build 1 | |
3 | ;; CPTS #1137 4 BY DTP ( 18-DEC-96) | |
4 | ;; SPECIAL ED ITS FOR 83 7 RECORD R EAD AT CLA IM LEVELS | |
5 | ;; CALLED IND IRECTLY BY GENREAD^C HMXPU01+15 (CHEDRTN IS DEFINED ) | |
6 | ;; | |
7 | ;; BUG00056 - AJM 07-FE B-2008 mod ified FE e dits per E NC00056 | |
8 | ;; DEF019402 FE Edit in correctly returned a claim BMJ 01/16/14 | |
9 | ICTYPP ;C HECKS PRES ENCE OF TH E IC TYPE- -SECOND PA RT OF GS08 DATA | |
10 | I '$D(CHFLD( CHFLPN)) D RCDERR^CH MXPU01 G I CTYPP1 | |
11 | S CHICTYP=$E (CHFLD(CHF LPN),7,15) I CHICTYP ="" D RCDE RR^CHMXPU0 1 G ICTYPP 1 | |
12 | ICTYPP1 K CHICTYP Q | |
13 | ; | |
14 | ICTYPV ;V ALIDATE IC TYPE(2ND PART OF GS 08) BY LOO KING UP IN SET OF CO DES | |
15 | Q: $D(CHRCERR (CHXREC,"A 014a")) | |
16 | S CHFLDHLD=C HFLD(CHFLP N),CHFLD(C HFLPN)=$E( CHFLD(CHFL PN),7,15), CHCVFL="^C HMXDIC(741 201.38,""C "",1,",CHC VDIR="" | |
17 | D 5011^CHMXP U01 | |
18 | ICTYPV1 S CHFLD(CHFL PN)=CHFLDH LD K CHFLD HLD,CHCVDI R Q | |
19 | ; | |
20 | TSVRNP ;C HECKS PRES ENCE OF TH E TS VERSI ON--FIRST PART OF GS 08 DATA | |
21 | I '$D(CHFLD( CHFLPN)) D RCDERR^CH MXPU01 G T SVRNP1 | |
22 | S CHTSVRN=$E (CHFLD(CHF LPN),1,6) I CHTSVRN= "" D RCDER R^CHMXPU01 G TSVRNP1 | |
23 | TSVRNP1 K CHTSVRN Q | |
24 | ; | |
25 | TSVRNV ;V ALIDATE TS VERSION ( 2ND PART O F GS08) BY LOOKING U P IN SET O F CODES | |
26 | Q: $D(CHRCERR (CHXREC,"A 014b")) | |
27 | S CHFLDHLD=C HFLD(CHFLP N),CHFLD(C HFLPN)=$E( CHFLD(CHFL PN),1,6),C HCVFL="^CH MXDIC(7412 01.33,1,10 2,""B"",", CHCVDIR="" | |
28 | D 5011^CHMXP U01 | |
29 | TSVRNV1 S CHFLD(CHFL PN)=CHFLDH LD K CHFLD HLD Q | |
30 | ; | |
31 | CLTPCD ;C LAIM TYPE CODE MUST BE PRESENT IF IC TYP E = "PHYS" OR IC TYP E = "HOSP" | |
32 | ;A ND BILL TY PE = 13 AN D IT MUST BE FOUND I N DD FOR D E #1343 | |
33 | D GETIC I $D (CHEDPRB) S CHPRB=CH EDRJ G CLT PCD1 | |
34 | I '$D(RCD) S CHEDPRB=" ",CHPRB=CH EDRJ G CLT PCD1 | |
35 | S: CHX12VRS=1 CHZZBEG=4 2,CHZZEND= 43 | |
36 | ;M ethodical- 5010 Chang e-Begin | |
37 | S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=43,CHZ ZEND=44 | |
38 | ;M ethodical- 5010 Chang e-End | |
39 | S Y=$E(RCD,C HZZBEG,CHZ ZEND),CHBL TP=$$TRIM^ CHMXPU01(Y ) I CHBLTP ="" S CHED RJHL=CHEDR J,CHEDRJ=" E04a" D RC DERR^CHMXP U01 S CHED RJ=CHEDRJH L G CLTPCD 1 | |
40 | S: CHX12VRS=1 CHZZBEG=4 4 | |
41 | ;M ethodical- 5010 Chang e-Begin | |
42 | S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=45 | |
43 | ;M ethodical- 5010 Chang e-End | |
44 | S Y=$E(RCD,C HZZBEG),CH QLF=$$TRIM ^CHMXPU01( Y) I CHQLF ="" S CHED RJHL=CHEDR J,CHEDRJ=" E05a" D RC DERR^CHMXP U01 S CHED RJ=CHEDRJH L G CLTPCD 1 | |
45 | I ((CHICTP=" PHYS")&(CH FLD(CHFLPN )=""))!((C HICTP="HOS P")&(CHBLT P=13)&(CHQ LF="A")&(C HFLD(CHFLP N)="")) D RCDERR^CHM XPU01 G CL TPCD1 | |
46 | Q: CHFLD(CHFL PN)="" | |
47 | I '$D(CHMXDI C(741201.0 2,"B",CHFL D(CHFLPN)) ) D RCDERR ^CHMXPU01 G CLTPCD1 | |
48 | CLTPCD1 K CHICTP,CHB LTP,CHQLF, CHEDRJHL,C HZZBEG,CHZ ZEND Q | |
49 | ; | |
50 | ; ajm - adde d new subr outine BUG 00056 | |
51 | BTPOSI | |
52 | NE W CHBTQLF, POS | |
53 | Q: $D(CHRCERR (CHXREC,"E 05a")) | |
54 | I '$D(RCD) S CHEDPRB=" ",CHPRB=CH EDRJ Q | |
55 | S CHBTQLF=$$ GETPOSQAL( RCD) | |
56 | Q: '(CHBTQLF= "A") ;THIS EDIT ONLY APPLIES T O INSTUTIO NAL CLAIMS | |
57 | IF $D(CHFLD( CHFLPN)) { | |
58 | S ET POS = C HFLD(CHFLP N) | |
59 | }E LSE{ | |
60 | S ET POS="" | |
61 | } | |
62 | I (POS="")|| '$D(^CHMXD IC(741201. 03,"B",POS )) D RCDER R^CHMXPU01 | |
63 | Q | |
64 | ; | |
65 | ; PLACE OF S ERVCE CODE MUST MATC H A CODE F ROM LIST O F VALID PL ACES OF SE RVCE | |
66 | ; THIS SUB R OUTINE ONL Y APPLIES TO PROFESS IONAL OR D ENTAL CLAI MS. | |
67 | BTPOS | |
68 | NE W CHBTQLF, POS | |
69 | Q: $D(CHRCERR (CHXREC,"E 04c")) | |
70 | I '$D(RCD) S CHEDPRB=" ",CHPRB=CH EDRJ Q | |
71 | S CHBTQLF=$$ GETPOSQAL( RCD) | |
72 | Q: '((CHBTQLF ="B")||(CH BTQLF="C") ) ;THIS EDIT ONLY APPLIES TO PROF OR D ENTAL CLAI MS | |
73 | IF $D(CHFLD( CHFLPN)) { | |
74 | S ET POS = C HFLD(CHFLP N) | |
75 | }E LSE{ | |
76 | S ET POS="" | |
77 | } | |
78 | I (POS=41)!( POS=42) S ^RREC($J," E026")="" D DE BUG^CHMXDR 01("POS RE QUIRES E02 6 REC FLAG SET",POS) ; PROF AMBUL ATORY POS CODE REQUI RES E206 R ECORD | |
79 | I (POS="")|| '$D(^CHMXD IC(741201. 59,"B",POS )) D RCDER R^CHMXPU01 | |
80 | ;I '$D(RCD) S CHEDPRB= "",CHPRB=C HEDRJ G BT POS1 | |
81 | ;S :CHX12VRS= 1 CHZZBEG= 44 | |
82 | ;S :CHX12VRS= 2 CHZZBEG= 45 | |
83 | ;S Y=$E(RCD, CHZZBEG,CH ZZBEG),CHB TQLF=$$TRI M^CHMXPU01 (Y) I CHBT QLF="" S C HEDRJHL=CH EDRJ,CHEDR J="E05a" D RCDERR^CH MXPU01 S C HEDRJ=CHED RJHL G BTP OS1 | |
84 | ;I (CHBTQLF= "A")&('$D( ^CHMXDIC(7 41201.03," B",CHFLD(C HFLPN)))) D RCDERR^C HMXPU01 G BTPOS1 | |
85 | ;I (CHBTQLF= "B")&('$D( ^CHMXDIC(7 41201.59," B",CHFLD(C HFLPN)))) S CHEDRJ=" E04c" D RC DERR^CHMXP U01 G BTPO S1 | |
86 | ;I (CHBTQLF= "C")&('$D( ^CHMXDIC(7 41201.59," B",CHFLD(C HFLPN)))) S CHEDRJ=" E04c" D RC DERR^CHMXP U01 G BTPO S1 | |
87 | Q | |
88 | ; | |
89 | ; | |
90 | ;M ethodical- 5010 Chang e-Begin | |
91 | BTPOSD ; Validate Dental pla ce of serv ice codes | |
92 | NE W CHBTQLF, POS | |
93 | I '$D(RCD) S CHEDPRB=" ",CHPRB=CH EDRJ Q | |
94 | S CHBTQLF=$$ GETPOSQAL( RCD) | |
95 | Q: '(CHBTQLF= "C") ;THIS EDIT ONLY APPLIES T O DENTAL C LAIMS | |
96 | IF $D(CHFLD( CHFLPN)) { | |
97 | S ET POS = C HFLD(CHFLP N) | |
98 | }E LSE{ | |
99 | S ET POS="" | |
100 | } | |
101 | I POS="" D R CDERR^CHMX PU01 Q | |
102 | ;P OS for den t | |
103 | I POS="01"!( POS="25")! (POS="41") !(POS="42" ) D RCDERR ^CHMXPU01 | |
104 | Q | |
105 | ;M ethodical- 5010 Chang e-End | |
106 | ; | |
107 | ; GIVEN THE "E000" REC ORD WILL R ETURN THE PLACE OF S ERVICE QUA LIFIER | |
108 | ; RETURNS: " A" - INSTI TUTIONAL | |
109 | ; " B" - PROFE SSIONAL | |
110 | ; " C" - DENTA L | |
111 | ; " " - UNDET ERMIED OR NOT PASSED IN THE "E 000" RECOR D | |
112 | ; | |
113 | ; Comment b y MI/JS on 15-Nov-20 11: | |
114 | ; --------- ---------- ---------- --- | |
115 | ; The Place of Servic e qualifie r does no longer det ermine the claim typ e, since b oth Profes sional and Dental | |
116 | ; claims ar e now indi cated with B (no lon ger C for dental). The follow ing routin e was chan ged to det ermine | |
117 | ; the claim type corr ectly by c alling an appropriat e function in the CH MXP010 rou tine. Also , this fun ction | |
118 | ; will not return a n ull string any longe r. | |
119 | ; | |
120 | GETPOSQAL( RCD) | |
121 | ;M ethodical- 5010 Chang e-Begin | |
122 | Q $$CLMTYPE^ CHMXP010() | |
123 | ;M ethodical- 5010 Chang e-End | |
124 | NE W CHZZBEG, QLF,RTN | |
125 | ;R ETURN NULL IF NULL I S PASSED I N OR RCD I S NOT THE E000 RECOR D | |
126 | Q: ($E(RCD,1, 4)'="E000" ) "" | |
127 | S: CHX12VRS=1 CHZZBEG=4 4 | |
128 | ;M ethodical- 5010 Chang e-Begin | |
129 | S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=45 | |
130 | ;M ethodical- 5010 Chang e-End | |
131 | S QLF=$E(RCD ,CHZZBEG,C HZZBEG) | |
132 | S RTN=$$TRIM ^CHMXPU01( QLF) | |
133 | ; RETURN NUL L IF NOT A RECOGNIZE D FACILITY TYPE | |
134 | IF '((RTN="A ")||(RTN=" B")||(RTN= "C")) { | |
135 | S RTN="" | |
136 | } | |
137 | Q RTN | |
138 | ; | |
139 | ; | |
140 | BTPROC ;I F QUALIFIE R="A" FOR BILL TYPE, CHECK TO SEE IF IT IS A BILL TYPE HAC | |
141 | ;I S PROCESSI NG | |
142 | Q: $D(CHRCERR (CHXREC,"E 04a")) Q: $D(CHRCERR (CHXREC,"E 05")) | |
143 | D BTQLF I $D (CHEDPRB) S CHPRB=CH EDRJ G BTP ROC1 | |
144 | Q: CHBTQLF'=" A" | |
145 | I (CHBTQLF=" A")&('$D(^ CHMXDIC(74 1201.03,"C ",1,CHFLD( CHFLPN)))) D RCDERR^ CHMXPU01 G BTPROC1 | |
146 | BTPROC1 K CHBTQLF Q | |
147 | ; | |
148 | FREQA ;C HECK FOR P RESENCE OF CLAIM FRE QENCY GIVE N CERTAIN CONDITIONS | |
149 | Q: $D(CHRCERR (CHXREC,"E 05a")) Q: $D(CHRCERR (CHXREC,"E 05b")) | |
150 | D GETIC I $D (CHEDPRB) S CHPRB=CH EDRJ G FRE QA1 | |
151 | D BTQLF I $D (CHEDPRB) S CHPRB=CH EDRJ G FRE QA1 | |
152 | Q: CHBTQLF'=" A" | |
153 | I ((CHICTP=" HOSP")!(CH BTQLF="A") )&(CHFLD(C HFLPN)="") D RCDERR^ CHMXPU01 G FREQA1 | |
154 | FREQA1 K CHICTP,CHB TQLF Q | |
155 | ; | |
156 | FREQB ;C ODE VALIDA TION FOR C LAIM FREQU ENCY | |
157 | Q: $D(CHRCERR (CHXREC,"E 06a")) Q: $D(CHRCERR (CHXREC,"E 05a")) Q: $D(CHRCERR (CHXREC,"E 05b")) | |
158 | D GETIC I $D (CHEDPRB) S CHPRB=CH EDRJ G FRE QA1 | |
159 | D BTQLF I $D (CHEDPRB) S CHPRB=CH EDRJ G FRE QB1 | |
160 | Q: CHBTQLF'=" A" | |
161 | I ((CHICTP=" HOSP")!(CH BTQLF="A") )&('$D(^CH MXDIC(7412 01.05,"B", CHFLD(CHFL PN)))) D R CDERR^CHMX PU01 G FRE QB1 | |
162 | FREQB1 K CHICTP,CHB TQLF Q | |
163 | ; | |
164 | FREQC ;C HECK TO SE E IF CLAIM FREQENCY FOR CLAIM IS CURRENT LY PROCESS ED BY HAC | |
165 | Q: $D(CHRCERR (CHXREC,"E 06a")) Q: $D(CHRCERR (CHXREC,"E 05a")) Q: $D(CHRCERR (CHXREC,"E 05b")) | |
166 | D GETIC I $D (CHEDPRB) S CHPRB=CH EDRJ G FRE QA1 | |
167 | D BTQLF I $D (CHEDPRB) S CHPRB=CH EDRJ G FRE QB1 | |
168 | Q: CHBTQLF'=" A" | |
169 | I ((CHICTP=" HOSP")!(CH BTQLF="A") )&('$D(^CH MXDIC(7412 01.05,"C", 1,CHFLD(CH FLPN)))) D RCDERR^CH MXPU01 G F REQC1 | |
170 | FREQC1 K CHICTP,CHB TQLF Q | |
171 | ; | |
172 | FREQD ;C HECK FOR C LAIM FREQU ENCY 8 (VO ID/CANCEL) AND SET U P WITH ACK NOWLEGDMEN T, BUT REJ ECT THIS A S A PROCES SABLE CLAI M | |
173 | I CHFLD(CHFL PN)=8 D RC DERR^CHMXP U01 G FREQ D1 | |
174 | FREQD1 Q | |
175 | ; | |
176 | ;M ethodical- 5010 Chang e-Begin - Validata F requency C ode | |
177 | FREQE ;F REQECODE V ALIDATION FOR CLAIM FREQUENCY for Dental and Opt | |
178 | D DEBUG^CHMX DR01("CHMX PU03: FREQ E CHFLD(CH FLPN)= ",C HFLD(CHFLP N)) | |
179 | Q: CHFLD(CHFL PN)="" | |
180 | I ('$D(^CHMX DIC(741201 .05,"C",1, CHFLD(CHFL PN)))) D R CDERR^CHMX PU01 | |
181 | Q | |
182 | ;M ethodical- 5010 Chang e-End | |
183 | ||
184 | BALDUE ;P ATIENT BAL ANCE DUE M UST NOT BE > TOTAL C HARGES | |
185 | Q: $D(CHRCERR (CHXREC,"E 21a")) Q: $D(CHRCERR (CHXREC,"E 23a")) | |
186 | I '$D(RCD) S CHEDPRB=" ",CHPRB=CH EDRJ G BAL DUE1 | |
187 | S: CHX12VRS=1 CHZZBEG=5 ,CHZZEND=1 9 | |
188 | ;M ethodical- 5010 Chang e-Begin | |
189 | S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=5,CHZZ END=22 | |
190 | ;M ethodical- 5010 Chang e-End | |
191 | S: CHX12VRS=1 CHTOT=+($ E(RCD,CHZZ BEG,CHZZEN D)/100) | |
192 | ;M ethodical- 5010 Chang e-Begin | |
193 | S: (CHX12VRS= 2)!(CHX12V RS=3) CHTO T=+($E(RCD ,CHZZBEG,C HZZEND)) | |
194 | ;M ethodical- 5010 Chang e-End | |
195 | I CHTOT="" S CHEDPRB=" ",CHPRB=CH EDRJ G BAL DUE1 | |
196 | I (+(CHFLD(C HFLPN)))>C HTOT D RCD ERR^CHMXPU 01 G BALDU E1 | |
197 | BALDUE1 K CHZZBEG,CH ZZEND,CHTO T Q | |
198 | ; | |
199 | PTDCDP ;C HECK PRESE NCE OF DIS CHARGE STA TUS (COND: BILL TYP E=11/12 OR IC=HOSP) | |
200 | D GETIC I $D (CHEDPRB) S CHPRB=CH EDRJ G PTD CDP1 | |
201 | D RBTQLF I $ D(CHEDPRB) S CHPRB=C HEDRJ G PT DCDP1 | |
202 | Q: CHBTQLF'=" A" | |
203 | ;I ((CHICTP= "HOSP")!(C HBTQLF="A" ))&('$D(CH FLD(CHFLPN ))) D RCDE RR^CHMXPU0 1 G PTDCDP 1 | |
204 | I ($D(^CHMXD IC(741201. 03,"D",1,C HBTYP)))&( '$D(CHFLD( CHFLPN))) D RCDERR^C HMXPU01 G PTDCDP1 | |
205 | PTDCDP1 K CHICTP,CHB TQLF,CHTYP B Q | |
206 | ; | |
207 | PTDCDV ;C HECK VALID ITY OF DIS CHARGE STA TUS (COND: BILL TYPE =11/12 OR IC=HOSP) | |
208 | Q: CHFLD(CHFL PN)="" | |
209 | ;M ethodical- 5010 Chang e-Begin - Comment o ut this co de | |
210 | ;Q:$D(CHRC ERR(CHXREC ,"E31")) | |
211 | ;M ethodical- 5010 Chang e-End | |
212 | D GETIC I $D (CHEDPRB) S CHPRB=CH EDRJ G PTD CDV1 | |
213 | D RBTQLF I $ D(CHEDPRB) S CHPRB=C HEDRJ G PT DCDV1 | |
214 | Q: CHBTQLF'=" A" | |
215 | I ((CHICTP=" HOSP")!(CH BTQLF="A") )&('$D(^CH MDIC(74100 2.12,"B",C HFLD(CHFLP N)))) D RC DERR^CHMXP U01 G PTDC DV1 | |
216 | PTDCDV1 K CHICTP,CHB TQLF,CHTYP B Q | |
217 | ; | |
218 | PTDCBT ;I F BILL FRE Q = 1 OR 4 , PATIENT STATUS MUS T EQUAL DI SCHARGE FR OM INST. | |
219 | Q: CHFLD(CHFL PN)="" | |
220 | Q: $D(CHRCERR (CHXREC,"E 31a")) I '$D(^CHMXC LE(CHCLEI, 0)) S CHED PRB="",CHP RB=CHEDRJ G PTDCBT1 | |
221 | ;S CHFREQ=$P (^CHMXCLE( CHCLEI,0), "^",6) | |
222 | ;I CHFREQ="" S CHEDPRB ="",CHPRB= CHEDRJ G P TDCBT1 | |
223 | ;I ((CHFREQ= 1)!(CHFREQ =4))&('$D( ^CHMDIC(74 1002.12,"D ",1,CHFLD( CHFLPN)))) D RCDERR^ CHMXPU01 G PTDCBT1 | |
224 | D GETIC I $D (CHEDPRB) S CHPRB=CH EDRJ G PTD CDP1 | |
225 | D RBTQLF I $ D(CHEDPRB) S CHPRB=C HEDRJ G PT DCDP1 | |
226 | Q: CHBTQLF'=" A" | |
227 | ;I ((CHICTP= "HOSP")!(C HBTQLF="A" ))&('$D(CH FLD(CHFLPN ))) D RCDE RR^CHMXPU0 1 G PTDCDP 1 | |
228 | I ($D(^CHMXD IC(741201. 03,"E",1,C HBTYP)))&( '$D(CHFLD( CHFLPN))) D RCDERR^C HMXPU01 G PTDCBT1 | |
229 | PTDCBT1 K CHBTYP Q | |
230 | ; | |
231 | NHRSP ;C HECK PRESE NCE OF NH RESIDENTIA L STATUS ( COND: PI=F EE) | |
232 | D GETPI I $D (CHEDPRB) S CHPRB=CH EDRJ G NHR SP1 | |
233 | I (CHPI="VA7 41-FEE")&( CHFLD(CHFL PN)="") D RCDERR^CHM XPU01 G NH RSP1 | |
234 | NHRSP1 K CHPI Q | |
235 | ; | |
236 | NHRSV ;V ALIDATE NH RESIDENTI AL STATUS CODE (COND : PI=FEE) | |
237 | Q: $D(CHRCERR (CHXREC,"E 32")) Q:C HFLD(CHFLP N)="" | |
238 | D GETPI I $D (CHEDPRB) S CHPRB=CH EDRJ G NHR SV1 | |
239 | I (CHPI="VA7 41-FEE")&( '$D(^CHMXD IC(741201. 09,"B",CHF LD(CHFLPN) ))) D RCDE RR^CHMXPU0 1 G NHRSV1 | |
240 | NHRSV1 K CHPI Q | |
241 | ; | |
242 | GETIC ;P ULLS IMP C ONV TYPE F ROM HEADER GLOBAL | |
243 | I '$D(^CHMXC LA(CHCLAI, 0)) S CHED PRB="" Q | |
244 | S CHICTP=$E( $P(^CHMXCL A(CHCLAI,0 ),"^",14), 7,99) | |
245 | Q: CHICTP="" | |
246 | Q | |
247 | ; | |
248 | BTQLF ;P ULLS BILL TYPE QUALI FIER FROM RECORD JUS T READ | |
249 | I '$D(RCD) S CHEDPRB=" ",CHPRB=CH EDRJ G FRE QA1 | |
250 | S: CHX12VRS=1 CHZZBEG=4 4,CHZZEND= 44 | |
251 | ;M ethodical- 5010 Chang e-Begin | |
252 | S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=45,CHZ ZEND=45 | |
253 | ;M ethodical- 5010 Chang e-End | |
254 | S Y=$E(RCD,C HZZBEG,CHZ ZEND),CHBT QLF=$$TRIM ^CHMXPU01( Y) I CHBTQ LF="" S CH EDPRB="" G BTQLF1 | |
255 | BTQLF1 K CHZZBEG,CH ZZEND Q | |
256 | ; | |
257 | RBTQLF ;P ULLS BILL TYPE QUALI FIER FROM SUBMISSION GLOBAL | |
258 | I '$D(^CHMXC LE(CHCLEI, 0)) S CHED PRB="" Q | |
259 | S CHBTQLF=$P (^CHMXCLE( CHCLEI,0), "^",5) S:C HBTQLF="" CHBTQLF="B " | |
260 | I CHBTQLF="B " S CHTYPB ="" G RBTQ LF1 | |
261 | S CHBTYP=$P( ^CHMXCLE(C HCLEI,0)," ^",4) | |
262 | RBTQLF1 Q | |
263 | ; | |
264 | GETPI ;P ULLS PROG IND FROM H EADER GLOB AL | |
265 | Q: '$D(^CHMXC LA(CHCLAI, 1)) | |
266 | S CHPI=$P(^C HMXCLA(CHC LAI,1),"^" ,5) | |
267 | GETPI1 Q | |
268 | ; | |
269 | TRSTYP ;V ALIDATES T HE V4010 T RANSACTION TYPE ID | |
270 | I '$D(CHFLD( CHFLPN)) D RCDERR^CH MXPU01 G T RSTYP1 | |
271 | ;M ethodical- 5010 Chang e-Begin | |
272 | I CHX12VRS=2 I (CHFLD( CHFLPN)'[" 4010X096") &(CHFLD(CH FLPN)'["40 10X097")&( CHFLD(CHFL PN)'["4010 X098")&(CH FLD(CHFLPN )'["4010OC RB")&(CHFL D(CHFLPN)' ["4010OCRA ") D RCDER R^CHMXPU01 G TRSTYP1 | |
273 | ;2 22 = Profe ssional 22 3=Institut ional 224 = Dental | |
274 | I CHX12VRS=3 I (CHFLD( CHFLPN)'[" 5010X222") &(CHFLD(CH FLPN)'["50 10X223")&( CHFLD(CHFL PN)'["5010 X224") D R CDERR^CHMX PU01 G TRS TYP1 | |
275 | ;M ethodical- 5010 Chang e-End | |
276 | TRSTYP1 Q | |
277 | ; | |
278 | ;M ethodical- 5010 Chang e-Begin | |
279 | A PYR NFO ;Check that AMB informatio n exists i f POS= 41 or 42 | |
280 | ; | |
281 | K ^RREC($J," E026") ; FLAG " E026" RECO RD WAS NOT MISSING | |
282 | D DEBUG^CHMX DR01("CHMX PU03: A PYR NFO: CHFLD (CHFLPN)= ",CHFLD(CH FLPN)) | |
283 | N POS S POS= $P(^CHMXCL E(CHCLEI,0 ),"^",4) | |
284 | D DEBUG^CHMX DR01("CHMX PU03: A PYR NFO: POS= ",POS) | |
285 | Q: POS'=41&(P OS'=42) ; Must have POS of 41 or 4 2 | |
286 | I (CHFLD(CHF LPN)'="") Q ;DE F019402 FE Edit inco rrectly re turned a c laim | |
287 | ;I (CHFLD(CH FLPN)>0) Q 'If POS = 41 or 42 and POS QU ALIFIER = "" then re ject in fr ont end wi th an Ambu lance Tran sport Info rmation Re ason (2300 CR104) | |
288 | D RCDERR^CHM XPU01 | |
289 | Q | |
290 | ;M ethodical- 5010 Chang e-End | |
291 | ||
292 | SUBMRSN ; For Profes sion claim s the clai m submissi on must be PB | |
293 | ; | |
294 | ;M ethodical- 5010 Chang e-Begin | |
295 | Q: $$CLMTYPE^ CHMXP010() '="C" ; A pplies onl y to Denta l claims | |
296 | ;M ethodical- 5010 Chang e-End | |
297 | I CHFLD(CHFL PN)="PB" D RCDERR^CH MXPU01 | |
298 | Q | |
299 | ||
300 | QUALER ;c heck for I nvalid qua lifier cod e of "ER" for profes sional cla ims | |
301 | ;M ethodical- 5010 Chang e-Begin | |
302 | ; FILETYPE= | |
303 | ; "A" - INST ITUTIONAL | |
304 | ; "B" - PROF ESSIONAL | |
305 | ; "C" - DENT AL | |
306 | I CHFLD(CHFL PN)="ER" D RCDERR^CH MXPU01 | |
307 | Q | |
308 | ; Methodical -5010 Chan ge-End | |
309 | ||
310 | QUALIV ;c heck for I nvalid qua lifier cod e of "IV" for profes sional cla ims | |
311 | ;M ethodical- 5010 Chang e-Begin | |
312 | ; "A" - INST ITUTIONAL | |
313 | ; "B" - PROF ESSIONAL | |
314 | ; "C" - DENT AL | |
315 | I CHFLD(CHFL PN)="IV" D RCDERR^CH MXPU01 | |
316 | Q | |
317 | ; Methodical -5010 Chan ge-End | |
318 | ||
319 | QUALWK ;c heck for I nvalid qua lifier cod e of "WK" for profes sional cla ims | |
320 | ;M ethodical- 5010 Chang e-Begin | |
321 | ; FILETYPE= | |
322 | ; "A" - INST ITUTIONAL | |
323 | ; "B" - PROF ESSIONAL | |
324 | ; "C" - DENT AL | |
325 | I CHFLD(CHFL PN)="WK" D RCDERR^CH MXPU01 | |
326 | Q | |
327 | ; Methodical -5010 Chan ge-End | |
328 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.