| 1 | AAQMENUT ;FGO/JHS; Programmer Mode TaskMan Menu ;03-06-98 [2/25/02 4:34am]
|
|---|
| 2 | ;;1.2;AAQ LOCAL;;Mar 6, 1998;For Kernel V8.0 and Cache/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 TaskMan 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),!! W ! D @$P(X,";",2) H AAQH
|
|---|
| 11 | S:SAVIOF'=LFIOF IOF=LFIOF
|
|---|
| 12 | G MENU
|
|---|
| 13 | ;
|
|---|
| 14 | OPT ;routine to execute;description
|
|---|
| 15 | ;^ZTMON;Monitor TaskMan
|
|---|
| 16 | ;DEV^AAQXUTMQ;List Tasks Waiting on Devices (DEV^AAQXUTMQ)
|
|---|
| 17 | ;WAIT^ZTMKU;Place TaskMan in a WAIT state
|
|---|
| 18 | ;RUN^ZTMKU;Remove TaskMan from WAIT state
|
|---|
| 19 | ;STOP^ZTMKU;Stop Task Manager
|
|---|
| 20 | ;RESTART^ZTMB;Restart Task Manager
|
|---|
| 21 | ;$END
|
|---|
| 22 | EXIT W ! K AAQMSG,I,J,N,X,ZTT Q
|
|---|
