Routine: LRAUSM

Information

LRAUSM ;AVAMC/REG - AUTOPSY SNOMED SEARCH ;8/14/95 09:53

Source file <LRAUSM.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?20,LRAA(1)," search by ",S(7)," code" Line Location: LRAUSM+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 diagnoses type 'ALL'" Line Location: TP+3
Function Call: WRITE	Prompt: ! Line Location: TP+4
Function Call: WRITE	Prompt: $C(7),!!,"Enter up to 7 characters.",!,"Entry can only contain digits, letters ABCDEFXY or '*' (for wild cards).",!,"One character entered -> most general All 7 characters -> most specific",! Line Location: SHW+0
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