IBCEU2 ;ALB/TMP - EDI UTILITIES FOR AUTO ADD OF CODES ON BILL ;20-OCT-99
Source file <IBCEU2.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 |
|---|---|---|
| AUTOCK(IBIFN,IBQUIET) | ; Auto add any codes necessary based on data
; existing on bill, if needed. ; IBQUIET - optional parameter - equals 1 to suppress screen display |
|
| PRPAY(IBIFN,IBCOBN,IBQUIET) | ; Output value cd A1 or A2 for prior payments, if needed
; IBIFN = ien of bill in file 399 ; IBCOBN = the COB sequence number for bill (2=secondary, 3=tertiary) ; IBQUIET = 1 to suppress screen display |
|
| SUBDOB(IBIFN,IBCOBN,IBQUIET) | ; Add occurrence codes A1,B1,C1 as needed for subscriber DOB
; IBIFN = ien of bill in file 399 ; IBQUIET = 1 to suppress screen display |
|
| COMBO(IBXDATA,IBXTRA,IBINST) | ; Determine the bundled/unbundled codes - add
; line items where needed to line item array IBXDATA(line #) ; Update referenced line in COB entries returned in IBXDATA ; IBXTR = array input with bundled/unbundled procedures ; ("ALL",original line~original procedure~service date, ; new procedure)=COB seq #^sequence # of adjustment in ; IBXDATA(n,"COB",COB seq #,adj#) ; IBINST = 1 if institutional claim, 0 if professional |
|
| MCRPT(DFN,IBDT) | ; Determine if patient has MCRWNR insurance or if they
; are at least 65 yrs old, so should be MCR eligible as of IBDT (or DT) ; DFN = ien of patient |
| Name | Field # of Occurrence |
|---|---|
| FILE^DICN | AUTOCK+39, PRPAY+31, PRPAY+39, SUBDOB+21 |
| ^DIE | AUTOCK+41 |
| $$COBN^IBCEF | AUTOCK+5 |
| $$FT^IBCEF | AUTOCK+14 |
| $$INPAT^IBCEF | AUTOCK+14, AUTOCK+26 |
| F^IBCEF | AUTOCK+16, AUTOCK+21, AUTOCK+31, PRPAY+17, PRPAY+23, SUBDOB+13, SUBDOB+14 |
| $$GETSPEC^IBEFUNC | PRPAY+30, PRPAY+38, SUBDOB+20 |
| $$MCRWNR^IBEFUNC | MCRPT+6 |
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | AUTOCK+28, AUTOCK+35, PRPAY+9, PRPAY+10, PRPAY+11, PRPAY+13, SUBDOB+7, SUBDOB+11, SUBDOB+18 |
| ^DGCR(399.1 - [#399.1] | AUTOCK+18, AUTOCK+28, AUTOCK+38, PRPAY+7, PRPAY+8, SUBDOB+6 |
| ^DGCR(399.2 - [#399.2] | AUTOCK+35 |
| ^DPT - [#2] | MCRPT+7 |
| ^DPT(2 | MCRPT+6 |
| ^IBM(361.1 - [#361.1] | PRPAY+26 |
| Name | Line Occurrences |
|---|---|
| SUBDOB | AUTOCK+11 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MCRPT+6 |
| ^(0 | AUTOCK+35 |
| ^(1 | PRPAY+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | AUTOCK+4~, AUTOCK+27~, AUTOCK+41*, PRPAY+5~, SUBDOB+8~ |
| DA(1 | AUTOCK+37*, PRPAY+29*, PRPAY+37*, SUBDOB+20* |
| DD | AUTOCK+27~, AUTOCK+40!, PRPAY+5~, PRPAY+31!, PRPAY+39!, SUBDOB+8~, SUBDOB+21! |
| DFN | MCRPT~, MCRPT+6, MCRPT+7 |
| DIC | AUTOCK+27~, AUTOCK+37*, AUTOCK+40!, PRPAY+5~, PRPAY+29*, PRPAY+31!, PRPAY+37*, PRPAY+39!, SUBDOB+8~, SUBDOB+20* |
| DIC("DR" | AUTOCK+37*, PRPAY+30*, PRPAY+38*, SUBDOB+20* |
| DIC("P" | PRPAY+30*, PRPAY+38*, SUBDOB+20* |
| DIC(0 | AUTOCK+37*, PRPAY+30*, PRPAY+38*, SUBDOB+20* |
| DIE | AUTOCK+4~, AUTOCK+27~, AUTOCK+41* |
| DLAYGO | AUTOCK+27~, AUTOCK+37*, AUTOCK+40!, PRPAY+5~, PRPAY+29*, PRPAY+31!, PRPAY+37*, PRPAY+39!, SUBDOB+8~, SUBDOB+20* |
| DO | AUTOCK+27~, AUTOCK+40!, PRPAY+5~, PRPAY+31!, PRPAY+39!, SUBDOB+8~, SUBDOB+21! |
| DOB | MCRPT+3~, MCRPT+7* |
| DR | AUTOCK+4~, AUTOCK+5*, AUTOCK+19*, AUTOCK+22*, AUTOCK+27~, AUTOCK+41, SUBDOB+4~ |
| DT | MCRPT+4, MCRPT+7 |
| IB24 | PRPAY+5~, PRPAY+25*, PRPAY+26*, PRPAY+27, PRPAY+30 |
| IB24( | PRPAY+8*, PRPAY+9, PRPAY+10, PRPAY+11, PRPAY+37 |
| IB24("A1" | PRPAY+6* |
| IB24("A2" | PRPAY+6* |
| IB24(24 | PRPAY+6*, PRPAY+7*, PRPAY+13, PRPAY+29 |
| IBAMT | AUTOCK+27~, AUTOCK+34*, AUTOCK+35*, AUTOCK+36, AUTOCK+37 |
| IBCOBN | AUTOCK+4~, AUTOCK+5*, AUTOCK+11, PRPAY~, SUBDOB~, SUBDOB+15, SUBDOB+16, SUBDOB+17 |
| >> IBCT | PRPAY+6*, PRPAY+18*, PRPAY+34 |
| IBDT | MCRPT~, MCRPT+4* |
| IBFL | AUTOCK+4~, AUTOCK+27~ |
| IBFL(39 | AUTOCK+32 |
| IBIFN | AUTOCK~, AUTOCK+5, AUTOCK+11, AUTOCK+14, AUTOCK+16, AUTOCK+21, AUTOCK+26, AUTOCK+28, AUTOCK+31, AUTOCK+35 , AUTOCK+37, AUTOCK+41, PRPAY~, PRPAY+9, PRPAY+10, PRPAY+11, PRPAY+13, PRPAY+17, PRPAY+23, PRPAY+29 , PRPAY+37, SUBDOB~, SUBDOB+7, SUBDOB+11, SUBDOB+13, SUBDOB+14, SUBDOB+18, SUBDOB+20 |
| IBINST | COMBO~, COMBO+25, COMBO+26, COMBO+34, COMBO+35 |
| IBND0 | AUTOCK+27~, AUTOCK+28* |
| IBNEED | PRPAY+5~, PRPAY+6*, PRPAY+10*, PRPAY+14, PRPAY+15, PRPAY+33 |
| IBNEED( | PRPAY+10*, PRPAY+18*, PRPAY+38 |
| IBNEED24 | PRPAY+5~, PRPAY+6*, PRPAY+11*, PRPAY+13*, PRPAY+14, PRPAY+18*, PRPAY+20 |
| IBOC | SUBDOB+8~, SUBDOB+9*, SUBDOB+10, SUBDOB+11, SUBDOB+18, SUBDOB+19, SUBDOB+20 |
| IBOC( | SUBDOB+18 |
| IBOK | AUTOCK+27~, AUTOCK+30*, AUTOCK+32*, AUTOCK+33 |
| IBQUIET | AUTOCK~, AUTOCK+11, PRPAY~, PRPAY+28, PRPAY+34, SUBDOB~, SUBDOB+19 |
| IBTOB | AUTOCK+27~, AUTOCK+28*, AUTOCK+29 |
| IBV | PRPAY+5~ |
| IBV( | PRPAY+11* |
| IBVN | PRPAY+5~ |
| IBVN( | PRPAY+18*, PRPAY+36 |
| IBVN("" | PRPAY+34 |
| IBVOC | SUBDOB+4~ |
| IBVOC( | SUBDOB+6*, SUBDOB+10, SUBDOB+11, SUBDOB+20 |
| IBVOC("A1" | SUBDOB+5* |
| IBVOC("B1" | SUBDOB+5* |
| IBVOC("C1" | SUBDOB+5* |
| IBXDATA | PRPAY+16~, PRPAY+21~, COMBO~ |
| IBXDATA( | COMBO+24*, COMBO+25*, COMBO+26*, COMBO+33*, COMBO+34*, COMBO+35*, COMBO+36* |
| IBXDATA("" | COMBO+24, COMBO+33 |
| IBXTRA | COMBO~ |
| IBXTRA("ALL" | COMBO+9, COMBO+15, COMBO+17, COMBO+18! |
| IBXTRA("B" | COMBO+17*, COMBO+29, COMBO+31 |
| IBXTRA("U" | COMBO+15*, COMBO+21, COMBO+22, COMBO+25, COMBO+34, COMBO+36 |
| IBZ | AUTOCK+17, AUTOCK+22, PRPAY+16~, PRPAY+21~, SUBDOB+4~, SUBDOB+12 |
| IBZ( | PRPAY+18, SUBDOB+18, SUBDOB+20 |
| IBZ(0 | PRPAY+17 |
| IBZ(1 | PRPAY+24, PRPAY+26, SUBDOB+15*, SUBDOB+16*, SUBDOB+17* |
| IBZ(2 | SUBDOB+15*, SUBDOB+16*, SUBDOB+17* |
| IBZ(3 | SUBDOB+15*, SUBDOB+16*, SUBDOB+17* |
| IBZ1 | SUBDOB+8~, SUBDOB+15, SUBDOB+16, SUBDOB+17 |
| IBZ2 | SUBDOB+8~ |
| IBZ2(1 | SUBDOB+15, SUBDOB+16, SUBDOB+17 |
| IBZ2(2 | SUBDOB+15, SUBDOB+16, SUBDOB+17 |
| MCR | MCRPT+3~, MCRPT+5*, MCRPT+6*, MCRPT+7*, MCRPT+8 |
| PROC1 | COMBO+30~, COMBO+31*, COMBO+33* |
| U | AUTOCK+18, AUTOCK+28, AUTOCK+32, AUTOCK+35, AUTOCK+38, PRPAY+7, PRPAY+8, PRPAY+11, PRPAY+18, PRPAY+26 , PRPAY+38, SUBDOB+6, SUBDOB+19, COMBO+25, COMBO+26, COMBO+34, COMBO+35, COMBO+36, MCRPT+6, MCRPT+7 |
| X | AUTOCK+27~, AUTOCK+38*, AUTOCK+39, PRPAY+29*, PRPAY+37*, SUBDOB+8~, SUBDOB+20* |
| Y | AUTOCK+27~, SUBDOB+8~ |
| Z | AUTOCK+18~*, AUTOCK+19, AUTOCK+27~, AUTOCK+32*, AUTOCK+34*, AUTOCK+35*, PRPAY+5~, PRPAY+7*, PRPAY+8*, PRPAY+9* , PRPAY+10, PRPAY+11, PRPAY+18*, PRPAY+25*, PRPAY+26*, PRPAY+36*, PRPAY+37, PRPAY+38, SUBDOB+4~, SUBDOB+6* , SUBDOB+7*, SUBDOB+9, SUBDOB+18, SUBDOB+19, SUBDOB+20, COMBO+8~, COMBO+9*, COMBO+15, COMBO+17, COMBO+22* , COMBO+24, COMBO+25, COMBO+31*, COMBO+33, COMBO+34, COMBO+36, MCRPT+3~, MCRPT+5*, MCRPT+6* |
| Z0 | AUTOCK+27~, AUTOCK+35*, PRPAY+5~, PRPAY+8*, PRPAY+11*, PRPAY+18*, PRPAY+26*, SUBDOB+4~, SUBDOB+6*, COMBO+8~ , COMBO+9*, COMBO+15*, COMBO+17, COMBO+22*, COMBO+25, COMBO+26, COMBO+31*, COMBO+33, COMBO+34, COMBO+36 |
| Z1 | PRPAY+21~, PRPAY+26*, COMBO+8~, COMBO+24*, COMBO+25, COMBO+26, COMBO+33*, COMBO+34, COMBO+35, COMBO+36 |
| ZP | COMBO+33~*, COMBO+34, COMBO+35 |
