IBCEP3 ;ALB/TMP - EDI UTILITIES for provider ID ;25-SEP-00
Source file <IBCEP3.m>
| 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 | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.96 - [#355.96] | Classic Fileman Calls |
| ^DIC(36 - [#36] | Classic Fileman Calls |
