LRMITS.m

LRMITS ; IHS/DIR/FJE - MICRO TREND 15:59 ; 

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;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

LRMITS    ; IHS/DIR/FJE - MICRO TREND 15:59 ; 

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;**96**;Sep 27, 1994

 +4       ; from option LRMITS

 +5       ;

 +6        SET LREND=0

           DO ^LRMITSE

           IF LREND

               DO CLEANUP

               QUIT 

 +7       ; 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