Routine: LRBLJA

Package	Total	Call Graph
Lab Service	5	(,P)^LRBLJA1 (CK,FRE,L,V,YN)^LRU EN^LRUD ^LRUTL X^LRUWK
VA Fileman	3	^%DT ^DIC ^DIE

Package	Total	Caller Graph
Lab Service	3	LRBLILS LRBLIUP LRBLJTR

Entry Points

Name	Comments	DBIA/ICR reference
A
CK
SET
END
AD
F
K
ST
S
B
T	;transfer unit to another division
CLNP
CMV
Z

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SET+0
Function Call: WRITE	Prompt: ! Line Location: S+0
Function Call: WRITE	Prompt: !," 'TYPING CHARGE' entry not in BLOOD PRODUCT File",!!,"Inform Blood Bank Supervisor",! Line Location: S+0
Function Call: WRITE	Prompt: ! Line Location: B+0
Function Call: WRITE	Prompt: $C(7),!!,$P(^LAB(61.3,M,0),U)," entered for ",$P(^LRE(LRD,0),U),!,"in donor file as ",$P(^DD(+$P(^LRE(LRD,LRO,0),U,2),.01,0),U),!,"Recheck donor and inventory phenotyping.",!! Line Location: CK+1
Function Call: WRITE	Prompt: $C(7),!,"I can't ADD the Antigen typings to the Donor File. Someone else is editing this record.",!!,"Use the Donor-Donor phenotyping option to enter typing results to the appropriate donor",!! Line Location: CK+3
Function Call: WRITE	Prompt: $C(7),!,"I can't DELETE the Antigen Typing FOR the Donor. Someone else is editing the record",!!,"Use the Donor-Donor phenotyping option to update the donor's phenotype",! Line Location: K+1
Function Call: WRITE	Prompt: $C(7),!!,"Inventory unit:",$P(^LRD(65,LR,0),"^"),?38,"CMV ANTIBODY ",$S(M:"PRESENT",1:"ABSENT"),!,"Donor ",$P(^LRE(LRD,0),"^"),?38,"CMV ANTIBODY ",$S(M(1):"PRESENT",1:"ABSENT") Line Location: CMV+2
Function Call: WRITE	Prompt: !!,"Recheck donor and inventory unit CMV ANTIBODY testing." Line Location: CMV+3
Routine Call	DIE Line Location: S+2 B T+1
Routine Call	DIC Line Location: SET S

FileNo	Call Tags
^LRD(65 - [#65]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(	CK+1
^DIC(4 - [#4]	AD
^LAB(61.3 - [#61.3]	CK+1
^LAB(66 - [#66]	S+1
^LRD(65 - [#65]	B, F+3, CLNP, CMV*, CMV+2, T+1, AD+2
^LRE - [#65.5]	CK, CK+1, CK+2, CK+3, CK+4, CK+5*, K, K+1, K+2!, K+3 , CMV+1, CMV+2
^LRE("C"	B
^VA(200 - [#200]	AD

Name	Field # of Occurrence
^(	AD+2*
^(0	S+1, B, CK+2, CK+4, K+3, CMV+1, AD+2*

Name	Field # of Occurrence
>> %	A+1*
%DT	AD+1*!
A	F+4!, AD+1*, AD+2
B	F+4!
C	F+4!
DA	SET!, K+4, T+1, AD+2
DA(1	K+4*
DIC	SET!, S, S+2!, T+1!
DIC("S"	SET*
DIC(0	SET, S
DIE	SET*, S+2!, T+1!
DR	SET!, S+2!, B, T+1*!
DUZ	AD
LR	B*, F+3, F+4!, CLNP, CMV, CMV+2
LR("CK"	SET!, S+2, B, T+1
LR("M"	Z*
LR("SLAM"	B, F, F+1, CLNP, CK, CK+3, K+1*
>> LRAA	SET
>> LRAA(4	Z
>> LRB	B*, CMV
>> LRC	K+4*
>> LRC(1	K+4*
>> LRCAPA	A+1
LRD	B*, F+4!, CK, CK+1, CK+2, CK+3, CK+4, CK+5, K, K+1 , K+2, K+3, K+4, CMV+1, CMV+2
>> LRF	A, A+1, B
>> LRN	T+1, AD, AD+2
>> LRO	CK+1, ST, T+1, AD*, AD+2
LRS	F+4!, CK, CK+2, CK+3, CK+4, CK+5, K, K+1, K+2, K+3 , ST*
LRW	F, F+2, F+3, F+4!, CLNP, ST, AD*, AD+2
LRW(	F, CLNP
M	F, F+3, F+4!, CLNP, CK, CK+1, CK+4, CK+5, K, K+2 , K+4, CMV*, CMV+1, CMV+2
M(1	CMV+1*, CMV+2
M(2	CMV*
O	F+4!, CLNP, K+4
U	CK+1, T+1, AD
>> V	CK+4, K+3
>> V(1	K+3*
>> W	S+1*, S+2
>> X	S, A+1, CLNP, K+4, Z, AD+1, AD+2*
>> X("NOCODES"	A+1*
>> Y	SET, S, S+1, S+2, A, B, Z, T+1, AD+2
>> Z	CLNP, K+3, K+4*