153. EPMO Open Source Coordination Office Redaction File Detail Report

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

153.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKVLBL.m Mon Nov 5 16:44:49 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKVLBL.m Mon Nov 5 17:49:43 2018 UTC

153.2 Comparison summary

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

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

153.4 Active regular expressions

No regular expressions were active.

153.5 Comparison detail

  1   CHMKVLBL ; AHJ/DEN;VE NDOR NAME/ ADDRESS FO R ALL STAT ES LABELS
  2    ;V1.0
  3    ;DEV01289 3 1/20/201 4 DGC - MO DIFY DECNE T WRITE
  4    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  5    ;
  6   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  7    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  8    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
  9    S U="^"
  10    S (ADD1,A DD2,ADD3,A DD4)=""
  11   ZNAM ;
  12    ;W @IOF,! !,"VENDOR  N&A"
  13   L1 ;W !!," 1) Print l etter",!," 2) Print L abels"
  14    ;W !!,"Ch oose: " D  SBRS G END :$D(DFOUT) ,END:$D(DU OUT)
  15    ;I $D(DQO UT) W !!," Choose 1-4 , or <RETU RN>" G L1
  16    ;G END:Y= "" I "1^2" '[Y W *7,"  ??" G L1
  17    ;S ANS=Y, RTN=$S(ANS =1:"LETT", ANS=2:"LAB ",1:"")
  18    ;G:RTN=""  L1 D @RTN  G L1
  19   LETT ;
  20   LAB ;BREAK  ;DGC 1/20 /2014 DEV0 12893 - BE GIN
  21    ;S FIO="H AC_HFS$:[D SMMANAG]VL BL1425.TXT "
  22    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERA LL.TXT"
  23    ;O FIO C  FIO:"D"
  24    ;O FIO:"N WV"
  25    X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1)
  26    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  27    S FILENM2 =PROVIDERA LL.TXT
  28    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES)"_FILEN M2
  29    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  30    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q  ;DGC 7/30 /2015 DEV0 12893 ;DGC  1/20/2014  DEV012893  - END
  31    S VENPT=0
  32    S COUNT=0
  33    S CHSTOP= 0,SORT=0,C T=0
  34    S STATE=0
  35   A S STATE= $O(^CHMZHO LD("AHJ-VE N-LABELS", STATE)) G: 'STATE END
  36    S ZIP=""
  37   A1 S ZIP=$ O(^CHMZHOL D("AHJ-VEN -LABELS",S TATE,ZIP))  G:ZIP=""  A S NAME=" "
  38   A2 S NAME= $O(^CHMZHO LD("AHJ-VE N-LABELS", STATE,ZIP, NAME)) G:N AME="" A1
  39    S SORT=0
  40   A3 S SORT= $O(^CHMZHO LD("AHJ-VE N-LABELS", STATE,ZIP, NAME,SORT) ) G A2:'SO RT
  41    S CT=CT+1
  42    S DATA=^C HMZHOLD("A HJ-VEN-LAB ELS",STATE ,ZIP,NAME, SORT)
  43    ;
  44    ;W !,DATA
  45    S ADD1=$P (DATA,"^", 6)
  46    S ADD2=$P (DATA,"^", 3)
  47    S ADD3=$P (DATA,"^", 4)
  48    I ADD2="C /O MED MAT RIX INC" G  A3
  49    I ADD2="M EDICAL MAT RIX INC" G  A3
  50    I $E(ADD2 ,1,16)="%  MED MATRIX  INC" G A3
  51    I ADD2="M ED MATRIX  INC" G A3
  52    I $E(ADD2 ,1,15)="%M ED MATRIX  INC" G A3
  53    I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  54    I ADD3="C /O MED MAT RIX INC" G  A3
  55    I ADD3="M EDICAL MAT RIX INC" G  A3
  56    I $E(ADD3 ,1,16)="%  MED MATRIX  INC" G A3
  57    I ADD3="M ED MATRIX  INC" G A3
  58    I $E(ADD3 ,1,15)="%M ED MATRIX  INC" G A3
  59    I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD"  G A3
  60    ;
  61    S ZIPZ=$P (DATA,"^", 5)
  62    I $L(ZIPZ )>9 G OVER 1
  63    ;I $L(ZIP Z)>5 G BRE AK1
  64    I SORT=37 807 G BREA K1
  65   RETURN1 I  $L(ZIPZ)>5  S ZIP1=$E (ZIPZ,1,5)  S ZIP2=$E (ZIPZ,6,9)  S ZIPZ=ZI P1_"-"_ZIP 2
  66   OVER1 S AD D4=$P(DATA ,"^",2)_",  "_$P(DATA ,"^",1)_"   "_ZIPZ
  67    ;BREAK
  68    I ADD3=""  S ADD3=AD D4 S ADD4= ""
  69    I ADD3="  " S ADD3=A DD4 S ADD4 =""
  70    I ADD2=""  S ADD2=AD D4 S ADD3= "" S ADD4= ""
  71    I ADD2="  " S ADD2=A DD4 S ADD3 ="" S ADD4 =""
  72    ;
  73    S T=$C(9)
  74    S TMPS=AD D1_T_ADD2_ T_ADD3_T_A DD4_T
  75    ;BREAK
  76    U FIO W ! ,TMPS
  77    ;W !,TMPS
  78    S (ADD1,A DD2,ADD3,A DD4)=""
  79    S COUNT=C OUNT+1
  80    G A3
  81   L4 Q
  82   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  83    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  84   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  85    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  86    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  87    Q
  88   BREAK1 ;
  89    ;BREAK
  90    G RETURN1
  91   END ;DGC 1 /20/2014 D EV012893 -  BEGIN
  92    ;C FIO
  93    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  94    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  95    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT") ; DGC 1/20/2 014 DEV012 893 - END
  96    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG. CHAMPVA]VE NDCOPY.COM ")
  97    W !,COUNT
  98    Q