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

139.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKNAAD.m Mon Nov 5 16:42:22 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKNAAD.m Mon Nov 5 17:49:08 2018 UTC

139.2 Comparison summary

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

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

139.4 Active regular expressions

No regular expressions were active.

139.5 Comparison detail

  1   CHMKNAAD ; AHJ/CHAMPV A/SELECT F ILE FROM C HMKNAAC BE NES ZIP CO DE DOMESTI C
  2    ;V1.0  SP ECIAL TRCC 155B
  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    ;NOTE NOT E NOTE ELI MINATE DUP LICATE ADD RESS MAILI NG
  8    S U="^"
  9   ZSET ;S FI O="SYS$:[D SMMANAG]DO MC155.TXT"
  10    ;DGC 1/17 /2014 DEV0 12893 - BE GIN
  11    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]BENE_DOME STIC_1ADDR ESS.TXT"
  12    ;O FIO C  FIO:"D"
  13    ;O FIO:"N WS"
  14    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  15    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  16           S  FILENM2="B ENE_DOMEST IC_1ADDRES S.TXT"
  17           S  FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2
  18           I  UCI'="HAC"  S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2
  19           I  '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93
  20    ;DGC 1/17 /2014 DEV0 12893 - EN D
  21    S T=$C(9)
  22    S (SAV1,S AV2,NEW1,N EW2)=0
  23    S ZZPG=0, DOMTTL=0,Z IPIN=0
  24    S DUPCNT= 0,ZZBZIP=0 ,SAVADD=0
  25   START S ZZ BZIP=$O(^C HMZHOLD("N AME-ADDC15 5",ZZBZIP) ) G:ZZBZIP ="" END
  26    S ADD=0
  27   START1 S A DD=$O(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D)) G:ADD= "" START
  28    S CNT=0
  29   START2 S C NT=$O(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) G: CNT="" STA RT1
  30    S:$D(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) DA TA=^CHMZHO LD("NAME-A DDC155",ZZ BZIP,ADD,C NT)
  31    S ADDR1=$ P(DATA,U,1 )
  32    S LAST=$P (ADDR1,"," ,1)
  33    S FIRST=$ P(ADDR1,", ",2)
  34    S ADDR1=F IRST_" "_L AST
  35    I ZZBZIP< 600 G STAR T2 ;SELECT  DOMESTIC  ONLY
  36    S ZIPIN=Z IPIN+1
  37    D SAVEIT
  38    S SAV1=$P (DATA,U,2)
  39    S SAV2=$P (DATA,U,3)
  40    ;S SAVADD =$P(DATA,U ,2)
  41    S SAVADD= SAV1_SAV2
  42    G SORT2
  43   SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDC155 ",ZZBZIP))  G:ZZBZIP= "" END
  44    S ADD=0
  45   SORT1 S AD D=$O(^CHMZ HOLD("NAME -ADDC155", ZZBZIP,ADD )) G:ADD=" " SORT
  46    S CNT=0
  47   SORT2 S CN T=$O(^CHMZ HOLD("NAME -ADDC155", ZZBZIP,ADD ,CNT)) G:C NT="" SORT 1
  48    S:$D(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) DA TA=^CHMZHO LD("NAME-A DDC155",ZZ BZIP,ADD,C NT)
  49    S ADDR1=$ P(DATA,U,1 )
  50    S LAST=$P (ADDR1,"," ,1)
  51    S FIRST=$ P(ADDR1,", ",2)
  52    S ADDR1=F IRST_" "_L AST
  53    S ZIPIN=Z IPIN+1
  54    ;I ZIPIN= 100 G END
  55    I ZZBZIP< 600 G SORT 2 ;ACCEPT  DOMESTIC O NLY 
  56    ;COMPATE  ADDRESS #2 , ELIMINAT E SAME ADD RESS
  57    S NEW1=$P (DATA,U,2)
  58    S NEW2=$P (DATA,U,3)
  59    S NEWADD= NEW1_NEW2
  60    ;S NEWADD =$P(DATA,U ,2)
  61    I NEWADD= SAVADD S A DDR1="Atte ntion CHAM PVA Benefi ciaries" 
  62    I NEWADD= SAVADD D S AVEIT
  63    I NEWADD= SAVADD S D UPCNT=DUPC NT+1 S SAV ADD=NEWADD  G SORT2
  64    S SAVADD= NEWADD
  65    ;;;;;;I Z ZBZIP>599  G SORT1 ;  FORIEGN
  66    U FIO W S AVTMP,!
  67    ;W !,SAVT MP
  68    S DOMTTL= DOMTTL+1
  69    D SAVEIT
  70    G SORT2
  71    ;
  72   SAVEIT ;
  73    S T=$C(9)
  74    ;S ADDR1= $P(DATA,U, 1) ;addr1  name switc hed above  to first n ame first,  last name  last
  75    S ADDR2=$ P(DATA,U,2 )
  76    S ADDR3=$ P(DATA,U,3 )
  77    S ADDR4=$ P(DATA,U,4 )
  78    S ADDR5=$ P(DATA,U,5 )
  79    S ADDR6=$ P(DATA,U,6 )
  80    S ADDR7=$ P(DATA,U,7 )   
  81    S SAVTMP= ADDR1_T_AD DR2_T_ADDR 3_T_ADDR4_ T_ADDR5_T_ ADDR6_T_AD DR7_T
  82    Q
  83    Q
  84   END ;DGC 1 /17/2014 D EV012893 -  BEGIN
  85    ;C FIO
  86    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  87    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  88    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  89    ;DGC 1/17 /2014 DEV0 12893 - EN D
  90    ;W !,"  I N TOTAL =  ",ZIPIN
  91    ;W !,"  O UT TOTAL =  ",DOMTTL
  92    Q