Routine: LRBLP

Package	Total	Call Graph
Lab Service	4	^LRDPA (CK,D,FRE,V,YN)^LRU EN^LRUD ^LRUTL
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Lab Service	5	LRBLPEDIT LRBLPER LRBLPSI LRBLPTXR LRBLSPP

Entry Points

External References

Name	Field # of Occurrence
^DIC	ASK, T
^DIE	E+1, PT, ASK+1, S, T+1
^LRDPA	B, PT, S, P+1, T
CK^LRU	P+1
D^LRU	C
FRE^LRU	P
V^LRU	END
YN^LRU	F+6
EN^LRUD	PT+1, T+1, F+6, F+7
^LRUTL	Z

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"Edit transfusions entered via Previous records option" Line Location: B+0
Function Call: WRITE	Prompt: $C(7),!,"There are no transfusion records entered via previous records option." Line Location: B+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: E+0
Function Call: WRITE	Prompt: $C(7),!,"Enter a number from 1 - ",B," to edit selection." Line Location: E+0
Function Call: WRITE	Prompt: !,$J(B,3),") ",Y,?25,$P(X,"^",3)," ",$P(X,"^",5)," ",$P(X,"^",6)," " Line Location: C+0
Function Call: WRITE	Prompt: $P(^(0),"^") Line Location: C+0
Function Call: WRITE	Prompt: !!?10,"Blood bank patient data from old records" Line Location: O+0
Function Call: WRITE	Prompt: ! Line Location: PT+0
Function Call: WRITE	Prompt: $C(7),!,"For new entries only. No editing." Line Location: ASK+0
Function Call: WRITE	Prompt: !!?10,"Blood bank patient special instructions" Line Location: S+0
Function Call: WRITE	Prompt: ! Line Location: S+0
Function Call: WRITE	Prompt: ! Line Location: S+0
Function Call: WRITE	Prompt: !!?25,"Edit blood bank patient ABO/Rh" Line Location: P+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ABO+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: RH+0
Function Call: WRITE	Prompt: A Line Location: RH+0
Function Call: WRITE	Prompt: !!?8,"Enter/edit transfusion reactions that do not have specific",!?18,"units associated with the reaction",! Line Location: TX+0
Function Call: WRITE	Prompt: ! Line Location: T+0
Function Call: WRITE	Prompt: $C(7)," NOTHING TO DELETE !" Line Location: F+0
Function Call: WRITE	Prompt: $C(7),!!,"Units assigned/crossmatched." Line Location: F+2
Function Call: WRITE	Prompt: !!,$C(7),"Any component requests, units assigned/crossmatched, transfusion records,",!,"RBC antigens present or absent, antibodies identified or blood bank comments",!,"must be removed before deletion allowed.",! Line Location: F+3
Function Call: WRITE	Prompt: $C(7),!!,"Blood bank data entered for this patient. Deletion not allowed!",! Line Location: F+4
Function Call: WRITE	Prompt: $C(7),!,"ARE YOU SURE YOU WANT TO DELETE " Line Location: F+6
Function Call: WRITE	Prompt: !?5,"CHOOSE FROM: " Line Location: F+8
Function Call: WRITE	Prompt: !?7,Y,?15," ",A Line Location: F+8
Function Call: WRITE	Prompt: $C(7),!!,"Remove blood bank accession number ",$P(X,"^",6),!,"And then you can delete the ABO & RH entries.",! Line Location: A+1
Function Call: READ	Timeout: DTIME Variable: E Line Location: M+0
Function Call: WRITE	Prompt: !,"'^' TO STOP: " Line Location: M+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: M+1
Routine Call	DIE Line Location: E+1 PT ASK+1 S T+1
Routine Call	DIC Line Location: ASK T

Name	Line Occurrences (* Changed, ! Killed)
^DD(63	ABO, RH
^LAB(66 - [#66]	C
^LR - [#63]	B+1, PT+1, PT+2, P+1, T, T+1, F+1, F+4, F+6, F+7 , A, A+1
^LRD(65 - [#65]	F+2
^TMP($J	B+1!*, B+2, E+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	F+6*
>> A	B+1, RH, F+1, F+8
>> B	B+1*, E, C
>> C	C*
DA	E+1!, PT!, PT+2!, ASK+1!, S, P+1!, T+1
DA(1	ASK*
DIC	B!, PT!, ASK!, S!, P+1!, T!
DIC(0	ASK, T
DIE	E+1, PT, PT+2!, ASK+1, S, P+1, T+1
DLAYGO	ASK!, T!
DR	E+1, PT, PT+2!, ASK+1, S, T+1*
DTIME	E, ABO, RH, M
>> E	B+1, M
LR	PT+1, PT+2!, T*, T+1
LR("CK"	P+1
>> LRABO	P+1*, ABO
>> LRD	ABO, RH, F, F+6, F+7
>> LRDFN	B, B+1, E+1, PT, PT+2, ASK, ASK+1, S, P+1, T , T+1, F+1, F+2, F+4, F+6, F+7, A, A+1
>> LRF	ABO, RH, F+7, F+8
>> LRI	E+1, ASK+1, T, T+1, F+4, A+1
LRK	F+1, F+2, F+3!, F+4, A!*, A+1
>> LRLOKVAR	P
LRM	F+5!, A+1*
>> LRP	ABO, RH, F+6, F+7
>> LRRH	P+1*, RH
M	PT+1*, PT+2!
O	PT+1, PT+2!, T+1, F+6, F+7
U	ASK, P+1, ABO, RH, T+1
W	PT+1*, PT+2!
W(	PT+1
>> X	B+1, E, E+1, C, PT+1, P+1, ABO, RH, T+1, F , F+1, F+2, F+4, F+6, F+7, F+8, A+1, Z
>> Y	B, C, O, ASK, ASK+1, ABO, RH, TX, T, F , F+3, F+4, F+6, F+7, F+8, F+9
>> Y(0	T
>> Z	PT+1, ABO, RH, T+1

Customize PDF page

Package: Lab Service

Routine: LRBLP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
A	F+4
ABO	ABO
ASK	ASK, ASK+1
B	B+2, E, E+1
C	B+1
E	E
END	B, O, PT, S, P+1, TX, T
F	ABO, RH
M	C
P	P+1, ABO, RH, RH+1
PT	ASK
RH	RH
S	S
T	T, T+2
Z	B, O, P+1, TX