LEX10DBC ;ISL/KER - ICD-10 Diagnosis Lookup by Code ;11/16/2016
Source file <LEX10DBC.m>
| Package | Total | Call Graph |
|---|---|---|
| Lexicon Utility | 1 | (ARY,REDUCE)^LEX10DU |
| VA FileMan | 1 | ^DIM |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| I10C(LEXC,LEXA,LEXD,LEXN,LEXF) | ; Lookup by Code, Return Pruned List
|
|
| FIND(LEXC,LEXD,LEXF) | ; Find All Codes
|
|
| SCR(X,Y) | ; Screen
|
|
| TM(X,Y) | ; Trim Character Y - Default " "
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LEX(757.01 - [#757.01] | FIND+20, SCR+1 |
| ^LEX(757.02 - [#757.02] | FIND+16, FIND+17 |
| ^TMP("LEXDX" | I10C+29!, I10C+39!, FIND+14!, FIND+23* |
| Name | Line Occurrences |
|---|---|
| $$FIND | I10C+35 |
| $$SCR | FIND+18 |
| $$TM | FIND+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LEX1 | FIND+1~, FIND+9~, FIND+15*, FIND+16, FIND+17, FIND+19, FIND+23 |
| LEX2 | FIND+1~, FIND+9~, FIND+19* |
| LEXA | I10C~, I10C+29! |
| LEXA(" " | I10C+37 |
| LEXA(0 | I10C+33*, I10C+38* |
| LEXC | I10C~, I10C+30, FIND~, FIND+3, FIND+9~, FIND+10*, FIND+14, FIND+21, FIND+22, FIND+23 |
| LEXCDT | I10C+29~, I10C+30*, I10C+35 |
| LEXCT | I10C+29~, I10C+35*, FIND+1~, FIND+7*, FIND+14*, FIND+23*, FIND+24 |
| LEXD | I10C~, I10C+30, FIND~, FIND+3, FIND+9~, FIND+11*, FIND+13, FIND+23 |
| LEXE | FIND+9~, FIND+17*, FIND+18, FIND+20 |
| LEXF | I10C~, I10C+31, FIND~, FIND+2 |
| LEXFIL | I10C+29~, I10C+31*, I10C+34*, I10C+35, FIND+1~, FIND+2*, FIND+18, SCR+2~*, SCR+3 |
| LEXFND | I10C+30~, I10C+35*, I10C+38 |
| LEXLEN | FIND+1~, FIND+7*, FIND+21*, FIND+22 |
| LEXN | I10C~, I10C+30 |
| LEXNC | FIND+1~, FIND+6*, FIND+8 |
| LEXNN | FIND+1~, FIND+5*, FIND+8*, FIND+10, FIND+11, FIND+12, FIND+15, FIND+19 |
| LEXNUM | I10C+29~, I10C+30*, I10C+35*, I10C+36 |
| LEXOR | FIND+1~, FIND+4*, FIND+5 |
| LEXPRE | FIND+1~, FIND+7*, FIND+21*, FIND+22* |
| LEXS | FIND+9~, FIND+12* |
| LEXSO | I10C+29~, I10C+30*, I10C+31, I10C+32*, I10C+35, FIND+3*, FIND+4, FIND+6 |
| LEXTOT | I10C+30~, I10C+37*, I10C+38 |
| LEXUSE | I10C+29~, I10C+31* |
| LEXVDT | FIND+1~, FIND+3*, FIND+11, FIND+13 |
| X | SCR~, SCR+2, SCR+3*, SCR+4, TM~, TM+1*, TM+2*, TM+3*, TM+4 |
| Y | SCR~, SCR+1*, TM~, TM+1*, TM+2, TM+3 |