IBCU73 ;ALB/ARH - ADD/DELETE MODIFIER 26 TO SPECIFIED CPTS ; 1-SEP-00
Source file <IBCU73.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | $$BILLRATE^IBCRU3 $$VERSDT^IBCRU8 $$GETMOD^IBEFUNC |
| VA FileMan | 2 | FILE^DICN ^DIE |
| 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 |
|---|---|---|
| CPTMOD26(IBIFN) | ; add/remove modifier 26 from specific CPT codes on Reasonable Charges bills
|
|
| MOD26(CPT,IBDT) | ; returns true if CPT should have a 26-modifier for professional bill
; |
|
| MOD26Q | ||
| DELMOD(IBIFN,BCPT,MOD) | ; delete the modifier from the CPT
; Input: BCPT - the ifn of the CPT in the 304 multiple ; MOD - internal form of the modifier to delete |
|
| ADDMOD(IBIFN,BCPT,MOD) | ; add the modifier to the CPT
; Input: BCPT - the ifn of the CPT in the 304 multiple ; MOD - internal form of the modifier to add |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | CPTMOD26+2, CPTMOD26+3, CPTMOD26+4, CPTMOD26+12, CPTMOD26+13, DELMOD+4, ADDMOD+4, ADDMOD+7, ADDMOD+9 |
| ^IBA(363.2 - [#363.2] | CPTMOD26+19 |
| ^IBE(363.1 - [#363.1] | CPTMOD26+9, CPTMOD26+10 |
| Name | Line Occurrences |
|---|---|
| $$MOD26 | CPTMOD26+17 |
| ADDMOD | CPTMOD26+24 |
| DELMOD | CPTMOD26+23 |
| MOD26Q | MOD26+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ADDMOD+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BCPT | DELMOD~, DELMOD+4, DELMOD+6, ADDMOD~, ADDMOD+4, ADDMOD+7, ADDMOD+9, ADDMOD+11, ADDMOD+13, ADDMOD+14 |
| CPT | MOD26~, MOD26+2, MOD26+3, MOD26+4, MOD26+5, MOD26+11 |
| DA | DELMOD+3~, DELMOD+6*, ADDMOD+3~, ADDMOD+10~, ADDMOD+13* |
| DA(1 | DELMOD+6*, ADDMOD+11*, ADDMOD+13*, ADDMOD+14* |
| DA(2 | DELMOD+6*, ADDMOD+11*, ADDMOD+13*, ADDMOD+14* |
| DD | ADDMOD+10~, ADDMOD+12! |
| DIC | DELMOD+3~, ADDMOD+3~, ADDMOD+11*, ADDMOD+13, ADDMOD+14* |
| DIC("DR" | ADDMOD+12*, ADDMOD+14* |
| DIC(0 | ADDMOD+12*, ADDMOD+14* |
| DIE | DELMOD+3~, DELMOD+6*, ADDMOD+3~, ADDMOD+13* |
| DINUM | ADDMOD+3~, ADDMOD+10~, ADDMOD+12*, ADDMOD+14* |
| DO | ADDMOD+10~, ADDMOD+12! |
| DR | DELMOD+3~, DELMOD+6*, ADDMOD+3~, ADDMOD+13* |
| DT | MOD26+2 |
| IB0 | CPTMOD26+1~, CPTMOD26+3*, CPTMOD26+7 |
| IB26 | CPTMOD26+1~, CPTMOD26+21*, CPTMOD26+23, CPTMOD26+24 |
| >> IBAUTO | CPTMOD26+26 |
| IBBCPT | CPTMOD26+1~, CPTMOD26+12*, CPTMOD26+13, CPTMOD26+21, CPTMOD26+23, CPTMOD26+24 |
| IBBCT | CPTMOD26+1~, CPTMOD26+3*, CPTMOD26+23, CPTMOD26+24 |
| IBBU | CPTMOD26+1~, CPTMOD26+4*, CPTMOD26+5, CPTMOD26+6 |
| IBCHANGE | CPTMOD26+1~*, CPTMOD26+23*, CPTMOD26+24*, CPTMOD26+26 |
| IBCPM | ADDMOD+3~, ADDMOD+8*, ADDMOD+9*, ADDMOD+12, ADDMOD+13 |
| IBCPTX | MOD26+2~*, MOD26+6, MOD26+8, MOD26+9, MOD26+10, MOD26+13 |
| IBCSI | CPTMOD26+1~, CPTMOD26+9*, CPTMOD26+19 |
| IBCSP | CPTMOD26+1~, CPTMOD26+10*, CPTMOD26+19 |
| IBDT | MOD26~, MOD26+2*, MOD26+13 |
| IBEND | CPTMOD26+1~, CPTMOD26+4*, CPTMOD26+6, CPTMOD26+15 |
| IBEVDT | CPTMOD26+1~, CPTMOD26+13*, CPTMOD26+14, CPTMOD26+15, CPTMOD26+17, CPTMOD26+19 |
| IBIFN | CPTMOD26~, CPTMOD26+2, CPTMOD26+3, CPTMOD26+4, CPTMOD26+12, CPTMOD26+13, CPTMOD26+21, CPTMOD26+23, CPTMOD26+24, DELMOD~ , DELMOD+4, DELMOD+6, ADDMOD~, ADDMOD+4, ADDMOD+7, ADDMOD+9, ADDMOD+11, ADDMOD+13, ADDMOD+14 |
| IBLN | CPTMOD26+1~, CPTMOD26+13*, CPTMOD26+17, CPTMOD26+19, DELMOD+3~, DELMOD+4*, DELMOD+6, ADDMOD+3~, ADDMOD+4* |
| IBM | ADDMOD+3~, ADDMOD+9*, ADDMOD+12 |
| IBMODS | CPTMOD26+1~, CPTMOD26+21*, CPTMOD26+23, CPTMOD26+24 |
| IBX | CPTMOD26+1~, CPTMOD26+9*, CPTMOD26+10*, CPTMOD26+19*, MOD26+2~*, MOD26+3*, MOD26+4*, MOD26+5*, MOD26+6*, MOD26+8* , MOD26+9*, MOD26+10*, MOD26+11*, MOD26+13*, MOD26Q |
| MOD | DELMOD~, DELMOD+3, DELMOD+4, ADDMOD~, ADDMOD+3, ADDMOD+4, ADDMOD+14 |
| U | CPTMOD26+3, CPTMOD26+5, CPTMOD26+7, CPTMOD26+13, ADDMOD+9, ADDMOD+12 |
| X | DELMOD+3~, ADDMOD+3~, ADDMOD+10~, ADDMOD+12*, ADDMOD+14* |
| Y | DELMOD+3~, ADDMOD+3~, ADDMOD+10~, ADDMOD+13 |
| >> ZTQUEUED | CPTMOD26+26 |