Routine: LRAPSM

Information

LRAPSM ;VA/AVAMC/REG - SNOMED SEARCH ;8/14/95 09:49

Package	Total	Call Graph
Lab Service	4	^LRAPSM1 CK^LRAUSM (B,L,S,SSN,V,XR,YN)^LRU (BEG,END)^LRUTL
Kernel	1	^%ZIS
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Lab Service	5	LRAPQAFS LRAPQAMR LRAPSEM LRAUSM LRSPS

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,LRO(68)," search by ",S(7)," code" Line Location: LRAPSM+5
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: !?5,"For all choices type 'ALL'" Line Location: TP+3
Function Call: WRITE	Prompt: ! Line Location: TP+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Choice #",$J(B,2),": Select 1 or more characters of the code: " Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Select only procedures with results " Line Location: POS+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: C+0
Function Call: WRITE	Prompt: !,"Enter 1 for positive results or 0 for negative results: " Line Location: C+0
Function Call: WRITE	Prompt: $C(7)," Enter '1' or '0'" Line Location: C+0
Routine Call	%ZIS Line Location: LRAPSM+5

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

Name	Field # of Occurrence
^(	T+4, M, E, MX+1, MX+2
^(0	TG, MX, MX+1, MX+2

Name	Field # of Occurrence
>> %	POS+1*, POS+2
>> A("B"	TP!, TP+1, ASK!, ASK+1
>> AGE	PRT+1, PRT+2, PRT+4
>> B	TP+3*, TP+4, ASK
>> DFN	PRT*, PRT+1
>> DOB	PRT+1*
DTIME	TP, ASK, C
>> E	E*
>> H(2	T+2*, MX+1, MX+2, MX+3, PRT+4, PRT+5
>> HRCN	PRT+4
>> I	Y, Y1, TG, MX+2
>> I(1	Y1*
>> I(2	Y1*
IO	QUE
IOF	LRAPSM+5
>> IOP	LRAPSM+5*
>> LR	LRAPSM+6, T+5
>> LR(1	LRAPSM+6, TG+1
>> LR(11	TG*
>> LR(12	T+1*, T+2, PRT+4
>> LR(14	PRT*, PRT+4
>> LR(2	LRAPSM+6, LRDFN
>> LR(3	LRAPSM+6, T+3
>> LR(4	T+1*, T+2, PRT+1
>> LR(5	TG*, MX+1, MX+2
>> LR(7	T+4*, TG, MX+1, MX+2
>> LR(8	M, E, MX
>> LR(9	T+4*, T+5
>> LRABV	T
>> LRAC	T+2*, PRT+4
>> LRAN	T+2*, MX+1, MX+2, MX+3, PRT+4, PRT+5
>> LRDFN	LRDFN*, I, T, T+1, T+4, M, E, PRT
>> LRDPF	PRT*
>> LRI	I*, T, T+1, T+4, M, E
>> LRLDT	TP+4*, QUE+2
LRM	TP+2!, M*, MX, MX+1, MX+2
LRM(	MX+2, ASK+1*
LRN	TP+2!, TP+3, TP+4, QUE+1, MX+1, ASK*
LRN(	MX+2, ASK+1*
LRN(0	TP+4
LRO	TP+2, MX, POS+1!, POS+2, C+1*
LRO(68	LRAPSM+5, QUE+1
>> LRP	PRT+1*, PRT+4, PRT+5
>> LRPF	PRT*, PRT+1
>> LRSDT	TP+4, QUE+2, LRDFN, I
>> LRSN	TP+2, M, MX
>> LRSS	T, T+1, T+4, M, E
>> LRXR	QUE+2, LRDFN, I
>> M	M*, E
>> POP	TP+5
>> S(1	TP+1*, TG
>> S(2	TP, TP+1, QUE+1, TG
>> S(7	LRAPSM+5, TP+2, QUE+1
>> SEX	PRT+1*, PRT+4
>> SSN	PRT+1*
>> T	T+4*, M, E
U	TP, TP+3, QUE+1, T, ASK, C
>> V	M, E
>> W	MX*, MX+1, MX+2
>> X	TP, TP+1, TP+3, QUE+2, Y, Y1, TG, M, MX+2, PRT , PRT+1, ASK, ASK+1, C*, C+1
>> X1	PRT+1*
>> X2	PRT+1*
>> Y	TP+4, MX+2*
>> Y(1	Y, Y1, TG, MX+2
>> Y(2	Y, Y1, TG, MX+2
>> Z	MX+2*
>> ZTRTN	TP+5*
>> ZTSK	TP+5