Routine: LRBLPED1

Package	Total	Call Graph
Lab Service	4	^LRBLPED2 DT^LRBLU (DT,YN)^LRU EN^LRUD
VA Fileman	2	^%DT C^%DTC

Package	Total	Caller Graph
Lab Service	1	LRBLPED

Entry Points

Name	Comments	DBIA/ICR reference
A
CK
VOL
W
V
DATE
PREP

External References

Name	Field # of Occurrence
^%DT	DATE, DATE+1
C^%DTC	DATE+1
^LRBLPED2	DATE+3
DT^LRBLU	DATE+3
DT^LRU	VOL+2
YN^LRU	PREP, DATE+2
EN^LRUD	W+2, V+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,$P(LRF,"^",2)," Cannot use this unit. Volume=0",!,"Please enter DISGARD in disposition field." Line Location: LRBLPED1+4
Function Call: WRITE	Prompt: !!,$P(LRF,"^",2),?20,$J($P(LRF,"^",8),2)," ",$P(LRF,"^",9) Line Location: VOL+2
Function Call: WRITE	Prompt: ?28,Y," Vol(ml): ",LRV(2)," Wt(gm): ",LRG Line Location: VOL+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!!,"To change the weight enter an 'E' or to change the volume enter a 'V'",!,"Press 'RETURN' or 'ENTER' key to accept default volume.",! Line Location: A+1
Function Call: READ	Prompt: "Enter volume(ml) for pediatric unit: " Formatting: !! Timeout: DTIME Variable: X Line Location: PREP+1
Function Call: WRITE	Prompt: $C(7),!!,"Volume must be whole number from 1 to ",$S(X>LRV(2):LRV(2),1:LRV(.4)) Line Location: PREP+1
Function Call: WRITE	Prompt: $C(7),"Sorry, the limit is 26 pediatric units from ",$P(LRF,"^",2),"." Line Location: PREP+3
Function Call: WRITE	Prompt: !!,LRI," ",LRABO," ",LRRH," vol(ml):",LRV(1) Line Location: PREP+4
Function Call: WRITE	Prompt: $C(7),!?3,"Cannot exceed expiration date of selected unit." Line Location: DATE+0
Function Call: WRITE	Prompt: $C(7),!?3,"Exceeds allowable expiration date" Line Location: DATE+1
Function Call: READ	Prompt: "Enter corrected weight in grams: " Formatting: ! Timeout: DTIME Variable: X Line Location: W+0
Function Call: WRITE	Prompt: R Line Location: W+0
Function Call: WRITE	Prompt: !,$C(7),"Enter a whole number from 1 to 500" Line Location: W+0
Function Call: READ	Prompt: "Enter corrected volume in ml: " Formatting: ! Timeout: DTIME Variable: X Line Location: V+0
Function Call: WRITE	Prompt: !,$C(7),"Enter a whole number from 1 to 500" Line Location: V+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LRD(65 - [#65]	VOL*, PREP+2, CK

Label References

Name	Line Occurrences
@(	A+2
CK	PREP+2
DATE	DATE, DATE+1
PREP	A, PREP+1
V	V
VOL	A+1, A+2
W	W

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PREP, DATE+2
%DT	DATE!, DATE+1
%DT("A"	DATE*
%DT(0	DATE*
>> A	PREP+2*
>> B	PREP+2*, PREP+3
>> C	CK*
>> DA	VOL+1*
DTIME	A, PREP+1, W, V
>> LR(66	DATE+1
>> LRABO	PREP+4*
>> LRE	DATE
>> LRE(1	DATE+1*
>> LRF	LRBLPED1+4, VOL, VOL+1, VOL+2, PREP+2, PREP+3, PREP+4, W+2, V+1*
>> LRG	VOL+1*, VOL+2
>> LRI	PREP+2*, PREP+4, CK
>> LRO(2	DATE+1*
>> LRP	CK
>> LRRH	PREP+4*
>> LRS	VOL+1, W+1
>> LRV	VOL, W+2, V+1
>> LRV(	PREP, PREP+1
>> LRV(1	PREP+2*, PREP+4
>> LRV(2	VOL+1*, VOL+2, A, PREP, PREP+1, W+2, V+1
>> LRX	VOL+1*
>> O	W+2, V+1
U	A, PREP+1, W, V
>> X	VOL+1, A, A+1, A+2, PREP+1, PREP+2, DATE+1, W, W+1, W+2 , V*, V+1
>> X1	DATE+1*
>> X2	DATE+1*
>> Y	VOL+1, VOL+2, DATE, DATE+1, W+1*
>> Z	VOL+1, PREP+2, CK, W+1, W+2, V+1

Customize PDF page

Package: Lab Service

Routine: LRBLPED1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: