XUTMUSE1.m

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

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUTMUSE1   873     printed  Apr 09, 2024@21:17:25                                                                                                                                                                                                     Page 2

XUTMUSE1  ;SEA/RDS - TM; Option XUTMUSER, Print ;4/20/95  11:34

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

 +2       ;

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       ;