Routine: LRSORA1

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIM ^DIR

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRSORA
Lab Service	1	LRSORA

Entry Points

Name	Comments	DBIA/ICR reference
HLP0
PATS	;
EN
SORTBY	;
STOP
NOABRV	;
SUMMARY	;
PARSE
LOCS	;
PLOG
SWAP	;;LROLD;LRNEW; NOTE: $L(LROLD) MUST BE >= $L(LRNEW)
TSTLIM

External References

Name	Field # of Occurrence
^DIC	PATS+3, LOCS+3
YN^DICN	NOABRV+8
^DIM	PLOG+3
^DIR	SORTBY+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+0
Function Call: WRITE	Prompt: !,"-",$C(64+J),"-"," ",$P(LRTST(J,2),U,1) Line Location: EN+0
Function Call: WRITE	Prompt: " (",$P(LRTST(J,2),U,2),")" Condition for execution: $P(LRTST(J,2),U,2)]"" Line Location: EN+0
Function Call: WRITE	Prompt: " ",$P(LRTST(J,2),U,3) Line Location: EN+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Enter a logical expression (i.e., A AND B OR C or A&B!C)." Line Location: HLP0+0
Function Call: WRITE	Prompt: !," NOTE: AND will compare only values from the -same- accession." Line Location: HLP0+1
Function Call: WRITE	Prompt: !," To print all results that fall within the search criteria," Line Location: HLP0+2
Function Call: WRITE	Prompt: !," accept the default search logic (OR)." Line Location: HLP0+3
Function Call: WRITE	Prompt: !!,"The location you have selected does not have an abbreviation." Line Location: NOABRV+1
Function Call: WRITE	Prompt: !,"If you use this location, the report will list all records without" Line Location: NOABRV+2
Function Call: WRITE	Prompt: " location",!,"abbreviations (as long as they also meet the date and" Line Location: NOABRV+3
Function Call: WRITE	Prompt: " patient selections)",!,"This may include data from several " Line Location: NOABRV+4
Function Call: WRITE	Prompt: "locations, with no way to be sure which is",!,"which. They will be " Line Location: NOABRV+5
Function Call: WRITE	Prompt: "listed with the abbreviation of 'NO ABRV' or 'UNK'." Line Location: NOABRV+6
Function Call: WRITE	Prompt: !!,"Do you still want to select this location (Y/N)?//" Line Location: NOABRV+7
Routine Call	DIC Line Location: PATS+3 LOCS+3
Routine Call	DIR Line Location: SORTBY+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Label References

Name	Line Occurrences
HLP0	EN+2
NOABRV	LOCS+5
PARSE	PLOG
PLOG	EN+2
TSTLIM	PLOG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PLOG, PLOG+1, PLOG+2, STOP!, LOCS+5, LOCS+7!, NOABRV+7
%Y	LOCS+7!
DIC	PATS+2!, LOCS+2!
DIC("A"	PATS+2, PATS+3, LOCS+2, LOCS+4
DIC(0	PATS+2, LOCS+2
DIR	SORTBY+1!
DIR("?"	SORTBY+2*
DIR("A"	SORTBY+1*
DIR("B"	SORTBY+1*
DIR(0	SORTBY+2*
DTIME	EN+2
>> DTOUT	SORTBY+3, PATS+4, LOCS+7
>> DUOUT	SORTBY+3, PATS+4, LOCS+7
>> I	EN+1, EN+2, PATS+3, LOCS+3, LOCS+6
>> J	EN*
>> LRA	EN+1*, EN+2
>> LREND	EN+2, SORTBY+3, PATS+4, LOCS+7
LRI	STOP!, PARSE, PARSE+1, PARSE+2
LRJ	STOP!, TSTLIM, PARSE+2
>> LRLCS	LOCS+1, LOCS+6
>> LRLCS(	LOCS+6*
LRNEW	PLOG, STOP!, PARSE, PARSE+2
LROK	PLOG+2, STOP!, TSTLIM
LROLD	PLOG*, STOP!, PARSE, PARSE+1, PARSE+2
LRPNT	STOP!
LRPNT(	PARSE+1*, PARSE+2
LRPNT(0	PARSE+1*
>> LRPTS	PATS+1, PATS+3
>> LRPTS(	PATS+3*
>> LRSRT	SORTBY+3*
>> LRTST	EN, EN+1, TSTLIM
>> LRTST(	EN
>> LRTST(0	EN+3*
T	PLOG, PLOG+2, STOP!, TSTLIM
U	EN, PATS+3, LOCS+5, LOCS+6
X	EN+2, PLOG+1, PLOG+3, STOP!, PARSE+1, PARSE+2*
>> Y	EN+2, EN+3, PLOG+1, PLOG+2, PLOG+3, STOP, SORTBY+3, PATS+3, LOCS+3, LOCS+6
>> Y(0	LOCS+5, LOCS+6

Marked Items

Name	Field # of Occurrence
$T(SWAP+%	PLOG

Customize PDF page

Package: Lab Service

Routine: LRSORA1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend:

Marked Items