130. EPMO Open Source Coordination Office Redaction File Detail Report

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

130.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHB1.m Mon Nov 5 16:43:57 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHB1.m Mon Nov 5 17:48:59 2018 UTC

130.2 Comparison summary

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

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

130.4 Active regular expressions

No regular expressions were active.

130.5 Comparison detail

  1   CHMKHB1 ;A HJ/CHAMPVA /CREATE FI LE BENES Z IP CODE/CO UNTS FROM  CHMKHB
  2    ;V1.0
  3    S U="^"
  4   ZSET S FIO ="HBZIP.TX T"
  5    O FIO C F IO:"D"
  6    O FIO:"NW V"
  7    S T=$C(9)
  8    BREAK
  9    S ZZPG=0, ZIPTTL=0
  10    S ZZBZIP= 0
  11   SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADD936" ,ZZBZIP))  G:ZZBZIP=" " END
  12    S CNT=0
  13   SORT1 S CN T=$O(^CHMZ HOLD("NAME -ADD936",Z ZBZIP,CNT) ) G:CNT=""  SORT
  14    S:$D(^CHM ZHOLD("NAM E-ADD936", ZZBZIP,CNT )) DATA=^C HMZHOLD("N AME-ADD936 ",ZZBZIP,C NT)
  15    I ZZBZIP< 600 G SORT 1
  16    S T=$C(9)
  17    S ADDR1=$ P(DATA,U,1 )
  18    S LAST=$P (ADDR1,"," ,1)
  19    S FIRST=$ P(ADDR1,", ",2)
  20    S ADDR1=F IRST_" "_L AST
  21    S ADDR2=$ P(DATA,U,2 )
  22    S ADDR3=$ P(DATA,U,3 )
  23    S ADDR4=$ P(DATA,U,4 )
  24    S ADDR5=$ P(DATA,U,5 )
  25    S TMPS=AD DR1_T_ADDR 2_T_ADDR3_ T_ADDR4_T_ ADDR5
  26    S ZIPTTL= ZIPTTL+1
  27    U FIO W ! ,TMPS
  28    G SORT1
  29   END C FIO
  30    W !,"  TO TAL = ",ZI PTTL
  31    ;
  32    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG]H BCOPY.COM" )
  33    ;******** ***NEXT 3  LINES SHOW  HBCOPY.CO M COMMANDS
  34    ;******** ***NOTE FI LE NAME ON  SHARED DR IVE IS HBB ENE.TXT TO  BURN CD
  35    ;$ FILE =  "HAC_HFS$ :[DSMMANAG ]HBZIP.TXT ;1"
  36    ;$ NEWFIL E = "HACFS 3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]HBBENE.TX T"
  37    ;$ COPY ' FILE'  'NE WFILE'
  38    ;K ZZBZIP ,ZIPTTL,ZZ DATE,DFN,B FN,ZZPG,HD R,ZZADR
  39    Q