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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 162 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.