source: WorldVistAEHR/trunk/r/PATCH_MANAGEMNT-AAQ/AAQMENUR.m@ 975

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1AAQMENUR ;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
4MENU 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_" "
8OPTION 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 ;
14OPT ;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
26AAQRD D ^%RD R !!,"Press RETURN to Continue: ",X:DTIME Q
27AAQDEL D ^%ZTRDEL R !!,"Press RETURN to Continue: ",X:DTIME Q
28AAQZTP1 D ^%ZTP1 R !!,"Press RETURN to Continue: ",X:DTIME Q
29AAQCHK D CHECK^XTSUMBLD R !!,"Press RETURN to Continue: ",X:DTIME Q
30AAQBLD D BUILD^%ZTP1 R !!,"Press RETURN to Continue: ",X:DTIME Q
31AAQVPE 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
35AAQOPM 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
43EXIT W ! K AAQMSG,I,J,N,X Q
Note: See TracBrowser for help on using the repository browser.