Routine: LRBLPED

Package	Total	Call Graph
Lab Service	6	(BAR,P)^LRBLB ^LRBLBU ^LRBLPED1 (DT,RX,V)^LRU ^LRUTL X^LRUWK
VA Fileman	3	^%DT (,C)^%DTC ^DIC

Package	Total	Caller Graph
Lab Service	1	LRBLPED

Entry Points

External References

Name	Field # of Occurrence
^%DT	LRBLPED+3
^%DTC	OK+3
C^%DTC	OK+2, OK+3
^DIC	P+2, U+2
BAR^LRBLB	LRBLPED+5
P^LRBLB	P+1
^LRBLBU	U+1
^LRBLPED1	ALL, ALL+1, ALL+3
DT^LRU	I+5
RX^LRU	H+1
V^LRU	END
^LRUTL	LRBLPED+3
X^LRUWK	LRBLPED+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?15,"Division: ",LRAA(4) Line Location: LRBLPED+3
Function Call: READ	Prompt: "Blood component for pediatric prep: " Formatting: !! Timeout: DTIME Variable: X Line Location: P+0
Function Call: WRITE	Prompt: $C(7)," SPACE BAR not allowed." Line Location: P+0
Function Call: WRITE	Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",! Line Location: P+1
Function Call: WRITE	Prompt: $C(7),!,"Either not an entry in BLOOD COMPONENT FILE (#66) or",!,"Must enter MAX AGE FOR PEDIATRIC USE field for the entry in file 66." Line Location: P+2
Function Call: WRITE	Prompt: $C(7),!,$P(^DD(66,.22,0),U)," must be entered for this component",!,"and pediatric product selection must be an entry in the Blood Product file." Line Location: P+3
Function Call: WRITE	Prompt: $C(7),!,$P(^DD(66,.23,0),U)," must be entered for this component" Line Location: P+4
Function Call: WRITE	Prompt: $C(7),!!,"Must have WKLD codes entered in Blood Product file for ",$P(^LAB(66,LRO,0),U) Line Location: P+6
Function Call: WRITE	Prompt: $C(7),!!,"Volume of component must be entered in BLOOD COMPONENT file",!?20,"for ",$P(Y,U,2),"." Line Location: P+8
Function Call: READ	Prompt: "Select UNIT: " Formatting: !! Timeout: DTIME Variable: X Line Location: U+0
Function Call: WRITE	Prompt: !?3 Line Location: ALL+0
Function Call: WRITE	Prompt: !?3 Line Location: ALL+1
Function Call: WRITE	Prompt: $C(7) Line Location: ALL+1
Function Call: WRITE	Prompt: $C(7) Line Location: ALL+3
Function Call: WRITE	Prompt: $C(7),!!,"No units to choose from !",! Line Location: H+0
Function Call: WRITE	Prompt: !?3 Line Location: H+2
Function Call: WRITE	Prompt: $J(Z,2) Condition for execution: $D(Z(1)) Line Location: I+5
Function Call: WRITE	Prompt: ?7,$P(LRF,"^",2),?20,$J($P(LRF,"^",8),2)," ",$P(LRF,"^",9) Line Location: I+5
Function Call: WRITE	Prompt: ?28,Y Line Location: I+5
Function Call: WRITE	Prompt: $J($S(LRB=0:"<1",1:LRB),4)," ",$S(LRB>1:"DAYS",1:"DAY ")," OLD ",$J($P(LRF,"^",12),3) Line Location: I+6
Function Call: WRITE	Prompt: " ? " Condition for execution: '$P(LRF,"^",12)&($P(LRF,"^",12)'=0) Line Location: I+6
Function Call: WRITE	Prompt: " ml" Line Location: I+6
Function Call: WRITE	Prompt: !?3 Line Location: I+7
Function Call: READ	Prompt: "'^' TO STOP: " Timeout: DTIME Variable: A(2) Line Location: MORE+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13),?3 Line Location: MORE+1
Function Call: READ	Prompt: ": " Timeout: DTIME Variable: A(2) Line Location: C+1
Function Call: WRITE	Prompt: !?3 Line Location: C+2
Routine Call	DIC Line Location: P+2 U+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	H+1
^DD(66	P+3, P+4
^LAB(66 - [#66]	P+3, P+5, P+6, P+7
^LRD(65 - [#65]	U+2, ALL, ALL+2, H, H+1, H+2, I!, I+1!, I+2!, I+3 , I+4, D, OK
^TMP($J	ALL+1!, D*, F

Name	Line Occurrences
ALL	U+3
C	D, D+1
D	ALL+1, ALL+2
END	LRBLPED+3, LRBLPED+4, P, P+6, U
F	C
H	U
I	ALL, H+2, D
MORE	H+2
OK	I+4
P	P, P+1, P+2, P+5, P+8
U	U, U+1, U+2, U+3

Name	Field # of Occurrence
^(0	I+4
^(4	I+2
^(8	I+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	H+1*
>> %DT	LRBLPED+3*
>> A	P+5, ALL, ALL+1, ALL+2, H+2, I, I+1, I+2, D, MORE* , C+1, F+1
>> A(1	H+2, MORE+1
>> A(2	ALL+1, H+2, D, MORE, C, C+1, C+2, F, F+1
>> B	H+2, D
DIC	P+2!, U+2!
DIC("S"	P+2, U+2
DIC("W"	U+2*
DIC(0	P+2, U+2
DTIME	P, U, MORE, C+1
>> LR	P+1, U+1
>> LR("M"	LRBLPED+3*
>> LR(2	P+1, U+1
>> LR(3	LRBLPED+5*
>> LR(66	P+7*
>> LRA	P+7*, OK+2
>> LRAA(4	LRBLPED+3
>> LRB	I+6, OK+3*
>> LRC	P+5*, ALL, H, H+2, I, I+1, I+2, D
>> LRCAPA	LRBLPED+4, P+6
>> LRD	P+7*, OK+3
>> LRE	I+5*
LRF	U!, ALL, ALL+1, ALL+3, I+4, I+5, I+6, D!, D+1, OK+1! , OK+2!, OK+3, F
>> LRJ	U+3*, ALL, ALL+1, ALL+2, D
>> LRM	LRBLPED+3*, I+1, OK+2, OK+3
>> LRN	LRBLPED+3*, I
>> LRO	P+3*, P+5, P+6, P+7
>> LRP	P+7*
>> LRS	P+7*
>> LRT	P+6
>> LRT(	P+5*
>> LRV	P+7*, P+8
>> LRV(	P+7*
>> LRZ	P+7*
>> O	OK*, OK+1
>> O(1	OK*
>> Q	ALL, H+2, I, I+1, I+2, D*
U	P+3, P+4, P+6, P+7, P+8, U, U+2, H+1
>> V	I+2*, I+3, I+4, OK
X	LRBLPED+3, LRBLPED+4!, P, P+1, P+2, P+3, P+4, P+5, U, U+1 , U+2*, U+3, ALL+2, H+1, OK+2, OK+3
X("NOCODES"	LRBLPED+4*
>> X1	OK+2, OK+3
>> X2	OK+2, OK+3
>> Y	LRBLPED+3, P+2, P+5, P+8, U+2, I+5*
>> Y(0	P+3, P+4, P+7
Z	U!, I+5, D, D+1, C, C+1, F
Z(1	ALL+1*, I+5

Customize PDF page

Package: Lab Service

Routine: LRBLPED

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: