Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: LRUET

Package: Lab Service

Routine: LRUET

Information

LRUET ;AVAMC/REG - RESULTS FOR A TEST RANGE ;2/18/93 12:43 ;

Source Information

Source file <LRUET.m>

Call Graph

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Lab Service	2	(B,DT,F,L,M,S,V)^LRU (BEG,END)^LRUTL
VA FileMan	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
ASK
A
B
QUE
C
S
D
LRT
W
H
H1
END

External References

Name	Field # of Occurrence
^DIC	LRUET+3, ASK
B^LRU	B+2
DT^LRU	W
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	LRUET+2, END
BEG^LRUTL	B+3
END^LRUTL	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LRUET+2
Function Call: WRITE	Prompt: $C(7),!,"Not a valid specimen for the test selected." Line Location: ASK+0
Function Call: READ	Prompt: "Select 1 or 2: " Variable: X Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: !!,?15,"1. Greater than a value",!?15,"2. Less than a value",! Line Location: A+0
Function Call: WRITE	Prompt: $C(7)," Enter 1 or 2" Line Location: A+0
Function Call: READ	Formatting: ! Prompt: "Select value: " Variable: X Timeout: DTIME Line Location: B+0
Function Call: WRITE	Prompt: $C(7),!,"Must be a numeric value." Line Location: B+0
Function Call: WRITE	Prompt: !!,LRP,?31,X Line Location: LRT+0
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: W+0
Function Call: WRITE	Prompt: !,^TMP($J,"B",LRP,LRI) Line Location: W+0
Function Call: WRITE	Prompt: ?31,N(1) Condition for execution: LRE=1 Line Location: W+0
Function Call: WRITE	Prompt: ?41,Y,?65,$J(LRX,5) Line Location: W+0
Function Call: WRITE	Prompt: !,LRQ(2)," From: ",LRSTR," to ",LRLST,!,"Report for: ",$P(^VA(200,DUZ,0),U),!,"Patient",?34,"SSN",!,"Location",?31,"Test",?45,"Date",?65,"Result",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LRP,?31,^TMP($J,LRP) Line Location: H1+0
Routine Call	DIC Line Location: LRUET+3 ASK

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(61 - [#61]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	S
^LAB(60 - [#60]	LRUET+4, ASK
^LR - [#63]	QUE+1, C, S
^TMP($J	QUE!, QUE+2!, S*, D, LRT, LRT+1, W, H1
^VA(200 - [#200]	H+1

Label References

Name	Line Occurrences
A	A
ASK	ASK
B	B
C	QUE+1
D	QUE+2
END	LRUET+3, ASK, A, B, QUE+2
H	QUE, LRT, H1
H1	LRT+1, W
LRT	D
S	C
W	LRT+1

Naked Globals

Name	Field # of Occurrence
^(	C, LRT+1
^(0	QUE+1, C

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	QUE+1*
>> DFN	S*
DIC	LRUET+3!, ASK!
DIC("A"	LRUET+2, ASK
DIC("S"	LRUET+3*
DIC(0	LRUET+3, ASK
DTIME	A, B
DUZ	H+1
IO	QUE
IOSL	LRT, LRT+1, W
IOST	H
>> LR("%"	H+1
>> LR("F"	QUE*, H
>> LR("Q"	D, LRT, LRT+1, W, H, H1
>> LRA	ASK, C, D
>> LRA(1	ASK*, B+1
>> LRB	B+1*, C
>> LRC	LRUET+4*, ASK
>> LRDFN	QUE+1, C, S, D, LRT+1
>> LRE	LRT+1*, W
>> LRG	A+1*, B+1, C
>> LRI	QUE+1, C, S, LRT+1, W
>> LRLDT	B+2*, QUE+1
>> LRLDT(1	B+2*
>> LRLST	H+1
>> LRN	LRUET+4*, C, S
>> LRP	S, D, LRT, LRT+1, W, H1
>> LRQ(2	B+1*, H+1
>> LRSDT	B+2*, QUE+1
>> LRSDT(1	B+2*
>> LRSTR	H+1
>> LRT	LRT+1*
>> LRX	LRT+1*, W
>> N(1	LRUET+4*, B+1, W
>> POP	B+3
>> SSN	S*
U	LRUET+4, ASK, A, B, H+1
>> X	A, A+1, B, B+1, C, S, LRT*
>> Y	LRUET+3, LRUET+4, ASK, B+2, W*
>> Y(0	LRUET+4
>> ZTRTN	B+3*
>> ZTSK	B+3

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All