Routine: LRBLDC

Package	Total	Call Graph
Lab Service	8	(BAR,P)^LRBLB EN^LRBLBU ^LRBLDC1 (CK,D,FRE,V)^LRU EN^LRUD (C,H)^LRUT ^LRUTL X^LRUWK
VA Fileman	4	(C,YMD)^%DTC ^DIC MIX^DIC1 ^DIE

Package	Total	Caller Graph
Lab Service	2	LRBLDCP LRBLJLG1

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?20,"Collection disposition/component preparation",! Line Location: LRBLDC+3
Function Call: READ	Prompt: "Select BLOOD DONOR: " Formatting: !! Timeout: DTIME Variable: X Line Location: I+0
Function Call: WRITE	Prompt: $C(7),!!,"No collection date for this patient",! Line Location: REST+0
Function Call: WRITE	Prompt: $C(7),!,"NO UNIT ID ENTERED !" Line Location: REST+1
Function Call: WRITE	Prompt: $C(7),!,"Not allowed, data entered via old blood donor records option." Line Location: REST+2
Function Call: WRITE	Prompt: !!,"Donor: ",LRP," ABO: ",W(5)," Rh: ",W(6),!,"Donation date/time: ",Y,?50,"Unit ID: ",$P(Z,"^",4) Line Location: REST+4
Function Call: WRITE	Prompt: $C(7),!,"Sorry no collection indicated",! Line Location: REST+5
Function Call: WRITE	Prompt: $C(7),!,"Collection discarded",! Line Location: REST+6
Function Call: WRITE	Prompt: ! Line Location: REST+8
Function Call: WRITE	Prompt: !?5,$P(^LAB(66,A,0),"^") Line Location: REST+9
Function Call: READ	Prompt: "Select BLOOD COMPONENT: " Formatting: !! Timeout: DTIME Variable: X Line Location: C+1
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: !,$C(7),"Cannot select more than one red blood cell product.",!,"Selection ",$P(^LAB(66,DA,0),U)," canceled !",! Line Location: KILL+0
Function Call: WRITE	Prompt: $C(7),!?4,"Expiration date exceeds allowable limit !",! Line Location: X+0
Routine Call	DIE Line Location: REST+8 C+6
Routine Call	DIC Line Location: C+2

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

Name	Line Occurrences (* Changed, ! Killed)
^LAB(66 - [#66]	REST+9, C, C+2, KILL
^LRE - [#65.5]	REST, REST+1, REST+2, REST+3, REST+4, REST+7, REST+9, REST+10, C, C+2 , C+3, W, KILL, KILL+1!, X

Name	Field # of Occurrence
^(0	REST+10, KILL+1, X*
^(2	REST+4

Name	Field # of Occurrence
>> %H	EN+1*
>> A	REST+9*
>> C	REST+5*
>> D	I+1*
DA	I+1!, REST+8, REST+9!, C+2, C+3, W*, KILL, KILL+1, X
DA(1	C+2, W
DA(2	C+2, W
DIC	I+1!, REST+9!, C, C+2!
DIC(0	I+1, C+2
DIE	I+1!, REST+8, REST+9!, C
DLAYGO	C+2*!
DQ	I+1!
DR	I+1!, REST+8, REST+9!, C+5
DTIME	I, C+1
DUZ("AG"	I+1
IOF	LRBLDC+3
>> LR	I, C+1
>> LR(	REST+7*
>> LR("CK"	I+1!, REST+8
>> LR(2	I, C+1
>> LRA	C+2, C+3
>> LRB	REST+9
>> LRB(1	C+2
>> LRB(2	C+4
>> LRB(3	C+4*
>> LRB(4	C+2*
>> LRB(5	C+3, C+4, EN+1*
>> LRB(6	C+3, C+4, EN+1*
>> LRB(7	C+3*, C+4
>> LRCAPA	LRBLDC+4
LRDATA	REST+7~*
LRF	REST+9!
LRF(	REST+9*, W
>> LRI	REST*, REST+1, REST+2, REST+4, REST+7, REST+9, REST+10, C, C+2, C+3 , W, KILL, KILL+1, X
>> LRP	REST+3*, REST+4
>> LRQ	I+1*, REST, REST+1, REST+2, REST+3, REST+4, REST+7, REST+8, REST+9, REST+10 , C, C+2, C+3, W, KILL, KILL+1, X
>> LRZ	C*, C+2
>> M	C+3*
>> M(5	C+3*
>> O	C+3, W
U	I, REST+1, REST+2, REST+3, REST+7, C+1, C+3, KILL
>> W	W*, EN+1
>> W(1	EN+1*
>> W(5	REST+3*, REST+4
>> W(6	REST+3*, REST+4
>> X	LRBLDC+3, LRBLDC+4, I, REST+3, C, C+1, C+3, C+4, W, KILL+1 , X*, EN+1
>> X("NOCODES"	LRBLDC+4*
>> X(1	KILL+1*
>> X1	C+4*
>> X2	C+4*
>> Y	LRBLDC+3, I+1, REST+4, C+2, C+4, X, EN+1
>> Z	REST+4, REST+5, REST+6, C+4, W, S, EN+1*
>> Z(0	C+4*, EN+1
>> Z(1	EN+1*
>> Z(2	EN+1*
>> Z(3	EN+1