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