Routine: LRBLPED

Information

LRBLPED ;AVAMC/REG/CRT - PEDIATRIC UNIT PREPARATION ;7/30/95 15:36 ; 12/18/00 2:19pm

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Lab Service	6	($$READ,$$STRIP,BAR,P)^LRBLB ^LRBLBU ^LRBLPED1 (DT,RX,V)^LRU ^LRUTL X^LRUWK
VA FileMan	5	^%DT (,C)^%DTC EN^DDIOL ^DIC $$GET1^DIQ

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
P
U
ALL
H
I
D
OK
MORE
C
F
END
SCRN()	; Screen for BLOOD PRODUCT file (#66)
LRP(DA)	; Find & return Product Code to be used for next child

External References

Name	Field # of Occurrence
^%DT	LRBLPED+6
^%DTC	OK+3
C^%DTC	OK+2, OK+3
EN^DDIOL	LRP+21, LRP+22
^DIC	P+5, U+5
$$GET1^DIQ	SCRN+12, LRP+11, LRP+13
$$READ^LRBLB	P, U
$$STRIP^LRBLB	P+3, U+3
BAR^LRBLB	LRBLPED+8
P^LRBLB	P+2
^LRBLBU	U+2
^LRBLPED1	ALL, ALL+1, ALL+3
DT^LRU	I+5
RX^LRU	H+1
V^LRU	END
^LRUTL	LRBLPED+6
X^LRUWK	LRBLPED+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?15,"Division: ",LRAA(4) Line Location: LRBLPED+6
Function Call: WRITE	Prompt: !! Line Location: P+0
Function Call: WRITE	Prompt: $C(7)," SPACE BAR not allowed." Line Location: P+0
Function Call: WRITE	Prompt: $$STRIP^LRBLB(.X) Line Location: P+3
Function Call: WRITE	Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",! Line Location: P+4
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+5
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+6
Function Call: WRITE	Prompt: $C(7),!,$P(^DD(66,.23,0),U)," must be entered for this component" Line Location: P+7
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+9
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+11
Function Call: WRITE	Prompt: $$STRIP^LRBLB(.X) Line Location: U+3
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: " Variable: A(2) Timeout: DTIME Line Location: MORE+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13),?3 Line Location: MORE+1
Function Call: READ	Prompt: ": " Variable: A(2) Timeout: DTIME Line Location: C+1
Function Call: WRITE	Prompt: !?3 Line Location: C+2
Routine Call	DIC Line Location: P+5 U+5

FileNo	Call Tags
^LRD(65 - [#65]	GET1^DIQ
^LAB(66 - [#66]	GET1^DIQ

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$LRP	U+6
ALL	U+8
C	D, D+1
D	ALL+1, ALL+2
END	LRBLPED+6, LRBLPED+7, P, P+9, U
F	C
H	U
I	ALL, H+2, D
MORE	H+2
OK	I+4
P	P, P+4, P+5, P+8, P+11, U+8
U	U, U+4, U+5, U+7

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	H+1*
>> %DT	LRBLPED+6*
>> A	P+8, 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
ANS	SCRN+2~, SCRN+4, SCRN+8, SCRN+10, SCRN+11, SCRN+14*, SCRN+15
>> B	H+2, D, LRP+9, LRP+16
DA	LRP~, LRP+11, LRP+13, LRP+15
DIC	P+5!, U+5!
DIC("S"	P+5, U+5
DIC("W"	U+5*
DIC(0	P+5, U+5
DTIME	MORE, C+1
>> LR	P+1, U+1
>> LR("M"	LRBLPED+6*
>> LR(2	P+1, U+1
>> LR(3	LRBLPED+8*
>> LR(66	P+10*
>> LRA	P+10*, OK+2
>> LRAA(4	LRBLPED+6
>> LRB	I+6, OK+3*
LRBLAST	LRP+7~, LRP+15*, LRP+16, LRP+17
LRBLBP	LRP+7~, LRP+18*, LRP+19
LRBLPC	LRP+7~, LRP+13*, LRP+18
LRBLSFX	LRP+7~, LRP+17*, LRP+18
>> LRC	P+8*, ALL, H, H+2, I, I+1, I+2, D
>> LRCAPA	LRBLPED+7, P+9
>> LRD	P+10*, 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+8*, ALL, ALL+1, ALL+2, D
>> LRM	LRBLPED+6*, I+1, OK+2, OK+3
>> LRN	LRBLPED+6*, I
>> LRO	P+6*, P+8, P+9, P+10
LRP	P+10, U+6, U+7, LRP+7~, LRP+19*, LRP+20, LRP+23
>> LRS	P+10*
>> LRT	P+9
>> LRT(	P+8*
>> LRV	P+10*, P+11
>> LRV(	P+10*
>> LRZ	P+10*
>> O	OK*, OK+1
>> O(1	OK*
PCODE	SCRN+2~, SCRN+6*, SCRN+11
PEDICODE	SCRN+2~, SCRN+12*, SCRN+14
>> Q	ALL, H+2, I, I+1, I+2, D*
U	P+6, P+7, P+9, P+10, P+11, U, U+5, H+1, SCRN+6, SCRN+8 , SCRN+9, SCRN+10, SCRN+12
>> V	I+2*, I+3, I+4, OK
X	LRBLPED+6, LRBLPED+7!, P, P+1, P+3, P+4, P+5, P+6, P+7, P+8 , U, U+1, U+3, U+4, U+5, U+8, ALL+2, H+1, OK+2, OK+3 , SCRN+2~, SCRN+5, SCRN+6, SCRN+8, SCRN+9, SCRN+10, SCRN+12
X("NOCODES"	LRBLPED+7*
>> X1	OK+2, OK+3
>> X2	OK+2, OK+3
>> Y	LRBLPED+6, P+5, P+8, P+11, U+5, U+6, I+5*
>> Y(0	P+6, P+7, P+10
Z	U!, I+5, D, D+1, C, C+1, F
Z(1	ALL+1*, I+5

Customize PDF page

Package: Lab Service