LEX10DLS ;ISL/KER - ICD-10 Diagnosis Lookup Selection ;04/21/2014
Source file <LEX10DLS.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 2 | ^DIR ^DIWP |
Kernel | 1 | $$UP^XLFSTR |
Name | Comments | DBIA/ICR reference |
---|---|---|
PR(LEX,X) | ; Parse Array
|
|
X(X,LEX) | ; Set X and Outpot Array
|
|
CL | ; Clear
|
|
ONE(X,LEX) | ; One Entry Found
|
|
SEL(LEX,X) | ; Select from List
|
|
ASK(LEX,X) | ; Ask for Selection
|
|
MUL(LEX,Y) | ; Multiple Entries Found
|
|
TM(X,Y) | ; Trim Character Y - Default " "
|
|
CONT(X,Y) | ; Ask to Continue
|
|
MULS(X,Y,LEX) | ; Select from Multiple Entries
|
|
MULSH | ; Select from Multiple Entries Help
|
|
MULQ | ; Quit Multiple
|
|
COH | ; Continue Help
|
|
MULW | ; Write Multiple
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^UTILITY($J | PR+2!, PR+7, PR+8, PR+9! |
Name | Line Occurrences |
---|---|
$$ASK | SEL+42 |
$$MUL | ASK+3 |
$$MULS | MUL+8, MUL+10 |
$$ONE | ASK+3 |
$$TM | PR+8 |
$$X | ONE+15, MULQ+2 |
MULQ | MUL+4, MUL+11 |
MULW | MUL+6 |
PR | ONE+7, MULW+5, CONT+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | ONE+1~, MULS+1~, MULS+16!, CONT+1~ |
DIR("?" | MULS+12*, CONT+12* |
DIR("??" | MULS+12*, CONT+12* |
DIR("A" | ONE+7*, ONE+8*, ONE+9*, ONE+10*, ONE+11*, MULS+5*, MULS+6*, MULS+8*, CONT+9*, CONT+10* , CONT+11* |
DIR("B" | ONE+11*, CONT+11* |
DIR("PRE" | MULS+11*, CONT+13* |
DIR(0 | ONE+11*, MULS+13*, CONT+12* |
DIRB | MULS+1~ |
DIROUT | ASK+4, ONE+12, MULS+14, CONT+1!, CONT+14 |
DIRUT | CONT+1!, CONT+14 |
DIW | PR+1~ |
DIWF | PR+1~, PR+4* |
DIWI | PR+1~ |
DIWL | PR+1~, PR+4* |
DIWR | PR+1~ |
DIWT | PR+1~ |
DIWTC | PR+1~ |
DIWX | PR+1~ |
DN | PR+1~ |
DTOUT | ASK+4, ONE+12, ONE+13, MULS+14, MULS+15, MULS+16, CONT+1!, CONT+14 |
DUOUT | ASK+4, ONE+12, MULS+14, CONT+1!, CONT+14 |
LEX | SEL~, SEL+42, ASK~, ASK+3, ONE~, ONE+14!, ONE+15, MUL~, MUL+8, MUL+10 , MULS~, MULQ+2, X~, X+9!, PR~, PR+2, PR+3, PR+6!, PR+9* |
LEX( | MULW+1, MULW+2, MULW+3, MULW+4, MULS+4, MULS+7, X+3, X+4, PR+5, PR+8* |
LEX(" " | ASK+2, MUL+3, PR+3 |
LEX(0 | ONE+2, MULS+3, X+2 |
LEX(1 | ONE+3, ONE+4, ONE+5 |
LEXC | ONE+1~, ONE+2~, ONE+5*, ONE+6, ONE+8*, ONE+9*, ONE+10*, CONT+1~, CONT+8*, CONT+9* , CONT+10*, PR+1~, PR+3*, PR+6*, PR+8*, PR+9 |
LEXE | MUL+1~, MUL+5*, MUL+6, MUL+7, MUL+8, MUL+9, MUL+10, MULW+1, MULW+2, MULW+3 , MULW+4, MULW+5 |
LEXEX | ONE+1~, ONE+4*, ONE+6, MULW+1~, MULW+3*, MULW+4, X+1~, X+3*, X+5 |
LEXFI | ONE+1~, ONE+2*, MULS+1~, MULS+3*, X+1~, X+2* |
LEXFQ | CONT+1~, CONT+2*, CONT+4 |
LEXHLP | MULS+1~, MULS+9*, MULS+10*, MULSH+1 |
LEXI | MULW+1~, MULW+6*, CONT+1~, CONT+8*, CONT+9, PR+1~, PR+4*, PR+5*, PR+6*, PR+7* , PR+8 |
LEXIEN | X+1~, X+4*, X+5 |
LEXIT | ASK+1~, ASK+2*, ONE+1~, ONE+13*, ONE+14, MUL+1, MUL+2*, MUL+5, MUL+8*, MUL+10* , MULS+2, MULS+15*, MULQ+2, CL+1! |
LEXL | ASK+1~*, ASK+3, MUL+1~, MUL+2*, MUL+6, MUL+7, MUL+8, MUL+9, PR+1~, PR+2* , PR+4 |
LEXLAST | MULS+1~, MULS+2*, MULS+4, MULS+7 |
LEXMAX | MUL+1~, MUL+2*, MUL+7*, MUL+8, MUL+10, MULS+1~, MULS+2*, MULS+3, MULS+6, MULS+8 , MULS+10, MULS+13 |
LEXN | X+1~ |
LEXNC | ONE+1~, ONE+3*, ONE+4*, ONE+6, MULW+1~, MULW+2*, MULW+4, X+1~, X+6*, X+7 , X+9*, X+10 |
LEXNN | X+1~, X+6*, X+7*, X+8, X+9*, X+10*, X+11 |
LEXRN | X+1~, X+8*, X+11* |
LEXS | MULS+1~, X+1~, X+2*, X+3, X+4, X+6, X+9 |
LEXSO | ONE+1~, ONE+3*, ONE+6, MULW+1~*, MULW+3, MULW+4, X+1~, X+3*, X+4 |
LEXSP | ONE+2~*, ONE+9 |
LEXSS | MUL+1~, MUL+2*, MUL+3*, MUL+5, MUL+8*, MUL+9, MUL+10*, MULQ+1, MULQ+2 |
LEXT | MULW+1~, MULW+6* |
LEXTOT | ASK+1~, ASK+2*, ASK+3 |
LEXTX | ONE+2~, ONE+7, MULW+1~, MULW+5 |
LEXTX( | MULW+6 |
LEXTX(1 | ONE+6*, ONE+8, MULW+3*, MULW+4*, MULW+5 |
LEXTX(2 | ONE+8, ONE+9 |
LEXW | CONT+1~, CONT+8 |
LEXW( | CONT+8, CONT+9 |
LEXW(1 | CONT+3* |
LEXW(2 | CONT+4* |
LEXW(3 | CONT+5* |
LEXW(4 | CONT+6* |
LEXW(5 | CONT+7* |
LEXX | MUL+1~, MUL+3*, MUL+4, MUL+5, CONT+1~, CONT+2*, CONT+3, CONT+7, COH+1, COH+3 , COH+6 |
U | MUL+2*, MULS+16 |
X | SEL~, SEL+42*, SEL+43, ASK~, ASK+1, ASK+3!*, ASK+4*, ASK+5, ONE~, ONE+13 , ONE+14, ONE+15*, ONE+16, MUL+1~, MUL+12, MULS~, MULS+2, MULS+15*, MULS+16, MULQ+2* , MULQ+3, X~, X+2, X+5*, X+12, CONT~, CONT+2, CONT+14*, CONT+15, PR~ , PR+2, PR+5*, TM~, TM+1*, TM+2*, TM+3*, TM+4 |
Y | ONE+2~, ONE+12, ONE+15, MUL~, MUL+2, MULS~, MULS+2, MULS+14, MULS+17, CONT~ , CONT+2, CONT+14, TM~, TM+1*, TM+2, TM+3 |
Z | PR+1~ |