Routine: LRAC4

Package	Total	Call Graph
Lab Service	6	(LRNP,LRSH,UDT)^LRAC3 (HEAD,HEAD1)^LRAC6 OVFL^LRAC7 (C1,LRLO,TXT,TXT1)^LRAC9 ^LRAIRNUM ($$Y2K,DASH)^LRX

Package

Total

Call Graph

Lab Service

(LRNP,LRSH,UDT)^LRAC3 (HEAD,HEAD1)^LRAC6 OVFL^LRAC7 (C1,LRLO,TXT,TXT1)^LRAC9 ^LRAIRNUM ($$Y2K,DASH)^LRX

Package	Total	Caller Graph
Lab Service	1	LRAC3

Package

Total

Caller Graph

Lab Service

LRAC3

External References

Name	Field # of Occurrence
LRNP^LRAC3	YEAR+21
LRSH^LRAC3	YEAR+19, YEAR+20
UDT^LRAC3	BS1+1
HEAD^LRAC6	YEAR+21
HEAD1^LRAC6	YEAR+19, YEAR+20, YEAR+21
OVFL^LRAC7	YEAR+18
C1^LRAC9	BS4
LRLO^LRAC9	BS+14
TXT^LRAC9	YEAR+18
TXT1^LRAC9	YEAR+18
^LRAIRNUM	IA
$$Y2K^LRX	BS1
DASH^LRX	YEAR+12

Interaction Calls

Name	Line Occurrences
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
Function Call: WRITE	Prompt: ! Line Location: BS+16
Function Call: WRITE	Prompt: IA(0) Line Location: BS+16
Function Call: WRITE	Prompt: IA(0) Line Location: BS+16
Function Call: WRITE	Prompt: !,"Locale " Line Location: BS+18
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,"L"),10) Line Location: BS+18
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+7
Function Call: WRITE	Prompt: ^TMP($J,"TY",I,0)_" " Line Location: YEAR+8
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,"T"),10) Line Location: YEAR+10
Function Call: WRITE	Prompt: " " Line Location: YEAR+10
Function Call: WRITE	Prompt: ^TMP($J,"TY",I,"T")_" " Line Location: YEAR+11
Function Call: WRITE	Prompt: ! Line Location: YEAR+13
Function Call: WRITE	Prompt: ! Line Location: YEAR+15
Function Call: WRITE	Prompt: !,"Comments: " Line Location: YEAR+17
Function Call: WRITE	Prompt: ?(10*LRTX-6),$C(96+I) Line Location: YEAR+17
Function Call: WRITE	Prompt: !,$C(96+I),". " Line Location: YEAR+18

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	IA
^LAB(64.5 - [#64.5]	BS+5, BS+15, YEAR+15
^LAC(	BS1+3, BS3, BS+12, YEAR+20
^LR - [#63]	IA
^TMP($J	BS1, BS1+1, BS1+3, BS2, BS4, BS+4!, BS+5, BS+14, BS+15, BS+20 , Y2K+3, YEAR+4, YEAR+5, YEAR+19!

Name	Line Occurrences
BS	YEAR+22
BS1	BS+12
BS2	BS4
BS3	BS1+3
BS4	YEAR+15
IA	BS1+1

Name	Field # of Occurrence
^(	BS2, BS+5
^("D"	BS2
^(0	BS1+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DUZ("AG"	IA
I	BS2, BS4, BS+4!, BS+5, BS+14, BS+16, BS+20, Y2K+3, YEAR+4, YEAR+5 , YEAR+15, YEAR+17, YEAR+18*
I(	BS1+3, BS+5*, BS+14, YEAR+15
I(1	BS+15
IA	BS+17!
IA(	BS+16, IA*
IA(0	BS+16, IA*
IADA	BS+17!, IA*
IARNO	BS+17!, IA
IAX	BS+17!, IA*
IOM	BS+4
IOSL	YEAR+18
>> J	BS1+3, BS2, BS4
>> K	BS1, BS1+1, BS1+3, BS+12*, IA
>> LRCALE(	BS+20
>> LRCL	BS2, BS4, YEAR+15
>> LRCW	BS4, BS+4
>> LRDFN	BS1+3, BS3, BS+12, YEAR+20, IA
>> LRDP	BS2*
>> LRDPF	IA
>> LRFDT	BS1, BS1+1, BS1+3, BS3, BS+12, YEAR+18, YEAR+19, YEAR+20, YEAR+21, IA
>> LRFULL	BS+14, YEAR+21
>> LRG	BS4, YEAR+15*
>> LRHI	BS+4*
>> LRII	BS+5*
>> LRKL	BS1+3*
>> LRLFDT	BS1+1*, YEAR+21
>> LRLO	BS+4*
>> LRLOHI	BS+14
>> LRMH	BS1+3, BS3, BS+5, BS+12, BS+15, BS+20, YEAR+15, YEAR+20
>> LRMU	BS+4, BS+14, YEAR+21
>> LRMULT	BS+14
>> LROFDT	YEAR+18*, YEAR+19
>> LRSH	BS1, BS1+3, BS3, BS+5, BS+12, BS+15, BS+20, YEAR+15, YEAR+20
>> LRSHD	BS1+3, BS+14, YEAR+15
>> LRTOPP	Y2K+3
>> LRTT	BS1, BS3, BS4, BS+4, BS+14, BS+15, BS+16, BS+20, Y2K+3, YEAR+4 , YEAR+5
LRTX	YEAR+17, YEAR+18, YEAR+19!
LRTX(	BS3*, YEAR+17, YEAR+18
LRTY	BS+4*, BS+12, BS+14, YEAR+19!
>> LRUDT	BS1+1
>> LRXLR	BS1+3, BS3, BS+12, YEAR+20
P3	BS+2~, BS+5*
P6	BS+2~, BS+5*
P7	BS+14!
T1	BS1+3*, BS1+4!
T3	BS1+3*, BS1+4!
U	BS1, BS1+3, BS2, BS4, BS+5, BS+15, IA
>> X	BS2*, BS4
>> X1	BS2*, BS4
>> Z	BS1, BS+5, BS+12

Customize PDF page

Package: Lab Service

Routine: LRAC4

Information

Source Information

Call Graph

Call Graph Total: 6

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
Y2K	; ; W !,$E(LRTOPP,1,7),?6 F I=1:1:(LRTT+1) W $J(^TMP($J,"TY",I,0),10)
BS4
YEAR	; ; W !?5 F I=1:1:(LRTT-1) W $J(^TMP($J,"Y2K",I),10) ; W !?6 F I=1:1:(LRTT+1) W $J(^TMP($J,"TY",I,"T"),10)
BS1
BS2
BS3
BS	;EP - from LRAC3
IA