223. EPMO Open Source Coordination Office Redaction File Detail Report

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

223.1 Files compared

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

223.2 Comparison summary

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

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

223.4 Active regular expressions

No regular expressions were active.

223.5 Comparison detail

  1   CHMVACTF ; 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 (FCNT,C OUNT)=0
  11   LAB ;
  12    S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERN OACTFORNA. 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("ADD12- VEN-LABELS ",STATE))  I STATE=""  G END
  21    S ZIP=""
  22   A1 S ZIP=$ O(^CHMZHOL D("ADD12-V EN-LABELS" ,STATE,ZIP )) G:ZIP=" " A
  23    S NAME=""
  24   A2 S NAME= $O(^CHMZHO LD("ADD12- VEN-LABELS ",STATE,ZI P,NAME)) G :NAME="" A 1
  25    S SORT=0
  26   A3 ;S SORT =$O(^CHMZH OLD("ADD12 -VEN-LABEL S",STATE,Z IP,NAME,SO RT)) I SOR T="" G A2
  27    S CT=CT+1
  28    ;S DATA=^ CHMZHOLD(" ADD12-VEN- LABELS",ST ATE,ZIP,NA ME,SORT)
  29    S DATA=^C HMZHOLD("A DD12-VEN-L ABELS",STA TE,ZIP,NAM E)
  30    ;
  31    I STATE=3 10 G A2
  32    I STATE=7 2 G A2
  33    I STATE<5 7 G A2 ; B YPASS DOME STIC STATE  CODES
  34    ;
  35    ;W !,DATA
  36    S NAME1=$ P(DATA,"^" ,6)
  37    S ADD2=$P (DATA,"^", 3)
  38    S ADD3=$P (DATA,"^", 4)
  39    I ADD2="C /O MED MAT RIX INC" G  A2
  40    I ADD2="M EDICAL MAT RIX INC" G  A2
  41    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G A2
  42    I ADD2="M ED MATRIX  INC" G A2
  43    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G A2
  44    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G A2
  45    I ADD3="C /O MED MAT RIX INC" G  A2
  46    I ADD3="M EDICAL MAT RIX INC" G  A2
  47    I $E(ADD3 ,1,16)="%  MED MATRIX  INC" G A2
  48    I ADD3="M ED MATRIX  INC" G A2
  49    I $E(ADD3 ,1,15)="%M ED MATRIX  INC" G A2
  50    I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD"  G A2
  51    ;
  52    S ZIPZ=$P (DATA,"^", 5)
  53    I $L(ZIPZ )>9 G OVER 1
  54    ;
  55   RETURN1 I  $L(ZIPZ)>5  S ZIP1=$E (ZIPZ,1,5)  S ZIP2=$E (ZIPZ,6,9)  S ZIPZ=ZI P1_"-"_ZIP 2
  56   OVER1 S AD D4=$P(DATA ,"^",2)_",  "_$P(DATA ,"^",1)_"  "_ZIPZ
  57    ; ADD3=""  S ADD3=AD D4 S ADD4= ""
  58    ;I ADD3="  " S ADD3= ADD4 S ADD 4=""
  59    ;I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 =""
  60    ;I ADD2="  " S ADD2= ADD4 S ADD 3="" S ADD 4=""
  61    ;
  62    S T=$C(9)
  63    S TMPS=NA ME1_T_ADD2 _T_ADD3_T_ ADD4_T
  64    ;
  65    U FIO W T MPS,!
  66    ;W !,TMPS
  67    S (NAME1, ADD2,ADD3, ADD4,ZIPZ) =""
  68    S FCNT=FC NT+1
  69    G A2
  70   L4 Q
  71   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  72    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  73   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  74    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  75    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  76    Q
  77   END C FIO
  78    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG. CHAMPVA]VE NDCOPY.COM ")
  79    ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-FOR" )=COUNT
  80    ;W !,COUN T
  81    Q