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

LRARCMR1.m

Go to the documentation of this file.
  1. LRARCMR1 ;DALISC/CKA - ARCHIVED WKLD STATS REPORT - STD/QC/RPT/MAN PRINT ; 5/22/95
  1. ;;5.2;LAB SERVICE;**59**;Aug 31, 1995
  1. ;same as LRCAPMR1 except archived wkld file
  1. ;
  1. INITMAN ;Called by: LRARCMA1,LRARCML1,LRRP8B
  1. K ^TMP("LRAR",$J,"GCOM")
  1. K ^TMP("LRAR",$J,"CCOM")
  1. K ^TMP("LRAR",$J,"DCOM")
  1. K ^TMP("LRAR",$J,"CCN")
  1. S (LRGSTND,LRGQC,LRGRPT,LRGMANL,LRGCN,LRCCN,LRDCN)=0
  1. Q
  1. CLNMAN ;Called by: LRARCMA,LRARCML,LRRP8
  1. K ^TMP("LRAR",$J,"GCOM")
  1. K ^TMP("LRAR",$J,"CCOM")
  1. K ^TMP("LRAR",$J,"DCOM")
  1. K ^TMP("LRAR",$J,"CCN")
  1. K LRGSTND,LRGQC,LRGRPT,LRGMANL,LRGCN,LRCCN,LRDCN
  1. Q
  1. PRNTMAN ;Called from LRARCMA2,LRARCML2,LRRP8C
  1. N LRSKIP,LRSTND,LRQC,LRRPT,LRMANL,LRCAPNUM,LRHDR,LRHDR3,LRCLHDR
  1. S LRHDR="ARCHIVED WORKLOAD INPUT MANUALLY"
  1. S LRHDR3="[Includes all manual archived workload data for date range]"
  1. S LRCLHDR="Workload Procedure Code STANDARD QC REPEAT MANUAL "
  1. D HDR^LRARCU
  1. I '((LRGSTND)!(LRGQC)!(LRGRPT)!(LRGMANL)) D
  1. . W !!," *** NO SQRM DATA FOR THIS REPORT ***",!!
  1. . D:$E(IOST,1,2)="C-" PAUSE^LRARCU Q:LREND W @IOF
  1. . S LRSKIP=1
  1. Q:$G(LRSKIP)!(LREND)
  1. S LRCAPNAM=""
  1. F S LRCAPNAM=$O(^TMP("LRAR",$J,"CCN",LRCAPNAM)) Q:(LRCAPNAM="")!(LREND) D
  1. . S LRSQRM=$G(^TMP("LRAR",$J,"CCN",LRCAPNAM,"SQRM",0))
  1. . S LRSTND=+$P(LRSQRM,U),LRQC=+$P(LRSQRM,U,2),LRRPT=+$P(LRSQRM,U,3)
  1. . S LRMANL=+$P(LRSQRM,U,4),LRCAPNUM=$P(LRSQRM,U,5)
  1. . Q:'(LRSTND+LRQC+LRRPT+LRMANL)
  1. . I $Y+6'<IOSL D NPG^LRARCU Q:LREND
  1. . W $E(LRCAPNAM,1,30),?32,LRCAPNUM,?43,$J(LRSTND,7)
  1. . W ?52,$J(LRQC,7),?61,$J(LRRPT,7),?70,$J(LRMANL,7),!
  1. Q:LREND
  1. W !!,"Grand SQRM Totals: ",?43,$J(LRGSTND,7),?52,$J(LRGQC,7)
  1. W ?61,$J(LRGRPT,7),?70,$J(LRGMANL,7),!
  1. D:$E(IOST,1,2)="C-" PAUSE^LRARCU Q:LREND W @IOF
  1. Q
  1. BMPMANL ;Count WKLD entered manually
  1. ;Called by: LRARCMA1,LRARCML1,LRRP8B
  1. S $P(^TMP("LRAR",$J,"CCN",LRCAPNAM,"SQRM",0),U,5)=LRCAPNUM
  1. S LRMNODE=$G(^LAR(64.19999,LRIN,1,LRCDTN,1,LRCCN,"S"))
  1. ;Grand totals for manual stuff
  1. S LRGSTND=LRGSTND+$P(LRMNODE,U)
  1. S LRGQC=LRGQC+$P(LRMNODE,U,2)
  1. S LRGRPT=LRGRPT+$P(LRMNODE,U,3)
  1. S LRGMANL=LRGMANL+$P(LRMNODE,U,4)
  1. ;WKLD code totals for manual stuff
  1. S LRSQRM=$G(^TMP("LRAR",$J,"CCN",LRCAPNAM,"SQRM",0))
  1. S $P(LRSQRM,U)=$P(LRSQRM,U)+$P(LRMNODE,U)
  1. S $P(LRSQRM,U,2)=$P(LRSQRM,U,2)+$P(LRMNODE,U,2)
  1. S $P(LRSQRM,U,3)=$P(LRSQRM,U,3)+$P(LRMNODE,U,3)
  1. S $P(LRSQRM,U,4)=$P(LRSQRM,U,4)+$P(LRMNODE,U,4)
  1. S ^TMP("LRAR",$J,"CCN",LRCAPNAM,"SQRM",0)=LRSQRM
  1. Q
  1. GENCOM ;Called by: LRARCMA1,LRARCML1,LRRP8B
  1. S LRCOM=0
  1. F S LRCOM=$O(^LAR(64.19999,LRIN,2,LRCOM)) Q:'LRCOM D
  1. . S LRGCN=LRGCN+1
  1. . S ^TMP("LRAR",$J,"GCOM",LRGCN)=$G(^LAR(64.19999,LRIN,2,LRCOM,0))
  1. Q
  1. CAPCOM ;Called by: LRARCMA1,LRARCML1,LRRP8B
  1. S LRCC=0
  1. F S LRCC=$O(^LAR(64.19999,LRIN,3,LRCC)) Q:'LRCC D
  1. . I $G(LRCAPS) Q:'$D(LRCAPS(LRCC))
  1. . S LRCAPNAM=$$WKLDNAME^LRARCU(LRCC)
  1. . S ^TMP("LRAR",$J,"CCOM",LRCAPNAM,0)=LRCAPNUM
  1. . S LRCOM=0
  1. . F S LRCOM=$O(^LAR(64.19999,LRIN,3,LRCC,1,LRCOM)) Q:'LRCOM D
  1. . . S LRCCN=LRCCN+1
  1. . . S ^TMP("LRAR",$J,"CCOM",LRCAPNAM,LRCCN)=$G(^LAR(64.19999,LRIN,3,LRCC,1,LRCOM,0))
  1. Q
  1. DATCOM ;Called by: LRARCMA1,LRARCML1,LRRP8B
  1. S LRCOM=0
  1. F S LRCOM=$O(^LAR(64.19999,LRIN,1,LRCDTN,2,LRCOM)) Q:'LRCOM D
  1. . S LRDCN=LRDCN+1
  1. . S ^TMP("LRAR",$J,"DCOM",LRCDT,LRDCN)=$G(^LAR(64.19999,LRIN,1,LRCDTN,2,LRCOM,0))
  1. Q
  1. GETA ;Get pointer value for file 68
  1. K DIC S DIC=68,DIC(0)="XMZ"
  1. D ^DIC Q:Y=-1
  1. Q