LRCAPMA.m

LRCAPMA ;SLC/AM/DALISC/FHS/J0  -  WKLD REPORT BY MAJOR SECTION; 2/6/91@16:04

 ;;5.2;LAB SERVICE;**322**;Sep 27, 1994

EN ;

 ; GET THE PARAMETERS

 S (LRSUMM,LREND)=0,LRNDFN="UNDEFINED"

 D ASKCOM^LRCAPMR2

 D ^LRCAPMR

 I 'LREND D

 . I IO'=IO(0) D LOAD Q

 . D DQ

 D CLEAN

 Q

DQ ;

 K ^TMP("LR-WL",$J)

 S (LREND,LRLOOP,LRBLDONE)=0

 S (LRCGT,LRIGT,LROGT,LRNGT)=0

 I $D(ZTQUEUED) S ZTREQ="@"

 I 'LRIN S LRLOOP=1

 D EN^LRCAPMA1

 D EN^LRCAPMA2

 D:$D(ZTQUEUED) CLEAN

 Q

LOAD ;

 S ZTDESC="WKLD STATS BY MAJ SEC REP"

 S ZTRTN="DQ^LRCAPMA",ZTSAVE("LR*")=""

 D ^%ZTLOAD

 Q

CLEAN ;

 D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1

 K ^TMP("LR-WL",$J)

 K LRANS,LRCC,LRCDT,LRCTM,LRCW,LRCGT,LRIGT,LROGT,LRNGT,LRQC,LRRPT,LRST

 K LRTC,LRMA,LRMAN,LRLSS,LRLSSN,LRUC,LRX,LRTSN,LRPAG,LRBLDONE,LRGETIN

 K LRGT,LRSTD,LRX1,LRX2,LRAGT,LRGTOTS,LRSUMM,LRNDFN,LRAA,LRTYP,LRZTSK

 K LREND,LRIN,LRINN,LRCDTB,LRCTMB,LRDT1,LRCDTE,LRCTME,LRDT2,LRLOOP,LRLAB

 K LRGTREC,LRREC,LRMAA,LRLSSA,LRLDIV,LRAPICGT,LRAPIIGT,LRAPINGT,LRAPIOGT

 K LRCPICGT,LRCPIIGT,LRCPINGT,LRCPIOGT,LRIAGT,LRICGT,LRIIGT,LRINGT,LRIOGT

 K LRCOM,LRCOMM,LRMNODE,LRSQRM,LRCM

 K ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTQUEUED,%IO,%ZIS

 K DTOUT,DUOUT,DIRUT,DIC,DIR,%DT,Y1,Y2,DX,DY,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRCAPMA   1250     printed  Feb 18, 2025@23:38:52                                                                                                                                                                                                     Page 2

LRCAPMA   ;SLC/AM/DALISC/FHS/J0  -  WKLD REPORT BY MAJOR SECTION; 2/6/91@16:04

 +1       ;;5.2;LAB SERVICE;**322**;Sep 27, 1994

EN        ;

 +1       ; GET THE PARAMETERS

 +2        SET (LRSUMM,LREND)=0

           SET LRNDFN="UNDEFINED"

 +3        DO ASKCOM^LRCAPMR2

 +4        DO ^LRCAPMR

 +5        IF 'LREND

               Begin DoDot:1

 +6                IF IO'=IO(0)

                       DO LOAD

                       QUIT 

 +7                DO DQ

               End DoDot:1

 +8        DO CLEAN

 +9        QUIT 

DQ        ;

 +1        KILL ^TMP("LR-WL",$JOB)

 +2        SET (LREND,LRLOOP,LRBLDONE)=0

 +3        SET (LRCGT,LRIGT,LROGT,LRNGT)=0

 +4        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +5        IF 'LRIN

               SET LRLOOP=1

 +6        DO EN^LRCAPMA1

 +7        DO EN^LRCAPMA2

 +8        if $DATA(ZTQUEUED)

               DO CLEAN

 +9        QUIT 

LOAD      ;

 +1        SET ZTDESC="WKLD STATS BY MAJ SEC REP"

 +2        SET ZTRTN="DQ^LRCAPMA"

           SET ZTSAVE("LR*")=""

 +3        DO ^%ZTLOAD

 +4        QUIT 

CLEAN     ;

 +1        DO ^%ZISC

           DO PRTCLN^LRCAPU

           DO WKLDCLN^LRCAPU

           DO CLNMAN^LRCAPMR1

 +2        KILL ^TMP("LR-WL",$JOB)

 +3        KILL LRANS,LRCC,LRCDT,LRCTM,LRCW,LRCGT,LRIGT,LROGT,LRNGT,LRQC,LRRPT,LRST

 +4        KILL LRTC,LRMA,LRMAN,LRLSS,LRLSSN,LRUC,LRX,LRTSN,LRPAG,LRBLDONE,LRGETIN

 +5        KILL LRGT,LRSTD,LRX1,LRX2,LRAGT,LRGTOTS,LRSUMM,LRNDFN,LRAA,LRTYP,LRZTSK

 +6        KILL LREND,LRIN,LRINN,LRCDTB,LRCTMB,LRDT1,LRCDTE,LRCTME,LRDT2,LRLOOP,LRLAB

 +7        KILL LRGTREC,LRREC,LRMAA,LRLSSA,LRLDIV,LRAPICGT,LRAPIIGT,LRAPINGT,LRAPIOGT

 +8        KILL LRCPICGT,LRCPIIGT,LRCPINGT,LRCPIOGT,LRIAGT,LRICGT,LRIIGT,LRINGT,LRIOGT

 +9        KILL LRCOM,LRCOMM,LRMNODE,LRSQRM,LRCM

 +10       KILL ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTQUEUED,%IO,%ZIS

 +11       KILL DTOUT,DUOUT,DIRUT,DIC,DIR,%DT,Y1,Y2,DX,DY,X,Y

 +12       QUIT