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 |
