source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRARCML.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1LRARCML ;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
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 Q
14 . D DQ
15 D CLEAN
16 Q
17DQ ;
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
26LOAD ;
27 S ZTDESC="WKLD STATS BY MAJ SEC REP"
28 S ZTRTN="DQ^LRARCML",ZTSAVE("LR*")=""
29 D ^%ZTLOAD
30 Q
31CLEAN ;
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
36ERROR 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.