21 lines
1.1 KiB
Mathematica
21 lines
1.1 KiB
Mathematica
LRMITS ;SLC/STAFF - MICRO TREND ;10/14/92 15:59
|
|
;;5.2;LAB SERVICE;**96**;Sep 27, 1994
|
|
; from option LRMITS
|
|
;
|
|
S LREND=0 D ^LRMITSE I LREND D CLEANUP Q
|
|
; device
|
|
DEVICE S %ZIS="MNQ",%ZIS("B")="",IOP="Q" D ^%ZIS I POP D CLEANUP Q
|
|
; default time
|
|
S %DT="AET",%DT("A")="TIME TO RUN: T+1@1AM// " D ^%DT I X[U!$D(DTOUT) D CLEANUP Q
|
|
S:Y>0 ZTDTH=Y I Y'>0 S %DT="T",X="T+1@1AM" D ^%DT S ZTDTH=Y
|
|
; it's possible to display this report to the home device
|
|
; for device enter 0, for queueing enter NO, then return at device and time prompts (time is ignored)
|
|
I '$D(IO("Q"))&(IO'=IO(0)) W !!,"Please queue this report if not viewing on your screen",!! H 2 G DEVICE
|
|
I '$D(IO("Q")) K ZTDTH D DQ^LRMITSP,CLEANUP Q
|
|
; queue report
|
|
S ZTIO=ION,ZTDESC="MICRO TREND REPORT",ZTRTN="DQ^LRMITSP",ZTSAVE("LR*")=""
|
|
D ^%ZTLOAD W !,$S($D(ZTSK):"Request queued",1:"Request canceled") D HOME^%ZIS K ZTSK
|
|
CLEANUP ; from LRMITSP
|
|
W !! W:$E(IOST)="P" @IOF D ^%ZISC K ^TMP($J),%DT,DIR,DIRUT,DTOUT,DUOUT,LRAP,LRATS,LRDETAIL,LREND,LRFBEG,LRFEND,LRLOS,LRMERGE,LRM,LROTYPE,LRSORG,LRTBEG,LRTEND,LRTSAL,LRUNK,X,Y,LRAINT,LRNODE,LRSORT
|
|
Q
|