Routine: VALMXQ09

Information

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

Source file <VALMXQ09.m>

Package	Total	Call Graph
Kernel	1	(CC,HELP,LL,NU)^XQORM4

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	DISP+2, RD+2, INHI+1, INLO+1
^XUTL("XQORM"	DISP+3, DISP+5

Name	Field # of Occurrence
DA	SCRN1~*
DA(1	SCRN1*
>> DIROUT	PRMT+2*
DTIME	PRMT1+1, RD+1
>> DTOUT	PRMT1+1*
>> DX	DISP+2, RD+2, INHI+1, INLO+1
>> DY	DISP+2, RD+2, INHI+1, INLO+1
I	DISP+5, DISP+10, SCRN1~, EAT, EAT+1*
>> IOINHI	INHI+1
>> IOINLOW	INLO+1
IOM	DISP+3
IOSL	RD
J	DISP+5*, DISP+7, SCRN1~
L	DISP+1~, DISP+5, DISP+10, SCRN1~
M	DISP+1~, DISP+4*, DISP+7, SCRN1~
N	DISP+1~, DISP+5, RD, RD+1
>> ORU	PRMT+2*
ORUPRMT	PRMT+1*, PRMT+3!, PRMT1
T	DISP+1~, DISP+3*, DISP+4, DISP+5, SCRN1~
X	DISP+2, DISP+5~, DISP+7, DISP+8, SCRN, SCRN+1, SCRN1~, PRMT+2, PRMT1+1, PRMT1+2 , UP+1, EAT, EAT+1, RD+1~
>> XQORM	DISP+3, DISP+5, SCRN1
>> XQORM("A"	PRMT+1
>> XQORM("B"	PRMT1, PRMT1+1
>> XQORM("M"	DISP+4
>> XQORM("NO^"	PRMT1+2
>> XQORM("S"	DISP+6, SCRN, SCRN1
>> XQORM("W"	DISP+8, DISP+9
>> XQORM(0	PRMT1
Y	SCRN1~, PRMT+2, PRMT1, PRMT1+3