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

135.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHDCF.m Mon Nov 5 16:43:58 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHDCF.m Mon Nov 5 17:49:02 2018 UTC

135.2 Comparison summary

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

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

135.4 Active regular expressions

No regular expressions were active.

135.5 Comparison detail

  1   CHMKHDCF ; JEH/CHAMPV A/CREATE F ILE MEMBER  CARD FORE IGN N&A BE NES ZIP CO DE
  2    ;V1.0
  3    ;*** COPY  OF ZALCAR DF ***
  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 ;DGC  1/17/2014  DEV012893  - BEGIN
  9    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]BENEFOREI GNCARD.TXT "
  10    ;O FIO C  FIO:"D"
  11    ;O FIO:"N WS"
  12    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  13    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  14           S  FILENM2=BE NEFOREIGNC ARD.TXT
  15           S  FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2
  16           I  UCI'="HAC"  S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2
  17           I  '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93
  18    ;DGC 1/17 /2014 DEV0 12893 - EN D
  19    S T=$C(9)
  20    S ZZPG=0, ZIPTTL=0
  21    S ZZBZIP= 0
  22    S (MON,DA Y,YEAR)=0
  23   SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDCARD 1",ZZBZIP) ) G:ZZBZIP ="" END
  24    S CNT=0
  25   SORT1 S CN T=$O(^CHMZ HOLD("NAME -ADDCARD1" ,ZZBZIP,CN T)) G:CNT= "" SORT
  26    S:$D(^CHM ZHOLD("NAM E-ADDCARD1 ",ZZBZIP,C NT)) DATA= ^CHMZHOLD( "NAME-ADDC ARD1",ZZBZ IP,CNT)
  27    ;I ZZBZIP >96909 I Z ZBZIP<9696 1 G OKNEW  ;SELECT GU AM ZIPS AS  DOMESTIC
  28    ;I ZZBZIP <600 G SOR T1 ;ELIMIN ATE FOREIG N ZIPS SEL ECT DOMEST IC
  29    I ZZBZIP> 599 G SORT 1 ;SELECT   FORIEGN
  30   OKNEW ;
  31    S T=$C(9)
  32    S ADDR1=$ P(DATA,U,1 )
  33    S ADDR2=$ P(DATA,U,2 )
  34    S ADDR3=$ P(DATA,U,3 )
  35    S ADDR4=$ P(DATA,U,4 )
  36    S ADDR5=$ P(DATA,U,5 )
  37    S ADDR6=$ P(DATA,U,6 )
  38    S ADDR7=$ P(DATA,U,7 )
  39    S ADDR8=$ P(DATA,U,8 )
  40    S DATE1=$ P(DATA,U,9 )
  41    S DATE2=$ P(DATA,U,1 0)
  42    ;
  43    ;
  44    S Y=DATE1  D DD^%DT  S IDATE=Y
  45    S MON=$E( DATE1,4,5)
  46    S DAY=$E( DATE1,6,7)
  47    S YEAR=$E (IDATE,9,1 2)
  48    S DATE1=M ON_"/"_DAY _"/"_YEAR
  49    ;
  50    S Y=DATE2  D DD^%DT  S IDATE=Y
  51    S MON=$E( DATE2,4,5)
  52    S DAY=$E( DATE2,6,7)
  53    S YEAR=$E (IDATE,9,1 2)
  54    S DATE2=M ON_"/"_DAY _"/"_YEAR    
  55    ;
  56    S TMPS=AD DR1_T_ADDR 2_T_ADDR3_ T_ADDR4_T_ ADDR5_T_AD DR6_T_ADDR 7_T_ADDR8_ T_DATE1_T_ DATE2_T
  57    S ZIPTTL= ZIPTTL+1
  58    ;
  59    U FIO W T MPS,!
  60    G SORT1
  61   END ;DGC 1 /17/2014 D EV012893 -  BEGIN
  62    ;C FIO
  63    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  64    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  65    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT")
  66    ;DGC 1/17 /2014 DEV0 12893 - EN D
  67    S ZIPTTL4 =ZIPTTL
  68    Q