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