Routine: LRACSUM4

Package	Total	Call Graph
Lab Service	4	(LRNP,LRSH,UDT)^LRACSUM3 (C1,LRLO,TXT,TXT1)^LRACSUM5 HEAD^LRACSUM6 ($$Y2K,DASH)^LRX

Package

Total

Call Graph

Lab Service

(LRNP,LRSH,UDT)^LRACSUM3 (C1,LRLO,TXT,TXT1)^LRACSUM5 HEAD^LRACSUM6 ($$Y2K,DASH)^LRX

Package	Total	Caller Graph
Lab Service	1	LRACSUM3

Package

Total

Caller Graph

Lab Service

LRACSUM3

Name	Comments	DBIA/ICR reference
Y2K	;
BS4
BS	;EP - from LRACSUM3
BS1
BS2
YEAR	;

Name	Field # of Occurrence
LRNP^LRACSUM3	YEAR+14
LRSH^LRACSUM3	YEAR+12, YEAR+13
UDT^LRACSUM3	BS+9
C1^LRACSUM5	BS4
LRLO^LRACSUM5	BS+10
TXT^LRACSUM5	YEAR+11
TXT1^LRACSUM5	YEAR+11
HEAD^LRACSUM6	YEAR+14
$$Y2K^LRX	BS1
DASH^LRX	YEAR+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BS+12
Function Call: WRITE	Prompt: !,"Locale " Line Location: BS+13
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,"L"),10) Line Location: BS+13
Function Call: WRITE	Prompt: !,$E(LRTOPP,1,7),?6 Line Location: Y2K+1
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,0),10) Line Location: Y2K+1
Function Call: WRITE	Prompt: !?5 Line Location: YEAR+1
Function Call: WRITE	Prompt: $J(^TMP($J,"Y2K",I),10) Line Location: YEAR+1
Function Call: WRITE	Prompt: !?6 Line Location: YEAR+2
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,"T"),10) Line Location: YEAR+2
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,0),6)," " Line Location: YEAR+3
Function Call: WRITE	Prompt: ^TMP($J,"TY",I,0)_" " Line Location: YEAR+4
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,"T"),10) Line Location: YEAR+6
Function Call: WRITE	Prompt: ^TMP($J,"TY",I,"T")_" " Line Location: YEAR+7
Function Call: WRITE	Prompt: ! Line Location: YEAR+9
Function Call: WRITE	Prompt: !,"Comments: " Line Location: YEAR+10
Function Call: WRITE	Prompt: ?(10*LRTX-6),$C(96+I) Line Location: YEAR+10
Function Call: WRITE	Prompt: !,$C(96+I),". " Line Location: YEAR+11
Function Call: WRITE	Prompt: ^TMP($J,"TY",J,I) Condition for execution: J=0 Line Location: BS4+0
Function Call: WRITE	Prompt: ?LRCL Line Location: BS4+0
Function Call: WRITE	Prompt: @$P(LRG,U,4),X1 Condition for execution: $L($P(LRG,U,4))&(J<LRTT) Line Location: BS4+0
Function Call: WRITE	Prompt: $J(X,LRCW) Condition for execution: '$L($P(LRG,U,4))!(J'<LRTT) Line Location: BS4+0

Name	Line Occurrences (* Changed, ! Killed)
^LAB(64.5 - [#64.5]	BS+5, BS+11, YEAR+9
^TMP($J	BS+4!, BS+5, BS+9, BS+10, BS+11, BS+13, Y2K+1, YEAR+1, YEAR+2, YEAR+12! , YEAR+13, BS1, BS1+1, BS2, BS4

Name	Line Occurrences
BS	YEAR+15
BS1	BS+9
BS2	BS4
BS4	YEAR+9

Name	Field # of Occurrence
^(	BS+5, BS+9, BS1+1, BS2
^("D"	BS2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
I	BS+4!, BS+5, BS+10, BS+13, Y2K+1, YEAR+1, YEAR+2, YEAR+9, YEAR+10, YEAR+11 , BS2, BS4
I(	BS+5*, YEAR+9, BS1+1
I(1	BS+11
IOM	BS+4
>> J	BS1+1, BS2, BS4
>> K	BS+9*, BS1, BS1+1
>> LRCALE(	BS+13
>> LRCL	YEAR+9, BS2, BS4
>> LRCW	BS+4, BS4
>> LRDFN	BS+9, YEAR+13, BS1+1
>> LRDP	BS2*
>> LRFDT	BS+9, YEAR+11, YEAR+12, YEAR+13, YEAR+14, BS1, BS1+1
>> LRFULL	BS+10, YEAR+14
>> LRG	YEAR+9*, BS4
>> LRHI	BS+4*
>> LRII	BS+5*
>> LRLFDT	BS+9*, YEAR+14
>> LRLO	BS+4*
>> LRLOHI	BS+10
>> LRMH	BS+5, BS+9, BS+11, BS+13, YEAR+9, YEAR+13, BS1+1
>> LRMU	BS+4, BS+10, YEAR+14
>> LRMULT	BS+10
>> LROFDT	YEAR+11*, YEAR+12
>> LRSH	BS+5, BS+9, BS+11, BS+13, YEAR+9, YEAR+13, BS1+1
>> LRSHD	BS+10, YEAR+9, BS1+1
>> LRTOPP	Y2K+1
>> LRTT	BS+4, BS+9, BS+10, BS+11, BS+13, Y2K+1, YEAR+1, YEAR+2, BS1+1, BS4
LRTX	YEAR+10, YEAR+11, YEAR+12!
LRTX(	YEAR+10, YEAR+11, BS1+1*
LRTY	BS+4*, BS+9, BS+10, YEAR+12!
>> LRUDT	BS1
P3	BS+2~, BS+5*
P6	BS+2~, BS+5*
>> P7	BS+10
T1	BS2+1!
T3	BS2+1!
U	BS+5, BS+9, BS+11, BS2, BS4
>> X	BS2*, BS4
>> X1	BS2*, BS4
>> Z	BS+5, BS+9

Customize PDF page

Package: Lab Service

Routine: LRACSUM4

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: