Routine: LRBLPCS

Information

LRBLPCS ;AVAMC/REG - COMPONENT SELECTION FOR PATIENTS ;8/4/95 06:32 ;

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Lab Service	7	^LRBLPA EN^LRBLPCS1 ^LRBLPCSS (CK,EN)^LRBLPUS ^LRDPA (V,YN)^LRU DD^LRX
VA FileMan	3	^DIE ^DIWP ^DIWW
Kernel	1	$$FMTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Lab Service	3	LRBLPCS LRBLPCSS LRBLPLOGIN
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
P
EN1
OP
EN3
G
H
A
EN2
L
M
N
DEL
END
EN

External References

Name	Field # of Occurrence
^DIE	OP+6
^DIWP	EN2+2
^DIWW	EN2+3
^LRBLPA	EN1+1
EN^LRBLPCS1	OP+7
^LRBLPCSS	OP+4
CK^LRBLPUS	LRBLPCS+3
EN^LRBLPUS	EN1+3
^LRDPA	P
V^LRU	LRBLPCS+3, END
YN^LRU	LRBLPCS+9, OP+2, EN3+3, EN+1
DD^LRX	M, N+4
$$FMTE^XLFDT	H

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"MUST BE BLOOD BANK" Line Location: LRBLPCS+5
Function Call: WRITE	Prompt: !?20,LRAA(4),!!?15,"Selection of blood components for a patient" Line Location: LRBLPCS+6
Function Call: WRITE	Prompt: !,"Display instructions for component selected " Line Location: LRBLPCS+8
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: ! Line Location: P+2
Function Call: WRITE	Prompt: LRP," ",SSN(1),?42,$J(LRPABO,2),?45,LRPRH Line Location: EN1+2
Function Call: WRITE	Prompt: !,"No units currently assigned/xmatched" Line Location: EN1+5
Function Call: WRITE	Prompt: ! Line Location: EN1+6
Function Call: WRITE	Prompt: !!,"Is patient Pre-op " Line Location: OP+2
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+2
Function Call: WRITE	Prompt: ! Line Location: OP+6
Function Call: WRITE	Prompt: $C(7),!,"No DATA NAME in file 60 for ",$P(X,"^") Line Location: G+1
Function Call: WRITE	Prompt: !?10,"No ",$P(S(A,B),"^",2)," results " Line Location: A+1
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+2
Function Call: WRITE	Prompt: !,$E($P(^LAB(66,+X,0),"^"),1,23),?24,$J($P(X,"^",4),3),?30 Line Location: L+2
Function Call: WRITE	Prompt: Y,?48 Line Location: L+2
Function Call: WRITE	Prompt: Y,?48 Line Location: L+2
Function Call: WRITE	Prompt: Y,?48 Line Location: L+2
Function Call: WRITE	Prompt: !,$J(B,2),")",?5,$P(X,"^"),?20,$E($P(M,"^"),1,21),?42,$J($P(X,"^",7),2),?45,$P(X,"^",8),?49 Line Location: N+4
Function Call: WRITE	Prompt: Y,?67,L Line Location: N+4
Function Call: WRITE	Prompt: !,"FOR TRANSFUSION REQUESTS: Display instructions for components " Line Location: EN+1
Routine Call	DIE Line Location: OP+6

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Lab Service