Routine: LRBLPUS1

Package	Total	Call Graph
Lab Service	4	^LRBLBU ^LRBLPUS1 ^LRBLPUS2 (DT,RX,YN)^LRU
VA Fileman	2	^%DT ^DIC

Package

Total

Call Graph

Lab Service

^LRBLBU ^LRBLPUS1 ^LRBLPUS2 (DT,RX,YN)^LRU

VA Fileman

^%DT ^DIC

Package	Total	Caller Graph
Lab Service	2	LRBLPUS LRBLPUS1

Package

Total

Caller Graph

Lab Service

LRBLPUS LRBLPUS1

Name	Field # of Occurrence
^%DT	LRBLPUS1+3
^DIC	LRBLPUS1+6
^LRBLBU	LRBLPUS1+5
^LRBLPUS1	LRBLPUS1+8
^LRBLPUS2	ALL, ALL+1, ALL+3
DT^LRU	I+7
RX^LRU	H+1
YN^LRU	H+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7)," Enter a valid unit",!!,"You can only select units from your division [",LRAA(4),"]",!,"even though units from other divisions may be displayed." Line Location: LRBLPUS1+7
Function Call: WRITE	Prompt: !!,$C(7),"This unit currently unavailable. Please try another ",!! Line Location: LRBLPUS1+8
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: !!,"DISPLAY AVAILABLE UNITS FROM OTHER DIVISIONS AS WELL" Line Location: H+2
Function Call: WRITE	Prompt: !?3 Line Location: H+3
Function Call: WRITE	Prompt: $S($P(Y,"^",3)="A":"aut",$P(Y,"^",3)="D":"dir",1:"") Line Location: I+4
Function Call: WRITE	Prompt: $J(Z,2) Condition for execution: $D(Z(1)) Line Location: I+7
Function Call: WRITE	Prompt: ?7,$P(F,"^",2),?20,$J($P(F,"^",8),2)," ",$P(F,"^",9) Line Location: I+7
Function Call: WRITE	Prompt: ?28,Y Line Location: I+7
Function Call: WRITE	Prompt: ?28,Y Line Location: I+7
Function Call: WRITE	Prompt: ?45,$P($G(^DIC(4,Y,0)),U) Line Location: I+8
Function Call: WRITE	Prompt: !?48,$P(^LAB(61.3,O,0),"^") Line Location: I+9
Function Call: WRITE	Prompt: !?3 Line Location: I+10
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: LRBLPUS1+6

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	I+8
^LAB(61.3 - [#61.3]	I+9
^LAB(69.9 - [#69.9]	H+2
^LRD(65 - [#65]	LRBLPUS1+8, ALL, ALL+2, H, H+1, H+3, I!, I+1!, I+2!, I+3 , I+4, I+5, I+9, D, CK, CK+2
^TMP($J	ALL+1!, D*, F

Name	Line Occurrences
@(	OK+3
ALL	LRBLPUS1+9
C	D, D+1
CK	OK+2
D	ALL+1, ALL+2
F	C
H	LRBLPUS1+4
I	ALL, H+3, D
LRBLPUS1	LRBLPUS1+4, LRBLPUS1+7, LRBLPUS1+9
MORE	H+3
OK	I+6

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

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	H+1, H+2
>> %DT	LRBLPUS1+3*
A	LRBLPUS1+3!, ALL, ALL+1, ALL+2, H+3, I, I+1, I+2, D, MORE , C+1, F+1
A(1	H+3, MORE+1
A(2	ALL+1, H+3, D, MORE, C, C+1, C+2, F, F+1
>> B	H+3, D
>> C	ALL, H, H+3, I, I+1, I+2, D
>> C(19	I+5
>> C(7	I+6, OK, OK+2, OK+3
>> C(8	I+6, OK+1, OK+2, OK+4
>> C(9	I+9, OK+3, CK+2
DIC	LRBLPUS1+6*!
DIC("S"	LRBLPUS1+6*
DIC("W"	LRBLPUS1+6*
DIC(0	LRBLPUS1+6*
DTIME	LRBLPUS1+3, MORE, C+1
DUZ(2	H+2, I+3, I+8
F	LRBLPUS1+3!, ALL, ALL+1, ALL+3, I+5!, I+6, I+7, I+8, D!, D+1 , OK!, OK+1!, OK+3, OK+4!, CK+1!, CK+2!, O!, A!, B!, AP! , BP!, ABP!, F
>> H	LRBLPUS1+3*, I+1
>> I(7	I+6*, OK, O, A, B, AP, BP, ABP
>> I(8	I+6*, OK+1, OK+4
>> LR	LRBLPUS1+5
>> LR("M"	H+2*, I+3
>> LR(2	LRBLPUS1+5
>> LRAA(4	LRBLPUS1+7, H+1
>> LRB	I+5
>> LRB(1	LRBLPUS1+3!, ALL*, I+5
>> LRDFN	I+4
>> LRK	CK
>> LRPABO	OK, OK+3
>> LRPRH	OK+1, OK+4
>> LRV	I+7
>> N	LRBLPUS1+3*, I
>> O	I+9, CK, CK+1, CK+2*
>> O(1	I+9, CK+2
>> Q	ALL, H+3, I, I+1, I+2, D*
>> R	I+9, CK+2
>> R(	I+5, CK+2
U	LRBLPUS1+4, LRBLPUS1+6, H+1, H+2, I+8
>> V	I+2*, I+3, I+4, I+5, I+9, CK, CK+2
>> X	LRBLPUS1+3, LRBLPUS1+4, LRBLPUS1+5, LRBLPUS1+6, ALL, ALL+1, ALL+2, H+1, D
>> Y	LRBLPUS1+3, LRBLPUS1+6, LRBLPUS1+7, LRBLPUS1+8, I+4, I+7, I+8
Z	LRBLPUS1+3!, I+7, D, D+1, C, C+1, F
Z(1	ALL+1*, I+7

Customize PDF page

Package: Lab Service

Routine: LRBLPUS1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: