©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
LEXALK ;ISL/KER - Look-up by Words ;04/21/2014
Source file <LEXALK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCH(LEXX) | ; Search for LEXX a $Orderable variable
|
|
| EN | ; Look-up user input
|
|
| END | ; End look-up by word
|
|
| KWO(X,Y) | ; Keyword only (SW)
|
|
| UP(X) | ; Uppercase
|
|
| CHK | ; Check each token
|
|
| TOKEN | ; Main loop though TOKENS containing LEXT
|
|
| DES(LEXX) | ; Get description flag
|
|
| IEN | ; Loop throuth Internal Entry Numbers
|
|
| CHKTKNS(LEXE) | ; Check tokens
|
|
| EXACT | ; Main loop throuth TOKENS that equal LEXT
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LEX | EN+20, EN+21, EXACT+1, TOKEN+1, IEN+1, CHK+2 |
| ^LEX(757 - [#757] | CHK+10, DES+3 |
| ^LEX(757.01 - [#757.01] | EN+23, CHK+6, CHK+8, CHK+9, CHKTKNS+1, CHKTKNS+5, CHKTKNS+12, CHKTKNS+13, CHKTKNS+15, CHKTKNS+16 , CHKTKNS+17, CHKTKNS+18, DES+2, DES+4, KWO+2, KWO+4, KWO+6, KWO+7, KWO+9 |
| ^TMP("LEXFND" | END+1, END+2, END+3! |
| ^TMP("LEXHIT" | END+3! |
| ^TMP("LEXSCH" | EN+2, EN+4, EN+5, EN+6, EN+7, EN+9, EN+11, EN+18*, END+4, CHK+12 , CHK+13 |
| Name | Line Occurrences |
|---|---|
| $$KWO | IEN+2 |
| $$SCH | EN+19, EXACT+1, TOKEN+1, CHKTKNS+11 |
| $$UP | CHKTKNS+5, CHKTKNS+18 |
| CHK | IEN+3 |
| CHKTKNS | CHK+15 |
| END | EN+21 |
| EXACT | EN+20, EN+22 |
| IEN | EXACT+1, TOKEN+1 |
| TOKEN | EN+24, EN+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LEX | END+3!* |
| LEX("ERR" | EN+3*, EN+8*, EN+10* |
| LEX("NAR" | END+4* |
| LEXC | CHKTKNS+2~, CHKTKNS+5*, CHKTKNS+6, CHKTKNS+7, CHKTKNS+8, CHKTKNS+9, CHKTKNS+10, CHKTKNS+18*, CHKTKNS+19, CHKTKNS+20 , CHKTKNS+21, CHKTKNS+22, CHKTKNS+23 |
| LEXD | KWO+7~*, KWO+8 |
| LEXDES | EN+13~, CHK+21*, CHK+24, DES+1~*, DES+4*, DES+5 |
| LEXDICS | EN+1~ |
| LEXDSP | EN+13~, CHK+23*, CHK+24 |
| LEXE | EN+13~, CHK+1*, CHK+2*, CHK+4, CHK+6, CHK+8, CHK+9, CHK+12, CHK+13, CHK+15 , CHK+21, CHK+23, CHK+24, CHKTKNS~, CHKTKNS+1, CHKTKNS+2, CHKTKNS+4~*, CHKTKNS+16*, CHKTKNS+17, CHKTKNS+18 , DES+1~*, KWO+1~, KWO+6*, KWO+7, KWO+9 |
| LEXEC | KWO+1~, KWO+6*, KWO+8*, KWO+10*, KWO+11 |
| LEXEMOD | CHK+8~*, CHK+18 |
| >> LEXFIL | CHK+4 |
| >> LEXFILR | CHK+4* |
| LEXI | EN+13~, EN+16~*, IEN+1*, IEN+2, CHK+1, CHK+2, CHKTKNS+2~*, CHKTKNS+3*, CHKTKNS+4, KWO+1~ , KWO+3*, KWO+4, KWO+6, KWO+7, KWO+9 |
| LEXIGN | CHK+6, SCH+2~ |
| LEXK | IEN+2~*, KWO+1~, KWO+9*, KWO+10 |
| LEXKC | KWO+1~, KWO+6*, KWO+10*, KWO+11 |
| LEXLKFL | EN+1~, EN+7*, EN+14, EN+20, EN+21, EXACT+1, TOKEN+1, IEN+1, CHK+2, KWO+5 |
| LEXLKGL | EN+1~, EN+9*, CHK+2 |
| LEXLKIX | EN+1~, EN+6*, EN+20, EN+21, EXACT+1, TOKEN+1, IEN+1 |
| LEXLKMD | EN+1~, EN+5* |
| LEXLKSH | EN+1~, EN+2*, EN+12 |
| LEXLKT | CHK+1~* |
| LEXM | EN+13~, CHK+9*, CHK+10, CHKTKNS+1~*, CHKTKNS+16, DES+1~, DES+2*, DES+3*, DES+4 |
| LEXME | EN+13~, CHK+10* |
| LEXNOKEY | IEN+2, CHKTKNS+1~ |
| LEXO | EN+13~, EN+19*, EXACT+1*, TOKEN+1*, IEN+1, IEN+2, CHK+1~ |
| LEXOE | CHKTKNS+2~*, CHKTKNS+5, CHKTKNS+12, CHKTKNS+13, CHKTKNS+15 |
| LEXOK | EN+13~, CHK+1~*, CHK+15*, CHK+18, CHK+19, CHKTKNS+3, CHKTKNS+4*, CHKTKNS+6*, CHKTKNS+7*, CHKTKNS+8* , CHKTKNS+9*, CHKTKNS+10*, CHKTKNS+12*, CHKTKNS+13*, CHKTKNS+14*, CHKTKNS+16, CHKTKNS+19*, CHKTKNS+20*, CHKTKNS+21*, CHKTKNS+22* , CHKTKNS+23* |
| LEXORD | CHKTKNS+4~, CHKTKNS+11*, CHKTKNS+14, CHKTKNS+15* |
| LEXS | KWO+1~*, KWO+2, KWO+4, KWO+6, KWO+7, KWO+9 |
| LEXSHCT | EN+1~, EN+20, EN+21 |
| LEXSHOW | EN+1~, EN+11*, CHK+23 |
| LEXSS | EN+14~, EN+15*, EN+16*, EN+17*, EN+18 |
| LEXSUB | EN+1~, EN+4* |
| LEXT | EN+13~, EN+19*, EN+20, EN+21, EN+23, EXACT+1, TOKEN+1, CHKTKNS+4~*, CHKTKNS+6, CHKTKNS+7 , CHKTKNS+8, CHKTKNS+9, CHKTKNS+10, CHKTKNS+11, CHKTKNS+12, CHKTKNS+13, CHKTKNS+14, CHKTKNS+19, CHKTKNS+20, CHKTKNS+21 , CHKTKNS+22, CHKTKNS+23 |
| >> LEXTKN( | CHKTKNS+3, CHKTKNS+4 |
| >> LEXTKN(0 | EN+20, EN+21, CHK+18 |
| >> LEXTKN(1 | EN+19 |
| >> LEXTKNS( | EN+16 |
| >> LEXTKNS(0 | EN+15, EN+16 |
| >> LEXVDT | CHK+23 |
| LEXX | DES~, DES+1, DES+2, DES+5*, SCH~, SCH+1*, SCH+2*, SCH+3 |
| X | KWO~, KWO+1, UP~, UP+1 |
| Y | KWO~, KWO+3 |