Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRRP8C

Package: Lab Service

Routine: LRRP8C


Information

LRRP8C ;DALISC/TNN/J0 - WKLD STATS REPORT BY SHIFT ; 4/9/93

Source Information

Source file <LRRP8C.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
DET ;
AASUM ;*** Accession Area summary ***
SUM ;
SHFTHDR ;
ACCHDR ;
SUMHDR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ENTRY POINT IS AT EN^LRRP8."
  • Line Location: LRRP8C+2
Function Call: WRITE
  • Prompt: !," *** NO DATA FOR THIS REPORT ***",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"Accession Area: ",LRANAM,!
  • Line Location: DET+5
Function Call: WRITE
  • Prompt: !," *** NO DATA FOR THIS ACCESSION AREA ***",!
  • Line Location: DET+7
Function Call: WRITE
  • Prompt: !," *** NO DATA FOR THIS SHIFT ***",!
  • Line Location: DET+12
Function Call: WRITE
  • Prompt: !,"Accession Area: ",LRANAM," (cont.)",!
  • Line Location: DET+20
Function Call: WRITE
  • Prompt: $J(LRCCNT,7),?10,$E(LRCAPNAM,1,30),?42,LRCAPNUM
  • Line Location: DET+23
Function Call: WRITE
  • Prompt: ?53,$J(LRPCT,6,2),"%",!
  • Line Location: DET+24
Function Call: WRITE
  • Prompt: "Shift subtotal: ",$J(LRSCNT,8),!
  • Line Location: DET+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DET+30
Function Call: WRITE
  • Prompt: !,"Accession Area: ",LRANAM," (cont.)",!
  • Line Location: AASUM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AASUM+3
Function Call: WRITE
  • Prompt: "Shift#",LRSHFT,": ",$J(LRPCT,6,2)
  • Line Location: AASUM+8
Function Call: WRITE
  • Prompt: "% of ",LRANAM," total.",!
  • Line Location: AASUM+9
Function Call: WRITE
  • Prompt: !
  • Line Location: AASUM+10
Function Call: WRITE
  • Prompt: !,"Accession Area: ",LRANAM," (cont.)",!
  • Line Location: AASUM+19
Function Call: WRITE
  • Prompt: $J(LRCCNT,7),?10,$E(LRCAPNAM,1,30),?42,LRCAPNUM
  • Line Location: AASUM+22
Function Call: WRITE
  • Prompt: ?53,$J(LRPCT,6,2),"%",!
  • Line Location: AASUM+23
Function Call: WRITE
  • Prompt: !,LRANAM," subtotal: ",$J(LRACNT,8),!
  • Line Location: AASUM+25
Function Call: WRITE
  • Prompt: $J(LRACNT,8),?10,LRANAM,?42,$J(LRPCT,6,2),"% of grand total.",!
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !,"Grand Total: ",$J(LRGCNT,8),!
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !!,"SHIFT#",LRSHFT," FROM: ",$P(LRST(LRSHFT),"^")," Hours TO: "
  • Line Location: SHFTHDR+2
Function Call: WRITE
  • Prompt: $P(LRST(LRSHFT),"^",2)," Hours."
  • Line Location: SHFTHDR+3
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: LRCONT
  • Line Location: SHFTHDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SHFTHDR+3
Function Call: WRITE
  • Prompt: !!,"TIME RANGE FROM: ",$P(LRST(LRSHFT),"^")," Hours TO: "
  • Line Location: SHFTHDR+5
Function Call: WRITE
  • Prompt: $P(LRST(LRSHFT),"^",2)," Hours."
  • Line Location: SHFTHDR+6
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: LRCONT
  • Line Location: SHFTHDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SHFTHDR+6
Function Call: WRITE
  • Prompt: !," Count Procedure Name Code "
  • Line Location: SHFTHDR+7
Function Call: WRITE
  • Prompt: "Percent of shift subtotal",!
  • Line Location: SHFTHDR+8
Function Call: WRITE
  • Prompt: $E(LRDSHS,1,80),!
  • Line Location: SHFTHDR+9
Function Call: WRITE
  • Prompt: !,"Total count for each type of WKLD code:"
  • Line Location: ACCHDR+1
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: LRCONT
  • Line Location: ACCHDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCHDR+1
Function Call: WRITE
  • Prompt: !," Count Procedure Name Code "
  • Line Location: ACCHDR+2
Function Call: WRITE
  • Prompt: "Pct of Acc. area subtotal",!
  • Line Location: ACCHDR+3
Function Call: WRITE
  • Prompt: $E(LRDSHS,1,80),!
  • Line Location: ACCHDR+4
Function Call: WRITE
  • Prompt: !,"Summary by Accession Area:"
  • Line Location: SUMHDR+1
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: LRCONT
  • Line Location: SUMHDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMHDR+1
Function Call: WRITE
  • Prompt: !," Count Accession Area "
  • Line Location: SUMHDR+2
Function Call: WRITE
  • Prompt: "Percent of grand total",!
  • Line Location: SUMHDR+3
Function Call: WRITE
  • Prompt: $E(LRDSHS,1,80),!
  • Line Location: SUMHDR+4
Info |  Source |  Entry Points |  Interaction Calls