| 1 | LRRP8 ;DALISC/TNN/J0 - WKLD STATS REPORT BY SHIFT ;8/11/97
|
|---|
| 2 | ;;5.2;LAB SERVICE;**121**;Sep 27, 1994
|
|---|
| 3 | EN ;*** Entry point and control block ***
|
|---|
| 4 | S (LREND,LRSTFLG)=0
|
|---|
| 5 | D ASKCOM^LRCAPMR2
|
|---|
| 6 | D ASK^LRRP8A
|
|---|
| 7 | DQ ;
|
|---|
| 8 | D:'LREND INIT
|
|---|
| 9 | D:'LREND BUILD^LRRP8B
|
|---|
| 10 | D:'LREND PRINT^LRRP8C
|
|---|
| 11 | D CLN
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | INIT ;*** 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 | ;
|
|---|
| 23 | CLN ;*** 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
|
|---|
