Prompt: @IOF,?20,LRAA(1)," search by ",S(7)," code"
Line Location: LRAUSM+3
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 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
Timeout: DTIME
Variable: X
Line Location: ASK+0
Function Call: WRITE
Prompt: !,"Choice #",$J(B,2),": Select 1 or more characters of the code: "