IBCEF31 ;ALB/ESG - FORMATTER SPECIFIC BILL FLD FUNCTIONS - CONT ;14-NOV-03
Source file <IBCEF31.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ALLTYP(IBIFN) | ; returns codes to translate to ALL ins types on a bill
; IBIFN = ien of bill |
|
INSTYP(IBIFN,SEQ) | ; Returns insurance type code for an ins on a bill
; IBIFN = ien of bill ; SEQ = sequence (1,2,3) of insurance wanted - prim, second, tert ; Default is current insurance co |
|
POLTYP(IBIFN,IBSEQ) | ; Returns ins electronic policy type code for one
; ins policy on a bill ; IBIFN = ien of bill ; IBSEQ = sequence (1,2,3) of ins policy wanted - prim, second, tert ; Default is current insurance co |
|
ALLPTYP(IBIFN) | ; returns insurance policy type codes for ALL ins on a bill
; IBIFN = ien of bill |
|
PGDX(DXCNT,IBX0,IBXDA,IBXLN,IBXCOL,IBXSIZE,IBXSAVE) | ; Subroutine - Checks for Diagnosis Codes (Dx) beyond
; the first four, that relate to the current Dx position passed in DXCNT. ; This subroutine stores the Diagnosis Codes in output global using display parameters (IBXLN,IBXCOL) ; THE PAGE IS ALWAYS 1 NOW SO WE DON'T NEED 4 LINES BELOW BAA *488* ; If DXCNT is 1, check for Dx's 5,9,...etc & display on pages 2,3,...etc ; If DXCNT is 2, check for Dx's 6,10,...etc & display on pages 2,3,...etc ; If DXCNT is 3, check for Dx's 7,11,...etc & display on pages 2,3,...etc ; If DXCNT is 4, check for Dx's 8,12,...etc & display on pages 2,3,...etc |
|
DXSV(IB,IBXSAVE) | ; output formatter subroutine
; save off DX codes in IBXSAVE("DX") |
|
AUTRF(IBXIEN,IBL,Z) | ; returns auth # and referral# if room for both, separated by a space - IB*2.0*432
; IBXIEN= claim ien ; IBL = field length-1 to allow for 1 blank space between numbers (28 for CMS 1500, 30 for UB-04) ; Z = 1 for PRIMARY, 2 for SECONDARY, 3 for TERTIARY ; |
|
GRPNAME(IBIEN,IBXDATA) | ; Populate IBXDATA with the Group Name(s).
; MRD;IB*2.0*516 - Created this procedure as extract code for ; ^IBA(364.5,199), N-ALL INSURANCE GROUP NAME. |
|
GRPNUM(IBXIEN,IBXDATA) | ; Populate IBXDATA with the Group Number(s).
; MRD;IB*2.0*516 - Created this procedure as extract code for ; ^IBA(364.5,200), N-ALL INSURANCE GROUP NUMBER. |
|
CMNDATA(IBXIEN,IBPROC,FLD,INT) | ;JRA;IB*2.0*608 Return data for specified Certificate of Medical Necessity (CMN) field.
|
|
CMNDEX(IBXIEN,IBXSAVE) | ;JRA;IB*2.0*608 Data Extract for LQ, CMN and MEA segments
|
|
FRM(IBXIEN,IBXSAVE) | ;JRA;IB*2.0*608 Data Extract for FRM segment
|
|
PTWT(IBXIEN) | ;JRA;IB*2.0*608 Return CMN Patient Weight from 1st Service Line # that has it (or NULL if none)
|
|
CMN484 | ;;24.1^1A^3~24.102^1B^5~24.103^1C^4~24.107^2^3^I~24.108^3^3^I~24.109^4^2^I~24.11^5^3~24.111^6A^3~24.113^6B^5~24.114^6C^4~24.104^7^2~24.105^8^2~24.106^9^2~24.115^C^3
|
|
CMN10126 | ;;24.201^1^2~24.202^2^2~24.204^3A^3~24.219^3B^3~24.203^4A^3~24.218^4B^3~24.205^5^3^I~24.206^6^3~24.207^7^2~24.208^8A^3~24.209^8B^5~24.21^8C^3~24.211^8D^3~24.212^8E^5~24.213^8F^3~24.215^8G^3~24.216^8H^5~24.214^9^3^I
|