Routine: LRUPAD

Package	Total	Call Graph
Lab Service	5	(B,D,F,L,M,S,V)^LRU ^LRUBYDIV ^LRUPAD1 ^LRUPAD2 (BEG,EN,END)^LRUTL
VA Fileman	2	^%DT ^DIC

Package

Total

Call Graph

Lab Service

(B,D,F,L,M,S,V)^LRU ^LRUBYDIV ^LRUPAD1 ^LRUPAD2 (BEG,EN,END)^LRUTL

VA Fileman

^%DT ^DIC

Package	Total	Caller Graph
Lab Service	3	LRAPP LRUPAD LRUPAD1

Package

Total

Caller Graph

Lab Service

LRAPP LRUPAD LRUPAD1

Name	Field # of Occurrence
^%DT	LRUPAD+8
^DIC	L+3
B^LRU	LRUPAD+10
D^LRU	LRUPAD+8
F^LRU	H+2
L^LRU	QUE
M^LRU	H+1
S^LRU	QUE
V^LRU	END
^LRUBYDIV	LRUPAD+7
^LRUPAD1	O
^LRUPAD2	L+2
BEG^LRUTL	L+4
EN^LRUTL	LRUPAD+8
END^LRUTL	QUE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," ACCESSION LIST" Line Location: LRUPAD+9
Function Call: READ	Timeout: DTIME Variable: X Line Location: L+0
Function Call: WRITE	Prompt: !?72,"-----",!,"Cell block (b) count: ",Q(1),?58,"Slide count:",?72,$J(Q(2),5) Line Location: QUE+3
Function Call: WRITE	Prompt: !,LRO(68)," (",LRSTR,"-",LRLST,")",! Line Location: H+3
Function Call: WRITE	Prompt: "Collection Sample: ",C,! Condition for execution: $D(C)#2 Line Location: H+3
Function Call: WRITE	Prompt: "# = Not IHS patient ",$S(LRSS="CY":"* = Reviewed by pathologist",1:""),?57,$S("AUSPCYEMMI"[LRSS:"% =Incomplete",1:"") Line Location: H+6
Function Call: WRITE	Prompt: ?60,$S("CH"[LRSS:"%=Test not verified",1:"") Line Location: H+8
Function Call: WRITE	Prompt: ?72,"Slide" Line Location: H+8
Function Call: WRITE	Prompt: ?62,"Test",?76,"Tech",!,LR("%") Line Location: H+9
Function Call: WRITE	Prompt: ?72,"Count" Line Location: H+10
Function Call: WRITE	Prompt: ?62,"Test",?76,"Tech",!,LR("%") Line Location: H+11
Function Call: WRITE	Prompt: ?62,"Test",?76,"Tech",!,$G(LR("%")) Line Location: H+13
Function Call: WRITE	Prompt: ?46,"Date/time of Autopsy" Condition for execution: LRSS="AU" Line Location: H+15
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+15
Function Call: WRITE	Prompt: !!,"Enter following letter for appropriate listing:" Line Location: S+0
Function Call: WRITE	Prompt: !?5,"'A' for listing by accession number" Line Location: S+1
Function Call: WRITE	Prompt: !?5,"'P' for listing by patient" Line Location: S+2
Routine Call	DIC Line Location: L+3

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62 - [#62]	QUE
^LRO(68 - [#68]	LRUPAD+11, QUE+2, O

Name	Line Occurrences
END	LRUPAD+7, LRUPAD+10, L, L+3, L+4, QUE+5
H	L+1, QUE, QUE+3
L	L, L+1
O	QUE+2
S	L

Name	Field # of Occurrence
^(3	O

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	LRUPAD+8*
>> B	QUE+2*, O
C	LRUPAD+8!, L+3*, H+3
C(1	L+3*
DIC	L+3*!
DIC("A"	L+3*
DIC(0	L+3*
DTIME	L
>> I	QUE+2*, O
IO	QUE
IOF	QUE+4
IOSL	QUE+3
IOST	QUE+4, H+1
>> LR("%"	H+13, H+15
>> LR("F"	QUE*, H+1
>> LR("FORM"	QUE+4
>> LR("Q"	QUE+2, QUE+3, O, H+1
>> LRAA	LRUPAD+7, LRUPAD+11, QUE+2, O
>> LRAA(1	LRUPAD+7, LRUPAD+9
>> LRC(5	O*
>> LRLDT	LRUPAD+11*, QUE+2
>> LRLST	H+3
>> LRO(68	LRUPAD+9*, H+3
>> LRSA	QUE+2*
>> LRSDT	LRUPAD+11, QUE+2
>> LRSS	L, L+1, QUE+3, H+6, H+8, H+10, H+13, H+15, S+3
>> LRSTR	H+3
>> LRU(1	QUE*
>> N	O*
>> POP	L+4
>> Q(1	LRUPAD+8*, QUE+3
>> Q(2	LRUPAD+8*, QUE+3
U	LRUPAD+11, L, L+3
>> V	LRUPAD+11*, QUE+2
>> V(1	LRUPAD+11, QUE+1, QUE+2
>> X	LRUPAD+8, LRUPAD+11, L*, L+1, L+2, L+3
>> Y	LRUPAD+7, LRUPAD+8, LRUPAD+10, L+3
>> Z(1	LRUPAD+8*
>> Z(4	LRUPAD+8*
>> ZTRTN	L+4*
>> ZTSK	L+4

Customize PDF page

Package: Lab Service

Routine: LRUPAD

Information

Source Information

Call Graph

Call Graph Total: 7

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
END
H	;from LRUPAD1
L
O
S
QUE