Routine: LRUW

Package	Total	Call Graph
Lab Service	2	(D,F,L,M,S,SSN,T,V)^LRU (BEG,END)^LRUTL
VA Fileman	2	^%DT ^DIC

Package

Total

Call Graph

Lab Service

(D,F,L,M,S,SSN,T,V)^LRU (BEG,END)^LRUTL

VA Fileman

^%DT ^DIC

Package	Total	Caller Graph
Lab Service	1	LRUW

Package

Total

Caller Graph

Lab Service

LRUW

Name	Field # of Occurrence
^%DT	D
^DIC	LRUW+5
D^LRU	LRAD
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
SSN^LRU	T+1
T^LRU	SCN
V^LRU	END
BEG^LRUTL	DEV
END^LRUTL	ACN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7)," Date not specific enough" Line Location: D+1
Function Call: WRITE	Prompt: $C(7),!!,"NO ",W(1)," ACCESSIONS IN FILE FOR ",LRH(0),! Line Location: D+2
Function Call: READ	Prompt: "Start from accn #: " Formatting: !! Timeout: DTIME Variable: N(1) Line Location: ST+0
Function Call: READ	Prompt: "Go to accn #: LAST// " Formatting: !! Timeout: DTIME Variable: N(2) Line Location: ST+1
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY" Line Location: ST+1
Function Call: WRITE	Prompt: !,$J(Z,3),") ",$J($S(T(5)>.999:T(5),1:T(5)*1000),5),?14,$P(N,"^",6) Line Location: L+0
Function Call: WRITE	Prompt: ! Condition for execution: $L($P(N,"^",6))>21 Line Location: L+0
Function Call: WRITE	Prompt: ?37,N(7),?49,$S(X:$P($G(^VA(200,X,0)),"^",2),1:X),?54,$P(N,"^",2),?60,$E($P(N,"^"),1,19),!?15 Line Location: L+1
Function Call: WRITE	Prompt: "-" Line Location: L+1
Function Call: WRITE	Prompt: ?29,N(7),?41,$S(X:$P($G(^VA(200,X,0)),"^",2),1:X),?45,$P(N,"^",2),?52,$E($P(N,"^"),1,20),?73,$P(N,"^",3),!?13 Line Location: L+2
Function Call: WRITE	Prompt: "-" Line Location: L+2
Function Call: WRITE	Prompt: !,^TMP($J,W,0)," Worklist",?40,"(* = STAT)" Line Location: H+1
Function Call: WRITE	Prompt: !,"COUNT",?6,"ACC#",?14,"RESULT",?29,"Completed",?40,"Tech",?45,"ID",?52,"PATIENT",?72,"LOCATION",!,LR("%"),! Line Location: H+3
Function Call: WRITE	Prompt: !?15,T(2),T(3),":",!,LRH(0) Line Location: NEW+0
Function Call: WRITE	Prompt: !?15,T(2),T(3),":",!,LRH(0) Line Location: ZZ+0
Routine Call	DIC Line Location: LRUW+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	T+1
^LAB(60 - [#60]	T+2, STF+1
^LR - [#63]	T+1
^LRO(68 - [#68]	D+2, ACN, T+2, STF+2, LRAD
^TMP($J	QUE!, ACN+1!, H+1, STF+1, STF+2, STF+4, STF+6, WRT, ZZ, SCN
^VA(200 - [#200]	L+2

Name	Line Occurrences
D	D+1, D+2
END	LRUW+4, LRUW+5, D, ST, ST+1, DEV, ACN+1
H	NEW, WRT, ZZ
L	SCN
LRAD	D
NEW	SCN
SCN	ZZ
ST	ST, ST+1
STF	T+2
T	ACN
WRT	ACN+1
ZZ	WRT

Name	Field # of Occurrence
^(	ACN, T+2, STF+1, ZZ
^(0	ACN, T+1, STF+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	D*
>> %DT("A"	D*
>> A	ACN*
>> A(8	ZZ*
>> C(6	STF+4*
>> DFN	T+1*
DIC	LRUW+5*!
DIC("A"	LRUW+4*
DIC(0	LRUW+5*
DTIME	ST, ST+1
>> HRCN	STF+4, STF+6
IO	QUE
IOF	ACN+1
IOM	L+2
IOSL	ZZ, SCN
IOST	ACN+1, H
>> LR("%"	H+3
>> LR("F"	H, WRT*
>> LR("Q"	H, NEW, WRT, ZZ, SCN
>> LRAA	LRUW+5*, LRAD
>> LRAD	D+1, D+2, ACN, T+2, LRAD*
>> LRDFN	ACN*, T+1
>> LRDPF	T+1*
>> LRH(0	D+2, NEW, ZZ, LRAD*
>> LRLLOC	ACN*, STF+4, STF+6
>> LRP	T+1*, STF+4, STF+6
>> LRPF	T+1*, STF+4
>> LRQ	WRT*
>> N	QUE, ACN, L, L+2, T+2, STF+4, STF+6, SCN
>> N(1	ST*, QUE
>> N(2	ST+1*, ACN
>> N(7	L+2, SCN*
>> P	STF+1*
>> POP	DEV
>> SSN	T+1*
>> T	T+2, STF+1, STF+4, STF+6, ZZ, SCN
>> T(1	T+2*, STF+4, STF+6
>> T(2	NEW, ZZ*
>> T(3	NEW, ZZ*
>> T(4	T+2*, STF+4, STF+6
>> T(5	L, ZZ, SCN
>> T(6	T+2*, STF+4, STF+6
U	LRUW+5, ST, ST+1, T+1
>> V	T+2*, STF+4, STF+6
>> W	LRUW+5, D+2, ACN, H+1, T+2, STF+1, STF+2, STF+4, STF+6, WRT , ZZ, SCN
>> W(1	LRUW+5*, D+2
>> X	LRUW+5, D+1, ACN, L+2, T+1, T+2, STF+1, STF+2, ZZ, LRAD*
>> Y	LRUW+5, D, T+1, T+2, SCN, LRAD
>> Z	L, SCN*
>> ZTRTN	DEV*
>> ZTSK	DEV

Customize PDF page

Package: Lab Service

Routine: LRUW

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:

Name	Comments	DBIA/ICR reference
STF	;
SCN
END
D
H
ACN
DEV
L
WRT
QUE
T	;S X=^LR(LRDFN,0),Y=$P(X,"^",3),LRDPF=$P(^(0),U,2),(X,LRPF)=^DIC($P(X,"^",2),0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU
ZZ
LRAD
NEW
ST