|
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 | |
|---|
| 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.
