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

227.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENF1.m Mon Nov 5 16:44:51 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVENF1.m Mon Nov 5 17:51:50 2018 UTC

227.2 Comparison summary

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

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

227.4 Active regular expressions

No regular expressions were active.

227.5 Comparison detail

  1   CHMVENF1 ; 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 ]PROVIDERS ELFORNA.TX T"
  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("ADD1-V EN-LABELS" ,STATE)) I  STATE=""  G END
  21    S ZIP=""
  22   A1 S ZIP=$ O(^CHMZHOL D("ADD1-VE N-LABELS", STATE,ZIP) ) G:ZIP=""  A
  23    S NAME=""
  24   A2 S NAME= $O(^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME)) G: NAME="" A1
  25    S SORT=0
  26   A3 S SORT= $O(^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME,SORT )) I SORT= "" G A2
  27    S CT=CT+1
  28    S DATA=^C HMZHOLD("A DD1-VEN-LA BELS",STAT E,ZIP,NAME ,SORT)
  29    ;
  30    I STATE=3 10 G A3
  31    I STATE=7 2 G A3
  32    I STATE<5 7 G A3 ; B YPASS DOME STIC STATE  CODES
  33    ;
  34    ;W !,DATA
  35    S NAME1=$ P(DATA,"^" ,6)
  36    S ADD2=$P (DATA,"^", 3)
  37    S ADD3=$P (DATA,"^", 4)
  38    I ADD2="C /O MED MAT RIX INC" G  A3
  39    I ADD2="M EDICAL MAT RIX INC" G  A3
  40    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G A3
  41    I ADD2="M ED MATRIX  INC" G A3
  42    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G A3
  43    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  44    I ADD3="C /O MED MAT RIX INC" G  A3
  45    I ADD3="M EDICAL MAT RIX INC" G  A3
  46    I $E(ADD3 ,1,16)="%  MED MATRIX  INC" G A3
  47    I ADD3="M ED MATRIX  INC" G A3
  48    I $E(ADD3 ,1,15)="%M ED MATRIX  INC" G A3
  49    I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  50    ;
  51    S ZIPZ=$P (DATA,"^", 5)
  52    I $L(ZIPZ )>9 G OVER 1
  53    ;
  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=NA ME1_T_ADD2 _T_ADD3_T_ ADD4_T
  63    ;
  64    U FIO W T MPS,!
  65    ;W !,TMPS
  66    S (NAME1, ADD2,ADD3, ADD4,ZIPZ) =""
  67    S FCNT=FC NT+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