ICPTMOD2 ;ALB/DEK/KER - CPT MODIFIER APIS ;08/18/2007
Source file <ICPTMOD2.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 |
|---|---|---|
| MODA | ; Create an array of Modifiers for a CPT Code
|
|
| MODP(CODE,MOD,MFT,MDT,SRC,DFN) | ; Check if modifier can be used with code (pair)
|
|
| MODC(MOD) | ; Checks modifier for active range including code
|
|
| MULT | ; Finds iens for all modifiers with same 2-letter code
; MOD = .01, check B x-ref for dupliate .01 fields ; Output: ; STR - a ";" delimited string of IENS for modifier MOD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(81.3 - [#81.3] | MODA+35, MODA+36, MODA+37, MODP+32, MODP+41, MODP+42, MODP+44, MODP+45, MODC+8, MODC+10 , MODC+13, MULT+4 |
| ^ICPT - [#81] | MODP+35, MODP+36, MODP+39 |
| ^ICPT("BA" | MODA+33, MODP+38 |
| Name | Line Occurrences |
|---|---|
| $$MODP | MODA+38 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | MODA+32~, MODA+40*, MODA+41 |
| ADT | MODP+28~, MODP+48*, MODP+49, MODP+50, MODP+51, MODP+52*, MODP+53, MODP+55* |
| ARY | MODA+32! |
| ARY( | MODA+39*, MODA+40 |
| ARY(0 | MODA+41* |
| BEGA | MODP+28~, MODP+46*, MODP+49, MODP+50, MODP+51 |
| BEGR | MODP+28~, MODP+46*, MODP+47, MODP+53 |
| CDT | MODP+28~, MODP+43*, MODP+50, MODP+54, MODP+55 |
| CODE | MODA+33*, MODA+38, MODA+41, MODP~, MODP+35*, MODP+36*, MODP+37, MODP+38 |
| CODEA | MODP+28~, MODP+37*, MODP+46, MODP+48, MODP+49, MODP+50, MODP+51, MODC+8, MODC+12 |
| CODN | MODP+28~, MODP+35*, MODP+36 |
| DFN | MODP~ |
| EFF | MODA+32~, MODA+36*, MODA+39 |
| ENDA | MODP+28~, MODP+47*, MODP+48, MODP+49, MODP+50, MODP+51 |
| ENDR | MODP+28~, MODP+47*, MODP+48, MODP+53 |
| I | MODA+32~, MODA+40*, MODA+41 |
| ICD | MODP+28~, MODP+48*, MODP+52*, MODP+53 |
| ID | MODA+32~, MODA+38*, MODA+39 |
| IDT | MODP+28~, MODP+48*, MODP+49, MODP+50, MODP+51, MODP+52*, MODP+53* |
| LACT | MODP+28~, MODP+44*, MODP+49*, MODP+50*, MODP+54 |
| LINA | MODP+28~, MODP+44*, MODP+51*, MODP+54 |
| MDT | MODP~, MODP+29, MODC+6 |
| MFT | MODP~, MODP+29*, MODP+31, MODP+35 |
| MIEN | MODA+32~, MODA+35*, MODA+36, MODA+37, MODA+38, MODP+28~, MODP+31, MODP+32*, MODP+34*, MODP+35* , MODP+38*, MODP+40, MODP+41, MODP+42, MODP+43, MODP+44, MODP+45, MODP+53 |
| MOD | MODA+32~, MODA+37*, MODA+39, MODA+40*, MODP~, MODP+32, MODP+35, MODP+55*, MODP+56, MODP+57 , MODC~, MODC+6, MODC+8, MODC+10, MODC+13, MODC+14, MULT+4 |
| MODEFF | MODP+28~, MODP+40*, MODC+5~, MODC+6*, MODC+7 |
| MODI | MODP+28~, MODP+42*, MODP+53 |
| >> MODN | MULT+4* |
| MODNM | MODP+28~, MODP+41*, MODC+5~, MODC+13*, MODC+14 |
| MODST | MODP+28~, MODP+43*, MODP+53 |
| ND | MODP+28~, MODP+45*, MODP+46, MODP+47, MODP+48, MODP+52 |
| NSTA | MODP+28~, MODP+45~*, MODP+49*, MODP+50*, MODP+52 |
| >> PR | MODC+8*, MODC+9, MODC+10 |
| >> PRN | MODC+10*, MODC+11, MODC+12 |
| RIEN | MODP+28~, MODP+44*, MODP+45 |
| RSTA | MODP+28~, MODP+44*, MODP+49*, MODP+50*, MODP+54*, MODP+56 |
| SIEN | MODP+28~, MODP+38*, MODP+39 |
| SRC | MODA+32~, MODA+35*, MODP~, MODP+38*, MODP+39 |
| ST | MODA+32~, MODA+36*, MODA+40*, MODA+41* |
| STA | MODP+28~, MODP+43*, MODP+53*, MODP+55* |
| STI | MODP+28~, MODP+43* |
| >> STR | MODC+7*, MODC+9*, MODC+11*, MODC+12*, MODC+14*, MULT+4* |
| STX | MODP+28~, MODP+43! |
| STX( | MODP+53*, MODP+55 |
| STX("B" | MODP+53*, MODP+55 |
| TA | MODP+28~ |
| TA( | MODP+33* |
| TA(0 | MODP+33*, MODP+34 |
| TA(1 | MODP+34 |
| TEFF | MODP+28~, MODP+33* |
| TI | MODP+28~, MODP+32*, MODP+33* |
| TIEN | MODP+28~, MODP+32*, MODP+33 |
| VDT | MODA+34*, MODA+38, MODP+28~, MODP+29*, MODP+30*, MODP+31, MODP+33, MODP+40, MODP+43 |
| X | MODA+32~, MODA+38*, MODA+39 |
