Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRARCML

LRARCML.m

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