source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMBLDL.m

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1ZVEMBLDL ;DJB,VSHL**VPE Setup - Load Editor & Shell ; 9/7/02 2:06pm
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4TOP ;
5 D SHELL
6 I FLAGQ D G EX
7 . W !!,"VPE Shell global not loaded."
8 D EDITOR
9 W !!,"VPE Programmer Shell successfully loaded."
10 W !,"VPE full screen routine editor successfully loaded."
11 W !,"Initialization finished."
12 W !!,"NOTE: To start the VPE Shell, type: X ^%ZVEMS"
13 R !!,"<RETURN> to continue..",XX:300
14 D DISCLAIM^%ZVEMKU1
15EX ;
16 Q
17 ;===================================================================
18SHELL ;Load VPE Shell Global - ^%ZVEMS
19 S FLAGQ=0
20 ;W !!?2,"S T E P 2",!
21 D YESNO^ZVEMBLD("Load VPE Shell global: YES// ")
22 Q:FLAGQ
23 D ALL^ZVEMSG
24 Q
25 ;
26EDITOR ;Load Editor into ^%ZVEMS("E") global
27 NEW CODE,I,TXT
28 ;S FLAGQ=0
29 ;W !!?2,"S T E P 1",!
30 ;D YESNO^ZVEMBLD("Install 'VPE Routine Editor': YES// ")
31 ;Q:FLAGQ
32EDITOR1 ;
33 S TXT=$T(CODE+1)
34 S CODE=$P(TXT,";",3,99)
35 KILL ^%ZVEMS("E")
36 S ^%ZVEMS("E")=CODE
37 F I=2:1 S TXT=$T(CODE+I) Q:$P(TXT,";",3)="***" S CODE=$P(TXT,";",3,99),^%ZVEMS("E",I-1)=CODE
38 Q
39 ;
40CODE ;Global for Rtn editing
41 ;;X ^%ZVEMS("E",3) Q:$G(DUZ)="" NEW FLAGSAVE,FLAGVPE,VEES NEW:$G(VEE("OS"))']"" VEE X ^%ZVEMS("E",4) Q:'$D(^TMP("VEE","VRR",$J)) X ^%ZVEMS("E",1) KILL ^UTILITY($J) L
42 ;;NEW %Y,VRRPGM,X D SAVE^%ZVEMRC(1) Q:$G(VRRPGM)']"" X ^%ZVEMS("E",2)
43 ;;NEW X S X=VRRPGM X VEES("ZS"),^%ZVEMS("E",5)
44 ;;Q:$G(DUZ)>0 S ^TMP("VEE",$J,1)=$G(%1),^(2)=$G(%2) D ID^%ZVEMKU S:$G(VEESHL)="RUN" %1=^TMP("VEE",$J,1),%2=^(2) KILL ^TMP("VEE",$J)
45 ;;S $P(FLAGVPE,"^",4)="EDIT" D PARAM^%ZVEMR($G(%1),$G(%2))
46 ;;Q:VEE("OS")'=17&(VEE("OS")'=19) NEW LINK,PGM S PGM=VRRPGM,PGM=$TR(PGM,"%","_") S LINK="ZLINK """_PGM_"""" X LINK
47 ;;***
Note: See TracBrowser for help on using the repository browser.