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

222.1 Files compared

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

222.2 Comparison summary

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

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

222.4 Active regular expressions

No regular expressions were active.

222.5 Comparison detail

  1   CHMVACTD ; 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    K ^CHMZHO LD("VEND-D UP-CHECK-O UT")
  8    K ^CHMZHO LD("ADD1-V EN-LABELS- CT")
  9    S (ADD1,A DD2,ADD3,A DD4)=""
  10   LAB ;
  11    S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERN OACTDOMNA. TXT"
  12    O FIO C F IO:"D"
  13    O FIO:"NW V"
  14    S VENPT=0
  15    S (CNTR,D CNT)=0
  16    S CHSTOP= 0,SORT=0,C T=0
  17    S STATE=0
  18   A S STATE= $O(^CHMZHO LD("ADD12- VEN-LABELS ",STATE))  G:'STATE E ND
  19    S ZIP=""
  20   A1 S ZIP=$ O(^CHMZHOL D("ADD12-V EN-LABELS" ,STATE,ZIP )) G:ZIP=" " A
  21    S NAME=""
  22   A2 S NAME= $O(^CHMZHO LD("ADD12- VEN-LABELS ",STATE,ZI P,NAME)) G :NAME="" A 1
  23    S SORT=0
  24    ;A2 S SOR T=$O(^CHMZ HOLD("ADD1 2-VEN-LABE LS",STATE, ZIP,NAME,S ORT)) G A2 :'SORT
  25    ;
  26    ;S DATA=^ CHMZHOLD(" ADD12-VEN- LABELS",ST ATE,ZIP,NA ME,SORT)
  27    S DATA=^C HMZHOLD("A DD12-VEN-L ABELS",STA TE,ZIP,NAM E)
  28    ;
  29    I STATE=3 10 G OKNOW
  30    I STATE=7 2 G OKNOW
  31    I STATE>5 6 G A2 ; B YPASS ALL  FOREIGN ST ATE CODES  EXCEPT 66  AND 72
  32   OKNOW ;W ! ,DATA
  33    S NAME1=$ P(DATA,"^" ,6)
  34    S ADD2=$P (DATA,"^", 3)
  35    S ADD3=$P (DATA,"^", 4)
  36    I ADD2="C /O MED MAT RIX INC" G  A2
  37    I ADD2="M EDICAL MAT RIX INC" G  A2
  38    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G A2
  39    I ADD2="M ED MATRIX  INC" G A2
  40    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G A2
  41    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G A2
  42    I ADD3="C /O MED MAT RIX INC" G  A2
  43    I ADD3="M EDICAL MAT RIX INC" G  A2
  44    I $E(ADD3 ,1,16)="%  MED MATRIX  INC" G A2
  45    I ADD3="M ED MATRIX  INC" G A2
  46    I $E(ADD3 ,1,15)="%M ED MATRIX  INC" G A2
  47    I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD"  G A2
  48    ;
  49    S ZIPZ=$P (DATA,"^", 5)
  50    I $L(ZIPZ )>9 G OVER 1
  51   RETURN1 I  $L(ZIPZ)>5  S ZIP1=$E (ZIPZ,1,5)  S ZIP2=$E (ZIPZ,6,9)  S ZIPZ=ZI P1_"-"_ZIP 2
  52   OVER1 ;
  53    ;S ADD4=$ P(DATA,"^" ,2)_", "_$ P(DATA,"^" ,1)_" "_ZI PZ ;CITY,S TATE ZIP
  54    S CITY=$P (DATA,"^", 2)
  55    S STATEP= $P(DATA,"^ ",1)
  56    ;I ADD3=" " S ADD3=A DD4 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    S CNTR=CN TR+1
  61    S DCNT=DC NT+1
  62    ;
  63    S SUBS=NA ME1_ADD2
  64    ;S ^CHMZH OLD("VEND- DUP-CHECK- OUT",STATE ,SUBS)=NAM E1_U_ADD2_ U_ADD3_U_A DD4_U
  65    S:'$D(^CH MZHOLD("VE ND-DUP-CHE CK-OUT",ST ATE,SUBS))  ^CHMZHOLD ("VEND-DUP -CHECK-OUT ",STATE,SU BS)=NAME1_ U_ADD2_U_A DD3_U_CITY _U_STATEP_ U_ZIPZ S C T=CT+1
  66    ;S ^CHMZH OLD("VEND- DUP-CHECK- OUT",STATE ,SUBS)=NAM E1_U_ADD2_ U_ADD3_U_C ITY_U_STAT EP_U_ZIPZ
  67    S (NAME1, ADD2,ADD3, CITY,STATE P,ZIPZ)=""
  68    ;S CT=CT+ 1
  69    S ^CHMZHO LD("ADD1-V EN-LABELS- CT")=CT
  70    G A2
  71   L4 Q
  72   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  73    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  74   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  75    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  76    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  77    Q
  78   END ;
  79    S CNTMORE =0
  80    S STATE=0
  81   END1 ;
  82    S STATE=$ O(^CHMZHOL D("VEND-DU P-CHECK-OU T",STATE))  I STATE=" " G END4
  83    ;W !,"     STATE IN= ",STATE
  84    S SUBS=0
  85   END2 ;
  86    S SUBS=$O (^CHMZHOLD ("VEND-DUP -CHECK-OUT ",STATE,SU BS)) I SUB S="" G END 1
  87    S SUBSDAT A=^CHMZHOL D("VEND-DU P-CHECK-OU T",STATE,S UBS)
  88    S CNTMORE =CNTMORE+1
  89    ;W !!,"           ", CNTMORE
  90    ;W !,"     SUBS IN=" ,STATE," " ,SUBS
  91    S NAME1=$ P(SUBSDATA ,U,1)
  92    S ADD2=$P (SUBSDATA, U,2)
  93    S ADD3=$P (SUBSDATA, U,3)
  94    ;S ADD4=$ P(SUBSDATA ,U,4)
  95    S CITY=$P (SUBSDATA, U,4)
  96    S STATEP= $P(SUBSDAT A,U,5)
  97    S ZIP=$P( SUBSDATA,U ,6)
  98    ;
  99    S T=$C(9)
  100    S TMPS=NA ME1_T_ADD2 _T_ADD3_T_ CITY_T_T_S TATEP_T_ZI P
  101    U FIO W T MPS,!
  102    ;W !,"                                     OUT=",NAME 1
  103    S DCNT=DC NT+1
  104    ;;S ^CHMZ HOLD("AHJ- AHJ-AHJ",D CNT)=NAME1
  105    G END2
  106    Q
  107   END4 ;
  108    C FIO
  109    ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-DOM" )=COUNT
  110    ;W !,COUN T
  111    Q