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

LRRP8.m

Go to the documentation of this file.
  1. LRRP8 ;DALISC/TNN/J0 - WKLD STATS REPORT BY SHIFT ;8/11/97
  1. ;;5.2;LAB SERVICE;**121**;Sep 27, 1994
  1. EN ;*** Entry point and control block ***
  1. S (LREND,LRSTFLG)=0
  1. D ASKCOM^LRCAPMR2
  1. D ASK^LRRP8A
  1. DQ ;
  1. D:'LREND INIT
  1. D:'LREND BUILD^LRRP8B
  1. D:'LREND PRINT^LRRP8C
  1. D CLN
  1. Q
  1. ;
  1. INIT ;*** Initialize some variables ***
  1. K ^TMP("LR",$J)
  1. U IO
  1. I LRTO<LRFR S X=LRFR,LRFR=LRTO,LRTO=X
  1. D PRTINIT^LRCAPU
  1. S LRHDR="WORKLOAD STATISTICS BY ACCESSION AREA AND SHIFTS"
  1. S LRHDR2=LRDTH
  1. Q
  1. ;
  1. CLN ;*** Clean up ***
  1. D ^%ZISC,PRTCLN^LRCAPU,WKLDCLN^LRCAPU,CLNMAN^LRCAPMR1
  1. K ^TMP("LR",$J)
  1. K LRCDT,LRFR,LRFRV,LRFRD,LRTO,LRTOV,LRTOD,LRDTH,LRDSH,LRSTRT,LRSTOP,LRUC
  1. K LRCAPS,LRCC,LRCAPNAM,LRCAPNUM,LRCAPFLG,LRCAPIFN,LRA,LRAA,LRCCNT,LRANAM
  1. K LRREC,LRTIM,LRRPT,LREND,LRST,LRSTFLG,LRNSFT,LRSHFT,LRIN,LRPCT,LRSCNT
  1. K LRACNT,LRGCNT,LRCONT,LRSQRM,LRMNODE,LRGSTND,LRGQC,LRGRPT,LRGMANL,LRDR
  1. K LRDATE,LRCOM,LRTCOM,LRCOMM,LRCM
  1. K DIC,DIR,X,Y,%ZIS,POP,ZTRTN,ZTDESC,ZTSAVE,ZTSK,DTOUT,DUOUT,DIRUT
  1. Q