5. EPMO Open Source Coordination Office Redaction File Detail Report

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

5.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CH835VUP.m Mon Nov 5 16:44:47 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CH835VUP.m Mon Nov 5 17:36:57 2018 UTC

5.2 Comparison summary

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

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

5.4 Active regular expressions

No regular expressions were active.

5.5 Comparison detail

  1   CH835VUP ; CVA/JEH;AU TO/ADHOC V EN UPDATE  FROM AITC  VNDR FILE; 06/12/12   3:21 PM
  2    ;;1.0;CHA MPVA SYSTE M;;JUNE 13 , 2012;
  3    ;; 
  4    ;;CALLED  FROM CH835 DRV
  5    ;;USE THE  FOLLOWING  GLOBAL -  ^TMP($J,"N OEFT"
  6   START ;
  7    D INIT
  8    I $$OFILE ()=1 D
  9    .D GDATA
  10    .D WFILE
  11    .D CFILE
  12    .D MMMSG1
  13    E  D MMMS G2
  14    D END
  15    Q
  16   INIT ;INIT IALIZE VAR IABLES
  17    S (CHVID, CHVTIN,CHV NUP)=""
  18    S CTR=0
  19    Q
  20   GDATA ;GET TING DATA  FROM ^TMP  GLOBAL
  21    Q:'$D(^TM P($J,"NOEF T"))
  22    S I=0 F   S I=$O(^TM P($J,"NOEF T",I)) Q:' I  D
  23    .S CHVID= $P(^TMP($J ,"NOEFT",I ),"^",4)
  24    .Q:CHVID= ""
  25    .S CHVTIN =$P(^CHMVE N(CHVID,0) ,"^",3)     ;TIN
  26    .Q:CHVTIN =""
  27    .S CHVACD =$P(^CHMVE N(CHVID,0) ,"^",23)     ;VENDOR  ADDRESS CO DE
  28    .S CHVNUP ="" S CHVN UP=$$LJ^XL FSTR(CHVTI N_CHVACD,1 04," ")
  29    .S ^CHMZH OLD($J,"VN UPDT",$I(C TR))=CHVNU P
  30    Q
  31   WFILE ;WRI TE DATA TO  FILE
  32    S I=0 F   S I=$O(^CH MZHOLD($J, "VNUPDT",I )) Q:'I  D
  33    .D ZWCHAR ^CHMSNUTL( CHFIO,^CHM ZHOLD($J," VNUPDT",I) )    ;FOR  AITC FILE  ATTRIBUTES
  34    Q
  35   OFILE() ;O PEN FILE
  36    N CHFLNOP
  37    S CHFLNOP =1
  38    S CHFIO=" HAC_HFS$:[ DSMMANAG]F MS_VNUPDT_ FILE.DAT"
  39    O CHFIO:" NWU":5 I $ T=0 D
  40    .;W !,"** * [HAC_HFS $:[DSMMANA G]FMS_VNUP DT_FILE.DA T *** DID  NOT OPEN"     ;USE FO R TESTING
  41    .S CHFLNO P=0
  42    Q CHFLNOP
  43   CFILE ;CLO SE FILE
  44    C CHFIO
  45    D ZWCLOSE ^CHMSNUTL( CHFIO,104, 1024)    ; FOR AITC F ILE ATTRIB UTES
  46    Q
  47   END ;
  48    K CHVID,C HVTIN,CHVN UP
  49    K CHFIO,C TR
  50    Q
  51   MMMSG1 ;SE ND MAILMAN  MESSAGE I NDICATING  VENDOR UPD ATE IS COM PLETE
  52    S CNT=1,^ TMP($J,"VN -UPDT-MSG" ,CNT)="",C NT=CNT+1
  53    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "PLEASE DO  NOT REPLY  TO THIS M ESSAGE.",C NT=CNT+1
  54    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  55    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "AUSTIN VE NDOR UPDAT E HAS COMP LETED.",CN T=CNT+1
  56    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  57    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "SEE FILE  HAC_HFS$:[ DSMMANAG]F MS_VNUPDT_ FILE.DAT F OR DATA OU TPUT.",CNT =CNT+1
  58    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  59    S ^TMP($J ,"VN-UPDT- MSG",CNT)= ""
  60    S XMTEXT= "^TMP($J," "VN-UPDT-M SG"","
  61    S XMDUZ=. 5
  62    I $$ENVIR ^CHTFLIB=" LIVE" S XM Y(" PII             ")=""
  63    S XMY(DUZ )=""
  64    S XMSUB=" VN (AITC)  NTLY UPDT  PROC {COMP LTD}" D ^X MD
  65    Q
  66   MMMSG2 ;SE ND MAILMAN  MESSAGE I NDICATING  VENDOR UPD ATE ISSUE
  67    S CNT=1,^ TMP($J,"VN -UPDT-MSG" ,CNT)="",C NT=CNT+1
  68    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "PLEASE DO  NOT REPLY  TO THIS M ESSAGE.",C NT=CNT+1
  69    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  70    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "AUSTIN VE NDOR UPDAT E DID NOT  COMPLETE." ,CNT=CNT+1
  71    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  72    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "FILE HAC_ HFS$:[DSMM ANAG]FMS_V NUPDT_FILE .DAT NOT C REATED.",C NT=CNT+1
  73    S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1
  74    S ^TMP($J ,"VN-UPDT- MSG",CNT)= ""
  75    S XMTEXT= "^TMP($J," "VN-UPDT-M SG"","
  76    S XMDUZ=. 5
  77    I $$ENVIR ^CHTFLIB=" LIVE" S XM Y(" PII             ")=""
  78    S XMY(DUZ )=""
  79    S XMSUB=" VN (AITC)  NTLY UPDT  PROC {FAIL ED}" D ^XM D
  80    Q
  81