Routine: LRBLJPA2

Package	Total	Call Graph
Lab Service	1	(H1,P,Y)^LRBLJPA1

Package

Total

Call Graph

Lab Service

(H1,P,Y)^LRBLJPA1

Package	Total	Caller Graph
Lab Service	1	LRBLJPA1

Package

Total

Caller Graph

Lab Service

LRBLJPA1

Name	Field # of Occurrence
H1^LRBLJPA1	H, H2, H3, H4
P^LRBLJPA1	A+1
Y^LRBLJPA1	C, A+1, A+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,$S($D(^LAB(61.3,A,0)):$P(^(0),"^"),1:A) Line Location: LRBLJPA2+6
Function Call: WRITE	Prompt: " (",$P(A(1),"^",2),")" Condition for execution: $P(A(1),"^",2)]"" Line Location: LRBLJPA2+6
Function Call: WRITE	Prompt: !,"Modified to/from:" Line Location: LRBLJPA2+7
Function Call: WRITE	Prompt: !?2,"Issued to/rec'd from:",$P(A(1),"^",5)," For patient:",$P(A(1),"^",6) Line Location: C+1
Function Call: WRITE	Prompt: " (",$P(A(1),"^",7),")" Condition for execution: $P(A(1),"^",7) Line Location: C+1
Function Call: WRITE	Prompt: !,$P(Y,"^")," ssn:",$P(Y,"^",9)," ",$P(X(1),"^",5)," ",$P(X(1),"^",6)," Date assigned:" Line Location: A+0
Function Call: WRITE	Prompt: Y Line Location: A+0
Function Call: WRITE	Prompt: !,$P(Y,"^")," HRCN:",HRCN," ",$P(X(1),"^",5)," ",$P(X(1),"^",6)," Date assigned:" Line Location: A+1
Function Call: WRITE	Prompt: Y Line Location: A+1
Function Call: WRITE	Prompt: !,Y," ",$P(B(1),"^",6)," ",$P(B(1),"^",2) Line Location: B+0
Function Call: WRITE	Prompt: "(",$P(B(1),"^",7),")" Condition for execution: $P(B(1),"^",7) Line Location: B+0
Function Call: WRITE	Prompt: " ",$P(B(1),"^",3) Line Location: B+0
Function Call: WRITE	Prompt: "(",$P(B(1),"^",8),")" Condition for execution: $P(B(1),"^",8) Line Location: B+0
Function Call: WRITE	Prompt: !,C(1) Line Location: B+2
Function Call: WRITE	Prompt: !,$S(LRA=60:"RBC antigen present",LRA=70:"RBC antigen absent",LRA=80:"HLA antigen present",1:"HLA antigen absent"),":" Line Location: H1+0
Function Call: WRITE	Prompt: !,"Modified to/from:" Line Location: H2+0
Function Call: WRITE	Prompt: !,"Patient xmatched/assigned:" Line Location: H3+0
Function Call: WRITE	Prompt: !,"Crossmatch comment:" Line Location: H5+0
Function Call: WRITE	Prompt: !,"Date unit relocated:" Line Location: H6+0

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.3 - [#61.3]	LRBLJPA2+6
^LAB(66 - [#66]	D
^LRD(65 - [#65]	LRBLJPA2+3, LRBLJPA2+4, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D
^VA(200 - [#200]	LRBLJPA2+3, LRBLJPA2+4, C, B+1

Name	Line Occurrences
A	LRBLJPA2+8
B	A+2
C	LRBLJPA2+9
D	LRBLJPA2+7
H	LRBLJPA2+5, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9
H1	LRBLJPA2+6
H2	D
H3	LRBLJPA2+8
H4	A+2, H5, H6
H5	B+2
H6	LRBLJPA2+9

Name	Field # of Occurrence
^(	LRBLJPA2+6, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D
^(0	LRBLJPA2+3, LRBLJPA2+4, LRBLJPA2+6, C, B+1, D
^(10	LRBLJPA2+3
^(11	LRBLJPA2+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRBLJPA2+6, LRBLJPA2+8, LRBLJPA2+9, A+1, A+2, B+2, D
>> A(1	LRBLJPA2+6, LRBLJPA2+8, LRBLJPA2+9, C, C+1, A+1, D
>> B	A+2*, B+2
>> B(1	A+2*, B, B+1
>> C	B+2*
>> C(1	B+2*
>> HRCN	A+1
IOSL	LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D, H
>> LR("Q"	LRBLJPA2+5, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D, H1, H2 , H3, H5, H6
>> LRA	LRBLJPA2+6*, H1
>> LRI	LRBLJPA2+3, LRBLJPA2+4, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D
>> LRT	B+1
>> LRTABO	LRBLJPA2+3
>> LRTINS	C
>> LRTRH	LRBLJPA2+4
U	LRBLJPA2+3, LRBLJPA2+4
>> X	LRBLJPA2+3, LRBLJPA2+4, C, A+1, B+1, D
>> X(1	A+1
>> X(3	LRBLJPA2+3, LRBLJPA2+4, C*
>> Y	LRBLJPA2+3, LRBLJPA2+4, C, A+1, A+2, B, B+1
>> Z	LRBLJPA2+3, LRBLJPA2+4

Customize PDF page

Package: Lab Service

Routine: LRBLJPA2

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A	;S X=A D P^LRBLJPA1 W !,$P(Y,"^")," ssn:",$P(Y,"^",9)," ",$P(X(1),"^",5)," ",$P(X(1),"^",6)," Date assigned:" S Y=$P(A(1),"^",2) D Y^LRBLJPA1 W Y
C
B
D
H2
H
H1
H6
H4
H5
H3