Routine: LRSORC

Package	Total	Call Graph
Lab Service	4	BUILD^LRSORC1 (,END)^LRSORC1A ^LRWU3 DD^LRX
VA Fileman	3	^%DT ^DIC ^DIR
Kernel	2	^%ZIS ^%ZTLOAD

Package

Total

Call Graph

BUILD^LRSORC1 (,END)^LRSORC1A ^LRWU3 DD^LRX

^%DT ^DIC ^DIR

Package	Total	Caller Graph
Lab Service	1	LRSORC

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GAA+0
Function Call: WRITE	Prompt: !!,$P(Y,"^",2)," does not have an Abbreviation in the Hospital Location file.",! Line Location: SELLOC+4
Routine Call	DIC Line Location: GAA+8 SELPAT+2 SELLOC+2
Routine Call	DIR Line Location: GAA+4 SORTBY+2
Routine Call	%ZIS Line Location: DEVICE+2

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LR"	DQ+1!

Name	Field # of Occurrence
%DT	DQ+4!, DQ+5!, DQ+6!*
>> %ZIS	DEVICE+2*
DIC	GAA+7!, SELPAT+1!, SELLOC+1!*
DIC("A"	SELPAT+1, SELPAT+2, SELLOC+1, SELLOC+3
DIC(0	GAA+7, SELPAT+1, SELLOC+1*
DIR	GAA+1!, SORTBY!
DIR("?"	GAA+3, SORTBY+1
DIR("A"	GAA+2, SORTBY
DIR("B"	GAA+1, SORTBY
DIR(0	GAA+1, SORTBY+1
>> DTOUT	GAA+6, GAA+10, SORTBY+2, SELPAT+3, SELLOC+7
>> DUOUT	GAA+6, GAA+10, SORTBY+2, SELPAT+3, SELLOC+7
>> I	SELPAT+2, SELLOC+2, SELLOC+5
IO	DQ+2
IO("Q"	DEVICE+3, DEVICE+5!
IOM	DQ+3
>> LRAA	GAA, GAA+9
>> LRAA(	GAA+9*
>> LRDASH	DQ+3*
>> LRDATE	DQ+4*
>> LREDAT	DQ+6*, DQ+7
>> LREDT	OPTIONS+1*, DQ+6
>> LREND	EN+2, EN+3, OPTIONS+1, OPTIONS+2, GAA+6, GAA+10, SORTBY+2, SELPAT+3, SELLOC+7, DEVICE+1 , DEVICE+2, DEVICE+3, DEVICE+5, DQ+3*
>> LRHDR2	DQ+7*
>> LRLCS	SELLOC, SELLOC+5, SELLOC+8
>> LRLCS(	SELLOC+5*
>> LRLCS("NO ABR	V" , SELLOC+8*
>> LRPAG	DQ+3*
>> LRPTS	SELPAT, SELPAT+2
>> LRPTS(	SELPAT+2*
>> LRSDAT	DQ+5*, DQ+7
>> LRSDT	DQ+5
>> LRSRT	SORTBY+2*
>> POP	DEVICE+2
U	GAA+9, SELPAT+2, SELLOC+5
X	GAA+1!, DQ+4, DQ+5, DQ+6*
Y	GAA+1!, GAA+5, GAA+8, GAA+9, SORTBY+2, SELPAT+2, SELLOC+2, SELLOC+4, SELLOC+5, DQ+4 , DQ+5, DQ+6
Y(0	GAA+9, SELLOC+4, SELLOC+5
>> ZTQUEUED	DQ+2
>> ZTREQ	DQ+2*
>> ZTRTN	DEVICE+4*
>> ZTSAVE("LR*"	DEVICE+4*

Information