240. EPMO Open Source Coordination Office Redaction File Detail Report

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.

240.1 Files compared

# 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

240.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 708
Changed 1 8
Inserted 0 0
Removed 0 0

240.3 Comparison options

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

240.4 Active regular expressions

No regular expressions were active.

240.5 Comparison detail

  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("
P II                   ")=""
  323    .S XMY("
P II                     ")=""
  324    .S XMY(" P I
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