Routine: LRAPSM

Information

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

Source file <LRAPSM.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,LRO(68)," search by ",S(7)," code" Line Location: LRAPSM+2
Function Call: READ	Prompt: "For all sites type 'ALL' : " Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME 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