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~ |