source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRCAPMA.m@ 1200

Last change on this file since 1200 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1LRCAPMA ;SLC/AM/DALISC/FHS/J0 - WKLD REPORT BY MAJOR SECTION; 2/6/91@16:04
2 ;;5.2;LAB SERVICE;**322**;Sep 27, 1994
3EN ;
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
13DQ ;
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
23LOAD ;
24 S ZTDESC="WKLD STATS BY MAJ SEC REP"
25 S ZTRTN="DQ^LRCAPMA",ZTSAVE("LR*")=""
26 D ^%ZTLOAD
27 Q
28CLEAN ;
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
Note: See TracBrowser for help on using the repository browser.