Routine: LRULB1

Package	Total	Call Graph
Lab Service	3	(F,M,V)^LRU ^LRUP END^LRUTL

Package

Total

Call Graph

Lab Service

(F,M,V)^LRU ^LRUP END^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRULB

Package

Total

Caller Graph

Lab Service

LRULB

Name	Field # of Occurrence
F^LRU	H+1
M^LRU	H
V^LRU	LRULB1+5
^LRUP	PRT+1
END^LRUTL	LRULB1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?7,$E(LRP,1,15),?24,$E(O(1),1,14),?48,H(2),?65,H(1) Line Location: PRT+4
Function Call: WRITE	Prompt: !,LRC(5) Condition for execution: $L(LRC(5)) Line Location: W+1
Function Call: WRITE	Prompt: !!,LR("%") Line Location: W+1
Function Call: WRITE	Prompt: !?8,HRCN,?27,LRLLOC Condition for execution: A<1 Line Location: W+2
Function Call: WRITE	Prompt: !,LRC(5) Condition for execution: $L(LRC(5)) Line Location: W+2
Function Call: WRITE	Prompt: !!,LR("%") Line Location: W+2
Function Call: WRITE	Prompt: !?7,SSN,?27,LRLLOC Condition for execution: A=0 Line Location: LIST+0
Function Call: WRITE	Prompt: ! Condition for execution: A>0 Line Location: LIST+0
Function Call: WRITE	Prompt: ?50,$E(X,1,30) Line Location: LIST+0
Function Call: WRITE	Prompt: !?7,HRCN,?27,LRLLOC Condition for execution: A=0 Line Location: LIST+1
Function Call: WRITE	Prompt: ! Condition for execution: A>0 Line Location: LIST+1
Function Call: WRITE	Prompt: ?50,$E(X,1,30) Line Location: LIST+1
Function Call: WRITE	Prompt: ! Condition for execution: Q>0 Line Location: LST+0
Function Call: WRITE	Prompt: ?46,$S($D(^LAB(61,O(1),0)):$E($P(^LAB(61,O(1),0),"^"),1,14),1:"") Line Location: LST+0
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE",?22,LRAA(1)," Log-Book for ",LRH(0) Line Location: H+1
Function Call: WRITE	Prompt: !,"#= Not PATIENT file",?48,"\|-------Date/time----\|",!,"Acc no",?14,"Name",?24,"Spec/Sample",?39,"Results",?48,"Received",?65,"Taken",!?14,"HRCN",?24,"Location",?58,"Tests" Line Location: H+3
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+4

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LIST+1
^LAB(61 - [#61]	PRT+3, LST
^LR - [#63]	PRT+1, ORG
^LRO(68 - [#68]	LRULB1+4, PRT, PRT+2, W

Name	Line Occurrences
H	LRULB1+4, PRT+4
LIST	W
LST	ORG
ORG	PRT+5
PRT	LRULB1+4
T	PRT+2

Name	Field # of Occurrence
^(	W, ORG
^(0	PRT, PRT+1, PRT+2, LIST+1
^(3	PRT

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	W*, W+2, LIST+1
>> B	LRULB1+4*
>> C(1	PRT+2*, PRT+3
>> H(1	PRT+2*, PRT+4
>> H(2	PRT+2*, PRT+4
>> HRCN	W+2, LIST+1
IOF	LRULB1+5
IOSL	PRT+4
IOST	LRULB1+5, H
>> LR("%"	W+2, H+4
>> LR("F"	LRULB1+4*, H
>> LR("Q"	LRULB1+4, PRT+4, W, ORG, H
>> LRAA	LRULB1+4, PRT, PRT+2, W
>> LRAA(1	H+1
>> LRAD	LRULB1+4, PRT, PRT+2, W
>> LRAN	LRULB1+4*, PRT, PRT+2, PRT+4, W
>> LRC(5	PRT*, W+2
>> LRDFN	PRT*, PRT+1, ORG
>> LRH(0	H+1
>> LRI	PRT+1*, ORG
>> LRLLOC	PRT*, W+2, LIST+1
>> LRP	PRT+4
>> LRSS	PRT+5, ORG
>> N(1	LRULB1+4
>> N(2	LRULB1+4
>> N(3	PRT*, PRT+1, PRT+2
>> O	ORG*
>> O(1	PRT+2, PRT+3, PRT+4, ORG*, LST
>> P("F"	PRT+4
>> Q	ORG*, LST
>> X	T, PRT, PRT+1, PRT+2, W, LIST+1
>> Y	T*, PRT+2
>> Z	W*

Customize PDF page

Package: Lab Service

Routine: LRULB1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
H
LIST	;S X=$S($D(^LAB(60,X,0)):$P(^(0),"^"),1:"??") W:A=0 !?7,SSN,?27,LRLLOC W:A>0 ! W ?50,$E(X,1,30)
PRT
LST
T
W
ORG