Routine: LRBLU

Package	Total	Call Graph
VA Fileman	4	^%DT C^%DTC ^DIC ^DIE
Lab Service	1	(D,DT,V,YN)^LRU

Package	Total	Caller Graph
Lab Service	25	DONATION OR DEFERRAL DATE LRBLDED LRBLDEL LRBLDLG LRBLDPH LRBLDRR LRBLDT LRBLDX LRBLJA1 LRBLJCK LRBLJDP LRBLJED LRBLJL LRBLJLG1 LRBLJR LRBLPED1 LRBLPEW LRBLPTR LRBLPUS LRBLPX LRBLSDPL LRBLW LRBLWD TRANSFUSION RECORD ^LRD(65

Entry Points

Name	Comments	DBIA/ICR reference
A	;Makes change to ^LRD(65,"AP" & date unit assigned if necessary
EN	;
END
D
P	;from DD(63.01, input transforms for fields 6.1 to 6.4
F
I
S1
K1	;Kill AG x-ref DD(65,4.1,1,
O	;enter old donor unit (CAUTION: This unit is in inventory)
KK
S	;sets C-xref in FILE 65
EN3	;delete user print list for transfusion & hematology data
EN2	;called by TRANSFUSION entry in EXECUTE CODE file
EN1	;
B	;
K	;Kill C-xref in FILE 65
DT
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!?15,"INVENTORY FILE HAS AN ENTRY WITH SAME ID ! " Line Location: LRBLU+6
Function Call: WRITE	Prompt: !,$C(7),X," assigned to ",$P(^LRE(Y,0),U) Line Location: I+0
Function Call: WRITE	Prompt: $C(7),!,"UNIT IN INVENTORY - EDIT TRANSFUSION DATA THERE !" Line Location: EN+1
Function Call: WRITE	Prompt: $C(7),!,"Specimen(s) received within past 72 hrs:" Condition for execution: B=1 Line Location: EN2+2
Function Call: WRITE	Prompt: !,Y,?18,$P(Z,U,6) Line Location: EN2+2
Function Call: WRITE	Prompt: $C(7),!!,"There are no user lists." Line Location: EN3+2
Function Call: WRITE	Prompt: $C(7),"Must define blood bank site parameters using option:",!?3,"Edit blood bank site parameters [LRBLSSP] under the Supervisor menu" Line Location: D+0
Function Call: WRITE	Prompt: $C(7),!!,"Must enter second and third defaults for DONOR using:",!?3,"Edit blood bank site parameters [LRBLSSP] under the Supervisor menu" Line Location: D+1
Function Call: WRITE	Prompt: !!,"Do you still want to enter this unit in the donor file " Line Location: O+2
Function Call: WRITE	Prompt: !,"Ok, done." Line Location: O+2
Function Call: WRITE	Prompt: LRH Line Location: B+2
Function Call: WRITE	Prompt: LRH Line Location: B+4
Function Call: WRITE	Prompt: $C(7),!?35,"Not allowed, enter date and time.",!?35,"Future times not allowed." Line Location: DT+0
Function Call: WRITE	Prompt: ! Line Location: DT+2
Routine Call	DIE Line Location: EN1+3 EN1+5 EN3+4
Routine Call	DIC Line Location: EN1+4 EN3+3

FileNo	Call Tags
^LAB(61.3 - [#61.3]	Classic Fileman Calls
^LRO(69.2 - [#69.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	K1+2
^LAB(61.3 - [#61.3]	EN1+2, EN1+5, P+2
^LAB(66 - [#66]	S+1, K+1, KK
^LAB(69.9 - [#69.9]	D, D+1
^LR - [#63]	K1+2!, EN2+2, P+1, P+2!
^LR("AB"	K1+2!
^LRD(65 - [#65]	LRBLU+6, S+1, K+1!, KK!, K1+1, K1+2!, A+1!, A+2*, EN+1
^LRE - [#65.5]	LRBLU+5, I
^LRE("C"	LRBLU+5!, I
^LRO(68 - [#68]	EN3+1
^LRO(69.2 - [#69.2]	EN3+2

Name	Field # of Occurrence
>> %	O+2*
%DT	A+2, EN2+1, B+1, B+2!, B+4!, DT!, DT+1*!
%DT("A"	B+2, B+4, DT*
%DT(0	B+2, DT
>> A	S+1, K+1, KK, K1+1, K1+2, EN+1, EN2+2*, P+1
>> B	F, K1+2, EN2+2, P+1
>> C	S+1, K+1, KK*, P+2
DA	S+1, K+1, KK, K1+1, K1+2, EN1+3, EN1+5, EN3+4*, END!
DA(1	A+1, A+2, EN3+4*
DA(2	A+1, A+2
DIC	EN1+1, EN1+4!, EN3+3!, END!
DIC(0	EN1+4, EN3+3
DIE	EN1+1, EN3+3, END!
DLAYGO	EN1+4*, EN1+6!
DR	EN1+3, EN1+5, EN3+4*, END!
DT	B+2, B+4
>> LR	A+2*, EN+1
>> LR(65	KK
>> LRAA	EN3+1*, EN3+2, EN3+4
>> LRB	EN1+3, EN1+5
>> LRD("U"	O+1
>> LRDFN	EN2+2, P+1, P+2
LRH	B+1*, B+2, B+4, B+6!
LRH(17	D+2*
LRH(2	D+1*
LRH(20	D+2*
LRH(3	D+1*
>> LRI	P+1, P+2
>> LRK	DT+2*
>> LRLDT	B+5*, B+6
>> LRLST	B+6*
>> LRSDT	B+3, B+5, B+6
>> LRSTR	B+6*
>> S	S+1, K+1, KK*
U	I, S+1, K+1, KK, K1+1, K1+2, A+1, A+2, EN+1, EN2+2 , D+1, D+2, P+2, DT
>> W	LRBLU+5*, I
X	LRBLU+4!, LRBLU+5, LRBLU+6, I!, F, A+1, A+2, EN+1!, EN1+2, EN1+3 , EN1+4, EN2+1, EN2+2, D!, D+1!, D+2, O+1!, O+3!, P+1, P+2! , B+1, B+2, B+4, B+5, DT, DT+1*
X(1	LRBLU+5, A+2, EN1+2, P+2*
>> X1	EN2+1*
>> X2	EN2+1*
>> Y	LRBLU+5, I, S+1, K+1, KK, A+2, EN1+5, EN2+1, EN2+2, EN3+3 , EN3+4, B+1, B+2, B+3, B+4, B+5, B+6, DT, DT+1, DT+2
>> Z	I, K1+1, K1+2, EN2+2