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 ---[H[J[2J[HLRCAPMA 1250 printed Dec 13, 2024@02:12:59 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
