Routine: LRFNDLOC

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

Info
Source
Entry Points
Interaction Calls

Information

LRFNDLOC ;SLC/CJS - RETURN A LOCATION FROM ^LRO(69,LRODT,1,"AR",LRLLOC,SN) ;2/8/91 08:42 ;

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: LOOP+0
Function Call: WRITE	Prompt: $E(Y,$L(LRLLOC)+1,$L(Y)) Line Location: SOME+1
Function Call: READ	Formatting: ! Prompt: "Press ""^"" to quit " Variable: X Timeout: DTIME Line Location: SOME+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: SOME+3
Function Call: WRITE	Prompt: !,"CHOOSE 1-",%,": " Line Location: SOME+3
Function Call: WRITE	Prompt: " ??",$C(7),! Line Location: SOME+4
Function Call: READ	Formatting: ! Prompt: "Press ""^"" to quit " Variable: X Timeout: DTIME Line Location: LALL+0