Produced by Araxis Merge on 11/9/2018 12:34:06 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 | CHMLRT1.m | Mon Nov 5 16:40:46 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLRT1.m | Fri Nov 9 03:18:08 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 256 |
Changed | 1 | 4 |
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 | CHMLRT1 ;M D/DEN;READ REDBOOK U PDATE TAPE ;04/18/97 12:39 PM | |
2 | ;V1.0 | |
3 | ;PT #1612 1 (Y2K) - Converted to Y2K For mat | |
4 | ;FWP Cach e Updates - Tape Rou tine, no c hanges. 3/ 10/2005 | |
5 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
6 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
7 | ;*** MODI FICATION - kill temp global be fore start 10/10/200 3-sgs *** | |
8 | K ^CHMZPD X("RED"),^ CHMZPDX("R EDBCH"),^C HMZPDX("RE DUP") | |
9 | ;set var IOF for cl ear screen | |
10 | S:'$D(IOF ) IOF="#,$ C(27,91,50 ,74,27,91, 72)" | |
11 | ;*** END MODIFICATI ON *** | |
12 | 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 | |
13 | ZNAM ; | |
14 | W @IOZF,! ,?15,"CHAM PVA CENTER - READ IN REDBOOK U PDATE FILE ",!,?30,"[ Part 1 of 3]" | |
15 | A0 W !!,"A re you rea ding from the <T>ape or <F>ile ? " D SBRS | |
16 | Q:$D(DUOU T) Q:$D(D FOUT) I $ D(DQOUT) D G A0 | |
17 | .W !!,"En ter a <T> if reading from the Tape, or" | |
18 | .W !,"Ent er an <F> if reading from a Fi le." | |
19 | Q:Y="" S Y=$E(Y) I "TFtf"'[Y W *7," ?? " G A0 | |
20 | S:Y="t" Y ="T" S:Y=" f" Y="F" S CHSRCE=Y | |
21 | A01 I CHSR CE="F" D F 1 G A0:$D( DFOUT),A0: $D(DUOUT), A01:$D(DQO UT),A0:'$D (IO) | |
22 | .W !!,"Fi le Name: V A554A01""D SMVAXMGR p assword"": :HAC_HFS$: [DSMMANAG] TAPERD.DAT //" | |
23 | ;.D SBRS Q:$D(DFOUT ) Q:$D(DU OUT) Q:$D (DQOUT) K IO | |
24 | ;.I Y="" D Q | |
25 | ;..S IO=" VA5541""DS MMANAG MEX COP""::HAC _HFS$:[DSM MANAG]TAPE RD.DAT" | |
26 | ;.I Y'?1" VA554"1N.E 1"::".A1"4 ".A1":[".A 1"]".A1"." .E W *7," ??" Q | |
27 | ;.S IO=Y | |
28 | W !! S %D T("A")="Pl ease enter date (mm/ dd/yy) of REDBOOK up date file: " | |
29 | S %DT="AE X" D ^%DT K %DT S TD =Y | |
30 | S ^CHMZPD X("REDUP", "CHDATE")= TD ;**NEW MAR 18, 9 4 | |
31 | G A1:'$D( ^CHMPDX("T APE",TD)) | |
32 | R !!,"Fil e has alre ady been r ead!! Do you wish t o re-read? NO//",X | |
33 | Q:(X="")! ($E(X,1)'= "Y") | |
34 | A1 ;R !!," Enter numb er of reco rds to be read in: ",B | |
35 | S ^CHMPDX ("TAPE",TD )=DT | |
36 | U $I W !! ,"READING IN REDBOOK FILE...", !! | |
37 | S I=0 | |
38 | I CHSRCE= "T" D Q:' $T | |
39 | .S $ZT="F ATAL" | |
40 | .O "TAPE1 $":(FORMAT ="AUF5":RE CORDSIZE=1 95:BLOCKSI ZE=780):10 | |
41 | .I '$T U 0 W *7,*7, !!,"Tape d rive not a vailable! Exiting.. ." Q | |
42 | .U "TAPE1 $" W *5 | |
43 | I CHSRCE= "F" O IO:" R":767 S $ ZE="",$ZT= "END^CHMLR T1" ;edit ed for cac he by scot t doan on 03.17.05 | |
44 | A2 S I=I+1 | |
45 | ;*** MODI FICATION - monitor p rogress 10 /10/2003-s gs *** | |
46 | U 0 D IOX Y^XGF(22,1 ) W "Proce ssing reco rd #",I | |
47 | ;*** END MODIFICATI ON *** | |
48 | ;G A3:B=( I-1) | |
49 | ;S N=195 | |
50 | S CHKFGL= "" ;7/15 /08 JPN I NITIALIZED FLAG | |
51 | S N=0 | |
52 | S SN=1 | |
53 | S XX="" | |
54 | U:CHSRCE= "T" "TAPE1 $" | |
55 | U:CHSRCE= "F" IO | |
56 | R X | |
57 | D GLCHK ;ADDED 5/ 13/08 JPN TTID DEV0 00150-02 | |
58 | G A2:CHKF LG ;ADDE D 5/13/08 JPN TTID DEV000150- 02 | |
59 | F J=1:1:4 D | |
60 | .S:J<4 N= N+195 | |
61 | .S:J=4 N= N+182 | |
62 | .S XX=$E( X,SN,N) | |
63 | .S:J<4 SN =SN+195 | |
64 | .S:J=4 SN =SN+182 | |
65 | .G A3:($Z A\1024#2) | |
66 | .S:($ZA\1 6384#2) I= I-1 | |
67 | .G A2:$L( X)=0 | |
68 | .S ^CHMZP DX("REDUP" ,TD,I,J)=X X | |
69 | ;*** MODI FICATION - take out monitor 10 /10/2003-s gs *** | |
70 | ;I I#100= 0 U 0 W !, I," ",$H | |
71 | ;*** END MODIFICATI ON *** | |
72 | G A2 | |
73 | A3 I CHSRC E="T" C "T APE1$":DIS MOUNT | |
74 | I CHSRCE= "F" C IO | |
75 | ;I B'=(I- 1) W !!,"N umber of r ecords rea d does not equal num ber entere d!!!" | |
76 | U 0 W *7, *7,*7,!!," Tape Is Fi nished!" | |
77 | END ;*** M ODIFICATIO N - additi onal info for user 1 0/10/2003- sgs *** | |
78 | C IO D HO ME^%ZIS | |
79 | I $D(^CHM ZPDX("REDU P")) W !!, "The 1st o f this 3-p art proced ure is com plete ",I- 1," record s read",!, " from the REDBOOK s ource file .",!! D | |
80 | .K AYG S: '$D(DTIME) DTIME=60 R !,"<Pres s any key to continu e>",AYG#1: 5 | |
81 | .;*** Sta rt other r outines fr om here - sgs *** | |
82 | .I AYG'[" ^" D | |
83 | ..D ^CHML RL1 I '$D( ^CHMZPDX(" RED")) Q | |
84 | ..D ^CHML UR | |
85 | Q | |
86 | ;*** END MODIFICATI ON *** | |
87 | FATAL U 0 W !!!,*7,* 7,"A tape drive erro r has occu red!!",!!, "Error is: ",$ZE | |
88 | G A3 | |
89 | F1 ;K IO W !!,"Enter CPU: VA55 40// " D S BRS Q:$D(D FOUT) Q:$ D(DUOUT) | |
90 | ;I $D(DQO UT) D G F 1 | |
91 | ;.W !!,"E nter the C PU name or <RETURN> for the de fault. " | |
92 | ;I Y="" S CHA="VA55 40" G F2 | |
93 | ;I Y'?1"V A554"1N W *7," ??" G F1 | |
94 | ;S CHA=Y | |
95 | F2 ;W !!," Enter Pass word: " D SBRS Q:$D( DFOUT) Q: $D(DUOUT) | |
96 | ;I $D(DQO UT) W !!," Enter the Password o r <RETURN> . " G F2 | |
97 | ;Q:Y="" S CHB=Y | |
98 | F3 W !!,"E nter Filen ame: " D S BRS Q:$D(D FOUT) Q:$ D(DUOUT) | |
99 | I $D(DQOU T) W !!,"E nter the F ilename or <RETURN>. " G F3 | |
100 | Q:Y="" I Y'?.E1"." .A W *7," ??" G F3 | |
101 | ;SET ENVI RONMENT | |
102 | S ENVIR=" " | |
103 | S AYGSYS= XQVOL | |
104 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
105 | S ENVIR=A YGSYS | |
106 | ;S CHC=Y, IO="HACFS1 ::E:[FS1BI G.REDBOOK] "_CHC | |
107 | ;S CHC=Y, IO="HACFS1 "" DNS DWYDEC Dwy er123""::E :[FS1BIG.R EDBOOK]"_C HC | |
108 | S CHC=Y,I O="HACFS3" " DNS COLEDEC We lcome1!"": :d:[FS3BIG .CODEUPDT. REDBOOK."_ ENVIR_"]"_ CHC | |
109 | F4 W !!,IO ,!!,"Is th is correct ? " D SBRS | |
110 | Q:$D(DFOU T) Q:$D(D UOUT) I $ D(DQOUT) D G F4 | |
111 | .W !!,"En ter 'Y' or 'N'. " | |
112 | I Y="" W !!,"Enter 'Y' or 'N' . " G F4 | |
113 | S Y=$E(Y, 1) I "ynYN "'[Y W *7, " ??" G F4 | |
114 | G F1:"Nn" [Y Q | |
115 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
116 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
117 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
118 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
119 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
120 | Q | |
121 | GLCHK ;ADD ED 5/13/08 JPN TTID DEV000150 -02 | |
122 | ;ADDING N EW LINE TA G TO CHECK THE GLOBA L ^CHMPDX TO SEE IF | |
123 | ;THERE HA S BEEN A M ODIFICATIO N TO THE F IELD | |
124 | ;IF A MOD IFICATION HAS TAKEN PLACE THEN WE WILL N OT UPDATE THE FIELD | |
125 | S (NDCNUM ,CHMDI)="" ,CHKFLG=0 | |
126 | S NDCNUM= $E(X,69,81 ) | |
127 | I $D(^CHM PDX("C",ND CNUM)) D | |
128 | . S CHMDI =$O(^CHMPD X("C",NDCN UM,CHMDI)) | |
129 | . I $D(^C HMPDX(CHMD I,3)) S CH KFLG=1 | |
130 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.