1 | ZVEMBLDO ;DJB,VSHL**VPE Setup - Old Editor ; 12/15/00 5:21pm
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | TOP ;
|
---|
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
|
---|
17 | EX ;
|
---|
18 | Q
|
---|
19 | EDITOLD ;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 | ;
|
---|
32 | CODEOLD ;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 | ;;***
|
---|