76. EPMO Open Source Coordination Office Redaction File Detail Report

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

76.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLREDX.m Mon Nov 5 16:44:05 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLREDX.m Fri Nov 9 01:33:06 2018 UTC

76.2 Comparison summary

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

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

76.4 Active regular expressions

No regular expressions were active.

76.5 Comparison detail

  1   CHLREDX ;M D/DEN;READ  REDBOOK E XCEPTIONAL  DRUG CODE ;04/24/97   4:45 PM
  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 %IS="N ",IOP=$I D  ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS
  6   ZNAM ;
  7    K ^CHMZHO LD("REDEX" )
  8    ;<--- JEH
  9    W @IOZF,! ,"CHAMPVA  CENTER - R EAD IN RED BOOK UPDAT E TAPE"
  10   A0 W !!,"A re you rea ding from  the <T>ape  or <F>ile ? " D SBRS
  11    Q:$D(DUOU T)  Q:$D(D FOUT)  I $ D(DQOUT) D   G A0
  12    .W !!,"En ter a <T>  if reading  from the  Tape, or"
  13    .W !,"Ent er an <F>  if reading  from a Fi le."
  14    Q:Y=""  S  Y=$E(Y) I  "TFtf"'[Y  W *7," ?? " G A0
  15    S:Y="t" Y ="T" S:Y=" f" Y="F" S  CHSRCE=Y
  16   A01 I CHSR CE="F" D F 1 G A0:$D( DFOUT),A0: $D(DUOUT), A01:$D(DQO UT),A0:'$D (CHIO)
  17    .W !!,"Fi le Name: V A554A01""D SMVAXMGR p assword"": :HAC_HFS$: [DSMMANAG] TAPERD.DAT  //"
  18    ;.D SBRS  Q:$D(DFOUT )  Q:$D(DU OUT)  Q:$D (DQOUT)  K  CHIO
  19    ;.I Y=""  D  Q
  20    ;..S CHIO ="VA5541"" DSMMANAG M EXCOP""::H AC_HFS$:[D SMMANAG]TA PERD.DAT"
  21    ;.I Y'?1" VA554"1N.E 1"::".A1"4 ".A1":[".A 1"]".A1"." .E W *7,"  ??" Q
  22    ;.S CHIO= Y
  23    W !! S %D T("A")="Pl ease enter  REDBOOK d ate (mm/dd /yy) of ta pe:  "
  24    S %DT="AE X" D ^%DT  K %DT S TD =Y
  25    ;S ^CHMZH OLD("REDUP ","CHDATE" )=TD  ;**N EW MAR 18,  94
  26    G A1:'$D( ^CHMPDX("R EDEX",TD))
  27    R !!,"Tap e has alre ady been r ead!!  Do  you wish t o re-read?   NO//",X
  28    Q:(X="")! ($E(X,1)'= "Y")
  29   A1 ;R !!," Enter numb er of reco rds to be  read in:   ",B
  30    S ^CHMPDX ("REDEX",T D)=DT
  31    U $I W !! ,"READING  IN REDBOOK  TAPE..."
  32    S I=0
  33    I CHSRCE= "T" D  Q:' $T
  34    .S $ZT="F ATAL"
  35    .O "TAPE1 $":(FORMAT ="AUF5":RE CORDSIZE=1 75:BLOCKSI ZE=700):10
  36    .I '$T U  0 W *7,*7, !!,"Tape d rive not a vailable!   Exiting.. ." Q
  37    .U "TAPE1 $" W *5
  38    I CHSRCE= "F" O CHIO :"R":697 S  $ZE="",$Z T="END^CHL REDX"
  39   A2 S I=I+1
  40    ;G A3:B=( I-1)
  41    S N=175
  42    U:CHSRCE= "T" "TAPE1 $" U:CHSRC E="F" CHIO  R X#N G A 3:($ZA\102 4#2) S:($Z A\16384#2)  I=I-1 G A 2:$L(X)=0   S ^CHMZHO LD("REDEX" ,I)=X
  43    I I#100=0  U 0 W !,I ,"  ",$H
  44    G A2
  45   A3 I CHSRC E="T" C "T APE1$":DIS MOUNT
  46    I CHSRCE= "F" C CHIO
  47    ;I B'=(I- 1) W !!,"N umber of r ecords rea d does not  equal num ber entere d!!!"
  48    U 0 W *7, *7,*7,!!," Tape Is Fi nished!"
  49   END ;
  50    W !,"***  END OF CHL REDX ***"
  51    C CHIO D  HOME^%ZIS
  52    D ^CHLRED X1
  53    W !,"End  of Updatin g Exceptio nal Drug C ode"
  54    Q
  55   FATAL U 0  W !!!,*7,* 7,"A tape  drive erro r has occu red!!",!!, "Error is:  ",$ZE
  56    G A3
  57   F1 ;K CHIO  W !!,"Ent er CPU: VA 5540// " D  SBRS Q:$D (DFOUT)  Q :$D(DUOUT)
  58    ;I $D(DQO UT) D  G F 1
  59    ;.W !!,"E nter the C PU name or  <RETURN>  for the de fault. "
  60    ;I Y="" S  CHA="VA55 40" G F2
  61    ;I Y'?1"V A554"1N W  *7," ??" G  F1
  62    ;S CHA=Y
  63   F2 ;W !!," Enter Pass word: " D  SBRS Q:$D( DFOUT)  Q: $D(DUOUT)
  64    ;I $D(DQO UT) W !!," Enter the  Password o r <RETURN> . " G F2
  65    ;Q:Y=""   S CHB=Y
  66   F3 ;W !!," Enter File name: " D  SBRS Q:$D( DFOUT)  Q: $D(DUOUT)
  67    ;I $D(DQO UT) W !!," Enter the  Filename o r <RETURN> . " G F3
  68    ;Q:Y=""   I Y'?.A1". ".A W *7,"  ??" G F3
  69    S CHC="ex drug.dos"
  70    S CHIO="H ACFS3"" DNS     COLEDEC We lcome1!"": :d:[FS3BIG .CODEUPDT. REDBOOK.LI VE]"_CHC
  71   F4 W !!,CH IO,!!,"Is  this corre ct? " D SB RS
  72    Q:$D(DFOU T)  Q:$D(D UOUT)  I $ D(DQOUT) D   G F4
  73    .W !!,"En ter 'Y' or  'N'. "
  74    I Y="" W  !!,"Enter  'Y' or 'N' . " G F4
  75    S Y=$E(Y, 1) I "ynYN "'[Y W *7, " ??" G F4
  76    G F1:"Nn" [Y 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 ) @IOZF S  (DFOUT,Y)= "" Q
  81    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  82    Q