source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRARCMR.m@ 1604

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1LRARCMR ;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
4EN ;called by LRARCML,LRARCTS,LRARCMA
5PARMS ; 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
13GETINST 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
20INS ;
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
25BDT ;
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
33EDT ;
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
40GETAA 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
52DEVICE ;
53 K %ZIS,POP S %ZIS="QN" D ^%ZIS
54 I POP S LREND=1
55 Q
56SUMQ ;
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
Note: See TracBrowser for help on using the repository browser.