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

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1ZVEMBLDO ;DJB,VSHL**VPE Setup - Old Editor ; 12/15/00 5:21pm
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4TOP ;
5 NEW END,FF,FLAGQ,I,LINE,START,TO,TXT,U,X,XX,Y
6 NEW CNT,LN,RTN,TAG
7 S FLAGQ=0
8 D INIT^ZVEMBLD G:FLAGQ EX
9 D UCI^ZVEMBLD G:FLAGQ EX
10 D EDITOLD G:FLAGQ EX
11 ;Next, load Help text
12 S CNT=1
13 KILL ^%ZVEMS("ZZ","VRROLD")
14 S RTN="ZVEMOH",TAG="VRROLD" D TEXT2^ZVEMSGH
15 S RTN="ZVEMOH1",TAG="VRROLD" D TEXT2^ZVEMSGH
16 S RTN="ZVEMOH2",TAG="VRROLD" D TEXT2^ZVEMSGH
17EX ;
18 Q
19EDITOLD ;Load old Editor into ^%ZVEMS("EOLD") global
20 NEW CODE,I,TXT
21 S FLAGQ=0
22 W !!?2,"Install global at ""%ZVEMS(""EOLD"")",!
23 D YESNO^ZVEMBLD("Install old Routine Editor global: YES// ") Q:FLAGQ
24 S TXT=$T(CODEOLD+1)
25 S CODE=$P(TXT,";",3,99)
26 KILL ^%ZVEMS("EOLD")
27 S ^%ZVEMS("EOLD")=CODE
28 F I=2:1 S TXT=$T(CODEOLD+I) Q:$P(TXT,";",3)="***" S CODE=$P(TXT,";",3,99),^%ZVEMS("EOLD",I-1)=CODE
29 W !!?2,"Old routine editor successfully loaded.",!
30 Q
31 ;
32CODEOLD ;Old global for rtn editing
33 ;;X ^%ZVEMS("EOLD",3) Q:$G(DUZ)="" NEW FLAGSAVE,FLAGVPE,VEES NEW:$G(VEE("OS"))']"" VEE X ^%ZVEMS("EOLD",4) Q:'$D(^TMP("VEE","VRR",$J)) X ^%ZVEMS("EOLD",1) L
34 ;;NEW VRRPGM,X D SAVE^%ZVEMOC Q:$G(VRRPGM)']"" X ^%ZVEMS("EOLD",2)
35 ;;NEW X S X=VRRPGM X VEES("ZS") KILL ^UTILITY($J)
36 ;;Q:$G(DUZ)>0 S ^TMP("VEE",$J)=$G(%1) D ID^%ZVEMKU S:$G(VEESHL)="RUN" %1=^TMP("VEE",$J) KILL ^TMP("VEE",$J)
37 ;;S $P(FLAGVPE,"^",4)="EDIT",FLAGSAVE=0 D PARAM^%ZVEMO($G(%1))
38 ;;***
Note: See TracBrowser for help on using the repository browser.