| 1 | LRMITS ;SLC/STAFF - MICRO TREND ;10/14/92 15:59
|
|---|
| 2 | ;;5.2;LAB SERVICE;**96**;Sep 27, 1994
|
|---|
| 3 | ; from option LRMITS
|
|---|
| 4 | ;
|
|---|
| 5 | S LREND=0 D ^LRMITSE I LREND D CLEANUP Q
|
|---|
| 6 | ; device
|
|---|
| 7 | DEVICE S %ZIS="MNQ",%ZIS("B")="",IOP="Q" D ^%ZIS I POP D CLEANUP Q
|
|---|
| 8 | ; default time
|
|---|
| 9 | S %DT="AET",%DT("A")="TIME TO RUN: T+1@1AM// " D ^%DT I X[U!$D(DTOUT) D CLEANUP Q
|
|---|
| 10 | S:Y>0 ZTDTH=Y I Y'>0 S %DT="T",X="T+1@1AM" D ^%DT S ZTDTH=Y
|
|---|
| 11 | ; it's possible to display this report to the home device
|
|---|
| 12 | ; for device enter 0, for queueing enter NO, then return at device and time prompts (time is ignored)
|
|---|
| 13 | I '$D(IO("Q"))&(IO'=IO(0)) W !!,"Please queue this report if not viewing on your screen",!! H 2 G DEVICE
|
|---|
| 14 | I '$D(IO("Q")) K ZTDTH D DQ^LRMITSP,CLEANUP Q
|
|---|
| 15 | ; queue report
|
|---|
| 16 | S ZTIO=ION,ZTDESC="MICRO TREND REPORT",ZTRTN="DQ^LRMITSP",ZTSAVE("LR*")=""
|
|---|
| 17 | D ^%ZTLOAD W !,$S($D(ZTSK):"Request queued",1:"Request canceled") D HOME^%ZIS K ZTSK
|
|---|
| 18 | CLEANUP ; from LRMITSP
|
|---|
| 19 | 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
|
|---|
| 20 | Q
|
|---|
