| [613] | 1 | LRRP7 ;DALISC/J0 - MANUAL WKLD STATS REPORT ;8/11/97
|
|---|
| 2 | ;;5.2;LAB SERVICE;**1,63,121**;Sep 27, 1994
|
|---|
| 3 | EN ;*** Entry point and control block ***
|
|---|
| 4 | S LREND=0
|
|---|
| 5 | D ASK
|
|---|
| 6 | DQ ;
|
|---|
| 7 | D:'LREND INIT
|
|---|
| 8 | D:'LREND BUILD
|
|---|
| 9 | D:'LREND PRNTMAN^LRCAPMR1
|
|---|
| 10 | D CLN
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | INIT ;*** Initialize some variables ***
|
|---|
| 14 | K ^TMP("LR",$J)
|
|---|
| 15 | U IO
|
|---|
| 16 | W:$E(IOST,1,2)="C-" @IOF
|
|---|
| 17 | D PRTINIT^LRCAPU
|
|---|
| 18 | S LRHDR="WORKLOAD STATISTICS BY ACCESSION AREA AND SHIFTS"
|
|---|
| 19 | S LRHDR2=LRDTH
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | CLN ;*** Clean up ***
|
|---|
| 23 | D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1
|
|---|
| 24 | K ^TMP("LR",$J)
|
|---|
| 25 | K LRCDT,LRFR,LRFRV,LRFRD,LRTO,LRTOV,LRTOD,LRDTH,LRDSH,LRSTRT,LRSTOP,LRUC
|
|---|
| 26 | K LRCAPS,LRCC,LRCAPNAM,LRCAPNUM,LRCAPFLG,LRCAPIFN,LRA,LRAA,LRCCNT,LRANAM
|
|---|
| 27 | K LRREC,LRTIM,LRRPT,LREND,LRST,LRSTFLG,LRNSFT,LRSHFT,LRIN,LRPCT,LRSCNT
|
|---|
| 28 | K LRACNT,LRGCNT,LRCONT,LRSQRM,LRMNODE,LRGSTND,LRGQC,LRGRPT,LRGMANL,LRDR
|
|---|
| 29 | K LRDATE,LRCOM,LRTCOM,LRCOMM,LRCM
|
|---|
| 30 | K DIC,DIR,X,Y,%ZIS,POP,ZTRTN,ZTDESC,ZTSAVE,ZTSK,DTOUT,DUOUT,DIRUT
|
|---|
| 31 | Q
|
|---|
| 32 | ASK ;
|
|---|
| 33 | D INST Q:LREND
|
|---|
| 34 | D DATE^LRCAPR1A S:Y=-1 LREND=1
|
|---|
| 35 | D CAPS Q:LREND
|
|---|
| 36 | D DEVICE Q:LREND
|
|---|
| 37 | Q
|
|---|
| 38 | INST ;*** Query for institution ***
|
|---|
| 39 | K DIC
|
|---|
| 40 | W @IOF,!
|
|---|
| 41 | S DIC="^LRO(64.1,",DIC(0)="AQENM" D ^DIC
|
|---|
| 42 | I (+Y<0)!($D(DUOUT))!($D(DTOUT)) S LREND=1 Q
|
|---|
| 43 | S LRIN=+Y
|
|---|
| 44 | Q
|
|---|
| 45 | CAPS ;*** Query for CAP codes ***
|
|---|
| 46 | N I S LRCAPS=0 K DIR,X,Y
|
|---|
| 47 | S DIR(0)="S^Y:YES;N:NO",DIR("B")="NO"
|
|---|
| 48 | S DIR("A")="Do you want to select workload codes (YES or NO) "
|
|---|
| 49 | S DIR("?",1)="Enter 'NO' to include ALL workload codes."
|
|---|
| 50 | S DIR("?")="Enter 'YES' to limit report to one or more workload codes."
|
|---|
| 51 | D ^DIR
|
|---|
| 52 | Q:Y="N"
|
|---|
| 53 | I ($D(DTOUT))!($D(DUOUT)) S LREND=1 Q
|
|---|
| 54 | W !
|
|---|
| 55 | S DIC="^LAM(",DIC(0)="AQENM",DIC("A")="Select WKLD code:"
|
|---|
| 56 | F I=1:1 D ^DIC Q:Y=-1 S LRCAPS(+Y)=$P(Y,U),LRCAPS=I
|
|---|
| 57 | S:($D(DTOUT))!($D(DUOUT)) LREND=1
|
|---|
| 58 | Q
|
|---|
| 59 | DEVICE ;
|
|---|
| 60 | K %ZIS,POP S %ZIS="Q" D ^%ZIS
|
|---|
| 61 | I POP S LREND=1 Q
|
|---|
| 62 | I $D(IO("Q")) D QUE S LREND=1
|
|---|
| 63 | Q
|
|---|
| 64 | QUE ;
|
|---|
| 65 | S ZTSAVE("LR*")="",ZTRTN="DQ^LRRP7",ZTDESC="LR MANUAL WKLD REPORT"
|
|---|
| 66 | D ^%ZTLOAD,^%ZISC
|
|---|
| 67 | W:$G(ZTSK) !!,"TASK ",ZTSK," QUEUED." H 3
|
|---|
| 68 | Q
|
|---|
| 69 | BUILD ;
|
|---|
| 70 | N LRGCN,LRCCN,LRDCN,X
|
|---|
| 71 | S ^TMP("LR",$J,0)=0
|
|---|
| 72 | D INITMAN^LRCAPMR1
|
|---|
| 73 | I LRTO>LRFR S X=LRFR,LRFR=LRTO,LRTO=X
|
|---|
| 74 | S LRCDT=LRTO-1
|
|---|
| 75 | F S LRCDT=$O(^LRO(64.1,LRIN,1,LRCDT)) Q:('LRCDT)!(LRCDT>LRFR) D
|
|---|
| 76 | . S LRCC=0
|
|---|
| 77 | . F S LRCC=$O(^LRO(64.1,LRIN,1,LRCDT,1,LRCC)) Q:'LRCC D
|
|---|
| 78 | . . I LRCAPS Q:'$D(LRCAPS(LRCC))
|
|---|
| 79 | . . S LRCAPNAM=$$WKLDNAME^LRCAPU(LRCC)
|
|---|
| 80 | . . D BMPMANL^LRCAPMR1
|
|---|
| 81 | Q
|
|---|
