Routine: LRUG

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

LRUG ;AVAMC/REG/CYM - GET LRDFN ;9/3/97 09:18 ;

Source Information

Source file <LRUG.m>

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
Lab Service	1	EN1^LRDPA

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Lab Service	3	^LRD(65 DONATION OR DEFERRAL DATE PATIENT XMATCHED/ASSIGNED

Entry Points

Name	Comments	DBIA/ICR reference
CK
AUTO	;Check for autologous donor in patient file

External References

Name	Field # of Occurrence
EN1^LRDPA	LRUG+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT: " Line Location: LRUG+4
Function Call: WRITE	Prompt: !,LRP(1) Line Location: LRUG+4
Function Call: WRITE	Prompt: $C(7),!!,LRP(0)," does not equal ",LRP(1)," " Line Location: CK+0
Function Call: WRITE	Prompt: $C(7),!!,"Dates of birth are different" Line Location: CK+1
Function Call: WRITE	Prompt: !!,"Donor:",LRP," DOB:",LRB Line Location: AUTO+1
Function Call: WRITE	Prompt: " SSN:",LRS(2) Condition for execution: LRS(2)]"" Line Location: AUTO+1
Function Call: WRITE	Prompt: $C(7),!,LRP(0)," not entered in PATIENT FILE" Line Location: AUTO+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	LRUG+4
^DPT("B"	AUTO+2
^LR - [#63]	LRUG+4

Label References

Name	Line Occurrences
AUTO	LRUG+2
CK	LRUG+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRUG+4*
>> B	LRUG+4*
DIC	LRUG+3, LRUG+4!, LRUG+5*
DIC("W"	LRUG+3, LRUG+5*
DIC(0	LRUG+3, LRUG+4, LRUG+5
LRA	LRUG+2, LRUG+4!, LRUG+6
>> LRB	AUTO+1
>> LRD	CK+1
>> LRD(1	LRUG+4*, CK+1
>> LRDFN	LRUG+4, LRUG+6, LRUG+8
>> LRP	AUTO+1
>> LRP(0	CK, AUTO+2
>> LRP(1	LRUG+4*, CK
>> LRS(2	AUTO+1
LRSAVE	LRUG+3~*, LRUG+5
LRSAVE("W"	LRUG+3*, LRUG+5
LRSAVE(0	LRUG+3*, LRUG+5
>> LRT	LRUG+2, LRUG+7
X	LRUG+2, LRUG+4, LRUG+6!, LRUG+7, LRUG+8, CK!, CK+1!, AUTO+1, AUTO+2!