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