Routine: LRCAPL2

Package	Total	Call Graph
Lab Service	1	(DASH,EQUALS)^LRX
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	1	LRCAPL

Entry Points

External References

Name	Field # of Occurrence
^%DT	HEAD, H1
DASH^LRX	HEAD+4, HEAD+5, H1+2
EQUALS^LRX	PRINT+2, GTOT, %+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LRCAPL2+4
Function Call: WRITE	Prompt: !,LOC Line Location: LOC+0
Function Call: WRITE	Prompt: !!?(IOM-14),"Continued..." Line Location: PRINT+2
Function Call: WRITE	Prompt: !?25,$E(MM,1,23),?48,$J("["_$P(^LAM(M1,0),"^",3)_"]",7),$J($P(LRX,"^",2),8),$J($P(LRX,"^",3),8),$J($P(LRX,"^",2)*$P(LRX,"^",1),8) Line Location: PRINT+3
Function Call: WRITE	Prompt: !?56,"------- ------- -------",!,?10,"Total for ",LOC,?55,$J(S2,8),$J(S3,8),$J(S4,8) Line Location: TOT+0
Function Call: WRITE	Prompt: !?56,"======= ======= =======",!,?10,"Grand total",?55,$J(T2,8),$J(T3,8),$J(T4,8) Line Location: GTOT+0
Function Call: WRITE	Prompt: ! Line Location: GTOT+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+0
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+0
Function Call: WRITE	Prompt: ?LRCL,LRSTA,?(IOM-9),"PAGE ",LRPG Line Location: HEAD+1
Function Call: WRITE	Prompt: !?LRCL,"CAP STATISTICS BY CODE" Line Location: HEAD+2
Function Call: WRITE	Prompt: !?LRCL,LRH1," thru ",LRH2 Line Location: HEAD+3
Function Call: WRITE	Prompt: !?51,"[UW]"," RAW \| STAT \| UNIT \|",!,"TREATING AREA",?25,"PROCEDURE",?55," COUNT \| COUNT \| COUNT \|" Line Location: HEAD+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: WAIT+0
Function Call: WRITE	Prompt: !,"...Press RETURN to continue, '^' to stop..." Line Location: WAIT+0
Function Call: WRITE	Prompt: $J((X*100),6),"%" Line Location: WAIT+3
Function Call: WRITE	Prompt: ! Line Location: WAIT+4
Function Call: WRITE	Prompt: @IOF Line Location: H1+0
Function Call: WRITE	Prompt: !,Y Line Location: H1+0
Function Call: WRITE	Prompt: ?LRCL,LRSTA,?(IOM-9),"PAGE ",LRPG Line Location: H1+1
Function Call: WRITE	Prompt: !?LRCL,"WORKLOAD PERCENTAGE BY TREATING AREA" Line Location: H1+1
Function Call: WRITE	Prompt: !?LRCL,LRH1," thru ",LRH2 Line Location: H1+2
Function Call: WRITE	Prompt: !?56," RAW \| STAT \| UNIT \|",!,"TREATING AREA",?56," LOAD \| LOAD \| LOAD \|" Line Location: H1+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD, H1
^DIC(4 - [#4]	LRCAPL2+3
^LAM - [#64]	PRINT+3
^LAM("B"	PRINT+3
^UTILITY($J	LRCAPL2+3, MAJ, LOC, SUB, TEST

Name	Line Occurrences
%	GTOT+1
GTOT	LRCAPL2+3
H1	%, %+1
HEAD	LRCAPL2+3, PRINT+2
LOC	MAJ
MAJ	LRCAPL2+3
PRINT	TEST
SUB	LOC
TEST	SUB
TOT	LOC
WAIT	LRCAPL2+4, PRINT+2, H1

Name	Field # of Occurrence
^(	TEST
^(0	LRCAPL2+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	HEAD, H1
DTIME	WAIT
>> I	%+1*
II	LRCAPL2+3*, LRCAPL2+4!
IOF	LRCAPL2+4, HEAD, H1
IOM	PRINT+2, HEAD+1, HEAD+2, HEAD+3, H1+1, H1+2
IOSL	PRINT+2, %+1
IOST	WAIT
>> JJ	MAJ*
>> KK	LOC*
>> L	%, %+1
LL	LRCAPL2+4!, SUB*, TEST
LOC	LRCAPL2+4!, LOC*, SUB, TEST, TOT
>> LRCL	HEAD+1, HEAD+2, HEAD+3, H1+1, H1+2*
>> LREND	LRCAPL2+3, LRCAPL2+4, MAJ, LOC, SUB, TEST, PRINT+2, WAIT*, %+1
>> LRH1	HEAD+3, H1+2
>> LRH2	HEAD+3, H1+2
LRMAJ	LRCAPL2+4!, MAJ*, LOC, SUB, TEST
LRPG	LRCAPL2+2, LRCAPL2+4!, HEAD, HEAD+1, H1*, H1+1
LRSITE	LRCAPL2+2, LRCAPL2+3, LRCAPL2+4!, MAJ, LOC, SUB, TEST
LRSTA	LRCAPL2+3*, LRCAPL2+4!, HEAD+1, H1+1
LRX	LRCAPL2+4!, TEST*, PRINT, PRINT+1, PRINT+3
M	%+2!
M(	TOT*, %+1
M1	LRCAPL2+4!, TEST, PRINT+3
MM	LRCAPL2+4!, TEST*, PRINT+3
>> RR	%+1*
S2	LRCAPL2+4!, LOC, PRINT, TOT
S3	LRCAPL2+4!, LOC, PRINT, TOT
S4	LRCAPL2+4!, LOC, PRINT, TOT
T2	LRCAPL2+3, LRCAPL2+4!, PRINT+1, GTOT
T3	LRCAPL2+3, LRCAPL2+4!, PRINT+1, GTOT
T4	LRCAPL2+3, LRCAPL2+4!, PRINT+1, GTOT
>> X	HEAD, WAIT, %+1, H1
>> Y	HEAD, %+1*, H1

Customize PDF page

Package: Lab Service

Routine: LRCAPL2

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: