Produced by Araxis Merge on 11/9/2018 12:34:10 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 | CHMXDR01.m | Mon Nov 5 16:38:50 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXDR01.m | Mon Nov 5 17:52:10 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 708 |
Changed | 1 | 8 |
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 | CHMXDR01 ; CVA/DTP;X1 2 837 MAIN DRIVER (H EALTH CARE CLAIM);04 /15/98 10 :29 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 11 ,2011;Buil d 4 | |
3 | ;;1.0 | |
4 | ;;CPTS #1 1374 BY DT P (18-DEC- 96) | |
5 | ;; | |
6 | ;;DEV0022 17-01 BY A JM (21-MAY -07) OCR C laims caus ing errone ous tradin g | |
7 | ;; partn er not fou nd Vista 2 77 Error m essages be ing sent O CRs don't | |
8 | ;; requi re 277 fil e creation . | |
9 | ;; | |
10 | ;HR-COB-M edicare-A/ B-Begin-93 72 (22-Mar -2010) | |
11 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;; | |
12 | ;HR-COB-M edicare-A/ B-BEGIN-50 10 (12-JUL Y-2011) | |
13 | ; CHANGE D THE ACK STATUS GEN ERATION FU NCTION. T HE ROUTINE FOR 4010 | |
14 | ; GENERA TED ACK ST ATUS RECOR DS BASED O N A LOOPIN G ACTIVITY WITHIN | |
15 | ; RTN1 A ND RTN2. T HE NEW ACK RECORD GE NERATION I S CONTAINE D IN THE | |
16 | ; CHMXWB 21.INT FUN CTION. TH E LOOP IN THIS FUNCT ION HAS BE EN DISABLE D. | |
17 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;; | |
18 | ; | |
19 | ;;CALLED BY: CHMXUT 1 VIA THE ^CHMDIC(74 1002.75 GL OBAL | |
20 | ;; | |
21 | ;;CALLS T HREE MAIN SUBDRIVERS : | |
22 | ;;CHMXP00 1 READIN O F DATA FRO M 837 OUTP UT FILE CO MING FROM AFC | |
23 | ;;CHMXF00 1 CLAIM CR EATION FRO M 837 DATA INCLUDING CALL TO A I SYSTEM | |
24 | ;;CHMXG00 1 GENERATI ON OF 277 RETURN FIL E | |
25 | ;;THIS DR IVER MONIT ORS THE ST ATUS VALUE XREF FOR THE 837 CL AIM CREATI ON | |
26 | ;;PROCESS IN BETWEE N EACH SUB DRIVER. T HE STATUS VALUE (SV) XREF CON- | |
27 | ;;TAINS T HE FOLLOWI NG FORMAT AND SUBSCR IPTS: | |
28 | ;;^CHMXCL E("A",CLI, SV,CLAI,CL M-CTRL-# O R PDI-#,CL BI*CLCI*CL EI)="" WHE RE | |
29 | ;; CLI =I-VALUE O F ^CHMXCL (BATCH OR FILE LEVEL ) | |
30 | ;; SV= STATUS VAL US, | |
31 | ;; CLM -CTRL-#=CL AIM CONTRO L NO. FROM THE E000 RECORD OF OUTPUT FIL E, | |
32 | ;; PDI -#=HAC PDI NO. | |
33 | ;; CLA I=I-VALUE OF ^CHMXCL A (TRANSAC TION BATCH LEVEL) | |
34 | ;; CLB I=I-VALUE OF ^CHMXCL B (PROVIDE R BATCH LE VEL) | |
35 | ;; CLC I=I-VALUE OF ^CHMXCL C (PATIENT BATCH LEV EL) AND | |
36 | ;; CLE I=I-VALUE OF ^CHMXCL E (CLAIM L EVEL) | |
37 | ;;STATUS VALUES ATT AIN THE FO LLOWING VA LUES AT IN DICATED PO INTS: | |
38 | ;;SV=0 AS SIGNED AT READIN OF CLM DATA I N CORRESPO NDING E000 RECORD | |
39 | ;;SV=1 AS SIGNED AT COMPLETION OF FRONT EDITS ON T HAT CLM DA TA | |
40 | ;;SV=2 AS SIGNED WHE N THIS CLM DATA IS G IVEN A PDI NO. | |
41 | ;;SV=3 AS SIGNED WHE N CLAIM(S) HAVE BEEN CREATED F ROM THIS C LM DATA | |
42 | ;;SV=4 AS SIGNED WHE N RETURN R EPORT FOR THIS CLM D ATA IS GEN ERATED | |
43 | ;;SV=6 AS SIGNED WHE N THIS CLM DATA FAIL S A FRONT END EDIT | |
44 | ;;SV=7 AS SIGNED WHE N PDI NO. CANNOT BE GIVEN | |
45 | ;;SV=8 AS SIGNED WHE N NO CLAIM NO(S) HAV E BEEN CRE ATED | |
46 | ;;MAIN DR IVER MONIT ORS STATUS OF READIN : NO SV=0 CAN EXIST FOR BATCH | |
47 | ;;AFTER R EADIN--ERR OR MSG SEN T IF THIS CONDITION EXISTS | |
48 | ;;MAIN DR IVER MONIT ORS STATUS OF CLAIM CREATION: NO SV=1 O R SV=2 CAN | |
49 | ;;EXIST F OR BATCH A FTER CLAIM CREATION- -ERROR MSG SENT | |
50 | ;;MAIN DR IVER MONIT ORS STATUS OF RETURN 277 FILE: NO SV=1 OR SV=2 OR | |
51 | ;;SV=3 CA N EXIST--E RROR MSG S ENT | |
52 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;; | |
53 | ;; 12/17/ 2013 DLB CROSS-REFE RENCES IN FILEMAN DE FINITON OF THE EDI R X BATCH PR OCESS: FIL E #741009 | |
54 | ; ^CHMXRX ("B",EDI R X BATCH NU MBER, I) I S THE BATC H NUMBER C ROSS-REFER ENCE: POPU LATED IN C HMXCLM4,CH MXCH04,CHM XCLP04,CHM XNCP4 | |
55 | ; ^CHMXRX ("C",DATE/ TIME TRANS MITTED,I) IS THE IDE NTIFIER FO R THE FILE RECEPTION TIME/DATE : SET IN C HMXCH01,CH MXCLM1,CHM XCP01,CHMX NCP1.INT | |
56 | ; ^CHMXRX ("D",EDI C LAIM ID,I, J,K) IS TH E PHARMACY CLAIM ID CROSS-REFE RENCE: POP ULATED IN CHMXCH02,C HMXCLM2,CH MXNCP2.INT | |
57 | ; ^CHMXRX ("E",SECON DARY RESPO NSE FLAG,I ,J,K) IS T HE SECONDA RY RESPONS E FLAG CRO SS-REFEREN CE: POPULA TED IN CHM XCH09,CHMX CLM9,CHMXC P09,CHMXRP 5C | |
58 | ; ^CHMXRX ("F",SECON DARY RESPO NSE DATE,I ,J,K) IS T HE DATE OF THE SECON DARY RESPO NSE CROSS- REFERENCE: POPULATED IN CHMXRP 5C.INT | |
59 | ; ^CHMXRX ("G",SOURC E FLAG,I) IS THE DEF INED SOURC E FLAG CRO SS-REFEREN CE: POPULA TED IN CHM XNCP4.INT | |
60 | ; ^CHMXRX ("H",SOURC E FILE NAM E,I) IS TH E SOURCE F ILE CROSS- REFERENCE: POPULATED IN CHMXNC P1.INT | |
61 | ; ^CHMXRX ("I",CHAMP VA CLAIM N UMBER,I) I S THE PTR- >^CHMPAY C ROSS-REFER ENCE: POPU LATED IN C HMXCLM9.IN T | |
62 | ; ^CHMXRX ("J",PRESC RIPTION NU MBER,I,J,K ) IS THE P RESCRIPTIO N NUMBER C ROSS-REFER ENCE: POPU LATED IN C HMXNCP2.IN T | |
63 | ; ^CHMXRX ("K",PDI,I ,J,K) IS T HE PDI CRO SS-REFEREN CE: POPUL ATED IN CH MXCLM8.INT | |
64 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;; | |
65 | ; | |
66 | ;CFS 01/0 7/2018 - C hange dire ctory CHAM PVA_EDI_US ER:[WEBMD] to HAC_HF S$:[KERMIT ] to accom odate new DEV enviro nment. | |
67 | ; | |
68 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
69 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
70 | I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS | |
71 | ZNAM ; | |
72 | ; | |
73 | A U 0 ; Pr e-Cache - > U 0 | |
74 | ;KKAIEL | |
75 | ; | |
76 | ;******* START chec k pdi to s ee if load ed in the ^CHMIMAGE global ** ********** ***** 0 8/03/2006 RKN | |
77 | D RKNPDI | |
78 | I $D(XPDI DFLAG) C C HFIO K XFI OLG,XFIOLN ,XDDMMYY,X PDI,XTELE, XPDIFOUND, XOCRTYPE,X PDIDFLAG Q ;I PD I DUPE FLA G QUIT ROU TINE-DON'T LOAD FILE 02/28/200 6 RKN | |
79 | C CHFIO | |
80 | K XFIOLG, XFIOLN,XDD MMYY,XPDI, XTELE,XPDI FOUND,XOCR TYPE,XPDID FLAG | |
81 | ;******* END check pdi to see if loaded in the ^C HMIMAGE gl obal **** ********** *** 08/ 03/2006 RK N | |
82 | ; | |
83 | S $ZE="" ;SKD, 8- 9-06 | |
84 | S $ZT="ER ROR^CHMXDR 01" ; Remo ved break | |
85 | D SETUP ; SETS DUZ= "USER,EDI" , KILLS FL AGS | |
86 | I '$D(CHF IO) D STOP S CHFLPRB ="",CHMXUN SR="" G RE ADCHK ; N O EDI VMS FILE DEFIN ED | |
87 | O CHFIO:" R":5 ; Pre -Cache -> O CHFIO:RE ADONLY:5 | |
88 | I '$T D S TOP G END ; CANNOT OPEN EDI V MS FILE | |
89 | ;HR-COB-M edicare-A/ B-Begin-93 72 (22-Mar -2010) | |
90 | K CHTP ; Ensure no duplicate s | |
91 | ;D:$D(CHT P) DEBUG^C HMXDR01("C HMXDR01: A : $D(CHTP) = ",$D(CHT P)) | |
92 | ;HR-COB-M edicare-A/ B-End-9372 (22-Mar-2 010) | |
93 | L ^CHMXCL (0) S:'$D( ^CHMXCL(0) ) ^(0)="X1 2 837 BUFF ER FILE LE VEL^741210 .04D^0^0" | |
94 | S CHMXCLI =$P(^CHMXC L(0),"^",3 )+1,$P(^(0 ),"^",3)=C HMXCLI | |
95 | S $P(^CHM XCL(0),"^" ,4)=$P(^(0 ),"^",4)+1 L | |
96 | S ^CHMXCL ("PROCESSI NG",CHMXCL I)="" | |
97 | S ^CHMXCL ("CLM CNT" ,CHMXCLI)= 0 | |
98 | D ^CHMXP0 01 ; READI N SUBDRIVE R; NOTE: CHTP WILL BE SET IN THIS ROUT INE | |
99 | I $D(XPDI DFLAG) C C HFIO K XFI OLG,XFIOLN ,XDDMMYY,X PDI,XTELE, XPDIFOUND, XOCRTYPE,X PDIDFLAG Q | |
100 | ;D DEBUG^ CHMXDR01(" CHMXDR01: CHMXP001 R TRN: CHTP= ",CHTP) | |
101 | READCHK I $D(CHMXUNS R) D ^CHMX MM01 G END ; UNSUCCE SSFUL READ MSG ; Rem oved break | |
102 | I $D(^CHM XCLE("A",C HMXCLI,0)) S CHSTPRB ="" D ^CHM XMM01 G EN D ; UNSUCC ESSFUL REA D MSG | |
103 | I $D(CHAL LRJ) D ^CH MXMM05 G R TNTRNS ;K KAIEL | |
104 | D ^CHMXF0 01 ; CLAIM CREATION SUBDRIVER ; Removed break | |
105 | RSTRT ;KKA IEL | |
106 | I $D(CHMX UNCC) D ^C HMXMM02 G: $D(CHNODTA ) RTNTRNS G END ; Re moved brea k | |
107 | I ($D(^CH MXCLE("A", CHMXCLI,0) )!$D(^CHMX CLE("A",CH MXCLI,1))) S CHCCPRB 2="" D ^CH MXMM02 G E ND ; INCOM PLETE CLAI M CREATION MSG | |
108 | RTNTRNS S (CHTRI,CHT RNCT,CHTRN FG)=0 K CH 277FLG | |
109 | RTN1 S CHT RI=$O(^CHM XCLA("B",C HMXCLI,CHT RI)) G:$D( CHRTNQT) R TN2 I 'CHT RI D:CHTRN FG'=0 TRNC NT G RTN2 | |
110 | D:CHTRNFG '=0 TRNCNT S CHTRNFG =1 | |
111 | ;HR-COB-M edicare-A/ B-Begin-93 72 (22-Mar -2010) | |
112 | ;S CHTP=$ P(^CHMXCLA (CHTRI,1), "^") | |
113 | ;S CHTPI= 0,CHTPI=$O (^CHMXTP(" C",CHTP,CH TPI)) I 'C HTPI S CHR TNRSN=1,CH RTNQT="" G RTN2 | |
114 | ;Brenden - Modified to look a t COB flag - must ma tch on TP id and COB flag. CH MEDCOB var iable cont ains the C OB flag se t at routi ne CHMXWT1 . | |
115 | ; It indi cates whet her the ed i file is a cross ov er file or not (0 no - 1 yes). It then finds the trading pa rtner with the same TP ID and | |
116 | ; same CO B flag set ting. Ult imately th is allows a trading partner wi th the sam e Sender I D to have two entry in the tra ding partn er file, | |
117 | ; one wit h a cob fl ag set to "no" and o ne set to "yes". As a result any given TP can sen d COB file s and regu lar X12 fi les under the same S ender ID. | |
118 | S CHTPI=$ $GETCHTPI ; Needed b y other ro utines, to o. | |
119 | ;D DEBUG^ CHMXDR01(" CHMXDR01: RTN1 CHTP= ",CHTP) | |
120 | I 'CHTPI S CHRTNRSN =1,CHRTNQT ="" G RTN2 ; IF NO CHTPI SET THE QUIT F LAG AND RE ASON VALUE | |
121 | ; | |
122 | ;HR-COB-M edicare-A/ B-End-9372 | |
123 | S CHTPABB R=$P(^CHMX TP(CHTPI,0 ),"^",10) ; GET TRA DING PARTN ER ABBREVI ATED NAME VALUE | |
124 | G:CHTPABB R="OCR" EN D ;05-03- 2007 AJM D EV002217-0 1 | |
125 | S CHTPJ=0 ,CHTPJ=$O( ^CHMXTP(CH TPI,103,"B ","HCCSTS" ,CHTPJ)) I 'CHTPJ S CHRTNRSN=1 ,CHRTNQT=" " G RTN2 | |
126 | S CHTPVRN =$P(^CHMXT P(CHTPI,10 3,CHTPJ,0) ,"^",2),CH RNRTN=$P(^ (0),"^",3, 4),CHNMRTN =$P(^(0)," ^",5,6) | |
127 | D DEBUG^C HMXDR01("C HMXDR01: R TN1: CHRN RTN= ",CHR NRTN) | |
128 | ;HR-COB-M edicare-A/ B-BEGIN-50 10 | |
129 | D @CHRNRT N ; GENER ATION OF 2 77 OR OTHE R OTHER RE TURN FILE | |
130 | ;G:$D(CHR TNQT) RTN2 ; JUST L ET IT FALL THROUGH | |
131 | ;G RTN1 ; NO LONGE R LOOPING ON CLAIMS HERE DLB 7 /12/2011 | |
132 | ;HR-COB-M edicare-A/ B-END-5010 | |
133 | RTN2 ; | |
134 | I $D(CHRT NQT) D ^CH MXMM03 G E ND | |
135 | I $D(^CHM XCLE("A",C HMXCLI,3)) D ^CHMXMM 03 G END ; INCOMPLET E RETURN F ILE | |
136 | ;MARK NOD E IN THE B UFFER 'FIL E' LEVEL F OR D/T OF RETURN CRE ATED | |
137 | ;CALL SNA PROCESS T O RETURN T HE 277 FIL E OR INVOK E 2NDARY P ROCESS TO | |
138 | ;RETURN P ROPRIETARY FILE | |
139 | D ^CHMXMM 04 | |
140 | ; | |
141 | END ; | |
142 | N EDATA,I DX S EDATA ="" | |
143 | ;D DEBUG( "CHMXDR01: END: RECO RDED ERROR S = ",$G(^ ZSC("DEBUG ","RCDERR" ))) | |
144 | S IDX=0 | |
145 | ;F S IDX =$O(^ZSC(" CLM","ERRO R",IDX)) Q :IDX="" D DEBUG("CH MXDR01: ER ROR = ",ID X_":"_$G(^ ZSC("DEBUG ","ERROR", IDX))) | |
146 | ;C LOGFIL E | |
147 | ;K ^ZSC(" DEBUG","RC DERR") | |
148 | ;K ^ZSC(" DEBUG","ER ROR") | |
149 | K ^CHMXCL ("CLM CNT" ,CHMXCLI), ^CHMXCL("P ROCESSING: ",CHMXCLI ) | |
150 | D UNSET,K ILALL ; WI PE OUT ALL EXTRANEOU S VARIABLE S, RESET D UZ | |
151 | Q | |
152 | ; | |
153 | ;HR-COB-M edicare-A/ B-Begin-93 72 (22-Mar -2010) | |
154 | GETCHTPI() ; Get CH TPI given CHTP | |
155 | ; Also ca lled by ot her routin es | |
156 | N CHTPI | |
157 | ;D DEBUG^ CHMXDR01(" CHMXDR01: GETCHTPI( ): CHTP^C HMEDCOB= " ,CHTP_"^"_ CHMEDCOB) | |
158 | I ($G(CHT P)="") D | |
159 | .S CHTP=$ P(^CHMXCLA (CHTRI,1), "^"),CHTPI =0 | |
160 | .F S CHT PI=$O(^CHM XTP("C",CH TP,CHTPI)) Q:'CHTPI Q:+$P(^CH MXTP(CHTPI ,0),"^",11 )=+$G(CHME DCOB) | |
161 | E D | |
162 | .S CHTPI= 0,CHTPI=$O (^CHMXTP(" C",CHTP,CH TPI)) | |
163 | ;D DEBUG^ CHMXDR01(" CHMXDR01: GETCHTPI: CHTPI= ", CHTPI) | |
164 | Q CHTPI | |
165 | ;HR-COB-M edicare-A/ B-End-9372 | |
166 | ; | |
167 | SETUP ; SE T UP DUZ=" USER,EDI" | |
168 | I '$D(^VA (200,"B"," USER,EDI") ) D | |
169 | .;D DEBUG ^CHMXDR01( "CHMXDR01: SETUP 'US ER,EDI NOT DEFINED' ",0) | |
170 | .S $ZE="C HUSER^CHMX DR01: USER ,EDI NOT D EFINED" | |
171 | .D ^%ET Q | |
172 | ;K ^ZSC(" DEBUG","RC DERR") | |
173 | ;K ^ZSC(" DEBUG","ER ROR") | |
174 | ;S ^ZSC(" DEBUG","RC DERR")=0 | |
175 | S CHDUZHL D=DUZ | |
176 | S (DUZ,CH MFDUZ)=0,( DUZ,CHMFDU Z)=$O(^VA( 200,"B","U SER,EDI",0 )) | |
177 | I 'DUZ S (DUZ,CHMFD UZ)=9944 ; DEFAULT D UZ SETTING FOR EDI | |
178 | K CHMXUNS R,CHRCER,C HEDPRB,CHR CVLN,CHPRB ,CHVLN,CHE R,CHSTPRB | |
179 | K CHBNPRB ,CHVNPRB,C HFLPRB,CHM XUNCC,CHCC PRB,CHCCPR B2,CH277FL G,CHALLRJ | |
180 | Q | |
181 | ; | |
182 | STOP S $ZE ="NO CHFIO /UNABLE TO OPEN EDI VMS FILE-- BATCHED ST OPPED" D ^ %ET | |
183 | Q | |
184 | ; | |
185 | TRNCNT ;RE MARKED OFF , NOT USED PER DAN P . 10/17/20 04 RKN | |
186 | ;I $D(CHT RNCT) S $P (^CHMXCLSA (A,0),"^", 6)=CHTRNCT ,CHTRNCT=0 | |
187 | Q | |
188 | ; | |
189 | UNSET S DU Z=CHDUZHLD | |
190 | K CHRCVLN ,CHPRB,CHV LN,CHER,CH STPRB,CHBN PRB,CHVNPR B,CHFLPRB, CHMXCLI | |
191 | K CHMXUNC C,CHXREC,C HLREC,CHFI O,CHNODTA, CHCCPRB,CH DUZHLD,CHM FDUZ,CHMXU NSR | |
192 | K CHRCER, CHEDPRB,CH CCPRB2,CHO IO,CH277FL G,CHALLRJ | |
193 | Q | |
194 | ; | |
195 | KILALL K A ,BFN,CH,CH CTRD,CHCTR O,CHMFCLMS ,CHMCL,DFN ,CHBENNM,V FN,CHMVEN, CHMFCORR | |
196 | K CHMFACC N,CHMFAMNT ,CHMFASDT, CHMFASS,CH MFBFN,CHMF C,CHMFCLIN ,CHMBEN | |
197 | K CHMFCOM M,CHMFCONT ,CHMFCOR,C HMFDATE,CH MFDAYS,CHM FDCBN,CHMF DCVN | |
198 | K CHMFDFN ,CHMFELIG, CHMFFIN,CH MFFL,CHMFF L1,CHMFHCP C,CHMFICD9 ,CHMFIMAG | |
199 | K CHMFIMC T,CHMFIMNM ,CHMFIMTY, CHMFINCT,C HMFINTC,CH MFINVD,CHM FINVN | |
200 | K CHMFKIL ,CHMFLIST, CHMFLOC,CH MFNMPG,CHM FOUT,CHMFP DI,CHMFPGC T,CHMFPGNM | |
201 | K CHMFPLA C,CHMFPLPT ,CHMFPRCT, CHMFPS,CHM FPSBN,CHMF REDO,CHMFR EF,CHMFSAM E | |
202 | K CHMFSVT Y,CHMFTERM ,CHMFTMBG, CHMFTYPE,C HMFQUIT,CH NB,CHSAME, CHSDX,CHSD Y | |
203 | K CHT,CHT Y,CHUP,DBM ,DF,DF1,DF N,DFOUT,DI C,DLAYGO,D R,DTM,F1,F 2,FLAG4,J | |
204 | K K,HDA,H LD,HTYPE,I V,NM,NW,PD IFL,SFL,SU RFACE,CHFA RM,TOOTH,T Y,QU,VEN | |
205 | K VFN,X,X PLUS,ZCT,Z ICN,CHMCCR FG,CHRXN,C HNDC,CHRXD ,CHRXDP,CH PSN,CHQNT | |
206 | K CHBAMT, CHICD9,CHG NIND,CHICD S9,CHDFL,I CD,CHMFGO, CHLTG,ZY,Z X,DY,DX | |
207 | K CHUP,CH UPS,CHDOWN ,CHDOWNS,C HSAME,CHOU T,CHSDX,CH SDY,CHANSW ,CHLG | |
208 | K CHMFQUI T,CHT,DDOU T,X,Y,ZSTN ,CHREDO,ZS TF,ZTM,ZBM K,CHPTC,CH EKR,CHHDFN | |
209 | K CHHBFN, CHOUTER,CH ENTRE,CHFC T,CHFIFLAG ,CMENTR,CH MFEDIT,CHM FENTR | |
210 | K CHPPX,C HOUTR,CHGN IND,L9,M,M 1,PRXD,STE FL,Y9,TL,F LAG,FLAG1, FLAG2,FLAG 3 | |
211 | K FLAG4,S 1,Y1,Y2,AN ,L,N,M9,M8 ,CHMFCOT,C H9,CH99,CH CTL1,CHJ,C HJJ,CHKILR | |
212 | K CHKIR,C HNUMBR,CHP ,CHPZ,CHSC T,CHSCTS,C HSCTS1,CHS T1,HIP,PCH MFH | |
213 | K CHMFBAS C,PV,CHVEN NM,CHBEN,C HBTCHNO,CH TOBIL,A1,A A,ASKFL,AS S,BAD,BL | |
214 | K BLNK1,B LNK2,BN,C, CFL,CHASSG N,CHCODE,C HCOMFL,CHD EF,CHDTA,C HHDT,CHIBT CH | |
215 | K CHINGOR ,CHMCCR,CH FMCLNM,CHM FI,CHMFNEX T,CHMFPP,C HMFREVS,CH MFRS,CHMFR TN | |
216 | K CHMFSER V,CHMFSORT ,CHMFSRVC, CHMFTY,CHM INUS,CHMNE XT,CHMNRTN ,CHNOW,CHO ICE | |
217 | K CHORG,C HSUM,CHUPF L,CL,CLT,C HMAC,CNO,C NT,CT,CT1, CTY,D,D0,D A1,DA2,DDE R | |
218 | K DI,DN,D OS,DQ,EX,F IPAY,FKIL, HR,HVFN,HX ,HY,I,ID,I MG,LINW,LL ,LN,MEDPTR | |
219 | K MIN,OHI AMT,OHIDOS ,OHIIND,OH INAME,OHIR EC,OHITOS, OHITYP,PAY ,PG,PLS,PS | |
220 | K PT,PVN, PY,REC,REC 40,RNG,RNG BD,RNGED,S DATE,SN,SP ,STR,STR1, SUB,SUB1 | |
221 | K SUB2,SU B3,SUB4,SU B5,SUB6,SV FLD,TAB1,T AB2,TOTSUM ,TSP,VDC,V N,VNPG | |
222 | K VREC0,V REC1,XX,Z, ZZPDI,ZVFN ,CHCHVFG,C HDISC,CHDT ,CHMDT,CHM FDTNM | |
223 | K CHTYPIN T,CHDTR,ME DAMT,PD,CH TRNCT,CHTR NFG,CHTPAB BR | |
224 | Q | |
225 | ; | |
226 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;; | |
227 | ; EPTEST - RUN THE SPECIFIED FILE OUTS IDE OF THE "BATCH" M ODE INITIA TIED BY TH E | |
228 | ; "WAIT" ROUTINE | |
229 | ; THE TST FILE NAMIN G CONVENTI ON REQUIRE S THE CLAI M TO BE CO MPATIBLE W ITH THE | |
230 | ; ^CHMDIC 741002.75 EDI PARAME TER TABLE. I.E. IF T HE TEST CL AIMS ARE S TANDARD ME DICAL | |
231 | ; CLAIMS, YOU MUST MAKE "X12" A PART OF THE TEST FILENAME. IF THE CLA IMS ARE ME DICAL | |
232 | ; "COB" C LAIMS, YOU MUST INCL UDE "COB" AS A PART OF THE TES T FILENAME . THIS IS SO | |
233 | ; THE CLA IM TYPES C AN BE RECO GNIZED AND ROUTED TH ROUGH THE PROCESSING LOGIC COR RECTLY. | |
234 | ; THIS WA Y THE CLAI M TYPES AR E INDEPEND ENT OF THE CLEARING HOUSE FILE NAMES. IF THE | |
235 | ; FILENAM E CONTAINS THE "X12" STRING, T HE CLAIMS CAN BE DIF FERENTIATE D FROM A F ILENAME | |
236 | ; THAT CO NTAINS THE "COB" STR ING. | |
237 | ; NOTE: T HE STANDAR D MEDICAL CLAIMS (X1 2.DAT) ARE THE DEFAU LT. IT IS ONLY NECES SARY | |
238 | ; TO IDEN TIFY "COB" CLAIMS, W HICH REQUI RE ADDITIO NAL LOGIC TO PROCESS . | |
239 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;; | |
240 | ; | |
241 | EPTEST(TST FILE) ; | |
242 | ; TSTFILE THE DIR ECTORY/NAM E OF THE C LAIM FILE TO PROCESS | |
243 | Q:$$ENVIR ^CHTFLIB() ="LIVE" | |
244 | N RCH,FNA ME,FILENAM E,X | |
245 | S FNAME=" ",CHFIO="" | |
246 | I '$D(TST FILE) D | |
247 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !,"PLE ASE ENTER A CLAIM FI LENAME. FORMAT: DI RECTORY PA TH+FILENAM E+EXT" | |
248 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !!,"EX AMPLE: CHA MPVA_EDI:[ KERMITDEV] X12_120125 _72612.DAT -OR- CH AMPVA_EDI: [KERMITDEV ]X12.DAT" | |
249 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !!,"AL L CLAIM FI LES MUST R EPRESENT V ALUES IN ^ CHMDIC(741 002.75 (ED I PARAM FI LE)" | |
250 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !,"THE DATA IN F IELD 1 OF THE DICTIO NARY DEFIN ITION MUST APPEAR IN THE FILEN AME." | |
251 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !,"I.E . ""X12.DA T"" CAN BE REPRESENT ED AS ""X1 2TST_1234. DAT""," | |
252 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !,"""C OBX12.DAT" " CAN BE R EPRESENTED AS ""COBX 12_TST_123 4.DAT""." | |
253 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !!,"PL EASE ENTER THE DESIR ED FILE: " | |
254 | .S FILENA ME=$$ASK() ; ALLOW USER TO IN PUT TEST F ILENAME | |
255 | E D | |
256 | .S FILENA ME=TSTFILE | |
257 | S FNAME=F ILENAME | |
258 | I FNAME[" ]" D ; CH ECK FOR DI RECTORY PA TH | |
259 | .I FNAME[ ".DAT" D ; CHECK FI LE EXTENSI ON (OR WRO NG FILE EX TENSION) | |
260 | ..S FNAME =$P(FNAME, "]",2) | |
261 | ..I FNAME ["_" D ; REMOVE DA TESTAMP IF EXISTS | |
262 | ...S FNAM E=$P(FNAME ,"_",1) | |
263 | ..E S:FN AME[".DAT" FNAME=$P( FNAME,".", 1) ; REMO VE THE FIL E EXTENSIO N | |
264 | U 0 W:$$E NVIR^CHTFL IB()'="LIV E" !,"FNAM E= ",FNAME | |
265 | I FNAME'= "" D | |
266 | .S X=0 | |
267 | .F X=$O(^ CHMDIC(741 002.75,X)) Q:X="" D | |
268 | ..Q:FNAME '[$P(^CHMD IC(741002. 75,X,0),"^ ",1) | |
269 | ..S CHFIO =FILENAME ; MUST BE REPRESENT ED IN THE EDI PARAM FILE | |
270 | I ('$D(CH FIO))!(CHF IO="") D Q ; EXIT IF NOT DEF INED OR NU LL | |
271 | .U 0 W:$$ ENVIR^CHTF LIB()'="LI VE" !,"*** ERROR*** " "",FNAME," "" WAS NOT FOUND IN ^CHMDIC(74 1002.75" | |
272 | E U 0 W: $$ENVIR^CH TFLIB()'=" LIVE" !,"C HFIO= ",CH FIO | |
273 | S CHFIO=F ILENAME | |
274 | S CHMEDCO B=$S(FILEN AME["COB": 1,1:0) ; IDENTIFY T HE CLAIMS AS "COB" C LAIMS FOR PROCESSING | |
275 | G ZSET | |
276 | ; | |
277 | ASK() ; | |
278 | K CHQUIT, CHRTN,CHRE DO,DTOUT,D FOUT,DUOUT ,DQOUT,DDO UT | |
279 | D CSBRS^C HSC2 ; HA NDLE USER INPUT (ANY THING IS P OSSIBLE) | |
280 | S:Y'="" Y =$TR(Y,"ab cdefghijkl mnopqrstuv wxyz","ABC DEFGHIJKLM NOPQRSTUVW XYZ") | |
281 | I $D(DFOU T) S CHQUI T="" ; DF OUT="^^": MAIN MENU; Y IS SET TO "" IN C HSC2.INT | |
282 | I $D(DUOU T) S CHRTN ="" ; DUO UT="^" : B ACKUP ONE FIELD; Y I S SET TO " " IN CHSC2 .IN | |
283 | I $D(DTOU T) S CHRED O="",Y="" ; DTOUT=T IMEOUT;Y I S NOT CLEA RED IN CHS C2.INT | |
284 | I $D(DQOU T) ; DQOU T IS "?" REQUEST FO R HELP; Y IS SET TO "" IN CHSC 2.IN | |
285 | I $D(DDOU T) IF Y]"" K DDOUT ; DDOUT IS "TAB" INP UT; Y IS N OT CLEARED IN CHSC2. INT | |
286 | Q Y | |
287 | ; | |
288 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;; | |
289 | ; ERROR - CLOSE OUT PROCESSIN G DUE TO A N ERROR | |
290 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;; | |
291 | ; | |
292 | ERROR C CH FIO | |
293 | ;C LOGFIL E | |
294 | D ^%ET | |
295 | Q | |
296 | ; | |
297 | ;******** *******Che ck to see if PDI's f rom X12 fi le has bee n loaded i nto M ;07 /26/2006 R KN ****** ********* | |
298 | RKNPDI ; | |
299 | ;G ENDRKN | |
300 | I $D(XPDI DFLAG) K X PDIDFLAG,X PDIFOUND ;K PDI DUP E FLAG 02/ 28/2006 RK N | |
301 | K XFIOLG, XFIOLN,XDD MMYY,XPDI, XTELE,XPDI FOUND,XOCR TYPE,XPDID FLAG | |
302 | D NOW^%DT C | |
303 | S XDDMMYY =$E(%,4,5) _"/"_$E(%, 6,7)_"/20" _$E(%,2,3) | |
304 | S XFIOLG= $L(CHFIO) | |
305 | C CHFIO | |
306 | O CHFIO:" R":5 Q:'$T | |
307 | S $ZE="", $ZT="RK1EN D" ;SKD, 8-9-06 | |
308 | RK1 U CHFI O G:$ZE["E NDOFFILE" RK1END R X FIOLN G:$Z E["ENDOFFI LE" RK1END ;SKD, 8 -9-06 | |
309 | I $E(XFIO LN,1,4)="A 015" S XOC RTYPE=$E(X FIOLN,35,3 8) | |
310 | I $E(XFIO LN,1,4)'=" E001" G RK 1 | |
311 | I $E(XFIO LN,1,4)="E 001" S XPD I=$E(XFIOL N,5,19),XT ELE=$E(XFI OLN,122,12 7) | |
312 | ; | |
313 | I $D(^CHM IMAGE(XPDI ,0)) D C CHFIO | |
314 | .S XPDIFO UND=1,XPDI DFLAG=1 | |
315 | .S ^CHMZH OLD("OCRDU PEPDIS",XP DI,XTELE,X DDMMYY,$E( %,9,15))=C HFIO_"^"_X OCRTYPE_"^ "_XTELE_"^ "_XDDMMYY_ "@"_$E(%,9 ,15) | |
316 | .S CHNB=2 ,ZML(CHNB) ="",CHNB=C HNB+1,CHNB =CHNB+1,ZM L(CHNB)=" ",CHNB=CHN B+1,ZML(CH NB)="OCR d uplicate P DI's possi ble from t he EDI ser ver side b eing pushe d to M" | |
317 | .S CHNB=C HNB+1,ZML( CHNB)=" ", CHNB=CHNB+ 1,ZML(CHNB )="OCR fil e "_CHFIO_ " attempte d to re-pr ocess dupl icate PDI' s..." | |
318 | .S CHNB=C HNB+1,ZML( CHNB)=" ", CHNB=CHNB+ 1,ZML(CHNB )="OCR typ e: "_XOCRT YPE_" PD I: "_XPDI_ " Telefo rm #: "_XT ELE | |
319 | .S CHNB=C HNB+1,ZML( CHNB)=" ", CHNB=CHNB+ 1,ZML(CHNB )="Please research t his incide nt, PDI's. .reference ^CHMZHOLD ('OCRDUPEP DIS',"_XPD I_","_XTEL E_") globa l" | |
320 | .S XMDUZ= .5 | |
321 | .S XMY(" PII ")="" | |
322 | .S XMY("
|
|
323 | .S XMY("
|
|
324 | .S XMY(" P I
|
|
325 | .S XMTEXT ="ZML(",XM SUB="OCR d uplicate P DI's possi ble" | |
326 | .D ^XMD | |
327 | .Q | |
328 | ;ENDRKN | |
329 | RK1END C C HFIO I $ZE ["ENDOFFIL E" S $ZE=" " ;SKD 8- 9-06 | |
330 | S $ZE="" | |
331 | Q | |
332 | ;******** ****** E ND PDI ;C K DUPE PDI 's 07/26/2 006 RKN * ********** ******* | |
333 | ; | |
334 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; | |
335 | ; DEBUG L OGGING ROU TINE USED TO LOG THE FRONT END EDIT PROC ESS, INCLU DING THE | |
336 | ; RECORDS READ FROM THE CLAIM FILE, THE FUNCTIONS CALLED TO PERFORM T HE EDITS, | |
337 | ; AND THE LOGGING O F THE ERRO RS ENCOUNT ERED FROM THE EDIT P ROCESS. | |
338 | ; THE INT ENDED USE FOR THIS F UNCTION IS IN THE D EVELOPMENT OR TEST E NVIRONMENT S | |
339 | ; AND TO ENSURE THA T IT IS NO T EXECUTED IN THE "P RODUCTION" ENVIRONME NT | |
340 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; | |
341 | DEBUG(STR, VALUE) ; | |
342 | ;STR A U SER PROVID ED STRING DESCRIBING THE VALUE (I.E. "RE CORD INFOR MATION=", | |
343 | ;VALUETHE VALUE TO BE DISPLAY ED IN THE LOG FOR TH E LOGGING ENTRY. | |
344 | ; CHECK T HE CURRENT WORKING E NVIRONMENT | |
345 | Q:$$ENVIR ^CHTFLIB() ="LIVE" | |
346 | S X=132 X ^%ZOSF("R M") ; SET THE CACHE DISPLAY T O 132 CHAR ACTERS | |
347 | U 0 W !,S TR,VALUE | |
348 | Q | |
349 | N TMPIO | |
350 | S TMPIO=$ IO ; SAVE THE CURRE NT IO VARI ABLE | |
351 | I '$D(LOG FILE) D ; IF NO LOG FILE CREAT ED, CREATE ONE | |
352 | .S LOGFIL E="HAC_HFS $:[KERMIT] LOGFILE.TX T" ; TARG ET OUTPUT DIR/FILENA ME - CFS 0 1/07/2018 change VMS directory . | |
353 | .O LOGFIL E:"NWS":5 ; DEBUG OU TPUT FILE ; OPEN TH E LOGFILE | |
354 | .I $D(CHF IO) U LOGF ILE W !," TESTFILE= ",CHFIO ; RECORD TH E CLAIM FI LE BEING L OGGED | |
355 | .;S ^ZSC( $J,0)=0 ; INITIALIZ E THE RECO RD ERROR C OUNTER | |
356 | U LOGFILE W !,STR,V ALUE ; OU TPUT LOGGI NG STATEME NT | |
357 | U TMPIO ; RESTORE TO THE ORI GINAL IO | |
358 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.