- 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 Feb 18, 2025@23:45:56 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