| 1 | PRCHUTL1 ;WISC/AKS-UTILITY ROUTINES FOR SUPPLY SYSTEM ;1/26/93 12:47
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ENRDAT ; ROUTINE ALLOWING ENTRY OF A DATE FOR PRINTING, ETC. (DEFAULTS TO NOW)
|
|---|
| 6 | W !!,"Enter date (and time, if not NOW) to "_M S %DT="AETR",%DT("A")="DATE: NOW//" D ^%DT K %DT
|
|---|
| 7 | S:X="" X="NOW" S:X="NOW" Y=$H,PRCHPDAT=$H S:Y=-1 X="^" Q:(X="NOW")!(X["^")
|
|---|
| 8 | I +$P(Y,".",2)'>0 W $C(7),!,"You must enter the time as well as the date to print the report" G ENRDAT
|
|---|
| 9 | S PRCHPDAT=Y
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | SELDEV ; SELECT DEVICE FOR QUED PRINTING
|
|---|
| 13 | D ENK31 W ! K %ZIS,IOP S %ZIS="Q",IOP="Q",%ZIS("B")="" D ^%ZIS Q:POP
|
|---|
| 14 | S IOP=ION_";"_IOST_";"_IOM_";"_IOSL I IO=IO(0) D ^%ZIS U IO D @ZTRTN D ^%ZISC
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ENK3 ; KILL VARIABLES USED BY UNIVERSAL TASK MANAGER AND CLOSE PRINTER
|
|---|
| 18 | D ^%ZISC K ZTRTN
|
|---|
| 19 | ENK31 K ZTUCI,ZTDTH,ZTSAVE,ZTDESC,ZTIO,ZTSK,ZTSKT,ZTCPU,ZTI,ZTJOB,ZTM1,ZTM2,ZTMAST,ZTMGR,ZTNLG,ZTOS,ZTPD,ZTPO,ZTPROD,ZTPT,ZTRET,ZTSIZ,ZTU1,ZTVOL,ZTXMB
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | SQUE(RTN) ;PRINT MESSAGE DENOTING QUEUED JOB HAS BEEN REQUESTED TO STOP
|
|---|
| 23 | ;RTN is the routine name that called this line tag
|
|---|
| 24 | S:'$D(RTN)!(RTN="") RTN="NOT GIVEN"
|
|---|
| 25 | Q "*** USER-REQUESTED STOP *** ROUTINE - "_RTN
|
|---|
