Routine: LRBLPUS

Information

LRBLPUS ; IHS/DIR/AAB - PATIENT UNIT SELECTION 8/16/96 06:33 ;

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Lab Service	8	(BAR,P)^LRBLB ^LRBLPA ^LRBLPCS1 ^LRBLPUS1 EN1^LRBLU ^LRDPA (DT,V,YN)^LRU ^LRUTL
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Lab Service	6	LRBLAA LRBLJL LRBLJLA LRBLPCS LRBLPIC LRBLPX

Entry Points

Name	Comments	DBIA/ICR reference
CK	;called by LRBLPX,LRBLJLA,LRBLAA,LRBLJL,LRBLPCS
C
EN	; from LRBLJL
END
G
M
L
REST	;Q:LRLLOC["DIED" W !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH D EN
N
P
S
R

External References

Name	Field # of Occurrence
^DIC	C+2
BAR^LRBLB	LRBLPUS+5
P^LRBLB	C+1
^LRBLPA	P
^LRBLPCS1	G
^LRBLPUS1	R+7
EN1^LRBLU	LRBLPUS+4
^LRDPA	P
DT^LRU	G+1, N+3
V^LRU	END
YN^LRU	LRBLPUS+6
^LRUTL	CK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?24,"Selection of units for a patient",!!?28,LRAA(4),!?12,"Accession Area: ",LRO(68) Line Location: LRBLPUS+5
Function Call: WRITE	Prompt: !!?15,"Select only unassigned/uncrossmatched units " Line Location: LRBLPUS+6
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH Line Location: REST+0
Function Call: WRITE	Prompt: !,LRP," ",HRCN,?37,$J(LRPABO,2),?40,LRPRH Line Location: REST+1
Function Call: WRITE	Prompt: $C(7),!!,"Must have blood component request(s) on record to select units",! Line Location: REST+2
Function Call: WRITE	Prompt: ! Line Location: REST+4
Function Call: READ	Prompt: "Blood component for unit selection: " Formatting: !! Timeout: DTIME Variable: X Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",! Line Location: C+1
Function Call: WRITE	Prompt: !,A,") ",Y," Acc # ",$P(Z(A),"^",3) Line Location: G+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: S+0
Function Call: WRITE	Prompt: !,"Select a number from 1 to ",B,! Line Location: S+0
Function Call: WRITE	Prompt: $C(7),!!,"Results on "_G(5)_" do not match the Patient's previous ABO/Rh history",!!,"Resolve the discrepancy before proceeding ",! Line Location: R+5
Function Call: WRITE	Prompt: !,$J(B,2),")",?6,$P(X,"^"),?17,$E($P(M,"^"),1,19),?38,$P(X,"^",7)_" "_$P(X,"^",8),?44 Line Location: N+3
Function Call: WRITE	Prompt: Y,?64,L Line Location: N+3
Function Call: WRITE	Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,27),?27,$J($P(X,"^",4),3),?33 Line Location: L+0
Function Call: WRITE	Prompt: Y,?47 Line Location: L+0
Function Call: WRITE	Prompt: Y,?47 Line Location: L+0
Function Call: WRITE	Prompt: !,$C(7),"Units restricted for ",LRP Condition for execution: M=1 Line Location: EN+1
Function Call: WRITE	Prompt: !,$P(X,"^"),?15,$P(^LAB(66,$P(X,"^",4),0),"^") Line Location: EN+1
Function Call: WRITE	Prompt: $C(7),!!,"MUST BE BLOOD BANK" Line Location: CK+1
Function Call: WRITE	Prompt: $C(7),!,"TRANSFUSION REQUEST must be entered in LAB TEST file (#60).",! Line Location: CK+2
Function Call: WRITE	Prompt: !!,$C(7),!!,"TRANSFUSION REQUEST in LAB TEST file (#60) must have an accession area",!,"assigned to your DIVISION.",! Line Location: CK+3
Function Call: WRITE	Prompt: $C(7),!!,"There is no accession area for ",LRAA,!,"in the accession area file (#68)." Line Location: CK+4
Function Call: WRITE	Prompt: !!,$C(7),"There is no abbreviation entered for ",LRO(68),!,"in the accession area file (#68)." Line Location: CK+5
Routine Call	DIC Line Location: C+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	CK+2, CK+3
^LAB(61.3 - [#61.3]	LRBLPUS+4
^LAB(66 - [#66]	G, N+3, L, EN+1
^LR - [#63]	REST+2, REST+4, R+2, R+3
^LRD(65 - [#65]	REST+3, N+1!, N+2, EN+1
^LRO(68 - [#68]	CK+4
^VA(200 - [#200]	L

Label References

Name	Line Occurrences
C	C+1, C+2
CK	LRBLPUS+3
EN	REST+1
END	LRBLPUS+3, LRBLPUS+6, P
G	C+2
L	REST+4
M	L
N	REST+3
P	P
R	G+2
REST	P
S	S

Naked Globals

Name	Field # of Occurrence
^(	REST+4, N+2
^(0	L, EN+1
^(3	N+2
^(4	EN+1
^(8	EN+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLPUS+6*
>> A	REST+3, REST+4, G+1, N+1, N+2, EN+1
>> B	REST+3, REST+4, G+1*, G+2, S, S+1, N, N+3
>> C	G, EN+1
>> C(1	G*
>> C(19	G*
>> C(7	G*
>> C(8	G*
>> C(9	G*, R+1
DIC	P!, C+2*!
DIC(0	C+2*
DIE	P!
DR	P!
DTIME	C, S
DUZ(2	CK+3
G	C+2!, G+2, S+1, R, R+1, R+6
G(1	R*
G(3	R*
G(4	R+1*, R+2, R+3
G(5	R+1*, R+5
G(6	R, R+5, R+6
>> HRCN	REST+1
>> L	N+2, N+3
>> LR	C+1
>> LR("M"	CK+1*
>> LR(2	C+1
>> LR(3	LRBLPUS+5*
>> LRAA	CK+3*, CK+4
>> LRAA(4	LRBLPUS+5
>> LRABV	CK+4*, CK+5
>> LRB	LRBLPUS+4*
>> LRDFN	P, REST+2, REST+3, REST+4, R+2, R+3, N+1, EN+1
>> LRI	CK+2*, CK+3
>> LRK	LRBLPUS+6*
>> LRLLOC	REST+1
>> LRO(68	LRBLPUS+5, CK+4*, CK+5
>> LRP	REST+1, EN+1
>> LRPABO	REST+1, R+5
>> LRPRH	REST+1, R+5
LRSPABO	R+2*, R+4, R+5!
LRSPRH	R+3*, R+4, R+5!
>> LRSS	CK+1
>> LRU(2	LRBLPUS+5*
>> LRV	G*
>> M	N+3, EN+1
>> Q("Q"	P
S	P!
U	C, S, R+1, R+2, R+3, CK+3, CK+4
V	P!
X	REST+4, C!, C+1, G, S, S+1, N+2, N+3, L, EN+1 , CK+1, CK+4
>> Y	LRBLPUS+3, C+2, G, G+1, N+3, L, M, CK+1, CK+2, CK+3* , CK+4, CK+5
Z	P!, G, G+1
Z(	G+1, S+1
Z(1	G+2

Customize PDF page

Package: Lab Service

Routine: LRBLPUS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: