LEXAR ;ISL/KER - Look-up (Interpret User Response) ;04/21/2014
Source file <LEXAR.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(LEXUR,LEXVDT) | ; Interpret user response
|
|
APN | ; Application Unresolved Narrative
|
|
END | ; End of Interpretation of the Users Response
|
|
SEL | ; Selection made
|
|
EDU | ; End Dialog with the User
|
|
EDA | ; End Dialog with the Application
|
|
LST | ; List exist
|
|
KLST | ; Kill Global List
; ^TMP("LEXFND",$J) ; ^TMP("LEXHIT",$J) |
|
KSCH | ; Kill Search Variables
; ^TMP("LEXSCH",$J) ; PCH 55 - The only way to kill ^TMP("LEXSCH",$J) is exiting LEXA1 |
|
KARL | ; Kill Array List and supporting variables
; LEX("LIST"),LEX("MAT"),LEX("MIN"),LEX("MAX") |
|
LEX | ; Set LEX to the number of entries on the list
|
|
NAR | ; Set LEX("NAR") to the user narrative
|
|
MAX | ; Set LEX("MAX") to the last entry reviewed by the user
|
|
MIN | ; Set LEX("MIN") to the first entry reviewed by the user
|
|
EML | ; Set LEX("EXM") post-selection IEN^Expression text
|
|
EMF | ; Set LEX("EXM") pre-selection LIST#^Expression text
|
|
MAT | ; Set "matches found" string and top of list flag
; LEX("MAT") # Matches found ; ^TMP("LEXSCH",$J,"TOL",0) 1 - Top of list ; 0 - Not top of list |