Routine: LRUWG

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

Package

Total

Call Graph

Lab Service

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

VA Fileman

^%DT ^DIC

Package	Total	Caller Graph
Lab Service	1	LRBLTTW

Package

Total

Caller Graph

Lab Service

LRBLTTW

Name	Field # of Occurrence
^%DT	D
^DIC	T, ASK
D^LRU	LRAD
F^LRU	H+1
L^LRU	QUE+1
M^LRU	H
SSN^LRU	TT+2
T^LRU	SCN
V^LRU	END
BEG^LRUTL	ST+3
END^LRUTL	ACN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"Single test worklist" Line Location: LRUWG+4
Function Call: WRITE	Prompt: $C(7),!,"No INSTITUTION designated in LAB TEST FILE (#60, field 6)",! Line Location: T+1
Function Call: WRITE	Prompt: $C(7),!,"No Accession AREA for this test",! Line Location: T+4
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: T ASK

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

Global Variables Directly Accessed

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

Name	Line Occurrences
ASK	T+3
D	D+1, D+2
END	LRUWG+4, T, D, ST, ST+1, ST+3, ACN+1
H	NEW, WRT, ZZ
L	SCN
LRAD	D
NEW	SCN
SCN	ZZ
ST	ST, ST+1
STF	TT+3
T	T+1, T+3, T+4
TT	ACN
WRT	ACN+1
ZZ	WRT

Name	Field # of Occurrence
^(	ACN, STF+1, ZZ
^(0	ACN, 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	TT+2*
DIC	T!, ASK!
DIC("B"	ASK*
DIC(0	T, ASK
DTIME	ST, ST+1
DUZ(2	QUE+1
>> F	T*, T+1, T+2, T+3, T+4, TT
>> HRCN	STF+4, STF+6
IOF	ACN+1
IOM	L+2
IOSL	ZZ, SCN
IOST	ACN+1, H
>> LR("%"	H+3
>> LR("F"	H, WRT*
>> LR("Q"	QUE+1*, H, NEW, WRT, ZZ, SCN
>> LRAA	T+4*, LRAD
>> LRAD	D+1, D+2, ACN, TT, TT+3, LRAD*
>> LRDFN	ACN*, TT+2
>> LRDPF	TT+2*
>> LRH(0	D+2, NEW, ZZ, LRAD*
>> LRLLOC	ACN*, STF+4, STF+6
>> LRP	TT+2*, STF+4, STF+6
>> LRPF	TT+2*, STF+4
>> LRQ	QUE+1, WRT
>> LRQ(1	QUE+1*
>> N	QUE+1, ACN, L, L+2, TT, TT+3, STF+4, STF+6, SCN
>> N(1	ST*, QUE+1
>> N(2	ST+1*, ACN
>> N(7	L+2, SCN*
>> P	STF+1*
>> POP	ST+3
>> SSN	TT+2*
>> T	TT, TT+3, STF+1, STF+4, STF+6, ZZ, SCN
>> T(1	TT+3*, STF+4, STF+6
>> T(2	NEW, ZZ*
>> T(3	NEW, ZZ*
>> T(4	TT+3*, STF+4, STF+6
>> T(5	L, ZZ, SCN
>> T(6	TT+3*, STF+4, STF+6
U	T, T+2, ST, ST+1, TT+2
>> V	TT+3*, STF+4, STF+6
>> W	T+4, D+2, ACN, H+1, TT, TT+3, STF+1, STF+2, STF+4, STF+6 , WRT, ZZ, SCN
>> W(1	T*, D+2
X	T+1, T+2, T+3, T+4, D+1, ACN, L+2, TT+2, STF+1, STF+2 , ZZ, ASK!, ASK+1, LRAD*
X(1	T+2*, ASK
>> Y	T, D, TT+2, SCN, ASK, ASK+1, LRAD*
>> Z	L, SCN*
>> ZTQUEUED	QUE
>> ZTREQ	QUE*
>> ZTRTN	ST+3*
>> ZTSK	ST+3

Customize PDF page

Package: Lab Service

Routine: LRUWG

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: