Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUTMT

XUTMT.m

Go to the documentation of this file. 
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

 ;