source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRRP8.m@ 792

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

initial load of FOIAVistA 6/30/08 version

File size: 968 bytes
Line 
1LRRP8 ;DALISC/TNN/J0 - WKLD STATS REPORT BY SHIFT ;8/11/97
2 ;;5.2;LAB SERVICE;**121**;Sep 27, 1994
3EN ;*** Entry point and control block ***
4 S (LREND,LRSTFLG)=0
5 D ASKCOM^LRCAPMR2
6 D ASK^LRRP8A
7DQ ;
8 D:'LREND INIT
9 D:'LREND BUILD^LRRP8B
10 D:'LREND PRINT^LRRP8C
11 D CLN
12 Q
13 ;
14INIT ;*** Initialize some variables ***
15 K ^TMP("LR",$J)
16 U IO
17 I LRTO<LRFR S X=LRFR,LRFR=LRTO,LRTO=X
18 D PRTINIT^LRCAPU
19 S LRHDR="WORKLOAD STATISTICS BY ACCESSION AREA AND SHIFTS"
20 S LRHDR2=LRDTH
21 Q
22 ;
23CLN ;*** Clean up ***
24 D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1
25 K ^TMP("LR",$J)
26 K LRCDT,LRFR,LRFRV,LRFRD,LRTO,LRTOV,LRTOD,LRDTH,LRDSH,LRSTRT,LRSTOP,LRUC
27 K LRCAPS,LRCC,LRCAPNAM,LRCAPNUM,LRCAPFLG,LRCAPIFN,LRA,LRAA,LRCCNT,LRANAM
28 K LRREC,LRTIM,LRRPT,LREND,LRST,LRSTFLG,LRNSFT,LRSHFT,LRIN,LRPCT,LRSCNT
29 K LRACNT,LRGCNT,LRCONT,LRSQRM,LRMNODE,LRGSTND,LRGQC,LRGRPT,LRGMANL,LRDR
30 K LRDATE,LRCOM,LRTCOM,LRCOMM,LRCM
31 K DIC,DIR,X,Y,%ZIS,POP,ZTRTN,ZTDESC,ZTSAVE,ZTSK,DTOUT,DUOUT,DIRUT
32 Q
Note: See TracBrowser for help on using the repository browser.