|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
856 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
