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

10.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPACS.m Mon Nov 5 16:44:14 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPACS.m Tue Nov 6 21:31:37 2018 UTC

10.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 6 522
Changed 5 14
Inserted 0 0
Removed 0 0

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

10.4 Active regular expressions

No regular expressions were active.

10.5 Comparison detail

  1   CHBPACS ;C VA/JEH;CHE CK OUTGOIN G BAT FILE S TO AAC F OR DUPS;04 /13/98  3: 21 PM
  2    ;;1.0;CHA MPVA SYSTE M;;MAY 29,  2014
  3    ;JEH 2/29 /08 - FIX  $T LOGIC
  4    ;JEH 7/15 /08 - TT I ssue DEF00 5326 Modif iy ZEOB tr ansmit pro cess to Au stin 
  5    ;JEH (DEF 007125) 4/ 23/09 - FI X DUP CHEC K LOGIC
  6    ;RVS 12/8 /2011 - ad ded Austin  Return Fi le backups  to be sto red in HAC _HFS$:[ARC .BATCH.RET URN]
  7    ;JEH 12/0 9/11 - Add ed ARC mes sage
  8    ;JEH 7/27 /12 - TT M TN015348:  Added ADHO C vendor u pdate 
  9    ;SBB 12/2 4/13 DEF01 6554 - Mod ified EOF  handling a s per VHA  standard.
  10    ;                         - Con verting fr om DECNET  to FTP.
  11    ;MTN02114 3: CORRECT ION TO BAT CH UPDATE  MESSAGE;;  DRW 05/29/ 2014
  12    ;SBB 07/3 0/15 - DEF 016554: Ad ding chang es for DEC NET
  13    ;
  14   START ;USE  QUEA^CHBP ACS TO QUE  ROUTINE T O RUN IN B ACKGROUND
  15    Q:$$ENVRM T="TRAIN"    ;QUIT IF  NOT LIVE
  16    Q:$$ENVRM T="DEV"      ;QUIT IF  NOT LIVE
  17    Q:$$ENVRM T="TRAIN"    ;QUIT IF  NOT LIVE
  18    G:$D(^CHM ZHOLD("BAT CH_DUP_CHK _RUNNING") ) ENDB
  19    G:$D(^CHM ZHOLD("BAT CH_RUNNING ")) ENDC
  20    D INIT
  21    D LDFCAPP
  22    Q:QNFLG=1
  23    D LDFCALM
  24    Q:QNFLG=1
  25    I $D(^CHM ZHOLD("POS _BP_DUPS") ) D
  26    .D MMMSG       ; SEN D DUPLICAT E MESSAGE
  27    E  D
  28    .U 0 W !! ,"*** SEND ING FILES  - NO DUPS  ***"
  29    .D SNDFLS    ; SEND  FILES IF N O DUPLICAT ES
  30    .D FS3FL    ;SEND FI LE TO FS3B IG TO ALER T MOVEIT
  31    D END
  32    Q
  33   INIT ;INIT IALIZING
  34    S (CTR,DC TR)=0
  35    S QNFLG=0
  36    S SENDDT= ""
  37    D NOW^%DT C S SENDDT =X    ; DA TE SENDING  FILES TO  AAC
  38    S ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING")="C HBPACS"
  39    Q
  40   LDFCAPP ;L OADING FMS  CAPP CLAI MS
  41    U 0 W !," INSIDE LDF CAPP",!
  42    ;SBB 07/3 0/15 DEF01 6554
  43    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  44    S FCPIO=" HAC_HFS$:[ DSMMANAG]F MS_CAPP_FI LE.DAT"
  45    ;DEF01655 4-12/24/13 -SBB call  OPEN^%ZISH  to open t he file
  46    ;O IO:"R" :5
  47    ;I $T=0 D  OERR Q      ;JEH 7/2 2/09 - MOV ED UP A LI NE
  48    I '$$OPEN FIRD^CHTFL IB9(.FCPIO ,"FCPIO")  D OERR(FCP IO) Q
  49    S CTRPP=0
  50    S $ZE=""  S $ZT="LFQ ^CHBPACS"
  51    ;S $ZT="O ERR^CHBPAC S" S $ZE=" " U IO I $ ZE["NOTOPE N" Q   ;JE H 2/29/08
  52    ;DEF01655 4-12/24/13 -SBB use S TATUS^%ZIS H to check  for EOF
  53    ;F  U IO  R REC S RE CLN=$E(REC ,1) D:RECL N="L"
  54    F  U FCPI O R REC G: $$STATUS^% ZISH LFQ S  RECLN=$E( REC,1) D:R ECLN="L"
  55    .S CHCLM= "" S CHCLM =$E(REC,65 ,71)
  56    .S CHPRGM =$E(REC,62 ,64)
  57    .S CTRPP= CTRPP+1
  58    .;I $D(^C HBPACC("B" ,CHCLM)) I  '$D(^CHMS NA(741008. 6,"F",CHCL MI)) D LDD UP
  59    .I $D(^CH BPACC("B", CHCLM)) D  LDDUP
  60    .;U 0 W ! ,"INSIDE L DFCAPP F-L OOP",?35,C HCLM,?50,C TRPP  ;UNC OMMENT TO  DISPLAY CL AIMS BEING  CHECKED
  61    ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH  to close  file
  62    ;C IO
  63    D CLOSEF^ CHTFLIB9(F CPIO,"FCPI O")
  64    ;SBB 07/3 0/15 DEF01 6554
  65    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  66    Q
  67   LDFCALM ;L OADING FMS  CALM CLAI MS
  68    U 0 W !," INSIDE LDF CALM",!
  69    ;SBB 07/3 0/15 DEF01 6554
  70    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  71    S FCLIO=" HAC_HFS$:[ DSMMANAG]F MS_CALM_FI LE.DAT"
  72    ;DEF01655 4-12/24/13 -SBB call  OPEN^%ZISH  to open t he file
  73    ;O IO:"R" :5
  74    ;I $T=0 D  OERR Q      ;JEH 7/2 2/09 - MOV ED UP A LI NE
  75    I '$$OPEN FIRD^CHTFL IB9(.FCLIO ,"FCLIO")  D OERR(FCL IO) Q
  76    S CTRLM=0
  77    S $ZE=""  S $ZT="LLQ ^CHBPACS"
  78    ;S $ZT="O ERR^CHBPAC S" S $ZE=" " U IO I $ ZE["NOTOPE N" Q   ;JE H 2/29/08
  79    ;DEF01655 4-12/24/13 -SBB use S TATUS^%ZIS H to check  for EOF
  80    ;F  U IO  R REC S RE CLN=$E(REC ,1) D:RECL N="L"
  81    F  U FCLI O R REC G: $$STATUS^% ZISH LLQ S  RECLN=$E( REC,1) D:R ECLN="L"
  82    .S CHCLM= "" S CHCLM =$E(REC,65 ,71)
  83    .S CHPRGM =$E(REC,62 ,64)
  84    .S CTRLM= CTRLM+1
  85    .;I $D(^C HBPACC("B" ,CHCLM)) I  '$D(^CHMS NA(741008. 6,"F",CHCL MI)) D LDD UP
  86    .I $D(^CH BPACC("B", CHCLM)) D  LDDUP
  87    .;U 0 W ! ,"INSIDE L DFCALM F-L OOP",?35,C HCLM,?50,C TRLM  ;UNC OMMENT TO  DISPLAY CL AIMS BEING  CHECKED
  88    ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH  to close  file
  89    ;C IO
  90    D CLOSEF^ CHTFLIB9(F CLIO,"FCLI O")
  91    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  92    Q
  93   OERR(FN) ;
  94    W !!,"NOT  ABLE TO O PEN FILE:  ",FN,!!
  95    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  96    D KVAR
  97    S QNFLG=1   ;QUIT NO W FLAG
  98    Q
  99   LFQ ;QUIT  LOOP IF EN D OF FILE  IS REACHED
  100    ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH  to close  file
  101    ;C IO
  102    D CLOSEF^ CHTFLIB9(F CPIO,"FCPI O")
  103    ;SBB 07/3 0/15 DEF01 6554
  104    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  105    Q
  106   LLQ ; ;SBB  08/04/15  DEF016554
  107    ;
  108    D CLOSEF^ CHTFLIB9(F CLIO,"FCLI O")
  109    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  110    Q
  111   LDDUP ;LOA D DUP CLMS  IN TEMP G LOBAL
  112    K QFLG
  113    S I=0 F   S I=$O(^CH BPACC("B", CHCLM,I))  Q:'I  D
  114    .S CHCLMI =0 S CHCLM I=$O(^CHMP AY("B",CHC LM,CHCLMI) )
  115    .Q:$D(^CH MSNA(74100 8.6,"F",CH CLMI))   ;  QUIT IF R EISSUE CLA IM/CHECK
  116    .S (CHDOC ID,CHPRGM, CHPAYEE,CH CAT)=""
  117    .S CHDOCI D=$E(REC,2 5,35)
  118    .S CHPRGM =$E(REC,62 ,64)
  119    .S CHPAYE E=$E(REC,7 3,81)
  120    .S ACCDT= $P(^CHBPAC C(I,0),"^" ,1)
  121    .S CHCAT= ""
  122    .S IVAL=I      ;JEH  7/22/09 -  ADDED IVAL
  123    Q:'$D(CHD OCID)
  124    I $D(^CHM SNA(741008 .2,"AE",CH DOCID)) S  CHCAT="P"     ; SET C AT TYPE TO  PROVIDER/ VENDOR
  125    I $D(^CHM SNA(741008 .3,"AE",CH DOCID)) S  CHCAT="B"     ; SET C AT TYPE TO  BENE/FMP
  126    ;LOGIC TO  DETERMINE  IF CLAIM  IS TRUELY  A DUP
  127    I $D(^CHM SNA(741008 .2,"AE",CH DOCID))&($ D(^CHMSNA( 741008.3," AE",CHDOCI D))) D
  128    .S QFLG=" "
  129    E  I $D(^ CHMSNA(741 008.2,"AE" ,CHDOCID))  D
  130    .S CHCAT= "P"    ; S ET CAT TYP E TO PROVI DER/VENDOR
  131    .I ((CHCA T=$P(^CHBP ACC(IVAL,0 ),"^",5))& (CHCAT="P" )) D     ; JEH 7/22/0 9 - ADDED  IVAL
  132    ..S QFLG= ""
  133    E  I $D(^ CHMSNA(741 008.3,"AE" ,CHDOCID))  D
  134    .S CHCAT= "B"    ; S ET CAT TYP E TO BENE/ FMP
  135    .I ((CHCA T=$P(^CHBP ACC(IVAL,0 ),"^",5))& (CHCAT="B" )) D     ; JEH 7/22/0 9 - ADDED  IVAL
  136    ..S QFLG= ""
  137    I CHCAT=" " D  Q       ;JEH (DE F007125) 4 /23/09
  138    .S QFLG=" "
  139    Q:'$D(QFL G)
  140    S ^CHMZHO LD("POS_BP _DUPS",$J, CHCLM)=ACC DT_"^"_CHD OCID_"^"_C HPRGM_"^"_ CHPAYEE_"^ "_CHCAT_"^ "_SENDDT
  141    S DCTR=DC TR+1
  142    Q
  143   MMMSG ;MES SAGE ALERT ING POSSIB LE DUPS
  144    U 0 W !," *** POSSIB LE DUPL CL AIMS - BAT CH FILES N OT SENT ** *"
  145    S CNT=1,^ TMP($J,"PO SS-DUPL-CL MS",CNT)=" ",CNT=CNT+ 1
  146    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="****** ********** ********** *********" ,CNT=CNT+1
  147    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="**      BATCH FIL ES NOT SEN T      **" ,CNT=CNT+1
  148    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="***                                ***" ,CNT=CNT+1
  149    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="**** P OSSIBLE DU PLICATE CL AIMS ****" ,CNT=CNT+1
  150    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="***                                ***" ,CNT=CNT+1
  151    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="**          FROM  ^CHBPACS          **" ,CNT=CNT+1      ;JEH  2/29/08
  152    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="****** ********** ********** *********" ,CNT=CNT+1
  153    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1
  154    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  NUMB ER OF POSS IBLE DUPLI CATE CLAIM S: "_DCTR, CNT=CNT+1
  155    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1
  156    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  SEE  GLOBAL ^CH MZHOLD(""P OS_BP_DUPS "","_$J,CN T=CNT+1
  157    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=""
  158    S XMTEXT= "^TMP($J," "POSS-DUPL -CLMS"","
  159    S XMDUZ=. 5
  160    S XMY(582 43)=""
  161    S XMY(988 7)=""
  162    S XMY(" PII                    ")=""
  163    S XMY(" PII             ")=""
  164    S XMSUB=" BP DUP CLA IMS CHK -  ^CHBPACS"  D ^XMD
  165    Q
  166   SNDFLS ;SE ND FILES T O AUSTIN
  167    U 0 W !," *** SENDIN G FILES TO  AUSTIN ** *"
  168    S DUMMY=" HAC_HFS$:[ DSMMANAG.C HAMPVA]DUM MY.LOG"
  169    U 0 W:'$D (ZTSK) !," SAVING PAY MENT DATA  FILES TO H AC_HFS$:[A RC.EOB]"   ;JEH 12/4/ 09
  170    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG.C HAMPVA]FMS _COPY_DATA _FILES.COM ") H 60  ; JEH 12/4/0 9
  171    U 0 W:'$D (ZTSK) !," SAVING ZEO B DATA FIL E TO HAC_H FS$:[ARC.E OB]"  ;JEH  12/4/09
  172    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG.C HAMPVA]FMS _COPY_ZEOB _DATA_FILE S.COM") H  10  ;JEH 1 2/4/09
  173    U 0 W:'$D (ZTSK) !," SAVING S74 1CH*.1PART  DATA FILE s TO HAC_H FS$:[ARC.B ATCH.RETUR N]"  ;JEH  12/9/2011
  174    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG]B ATCHRETURN .COM") H 1 0 ;RVS 12/ 8/2011
  175    U 0 W:'$D (ZTSK) !," SAVING FMS _VNUPDT_FI LE.DAT DAT A FILE TO  HAC_HFS$:[ ARC.EOB]"   ;JEH 7/27 /12 - TT M TN01534
  176    S X=$ZF(- 1,"SUBMIT/ LOG=HAC_HF S$:[DSMMAN AG.CHAMPVA ] HAC_HFS$ :[DSMMANAG .CHAMPVA]F MS_SEND_VN UPDT.COM")  H 3 ;JEH  7/27/12 -  TT MTN0153 4  DRW - R EMOVE THE  LOG MTN019 518
  177    D QFLCHK^ CHBPACS  ; QUE OFF AU STIN FILE  CHECK 1HR  LATER
  178    Q
  179   UPLG ;UPDA TE LOG
  180    N DTGD,DT GT,DT                                  ;;MT N021143 DR W 05/29/20 14
  181    I '$D(DT)  D NOW^%DT C S DT=X,D TGD=$P(%," .",1),DTGT =$P(%,".", 2)
  182    I '$D(DUZ ) S DUZ=39 8103,DUZ(0 )="@"            ;;MT N021143 AD DED HARD C ODED DUZ I N ORDER TO  RUN COM F ILE
  183    D FILOG^C HBPACL(DT, 1,1,1,1,1, 1,1,0,0,0, 0,0)   ;LA YOUT (DT,E OB,EOB1,ZE OB,FCAPP,F CALM,VCAPP ,VCALM,CH2 1,CH22,CH2 3,CH24,CH2 7)   ;JEH  12/17/08
  184    S ^TMP($J ,"AUSTIN-V ERI-FILE", 1)="CHAMPV A BATCH FI LE LOG HAS  BEEN UPDA TED"
  185    S XMTEXT= "^TMP($J," "AUSTIN-VE RI-FILE"", "
  186    S XMDUZ=. 5
  187    S XMY(582 43)=""
  188    S XMY(988 7)=""
  189    S XMY(" PII                    ")=""
  190    S XMY(" PII             ")=""
  191    S XMSUB=" BATCH LOG  UPDTD/COMP LTD "_DTGD _"@"_DTGT  D ^XMD
  192    Q
  193   QUEA ;QUE  THIS ROUTI NE MANUALL Y.
  194    I '$D(DUZ ) S DUZ=58 243,DUZ(0) ="@"
  195    D NOW^%DT C S DT=X
  196    S DTIME=3 00
  197    S U="^"
  198    S CHFIO=" "
  199    S ZTRTN=" START^CHBP ACS",ZTDES C="LOADING  ACCPT CLM S FROM RET URN BATCH  FILE"
  200    S ZTIO="" ,ZTSAVE("C HFIO")=""
  201    D ^%ZTLOA D
  202    Q
  203   END ;END O F ROUTINE  CHBPACS
  204    ;C IO
  205    ;SBB 07/3 0/15 DEF01 6554
  206    D CLOSEF^ CHTFLIB9(F CLIO,"FCLI O")
  207    D CLOSEF^ CHTFLIB9(F CPIO,"FCPI O")
  208    D KVAR
  209    W !,"***  End of ^CH BPACS ***"
  210    Q
  211   ENDB ;END  IF DUP CHK  IS RUNNIN G
  212    W !,"The  Duplicate  Claims Che ck is Runn ing. Try a gain later ...",!
  213    Q
  214   ENDC ;END  IF BATCH P ROCESSING  IS RUNNING
  215    W !,"Batc h Processi ng is Runn ing. Try a gain later ...",!
  216    Q
  217   KVAR ;
  218    K ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING")
  219    K CTR,DCT R,IO,RECLN ,CHCLM,CHC LMI,QFLG
  220    K ACCDT,C HDOCID,CHP RGM,CHPAYE E,CHCAT,SE NDDT,DUMMY
  221    Q
  222   ENVRMT() ; SET ENVIRO NMENT
  223    I '$D(XQV OL) D
  224    .S ENVIR= ^DD("SITE" )
  225    .S ENVIR= $S(ENVIR=" D NS ":"DEV",EN VIR="
D NS  ":"TEST",E NVIR="
D NS  ":"TRAIN", ENVIR="Hea lth Admini stration C enter":"LI VE")
  226    E  D
  227    .S AYGSYS =XQVOL
  228    .S ENVIR= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  229    Q ENVIR
  230   QFLCHK ;QU EUE FILE C HECK IN AU STIN
  231    D NOW^%DT C S PKDT=%
  232    S PICKDT= $$FMADD^XL FDT(PKDT,0 ,0,30,0)
  233    S ZTIO="" ,ZTRTN="QF L1^CHBPACS ",ZTDESC=" CHECK FMS  FILE EXIST ANCE"
  234    S ZTDTH=P ICKDT S ZT IO="" D ^% ZTLOAD
  235    Q
  236   QFL1 ;
  237    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG.C HAMPVA]FMS _AUTO_FILE _VERIFY.CO M") H 15
  238    Q
  239   FS3FL ;SEN D FILE TO  FS3BIG TO  ALERT MOVE IT
  240    N FNAME
  241    S FNAME=" BP_TX_AITC .TXT"
  242    S ENVIR=$ $ENVIR^CHT FLIB
  243    ;DEF01655 4-12/24/13 -SBB chang ing based  on UCI on  VMS
  244    ;S IO="HA CFS3"" DNS     HACdec741! ""::D:[FS3 BIG.BP_MOV EIT."_ENVI R_"]"_FNAM E
  245    ;SBB 07/3 0/15 DEF01 6554
  246       X "D $ SYSTEM.Pro cess.SetZE OF(1)"
  247    S FSIO="H AC_HFS$:[S CR.TEMP_FI LES]"_FNAM E
  248    I ENVIR'= "LIVE" S I O="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FNAME
  249    S FOLDER= "/FS3BIG/B P_MOVEIT/" _ENVIR
  250    ;DEF01655 4-12/24/13 -SBB call  OPEN^%ZISH  to open t he file
  251    ;O IO:"NW S":3
  252    ;I $T D
  253    ;.U IO W  !,"READY F OR MOVEIT  TO START T RANSFERRIN G AITC FIL ES."
  254    ;.C IO
  255    ;E  W !,F NAME," DID  NOT OPEN"
  256    N POP
  257    S POP=0
  258    S POP=$$O PENFIWR^CH TFLIB9(.FS IO,"FSIO")
  259    I POP D 
  260    . U FSIO  W !,"READY  FOR MOVEI T TO START  TRANSFERR ING AITC F ILES."
  261    . D CLOSE F^CHTFLIB9 (FSIO,"FSI O")
  262    . D FTPFI LE^CHTFLIB 9(FSIO," DNS     . DNS             ",FOLDER," PUT")
  263    . Q
  264    E  W !,FN AME," DID  NOT OPEN"
  265    ;
  266    ;SBB 07/3 0/15 DEF01 6554
  267       X "D $ SYSTEM.Pro cess.SetZE OF(0)"
  268    Q