©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LEXAR ;ISL/KER - Look-up (Interpret User Response) ;04/21/2014
Source file <LEXAR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EMF | ; Set LEX("EXM") pre-selection LIST#^Expression text
|
|
| EN(LEXUR,LEXVDT) | ; Interpret user response
|
|
| END | ; End of Interpretation of the Users Response
|
|
| EML | ; Set LEX("EXM") post-selection IEN^Expression text
|
|
| MIN | ; Set LEX("MIN") to the first entry reviewed by the user
|
|
| MAX | ; Set LEX("MAX") to the last entry reviewed by the user
|
|
| KLST | ; Kill Global List
; ^TMP("LEXFND",$J) ; ^TMP("LEXHIT",$J) |
|
| NAR | ; Set LEX("NAR") to the user narrative
|
|
| LST | ; List exist
|
|
| EDA | ; End Dialog with the Application
|
|
| APN | ; Application Unresolved Narrative
|
|
| KSCH | ; Kill Search Variables
; ^TMP("LEXSCH",$J) ; PCH 55 - The only way to kill ^TMP("LEXSCH",$J) is exiting LEXA1 |
|
| EDU | ; End Dialog with the User
|
|
| LEX | ; Set LEX to the number of entries on the list
|
|
| SEL | ; Selection made
|
|
| KARL | ; Kill Array List and supporting variables
; LEX("LIST"),LEX("MAT"),LEX("MIN"),LEX("MAX") |
|
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LEX(757.01 - [#757.01] | APN+1 |
| ^TMP("LEXFND" | KLST+3! |
| ^TMP("LEXHIT" | KLST+3! |
| ^TMP("LEXSCH" | EN+4, EN+5, EN+7, EN+9, EN+11*, EN+12*, EN+27, EN+31, APN+1, END+1 , END+2*, END+3*, END+4, END+5, LEX+1, NAR+2, MAX+2, EML+2, EMF+2, EMF+3 , MAT+5, MAT+7, MAT+9*, MAT+10*, MAT+11, MAT+12 |
| Name | Line Occurrences |
|---|---|
| APN | EN+1 |
| EDA | EN+14 |
| EMF | SEL+2, EDU+1 |
| EML | LST+1 |
| END | EN+21, EN+23, EN+25, EN+27, EN+29, EN+31, APN+4 |
| KARL | EDU+1 |
| KLST | SEL+2, EDU+1, EDA+2 |
| KSCH | SEL+2, EDU+1, EDA+2 |
| MAT | LST+1 |
| MAX | LST+1 |
| MIN | LST+1 |
| NAR | SEL+2, EDU+1, LST+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LEX | EN+1, EN+5*, EN+6, EN+16, APN+2!, END+5*, SEL+3*, EDU+2*, EDA+1!, LEX+1* |
| LEX("ERR" | SEL+1! |
| LEX("EXC" | KARL+3! |
| LEX("EXM" | KARL+3!, EML+1!, EML+2*, EMF+1!, EMF+3* |
| LEX("HLP" | EN+2!, SEL+1! |
| LEX("LIST" | EN+4, END+4, SEL+1!, KARL+2!, MAT+5, MAT+8 |
| LEX("MAT" | SEL+1!, KARL+2!, MAT+4!, MAT+12* |
| LEX("MAX" | SEL+1!, KARL+2!, MAX+1!, MAX+2*, MIN+2 |
| LEX("MIN" | SEL+1!, KARL+2!, MIN+1!, MIN+2* |
| LEX("NAR" | NAR+1!, NAR+2* |
| LEX("RES" | EN+11*, END+2*, SEL+1! |
| LEX("SEL" | SEL+3, MAT+5 |
| LEXL | MAT+6~, MAT+8*, MAT+9, MAT+10 |
| LEXLL | EN+3~, EN+7*, EN+8* |
| LEXMAX | EN+3~, EN+9*, EN+29 |
| LEXOL | MAT+6~, MAT+7*, MAT+9, MAT+10, MAT+11 |
| LEXUR | EN~, EN+6*, EN+10*, EN+11, EN+14, EN+16, EN+17*, EN+18, EN+19*, EN+21 , EN+23, EN+25, EN+27, EN+29, EN+31, APN+1, APN+3, END+2 |
| LEXVDT | EN~, EN+29 |