11. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:41 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.

11.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPEBN.m Mon Nov 5 16:40:58 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPEBN.m Mon Nov 5 17:37:12 2018 UTC

11.2 Comparison summary

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

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

11.4 Active regular expressions

No regular expressions were active.

11.5 Comparison detail

  1   CHBPEBN ;C VA/AEB;SOR T/CREATE Z ERO PAY EO B VMS FILE ;05/17/99   8:29 AM
  2    ;V1.0
  3    ;CPTS - 1 0283*,1080 4*, #16481  (RLC)
  4    ;TT DEF00 4849 - JEH  4/30/08
  5    ;JEH 7/15 /08 - TT I ssue DEF00 5326 Modif iy ZEOB tr ansmit pro cess to Au stin 
  6    ;TT #ENC0 05750: Bat ch file tr ansmission  automated  checklist  - JEH 12/ 17/08
  7    ;JEH 7/7/ 09 ENC0036 99: Set up  a test en vironment  for the pa yment batc h testing  with AAC  
  8    ;JEH 10/2 6/11 - Add ed file ba ckup '.COM '
  9    ;DEV01580 3  AEB 11/ 20/2013  F IX PAYING  OF REJECTE D CLAIMS
  10    ;DEF01655 4  SBB 11/ 27/2013  M odified Wr iting to a  file as p er VHA sta ndard.
  11    ;MTN02123 6 Undefine d problem  in line ta g PELIG ch anging CLM PT to CHCL MPT DRW 06 /09/2014
  12    ;DEF01655 4  SBB 07/ 30/2015  A dding chan ges for DE CNET
  13    ;
  14    S ZTRTN=" A^CHBPEBN" ,ZTDESC="Z ERO EOB CR EATION"
  15    S ZTIO=""  D ^%ZTLOA D
  16    I $$ENVIR ^CHTFLIB=" LIVE" W !! ,"Your tas k number i s ",ZTSK
  17    Q
  18   A D ^CHBPF 121
  19    S:'$D(^CH MEOBQ("ZER O")) ^CHME OBQ("ZERO" )=1
  20    I $P(^CHM EOBQ("ZERO "),"^",1)= 0 D MAIL1  Q
  21    I '$D(DT)  D NOW^%DT C S DT=X
  22    S DAYPT=$ $DOW^XLFDT (DT,1) I ( DAYPT=0)!( DAYPT=6) Q    ;SAT OR  SUN CHK 
  23    I $D(^HOL IDAY(DT))  Q   ;CHECK S FOR HOLI DAY
  24    ;D SNATST 1 G:$D(CHM ERR) END
  25    K ^CHMZHO LD($J)
  26    S DUMMY=" HAC_HFS$:[ DSMMANAG.C HAMPVA]DUM MY.LOG"
  27    I $$ENVIR ^CHTFLIB=" LIVE" S X= $ZF(-1,"SU BMIT HAC_H FS$:[DSMMA NAG.CHAMPV A]FMS_ZERO _COPY_DATA .COM") H 1 0  ;JEH 7/ 7/09
  28   S1 S EOBFI L="HAC_HFS $:[DSMMANA G]ZEOB.DAT "
  29    I $$ENVIR ^CHTFLIB'= "LIVE" S E OBFIL="HAC _HFS$:[DSM MANAG]ZEOB _"_$$ENVIR ^CHTFLIB_" .DAT"  ;JE H 7/7/09
  30    ;DEF01655 4-11/27/13 -SBB use O PEN^%ZISH  to open fi le
  31    ;O EOBFIL :"NWS"
  32    ;SBB 07/3 0/15 DEF01 6554
  33    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  34    I '$$OPEN FIWR^CHTFL IB9(.EOBFI L,"EOBFIL" ) G END
  35    S U="^",C HEOBI=0,IN DFL=1,PFLG =1,TOT=0,T OT1=0,TOT2 =0,TOT3=0
  36    D NOW^%DT C S CHHOLD I="EOB-"_X ,CHMMCT=3
  37   START S CH EOBI=$O(^C HMEOBQ("C" ,0,CHEOBI) ) G:'CHEOB I END
  38    I '$D(^CH MEOBQ(CHEO BI,0)) K ^ CHMEOBQ("C ",0,CHEOBI ) G START
  39    S TOT1=TO T1+1 I TOT 1>30000 G  END   ;JEH  4/30/08   FIXED LOGI C ERROR OF  LIMITING  NUMBER OF  ZEOB'S GOI NG TO AUST IN
  40    S CHCLMPT =$P(^CHMEO BQ(CHEOBI, 0),U,2) G: CHCLMPT=""  START
  41    S X1=CHCL MPT D PROG TYP^CHFCD0 01
  42    I $D(@(GL PAY_"CHCLM PT,""ARCHI VE"")")) D   G START
  43    .Q:'$D(CH CLMPT)
  44    .S CHEOBI I=0,CHEOBI I=$O(^CHME OBQ("D",CH CLMPT,CHEO BII)) I 'C HEOBII K C HEOBII Q
  45    .S DIE=74 1010.1,DA= CHEOBII
  46    .S DR=".0 3///^S X=1 " D ^DIE K  DIE
  47    .S CHMQNA M="CHMEOBQ (",CHMOUT= "" K CHMIN  D ^CHMIS0 41 K CHEOB II
  48    .Q
  49    I '$D(@(G LPAY_"CHCL MPT,0)"))  W !,"NO CH MPAY ZERO  NODE ",CHC LMPT G STA RT
  50    S CHMC0=@ (GLPAY_"CH CLMPT,0)")
  51    S DFN=$P( CHMC0,U,21 ),BFN=$P(C HMC0,U,22)
  52    G:DFN=""  START G:BF N="" START
  53    D BADDCHK  I $D(SKFL G) K SKFLG  G START
  54    I $P(CHMC 0,"^",5)=1  D  G STAR T
  55    .S TOT=TO T+1,EDITYP ="NON"
  56    .S VENPT= $P(CHMC0,U ,3) I VENP T="" D  Q
  57    ..S CHCI= CHCLMPT D  ^CHMG4303  I BADFL=1  D  Q  ;IF  BAD ADDRES S MUST BE  VENDORIZED
  58    ...S ^CHM EOBQ("ZBAD ",CHCLMPT) =""
  59    ...Q
  60    ..;HR-PBM -PHASE 1B- Begin
  61    ..;Team T rack #: 55 92 - HIPAA  READY
  62    ..;Change d to call  new 835 ro utine...th is routine  phase out
  63    ..;S EDIT YP=$$CHPID ^CHEDIFU1( CHCLMPT) I  EDITYP=""  S EDITYP= "NON"
  64    ..S EDITY P=$$CHPID^ CH835FU1(C HCLMPT) I  EDITYP=""  S EDITYP=" NON"
  65    ..;HR-PBM -PHASE 1B- End
  66    ..I EDITY P'="NON" D   Q  ;IF N O VENDOR A ND EDI MUS T BE VENDO RIZED.
  67    ...S ^CHM EOBQ("ZBAD ",CHCLMPT) =""
  68    ...Q
  69    ..S VENPT =EDITYP_"_ 0",^CHMZHO LD($J,"VEN ",VENPT,DF N,BFN,CHCL MPT)=""
  70    .;HR-PBM- PHASE 1B-B egin
  71    .;Team Tr ack #: 559 2 - HIPAA  READY
  72    .;Changed  to call n ew 835 rou tine...thi s routine  phase out
  73    .;S EDITY P=$$CHPID^ CHEDIFU1(C HCLMPT) I  EDITYP=""  S EDITYP=" NON"
  74    .S EDITYP =$$CHPID^C H835FU1(CH CLMPT) I E DITYP="" S  EDITYP="N ON"
  75    .;HR-PBM- PHASE 1B-E nd
  76    .S VENPT= EDITYP_"_" _VENPT
  77    .S ^CHMZH OLD($J,"VE N",VENPT,D FN,BFN,CHC LMPT)=""
  78    .;S ^CHMZ TONY("EOB- VEN",VENPT ,DFN,BFN,C HCLMPT)=""
  79    .Q
  80    I '$P(CHM C0,"^",5)= 1 D  G STA RT
  81    .S TOT2=T OT2+1
  82    .S ^CHMZH OLD($J,"BE N",DFN,BFN ,CHCLMPT)= ""
  83    .;S ^CHMZ TONY("EOB- BEN",DFN,B FN,CHCLMPT )=""
  84    .Q
  85    G START
  86   END ;
  87    D ^CHBPEB SD K ^CHMZ HOLD($J)
  88    D ^CHBPEB NF K ^CHMZ HOLD($J)
  89    D PSUDO
  90    ;DEF01655 4-11/27/13 -SBB use C LOSE^%ZISH  to close  file
  91    ;C EOBFIL
  92    D CLOSEF^ CHTFLIB9(E OBFIL,"EOB FIL")
  93    ;SBB 07/3 0/15 DEF01 6554
  94    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  95    D ZWCLOSE ^CHMSNUTL( EOBFIL,132 ,512)    ;  JEH
  96   END1 K CHM C0,CHMC1,D FN,BFN,CHE OBI,^CHMZH OLD($J,"VE N"),^CHMZH OLD($J,"BE N")
  97    K CHEOB,X ,I,FILE,FM PCPT,FMPI, FMPINT,FMP J,FMSDOCID ,INDFL,IND FLG,J,LN,M
  98    K MAX,MAX CT,N,NCL,N UM,NY,ODFN ,OFFSET,OI ,EOBFIL,CH TRID,CHVIM ,CLMPT1
  99    K CNTRY,C NTRYPT,CON TR,COUNT5, CPG,CTI,CT Z,DOS1,DR, ADDR3,ADDR 4,AMT1,ANC
  100    K AOB,BAD FL,BARCODE ,BASE,BENE PAY,BENESH ,CAB,CCODE ,CHADDID,C HBARCD,CHB M
  101    K CHCKINC ,CHCLIND,C HCLMPT,CHC LPT,CHDLIN ES,CHDUBL, CHELCT,CHE LCT1,CHEOB PT
  102    K CHFMSHD R,CHHOLDI, CHMFPDI,CH MINUS,CHPA GES,CHPG,C HPRGID,CHP RST,CHSINL
  103    K CHSTD,C HSTTYP,CHS TTYP1,COUN T,CT,PGLIM IT,PROFL,P STATE,R,RE AS,REC1,RL N
  104    K STATUS, TOT,TOT2,T OT3,VENDSH ,VET,VNPT, VREC1,VSSN ,X1,XX,Y,Z IP,CHSTID, CT1
  105    K DA,DDER ,DIGIT,ETA B,PADDR3,P ADDR4,PAGE S,PCNTRYPT ,PDIJ,PFLG ,PG,PG1
  106    K PCNTRY, PROVFL,IOV AR
  107    S DUMMY=" HAC_HFS$:[ DSMMANAG.C HAMPVA]DUM MY.LOG"
  108    I $$ENVIR ^CHTFLIB=" LIVE" S X= $ZF(-1,"SU BMIT HAC_H FS$:[DSMMA NAG]BPZCOP Y.COM") H  15   ;BACK ING UP BP  FILES TO H AC_HFS$:[A RC.BATCH]   ;JEH 10/2 6/11
  109    Q
  110   SET ;SET S TATUS IN E OBQ TO 3 A ND SUBTRAC T 1 FORM C HV SCREEN
  111    Q:'$D(CHC LPT)
  112    S CHEOBI= 0,CHEOBI=$ O(^CHMEOBQ ("D",CHCLP T,CHEOBI))  I 'CHEOBI  K CHEOBI  Q
  113    S DIE=741 010.1,DA=C HEOBI
  114    S DR=".03 ///^S X=3"  D ^DIE K  DIE
  115    S CHMQNAM ="CHMEOBQ( ",CHMOUT=" " K CHMIN  D ^CHMIS04 1 K CHEOBI
  116    Q
  117   SNATST1 D  START^CHMS N11B I $D( CHMERR) K  CHMERR D S TART^CHMSN 11A I $D(C HMERR) S C HMSTAT=30  Q
  118    Q
  119   MAIL S TMP CT=1
  120    S ^TMP($J ,"ZERO-EOB ",TMPCT)=" ",TMPCT=TM PCT+1
  121    S ^TMP($J ,"ZERO-EOB ",TMPCT)=" The Zero/r ejected EO B file cre ated on "_ $$FMTE^XLF DT(DT,"1D" )
  122    S TMPCT=T MPCT+1
  123    S ^TMP($J ,"ZERO-EOB ",TMPCT)=" still need s to be se nt.  Pleas e log onto  the manag er account  CHAMPVA d irectory a nd run FMS _SEND_ZERO _FTP.COM."
  124    S TMPCT=T MPCT+1,^TM P($J,"ZERO -EOB",TMPC T)="After  sending se t ^CHMEOBQ (""ZERO"") =1.   THAN K YOU"
  125    S XMDUZ=. 5,XMY("988 7")="",XMY ("2488")=" ",XMY("13" )="",XMY(" 9900")="", XMY("58243 ")="",XMY( "G.BATCH T RAN")=""
  126    S XMY("10 722")="",X MY("9993") ="",XMY("9 898")=""
  127    S XMY(" PII                        ")=""
  128    S XMTEXT= "^TMP($J," "ZERO-EOB" ","
  129    S XMSUB=" CVA/SB ZER O/REJ EOB  SEND PROBL EM" D ^XMD
  130    Q
  131   MAIL1 S TM PCT=1
  132    S ^TMP($J ,"ZERO-EOB 1",TMPCT)= "",TMPCT=T MPCT+1
  133    S ^TMP($J ,"ZERO-EOB 1",TMPCT)= "The flag  in ^CHMEOB Q(""ZERO"" ) is 0.  P lease send  the data  file if ne ed, set "
  134    S TMPCT=T MPCT+1
  135    S ^TMP($J ,"ZERO-EOB 1",TMPCT)= "^CHMEOBQ( ""ZERO"")= 1 and retr y."
  136    S TMPCT=T MPCT+1,^TM P($J,"ZERO -EOB1",TMP CT)="   TH ANK YOU"
  137    S XMDUZ=. 5,XMY("988 7")="",XMY ("2488")=" ",XMY("13" )="",XMY(" 9900")="", XMY("58243 ")=""
  138    S XMY("10 722")="",X MY("9993") ="",XMY("9 898")="",X MY("G.BATC H TRAN")=" "
  139    S XMY(" PII                        ")=""
  140    S XMTEXT= "^TMP($J," "ZERO-EOB1 "","
  141    S XMSUB=" CVA & SB Z ERO/REJ EO B PROBLEM"  D ^XMD
  142    Q
  143   PSUDO ;SET  PSUDO VEN DOR WITH B AD ADDRESS ES INTO VE NDOR QUE
  144    S CLMPT=0
  145   A1 S CLMPT =$O(^CHMEO BQ("ZBAD", CLMPT)) Q: CLMPT=""
  146    G:'$D(^CH MEOBQ("ZBA D",CLMPT))  A1 S X1=C LMPT D PRO GTYP^CHFCD 001
  147    G:'$D(@(G LPAY_"CLMP T,0)")) A1
  148    S CHMFCLN M=$P(@(GLP AY_"CLMPT, 0)"),"^",1 ) G:CHMFCL NM="" A1
  149    S $P(@(GL PAY_"CLMPT ,0)"),"^", 2)=1
  150    I $D(@(GL PAY_"CLMPT ,""EOB-CAT /DED"")"))  K @(GLPAY _"CLMPT,"" EOB-CAT/DE D"")")
  151    I $D(@(GL PAY_"CLMPT ,""EOB-CLA IMS"")"))  K @(GLPAY_ "CLMPT,""E OB-CLAIMS" ")")
  152    I $D(@(GL PAY_"CLMPT ,""EOB-CLA IMS/PROV"" )")) K @(G LPAY_"CLMP T,""EOB-CL AIMS/PROV" ")")
  153    I $D(^CHM EOBQ("D",C LMPT)) D
  154    .S CHEOBP T=0,CHEOBP T=$O(^CHME OBQ("D",CL MPT,CHEOBP T)) Q:'CHE OBPT
  155    .S DIK="^ CHMEOBQ(", DA=CHEOBPT  D ^DIK
  156    .Q
  157    I $D(^CHM QVN("G",CL MPT)) D
  158    .S CHQVNP T=0,CHQVNP T=$O(^CHMQ VN("G",CLM PT,CHQVNPT )) Q:'CHQV NPT
  159    .S DIK="^ CHMQVN(",D A=CHQVNPT  D ^DIK
  160    .Q
  161    S CHMFCLP T=CLMPT,X1 =CLMPT D P ROGTYP^CHF CD001
  162    D ^CHFCD1 03 K ^CHME OBQ("ZBAD" ,CLMPT)
  163    S $P(@(GL PAY_"CLMPT ,3)"),"^", 7)=1  ;AEB  DEV015803  11/20/201 3
  164    G A1
  165    Q
  166   BADDCHK ;C HECKS FOR  A VALID BE NE ADDRESS
  167    I '$D(^AH CHVA(DFN,1 00,BFN,1))  S SKFLG=" " D PELIG  D EKILL Q
  168    I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",1)="" S  SKFLG=""  D PELIG D  EKILL Q
  169    I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)=0 D   Q
  170    .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",3)=""  S SKFLG=""  D PELIG D  EKILL Q
  171    .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",4)=""  S SKFLG=""  D PELIG D  EKILL Q
  172    .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",5)=""  S SKFLG=""  D PELIG D  EKILL Q
  173    I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)=1 D   Q
  174    .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",13)=""  S SKFLG=" " D PELIG  D EKILL Q
  175    Q
  176   PELIG   ;P UT INTO PE NDING STAT US, PUT IN  ELIGIBLIT Y QUEUE
  177    I '$D(CHM FPDI) D
  178    .S CHPDIP T=9999999
  179    .S CHPDIP T=$O(@(GLP AY_"CHCLMP T,""PDI"", CHPDIPT)") ,-1) Q:'CH PDIPT
  180    .Q:'$D(@( GLPAY_"CHC LMPT,""PDI "",CHPDIPT ,0)"))
  181    .S CHMFPD I=$P(@(GLP AY_"CHCLMP T,""PDI"", CHPDIPT,0) "),"^",1)
  182    .Q
  183    I $D(@(GL PAY_"CHCLM PT,""ZEMC" ",""CMOP"" )")) S CHC MPCLI=CHCL MPT,CHQNAM ="ELIGIBIL ITY",CHQUR SN="ELG/3"  D ^CHMXCP BP I $D(CH CMPFG) K C HCMPFG Q   ; ADDED BY  DTP (MAY/ 1995) FOR  CMOP PROJE CT
  184    I $P(@(GL PAY_"CHCLM PT,0)"),"^ ",28)=1 S  REAS="Elig ibility Qu eue - Pend ing Review  Status" D  MAIL^CHFC D015 Q
  185    S %DT="", X="T" D ^% DT S DT=Y  Q:'$D(CHMF PDI)  S I= CHCLMPT
  186    Q:$D(^CHM ELQ("C",I) )
  187    G PEXIT:' $D(@(GLPAY _"I,0)"))  G:DFN="" P EXIT G:BFN ="" PEXIT
  188    S:'$D(^CH MELQ(0)) ^ (0)="CHAMP VA ELIGIBI LITY QUEUE ^741010.14 ^0^0"
  189    S X=$P($H ,",",2),H= X\3600,M=X #3600\60,S =X-(H*3600 )-(M*60) S :H<10 H=0_ H
  190    S:M<10 M= 0_M S:S<10  S=0_S S C HMDATE=+(D T_"."_H_M_ S) L ^CHME LQ(0)
  191    S X=$P(^C HMELQ(0)," ^",3)+1,$P (^(0),"^", 3)=X,$P(^( 0),"^",4)= X L  S DAX =X
  192    S CHMFI=I ,CHMFPP="S QELG" D ^C HMFWK02  ; ADDED BY J LR FOR WOR KFLOW
  193    S ^CHMELQ (DAX,0)=CH MDATE_"^"_ I_"^"_DUZ_ "^^^0^"_DU Z_"^"_DFN_ "^"_BFN_"^ "_CHMFPDI
  194    S CHMQNAM ="CHMELQ(" ,CHMIN=""  K CHMOUT D  ^CHMIS041  ;SYSTEM S TATISTICS
  195    S ^CHMELQ ("B",0,999 9999-(CHMD ATE\1),DAX )="",^CHME LQ("C",I,D AX)=""
  196    S ^CHMELQ ("D",0,DFN ,BFN,DAX)= ""
  197    S ^CHMELQ ("F",0,DAX )=""
  198    S DIE=GLP AY,DA=X1
  199    S DR=".02 ///^S X=1"  D ^DIE
  200    S $P(@(GL PAY_"CHCLM PT,3)"),"^ ",7)=1     ;AEB DEV01 5803 11/20 /2013 ;MTN 021236  06 /09/2014
  201   PEXIT   Q
  202   EKILL ;KIL L CLAIM FR OM EOB QUE
  203    S CHEOBII =0,CHEOBII =$O(^CHMEO BQ("D",CHC LMPT,CHEOB II)) I 'CH EOBII K CH EOBII Q
  204    S DIK="^C HMEOBQ(",D A=CHEOBII  D ^DIK K D IK,DA
  205    S CHMQNAM ="CHMEOBQ( ",CHMOUT=" " K CHMIN  D ^CHMIS04 1 K CHEOBI I
  206    Q