DGICDL ;ALB/SJA - Select ICD DIAGNOSIS FROM LEXICON UTILITY LIST ;12/07/2011
Source file <DGICDL.m>
| 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 |
|---|---|---|
| SEL(DGL,X) | ; Select from List
|
|
| ASK(DGL,X) | ; Ask for Selection
|
|
| ONE(X,DGL) | ; One Entry Found
|
|
| MUL(DGL,Y) | ; Multiple Entries Found
|
|
| MULW | ; Write Multiple
|
|
| MULS(X,Y,DGL) | ; Select from Multiple Entries
|
|
| MULSH | ; Select from Multiple Entries Help
|
|
| MULQ | ; Quit Multiple
|
|
| X(X,DGL) | ; Set X and Output Array
|
|
| CL | ; Clear
|
|
| PR(DGL,X) | ; Parse Array
|
|
| TM(X,Y) | ; Trim Character Y - Default " "
|
| Name | Line Occurrences |
|---|---|
| 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! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PR+1~ |
| %D | PR+1~ |
| DGL | SEL~, SEL+43, 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* |
| DGL( | MULW+1, MULW+2, MULW+3, MULW+4, MULS+4, MULS+7, X+3, X+4, PR+5, PR+8* |
| DGL(" " | ASK+2, MUL+3, PR+3 |
| DGL(0 | ONE+2, MULS+3 |
| DGL(1 | ONE+3, ONE+4, ONE+5 |
| DGLC | ONE+1~, ONE+2~, ONE+5*, ONE+6, ONE+8*, ONE+9*, ONE+10*, PR+1~, PR+3*, PR+6* , PR+8*, PR+9 |
| DGLE | MUL+1~, MUL+5*, MUL+6, MUL+7, MUL+8, MUL+9, MUL+10, MULW+1, MULW+2, MULW+3 , MULW+4, MULW+5 |
| DGLEX | ONE+1~, ONE+4*, ONE+6, MULW+1~, MULW+3*, MULW+4, X+1~, X+3*, X+5 |
| DGLFI | ONE+1~, ONE+2*, MULS+1~, MULS+3* |
| DGLHLP | MULS+1~, MULS+9*, MULS+10*, MULSH+1 |
| DGLI | MULW+1~, MULW+6*, PR+1~, PR+4*, PR+5*, PR+6*, PR+7*, PR+8 |
| DGLIEN | X+1~, X+4*, X+5 |
| DGLIT | 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! |
| DGLL | ASK+1~*, ASK+3, MUL+1~, MUL+2*, MUL+6, MUL+7, MUL+8, MUL+9, PR+1~, PR+2* , PR+4 |
| DGLLAST | MULS+1~, MULS+2*, MULS+4, MULS+7 |
| DGLMAX | MUL+1~, MUL+2*, MUL+7*, MUL+8, MUL+10, MULS+1~, MULS+2*, MULS+3, MULS+6, MULS+8 , MULS+10, MULS+13 |
| DGLN | X+1~ |
| DGLNC | ONE+1~, ONE+3*, ONE+4*, ONE+6, MULW+1~, MULW+2*, MULW+4, X+1~, X+6*, X+7 , X+9*, X+10 |
| DGLNN | X+1~, X+6*, X+7*, X+8, X+9*, X+10*, X+11 |
| DGLRN | X+1~, X+8*, X+11* |
| DGLS | MULS+1~, X+1~, X+2*, X+3, X+4, X+6, X+9 |
| DGLSO | ONE+1~, ONE+3*, ONE+6, MULW+1~*, MULW+3, MULW+4, X+1~, X+3*, X+4 |
| DGLSP | ONE+2~*, ONE+9 |
| DGLSS | MUL+1~, MUL+2*, MUL+3*, MUL+5, MUL+8*, MUL+9, MUL+10*, MULQ+1, MULQ+2 |
| DGLT | MULW+1~, MULW+6* |
| DGLTOT | ASK+1~, ASK+2*, ASK+3 |
| DGLTX | ONE+2~, ONE+7, MULW+1~, MULW+5 |
| DGLTX( | ONE+9, MULW+6 |
| DGLTX(1 | ONE+6*, ONE+8, MULW+3*, MULW+4*, MULW+5 |
| DGLX | MUL+1~, MUL+3*, MUL+4, MUL+5 |
| >> DGZZONE | ONE+16* |
| DIR | ONE+1~, MULS+1~, MULS+16! |
| DIR("?" | MULS+12* |
| DIR("??" | MULS+12* |
| DIR("A" | ONE+7*, ONE+8*, ONE+9*, ONE+10*, ONE+11*, MULS+5*, MULS+6*, MULS+8* |
| DIR("B" | ONE+11* |
| DIR("PRE" | MULS+11* |
| DIR(0 | ONE+11*, MULS+13* |
| DIRB | MULS+1~ |
| >> DIROUT | ASK+4, ONE+12, MULS+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 |
| >> DUOUT | ASK+4, ONE+12, MULS+14 |
| I | PR+1~ |
| U | MUL+2*, MULS+16 |
| X | SEL~, SEL+43*, SEL+44, ASK~, ASK+1, ASK+3!*, ASK+4*, ASK+5, ONE~, ONE+13 , ONE+14, ONE+15*, ONE+16, ONE+17, MUL+1~, MUL+12, MULS~, MULS+2, MULS+15*, MULS+16 , MULQ+2*, MULQ+3, X~, X+2, X+5*, X+12, 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, TM~ , TM+1*, TM+2, TM+3 |
| Z | ONE+1~, ONE+9*, PR+1~ |