Routine: LRUPAD2

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

Package

Total

Call Graph

Lab Service

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

VA Fileman

^DIC

Package	Total	Caller Graph
Lab Service	1	LRUPAD

Package

Total

Caller Graph

Lab Service

LRUPAD

Name	Field # of Occurrence
^DIC	P+12, P+16
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
SSN^LRU	P+19
V^LRU	END
WAIT^LRU	QUE
BEG^LRUTL	LRUPAD2+7
END^LRUTL	QUE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J(B,3),")",?5,M,?12,$E(V,1,19),?31,$J(N,5),?37 Line Location: NEW+5
Function Call: WRITE	Prompt: $E($P(LRX,"^"),1,5),?44,$P(LRX,"^",5),?52,$E($P(LRX,"^",2),1,5) Line Location: NEW+5
Function Call: WRITE	Prompt: ?40,"Entry not in lab data file." Line Location: O+1
Function Call: WRITE	Prompt: ?44,Z(2) Line Location: L+1
Function Call: WRITE	Prompt: ?45,$S($D(^LAB(61,C(3),0)):$E($P(^LAB(61,C(3),0),"^"),1,26),1:"") Line Location: L+2
Function Call: WRITE	Prompt: ?59,$E($P(^LAB(60,+Z(1),0),"^"),1,15) Line Location: T+1
Function Call: WRITE	Prompt: ?76,$E(TECH,1,4) Line Location: T+4
Function Call: WRITE	Prompt: !,$J(B,3),")",?5,M,?12,$E(V,1,19) Line Location: B+3
Function Call: WRITE	Prompt: ! Condition for execution: E>0 Line Location: C+0
Function Call: WRITE	Prompt: ?31,$J(N,5),?37,$J($P(LRX,"^"),5),?44,$P(LRX,"^",5) Line Location: C+0
Function Call: WRITE	Prompt: ?52,$E($P(LRX,"^",2),1,5) Line Location: C+1
Function Call: WRITE	Prompt: !,LRO(68)," ACCESSIONS(",LRSTR,"-",LRLST,")" Line Location: H+2
Function Call: WRITE	Prompt: !,"# = Not IHS patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"") Line Location: H+4
Function Call: WRITE	Prompt: !,"Count",?7,"ID",?11,"Patient",?32,"ACC#" Line Location: H+6
Function Call: WRITE	Prompt: ! Line Location: H1+0
Function Call: WRITE	Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?11,$E(V,1,19) Line Location: H2+0
Function Call: WRITE	Prompt: !,$J(B,3),")",?5,M,?12,$E(V,1,19) Line Location: H2+2
Routine Call	DIC Line Location: P+12 P+16

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	P+16
^LAB(60 - [#60]	T+1
^LAB(61 - [#61]	L+2, P+4
^LR - [#63]	W, O+1, O+2, O+4, O+5, P+11, P+24
^LRO(68 - [#68]	QUE+2, W+1, W+2, P+1, P+3, P+5, P+7, P+10
^TMP($J	QUE!, QUE+3, NEW+5, XT, A, B+5, B+6, P+29*
^VA(200 - [#200]	T+3

Name	Line Occurrences
A	XT
B	A
C	B+7
END	LRUPAD2+7, QUE+5
H	QUE+3, NEW+5, B+3, H1, H2, H2+2
H2	L, B+7
L	O+5
NEW	T+6
O	C+1
P	QUE+2
T	W+2
W	C+1
XT	QUE+3

Name	Field # of Occurrence
^("AU"	P+24
^(0	W, P+3, P+11
^(3	P+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	W+1*, T
>> A(3	P+6, P+8, P+9*, P+29
>> B	QUE+2, QUE+3, NEW+5, B+3, H2, H2+2
>> B(5	P, P+3, P+4, P+24, P+29*
>> C(1	P, P+3
>> C(3	O+5*, L+2
>> C(4	O+3, O+4, O+5
DA	P+11*, P+16, P+18!
>> DFN	P+29*
DIC	P+12, P+13!, P+16, P+18!
DIC(0	P+12, P+16
>> E	B+5*, C
>> F	O+4*, O+6, L
>> HRCN	P+29*
>> I	QUE+2*, P+1, P+3, P+5, P+7, P+10, P+29
IO	QUE
IOF	QUE+4
IOSL	L, T+6, B+3, B+7
IOST	QUE, QUE+4, H
>> LR("%"	H+9
>> LR("F"	QUE+3*, H
>> LR("FORM"	QUE+4
>> LR("Q"	QUE+3, NEW+5, W+1, O, O+4, O+6, L, T+6, XT, A , B+3, B+5, B+7, H, H2, H2+2
>> LRAA	QUE+2, W+1, W+2, P+1, P+3, P+5, P+7, P+10
>> LRDFN	W, O+1, O+2, O+4, O+5, B+6, P+7, P+11, P+24, P+29*
>> LRDPF	P+11*
>> LRF	P+10*, P+29
>> LRI	QUE+1, W, O+1, O+2, O+4, O+5, B+6, P+6, P+29
>> LRLDT	QUE+2
>> LRLST	H+2
>> LRO(68	H+2
>> LRP	P+18, P+22, P+29
>> LRSA	QUE+2*
>> LRSDT	QUE+2
>> LRSS	W, O, O+1, O+2, O+4, O+5, C+1, P+24, H+4, H+7
>> LRSTR	H+2
>> LRX	NEW+5, B+6, C, C+1
>> M	NEW+5, XT*, A, B+3, B+5, B+6, H2, H2+2
>> N	QUE+2, NEW+5, W+1, W+2, B+3, B+5*, B+6, C, P+1, P+3 , P+5, P+7, P+10, P+29
>> O	NEW+5, W+1, W+2, A*, B+5, B+6
>> P(0	P+13*, P+22
>> POP	LRUPAD2+7
>> SSN	P+18*
TECH	T+2, T+3, T+4, T+5!
>> V	QUE+2, QUE+3*, NEW+5, XT, A, B+3, B+5, B+6, H2, H2+2
>> V(1	QUE+1*, QUE+2
>> X	P+3, P+5, P+6, P+7, P+8, P+11, P+16*
Y	XT*, P+12, P+13!, P+16, P+18!
Y(0	P+13, P+18
>> Z	W, W+1, W+2
>> Z(1	W+2*, T+1, T+2
>> Z(2	W, O+2, L+1
>> ZTRTN	LRUPAD2+7*
>> ZTSK	LRUPAD2+7

Customize PDF page

Package: Lab Service

Routine: LRUPAD2

Information

Source Information

Call Graph

Call Graph Total: 3

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:

Name	Comments	DBIA/ICR reference
A
C
B	;D:$Y>(IOSL-8) H Q:LR("Q")
END
H2
H
H1
L
O
P
QUE
T
W
NEW	;D H Q:LR("Q")
XT