234. EPMO Open Source Coordination Office Redaction File Detail Report

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

234.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVNFOR.m Mon Nov 5 16:42:49 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVNFOR.m Mon Nov 5 17:51:55 2018 UTC

234.2 Comparison summary

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

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

234.4 Active regular expressions

No regular expressions were active.

234.5 Comparison detail

  1   CHMVNFOR ; AHJ/DEN;VE NDOR FOREI GN NAME/AD DRESS FOR  MAILING
  2    ;V1.0
  3    ;OUTPUT F ILE ON FS3 BIG NAME I S "PROVIDE RFORNA.TXT "
  4    ;INCLUDES  STATE COD ES 60 (AME RICAN SAMO A) THROUGH  323 (BRIT ISH WEST I NDIES)
  5   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  6    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  7    I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS
  8    S U="^"
  9    S (ADD1,A DD2,ADD3,A DD4)=""
  10    S COUNT=0
  11   LAB ;
  12    S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERF ORNA.TXT"
  13    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PTESTF.TX T"
  14    O FIO C F IO:"D"
  15    O FIO:"NW V"
  16    S VENPT=0
  17    S FCNT=0
  18    S CHSTOP= 0,SORT=0,C T=0
  19    S STATE=0
  20   A S STATE= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE)) G: 'STATE END
  21    S ZIP=""
  22   A1 S ZIP=$ O(^CHMZHOL D("ADD-VEN -LABELS",S TATE,ZIP))  G:ZIP=""  A S NAME=" "
  23   A2 S NAME= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME)) G:N AME="" A1
  24    S SORT=0
  25   A3 S SORT= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME,SORT) ) G A2:'SO RT
  26    S CT=CT+1
  27    S DATA=^C HMZHOLD("A DD-VEN-LAB ELS",STATE ,ZIP,NAME, SORT)
  28    ;
  29    I STATE=3 10 G A3
  30    I STATE=7 2 G A3
  31    I STATE<5 7 G A3 ; B YPASS DOME STIC STATE  CODES
  32    ;
  33    ;W !,DATA
  34    S ADD1=$P (DATA,"^", 6)
  35    S ADD2=$P (DATA,"^", 3)
  36    S ADD3=$P (DATA,"^", 4)
  37    I ADD2="C /O MED MAT RIX INC" G  A3
  38    I ADD2="M EDICAL MAT RIX INC" G  A3
  39    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G A3
  40    I ADD2="M ED MATRIX  INC" G A3
  41    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G A3
  42    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  43    I ADD3="C /O MED MAT RIX INC" G  A3
  44    I ADD3="M EDICAL MAT RIX INC" G  A3
  45    I $E(ADD3 ,1,16)="%  MED MATRIX  INC" G A3
  46    I ADD3="M ED MATRIX  INC" G A3
  47    I $E(ADD3 ,1,15)="%M ED MATRIX  INC" G A3
  48    I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  49    ;
  50    S ZIPZ=$P (DATA,"^", 5)
  51    I $L(ZIPZ )>9 G OVER 1
  52    ;I $L(ZIP Z)>5 G BRE AK1
  53    ;I SORT=3 7807 G BRE AK1
  54   RETURN1 I  $L(ZIPZ)>5  S ZIP1=$E (ZIPZ,1,5)  S ZIP2=$E (ZIPZ,6,9)  S ZIPZ=ZI P1_"-"_ZIP 2
  55   OVER1 S AD D4=$P(DATA ,"^",2)_",  "_$P(DATA ,"^",1)_"  "_ZIPZ
  56    ; ADD3=""  S ADD3=AD D4 S ADD4= ""
  57    ;I ADD3="  " S ADD3= ADD4 S ADD 4=""
  58    ;I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 =""
  59    ;I ADD2="  " S ADD2= ADD4 S ADD 3="" S ADD 4=""
  60    ;
  61    S T=$C(9)
  62    S TMPS=AD D1_T_ADD2_ T_ADD3_T_A DD4_T
  63    ;
  64    U FIO W T MPS,!
  65    ;W !,TMPS
  66    S (ADD1,A DD2,ADD3,A DD4,ZIPZ)= ""
  67    S COUNT=C OUNT+1
  68    G A3
  69   L4 Q
  70   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  71    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  72   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  73    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  74    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  75    Q
  76   END C FIO
  77    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG. CHAMPVA]VE NDCOPY.COM ")
  78    ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-FOR" )=COUNT
  79    ;W !,COUN T
  80    Q