Routine: LRAPSEM

Package	Total	Call Graph
Lab Service	6	^LRAPSEM1 POS^LRAPSM CK^LRAUSM (B,L,SSN,XR,YN)^LRU EN^LRUA (BEG,END)^LRUTL
Kernel	1	^%ZIS
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Lab Service	1	LRAPSE

Entry Points

External References

Name	Field # of Occurrence
^%DTC	PRT+2
^%ZIS	LRAPSEM+3
^LRAPSEM1	END
POS^LRAPSM	TP+3
CK^LRAUSM	TP+1, ASK+1, AE+1
B^LRU	TP+4
L^LRU	QUE
SSN^LRU	PRT+2
XR^LRU	QUE
YN^LRU	TP+5, S, S+1
EN^LRUA	QUE
BEG^LRUTL	C+2
END^LRUTL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?10,LRO(68)," multiaxial SNOMED search" Line Location: LRAPSEM+3
Function Call: WRITE	Prompt: $C(7),!!?26,"Not yet available" Line Location: LRAPSEM+4
Function Call: READ	Prompt: "For all sites type 'ALL' : " Timeout: DTIME Variable: X Line Location: TP+0
Function Call: WRITE	Prompt: !!,"TOPOGRAPHY (Organ/Tissue)",!?5,"Select 1 or more characters of the code",!?5 Line Location: TP+0
Function Call: WRITE	Prompt: !!,$P(LRX,U,2) Line Location: TP+3
Function Call: WRITE	Prompt: !?5,"For all choices type 'ALL'" Line Location: TP+3
Function Call: WRITE	Prompt: ! Line Location: TP+4
Function Call: WRITE	Prompt: !!,"List by accession number with specimens and microscopic dx " Line Location: TP+5
Function Call: READ	Prompt: "Enter SEARCH COMMENT: " Formatting: !! Timeout: DTIME Variable: X Line Location: C+0
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !,$P(LRX,"^",2),?12,"choice #",$J(B,2),": Select 1 or more characters of the code: " Line Location: ASK+0
Function Call: WRITE	Prompt: !?5,"ETIOLOGY (for all choices type 'ALL')" Line Location: ET+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: AE+0
Function Call: WRITE	Prompt: !?15,"Choice #",$J(A,2),": Select 1 or more characters of the code: " Line Location: AE+0
Function Call: WRITE	Prompt: !,"Enter 2-68 character free text comment to appear at top of each page of search." Line Location: R+0
Function Call: WRITE	Prompt: !!,"List special studies " Line Location: S+0
Function Call: WRITE	Prompt: !!,"Include SNOMED CODES on report " Line Location: S+1
Routine Call	%ZIS Line Location: LRAPSEM+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	PRT+1
^LAB(	N
^LAB(61 - [#61]	TG
^LAB(61.2 - [#61.2]	E+1
^LR - [#63]	QUE+1, LRDFN, I, T, T+1, M, M+1, E+1, O, PRT+1 , PR
^TMP("LR"	QUE!, PRT+4, PRT+5
^TMP($J	QUE!

Label References

Name	Line Occurrences
AE	ET+1, AE+1
ASK	TP+3, ASK+1
C	C, C+1
E	N+1
ET	ASK, ASK+1
I	LRDFN
LRDFN	QUE+1
M	TG+2
N	M+1
O	M, E
PR	M
PRT	TG+3
R	C, C+1
S	TP+6
T	I
TG	T+1
TP	TP+1
Y	N+1, E+1
Y1	TG

Naked Globals

Name	Field # of Occurrence
^(	T+1, M+1, E+1, PR
^(0	T, TG, N, E+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TP+5, S, S+1*
>> A	N+1, E, E+1, ET+1, AE
>> A("B"	TP!, TP+1, ASK!, ASK+1, AE!, AE+1
>> AGE	PRT+2*, PRT+4
>> B	TP+3, E+1, ASK
>> DFN	PRT+1*
>> DOB	PRT+2*
DTIME	TP, C, ASK, AE
>> E	E+1*
>> F	N+1*
>> G	E+1*
>> HRCN	PRT+4
>> I(1	Y1*
>> I(2	Y1*
IO	QUE
IOF	LRAPSEM+3
>> IOP	LRAPSEM+3*
>> LR	LRAPSEM+5, T+2
>> LR(1	LRAPSEM+5, TG+1
>> LR(12	T*, PRT+4
>> LR(2	LRAPSEM+5, QUE, LRDFN*
>> LR(3	LRAPSEM+5, T
>> LR(4	T*, PRT+2
>> LR(5	TG*
>> LR(8	M+1, N, E+1
>> LR(9	T+1*, T+2
>> LRA	PRT+1*, PRT+4
>> LRABV	T
>> LRAC	T*, PRT+4
>> LRAN	T*, PRT+4, PRT+5
>> LRB	QUE*
>> LRD	LRAPSEM+5, S
>> LRD(0	LRAPSEM+5, TP+5, S+1
>> LRD(1	LRAPSEM+5, TP+5
>> LRD(2	S+1*
>> LRDFN	LRDFN*, I, T, T+1, M, M+1, E+1, O, PRT+1, PRT+4 , PR
>> LRDPF	PRT+1*
>> LRE	ASK, ASK+1, ET*, ET+1, AE, AE+1
>> LRF	Y, Y1, TG, TG+1, TG+2, TG+3, M, M+1, N+1, E+1 , O, PR
>> LRH	C+2*
>> LRI	I*, T, T+1, M, M+1, E+1, O, PRT+4, PR
>> LRLDT	TP+4*, QUE+1
LRM	TP+2!, M+1*, N
LRN	TP+2!, TP+4
LRN(	TP+3, TG+2, M, N+1, E+1, ASK, ASK+1
LRN(2	M, E, ET+1, AE, AE+1
>> LRO	TP+2, TP+4, M, N, PR
>> LRO(68	LRAPSEM+3
>> LRP	PRT+2*, PRT+4, PRT+5
>> LRSDT	TP+4, QUE+1, LRDFN, I
>> LRSN(	QUE*, N
>> LRSS	LRAPSEM+4, T, T+1, M, M+1, E+1, O, PR
>> LRT	T+1*, TG
>> LRX	TP+3, QUE+1, ASK, ASK+1
>> LRXR	QUE+1, LRDFN, I
>> LRY	T*, PRT+4, PRT+5
>> M	M+1*, E, E+1
>> POP	C+2
>> S(1	TP+1*, TG
>> S(2	TP, TP+1, TG
>> SEX	PRT+2*, PRT+4
>> SSN	PRT+2*
>> T	T+1*, M, M+1, E+1, O, PR
U	TP+3, T
>> V	TG+2*, M, M+1, N, N+1, E+1
>> W	N, N+1, E+1
>> X	TP, TP+1, TP+3, C, C+1, C+2, QUE, Y, Y1, TG , M, M+1, N+1, E, E+1, O, PRT+1, PRT+2, PR, ASK* , ASK+1, ET, ET+1, AE, AE+1
>> X1	PRT+2*
>> X2	PRT+2*
>> Y	TP+4, O, PRT+1, PRT+2
>> Y(1	Y, Y1, TG, N+1, E+1*
>> Y(2	Y, Y1, TG, N+1, E+1*
>> ZTRTN	C+2*
>> ZTSK	C+2

Customize PDF page

Package: Lab Service

Routine: LRAPSEM

Information

Source Information

Call Graph

Call Graph Total: 8

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
O
PR
C
END
PRT	;S X=^LR(LRDFN,0),(LRDPF,LRA)=$P(X,"^",2),Y=$P(X,"^",3),X=^DIC(LRA,0,"GL") Q:'$D(@(X_Y_",0)"))
I
ET
M
AE
TP
N
Y1
S
R
QUE
T
LRDFN
Y
TG
ASK
E