Routine: LRAPONC

Package	Total	Call Graph
Lab Service	2	(B,D,SSN,V,WAIT,XR,YN)^LRU ^LRUTL
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
A	;
END
LRI
AUM
M
L	;S X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,X)=^DIC($P(X,"^",2),0,"GL"),LRPPT=@(X_Y_",0)")
Y1
AU
T
LRDFN
Y
MX

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Include suspicious for malignancy cases " Line Location: LRAPONC+5
Function Call: WRITE	Prompt: ! Line Location: LRAPONC+7
Function Call: WRITE	Prompt: ! Line Location: A+1
Routine Call	DIC Line Location: A+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	L+1
^LAB(61.1 - [#61.1]	MX
^LR - [#63]	LRAPONC+11, LRDFN, LRI, T, M, AU, AUM, L+1
^TMP($J	MX*

Name	Field # of Occurrence
^(	T, M, AU, AUM
^(0	MX

Name	Field # of Occurrence
>> %	LRAPONC+5*
>> DFN	L+1*
DIC	A+1*!
DIC("A"	A+1*
DIC("S"	A+1*
DIC(0	A+1*
>> DOB	L+2*
>> I	Y, Y1, MX
>> I(1	Y1*
>> I(2	Y1*
>> LR	LRAPONC+11*
>> LRB	LRAPONC+5*, LRAPONC+9
>> LRD	M, MX, AUM
>> LRDFN	LRDFN*, LRI, T, M, MX, AU, AUM, L+1
>> LRDPF	L+1*
>> LRI	LRI, T, M, MX, AU
>> LRLDT	LRAPONC+7*, LRAPONC+11
>> LRM	M, AUM
>> LRM(	LRAPONC+8*, MX
>> LRM(69760	LRAPONC+9*
>> LRN(	LRAPONC+8*, MX
>> LRN(69760	LRAPONC+9*
>> LRP	L+2*
>> LRPPT	L+1*, L+2
>> LRQ	L+2*
>> LRSDT	LRAPONC+7, LRAPONC+11, LRDFN, LRI
>> LRSS	LRAPONC+5, LRDFN, T, M
>> LRT	T, AU
>> LRXR	LRAPONC+11, LRDFN, LRI
>> M	M, AUM
>> S(1	LRAPONC+6*
>> S(2	LRAPONC+6*
>> SEX	L+2*
>> SSN	L+2*
>> T	T, M, AU, AUM
>> W	MX*
>> X	LRAPONC+8, Y, Y1, M, MX, AUM, L+1*
>> Y	LRAPONC+4, LRAPONC+7, LRAPONC+8, MX, L+1, L+2, A+1, A+2
>> Y(1	Y, Y1, MX*
>> Y(2	Y, Y1, MX*
>> Z	LRAPONC+8, MX