Routine: LRUSE

Select the objects that you wish to see in the downloaded PDF

Information

LRUSE ;AVAMC/REG - ENTER/EDIT SNOMED FIELDS ; 6/2/86 9:12 AM ;

Source file <LRUSE.m>

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Select SNOMED FIELD to edit: " Variable: X Timeout: DTIME Line Location: OPTS+0
Function Call: WRITE	Prompt: !!,"Select from:" Line Location: OPTS+2
Function Call: WRITE	Prompt: " ",$E($P(Y,"^"),7,$L($P(Y,"^"))),! Line Location: DO+0
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: LST+0
Function Call: WRITE	Prompt: !,?15,$P($P($T(OPT+A),";",3),"^") Line Location: LST+0