LRRP8.m

LRRP8 ; IHS/DIR/AAB - WKLD STATS REPORT BY SHIFT 8/11/97 ;  [ 07/22/2002  1:50 PM ]

 ;;5.2;LR;**1003,1013**;JUL 15, 2002

 ;;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

LRRP8     ; IHS/DIR/AAB - WKLD STATS REPORT BY SHIFT 8/11/97 ;  [ 07/22/2002  1:50 PM ]

 +1       ;;5.2;LR;**1003,1013**;JUL 15, 2002

 +2       ;;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