XUTMT ;SEA/RDS - TaskMan: ToolKit, Entry ;9/14/94 10:09
;;8.0;KERNEL;;Jul 10, 1995
BRANCH ;
;Select Module Based On XUTMT(0)
K ZTSK S ZTSK=""
I XUTMT(0)="P" D EN^XUTMTP(XUTMT) Q
I XUTMT(0)="PD" G ^XUTMTPD
I XUTMT(0)="PU" G ^XUTMTPU
I XUTMT(0)="AL" G ^XUTMTAL
I XUTMT(0)["A" G ^XUTMTA
I XUTMT(0)="D" G ^XUTMTD
I XUTMT(0)="DL" G ^XUTMTDL
I XUTMT(0)="L" G ^XUTMTL
B1 ;
I XUTMT(0)="LD" G ^XUTMTLD
I XUTMT(0)="LU" G ^XUTMTLU
I XUTMT(0)="R1" D EN^XUTMTP(XUTMT,"",1)
I XUTMT(0)="R2" G ^XUTMTR2
I XUTMT(0)="R3" G ^XUTMTR3
I XUTMT(0)="R4" G ^XUTMTR4
I XUTMT(0)="S" G ^XUTMTS
I XUTMT(0)="U" G ^XUTMTU
I XUTMT(0)="UL" G ^XUTMTUL
B2 ;
W !!,$C(7),$C(7),"Tool ",XUTMT(0)," is not supported by the tool kit.",!!
Q
;
XQ ;
;MenuMan Entry Point For Unscheduling Server Requests
S XUTMT=ZTSK,ZTNAME="MenuMan" X ^%ZOSF("UCI") S XUTMUCI=Y G ^XUTMTU Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMT 890 printed Nov 22, 2024@17:23:48 Page 2
XUTMT ;SEA/RDS - TaskMan: ToolKit, Entry ;9/14/94 10:09
+1 ;;8.0;KERNEL;;Jul 10, 1995
BRANCH ;
+1 ;Select Module Based On XUTMT(0)
+2 KILL ZTSK
SET ZTSK=""
+3 IF XUTMT(0)="P"
DO EN^XUTMTP(XUTMT)
QUIT
+4 IF XUTMT(0)="PD"
GOTO ^XUTMTPD
+5 IF XUTMT(0)="PU"
GOTO ^XUTMTPU
+6 IF XUTMT(0)="AL"
GOTO ^XUTMTAL
+7 IF XUTMT(0)["A"
GOTO ^XUTMTA
+8 IF XUTMT(0)="D"
GOTO ^XUTMTD
+9 IF XUTMT(0)="DL"
GOTO ^XUTMTDL
+10 IF XUTMT(0)="L"
GOTO ^XUTMTL
B1 ;
+1 IF XUTMT(0)="LD"
GOTO ^XUTMTLD
+2 IF XUTMT(0)="LU"
GOTO ^XUTMTLU
+3 IF XUTMT(0)="R1"
DO EN^XUTMTP(XUTMT,"",1)
+4 IF XUTMT(0)="R2"
GOTO ^XUTMTR2
+5 IF XUTMT(0)="R3"
GOTO ^XUTMTR3
+6 IF XUTMT(0)="R4"
GOTO ^XUTMTR4
+7 IF XUTMT(0)="S"
GOTO ^XUTMTS
+8 IF XUTMT(0)="U"
GOTO ^XUTMTU
+9 IF XUTMT(0)="UL"
GOTO ^XUTMTUL
B2 ;
+1 WRITE !!,$CHAR(7),$CHAR(7),"Tool ",XUTMT(0)," is not supported by the tool kit.",!!
+2 QUIT
+3 ;
XQ ;
+1 ;MenuMan Entry Point For Unscheduling Server Requests
+2 SET XUTMT=ZTSK
SET ZTNAME="MenuMan"
XECUTE ^%ZOSF("UCI")
SET XUTMUCI=Y
GOTO ^XUTMTU
QUIT
+3 ;
