Routine: LRACSUM6

Package	Total	Call Graph
Lab Service	1	($$Y2K,DASH,EQUALS)^LRX
VA Fileman	1	C^%DTC

Package

Total

Call Graph

Lab Service

($$Y2K,DASH,EQUALS)^LRX

VA Fileman

C^%DTC

Package	Total	Caller Graph
Lab Service	3	LRACSUM3 LRACSUM4 LRACSUM5

Package

Total

Caller Graph

Lab Service

LRACSUM3 LRACSUM4 LRACSUM5

Name	Field # of Occurrence
C^%DTC	Y+3
$$Y2K^LRX	Y2K1+2, Y+3
DASH^LRX	WR+5
EQUALS^LRX	WR, END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LRBOT+1
Function Call: WRITE	Prompt: ! Line Location: Y+0
Function Call: WRITE	Prompt: " From: ",Y," To: " Line Location: Y+3
Function Call: WRITE	Prompt: Y Line Location: Y+3
Function Call: WRITE	Prompt: ?(IOM-13)," PAGE: ",$S($D(LRMISC):"MISC",1:LRMH),":",LRPG Line Location: Y+4
Function Call: WRITE	Prompt: !?LRTAB,$E(LRMHN,1,IOM-LRTAB) Line Location: Y+5
Function Call: WRITE	Prompt: @IOF,! Line Location: TOP+1
Function Call: WRITE	Prompt: $P(X,U,1),?20,$P(X,U,2),?33,"AGE: ",$P(X,U,3) Line Location: TOP+2
Function Call: WRITE	Prompt: $P(X,U,1),?20,$P(X,U,2),?33,"DOB: ",$P(X,U,3) Line Location: TOP+4
Function Call: WRITE	Prompt: ?(IOM-42)," LOC: ",^(.1) Line Location: TOP+6
Function Call: WRITE	Prompt: ?(IOM-22),LRCDT,?(IOM-12)," PAGE: ",$S($D(LRMISC):"MISC",1:LRMH),":",LRPG Line Location: TOP+7
Function Call: WRITE	Prompt: !,"VAMC ",$S($D(^LAB(64.5,1,1,LRMH,0)):$P(^(0),U,2),1:"") Condition for execution: LRBOT="T" Line Location: TOP+7
Function Call: WRITE	Prompt: !!,LRUDT,?15,LRSPEM,?36,LRNAME,":",?50,LRVAL," ",X1," ",LRUNT,?67 Line Location: WR1+0
Function Call: WRITE	Prompt: LRLO,"-",LRHI Condition for execution: $L(LRLO) Line Location: WR1+0
Function Call: WRITE	Prompt: !! Line Location: MSG+0
Function Call: WRITE	Prompt: !,"COMMENT: ",LRVAL Line Location: COMM+0
Function Call: WRITE	Prompt: !!!?LRCL Line Location: WR+2
Function Call: WRITE	Prompt: "* " Line Location: WR+2
Function Call: WRITE	Prompt: " ",$E(LRMHN,I) Line Location: WR+3
Function Call: WRITE	Prompt: " " Line Location: WR+4
Function Call: WRITE	Prompt: " *" Line Location: WR+4
Function Call: WRITE	Prompt: !!," DATE TIME SPECIMEN",?37,"TEST",?50,"VALUE",?64,"Ref ranges" Line Location: WR+5
Function Call: WRITE	Prompt: !,^(I,0) Line Location: TXT+0

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TOP+6
^LAB(60 - [#60]	LRMIT+2
^LAB(61 - [#61]	LRMIT+1
^LAB(64.5 - [#64.5]	Y+4, TOP+7
^TMP($J	Y+1, TOP+2, TOP+4, MHI, MDT, LRMIT, TXT, PRE+1, LRCNT, LRCNT+1

Name	Line Occurrences
COMM	LRMIT+2
END	MDT
HEAD	KILL, WR+1
LRBOT	HEAD+1, END+1
LRCNT	MDT
LRMISC	PRE+1
LRMIT	WR1+1, MSG, COMM, TXT+1
LRUDT	MDT
MDT	LRMIT
MSG	LRMIT
TOP	HEAD+1, LRMISC
TXT	LRMIT
WR	MHI, MDT
Y	Y

Name	Field # of Occurrence
^(	TOP+6, LRMIT, TXT, LRCNT+1
^(0	Y+1, Y+4, TOP+7, LRMIT+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> I	LRUDT, WR+2, WR+3, WR+4, TXT, LRCNT
IOF	TOP+1
IOM	Y+1, Y+4, Y+5, TOP+6, TOP+7
IOSL	Y, MDT, WR
>> J	LRCNT+1*
>> LRAG	TOP+8*
>> LRBOT	Y+4, TOP+7
>> LRCDT	TOP+7
>> LRCL	WR+2*
>> LRCNT	MHI, MDT, WR, LRCNT, LRCNT+2*
>> LRCTN	LRCNT+1*, LRCNT+2
>> LRDFN	Y+1, TOP+2, TOP+4, MHI, MDT, LRMIT, TXT, PRE+1, LRCNT, LRCNT+1
>> LRDIS	Y+1, Y+3
>> LRFDT	LRUDT, Y2K1+2, LRMISC, MDT, LRMIT, TXT, LRCNT, LRCNT+1
>> LRHI	LRMIT+1*, WR1
>> LRIN	Y+3
>> LRLLOC	Y+1
>> LRLO	LRMIT+1, WR1, END+1
>> LRMH	Y+4, Y+5, TOP+7, MHI, PRE+1*, LRCNT, LRCNT+1
>> LRMHN	Y+5, MHI*, WR+2, WR+3
LRMISC	Y+4, TOP+7, END+1!, PRE+1*
>> LRMIT	MDT, LRMIT
>> LRNAME	LRMIT+2*, WR1
>> LROUT	Y+3
>> LRPG	Y+4, Y+5, TOP+7, LRMISC, PRE+1*
LRSB	END+1!
>> LRSPE	LRMIT+1*, LRMIT+2
>> LRSPEM	LRMIT+1*, WR1
>> LRTAB	Y+5*
>> LRTEST	LRMIT+1*, LRMIT+2
>> LRTIM	LRUDT, LRUDT+2, Y2K1+2
>> LRUDT	Y2K1+2*, WR1
>> LRUNT	LRMIT+2*, WR1
>> LRVAL	LRMIT+1*, WR1, COMM
U	Y+1, Y+4, TOP+2, TOP+4, TOP+6, TOP+7, MHI, LRMIT+1, LRMIT+2
>> X	Y+3, TOP+2, TOP+4, TOP+6, LRMIT, LRMIT+1, LRMIT+2, MSG
>> X1	Y+3, LRMIT+1, WR1
>> X2	Y+3*
>> Y	Y+3*

Customize PDF page

Package: Lab Service

Routine: LRACSUM6

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRE	;from LRACSUM3
HEAD	;from LRACSUM3, LRACSUM4, LRACSUM5
END
MHI
MSG
TOP	;from LRACSUM3
LRMISC
LRUDT
KILL
Y2K1	;
LRCNT
WR1
Y
COMM
TXT
LRBOT	;from LRACSUM3
LRMIT
MDT
WR