Routine: LRBLDX

Information

LRBLDX ; IHS/DIR/FJE - DONOR ABO/RH TESTING 3/25/92 22:42 ;

Source file <LRBLDX.m>

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

Package	Total	Caller Graph
Lab Service	1	LRBLDDAT

Name	Comments	DBIA/ICR reference
END
REST
S	;from LRBLDX 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: LRBLDX+6
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: !!,"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
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+3, 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
>> %	LRBLDX+5, LRBLDX+6*
>> 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	LRBLDX+6, DNR, REST+1
LRC	LRBLDX+6*!
>> LRCAPA	LRBLDX+5, REST+7
>> LRI	DNR+3, REST+3, REST+5, ASK+1, CKRL
>> LRK	LRBLDX+5
>> LRK("LRK"	LRBLDX+5*
>> LRM	S+1
>> LRQ	DNR+3, REST+2, REST+3, REST+4, REST+5, ASK, ASK+1, CKRL
>> LRQ(1	DNR+3, REST+3, ASK+1
LRR	DNR!, REST+5, REST+6, S+1, CKRL*
U	DNR, REST+2, S+1, ASK+1
>> W(5	REST+2*
>> W(6	REST+2*
>> X	LRBLDX+4, LRBLDX+5, DNR, DNR+2, DNR+3, REST, REST+1, REST+2*
>> X(1	REST*
>> X(2	REST*, REST+1
>> X(3	REST*
>> Y	LRBLDX+4, LRBLDX+5, DNR+1, DNR+2, DNR+3, REST+3, REST+7, S+1, ASK, ASK+1
>> Z	S+1