Routine: LRBLJPA1

Package	Total	Call Graph
Lab Service	2	^LRBLJPA2 (F,M,SSN)^LRU
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	FIELD^DID

Package	Total	Caller Graph
Lab Service	2	LRBLJPA LRBLJPA2

Entry Points

External References

Name	Field # of Occurrence
FIELD^DID	LRBLJPA1+4, LRBLJPA1+5, LRBLJPA1+6, LRBLJPA1+7, LRBLJPA1+8, LRBLJPA1+9, LRBLJPA1+10
^LRBLJPA2	R+11
F^LRU	H+1
M^LRU	H
SSN^LRU	P+1
$$FMTE^XLFDT	Y

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,LRP,?14,LRC,?55,$P(X,"^",3),?66,$P(X,"^",2) Line Location: R+0
Function Call: WRITE	Prompt: !?14,"(Bag Lot #: ",Y,")" Line Location: R+1
Function Call: WRITE	Prompt: " Shipping invoice:",Z Line Location: R+3
Function Call: WRITE	Prompt: " Return credit: ",X Line Location: R+4
Function Call: WRITE	Prompt: "Pool/div:",X(4) Condition for execution: X(4)]"" Line Location: R+5
Function Call: WRITE	Prompt: !?2,"Shipped to: ",$P(X,"^",5) Line Location: R+6
Function Call: WRITE	Prompt: !,^LRD(65,LRI,5,LRA,0) Line Location: R+7
Function Call: WRITE	Prompt: !,"Pt transfused:",$P(Y,"^")," ssn:",SSN," ABO:",$P(X(1),"^",5)," Rh:",$P(X(1),"^",6) Line Location: T+0
Function Call: WRITE	Prompt: !,"Pt transfused:",$P(Y,"^")," HRCN:",HRCN," ABO:",$P(X(1),"^",5)," Rh:",$P(X(1),"^",6) Line Location: T+1
Function Call: WRITE	Prompt: !,"Tx reaction:",$S(X=0:"NO",X:"YES",1:"")," Rx specialty: ",$P(Z,"^",3) Line Location: T+3
Function Call: WRITE	Prompt: "(",$P(Z,"^",7),")" Condition for execution: $P(Z,"^",7) Line Location: T+3
Function Call: WRITE	Prompt: !,^LRD(65,LRI,7,LRA,0) Line Location: T+4
Function Call: WRITE	Prompt: !,LRAA(1),!,"DISPOSITION (Date rec'd from: ",LRSTR," to: ",LRLST,")" Line Location: H+1
Function Call: WRITE	Prompt: !,"UNIT ID",?14,"Component",?55,"Invoice #",?66,"Source" Line Location: H+2
Function Call: WRITE	Prompt: !,"Date rec'd",?17,"ABO",?21,"Rh",?24,"Exp date",?36,"Logged-in by",?67,"Cost",?72,"Vol(ml)",!,"Disposition",?21,"Disposition date",?39,"Person entering disposition" Line Location: H+3
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+4
Function Call: WRITE	Prompt: !,LRP,?14,LRC," (continued from pg ",LRQ-1,")" Line Location: H1+0
Function Call: WRITE	Prompt: !,"Disposition comment(s):" Line Location: H2+0
Function Call: WRITE	Prompt: !,"Transfusion comment(s):" Line Location: H3+0
Function Call: WRITE	Prompt: !,"Restricted for:",$P(Y,"^")," ",SSN Line Location: AU+0
Function Call: WRITE	Prompt: !,"Restricted for:",$P(Y,"^")," ",HRCN Line Location: AU+1
Function Call: WRITE	Prompt: W Line Location: AU+2
Function Call: WRITE	Prompt: ! Line Location: AU+2
Function Call: WRITE	Prompt: "Pos/incomplete screen tests:",$P($P(LRE,W(2)_":",2),";") Condition for execution: W(2)]"" Line Location: AU+2
Function Call: WRITE	Prompt: ?40,"Donation type:",$P($P(LRF,W(3)_":",2),";") Condition for execution: W(3)]"" Line Location: AU+2
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !,"Date re-entered: ",Y," Previous disposition: ",$P(Z,"^",2)," Date: " Line Location: W+0
Function Call: WRITE	Prompt: !,"Date re-entered: ",Y," Previous disposition: ",$P(Z,"^",2)," Date: " Line Location: W+0
Function Call: WRITE	Prompt: !?3,"Previous shipping invoice: ",$P(Z,"^",5)," Receiving invoice: ",$P(Z,"^",6) Line Location: W+1
Function Call: WRITE	Prompt: !?3,"Previous log-in person: ",$P(^VA(200,$P(Z,"^",7),0),"^"),!?3,"Previous date logged-in: " Line Location: W+2
Function Call: WRITE	Prompt: Y Line Location: W+2
Function Call: WRITE	Prompt: !?3,"Ship to: ",$P(Z,"^",9) Condition for execution: $P(Z,"^",9)]"" Line Location: W+2

Name	Comments	DBIA/ICR reference
H2
H
H1
H4
P	;Q:'$D(^LR(X,0)) S X(1)=^(0),Y=$P(X(1),"^",3),(LRDPF,X)=$P(X(1),"^",2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)"),SSN=$P(Y,"^",9) D SSN^LRU Q
R
AU	;I X D P W !,"Restricted for:",$P(Y,"^")," ",SSN
T	;S X=+Z,(Y,X(1))="" D P W !,"Pt transfused:",$P(Y,"^")," ssn:",SSN," ABO:",$P(X(1),"^",5)," Rh:",$P(X(1),"^",6)
W
H3
Y

FileNo	Call Tags
^LRD(65 - [#65]	FIELD^DID
65.02	FIELD^DID
65.03	FIELD^DID

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	P+1
^LAB(66 - [#66]	R
^LR - [#63]	P+1
^LRD(65 - [#65]	R, R+5, R+7, R+8, R+9, R+10, T+4
^LRO(69.2 - [#69.2]	LRBLJPA1+12
^VA(200 - [#200]	R+2, R+5, W, W+2

Name	Line Occurrences
AU	R+8
H	LRBLJPA1+11, R, H1
H1	H2, H3, H4
H2	R+7
H3	T+4
H4	R+5, R+7, R+8, R+9, R+10, R+11, T+3, W+1, W+2
P	T+1, AU+1
R	LRBLJPA1+12
T	R+10
W	R+9
Y	R+2, R+5, R+9, W, W+2

Name	Field # of Occurrence
^(	R+9
^(0	R, R+2, R+5, P+1
^(1	R
^(6	R+10
^(8	R+8

Customize PDF page

Package: Lab Service

Routine: LRBLJPA1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

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	Field # of Occurrence
>> A	LRBLJPA1+12*
>> DFN	P+1*
>> HRCN	T+1, AU+1
IOSL	R, R+7, T+4, H4
IOST	H
>> LR("%"	H+4
>> LR("F"	LRBLJPA1+12*, H
>> LR("Q"	LRBLJPA1+12, R, R+5, R+7, R+8, R+9, R+10, R+11, T+4, H , H1, H2, H3, W+1, W+2
>> LRA	R+7, R+9, T+4*
>> LRAA	LRBLJPA1+12
>> LRAA(1	H+1
>> LRC	R*, H1
>> LRD	LRBLJPA1+4*, R+5
>> LRD("POINTER"	LRBLJPA1+4
>> LRDPF	P+1*
>> LRE	LRBLJPA1+9*, AU+2
>> LRE("POINTER"	LRBLJPA1+9
>> LRF	LRBLJPA1+10*, AU+2
>> LRF("POINTER"	LRBLJPA1+10
>> LRI	LRBLJPA1+12*, R, R+5, R+7, R+8, R+9, R+10, T+4
>> LRID	LRBLJPA1+11, LRBLJPA1+12
>> LRLST	H+1
>> LRP	R*, H1
>> LRQ	LRBLJPA1+11*, H1
>> LRSTR	H+1
>> LRT	LRBLJPA1+5*
>> LRT("POINTER"	LRBLJPA1+5
>> LRTABO	LRBLJPA1+7*
>> LRTABO("POINTER"	LRBLJPA1+7
>> LRTINS	LRBLJPA1+6*
>> LRTINS("POINTER"	LRBLJPA1+6
>> LRTRH	LRBLJPA1+8*
>> LRTRH("POINTER"	LRBLJPA1+8
>> SSN	P+1*
>> W(2	R+8*, AU+2
>> W(3	R+8*, AU+2
>> X	R, R+2, R+3, R+4, R+5, R+6, R+8, P+1, T+1, T+2* , T+3, AU+1
>> X(1	R+5, P+1, T+1*
>> X(3	R+5*
>> X(4	R+5*
>> Y	R, R+1, R+2, R+3, R+4, R+5, R+8, R+9, Y, Y+1 , Y+2, P+1, T+1, AU+1, W, W+2*
>> Z	R, R+3, R+4, R+9, R+10, T+1, T+2, T+3, W, W+1 , W+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed