LRRP8 ;DALISC/TNN/J0 - WKLD STATS REPORT BY SHIFT ;8/11/97
;;5.2;LAB SERVICE;**121**;Sep 27, 1994
EN ;*** Entry point and control block ***
S (LREND,LRSTFLG)=0
D ASKCOM^LRCAPMR2
D ASK^LRRP8A
DQ ;
D:'LREND INIT
D:'LREND BUILD^LRRP8B
D:'LREND PRINT^LRRP8C
D CLN
Q
;
INIT ;*** Initialize some variables ***
K ^TMP("LR",$J)
U IO
I LRTO<LRFR S X=LRFR,LRFR=LRTO,LRTO=X
D PRTINIT^LRCAPU
S LRHDR="WORKLOAD STATISTICS BY ACCESSION AREA AND SHIFTS"
S LRHDR2=LRDTH
Q
;
CLN ;*** Clean up ***
D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1
K ^TMP("LR",$J)
K LRCDT,LRFR,LRFRV,LRFRD,LRTO,LRTOV,LRTOD,LRDTH,LRDSH,LRSTRT,LRSTOP,LRUC
K LRCAPS,LRCC,LRCAPNAM,LRCAPNUM,LRCAPFLG,LRCAPIFN,LRA,LRAA,LRCCNT,LRANAM
K LRREC,LRTIM,LRRPT,LREND,LRST,LRSTFLG,LRNSFT,LRSHFT,LRIN,LRPCT,LRSCNT
K LRACNT,LRGCNT,LRCONT,LRSQRM,LRMNODE,LRGSTND,LRGQC,LRGRPT,LRGMANL,LRDR
K LRDATE,LRCOM,LRTCOM,LRCOMM,LRCM
K DIC,DIR,X,Y,%ZIS,POP,ZTRTN,ZTDESC,ZTSAVE,ZTSK,DTOUT,DUOUT,DIRUT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRRP8 1000 printed Dec 13, 2024@02:20:04 Page 2
LRRP8 ;DALISC/TNN/J0 - WKLD STATS REPORT BY SHIFT ;8/11/97
+1 ;;5.2;LAB SERVICE;**121**;Sep 27, 1994
EN ;*** Entry point and control block ***
+1 SET (LREND,LRSTFLG)=0
+2 DO ASKCOM^LRCAPMR2
+3 DO ASK^LRRP8A
DQ ;
+1 if 'LREND
DO INIT
+2 if 'LREND
DO BUILD^LRRP8B
+3 if 'LREND
DO PRINT^LRRP8C
+4 DO CLN
+5 QUIT
+6 ;
INIT ;*** Initialize some variables ***
+1 KILL ^TMP("LR",$JOB)
+2 USE IO
+3 IF LRTO<LRFR
SET X=LRFR
SET LRFR=LRTO
SET LRTO=X
+4 DO PRTINIT^LRCAPU
+5 SET LRHDR="WORKLOAD STATISTICS BY ACCESSION AREA AND SHIFTS"
+6 SET LRHDR2=LRDTH
+7 QUIT
+8 ;
CLN ;*** Clean up ***
+1 DO ^%ZISC
DO PRTCLN^LRCAPU
DO WKLDCLN^LRCAPU
DO CLNMAN^LRCAPMR1
+2 KILL ^TMP("LR",$JOB)
+3 KILL LRCDT,LRFR,LRFRV,LRFRD,LRTO,LRTOV,LRTOD,LRDTH,LRDSH,LRSTRT,LRSTOP,LRUC
+4 KILL LRCAPS,LRCC,LRCAPNAM,LRCAPNUM,LRCAPFLG,LRCAPIFN,LRA,LRAA,LRCCNT,LRANAM
+5 KILL LRREC,LRTIM,LRRPT,LREND,LRST,LRSTFLG,LRNSFT,LRSHFT,LRIN,LRPCT,LRSCNT
+6 KILL LRACNT,LRGCNT,LRCONT,LRSQRM,LRMNODE,LRGSTND,LRGQC,LRGRPT,LRGMANL,LRDR
+7 KILL LRDATE,LRCOM,LRTCOM,LRCOMM,LRCM
+8 KILL DIC,DIR,X,Y,%ZIS,POP,ZTRTN,ZTDESC,ZTSAVE,ZTSK,DTOUT,DUOUT,DIRUT
+9 QUIT
