1 | ZVEMBLD ;DJB,VSHL**VPE Setup - Start ; 1/5/04 7:37am
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | I $G(VEESHL)="RUN" D Q
|
---|
5 | . W $C(7),!?2,"Please exit the VShell before running ^ZVEMBLD.",!
|
---|
6 | NEW END,FF,FLAGQ,I,LINE,START,TO,TXT,U,X,XX,Y
|
---|
7 | D INIT S FLAGQ=0
|
---|
8 | D PAGE1^ZVEMBLDA G:FLAGQ EX
|
---|
9 | D PAGE2^ZVEMBLDA G:FLAGQ EX
|
---|
10 | D PAGE3^ZVEMBLDA G:FLAGQ EX
|
---|
11 | D PAGE4^ZVEMBLDB G:FLAGQ EX
|
---|
12 | D PAGE5^ZVEMBLDB G:FLAGQ EX
|
---|
13 | D PAGE6^ZVEMBLDB G:FLAGQ EX
|
---|
14 | D UCI G:FLAGQ EX
|
---|
15 | D ^ZVEMBLDL
|
---|
16 | EX ;
|
---|
17 | Q
|
---|
18 | UCI ;
|
---|
19 | W @FF
|
---|
20 | Q:'$D(^%ZOSF("UCI")) X ^%ZOSF("UCI") I Y["MG" Q
|
---|
21 | W $C(7),!!?2,"THIS IS NOT THE MANAGER UCI. I think it is ",Y,"."
|
---|
22 | D YESNO("Should I continue anyway: YES// ")
|
---|
23 | Q
|
---|
24 | YESNO(PROMPT) ;Process YES/NO questions
|
---|
25 | ;Return FLAGQ: 1=NO 2="^"
|
---|
26 | NEW XX S PROMPT=$G(PROMPT)
|
---|
27 | YN W !?2,PROMPT R XX:TO S:'$T XX="^" S:XX="" XX="YES" S XX=$E(XX)
|
---|
28 | S:"Nn"[XX FLAGQ=1 S:"^"[XX FLAGQ=2 Q:FLAGQ
|
---|
29 | I "YyNn"'[XX W !?10,"Y=Yes N=No ^=Quit" G YN
|
---|
30 | Q
|
---|
31 | ASK ;
|
---|
32 | NEW X
|
---|
33 | W !?1,"<RETURN> to continue, '^' to quit: "
|
---|
34 | R X:TO S:'$T X="^" I X'="" S FLAGQ=1 Q
|
---|
35 | Q
|
---|
36 | INIT ;Set numbers
|
---|
37 | S $P(LINE,"@",76)="",U="^",TO=300
|
---|
38 | I $G(IOF)]"" S FF=IOF Q
|
---|
39 | I $D(^%ZIS(1)) D HOME^%ZIS S FF=IOF Q
|
---|
40 | S FF="#,$C(27),""[2J"",$C(27),""[H"""
|
---|
41 | Q
|
---|