source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRMITS.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1LRMITS ;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
7DEVICE 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
18CLEANUP ; 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
Note: See TracBrowser for help on using the repository browser.