|
Last change
on this file since 1574 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1020 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | LRARCMA ;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
|
|---|
| 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
|
|---|
| 14 | . E D DQ
|
|---|
| 15 | D CLEAN
|
|---|
| 16 | Q
|
|---|
| 17 | DQ ;
|
|---|
| 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
|
|---|
| 27 | LOAD ;
|
|---|
| 28 | S ZTDESC="WKLD STATS BY MAJ SEC REP"
|
|---|
| 29 | S ZTRTN="DQ^LRARCMA",ZTSAVE("LR*")=""
|
|---|
| 30 | D ^%ZTLOAD
|
|---|
| 31 | Q
|
|---|
| 32 | CLEAN ;
|
|---|
| 33 | D ^%ZISC,PRTCLN^LRARCU,WKLDCLN^LRARCU,CLNMAN^LRARCMR1
|
|---|
| 34 | K ^TMP("LRAR-WL",$J)
|
|---|
| 35 | D KILLALL^LRARCU
|
|---|
| 36 | Q
|
|---|
| 37 | ERROR 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.
