218. EPMO Open Source Coordination Office Redaction File Detail Report

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

218.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMSN12A.m Mon Nov 5 16:42:56 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMSN12A.m Mon Nov 5 17:51:31 2018 UTC

218.2 Comparison summary

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

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

218.4 Active regular expressions

No regular expressions were active.

218.5 Comparison detail

  1   CHMSN12A ; HBG/DEN;AU TOMATED PI CKUP OF TR ANS942;03/ 26/99  4:1 5 PM
  2    ;V1.0
  3    ;TT #MTN0 15348: Add ed ADHOC v endor upda te - JEH 7 /27/12
  4   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  5    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  6   ZNAM ;
  7   A S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG. CHAMPVA]DE LETE_S741C H04.COM")
  8    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG.C HAMPVA]ASS IGN_VA5540 _PR1.COM/L OG=HAC_HFS $:[DSMMANA G]/QUEUE=7 41A01$BATC H/USER=HAC CACHEMGR")  H 15
  9    S ZTRTN=" START^CHMS N12A",ZTDE SC="PICKUP  TRANS942' S",ZTDTH=$ H
  10    S ZTIO=""  D ^%ZTLOA D S IOP="H OME" D HOM E^%ZIS
  11    Q
  12   START ;S D UMMY="NL:"  K CHMERR  D START^CH MSN11B
  13    Q:$D(CHME RR)
  14   EN1 ;S X=$ ZF(-1,"SUB MIT HAC_HF S$:[DSMMAN AG.CHAMPVA ]PICKUP_VL OG_GDG_FTP .COM/LOG=H AC_HFS$:[D SMMANAG]/Q UEUE=741A0 1$BATCH/US ER=HACCACH EMGR") H 2 00
  15    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG. CHAMPVA]CO PY_TO_S741 CH27.COM")
  16   END S ZTRT N="^CHMI10 0A",ZTDESC ="PROCESS  VLOG FILE" ,ZTIO=""
  17    S PICKDT= $$FMADD^XL FDT($$DT^X LFDT_.063, 1,0,0,0) S  ZTDTH=$H    ; JEH 6/ 29/06  CHG D TIME FRO M '.053' T O '.6'
  18    S ZTDTH=P ICKDT,ZTIO ="" D ^%ZT LOAD
  19    ;D ^CHMI1 00A
  20    S ZTRTN=" VADHOC^CHM SN12A",ZTD ESC="PROCE SS ADHOC V LOG FILE", ZTIO=""    ;JEH MTN01 5348 7/27/ 12
  21    S PICKDT= $$FMADD^XL FDT($$DT^X LFDT_.0900 00,1,0,0,0 ) S ZTDTH= $H   ; SCH EDULED TO  RUN AT 9:0 0A
  22    S ZTDTH=P ICKDT,ZTIO ="" D ^%ZT LOAD
  23    ;D VADHOC     ;JEH M TN015348 7 /27/12
  24    Q
  25   VADHOC   ; QUEUE ADHO C VENDOR U PDATE ;JEH  MTN015348  7/27/12
  26    Q:$D(^CHM ZHOLD("VLO G_RUNNING" ))   ;DON' T RUN IF R EGULAR VLO G IS RUNNI NG
  27    N IOFILE, OFLG,PCKDT ,SVDUZ,SVD UZ0,RC,CHA VFG
  28    S OFLG=0    ;FILE OP EN FLAG:   0=CLOSED/1 =OPEN
  29    S (SVDUZ, SVDUZ0,PCK DT,IOFILE) =""
  30    S SVDUZ=D UZ,SVDUZ0= DUZ(0)  ;S AVING DUZ  AND SETTIN G DUZ TO T ASKMAN,PRO XY
  31    S IOFILE= "HAC_HFS$: [DSMMANAG. CHAMPVA]S7 41CH28.1PA RT"
  32    O IOFILE: "R":2 S:$T =1 OFLG=1
  33    I OFLG=1  D
  34    .S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG. CHAMPVA]VA DHOC_UPDAT E.COM/LOG= DHCP$CHAMP VA") S:$T= 0 OFLG=0   ;USE THIS  LINE RVS
  35    .C IOFILE
  36    .Q:OFLG=0
  37    .I $$ENVI R^CHTFLIB= "LIVE" S D UZ=398103, DUZ(0)="@"    ;TASKMA N,PROXY US ER  (DUZ#3 98103)
  38    .S CHAVFG =1
  39    .S ZTRTN= "^CHMI100A ",ZTDESC=" PROCESS AD HOC VNDR F ILE"
  40    .S PICKDT =$$FMADD^X LFDT($$DT^ XLFDT_.100 000,1,0,0, 0) S ZTDTH =$H   ; SC HEDULED TO  RUN AT 10 :00A
  41    .S ZTSAVE ("CHAVFG") =""
  42    .S ZTDTH= PICKDT,ZTI O="" D ^%Z TLOAD
  43    .;D ^CHMI 100A
  44    .D MMSG(1 )
  45    .Q
  46    I OFLG=0  D
  47    .C IOFILE
  48    .D MMSG(0 )
  49    S DUZ=SVD UZ,DUZ(0)= SVDUZ0
  50    Q
  51   MMSG(MTYP)  ;FILE FAI LED/QUEUED  MESSAGE
  52    S MSGTYP= $S(MTYP=0: "FAILED",M TYP=1:"QUE UED",1:"")
  53    S CNT=1,^ TMP($J,"VN -UPDT-MSG" ,CNT)="",C NT=CNT+1
  54    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "PLEASE DO  NOT REPLY  TO THIS M ESSAGE.",C NT=CNT+1
  55    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  56    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "AITC ADHO C VENDOR U PDATE "_MS GTYP_".",C NT=CNT+1
  57    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  58    S:MTYP=0  ^TMP($J,"V N-UPDT-MSG ",CNT)="FI LE NOT AVA ILABLE.",C NT=CNT+1
  59    S:MTYP=1  ^TMP($J,"V N-UPDT-MSG ",CNT)="AD HOC VENDOR  UPDATE QU EUED FOR " _$$FMTE^XL FDT(PICKDT ,1),CNT=CN T+1
  60    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  61    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "SEE FILE  HAC_HFS$:[ DSMMANAG.C HAMPVA]S74 1CH28.1PAR T.",CNT=CN T+1
  62    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  63    S ^TMP($J ,"VN-UPDT- MSG",CNT)= ""
  64    S XMTEXT= "^TMP($J," "VN-UPDT-M SG"","
  65    S XMDUZ=. 5
  66    I $$ENVIR ^CHTFLIB=" LIVE" S XM Y(" PII             ")=""
  67    S XMY(SVD UZ)=""
  68    S XMSUB=" ADHOC VN/A ITC UPDT { "_MSGTYP_" }  *** " D  ^XMD
  69    Q
  70