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: LRCAPTS1

Package: Lab Service

Routine: LRCAPTS1


Information

LRCAPTS1 ;SLC/AM/DALISC/FHS - PRINT TREATING SPECIALTY WKLD REPORT; 2/6/91@16:04

Source Information

Source file <LRCAPTS1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; called by LRCAPTS
TOP ;
PRN ; PRINT THE REPORT
SUMM ;
PSUM ;
TS ;
PCC ;
PG ;
WAIT ;
HDR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"NO DATA FOR THIS INSTITUTION AND DATE RANGE",!!
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: !!,"GRAND TOTAL",?52,$J(LRGTU,7),?65,$J(LRGT,9,2)
  • Line Location: PRN+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRN+9
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: SUMM+3
Function Call: WRITE
  • Prompt: !!,"GRAND TOTAL",?31,$J(LRGTU,7),?55,$J(LRGT,9,2)
  • Line Location: SUMM+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMM+9
Function Call: WRITE
  • Prompt: !,$E(LRTS,1,30),?31,$J($P(LRX,U,2),7)
  • Line Location: PSUM+3
Function Call: WRITE
  • Prompt: ?45,$J($S(LRGTU:$P(LRX,U,2)/LRGTU,1:0)*100,5,1),?55,$J($P(LRX,U,1),9,2)
  • Line Location: PSUM+4
Function Call: WRITE
  • Prompt: ?70,$J($P(LRX,U)/$S(LRGT=0:1,1:LRGT)*100,5,1)
  • Line Location: PSUM+5
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: TS+1
Function Call: WRITE
  • Prompt: !!,?40,"SUB TOTAL",?52,$J(LRSTU,7),?65,$J(LRST,9,2)
  • Line Location: TS+7
Function Call: WRITE
  • Prompt: !,$P(LRX,U,4),?11,$E(LRCC,1,30),?44,$J(+$P(LRX,U,3),5,2)
  • Line Location: PCC+3
Function Call: WRITE
  • Prompt: ?52,$J(+$P(LRX,U),7),?65,$J(+$P(LRX,U,2),9,2)
  • Line Location: PCC+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PG+2
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: PG+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+3
Function Call: WRITE
  • Prompt: !!,?((IOM-34)\2),"TREATING SPECIALTY WORKLOAD REPORT"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?((IOM-$L(LRINN))\2),LRINN,?(IOM-10),"PAGE ",LRPAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?((IOM-(23+$L(LRDT1)+$L(LRDT2)))\2),"REPORT DATE RANGE: "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: LRDT1," - ",LRDT2
  • Line Location: HDR+5
Info |  Source |  Entry Points |  Interaction Calls