141. EPMO Open Source Coordination Office Redaction File Detail Report

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

141.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKNABD.m Mon Nov 5 16:41:47 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKNABD.m Mon Nov 5 17:49:08 2018 UTC

141.2 Comparison summary

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

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

141.4 Active regular expressions

No regular expressions were active.

141.5 Comparison detail

  1   CHMKNABD ; AHJ/CHAMPV A/SELECT F ILE FROM C HMKNABC DO MESTIC N&A  BENES ZIP  CODE
  2    ;V1.0  SP ECIAL TRCN ABCB
  3    ;
  4    ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE
  5    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  6    ;
  7    S U="^"
  8   ZSET ;S FI O="SYS$:[D SMMANAG]DO MNABC.TXT"
  9    ;DGC 1/17 /2014 DEV0 12893 - BE GIN
  10    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]BENEDOMES TICNEWS.TX T"
  11    ;O FIO C  FIO:"D"
  12    ;O FIO:"N WS"
  13    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  14    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  15           S  FILENM2=BE NEDOMESTIC NEWS.TXT
  16           S  FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2
  17           I  UCI'="HAC"  S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2
  18           I  '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93
  19    ;DGC 1/17 /2014 DEV0 12893 - EN D
  20    S T=$C(9)
  21    S ZZPG=0, DOMTTL=0
  22    S ZZBZIP= 0
  23   SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDNABC ",ZZBZIP))  G:ZZBZIP= "" END
  24    S CNTA=0
  25   SORT1 S CN TA=$O(^CHM ZHOLD("NAM E-ADDNABC" ,ZZBZIP,CN TA)) G:CNT A="" SORT
  26    S:$D(^CHM ZHOLD("NAM E-ADDNABC" ,ZZBZIP,CN TA)) DATA= ^CHMZHOLD( "NAME-ADDN ABC",ZZBZI P,CNTA)
  27    I ZZBZIP> 96909 I ZZ BZIP<96961  G OKNEW ; SELECT GUA M ZIPS AS  DOMESTIC
  28    I ZZBZIP< 600 G SORT 1 ;ELIMINA TE FOREIGN  ZIPS SELE CT DOMESTI C
  29    ;
  30   OKNEW ;
  31    S T=$C(9)
  32    S NAME=$P (DATA,U,1)
  33    S LAST=$P (NAME,",", 1)
  34    S FIRST=$ P(NAME,"," ,2)
  35    S NAME=FI RST_" "_LA ST
  36    S ADDR1=$ P(DATA,U,2 )
  37    S ADDR2=$ P(DATA,U,3 )
  38    S ADDR3=$ P(DATA,U,4 )
  39    S CITY=$P (DATA,U,5)
  40    S STATE=$ P(DATA,U,6 )
  41    S ZIP=$P( DATA,U,7)
  42    S TMPS=NA ME_T_ADDR1 _T_ADDR2_T _ADDR3_T_C ITY_T_T_ST ATE_T_ZIP
  43    S DOMTTL= DOMTTL+1
  44    U FIO W T MPS,!
  45    G SORT1
  46   END ;DGC 1 /17/2014 D EV012893 -  BEGIN
  47    ;C FIO
  48    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  49    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  50    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  51    ;DGC 1/17 /2014 DEV0 12893 - EN D
  52    ;W !,"  T OTAL = ",D OMTTL
  53    Q