Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCEF31

Package: Integrated Billing

Routine: IBCEF31


Information

IBCEF31 ;ALB/ESG - FORMATTER SPECIFIC BILL FLD FUNCTIONS - CONT ;14-NOV-03

Source Information

Source file <IBCEF31.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
399.0304 GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call