source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRARCMA.m@ 724

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

initial load of WorldVistAEHR

File size: 1020 bytes
Line 
1LRARCMA ;DALISC/CKA - ARCHIVED WKLD REPORT BY MAJOR SECTION;6/1/95
2 ;;5.2;LAB SERVICE;**59**;Aug 31, 1995
3 ;same as LRCAPMA except archived wkld file
4EN ;
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
14 . E D DQ
15 D CLEAN
16 Q
17DQ ;
18 K ^TMP("LRAR-WL",$J)
19 S (LREND,LRLOOP,LRBLDONE)=0
20 S (LRCGT,LRIGT,LROGT,LRNGT)=0
21 I $D(ZTQUEUED) S ZTREQ="@"
22 I 'LRIN S LRLOOP=1
23 D EN^LRARCMA1
24 D EN^LRARCMA2
25 D:$D(ZTQUEUED) CLEAN
26 Q
27LOAD ;
28 S ZTDESC="WKLD STATS BY MAJ SEC REP"
29 S ZTRTN="DQ^LRARCMA",ZTSAVE("LR*")=""
30 D ^%ZTLOAD
31 Q
32CLEAN ;
33 D ^%ZISC,PRTCLN^LRARCU,WKLDCLN^LRARCU,CLNMAN^LRARCMR1
34 K ^TMP("LRAR-WL",$J)
35 D KILLALL^LRARCU
36 Q
37ERROR W !!,$C(7),"This file does not have an archival activity with the status of archived."
38 W !,"Therefore this file may be incomplete if archiving is still in progress."
39 W !!
40 Q
Note: See TracBrowser for help on using the repository browser.