source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRCAPMR.m@ 623

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1LRCAPMR ;SLC/AM/DALISC/FHS/J0 - SETUP WORKLOAD REPORT PARAMETERS;7-MAR-1991 14:58:24.12
2 ;;5.2;LAB SERVICE;**201**;Sep 27, 1994
3EN ;called by LRCAPML,LRCAPTS,LRCAPMA
4PARMS ; SET PARAMATERS
5 D GETINST
6 D:'LREND BDT
7 D:'LREND EDT
8 D:'LREND GETAA
9 D:'LREND SUMQ
10 D:'LREND DEVICE
11 Q
12GETINST R !,"SELECT ALL INSTITUTIONS? YES// ",LRIN:DTIME
13 I '$T!(LRIN["^") S LREND=1 Q
14 I LRIN["?" W !,"ENTER YES OR NO, Y OR N" G GETINST
15 I LRIN=""!(LRIN="Y")!(LRIN="YES") S LRIN=0,LRINN="" Q
16 S LRIN=$S(+DUZ(2):+DUZ(2),+$P($G(^XMB(1,1,"XUS")),U,17):+$P(^("XUS"),U,17),1:0)
17 D INS
18 Q
19INS ;
20 K DIC S DIC="^LRO(64.1,",DIC(0)="AEQM" S:LRIN DIC("B")=LRIN
21 D ^DIC I Y<0 S LREND=1 Q
22 S LRIN=+Y,LRINN=$P(Y,"^",2)
23 Q
24BDT ;
25 K %DT,DTOUT,DUOUT
26 S %DT="AESX",%DT("A")="BEGINNING DATE/TIME: ",%DT("B")="T-31"
27 D ^%DT I Y=-1 S LREND=1 Q
28 S LRCDTB=$P(Y,".")
29 S LRCTMB=($S(+$P(Y,".",2):"."_$P(Y,".",2),1:0.0001)-.00001)
30 S Y1=Y,Y2=1,LRDT1=$TR($$FMTE^XLFDT(Y1,"1M"),"@"," ")
31 Q
32EDT ;
33 K %DT,DTOUT,DUOUT
34 S %DT="AESX",%DT("A")="ENDING DATE/TIME: ",%DT("B")="T"
35 D ^%DT I Y=-1 S LREND=1 Q
36 S LRCDTE=$P(Y,"."),LRCTME=$S(+$P(Y,".",2):"."_$P(Y,".",2)*10000,1:2400)
37 S Y1=Y,LRDT2=$TR($$FMTE^XLFDT(Y1,"1M"),"@"," ") K Y1,Y2
38 Q
39GETAA S LRAA=0 W !
40 K DIR,X,Y S DIR(0)="S^Y:YES;N:NO",DIR("B")="NO"
41 S DIR("A")="Do you want to select accession areas (YES or NO) "
42 S DIR("?")="Enter 'YES' to limit report to one or more accession areas."
43 D ^DIR
44 Q:Y="N"
45 I ($D(DTOUT))!($D(DUOUT)) S LREND=1 Q
46 K DIC S DIC=68,DIC(0)="AEMQZ"
47 F D ^DIC Q:Y=-1 D
48 .S LRAA=+Y,LRAA(+Y)=$P(Y(0),U,11)
49 I ($D(DTOUT))!($D(DUOUT)) S LREND=1 Q
50 Q
51DEVICE ;
52 K %ZIS,POP S %ZIS="QN" D ^%ZIS
53 I POP S LREND=1
54 Q
55SUMQ ;
56 R !!,"SUMMARY REPORT ONLY? NO//",LRSUMM:DTIME
57 I '$T!(LRSUMM="^") S LREND=1 Q
58 I LRSUMM["?" W !,"Do you want only the summary? YES or NO.",! G SUMQ
59 S LRSUMM=$S($E(LRSUMM,1)="Y"!(LRSUMM="YES")!($E(LRSUMM,1)="y")!(LRSUMM="yes"):1,1:0) W !
60 Q
Note: See TracBrowser for help on using the repository browser.