Routine: LRUPA

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

Package	Total	Caller Graph
Lab Service	4	LRAPP LRBLPAL LRUPA LRUPA1

Entry Points

External References

Name	Field # of Occurrence
^%DT	LRUPA+8, LRUPA+9, A
^DIC	N2+2
D^LRU	LRUPA+8, LRUPA+9, A
F^LRU	H+2
L^LRU	QUE
M^LRU	H+1
S^LRU	QUE
V^LRU	END
YN^LRU	LRUPA+10, N2+1, N2+2
^LRUBYDIV	LRUPA+7
^LRUPA1	QUE+1
^LRUPA2	N2+1
BEG^LRUTL	N2+3
END^LRUTL	QUE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," ACCESSION LIST" Line Location: LRUPA+8
Function Call: WRITE	Prompt: !!,"Accession list date: ",Z(1)," OK " Line Location: LRUPA+10
Function Call: WRITE	Prompt: ! Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!!,"No accession numbers for ",Z(1) Line Location: A+2
Function Call: READ	Prompt: "Start with Acc #: FIRST // " Formatting: ! Timeout: DTIME Variable: N(1) Line Location: N1+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter NUMBERS only" Line Location: N1+0
Function Call: READ	Prompt: "Start with Acc #: " Formatting: ! Timeout: DTIME Variable: N(1) Line Location: N1+1
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!" Line Location: N1+1
Function Call: READ	Prompt: "Go to Acc #: LAST // " Formatting: ! Timeout: DTIME Variable: N(2) Line Location: N2+0
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!",!! Line Location: N2+0
Function Call: WRITE	Prompt: !!,"LIST BY PATIENT " Line Location: N2+1
Function Call: WRITE	Prompt: !!,"LIST BY COLLECTION SAMPLE " Line Location: N2+2
Function Call: WRITE	Prompt: !?72,"-----",!,"Cell block (b) count: ",Q(1),?58,"Slide count:",?72,$J(Q(2),5) Line Location: QUE+2
Function Call: WRITE	Prompt: !,LRO(68)," ACCESSIONS for ",Z(1),! Line Location: H+2
Function Call: WRITE	Prompt: "Collection Sample: ",C,! Condition for execution: $D(C)#2 Line Location: H+2
Function Call: WRITE	Prompt: "* = Reviewed by pathologist" Condition for execution: LRSS="CY" Line Location: H+3
Function Call: WRITE	Prompt: ?30,"*=STAT" Condition for execution: LRSS="CH" Line Location: H+3
Function Call: WRITE	Prompt: ?55,$S("SPCYEMAU"[LRSS:"% =Incomplete",1:"") Line Location: H+3
Function Call: WRITE	Prompt: ?72,"Slide" Line Location: H+3
Function Call: WRITE	Prompt: "# = Not IHS patient " Line Location: H+5
Function Call: WRITE	Prompt: "* = Reviewed by pathologist" Condition for execution: LRSS="CY" Line Location: H+5
Function Call: WRITE	Prompt: ?30,"*=STAT" Condition for execution: LRSS="CH" Line Location: H+5
Function Call: WRITE	Prompt: ?55,$S("SPCYEMAU"[LRSS:"% =Incomplete",1:"") Line Location: H+5
Function Call: WRITE	Prompt: ?55,$S("SPCYEMAU"[LRSS:"% =Incomplete",1:"") Line Location: H+5
Function Call: WRITE	Prompt: !,"Acc num",?12,$S(LRSS="MI":"Patient/Source",1:"Patient"),?28,"ID",?34,"Loc" Line Location: H+7
Function Call: WRITE	Prompt: ?48,"Organ/tissue",!,LR("%") Line Location: H+7
Function Call: WRITE	Prompt: "Specimen date" Condition for execution: LRSS="BB" Line Location: H+8
Function Call: WRITE	Prompt: ?72,"Count" Line Location: H+8
Function Call: WRITE	Prompt: ?64,"Test",?76,"Tech",!,LR("%") Line Location: H+9
Function Call: WRITE	Prompt: ?42,"Date/time of Autopsy" Condition for execution: LRSS="AU" Line Location: H+10
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+10
Routine Call	DIC Line Location: N2+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62 - [#62]	QUE
^LRO(68 - [#68]	LRUPA+9, A+1, A+2, QUE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRUPA+10, A, A+2, N2+1, N2+2
%DT	LRUPA+8, LRUPA+9, A*!
%DT("A"	A*
>> B	QUE+1*
C	LRUPA+8!, N2+2*, H+2
C(1	N2+2*
DIC	N2+2*!
DIC("A"	N2+2*
DIC(0	N2+2*
DT	LRUPA+9
DTIME	N1, N1+1, N2
IO	QUE
IOF	QUE+3, QUE+5
IOSL	QUE+2
IOST	QUE+3, QUE+5, H+1
>> LR("%"	H+7, H+9, H+10
>> LR("F"	QUE*, H+1
>> LR("FORM"	QUE+5
>> LR("Q"	QUE+1, QUE+2, H+1
>> LRAA	LRUPA+7, LRUPA+9, A+1, A+2, QUE+1
>> LRAA(1	LRUPA+7, LRUPA+8
>> LRAD	A+1*, A+2, N1, N1+1, QUE+1
>> LRC(5	QUE+1*
>> LRO(68	LRUPA+8*, H+2
>> LRSS	N2+2, QUE+2, QUE+3, QUE+4, H+5, H+7, H+8, H+9, H+10
>> LRU(1	QUE*
>> N	QUE+1*
>> N(1	N1, N1+1, QUE+1
>> N(2	N2*, QUE+1
>> POP	N2+3
>> Q(1	QUE*, QUE+2
>> Q(2	QUE*, QUE+2
U	LRUPA+9, A+1, N1, N1+1, N2, N2+2
>> X	LRUPA+8, LRUPA+9, A*
>> Y	LRUPA+7, LRUPA+8, LRUPA+9, A*, A+1, N2+2
>> Z(1	LRUPA+8, LRUPA+9, LRUPA+10, A*, A+2, H+2
>> ZTRTN	N2+3*
>> ZTSK	N2+3

Customize PDF page

Package: Lab Service

Routine: LRUPA

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
A	A+2
END	LRUPA+7, LRUPA+10, A, N1, N1+1, N2, N2+1, N2+2, N2+3, QUE+6
H	QUE, QUE+2
N1	N1, N1+1
N2	N2

Name	Comments	DBIA/ICR reference
A
END
H	;from LRUPA1
QUE
N1
N2