40 lines
1.0 KiB
Mathematica
40 lines
1.0 KiB
Mathematica
LRARCML ;DALISC/CKA - ARCHIVED WKLD COST REPORT BY MAJ SCTN; 5/22/95
|
|
;;5.2;LAB SERVICE;**59,322**;Aug 31, 1995
|
|
;same as LRCAPML except archived wkld file
|
|
EN ;
|
|
; GET THE PARAMETERS
|
|
S (LRSUMM,LREND)=0,LRNDFN="UNDEFINED"
|
|
;Check for lab archival activity in archived status
|
|
S LRART=64.1,LRARC=0 S LRARC=$O(^LAB(95.11,"O",2,LRART,LRARC))
|
|
I LRARC="" D ERROR
|
|
D ASKCOM^LRARCMR2
|
|
D ^LRARCMR
|
|
I 'LREND D
|
|
. I IO'=IO(0) D LOAD Q
|
|
. D DQ
|
|
D CLEAN
|
|
Q
|
|
DQ ;
|
|
K ^TMP("LRAR-WL",$J)
|
|
S (LREND,LRLOOP,LRBLDONE)=0
|
|
S:$D(ZTQUEUED) ZTREQ="@" K ZTSK
|
|
I 'LRIN S LRLOOP=1
|
|
D EN^LRARCML1
|
|
D EN^LRARCML2
|
|
D:$D(ZTQUEUED) CLEAN
|
|
Q
|
|
LOAD ;
|
|
S ZTDESC="WKLD STATS BY MAJ SEC REP"
|
|
S ZTRTN="DQ^LRARCML",ZTSAVE("LR*")=""
|
|
D ^%ZTLOAD
|
|
Q
|
|
CLEAN ;
|
|
W !! W:$E(IOST,1,2)="P-" @IOF D ^%ZISC,PRTCLN^LRARCU,WKLDCLN^LRARCU,CLNMAN^LRARCMR1
|
|
K ^TMP("LRAR-WL",$J)
|
|
D KILLALL^LRARCU
|
|
Q
|
|
ERROR W !!,$C(7),"This file does not have an archival activity with the status of archived."
|
|
W !,"Therefore this file may be incomplete if archiving is still in progress."
|
|
W !!
|
|
Q
|