Routine: LRBLPED1

Information

LRBLPED1 ;AVAMC/REG/CRT - PEDIATRIC UNIT PREPARATION ;2/6/91 09:18 ; 11/28/00 10:31am

Call Graph

Call Graph Total: 6

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

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: 1

Package	Total	Caller Graph
Lab Service	1	LRBLPED

Entry Points

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

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+3
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	Variable: X Timeout: DTIME 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	Formatting: !! Prompt: "Enter volume(ml) for pediatric unit: " Variable: X Timeout: DTIME 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+6
Function Call: WRITE	Prompt: !!,LRI," ",LRABO," ",LRRH," vol(ml):",LRV(1) Line Location: PREP+7
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	Formatting: ! Prompt: "Enter corrected weight in grams: " Variable: X Timeout: DTIME 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	Formatting: ! Prompt: "Enter corrected volume in ml: " Variable: X Timeout: DTIME 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)
^LAB(66 - [#66]	PREP+3
^LRD(65 - [#65]	VOL*, PREP+3, PREP+5, CK

Label References

Name	Line Occurrences
@(	A+2
CK	PREP+5
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+5*
>> B	PREP+2, PREP+5, PREP+6
>> C	CK*
>> DA	VOL+1*
DTIME	A, PREP+1, W, V
>> LR(66	DATE+1
>> LRABO	PREP+7*
>> LRE	DATE
>> LRE(1	DATE+1*
>> LRF	LRBLPED1+3, VOL, VOL+1, VOL+2, PREP+3, PREP+4, PREP+5, PREP+6, PREP+7, W+2 , V+1*
>> LRG	VOL+1*, VOL+2
>> LRI	PREP+4, PREP+5, PREP+7, CK
>> LRO(2	DATE+1*
>> LRP	CK
>> LRRH	PREP+7*
>> LRS	VOL+1, W+1
>> LRV	VOL, W+2, V+1
>> LRV(	PREP, PREP+1
>> LRV(1	PREP+2*, PREP+7
>> 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+5, CK, W+1, W+2, V+1

Customize PDF page

Package: Lab Service