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

LRRP8B.m

Go to the documentation of this file.
  1. LRRP8B ;DALISC/TNN/J0 - WKLD STATS REPORT BY SHIFT ; 4/9/93
  1. ;;5.2;LAB SERVICE;;Sep 27, 1994
  1. W !!,"ENTRY POINT IS AT EN^LRRP8." H 3 QUIT
  1. ;
  1. BUILD ;
  1. N LRGCN,LRCCN,LRDCN
  1. S ^TMP("LR",$J,0)=0
  1. D INITMAN^LRCAPMR1
  1. D GENCOM^LRCAPMR1,CAPCOM^LRCAPMR1
  1. S LRCDT=LRFR-1
  1. F S LRCDT=$O(^LRO(64.1,LRIN,1,LRCDT)) Q:('LRCDT)!(LRCDT>LRTO) D
  1. . D DATCOM^LRCAPMR1
  1. . S LRCC=0
  1. . F S LRCC=$O(^LRO(64.1,LRIN,1,LRCDT,1,LRCC)) Q:'LRCC D
  1. . . I LRCAPS Q:'$D(LRCAPS(LRCC))
  1. . . S LRCAPNAM=$$WKLDNAME^LRCAPU(LRCC)
  1. . . D SHIFT
  1. . . D BMPMANL^LRCAPMR1
  1. Q
  1. SHIFT ;*** If shift, setup start and stop time ranges for each shift ***
  1. N I2
  1. I LRSTFLG=0 S LRNSFT=1,LRST(1)=LRSTRT_"^"_LRSTOP
  1. F I2=1:1:LRNSFT D
  1. . S LRSTRT=$P(LRST(I2),"^"),LRSTOP=$P(LRST(I2),"^",2)
  1. . S LRTIM=LRSTRT-.000001
  1. . F S LRTIM=$O(^LRO(64.1,LRIN,1,LRCDT,1,LRCC,1,LRTIM)) Q:('LRTIM)!(LRTIM>LRSTOP) D
  1. . . S LRREC=$G(^LRO(64.1,LRIN,1,LRCDT,1,LRCC,1,LRTIM,0)) Q:'$L(LRREC)
  1. . . S LRUC=+$P(LRREC,U,3) S:'LRUC LRUC=1
  1. . . S LRA=$P(LRREC,U,7) Q:'LRA
  1. . . I LRAA Q:'$D(LRAA(LRA))
  1. . . S LRANAM=$P($G(^LRO(68,LRA,0)),U) S:LRANAM="" LRANAM="UNKN - "_LRA
  1. . . S ^(0)=^TMP("LR",$J,0)+LRUC
  1. . . S:'$D(^TMP("LR",$J,"AA",LRA,0)) ^(0)=0 S ^(0)=^(0)+LRUC
  1. . . S:'$D(^TMP("LR",$J,"AA",LRA,"SHFT",I2,0)) ^(0)=0 S ^(0)=^(0)+LRUC
  1. . . S:'$D(^TMP("LR",$J,"AA",LRA,"SHFT",I2,"CCN",LRCAPNAM,0)) ^(0)=0_U_LRCAPNUM S $P(^(0),U)=^(0)+LRUC
  1. . . S:'$D(^TMP("LR",$J,"AA",LRA,"CCN",LRCAPNAM,0)) ^(0)=0_U_LRCAPNUM S $P(^(0),U)=^(0)+LRUC
  1. Q