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 |