source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMUSE1.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 856 bytes
Line 
1XUTMUSE1 ;SEA/RDS - TM; Option XUTMUSER, Print ;4/20/95 11:34
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4DEVICE ;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 ;
7PRINT ;Print User's Task
8 D EN^XUTMTP(ZTSK),^%ZISC:'$D(ZTQUEUED) Q
9 ;
10QUEUE ;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 ;
14TASK ;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.