Routine: LRBLJTS2

Package	Total	Call Graph
Lab Service	1	H^LRBLJTS1

Package

Total

Call Graph

Lab Service

H^LRBLJTS1

Package	Total	Caller Graph
Lab Service	1	LRBLJTS1

Package

Total

Caller Graph

Lab Service

LRBLJTS1

Name	Field # of Occurrence
H^LRBLJTS1	H, H2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Total cost of all components: ",$J(LRT,9,2) Line Location: LRBLJTS2+5
Function Call: WRITE	Prompt: ! Line Location: LRBLJTS2+8
Function Call: WRITE	Prompt: LR("%") Condition for execution: A(3) Line Location: LRBLJTS2+8
Function Call: WRITE	Prompt: !,A(2),?20,$J($P(A(1),"^",2),5),?50,$J($P(A(1),"^"),8,2) Line Location: LRBLJTS2+8
Function Call: WRITE	Prompt: !,LR("%"),!,"Totals",?20,$J(S(1),5),?30,$J(S(2),5),?40,$J(S(3),5),?50,$J(S(4),8,2),?60,$J(S(5),8,2),?70,$J(S(6),8,2) Line Location: LRBLJTS2+9
Function Call: WRITE	Prompt: !!?3,T,?30,$J($P(T(1),"^",2),5),?60,$J($P(T(1),"^"),8,2) Line Location: B+0
Function Call: WRITE	Prompt: !?6,P,?40,$J($P(P(1),"^",2),5),?70,$J($P(P(1),"^"),8,2) Line Location: C+1
Function Call: WRITE	Prompt: !,T,?31,$J(Z(1),6),?43,$J(Z(1)/Z*100,4,1),?55,$J(K(1),9,2) Line Location: L+1
Function Call: WRITE	Prompt: !?31,"------",?55,"---------",!?31,$J(Z,6),?55,$J(K,9,2),!,LR("%") Line Location: L+2
Function Call: WRITE	Prompt: !,"Treating specialty",?31,"# units",?40,"% total units",?58,"Cost",!,LR("%") Line Location: H+0
Function Call: WRITE	Prompt: !!,C(1),":",! Line Location: H1+0
Function Call: WRITE	Prompt: "-" Line Location: H1+0
Function Call: WRITE	Prompt: !,"Administrative",?20,"Component",?30,"Specialty",?40,"Physician",?50,"Component",?60,"Specialty",?70,"Physician",!,"Category",?23,"Units",?33,"Units",?43,"Units",?53,"Cost",?63,"Cost",?73,"Cost",!,LR("%") Line Location: H2+1
Function Call: WRITE	Prompt: !,A(2)," (continued from ",LRQ-1,")" Line Location: H3+0
Function Call: WRITE	Prompt: !?6,T Line Location: H4+0

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	LRBLJTS2+4, LRBLJTS2+6, LRBLJTS2+8, B, C+1, A, A+1, T, T+1, L , L+1

Name	Line Occurrences
A	LRBLJTS2+6
B	LRBLJTS2+8
C	B
H	LRBLJTS2+4, H1
H1	LRBLJTS2+4, L+1
H2	LRBLJTS2+5, LRBLJTS2+8, H3
H3	B, H4
H4	C+1
L	LRBLJTS2+4
T	A

Name	Field # of Occurrence
^(	LRBLJTS2+4, LRBLJTS2+8, B, C+1, T, L+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LRBLJTS2+4, LRBLJTS2+6, LRBLJTS2+7, LRBLJTS2+8, B, C+1, A, A+1, T, T+1
>> A(1	LRBLJTS2+8, B, A, A+1, T+1*
>> A(2	LRBLJTS2+8, A, A+1, T+1*, H3
>> A(3	LRBLJTS2+8, H2+1
>> B	L+1*
>> C	LRBLJTS2+4*, L, L+1
>> C(1	LRBLJTS2+4*, H1
IOSL	LRBLJTS2+8, B, C+1, L+1, H1
>> K	L*, L+2
>> K(1	L+1*
>> LR("%"	LRBLJTS2+8, LRBLJTS2+9, L+2, H, H2+1
>> LR("Q"	LRBLJTS2+4, LRBLJTS2+5, LRBLJTS2+8, B, C+1, L+1, L+2, H, H1, H2 , H3, H4
>> LRF(	LRBLJTS2+8
>> LRQ	H3
>> LRT	LRBLJTS2+4, LRBLJTS2+5, L+2
>> P	C, C+1, T*
>> P(1	C+1*
>> S(	LRBLJTS2+7*
>> S(1	LRBLJTS2+9, B*
>> S(2	LRBLJTS2+9, C*
>> S(3	LRBLJTS2+9, C+1*
>> S(4	LRBLJTS2+9, B*
>> S(5	LRBLJTS2+9, C*
>> S(6	LRBLJTS2+9, C+1*
>> T	B, C+1, A, T, T+1, L, L+1, H4
>> T(1	B, C, T, T+1
>> T(2	T*, T+1
>> X	T, L, L+1, H1
>> X(1	T*
>> X(2	T*
>> Z	L*, L+1, L+2
>> Z(1	L+1*

Customize PDF page

Package: Lab Service

Routine: LRBLJTS2

Information

Source Information

Call Graph

Call Graph Total: 1

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
A
C
B
H2
H
H1
L
H4
T
H3