LEX10CX4 ;ISL/KER - ICD-10 Cross-Over - Ask ;04/21/2014
Source file <LEX10CX4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SAB(X) | ; Select Coding System
|
|
ONE(X) | ; One Entry Found - Needs LEXB
|
|
PAR(LEXC,LEXL) | ; Parse Array
|
|
MULQ | ; Quit Multiple
|
|
Y(LEX,LEXB) | ; Set Y
|
|
MULS(X,Y) | ; Select Multiple - Needs LEXB, Uses LEXIT,LEXTOT
|
|
MUL(X) | ; Multiple Entries Found - Needs LEXB
|
|
TM(X,Y) | ; Trim Y
|
|
MULSH | ; Select Multiple Help
|
|
ASK(LEXA,LEXB) | ; Ask for Selection
|
|
MULW | ; Write Multiple - Needs LEXENT,LEXIEN,LEXSO,LEXTXT
|
|
X(LEXA) | ; Set X
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^LEX(757.03 - [#757.03] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LEX(757.03 - [#757.03] | SAB+4, SAB+13, SAB+14 |
^UTILITY($J | PAR+2!, PAR+7, PAR+8, PAR+9! |
Name | Line Occurrences |
---|---|
$$MUL | ASK+13 |
$$MULS | MUL+19, MUL+22 |
$$ONE | ASK+13 |
$$TM | ASK+11, MULW+9, PAR+8 |
MULQ | MUL+6, MUL+24 |
MULW | MUL+16 |
PAR | ASK+9, ONE+4, MULW+6 |
X | ASK+15 |
Y | ASK+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | PAR+1~ |
DIC | SAB+1~, SAB+2* |
DIC("A" | SAB+3* |
DIC("B" | SAB+4* |
DIC("S" | SAB+10* |
DIC("W" | SAB+5*, SAB+6*, SAB+7*, SAB+8*, SAB+9*, SAB+11* |
DIC(0 | SAB+2* |
DIR | ONE+1~, MULS+1~, MULS+19! |
DIR("?" | MULS+13* |
DIR("??" | MULS+13* |
DIR("A" | ONE+5*, ONE+6*, ONE+8*, ONE+9*, ONE+10*, MULS+7*, MULS+8*, MULS+9* |
DIR("B" | ONE+10* |
DIR("PRE" | MULS+12* |
DIR(0 | ONE+10*, MULS+14* |
DIRB | MULS+1~ |
DIROUT | SAB+1~ |
DIRUT | SAB+1~ |
DIW | PAR+1~ |
DIWF | PAR+1~, PAR+3* |
DIWI | PAR+1~ |
DIWL | PAR+1~, PAR+3* |
DIWR | PAR+1~ |
DIWT | PAR+1~ |
DIWTC | PAR+1~ |
DIWX | PAR+1~ |
DN | PAR+1~ |
DTOUT | ONE+12, MULS+16, MULS+18, SAB+1~, SAB+12 |
DUOUT | SAB+1~, SAB+12 |
I | PAR+1~ |
LEX | Y~, Y+3* |
>> LEX0FND | ASK+2* |
>> LEX0REV | ONE+11*, MUL+17* |
>> LEX0SEL | ONE+11*, MULS+20* |
LEXA | ASK~, ASK+15, X~ |
LEXA("SOURCE" | ASK+3, ASK+4, ASK+5, X+2, X+3, X+4, X+5 |
LEXANS | ASK+1~, ASK+13*, ASK+14, ASK+15, ASK+17 |
LEXB | ASK~, ASK+15, ASK+17!, Y~, SAB+1~, SAB+4*, SAB+13*, SAB+14 |
LEXB( | MUL+12, MULS+6, MULS+20, Y+3 |
LEXB(0 | ASK+2, MUL+5 |
LEXB(1 | ONE+2 |
LEXC | PAR~, PAR+2, PAR+6! |
LEXC( | PAR+4, PAR+5, PAR+8* |
LEXCOD | X+1~, X+3*, X+6, Y+1~, Y+5*, Y+8 |
LEXDAT | Y+1~, Y+2~, Y+3*, Y+4, Y+5, Y+7 |
LEXEIEN | Y+2~ |
LEXENT | MUL+1~, MUL+4*, MUL+9*, MUL+10, MUL+12, MUL+16, MUL+18, MUL+19, MUL+21, MUL+22 , MULW+1, MULW+5, MULS+2~, MULS+3*, MULS+4, MULS+15 |
LEXEX | Y+2~ |
LEXEXP | X+1~, X+2*, X+6, Y+1~, Y+4*, Y+8 |
LEXFND | ASK+1~, ASK+2*, ASK+13 |
LEXHLP | MULS+1~, MULS+10*, MULS+11*, MULSH+1 |
LEXI | ASK+1~, ASK+8~, ASK+10*, ASK+11, MULW+3~, MULW+8*, MULW+9 |
LEXICDD | Y+2~ |
LEXIEN | ONE+1~, ONE+2*, MUL+1~, MUL+11~, MUL+13*, MUL+14, MULW+1, PAR+1~, PAR+3*, PAR+4* , PAR+5, PAR+6*, PAR+7*, PAR+8, X+1~, X+5*, X+6, Y+1~, Y+7*, Y+8 |
LEXIND | ASK+1~, ASK+8~*, MULW+3~, MULW+4*, MULW+7, MULW+10 |
LEXIT | MUL+1~, MUL+4*, MUL+9, MUL+10*, MUL+20*, MUL+23*, MULS+2, MULS+16*, MULS+17, MULS+19~ |
LEXITEM | MUL+1~, MUL+11~, MUL+12*, MUL+13, MUL+14 |
LEXL | PAR~, PAR+2*, PAR+3* |
LEXLAST | MULS+1~, MULS+4*, MULS+6 |
LEXLEN | ASK+1~, ASK+8~, MUL+1~, MUL+2*, MUL+3*, MUL+16, MUL+18, MUL+19, MUL+21 |
LEXLN | ONE+1~, ONE+6*, ONE+7*, ONE+8, ONE+9* |
LEXMAT | MUL+1~, MUL+7*, MUL+8 |
LEXMAX | MUL+1~, MUL+4*, MUL+16*, MUL+17, MUL+19, MUL+22, MULS+1~, MULS+4*, MULS+5, MULS+10 , MULS+14 |
LEXN | MUL+1~, MUL+2, MUL+3~ |
LEXNEXT | MULS+2~, MULS+6*, MULS+9 |
LEXNOM | X+1~, X+4*, X+6, Y+1~, Y+6*, Y+8 |
LEXRAN | MULS+2~, MULS+5*, MULS+8, MULS+9 |
LEXS | MULS+2~, MULS+3*, MULS+4, MULS+18*, MULS+20, MULS+21 |
LEXSEL | MUL+1~, MUL+4*, MUL+6*, MUL+10, MUL+19*, MUL+20, MUL+21, MUL+22*, MUL+23, MULQ+1 |
LEXSO | ONE+1~, ONE+3*, ONE+4, MUL+2~, MUL+11~, MUL+13*, MUL+15, MULW+2, MULW+5, Y+2~ |
LEXSRCO | ASK+1~, ASK+3*, ASK+6, ASK+7 |
LEXSRNM | ASK+1~, ASK+5*, ASK+7 |
LEXSRTX | ASK+1~, ASK+4*, ASK+6, ASK+8 |
LEXSTA | Y+2~ |
LEXT | ASK+1~, ASK+8~, ASK+9 |
LEXT( | ASK+10, ASK+11 |
LEXT(1 | ASK+8*, ASK+9 |
LEXTAB | MULW+3~, MULW+4*, MULW+5 |
LEXTD | Y+2~ |
LEXTEXT | ONE+1~, ONE+2*, ONE+3*, ONE+4, MUL+2~, MUL+11~, MUL+14*, MUL+15, MULW+2, MULW+6 |
LEXTOT | MUL+2~, MUL+5*, MUL+6, MUL+7, MUL+8, MUL+9, MUL+17, MULS+15, MULS+19~ |
LEXTX2 | ASK+11~*, ASK+12, MULW+3~, MULW+9~*, MULW+10 |
LEXTXT | ONE+2~, ONE+4, MULW+3~, MULW+6 |
LEXTXT( | MULW+8, MULW+9 |
LEXTXT(1 | ONE+4*, ONE+6, MULW+6*, MULW+7 |
LEXTXT(2 | ONE+7, ONE+8 |
U | ONE+3, MUL+5*, MUL+13, MUL+14, MULS+18 |
X | ASK+14*, ASK+15*, ASK+16*, ASK+17!*, ONE~, ONE+12, MUL~, MUL+25, MULS~, MULS+3~ , MULS+15*, MULS+16*, MULS+17, MULS+18, MULQ+1*, MULQ+2, PAR+1~, PAR+5*, TM~, TM+2* , TM+3*, TM+4, X+1!*, X+6*, SAB~, SAB+12!, SAB+14*, SAB+15 |
Y | ASK+2*, ASK+14*, ASK+15*, ASK+16*, ASK+17!*, ONE+2~, ONE+11, MUL+2~, MULS~, MULS+2~ , MULS+3, MULS+15*, MULS+18, TM~, TM+1*, TM+2, TM+3, Y+3!*, Y+8*, SAB+1~ , SAB+13 |
Z | PAR+1~ |