Routine: QAQAHOCY

Information

QAQAHOCY ;HISC/DAD-AD HOC REPORTS: INTERFACE COMPILER ;7/12/95 14:57

Name	Comments	DBIA/ICR reference
FLD	; *** Process the sort/print fields
NAME	; *** Prompt user for the external field name
SORT	; *** Allow sorting on this field (Y/N)
DIR	; *** Set up DIR(0) for sort from/to prompts
DATE
NUMERIC
POINTER
SET
TEXT
SETLINE	; *** Save menu $TEXT line in ^TMP
EXIT	; *** Exit field questions loop
LIST	; *** Display the fields already chosen
CASE(QAQ)
U(X)
L(X)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Choose a field for menu item number ",QAQMMAX+1,", <RETURN> to end, ^ to exit." Line Location: FLD+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: FLD+2
Function Call: WRITE	Prompt: ! Line Location: FLD+3
Function Call: WRITE	Prompt: !!?5,"* You have already chosen that field !! ",7 Line Location: FLD+8
Function Call: WRITE	Prompt: !!?5,QAQYESNO,! Line Location: SORT+3
Function Call: WRITE	Prompt: !!?5,"* This line is ",Y," character",$S(Y>1:"s",1:"")," too long, maximum is 245 !! ",7 Line Location: SETLINE+2
Function Call: WRITE	Prompt: !!,"You have already selected the following: (Menu Item # Menu Text)",! Line Location: LIST+1
Function Call: WRITE	Prompt: ?QAQTAB,$S($P(X,"^"):$J(QAI-1000,2),1:" ")," ",$P(X,"^",2) Line Location: LIST+5