Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.0 KB
|
Line | |
---|
1 | LRARCML ;DALISC/CKA - ARCHIVED WKLD COST REPORT BY MAJ SCTN; 5/22/95
|
---|
2 | ;;5.2;LAB SERVICE;**59,322**;Aug 31, 1995
|
---|
3 | ;same as LRCAPML except archived wkld file
|
---|
4 | EN ;
|
---|
5 | ; GET THE PARAMETERS
|
---|
6 | S (LRSUMM,LREND)=0,LRNDFN="UNDEFINED"
|
---|
7 | ;Check for lab archival activity in archived status
|
---|
8 | S LRART=64.1,LRARC=0 S LRARC=$O(^LAB(95.11,"O",2,LRART,LRARC))
|
---|
9 | I LRARC="" D ERROR
|
---|
10 | D ASKCOM^LRARCMR2
|
---|
11 | D ^LRARCMR
|
---|
12 | I 'LREND D
|
---|
13 | . I IO'=IO(0) D LOAD Q
|
---|
14 | . D DQ
|
---|
15 | D CLEAN
|
---|
16 | Q
|
---|
17 | DQ ;
|
---|
18 | K ^TMP("LRAR-WL",$J)
|
---|
19 | S (LREND,LRLOOP,LRBLDONE)=0
|
---|
20 | S:$D(ZTQUEUED) ZTREQ="@" K ZTSK
|
---|
21 | I 'LRIN S LRLOOP=1
|
---|
22 | D EN^LRARCML1
|
---|
23 | D EN^LRARCML2
|
---|
24 | D:$D(ZTQUEUED) CLEAN
|
---|
25 | Q
|
---|
26 | LOAD ;
|
---|
27 | S ZTDESC="WKLD STATS BY MAJ SEC REP"
|
---|
28 | S ZTRTN="DQ^LRARCML",ZTSAVE("LR*")=""
|
---|
29 | D ^%ZTLOAD
|
---|
30 | Q
|
---|
31 | CLEAN ;
|
---|
32 | W !! W:$E(IOST,1,2)="P-" @IOF D ^%ZISC,PRTCLN^LRARCU,WKLDCLN^LRARCU,CLNMAN^LRARCMR1
|
---|
33 | K ^TMP("LRAR-WL",$J)
|
---|
34 | D KILLALL^LRARCU
|
---|
35 | Q
|
---|
36 | ERROR W !!,$C(7),"This file does not have an archival activity with the status of archived."
|
---|
37 | W !,"Therefore this file may be incomplete if archiving is still in progress."
|
---|
38 | W !!
|
---|
39 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.