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

233.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVNDOM.m Mon Nov 5 16:43:18 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVNDOM.m Mon Nov 5 17:51:55 2018 UTC

233.2 Comparison summary

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

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

233.4 Active regular expressions

No regular expressions were active.

233.5 Comparison detail

  1   CHMVNDOM ; AHJ/DEN;VE NDOR NAME/ ADDRESS FO R DOMESTIC  PLUS GUAM  AND PR LA BELS
  2    ;V1.0
  3   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  4    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  5    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
  6    S U="^"
  7    S (ADD1,A DD2,ADD3,A DD4)=""
  8   LAB ;
  9    S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERD OMNA.TXT"
  10    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PTESTD.TX T"
  11    O FIO C F IO:"D"
  12    O FIO:"NW V"
  13    S VENPT=0
  14    S DCNT=0
  15    S CHSTOP= 0,SORT=0,C T=0
  16    S STATE=0
  17   A S STATE= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE)) G: 'STATE END
  18    S ZIP=""
  19   A1 S ZIP=$ O(^CHMZHOL D("ADD-VEN -LABELS",S TATE,ZIP))  G:ZIP=""  A S NAME=" "
  20   A2 S NAME= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME)) G:N AME="" A1
  21    S SORT=0
  22   A3 S SORT= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME,SORT) ) G A2:'SO RT
  23    S CT=CT+1
  24    S DATA=^C HMZHOLD("A DD-VEN-LAB ELS",STATE ,ZIP,NAME, SORT)
  25    ;
  26    I STATE=3 10 G OKNOW
  27    I STATE=7 2 G OKNOW
  28    I STATE>5 6 G A3 ; B YPASS ALL  FOREIGN ST ATE CODES  EXCEPT 66  AND 72
  29   OKNOW ;W ! ,DATA
  30    S ADD1=$P (DATA,"^", 6)
  31    S ADD2=$P (DATA,"^", 3)
  32    S ADD3=$P (DATA,"^", 4)
  33    I ADD2="C /O MED MAT RIX INC" G  A3
  34    I ADD2="M EDICAL MAT RIX INC" G  A3
  35    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G A3
  36    I ADD2="M ED MATRIX  INC" G A3
  37    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G A3
  38    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  39    I ADD3="C /O MED MAT RIX INC" G  A3
  40    I ADD3="M EDICAL MAT RIX INC" G  A3
  41    I $E(ADD3 ,1,16)="%  MED MATRIX  INC" G A3
  42    I ADD3="M ED MATRIX  INC" G A3
  43    I $E(ADD3 ,1,15)="%M ED MATRIX  INC" G A3
  44    I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  45    ;
  46    S ZIPZ=$P (DATA,"^", 5)
  47    I $L(ZIPZ )>9 G OVER 1
  48   RETURN1 I  $L(ZIPZ)>5  S ZIP1=$E (ZIPZ,1,5)  S ZIP2=$E (ZIPZ,6,9)  S ZIPZ=ZI P1_"-"_ZIP 2
  49   OVER1 S AD D4=$P(DATA ,"^",2)_",  "_$P(DATA ,"^",1)_"  "_ZIPZ
  50    ; ADD3=""  S ADD3=AD D4 S ADD4= ""
  51    ;I ADD3="  " S ADD3= ADD4 S ADD 4=""
  52    ;I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 =""
  53    ;I ADD2="  " S ADD2= ADD4 S ADD 3="" S ADD 4=""
  54    ;
  55    S T=$C(9)
  56    S TMPS=AD D1_T_ADD2_ T_ADD3_T_A DD4_T
  57    ;
  58    U FIO W T MPS,!
  59    ;W !,TMPS
  60    S (ADD1,A DD2,ADD3,A DD4,ZIPZ)= ""
  61    S DCNT=DC NT+1
  62    G A3
  63   L4 Q
  64   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  65    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  66   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  67    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  68    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  69    Q
  70    G RETURN1
  71   END C FIO
  72    ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-DOM" )=COUNT
  73    ;W !,COUN T
  74    Q