Routine: LRCAPTS1

Information

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRCAPTS

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	PRN+5, SUMM+5, PSUM+1, TS+3, TS+5, PCC+1

Label References

Name	Line Occurrences
HDR	PRN+2, SUMM+2, PG+2
PCC	TS+3
PG	PRN+3, PRN+7, SUMM+7, PSUM+2, TS+1, TS+6, PCC+2
PRN	TOP+3
PSUM	SUMM+5
SUMM	TOP+4
TS	PRN+5
WAIT	PRN+3, PRN+9, SUMM+9, PG+1, WAIT+3

Naked Globals

Name	Field # of Occurrence
^(	PCC+1
^(0	PSUM+1, TS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	WAIT+1
IOF	TOP+2, PRN+3, PRN+9, SUMM+9, PG+2, WAIT+3
IOM	SUMM+1, HDR+2, HDR+3, HDR+4
IOSL	PRN+3, PRN+7, SUMM+7, PSUM+2, TS+1, TS+6, PCC+2
IOST	TOP+2, PRN+3, PRN+9, SUMM+9, PG+1
>> LRANS	WAIT+1*, WAIT+2, WAIT+3
>> LRCC	TS+2, TS+3, PCC+1, PCC+3
>> LRDT1	HDR+4, HDR+5
>> LRDT2	HDR+4, HDR+5
>> LREND	TOP+4, PRN+3, PRN+5, PRN+6, PRN+7, PRN+9, SUMM+5, SUMM+6, SUMM+7, SUMM+9 , PSUM+2, TS+1, TS+3, TS+4, TS+6, PCC+2, PG+1, WAIT+2*
>> LRGT	PRN+8, SUMM+8, PSUM+5
>> LRGTU	TOP+4, PRN+3, PRN+8, SUMM+8, PSUM+4
>> LRINN	HDR+3
>> LRLAB	PRN+1, SUMM+1, SUMM+3, TS+1, PG+2
>> LRPAGE	TOP+1, HDR+1, HDR+3
>> LRPTF	PRN+1, SUMM+1
>> LRST	TS+2, TS+5, TS+7
>> LRSTU	TS+2, TS+5, TS+7
>> LRSUMM	TOP+3
>> LRTS	PRN+4, PRN+5, SUMM+4, SUMM+5, PSUM+1, PSUM+3, TS+3, TS+5, PCC+1
>> LRX	PSUM+1, PSUM+3, PSUM+4, PSUM+5, PCC+1, PCC+3, PCC+4
U	PSUM+3, PSUM+4, PSUM+5, PCC+3, PCC+4

Customize PDF page

Package: Lab Service