Routine: VALMXQ09

Information

VALMXQ09 ; alb/mjk - XQORM1 for export with LM v1 ; 3/30/93

Name	Comments	DBIA/ICR reference
XQORM1	; SLC/KCM - Display selections & prompt ;12/14/92 12:05
DISP	;From: XQORM
SCRN
SCRN1
PRMT	;From: XQORM
PRMT1
UP	;F %=1:1:$L(X) I $E(X,%)?1L S X=$E(X,1,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)
EAT
RD
INHI()	; Switch to highlighted video (IOINHI must be defined by caller)
INLO()	; Switch to lowlighted video (IOINLOW must be defined by caller)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISP+2
Function Call: WRITE	Prompt: ?(J),$P(X,"^",4),?(J+M) Line Location: DISP+7
Function Call: WRITE	Prompt: $P(X,"^",3) Line Location: DISP+8
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: PRMT1+1
Function Call: WRITE	Prompt: ! Line Location: RD+0
Function Call: WRITE	Prompt: !,"Press RETURN to continue or '^' to exit: " Line Location: RD+0
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: RD+1
Function Call: WRITE	Prompt: !! Line Location: RD+2
Function Call: WRITE	Prompt: IOINHI Line Location: INHI+1
Function Call: WRITE	Prompt: IOINLOW Line Location: INLO+1