Routine: LRBLPT

Package	Total	Call Graph
Lab Service	4	^LRBLPT1 ^LRDPA (DT,V,YN)^LRU ^LRUTL
VA Fileman	1	(,IX)^DIC

Package

Total

Call Graph

Lab Service

^LRBLPT1 ^LRDPA (DT,V,YN)^LRU ^LRUTL

VA Fileman

(,IX)^DIC

Package	Total	Caller Graph
Lab Service	1	LRBLPT

Package

Total

Caller Graph

Lab Service

LRBLPT

Name	Field # of Occurrence
^DIC	T+1, T+3
IX^DIC	R+1
^LRBLPT1	T+7, SEL+4, ALL
^LRDPA	ASK
DT^LRU	N+5
V^LRU	END
YN^LRU	T+4
^LRUTL	LRBLPT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?28,"Enter transfusion results" Line Location: LRBLPT+4
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!!,"No units currently assigned/xmatched.",! Line Location: R+0
Function Call: WRITE	Prompt: ! Line Location: R+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: T+0
Function Call: WRITE	Prompt: !,"You may select a specialty not in the treating specialty file." Line Location: T+1
Function Call: WRITE	Prompt: $C(7),! Line Location: T+2
Function Call: WRITE	Prompt: ^(3) Condition for execution: $D(^(3)) Line Location: T+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Select units (1-",LRZ,") to enter TRANSFUSION results: " Line Location: SEL+0
Function Call: WRITE	Prompt: !,"Enter numbers from 1 to ",LRZ,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units." Line Location: SEL+0
Function Call: WRITE	Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed." Line Location: SEL+2
Function Call: WRITE	Prompt: $C(7),!,"START with a NUMBER !!",! Line Location: SEL+3
Function Call: WRITE	Prompt: ! Line Location: N+4
Function Call: WRITE	Prompt: $J(LRZ,2),") " Condition for execution: $D(LRG) Line Location: N+4
Function Call: WRITE	Prompt: $P(X,"^"),?17,$E(M,1,22),?40,$J($P(X,"^",7),2),?43,$P(X,"^",8),?48 Line Location: N+5
Function Call: WRITE	Prompt: Y,?64,F Line Location: N+5
Function Call: READ	Prompt: "Press RETURN" Formatting: ! Timeout: DTIME Variable: X Line Location: M+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13) Line Location: M+0
Routine Call	DIC Line Location: T+1 T+3
Routine Call	DIC Line Location: R+1

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(45.7 - [#45.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	T+2
^LAB(66 - [#66]	N+4
^LRD(65 - [#65]	R, T+6, N+1!, N+2*, N+3, N+4
^TMP($J	ASK!, SEL+4, N+4*, ALL

Name	Line Occurrences
ALL	SEL+1
ASK	ASK
END	LRBLPT+3, ASK
M	T+6
N	T+6
R	ASK
SEL	SEL, SEL+2, SEL+3
T	T+1, T+2, T+4

Name	Field # of Occurrence
^(	N+2, N+3
^(3	T+2, N+3
^(4	T+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	T+4*
>> D	R+1*
DIC	ASK!, R+1!, T+1!, T+3*!
DIC("A"	R+1*
DIC("B"	R+1*
DIC(0	R+1, T+1, T+3*
DIE	ASK!
DR	ASK!
DTIME	T, SEL, M
DUZ(2	N+2
>> F	N+3*, N+4, N+5
LRA	ASK!, T+6*, N+1, N+2, N+3, N+4
>> LRB	T+6, SEL+4, N
>> LRDFN	ASK, R, T+6, N+1, N+2, N+4
LRG	T+6*, T+7!, N+4
>> LRMD	R+1*
>> LRMD(1	R+1*
>> LRQ	SEL+4*
>> LRS	T, T+1, T+4, T+5
>> LRS(1	T+5*
>> LRV	T+7, SEL+4, ALL*
LRZ	ASK!, T+6, T+7, SEL, N+4
>> M	N+4*, N+5
U	R+1, T, SEL
>> X	LRBLPT+3, R+1, T, T+1, T+2, T+5, SEL, SEL+1, SEL+2, SEL+3 , SEL+4, N+2, N+3, N+4, N+5, M
>> Y	LRBLPT+3, R+1, T+4, T+5, N+5*

Customize PDF page

Package: Lab Service

Routine: LRBLPT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: