Routine: LRBLDUC

Package	Total	Call Graph
Lab Service	4	(S,SET)^LRBLWD (D,V,YN)^LRU ^LRUTL X^LRUWK
VA Fileman	3	^DIC MIX^DIC1 ^DIE

Package	Total	Caller Graph
Lab Service	1	LRBLDUC

Entry Points

Name	Comments	DBIA/ICR reference
END
REST
S	;from LRBLDUC input template only supervisor can edit data after release of components
CKRL
DNR
ASK

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter TEST COMMENT(s) " Line Location: LRBLDUC+5
Function Call: WRITE	Prompt: ! Line Location: DNR+0
Function Call: WRITE	Prompt: $C(7),!!,"Complete DONOR ID must be entered (ex. If ID=H12345 then H123 unacceptable)." Line Location: DNR+1
Function Call: WRITE	Prompt: $C(7)," ",X," does not exist. Try again" Line Location: DNR+3
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, someone else is editing this record" Line Location: DNR+4
Function Call: WRITE	Prompt: !!,"UNIT#:",LRQ(1)," Donation date:",Y Line Location: REST+3
Function Call: WRITE	Prompt: $C(7),!?35,"Must have UNIT # to proceed." Line Location: REST+3
Function Call: WRITE	Prompt: ! Line Location: REST+4
Function Call: WRITE	Prompt: !,"One or more components were released. You may not edit existing test results." Line Location: REST+6
Function Call: WRITE	Prompt: $C(7),!,"ABO/Rh testing not completed." Line Location: S+2
Routine Call	DIE Line Location: REST+4
Routine Call	DIC Line Location: ASK

FileNo	Call Tags
^LRE - [#65.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LRE - [#65.5]	DNR+4, DNR+5, REST+2, REST+3, REST+5, ASK+1, CKRL
^LRE("C"	DNR+3, REST+1
^XUSEC("LRBLSUPER"	REST+6, S+1

Name	Field # of Occurrence
^(	REST+5, CKRL

Name	Field # of Occurrence
>> %	LRBLDUC+5*
>> A	REST+5, CKRL
>> D	DNR*
DA	DNR!, REST+4*
DIC	DNR!, ASK!
DIC("A"	DNR, ASK
DIC("B"	DNR*
DIC(0	DNR, ASK
DIE	REST+4*!
DR	REST+4*!
DUZ	REST+6, S+1
LR	DNR!, REST+5*
>> LRA(	REST+5
>> LRB	LRBLDUC+5, DNR, REST+1
LRC	LRBLDUC+5*!
>> LRCAPA	LRBLDUC+4, REST+7
>> LRI	DNR+3, DNR+4, DNR+5, REST+3, REST+5, ASK+1, CKRL
>> LRM	S+1, S+2
>> LRQ	DNR+3, DNR+4, DNR+5, REST+2, REST+3, REST+4, REST+5, ASK, ASK+1, CKRL
>> LRQ(1	DNR+5, REST+3, ASK+1
LRR	DNR!, REST+5, REST+6, S+1, CKRL*
U	DNR, REST+2, S+1, S+2, ASK+1
>> W(5	REST+2*
>> W(6	REST+2*
>> X	LRBLDUC+3, LRBLDUC+4, DNR, DNR+2, DNR+3, REST, REST+1, REST+2*
>> X(1	REST*
>> X(2	REST*, REST+1
>> X(3	REST*
>> Y	LRBLDUC+3, LRBLDUC+4, DNR+1, DNR+2, DNR+3, REST+3, REST+7, S+1, S+2*, ASK , ASK+1
>> Z	S+1