| 1 | LRCAPMA ;SLC/AM/DALISC/FHS/J0 - WKLD REPORT BY MAJOR SECTION; 2/6/91@16:04
|
|---|
| 2 | ;;5.2;LAB SERVICE;**322**;Sep 27, 1994
|
|---|
| 3 | EN ;
|
|---|
| 4 | ; GET THE PARAMETERS
|
|---|
| 5 | S (LRSUMM,LREND)=0,LRNDFN="UNDEFINED"
|
|---|
| 6 | D ASKCOM^LRCAPMR2
|
|---|
| 7 | D ^LRCAPMR
|
|---|
| 8 | I 'LREND D
|
|---|
| 9 | . I IO'=IO(0) D LOAD Q
|
|---|
| 10 | . D DQ
|
|---|
| 11 | D CLEAN
|
|---|
| 12 | Q
|
|---|
| 13 | DQ ;
|
|---|
| 14 | K ^TMP("LR-WL",$J)
|
|---|
| 15 | S (LREND,LRLOOP,LRBLDONE)=0
|
|---|
| 16 | S (LRCGT,LRIGT,LROGT,LRNGT)=0
|
|---|
| 17 | I $D(ZTQUEUED) S ZTREQ="@"
|
|---|
| 18 | I 'LRIN S LRLOOP=1
|
|---|
| 19 | D EN^LRCAPMA1
|
|---|
| 20 | D EN^LRCAPMA2
|
|---|
| 21 | D:$D(ZTQUEUED) CLEAN
|
|---|
| 22 | Q
|
|---|
| 23 | LOAD ;
|
|---|
| 24 | S ZTDESC="WKLD STATS BY MAJ SEC REP"
|
|---|
| 25 | S ZTRTN="DQ^LRCAPMA",ZTSAVE("LR*")=""
|
|---|
| 26 | D ^%ZTLOAD
|
|---|
| 27 | Q
|
|---|
| 28 | CLEAN ;
|
|---|
| 29 | D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1
|
|---|
| 30 | K ^TMP("LR-WL",$J)
|
|---|
| 31 | K LRANS,LRCC,LRCDT,LRCTM,LRCW,LRCGT,LRIGT,LROGT,LRNGT,LRQC,LRRPT,LRST
|
|---|
| 32 | K LRTC,LRMA,LRMAN,LRLSS,LRLSSN,LRUC,LRX,LRTSN,LRPAG,LRBLDONE,LRGETIN
|
|---|
| 33 | K LRGT,LRSTD,LRX1,LRX2,LRAGT,LRGTOTS,LRSUMM,LRNDFN,LRAA,LRTYP,LRZTSK
|
|---|
| 34 | K LREND,LRIN,LRINN,LRCDTB,LRCTMB,LRDT1,LRCDTE,LRCTME,LRDT2,LRLOOP,LRLAB
|
|---|
| 35 | K LRGTREC,LRREC,LRMAA,LRLSSA,LRLDIV,LRAPICGT,LRAPIIGT,LRAPINGT,LRAPIOGT
|
|---|
| 36 | K LRCPICGT,LRCPIIGT,LRCPINGT,LRCPIOGT,LRIAGT,LRICGT,LRIIGT,LRINGT,LRIOGT
|
|---|
| 37 | K LRCOM,LRCOMM,LRMNODE,LRSQRM,LRCM
|
|---|
| 38 | K ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTQUEUED,%IO,%ZIS
|
|---|
| 39 | K DTOUT,DUOUT,DIRUT,DIC,DIR,%DT,Y1,Y2,DX,DY,X,Y
|
|---|
| 40 | Q
|
|---|
