| 1 | LRARCMR ;DALISC/CKA - SETUP ARCHIVED WORKLOAD REPORT PARAMETERS;5/22/95
|
|---|
| 2 | ;;5.2;LAB SERVICE;**59**;Aug 31, 1995
|
|---|
| 3 | ;same as LRCAPMR except archived wkld file
|
|---|
| 4 | EN ;called by LRARCML,LRARCTS,LRARCMA
|
|---|
| 5 | PARMS ; SET PARAMATERS
|
|---|
| 6 | D GETINST
|
|---|
| 7 | D:'LREND BDT
|
|---|
| 8 | D:'LREND EDT
|
|---|
| 9 | D:'LREND GETAA
|
|---|
| 10 | D:'LREND SUMQ
|
|---|
| 11 | D:'LREND DEVICE
|
|---|
| 12 | Q
|
|---|
| 13 | GETINST R !,"SELECT ALL INSTITUTIONS? YES// ",LRIN:DTIME
|
|---|
| 14 | I '$T!(LRIN["^") S LREND=1 Q
|
|---|
| 15 | I LRIN["?" W !,"ENTER YES OR NO, Y OR N" G GETINST
|
|---|
| 16 | I LRIN=""!(LRIN="Y")!(LRIN="YES") S LRIN=0,LRINN="" Q
|
|---|
| 17 | S LRIN=$S(+DUZ(2):+DUZ(2),+$P($G(^XMB(1,1,"XUS")),U,17):+$P(^("XUS"),U,17),1:0)
|
|---|
| 18 | D INS
|
|---|
| 19 | Q
|
|---|
| 20 | INS ;
|
|---|
| 21 | K DIC S DIC="^LAR(64.19999,",DIC(0)="AEQM" S:LRIN DIC("B")=$P($G(^DIC(4,LRIN,0)),U)
|
|---|
| 22 | D ^DIC I Y<0 S LREND=1 Q
|
|---|
| 23 | S LRIN=+Y,LRINN=$P(Y,"^",2)
|
|---|
| 24 | Q
|
|---|
| 25 | BDT ;
|
|---|
| 26 | K %DT,DTOUT,DUOUT
|
|---|
| 27 | S %DT="AESX",%DT("A")="BEGINNING DATE/TIME: ",%DT("B")="T-31"
|
|---|
| 28 | D ^%DT I Y=-1 S LREND=1 Q
|
|---|
| 29 | S LRCDTB=$P(Y,".")
|
|---|
| 30 | S LRCTMB=($S(+$P(Y,".",2):"."_$P(Y,".",2),1:0.0001)-.00001)
|
|---|
| 31 | S Y1=Y,Y2=1,LRDT1=$$DDDATE^LRAFUNC1(Y1,Y2)
|
|---|
| 32 | Q
|
|---|
| 33 | EDT ;
|
|---|
| 34 | K %DT,DTOUT,DUOUT
|
|---|
| 35 | S %DT="AESX",%DT("A")="ENDING DATE/TIME: ",%DT("B")="T"
|
|---|
| 36 | D ^%DT I Y=-1 S LREND=1 Q
|
|---|
| 37 | S LRCDTE=$P(Y,"."),LRCTME=$S(+$P(Y,".",2):"."_$P(Y,".",2)*10000,1:2400)
|
|---|
| 38 | S Y1=Y,LRDT2=$$DDDATE^LRAFUNC1(Y1,Y2) K Y1,Y2
|
|---|
| 39 | Q
|
|---|
| 40 | GETAA S LRAA=0 W !
|
|---|
| 41 | K DIR,X,Y S DIR(0)="S^Y:YES;N:NO",DIR("B")="NO"
|
|---|
| 42 | S DIR("A")="Do you want to select accession areas (YES or NO) "
|
|---|
| 43 | S DIR("?")="Enter 'YES' to limit report to one or more accession areas."
|
|---|
| 44 | D ^DIR
|
|---|
| 45 | Q:Y="N"
|
|---|
| 46 | I ($D(DTOUT))!($D(DUOUT)) S LREND=1 Q
|
|---|
| 47 | K DIC S DIC=68,DIC(0)="AEMQZ"
|
|---|
| 48 | F D ^DIC Q:Y=-1 D
|
|---|
| 49 | .S LRAA=+Y,LRAA(+Y)=$P(Y(0),U,11),LRAAX(Y(0,0))=Y(0,0)
|
|---|
| 50 | I ($D(DTOUT))!($D(DUOUT)) S LREND=1 Q
|
|---|
| 51 | Q
|
|---|
| 52 | DEVICE ;
|
|---|
| 53 | K %ZIS,POP S %ZIS="QN" D ^%ZIS
|
|---|
| 54 | I POP S LREND=1
|
|---|
| 55 | Q
|
|---|
| 56 | SUMQ ;
|
|---|
| 57 | R !!,"SUMMARY REPORT ONLY? NO//",LRSUMM:DTIME
|
|---|
| 58 | I '$T!(LRSUMM="^") S LREND=1 Q
|
|---|
| 59 | I LRSUMM["?" W !,"Do you want only the summary? YES or NO.",! G SUMQ
|
|---|
| 60 | S LRSUMM=$S($E(LRSUMM,1)="Y"!(LRSUMM="YES")!($E(LRSUMM,1)="y")!(LRSUMM="yes"):1,1:0) W !
|
|---|
| 61 | Q
|
|---|
