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

LRCAPML.m

Go to the documentation of this file.
  1. LRCAPML ;SLC/AM/DALISC/FHS/J0 - WKLD COST REPORT BY MAJ SCTN; 2/6/91@16:04
  1. ;;5.2;LAB SERVICE;**59,322**;Sep 27, 1994
  1. EN ;
  1. ; GET THE PARAMETERS
  1. S (LRSUMM,LREND)=0,LRNDFN="UNDEFINED"
  1. D ASKCOM^LRCAPMR2
  1. D ^LRCAPMR
  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("LR-WL",$J)
  1. S (LREND,LRLOOP,LRBLDONE)=0
  1. S:$D(ZTQUEUED) ZTREQ="@" K ZTSK
  1. I 'LRIN S LRLOOP=1
  1. D EN^LRCAPML1
  1. D EN^LRCAPML2
  1. D:$D(ZTQUEUED) CLEAN
  1. Q
  1. LOAD ;
  1. S ZTDESC="WKLD STATS BY MAJ SEC REP"
  1. S ZTRTN="DQ^LRCAPML",ZTSAVE("LR*")=""
  1. D ^%ZTLOAD
  1. Q
  1. CLEAN ;
  1. W !! W:$E(IOST,1,2)="P-" @IOF D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1
  1. K ^TMP("LR-WL",$J)
  1. K LRANS,LRCC,LRCDT,LRCTM,LRCW,LRUW,LRWC,LRIGT,LRIGTU,LRQC,LRRPT,LRST
  1. K LRTC,LRMA,LRMAN,LRLSS,LRLSSN,LRUC,LRX,LRTSN,LRPAG,LRBLDONE,LRGETIN
  1. K LRGT,LRSTD,LRX1,LRX2,LRAGT,LRGTOTS,LRSUMM,LRNDFN,LRAA,LRTYP,LRZTSK
  1. K LREND,LRIN,LRINN,LRCDTB,LRCTMB,LRDT1,LRCDTE,LRCTME,LRDT2,LRLOOP,LRLAB
  1. K LRGTREC,LRREC,LRMAA,LRLSSA,LRLDIV,LRAPIGT,LRAPIGTU,LRCPIGT,LRCPIGTU
  1. K LRFIRST,LRGTU,LRCOM,LRCOMM,LRMNODE,LRSQRM,LRSTU,LRCM
  1. K ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTQUEUED,%IO,%ZIS
  1. K DTOUT,DUOUT,DIRUT,DIC,DIR,%DT,Y1,Y2,DX,DY,X,Y
  1. Q