274. EPMO Open Source Coordination Office Redaction File Detail Report

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.

274.1 Files compared

# 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

274.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 898
Changed 3 10
Inserted 0 0
Removed 0 0

274.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

274.4 Active regular expressions

No regular expressions were active.

274.5 Comparison detail

  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("
P II                   ")=""
  281    S XMY("
P II                     ")=""
  282    S XMY(" P 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