18 lines
856 B
Mathematica
18 lines
856 B
Mathematica
XUTMUSE1 ;SEA/RDS - TM; Option XUTMUSER, Print ;4/20/95 11:34
|
|
;;8.0;KERNEL;;Jul 10, 1995
|
|
;
|
|
DEVICE ;ACT Subroutine--Allow User To Select Device For Output
|
|
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
|
|
;
|
|
PRINT ;Print User's Task
|
|
D EN^XUTMTP(ZTSK),^%ZISC:'$D(ZTQUEUED) Q
|
|
;
|
|
QUEUE ;Queue Print Job
|
|
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
|
|
D ^%ZTLOAD W !!,$S($D(ZTSK)#2:"Printout queued.",1:"Printout not queued.") Q
|
|
;
|
|
TASK ;Code To Startup Queued Print Job
|
|
S XUTMT=XUTMU,XUTMT(0)="L" D ^XUTMT I ZTSK="" W !!,"Task # ",XUTMU," is no longer defined, and can therefore not be printed." Q
|
|
G PRINT
|
|
;
|