XUTMUSE1.m

XUTMUSE1 ;SEA/RDS - TM; Option XUTMUSER, Print ;4/20/95  11:34 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

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

 ;

XUTMUSE1  ;SEA/RDS - TM; Option XUTMUSER, Print ;4/20/95  11:34 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

 +3       ;

DEVICE    ;ACT Subroutine--Allow User To Select Device For Output

 +1        WRITE !

           SET %ZIS="Q"

           SET %ZIS("A")="On what device do you want your task to be printed? "

           DO ^%ZIS

           IF POP

               QUIT 

           IF $DATA(IO("Q"))

               GOTO QUEUE

           NEW %H,ZTD,ZTL,XUTMT,ZTX

           USE IO

 +2       ;

PRINT     ;Print User's Task

 +1        DO EN^XUTMTP(ZTSK)

           IF '$DATA(ZTQUEUED)

               DO ^%ZISC

           QUIT 

 +2       ;

QUEUE     ;Queue Print Job

 +1        NEW ZTDESC,ZTIO,ZTRTN,ZTSAVE

           SET ZTDESC="TaskMan:  Print Task # "_ZTSK_" For "_ZTNAME

           SET ZTRTN="TASK^XUTMUSE1"

           SET ZTSAVE("XUTMU")=ZTSK

           SET ZTSAVE("ZTNAME")=ZTNAME

           SET ZTSAVE("XUTMUCI")=XUTMUCI

           KILL ZTIO

           NEW ZTSK,XUTMUCI

 +2        DO ^%ZTLOAD

           WRITE !!,$SELECT($DATA(ZTSK)#2:"Printout queued.",1:"Printout not queued.")

           QUIT 

 +3       ;

TASK      ;Code To Startup Queued Print Job

 +1        SET XUTMT=XUTMU

           SET XUTMT(0)="L"

           DO ^XUTMT

           IF ZTSK=""

               WRITE !!,"Task # ",XUTMU," is no longer defined, and can therefore not be printed."

               QUIT 

 +2        GOTO PRINT

 +3       ;