source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMBLD.m@ 1204

Last change on this file since 1204 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1ZVEMBLD ;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
16EX ;
17 Q
18UCI ;
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
24YESNO(PROMPT) ;Process YES/NO questions
25 ;Return FLAGQ: 1=NO 2="^"
26 NEW XX S PROMPT=$G(PROMPT)
27YN 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
31ASK ;
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
36INIT ;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
Note: See TracBrowser for help on using the repository browser.