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

226.1 Files compared

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

226.2 Comparison summary

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

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

226.4 Active regular expressions

No regular expressions were active.

226.5 Comparison detail

  1   CHMVEND1 ; AHJ/DEN;VE NDOR NAME/ ADDRESS FO R DOMESTIC  PLUS GUAM  AND PR LA BELS
  2    ;V1.0
  3    ;DEV01289 3 DPT REMO VE DECNET
  4   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  5    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  6    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
  7    S U="^"
  8    K ^CHMZHO LD("VEND-D UP-CHECK-O UT")
  9    K ^CHMZHO LD("ADD1-V EN-LABELS- CT")
  10    S (ADD1,A DD2,ADD3,A DD4)=""
  11   LAB ;
  12    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERS ELDOMNA.TX T"
  13    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 12893 DPT
  14    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D EV012893 D PT
  15     I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT
  16    S FIO="PR OVIDERSELD OMNA.TXT"  ;DEV012893  DPT
  17    S FIO=FOL DER_FIO ;D EV012893 D PT
  18    S FLDR="/ FS3BIG" ;D EV012893 D PT
  19    O FIO C F IO:"D"
  20    O FIO:"NW V"
  21    S VENPT=0
  22    S (CNTR,D CNT)=0
  23    S CHSTOP= 0,SORT=0,C T=0
  24    S STATE=0
  25   A S STATE= $O(^CHMZHO LD("ADD1-V EN-LABELS" ,STATE)) G :'STATE EN D
  26    S ZIP=""
  27   A1 S ZIP=$ O(^CHMZHOL D("ADD1-VE N-LABELS", STATE,ZIP) ) G:ZIP=""  A
  28    S NAME=""
  29   A2 S NAME= $O(^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME)) G: NAME="" A1
  30    S SORT=0
  31   A3 S SORT= $O(^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME,SORT )) G A2:'S ORT
  32    ;
  33    S DATA=^C HMZHOLD("A DD1-VEN-LA BELS",STAT E,ZIP,NAME ,SORT)
  34    ;
  35    I STATE=3 10 G OKNOW
  36    I STATE=7 2 G OKNOW
  37    ;I STATE> 56 G A3 ;  BYPASS ALL  FOREIGN S TATE CODES  EXCEPT 66  AND 72
  38   OKNOW ;W ! ,DATA
  39    S NAME1=$ P(DATA,"^" ,6)
  40    S ADD2=$P (DATA,"^", 3)
  41    S ADD3=$P (DATA,"^", 4)
  42    I ADD2="C /O MED MAT RIX INC" G  A3
  43    I ADD2="M EDICAL MAT RIX INC" G  A3
  44    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G A3
  45    I ADD2="M ED MATRIX  INC" G A3
  46    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G A3
  47    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  48    I ADD3="C /O MED MAT RIX INC" G  A3
  49    I ADD3="M EDICAL MAT RIX INC" G  A3
  50    I $E(ADD3 ,1,16)="%  MED MATRIX  INC" G A3
  51    I ADD3="M ED MATRIX  INC" G A3
  52    I $E(ADD3 ,1,15)="%M ED MATRIX  INC" G A3
  53    I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  54    ;
  55    S ZIPZ=$P (DATA,"^", 5)
  56    I $L(ZIPZ )>9 G OVER 1
  57   RETURN1 I  $L(ZIPZ)>5  S ZIP1=$E (ZIPZ,1,5)  S ZIP2=$E (ZIPZ,6,9)  S ZIPZ=ZI P1_"-"_ZIP 2
  58   OVER1 ;
  59    ;S ADD4=$ P(DATA,"^" ,2)_", "_$ P(DATA,"^" ,1)_" "_ZI PZ ;CITY,S TATE ZIP
  60    S CITY=$P (DATA,"^", 2)
  61    S STATEP= $P(DATA,"^ ",1)
  62    ;I ADD3=" " S ADD3=A DD4 S ADD4 =""
  63    ;I ADD3="  " S ADD3= ADD4 S ADD 4=""
  64    ;I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 =""
  65    ;I ADD2="  " S ADD2= ADD4 S ADD 3="" S ADD 4=""
  66    S CNTR=CN TR+1
  67    ;
  68    S SUBS=NA ME1_ADD2
  69    ;S ^CHMZH OLD("VEND- DUP-CHECK- OUT",STATE ,SUBS)=NAM E1_U_ADD2_ U_ADD3_U_A DD4_U
  70    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
  71    ;S ^CHMZH OLD("VEND- DUP-CHECK- OUT",STATE ,SUBS)=NAM E1_U_ADD2_ U_ADD3_U_C ITY_U_STAT EP_U_ZIPZ
  72    S (NAME1, ADD2,ADD3, CITY,STATE P,ZIPZ)=""
  73    ;S CT=CT+ 1
  74    S ^CHMZHO LD("ADD1-V EN-LABELS- CT")=CT
  75    G A3
  76   L4 Q
  77   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  78    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  79   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  80    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  81    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  82    Q
  83   END ;
  84    S CNTMORE =0
  85    S STATE=0
  86   END1 ;
  87    S STATE=$ O(^CHMZHOL D("VEND-DU P-CHECK-OU T",STATE))  I STATE=" " G END4
  88    ;W !,"     STATE IN= ",STATE
  89    S SUBS=0
  90   END2 ;
  91    S SUBS=$O (^CHMZHOLD ("VEND-DUP -CHECK-OUT ",STATE,SU BS)) I SUB S="" G END 1
  92    S SUBSDAT A=^CHMZHOL D("VEND-DU P-CHECK-OU T",STATE,S UBS)
  93    S CNTMORE =CNTMORE+1
  94    ;W !!,"           ", CNTMORE
  95    ;W !,"     SUBS IN=" ,STATE," " ,SUBS
  96    S NAME1=$ P(SUBSDATA ,U,1)
  97    S ADD2=$P (SUBSDATA, U,2)
  98    S ADD3=$P (SUBSDATA, U,3)
  99    ;S ADD4=$ P(SUBSDATA ,U,4)
  100    S CITY=$P (SUBSDATA, U,4)
  101    S STATEP= $P(SUBSDAT A,U,5)
  102    S ZIP=$P( SUBSDATA,U ,6)
  103    ;
  104    S T=$C(9)
  105    S TMPS=NA ME1_T_ADD2 _T_ADD3_T_ CITY_T_T_S TATEP_T_ZI P
  106    U FIO W T MPS,!
  107    ;W !,"                                     OUT=",NAME 1
  108    S DCNT=DC NT+1
  109    ;;S ^CHMZ HOLD("AHJ- AHJ-AHJ",D CNT)=NAME1
  110    G END2
  111    Q
  112   END4 ;
  113    C FIO
  114    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ",FLDR,"PU T")    ;DEV012893  DPT
  115    ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-DOM" )=COUNT
  116    ;W !,COUN T
  117    Q