Last change
on this file since 1261 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
856 bytes
|
Line | |
---|
1 | XUTMUSE1 ;SEA/RDS - TM; Option XUTMUSER, Print ;4/20/95 11:34
|
---|
2 | ;;8.0;KERNEL;;Jul 10, 1995
|
---|
3 | ;
|
---|
4 | DEVICE ;ACT Subroutine--Allow User To Select Device For Output
|
---|
5 | W ! S %ZIS="Q",%ZIS("A")="On what device do you want your task to be printed? " D ^%ZIS Q:POP G QUEUE:$D(IO("Q")) N %H,ZTD,ZTL,XUTMT,ZTX U IO
|
---|
6 | ;
|
---|
7 | PRINT ;Print User's Task
|
---|
8 | D EN^XUTMTP(ZTSK),^%ZISC:'$D(ZTQUEUED) Q
|
---|
9 | ;
|
---|
10 | QUEUE ;Queue Print Job
|
---|
11 | N ZTDESC,ZTIO,ZTRTN,ZTSAVE S ZTDESC="TaskMan: Print Task # "_ZTSK_" For "_ZTNAME,ZTRTN="TASK^XUTMUSE1",ZTSAVE("XUTMU")=ZTSK,ZTSAVE("ZTNAME")=ZTNAME,ZTSAVE("XUTMUCI")=XUTMUCI K ZTIO N ZTSK,XUTMUCI
|
---|
12 | D ^%ZTLOAD W !!,$S($D(ZTSK)#2:"Printout queued.",1:"Printout not queued.") Q
|
---|
13 | ;
|
---|
14 | TASK ;Code To Startup Queued Print Job
|
---|
15 | S XUTMT=XUTMU,XUTMT(0)="L" D ^XUTMT I ZTSK="" W !!,"Task # ",XUTMU," is no longer defined, and can therefore not be printed." Q
|
---|
16 | G PRINT
|
---|
17 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.