Routine: LRBLPX1

Package	Total	Call Graph
Lab Service	1	(DT,L)^LRU

Package	Total	Caller Graph
Lab Service	1	LRBLPX

Entry Points

Name	Field # of Occurrence
DT^LRU	EN+3, EN+12
L^LRU	EN+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$J(LRV,2),")",?6,$P(X,"^"),?17,$E($P(LRE,"^"),1,23),?42,$J(A,2),?45,H,?49 Line Location: EN+3
Function Call: WRITE	Prompt: Y,?64,L Line Location: EN+3
Function Call: WRITE	Prompt: $C(7),!,"ABO not rechecked" Line Location: EN+4
Function Call: WRITE	Prompt: $C(7),!,"ABO recheck (group ",X,") does not match ABO group of unit. Resolve discrepancy." Line Location: EN+5
Function Call: WRITE	Prompt: $C(7),!,"Rh NEG unit not rechecked" Line Location: EN+6
Function Call: WRITE	Prompt: $C(7),!,"Rh recheck (type ",X,") does not match Rh type of unit. Resolve discrepancy." Line Location: EN+7
Function Call: WRITE	Prompt: $C(7),!?4,"No patient ABO &/or Rh results" Line Location: EN+10
Function Call: WRITE	Prompt: !?4,"No antibody screen results" Line Location: EN+11
Function Call: WRITE	Prompt: ?31,"(spec date:",Y," acc#:",$P($P(LRJ,"^",5)," ",3),")" Line Location: EN+12
Function Call: WRITE	Prompt: !,$P(^LAB(61.3,Z,0),"^"),$E("..............",$X,14),?15,"RBC ANTIGEN" Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!,"Above antigen(s) not entered in RBC ANTIGEN ABSENT field" Line Location: C+1
Function Call: WRITE	Prompt: $C(7),!,"Must have test in LAB TEST file (#60) called 'WKLD CROSSMATCH' with WKLD CODES." Line Location: CK+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	CK
^LAB(61.3 - [#61.3]	C
^LAB(66 - [#66]	EN+2
^LR - [#63]	LRBLPX1+4!, EN+8, EN+9
^LRD(65 - [#65]	LRBLPX1+4, EN+2, EN+4, EN+6, C
^LRO(68 - [#68]	STF, STF+1, STF+2, STF+3, A
^TMP($J	LRBLPX1+4!, EN+9*

Name	Line Occurrences
A	STF+2

Name	Field # of Occurrence
>> A	EN+2, EN+3, EN+5, STF+2, A
>> B	LRBLPX1+4, CK*
DUZ	STF+1, STF+2, A
DUZ(2	A
>> E	LRBLPX1+4
>> F(1	EN+10*
>> F(2	EN+5, EN+7
>> F(6	EN+11*
>> H	EN+2*, EN+3, EN+6, EN+7
>> L	EN+2, EN+3
>> LR("%"	EN+1
>> LRAA	STF, STF+1, STF+2, STF+3, A
>> LRAD	STF, STF+1, STF+2, STF+3, A
>> LRAN	STF, STF+1, STF+2, STF+3, A
>> LRB	C
>> LRDFN	LRBLPX1+4, EN+8, EN+9
>> LRE	EN+2*, EN+3, C
>> LRI	LRBLPX1+4*, EN+2, EN+4, EN+6, C
>> LRJ	LRBLPX1+4, EN+8, EN+9*, EN+10, EN+11, EN+12
>> LRK	STF+1, STF+2, STF+3, A
>> LRSS	EN+8, EN+9
LRT	STF+1, STF+2, STF+3, A, CK*, CK+1, CK+2!
LRT(	STF+2, CK*
>> LRV	LRBLPX1+4*, LRBLPX1+5, EN+3, EN+9
>> R	C
>> R(	C
U	STF+2
X	LRBLPX1+4, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9!, EN+10* , EN+11, EN+12, STF+1, STF+2, A
X(1	LRBLPX1+4*
X(10	EN+8*, EN+9
X(11	EN+8*, EN+9
X(6	EN+8*, EN+9
>> Y	EN+3, EN+12, STF+2*
>> Z	C, STF+2
>> Z(1	C*, C+1