Routine: LRBLPCS

Package	Total	Call Graph
Lab Service	6	^LRBLPA EN^LRBLPCS1 ^LRBLPCSS (CK,EN)^LRBLPUS ^LRDPA (DT,V,YN)^LRU
VA Fileman	3	^DIE ^DIWP ^DIWW

Package	Total	Caller Graph
Lab Service	3	LRBLPCS LRBLPCSS LRBLPLOGIN

Entry Points

External References

Name	Field # of Occurrence
^DIE	OP+3
^DIWP	EN2
^DIWW	EN2+1
^LRBLPA	EN1+1
EN^LRBLPCS1	OP+3
^LRBLPCSS	OP+1
CK^LRBLPUS	LRBLPCS+3
EN^LRBLPUS	EN1+1
^LRDPA	P
DT^LRU	N+3
V^LRU	LRBLPCS+3, END
YN^LRU	LRBLPCS+5, OP, EN3+2, EN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"MUST BE BLOOD BANK" Line Location: LRBLPCS+3
Function Call: WRITE	Prompt: !?20,LRAA(4),!!?15,"Selection of blood components for a patient" Line Location: LRBLPCS+4
Function Call: WRITE	Prompt: !,"Display instructions for component selected " Line Location: LRBLPCS+5
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: LRP," ",SSN(1),?42,$J(LRPABO,2),?45,LRPRH Line Location: EN1+0
Function Call: WRITE	Prompt: LRP," ",HRCN,?42,$J(LRPABO,2),?45,LRPRH Line Location: EN1+1
Function Call: WRITE	Prompt: !,"No units currently assigned/xmatched" Line Location: EN1+3
Function Call: WRITE	Prompt: ! Line Location: EN1+4
Function Call: WRITE	Prompt: !!,"Is patient Pre-op " Line Location: OP+0
Function Call: WRITE	Prompt: $C(7),!,"You must answer 'YES' or 'NO' to enter component request.",!,"Do you want to enter component request at this time " Line Location: OP+0
Function Call: WRITE	Prompt: ! Line Location: OP+3
Function Call: WRITE	Prompt: $C(7),!,"No DATA NAME in file 60 for ",$P(X,"^") Line Location: G+0
Function Call: WRITE	Prompt: !?10,"No ",$P(S(A,B),"^",2)," results " Line Location: A+0
Function Call: WRITE	Prompt: !?10,$P(S(A,B),"^",3)," Last ",$P(S(A,B),"^",2),": ",$P(S(A,B),"^")," ",$P(S(A,B),"^",4)," ",$P(S(A,B),"^",5) Line Location: A+1
Function Call: WRITE	Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,27),?27,$J($P(X,"^",4),3),?33 Line Location: L+1
Function Call: WRITE	Prompt: Y,?47 Line Location: L+1
Function Call: WRITE	Prompt: Y,?47 Line Location: L+1
Function Call: WRITE	Prompt: Y,?47 Line Location: L+1
Function Call: WRITE	Prompt: !,$J(B,2),")",?6,$P(X,"^"),?17,$E($P(M,"^"),1,24),?42,$J($P(X,"^",7),2),?45,$P(X,"^",8),?49 Line Location: N+3
Function Call: WRITE	Prompt: Y,?64,L Line Location: N+3
Function Call: WRITE	Prompt: !,"FOR TRANSFUSION REQUESTS: Display instructions for components " Line Location: EN+1
Routine Call	DIE Line Location: OP+3

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	G, G+1
^LAB(61 - [#61]	H
^LAB(66 - [#66]	EN3, EN2, L, L+1, N+3
^LR - [#63]	EN1+4, G+2, L!, DEL*!, DEL+1!
^LRD(65 - [#65]	EN1+2, N+1!, N+2
^UTILITY($J	EN2!
^VA(200 - [#200]	L+1

Name	Field # of Occurrence
^(	EN1+4, EN3, G+2, EN2, N+2
^(0	G, G+1, L, L+1, DEL+1
^(3	N+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRBLPCS+5, OP, OP+1, EN3+2, EN+1
>> A	EN1+2, EN1+4, EN3, EN3+1, A, A+1, EN2*, N+1, N+2
>> B	EN1+2, EN1+3, EN1+4, EN3+1, G+2, A, A+1, N, N+3
C	OP+3!, EN3, EN3+1, EN3+3, A+1, EN2, DEL, DEL+1
C(	EN3*, EN3+1, A+1
>> DA	OP+2*
DIC	P!
DIE	P!, OP+2*, OP+3!
>> DIWF	EN2*
>> DIWL	EN2*
>> DIWR	EN2*
DR	P!, OP+2*, OP+3!
>> E	EN3*, G+1, G+2, G+3, H
>> F	EN3*, G, G+1, G+3, H
>> G	G+1*, G+2
>> H	G+1*, H
>> HRCN	EN1+1
>> I(0	EN3+1!, EN3+2, G+1, G+3, H, A+2
IOM	EN2, EN*
>> K	EN2*, EN2+1
>> L	N+2, N+3
>> LRAA(4	LRBLPCS+4
>> LRCPT	OP*
>> LRDFN	P, EN1+2, EN1+4, OP+2, G+2, L, N+1, DEL, DEL+1
>> LRJ	LRBLPCS+4*
LRK	OP+3!
LRK(	EN3+3*
>> LRLLOC	EN1+1
LRO	LRBLPCS+5, EN!, EN+1
>> LRP	EN1+1
>> LRPABO	EN1+1
>> LRPRH	EN1+1
>> LRQ	EN1+3
LRR	OP!, EN3+2*, EN3+3
>> LRSS	LRBLPCS+3
>> LRV	OP+1*
>> LRV(1	OP+1*, EN3
>> M	N+3*
Q	EN3+2!, A, A+1
Q("Q"	EN1+1
S	OP+3!, G+2*
S(	EN3, G+3, H, A, A+1
>> W	G+2*, H
>> X	EN1+4, EN3, G, G+1, G+2, H, EN2, L, L+1, N+2 , N+3, DEL+1*
>> X(1	DEL+1*
>> X(2	DEL+1*
>> Y	LRBLPCS+3, EN3+2, L, L+1, M, N+3*
>> Z	G+1*, H

Customize PDF page

Package: Lab Service

Routine: LRBLPCS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
EN
END
G
EN1	;Q:'$D(LRP) D ^LRBLPA Q:$D(Q("Q"))!(LRLLOC["DIED") W LRP," ",SSN(1),?42,$J(LRPABO,2),?45,LRPRH D EN^LRBLPUS
H
M
L
N
P
EN2
EN3
DEL
OP

Name	Line Occurrences
A	EN3+1
DEL	EN3+2
EN1	P
END	LRBLPCS+3, LRBLPCS+5, P
G	EN3
H	G+2
L	EN1+4
M	L+1
N	EN1+2
OP	OP
P	P