Routine: LRRS

Package	Total	Call Graph
Lab Service	6	$$DTF^LRAFUNC1 ^LRLTR ^LRPARAM ^LRRK DS^LRRP2 (DATE,IO)^LRWU
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

Lab Service

$$DTF^LRAFUNC1 ^LRLTR ^LRPARAM ^LRRK DS^LRRP2 (DATE,IO)^LRWU

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
Lab Service	3	LRAC LOC LRAC LOC-LOC LRRS BY LOC

Package

Total

Caller Graph

Lab Service

LRAC LOC LRAC LOC-LOC LRRS BY LOC

Entry Points

Name	Field # of Occurrence
^DIC	SELLOC
^DIR	ASKPG+2
$$DTF^LRAFUNC1	LOC+3, AL+3
^LRLTR	SEL+2, RNG+6
^LRPARAM	BEGIN
^LRRK	BEGIN, END
DS^LRRP2	PAT
DATE^LRWU	LOC+2
IO^LRWU	QUE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"No Reports for [ ",$$DTF^LRAFUNC1(LRODT),"] ",!! Line Location: LOC+3
Function Call: READ	Timeout: DTIME Line Location: LOC+4
Function Call: WRITE	Prompt: !,"Enter 'A', 'R', 'S' or '^' to exit" Line Location: LOC+4
Function Call: WRITE	Prompt: !! Line Location: SELECT+1
Function Call: WRITE	Prompt: !!?7,"NOTHING SELECTED ",! Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"No Reports for ",$$DTF^LRAFUNC1(LRODT),! Line Location: AL+3
Function Call: READ	Prompt: "Select Report Location: " Formatting: ! Timeout: DTIME Variable: X Line Location: AL0+0
Function Call: WRITE	Prompt: !,I,?4,LRLOCX(I) Line Location: DIS+2
Function Call: WRITE	Prompt: ?39," ",I,?44,LRLOCX(I) Condition for execution: $D(LRLOCX(I)) Line Location: DIS+2
Function Call: WRITE	Prompt: ! Line Location: DIS+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: RANGE+0
Function Call: WRITE	Prompt: !,"Select STARTING PATIENT LOCATION: " Line Location: RANGE+0
Function Call: WRITE	Prompt: !,"Enter the first patient location (abbreviation) that you want." Line Location: RANGE+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: RANGE2+0
Function Call: WRITE	Prompt: !,"Select ENDING LOCATION: " Line Location: RANGE2+0
Function Call: WRITE	Prompt: !,"Enter the last patient location (abbreviation) that you want." Line Location: RANGE2+1
Function Call: WRITE	Prompt: @IOF Line Location: SEL+3
Function Call: WRITE	Prompt: @IOF Line Location: RNG+9
Function Call: WRITE	Prompt: !?10,"Select from: " Line Location: SHOW+1
Function Call: WRITE	Prompt: ?25,I,! Line Location: SHOW+1
Function Call: WRITE	Prompt: ! Line Location: SHOW+2
Function Call: READ	Prompt: "Press RETURN to continue or '^' to exit: " Formatting: !!?10 Timeout: DTIME Variable: X Line Location: WAIT+0
Function Call: WRITE	Prompt: @IOF,!!?10,"Select from: " Line Location: WAIT+1
Routine Call	DIC Line Location: SELLOC
Routine Call	DIR Line Location: ASKPG+2

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69 - [#69]	LOC+3, AL+2, RNG+2, LNAME, PAT, SHOW+1

Name	Line Occurrences
@(	ASKPG+4, DQ+1
AL	SELECT+1
AL0	AL0+2, SELLOC, SELLOC+5
BEGIN	CUM+2, SINGLE+1
LNAME	SEL+2, RNG+7
LOC	BEGIN
PAT	LNAME
QUE	SELECT+4
RANGE	RANGE+1
RANGE2	RANGE2+1
WAIT	SHOW+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	LOC+2!*
%DT("A"	LOC+2*
>> %ZIS	QUE*
A	SHOW+1*, SHOW+2!
DIC	LOC+1!, SELECT~, AL+4*, SELLOC+4!
DIC("S"	AL+4*
DIC(0	AL+4*
DIR	ASKPG+2!
DIR("A"	ASKPG+1*
DIR("B"	ASKPG+1*
DIR(0	ASKPG+1*
DTIME	LOC+4, AL0, RANGE, RANGE2, WAIT
>> DUOUT	SELLOC+3
I	DIS+1~, DIS+2, SHOW+1
IO	DQ+1
IOF	SEL+2, SEL+3, RNG+4, RNG+9, WAIT+1
IOSL	SHOW+1
IOST	SEL+2, RNG+6
LRCNT	SELECT~, AL+1, AL+2, AL+3, DIS+2
>> LRDFN	PAT*
>> LREDT	LOC+2*
>> LRELOC	LOC+1, RANGE2+2, RNG+2
>> LREND	BEGIN, LOC+1, SELECT+2, AL+1, AL0, AL0+1, SEL+2, RNG+2, RNG+8, LNAME , PAT, SHOW+1, SHOW+2, WAIT*
>> LRFLOC	LOC+1, RANGE+2, RNG+2, RNG+3*
>> LRIDT	PAT*
>> LRJ0	SEL+1, SEL+2, RNG+1, RNG+4, PAT+1
>> LRLAB	LOC+1*
>> LRLABKY	LOC+1
LRLLOC	LOC!, LOC+1, RANGE+2, RANGE2+2, SEL+1, SEL+2, RNG+2, RNG+3, RNG+5, LNAME , PAT
LRLLOC(	AL0+2, SELLOC+2, SEL+2
LRLLOC(0	SELECT+3
>> LRLOC	LOC+5, ASKPG+4, DQ+1, SINGLE+1
LRLOCX	SELECT~, AL+1, AL+2
LRLOCX(	AL+2*, AL0+2, SELLOC+2, DIS+2
>> LRLTR	SEL+2, RNG+5
>> LRNAME	LNAME*, PAT
>> LRODT	LOC+2*, LOC+3, AL+2, AL+3, RNG+2, LNAME, PAT, SHOW+1
>> LROK	SHOW+2*
>> LRONESPC	LOC+1*
>> LRONETST	LOC+1*
>> LRPARAM	BEGIN
>> LRPRTPG	BEGIN, CUM+1, ASKPG, ASKPG+3, CUMSGLE+1
>> LRSDT	LOC+2*, PAT
>> LRSINGLE	BEGIN, LOC+4, LOC+5, SINGLE+1
>> LRSTOP	LOC+1*, PAT
U	LOC+5, SELLOC+1
>> X	LOC+4, LOC+5, AL0, AL0+2, RANGE, RANGE+1, RANGE+2, RANGE2, RANGE2+1, RANGE2+2 , WAIT*
>> Y	LOC+2, ASKPG+3, SELLOC
>> Y(0	SELLOC+1
>> Y1	SELLOC+1*, SELLOC+2
>> ZTQUEUED	DQ+1
>> ZTREQ	DQ+1*
>> ZTRTN	QUE*

Customize PDF page

Package: Lab Service

Routine: LRRS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOC
PAT
SINGLE	;from option LRRS BY LOC
DIS	;
AL0
DQ	;dequeued
BEGIN
SHOW	;Display possible choices of locations
SELLOC
SELECT
SEL	;
END
CUMSGLE	;ENTRY POINT FOR OPTION LRAC LOC
AL	;
LNAME
RANGE
CUM	;ENTRY POINT FOR CUMULATIVE OPTION LRAC LOC-LOC
WAIT
ASKPG
RNG	;
RANGE2
QUE