Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
859 bytes
|
Line | |
---|
1 | XUTMT ;SEA/RDS - TaskMan: ToolKit, Entry ;9/14/94 10:09
|
---|
2 | ;;8.0;KERNEL;;Jul 10, 1995
|
---|
3 | BRANCH ;
|
---|
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
|
---|
14 | B1 ;
|
---|
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
|
---|
24 | B2 ;
|
---|
25 | W !!,$C(7),$C(7),"Tool ",XUTMT(0)," is not supported by the tool kit.",!!
|
---|
26 | Q
|
---|
27 | ;
|
---|
28 | XQ ;
|
---|
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.