Routine: APCUKWL

Name	Comments	DBIA/ICR reference
DSPGRP
ASKSEL	; ASK FOR SELECTION AMONG HITS
CHKSHRT
VERIFY	;
GETFRAG
INIT
EXIT	;
DSPLY	; DISPLAY CODE AND TEXT
ASKONE	; ASK IF SINGLE HIT IS ACCEPTABLE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,"<WARNING: SYNONYM/REPLACEMENT TABLE MISSING>",! Line Location: APCUKWL+5
Function Call: WRITE	Prompt: !,"The following word",$S(UNUSED=1:" was",1:"s were")," not used in this search:",! Line Location: CHKSHRT+4
Function Call: WRITE	Prompt: ?5,WD,! Line Location: CHKSHRT+4
Function Call: WRITE	Prompt: "Search was unsuccessful.",! Line Location: CHKSHRT+7
Function Call: WRITE	Prompt: ! Line Location: ASKONE+1
Function Call: READ	Prompt: X Formatting: " OK? Y// " Timeout: X?1L Variable: ! S X=$E(X_"Y") S Line Location: ASKONE+4
Function Call: WRITE	Prompt: $C(7) Line Location: ASKONE+4
Function Call: WRITE	Prompt: !!,"The following matches were found:",!! Line Location: ASKSEL+1
Function Call: WRITE	Prompt: ! Line Location: DSPGRP+2
Function Call: READ	Prompt: X Timeout: X["^"!(X="")!(X="-") Variable: ! Q Line Location: DSPGRP+3
Function Call: WRITE	Prompt: $C(7) Line Location: DSPGRP+3
Function Call: WRITE	Prompt: $P(@(REF1_"I,0)"),"^",1)," ","(",$P(^(0),"^",3),")",! Line Location: DSPLY+3
Function Call: WRITE	Prompt: ?7 Condition for execution: NUM Line Location: DSPLY+5
Function Call: WRITE	Prompt: F,! Line Location: DSPLY+5
Function Call: WRITE	Prompt: ! Line Location: DSPLY+6