IBCEP3 ;ALB/TMP - EDI UTILITIES for provider ID ;25-SEP-00
Source file <IBCEP3.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 |
|---|---|---|
| CUNEED(IBIFN,IBSEQ,IBPTYP,IBRET,IBEMC) | ; Determine if care unit needed for
; provider type and insurance company(s) on bill ; IBIFN = ien of bill (file 399) ; IBSEQ = specific COB sequence to check or null for check all ; IBPTYP = the ien of the provider id type in file 355.97 or if null, ; the default performing provider ID type for the ins co's. ; IBRET = flag to return insurance ien (0) or file 355.97 ien (1) ; IBEMC = no longer used |
|
| CAREUN(IBINS,IBPTYP,IBFTYP,IBCTYP,IBRX) | ; Find ien (file 355.96) for care
; unit for the combination of ins co, prov type, form type and ; care type ; IBINS = ien of ins co (file 36) ; IBPTYP = ien of provider id type (file 355.97) ; IBFTYP = form type (1=UB,2=1500) ; IBCTYP = care type (1=inpat,2=outpat) ; IBRX = 1 if outpat/Rx bill |
|
| DISP(IBINS,IBTYPE) | ; Return the name of the type of care unit needed
; IBINS = ien of ins co (file 36) ; IBTYPE = 2:PERFORMING PROVIDER ID |
|
| DELID(IBIFN,IBSEQ,IBX) | ; Delete all provider data specific to an ins co
; represented by the COB sequence IBSEQ for bill IBIFN ; IBX = 1 if called from care unit prompt - don't delete value |
|
| SETID(IBIFN,IBSEQ) | ; Default provider id for bill IBIFN and ins co for COB
; sequence IBSEQ |
|
| ALLID(IBIFN,IBFLD,IBFUNC) | ; If form type or care type (I/O/RX) changes,
; determine new provider id values if possible and update them ; this includes primary, secondary, tertiary id's ; IBIFN = ien of claim (file 399) ; IBFLD = ien of the field being changed when this call is made ; (.19 = form type .25 = care type) ; IBFUNC = 1 to add, 2 to delete |
|
| CUMNT | ; Add/edit care unit
|
|
| INS | ||
| DUP(IBDA,IBOLD,IBFUNC) | ; Check if the combination of ins co, prov type, care
; type and form already exists in file 355.96 ; IBDA = ien of entry in file 355.96 ; IBOLD = the 0-node before changes were made - used to reset the fields |
|
| PROFID(IBIFN,IBSEQ,IBID) | ; Return id and type of rendering provider id
; used for insurance co at COB seq IBSEQ for bill ien IBIFN ; RETURN VALUES: ; piece 1: ; 1 = FEDERAL TAX ID ; 2 = INSURANCE CO SPECIFIC ID ; 3 = NETWORK ID ; "" = not a CMS-1500 bill or no id found ; piece 2: ; the id # |
|
| PROFIDQ | ||
| NETWRK(IBIFN,IBID,IBSEQ) | ; Determine if ID number IBID is the same as the
; network id for the insurance co ; IBIFN = bill ien (file 399) ; IBSEQ = COB seq # of bill ; Returns 1 if network ID match is found for bill IBIFN, COB seq IBSEQ |
| Name | Field # of Occurrence |
|---|---|
| ^DIC | INS+1 |
| ^DIE | DUP+12 |
| FILE^DIE | DELID+11, ALLID+11 |
| ^DIK | DUP+14 |
| ^DIR | INS+3, INS+6 |
| $$COBN^IBCEF | PROFID+11, NETWRK+9 |
| $$FT^IBCEF | CUNEED+20, PROFID+14 |
| $$INPAT^IBCEF | CUNEED+20 |
| $$NOPUNCT^IBCEF | PROFID+15, PROFID+17, NETWRK+13 |
| F^IBCEF | PROFID+15 |
| $$ISRX^IBCEF1 | CUNEED+24 |
| $$PPTYP^IBCEP0 | NETWRK+11 |
| $$INSSEQ^IBCEP1 | CUNEED+31 |
| $$GETID^IBCEP2 | ALLID+10, NETWRK+13 |
| $$PERFPRV^IBCEP2A | NETWRK+13 |
| CHANGE^IBCEP4A | INS+12 |
| NEW^IBCEP4A | INS+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.96 - [#355.96] | Classic Fileman Calls |
| ^DIC(36 - [#36] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | DELID+6, ALLID+9, NETWRK+10 |
| ^DIC(36 - [#36] | CUNEED+31, DISP+4 |
| ^IBA(355.96 - [#355.96] | CAREUN+14, CAREUN+15, CAREUN+19, CAREUN+20, CAREUN+21, CAREUN+22, INS+5, DUP+5, DUP+7 |
| ^IBE(350.9 - [#350.9] | PROFID+17 |
| ^IBE(355.97 - [#355.97] | NETWRK+11 |
| Name | Line Occurrences |
|---|---|
| $$CAREUN | CUNEED+34 |
| $$NETWRK | PROFID+17 |
| PROFIDQ | PROFID+14, PROFID+16 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DELID+6, ALLID+9 |
| ^(0 | CAREUN+19, CAREUN+20, CAREUN+21, CAREUN+22 |
| ^(1 | DELID+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D | CUMNT+1~ |
| DA | CUMNT+1~, DUP+4~, DUP+12*, DUP+14* |
| DIC | CUMNT+1~, INS+1*! |
| DIC(0 | INS+1* |
| DIE | CUMNT+1~, DUP+4~, DUP+12* |
| DIK | CUMNT+1~, DUP+4~, DUP+14* |
| DIR | CUMNT+1~, INS+3!, INS+6! |
| DIR("A" | INS+3*, INS+6* |
| DIR("B" | INS+6* |
| DIR(0 | INS+3*, INS+6* |
| DR | DUP+4~, DUP+10*, DUP+11* |
| DTOUT | CUMNT+1~, INS+2 |
| DUOUT | CUMNT+1~, INS+2 |
| DUP | DUP+4~, DUP+5*, DUP+8*, DUP+15 |
| IB | CUNEED+18~, CUNEED+19*, CUNEED+22, CUNEED+35*, CUNEED+37*, CUNEED+38, CAREUN+9~, CAREUN+10*, CAREUN+16*, CAREUN+18 , CAREUN+19*, CAREUN+20*, CAREUN+21*, CAREUN+22*, CAREUN+24, CUMNT+1~ |
| IB0 | DUP+4~, DUP+5*, DUP+7 |
| IBC | ALLID+7~, ALLID+10* |
| IBCT | CUMNT+1~ |
| IBCTYP | CUNEED+18~, CUNEED+20*, CUNEED+23*, CUNEED+24, CUNEED+34, CAREUN~, CAREUN+19, CAREUN+21 |
| IBDA | DUP~, DUP+5, DUP+7, DUP+12, DUP+14 |
| IBDR | DELID+3~, DELID+11, SETID+2~, ALLID+7~, ALLID+11 |
| IBDR( | DELID+8*, DELID+10*, ALLID+10* |
| IBEMC | CUNEED~, CUNEED+17 |
| IBF | CUMNT+1~, INS+4*, INS+7*, INS+8, INS+11, INS+12 |
| IBFLD | ALLID~ |
| IBFTYP | CUNEED+18~, CUNEED+20*, CUNEED+22, CUNEED+23*, CUNEED+34, CAREUN~, CAREUN+14, CAREUN+19, CAREUN+20 |
| IBFUNC | ALLID~, ALLID+10, DUP~, DUP+9, DUP+13 |
| IBID | PROFID~, PROFID+12, PROFID+15*, PROFID+16, PROFID+17, PROFID+18, NETWRK~, NETWRK+13 |
| IBIFN | CUNEED~, CUNEED+20, CUNEED+24, CUNEED+31, DELID~, DELID+6, DELID+8, DELID+10, SETID~, ALLID~ , ALLID+9, ALLID+10, PROFID~, PROFID+14, PROFID+15, PROFID+17, NETWRK~, NETWRK+10, NETWRK+13 |
| IBINS | CAREUN~, CAREUN+14, CAREUN+15, CAREUN+19, CAREUN+20, CAREUN+21, CAREUN+22, DISP~, DISP+4, CUMNT+1~ , INS+4*, INS+5, INS+10, NETWRK+5~, NETWRK+10*, NETWRK+11 |
| IBINS1 | CUMNT+1~, INS+4* |
| IBNET | NETWRK+5~, NETWRK+6*, NETWRK+7, NETWRK+13*, NETWRK+14 |
| IBOK | CUMNT+1~ |
| IBOLD | CUMNT+1~, DUP~, DUP+10, DUP+11 |
| IBPT | CUNEED+18~, CUNEED+25*, CUNEED+30 |
| IBPTYP | CUNEED~, CUNEED+25, CUNEED+30*, CUNEED+32*, CUNEED+33, CUNEED+34, CAREUN~, CAREUN+14, CAREUN+15, CAREUN+19 , CAREUN+20, CAREUN+21, CAREUN+22, CUMNT+1~ |
| IBPTYP1 | CUMNT+1~ |
| IBQ | CUNEED+18~, CUNEED+27*, CUNEED+28, CUNEED+29*, CUNEED+30*, CUNEED+33* |
| IBRET | CUNEED~, CUNEED+35 |
| IBRX | CUNEED+18~, CUNEED+19*, CUNEED+24*, CUNEED+34, CAREUN~, CAREUN+12 |
| IBSEQ | CUNEED~, CUNEED+29, CUNEED+30, CUNEED+35, DELID~, DELID+5, DELID+8, DELID+10, SETID~, PROFID~ , PROFID+11*, PROFID+15, PROFID+17, NETWRK~, NETWRK+9*, NETWRK+10, NETWRK+13 |
| IBT | SETID+2~, ALLID+7~, ALLID+10 |
| IBTYP | PROFID+10~, PROFID+12*, PROFID+17*, PROFID+18*, PROFIDQ |
| IBTYPE | DISP~, DISP+3 |
| IBX | DELID~ |
| IBXDATA | PROFID+10~ |
| >> IBXIEN | PROFID+11, NETWRK+9 |
| IBY | CUMNT+1~ |
| IBZ | DELID+3~, DELID+4*, DELID+6*, DELID+8, DELID+10, SETID+2~, SETID+3*, PROFID+10~, PROFID+15 |
| Q | CUNEED+18~, CUNEED+34*, CUNEED+35 |
| T | CAREUN+13~, CAREUN+14*, CAREUN+15*, CAREUN+16 |
| U | CUNEED+35, CUNEED+37, DISP+4, DELID+8, DELID+10, ALLID+10, INS+4, DUP+7, DUP+10, DUP+11 , PROFID+12, PROFID+15, PROFID+17, PROFID+18, NETWRK+11 |
| X | DELID+3~, SETID+2~, CUMNT+1~, DUP+4~ |
| Y | DELID+3~, SETID+2~, CUMNT+1~, INS, INS+2*, INS+3, INS+4, INS+7, DUP+4~ |
| Z | CUNEED+18~, CUNEED+27*, CUNEED+29*, CUNEED+30*, CUNEED+31, CUNEED+35, ALLID+7~, ALLID+8*, ALLID+9* |
| Z0 | CUNEED+18~, CUNEED+31*, CUNEED+33, CUNEED+34, CUNEED+35, DELID+3~, DELID+6*, DELID+8, DELID+10, ALLID+7~ , ALLID+9*, ALLID+10 |
| Z1 | DELID+3~, DELID+6* |
| Z4 | CUNEED+18~, CUNEED+31*, CUNEED+32 |
