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. 
  1. XUTMT ;SEA/RDS - TaskMan: ToolKit, Entry ;9/14/94  10:09
  1.  ;;8.0;KERNEL;;Jul 10, 1995
  1. BRANCH ;
  1.  ;Select Module Based On XUTMT(0)
  1.  K ZTSK S ZTSK=""
  1.  I XUTMT(0)="P" D EN^XUTMTP(XUTMT) Q
  1.  I XUTMT(0)="PD" G ^XUTMTPD
  1.  I XUTMT(0)="PU" G ^XUTMTPU
  1.  I XUTMT(0)="AL" G ^XUTMTAL
  1.  I XUTMT(0)["A" G ^XUTMTA
  1.  I XUTMT(0)="D" G ^XUTMTD
  1.  I XUTMT(0)="DL" G ^XUTMTDL
  1.  I XUTMT(0)="L" G ^XUTMTL
  1. B1 ;
  1.  I XUTMT(0)="LD" G ^XUTMTLD
  1.  I XUTMT(0)="LU" G ^XUTMTLU
  1.  I XUTMT(0)="R1" D EN^XUTMTP(XUTMT,"",1)
  1.  I XUTMT(0)="R2" G ^XUTMTR2
  1.  I XUTMT(0)="R3" G ^XUTMTR3
  1.  I XUTMT(0)="R4" G ^XUTMTR4
  1.  I XUTMT(0)="S" G ^XUTMTS
  1.  I XUTMT(0)="U" G ^XUTMTU
  1.  I XUTMT(0)="UL" G ^XUTMTUL
  1. B2 ;
  1.  W !!,$C(7),$C(7),"Tool ",XUTMT(0)," is not supported by the tool kit.",!!
  1.  Q
  1.  ;
  1. XQ ;
  1.  ;MenuMan Entry Point For Unscheduling Server Requests
  1.  S XUTMT=ZTSK,ZTNAME="MenuMan" X ^%ZOSF("UCI") S XUTMUCI=Y G ^XUTMTU Q
  1.  ;