source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMT.m@ 623

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

initial load of WorldVistAEHR

File size: 859 bytes
Line 
1XUTMT ;SEA/RDS - TaskMan: ToolKit, Entry ;9/14/94 10:09
2 ;;8.0;KERNEL;;Jul 10, 1995
3BRANCH ;
4 ;Select Module Based On XUTMT(0)
5 K ZTSK S ZTSK=""
6 I XUTMT(0)="P" D EN^XUTMTP(XUTMT) Q
7 I XUTMT(0)="PD" G ^XUTMTPD
8 I XUTMT(0)="PU" G ^XUTMTPU
9 I XUTMT(0)="AL" G ^XUTMTAL
10 I XUTMT(0)["A" G ^XUTMTA
11 I XUTMT(0)="D" G ^XUTMTD
12 I XUTMT(0)="DL" G ^XUTMTDL
13 I XUTMT(0)="L" G ^XUTMTL
14B1 ;
15 I XUTMT(0)="LD" G ^XUTMTLD
16 I XUTMT(0)="LU" G ^XUTMTLU
17 I XUTMT(0)="R1" D EN^XUTMTP(XUTMT,"",1)
18 I XUTMT(0)="R2" G ^XUTMTR2
19 I XUTMT(0)="R3" G ^XUTMTR3
20 I XUTMT(0)="R4" G ^XUTMTR4
21 I XUTMT(0)="S" G ^XUTMTS
22 I XUTMT(0)="U" G ^XUTMTU
23 I XUTMT(0)="UL" G ^XUTMTUL
24B2 ;
25 W !!,$C(7),$C(7),"Tool ",XUTMT(0)," is not supported by the tool kit.",!!
26 Q
27 ;
28XQ ;
29 ;MenuMan Entry Point For Unscheduling Server Requests
30 S XUTMT=ZTSK,ZTNAME="MenuMan" X ^%ZOSF("UCI") S XUTMUCI=Y G ^XUTMTU Q
31 ;
Note: See TracBrowser for help on using the repository browser.