- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRMITS 1128 printed Feb 18, 2025@23:43:21 Page 2
- LRMITS ;SLC/STAFF - MICRO TREND ;10/14/92 15:59
- +1 ;;5.2;LAB SERVICE;**96**;Sep 27, 1994
- +2 ; from option LRMITS
- +3 ;
- +4 SET LREND=0
- DO ^LRMITSE
- IF LREND
- DO CLEANUP
- QUIT
- +5 ; device
- DEVICE SET %ZIS="MNQ"
- SET %ZIS("B")=""
- SET IOP="Q"
- DO ^%ZIS
- IF POP
- DO CLEANUP
- QUIT
- +1 ; default time
- +2 SET %DT="AET"
- SET %DT("A")="TIME TO RUN: T+1@1AM// "
- DO ^%DT
- IF X[U!$DATA(DTOUT)
- DO CLEANUP
- QUIT
- +3 if Y>0
- SET ZTDTH=Y
- IF Y'>0
- SET %DT="T"
- SET X="T+1@1AM"
- DO ^%DT
- SET ZTDTH=Y
- +4 ; it's possible to display this report to the home device
- +5 ; for device enter 0, for queueing enter NO, then return at device and time prompts (time is ignored)
- +6 IF '$DATA(IO("Q"))&(IO'=IO(0))
- WRITE !!,"Please queue this report if not viewing on your screen",!!
- HANG 2
- GOTO DEVICE
- +7 IF '$DATA(IO("Q"))
- KILL ZTDTH
- DO DQ^LRMITSP
- DO CLEANUP
- QUIT
- +8 ; queue report
- +9 SET ZTIO=ION
- SET ZTDESC="MICRO TREND REPORT"
- SET ZTRTN="DQ^LRMITSP"
- SET ZTSAVE("LR*")=""
- +10 DO ^%ZTLOAD
- WRITE !,$SELECT($DATA(ZTSK):"Request queued",1:"Request canceled")
- DO HOME^%ZIS
- KILL ZTSK
- CLEANUP ; from LRMITSP
- +1 WRITE !!
- if $EXTRACT(IOST)="P"
- WRITE @IOF
- DO ^%ZISC
- KILL ^TMP($JOB),%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
- +2 QUIT
