| 1 | LRCAPML ;SLC/AM/DALISC/FHS/J0 - WKLD COST REPORT BY MAJ SCTN; 2/6/91@16:04
|
|---|
| 2 | ;;5.2;LAB SERVICE;**59,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:$D(ZTQUEUED) ZTREQ="@" K ZTSK
|
|---|
| 17 | I 'LRIN S LRLOOP=1
|
|---|
| 18 | D EN^LRCAPML1
|
|---|
| 19 | D EN^LRCAPML2
|
|---|
| 20 | D:$D(ZTQUEUED) CLEAN
|
|---|
| 21 | Q
|
|---|
| 22 | LOAD ;
|
|---|
| 23 | S ZTDESC="WKLD STATS BY MAJ SEC REP"
|
|---|
| 24 | S ZTRTN="DQ^LRCAPML",ZTSAVE("LR*")=""
|
|---|
| 25 | D ^%ZTLOAD
|
|---|
| 26 | Q
|
|---|
| 27 | CLEAN ;
|
|---|
| 28 | W !! W:$E(IOST,1,2)="P-" @IOF D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1
|
|---|
| 29 | K ^TMP("LR-WL",$J)
|
|---|
| 30 | K LRANS,LRCC,LRCDT,LRCTM,LRCW,LRUW,LRWC,LRIGT,LRIGTU,LRQC,LRRPT,LRST
|
|---|
| 31 | K LRTC,LRMA,LRMAN,LRLSS,LRLSSN,LRUC,LRX,LRTSN,LRPAG,LRBLDONE,LRGETIN
|
|---|
| 32 | K LRGT,LRSTD,LRX1,LRX2,LRAGT,LRGTOTS,LRSUMM,LRNDFN,LRAA,LRTYP,LRZTSK
|
|---|
| 33 | K LREND,LRIN,LRINN,LRCDTB,LRCTMB,LRDT1,LRCDTE,LRCTME,LRDT2,LRLOOP,LRLAB
|
|---|
| 34 | K LRGTREC,LRREC,LRMAA,LRLSSA,LRLDIV,LRAPIGT,LRAPIGTU,LRCPIGT,LRCPIGTU
|
|---|
| 35 | K LRFIRST,LRGTU,LRCOM,LRCOMM,LRMNODE,LRSQRM,LRSTU,LRCM
|
|---|
| 36 | K ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTQUEUED,%IO,%ZIS
|
|---|
| 37 | K DTOUT,DUOUT,DIRUT,DIC,DIR,%DT,Y1,Y2,DX,DY,X,Y
|
|---|
| 38 | Q
|
|---|
