| [613] | 1 | AAQMENUR ;FGO/JHS; Programmer Mode Routine Menu ;03-06-98 [2/25/02 4:33am]
|
|---|
| 2 | ;;1.2;LOCAL;; For Kernel V8.0 and OpenM-NT
|
|---|
| 3 | ;;Logic and code from AHJZSYS routines from 557/THM
|
|---|
| 4 | MENU I '$D(IOF) S IOP="HOME" D ^%ZIS K IOP
|
|---|
| 5 | W @IOF,"Programmer Mode Routine Menu:",!!
|
|---|
| 6 | S U="^" F I=1:1 S X=$T(OPT+I) Q:X["$END" W ?($S(I<10:5,1:4)),I,".",?9,$P(X,";",3) W:X'["AAQ" ?45,"(",$P(X,";",2),")" W !
|
|---|
| 7 | S N=I-1,AAQMSG="Please enter a number between 1 and "_N_" "
|
|---|
| 8 | OPTION R !,?1,"Select Option Number: ",J:120 G:J[U!(J="") EXIT
|
|---|
| 9 | I J'?1.N!((J<1)!(J>N)) W !!,$C(7),AAQMSG H 1 G MENU
|
|---|
| 10 | S X=$T(OPT+J) W " ",$P(X,";",3),!! D @$P(X,";",2)
|
|---|
| 11 | S:SAVIOF'=LFIOF IOF=LFIOF
|
|---|
| 12 | G MENU
|
|---|
| 13 | ;
|
|---|
| 14 | OPT ;routine to execute;description
|
|---|
| 15 | ;AAQRD;Routine Directory (^%RD)
|
|---|
| 16 | ;^%ZTPP;List Routines
|
|---|
| 17 | ;AAQDEL;Delete Routines (^%ZTRDEL)
|
|---|
| 18 | ;^XINDEX;%Index of Routines
|
|---|
| 19 | ;AAQZTP1;First Line Print (^%ZTP1)
|
|---|
| 20 | ;^AAQJCASE;Routine Name Case Changer (^AAQJCASE)
|
|---|
| 21 | ;AAQCHK;Checksums for Routines (CHECK^XTSUMBLD)
|
|---|
| 22 | ;^XPDZCHK;Checksums/2nd Line List
|
|---|
| 23 | ;AAQVPE;VPE Routine Editor (X ^%ZVEMS("E"))
|
|---|
| 24 | ;AAQOPM;OpenM Routine Editor (^%rde)
|
|---|
| 25 | ;$END
|
|---|
| 26 | AAQRD D ^%RD R !!,"Press RETURN to Continue: ",X:DTIME Q
|
|---|
| 27 | AAQDEL D ^%ZTRDEL R !!,"Press RETURN to Continue: ",X:DTIME Q
|
|---|
| 28 | AAQZTP1 D ^%ZTP1 R !!,"Press RETURN to Continue: ",X:DTIME Q
|
|---|
| 29 | AAQCHK D CHECK^XTSUMBLD R !!,"Press RETURN to Continue: ",X:DTIME Q
|
|---|
| 30 | AAQBLD D BUILD^%ZTP1 R !!,"Press RETURN to Continue: ",X:DTIME Q
|
|---|
| 31 | AAQVPE I '$D(^%ZVEMS) W !,"Sorry. VPE Editor is not available." H AAQH Q
|
|---|
| 32 | W !,"Use <ESC> <ESC> for Quit/Save Options.",!
|
|---|
| 33 | R !!,"Press RETURN to Continue, '^' to Exit: ",X:15 G:X="^" EXIT
|
|---|
| 34 | S IOF=SAVIOF X ^%ZVEMS("E") S IOF=LFIOF Q
|
|---|
| 35 | AAQOPM I ^%ZOSF("OS")'["OpenM-NT" W $C(7),!,"This editor is only available on Alpha Cache/OpenM-NT systems! Exiting.",! H 2 Q
|
|---|
| 36 | W !,"...Calling %rde OpenM Full Screen Editor.",!
|
|---|
| 37 | W !,"Use PF3 (or F3) for Bottom Menu Options."
|
|---|
| 38 | W !,"Use PF4 (or F4) for Quit/Save Options."
|
|---|
| 39 | W !,"Select Cache Terminal or VT100, enter routine name,"
|
|---|
| 40 | W !,"or press Return at Load Routine to exit.",!
|
|---|
| 41 | R !!,"Press RETURN to Continue, '^' to Exit: ",X:15 G:X="^" EXIT
|
|---|
| 42 | S IOF=SAVIOF D ^%rde S IOF=LFIOF Q
|
|---|
| 43 | EXIT W ! K AAQMSG,I,J,N,X Q
|
|---|
