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: IBCEF2

Package: Integrated Billing

Routine: IBCEF2


Information

IBCEF2 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS ;8/6/03 10:54am

Source Information

Source file <IBCEF2.m>

Entry Points

Name Comments DBIA/ICR reference
HOS(IBIFN) ; Extract rev codes for inst. episode into IBXDATA
; Moved for space
OTHINS(IBIFN) ;Determine 'other insurance' node (I1,I2)
; If primary bill, other ins is secondary
; If sec or tert bill, other ins is primary
OTHINS1(IBIFN) ; Returns the COB #'s of all 'other insurance' as a string
OTHQ
RECVR(IBIFN) ; Returns the V.A. internal routing id of the current ins
; co for 837
ALLPAYID(IBIFN,IBXDATA,SEQ) ; Returns clearinghouse id for all (SEQ="")
; or a specific (SEQ=1,2,3) ins co's for 837 in IBXDATA(n) for bill ien
; IBIFN
; EJK *296* Add IBMRA - MRA Claim type.
; EJK *296* Add IBEBI - Electronic Billing ID
PAYERID(IBIFN) ; Returns clearinghouse id for current ins co
; IBIFN = bill ien
CURR(IBIFN) ; Returns ien of the current insurance
; company for bill ien IBIFN
  • ICR #4602
    • Status: Active
    • Usage: Private
    ADMDT(IBIFN,NOOUTCK) ; Calculate admission/start of care date/time
    DISDT(IBIFN) ; Calculate discharge date
    INDTS(IBIFN) ; Function returns the admit ^ discharge date/time of admission if patient is an inpatient on bill's event date
    TXMT(IBIFN) ; Function moved - use new call in IBCEF4
    ID(LN,VAL) ; Set EXTRACT GLOBAL for multi-valued record
    ; ids for Austin
    ; LN = the line # being extracted
    ; VAL = the value of the element being extracted
    ID1(LN,DX,CT,DCT,ECT) ;Special entry point for diagnoses to 'save' the fact
    ; a dx code is an e-code.
    ; LN is last entry # output, returned as the entry # (IBXLINE) to assign to this entry
    ; DX = the actual Dx code array(RECORD ID). Pass by reference, DX returned null if
    ; dx was not output
    ; CT = the ct on the 'DC' entry. pass by reference, returned null if
    ; the end of the valid dx codes has been reached
    ; DCT= Count of regular DX codes. UB-04 can have 25 non External Cause codes.
    ; ECT= Count of External Cause codes. UB-04 can have 12 External Cause codes.
    ; External Cause of Injury codes and qualifier changed with ICD-10: E-codes in ICD-9, V,X,W,Y-codes in ICD-10
    IDX1 ;
    M(CT) ; Calculate multi-valued field for 837 extract
    ; CT = passed by reference/the record ID counter
    SVITM(IBA,LINE) ; Saves the linked items from the bill data extract into
    ; an array the formatter will use to link Rxs and prosthetics
    ; to an SV1 or SV2 line item, if possible. Kills off IBA array entries
    ; after they are 'moved'
    ; IBA = array that contains the data to be saved
    ; subscripts are (line #,item type,item pointer)=ct
    LINK(IBTYP,IBDATA) ; Link the item with a service line, if possible
    ; IBTYP = the code for the type of item
    ; returned incremented if no link is made
    ; IBDATA = the extracted data string that identifies the item.
    ; Returns the line to link to or null if no link
    LINKQ
    COID(IBIFN) ; Claim office ID - moved for space
    PPOL(IBIFN,COB) ; return IFN of patient policy on a bill defined by COB (fields 399,112-114)
    LADJ(SUB,LINE,SEQ1,GRP,IBXSAVE,PIECE) ; Extract line level adjustments
    ; SUB = 1st subscript in IBXSAVE array to use
    ; LINE = 2nd subscript
    ; SEQ1 = 4th subscript
    ; GRP = 5th subscript
    ; IBXSAVE = array that has the data for COB line level adjustments
    ; PIECE = # of the piece on the 0-node of the line level
    ; adjustment reason to be extracted
    ESGHPST(IBIFN,COB) ; return insureds employ status if bill policy defined by COB is an Employer Sponsored Group Health Plan
    ESGHPNL(IBIFN,COB) ; return employer name and location if bill policy defined by COB is an Employer Sponsored Group Health Plan
    AMTOUT(A,B,C,IBXSAVE) ; format output amount
    SNF(IBIFN) ; Check to see if the claim is a SNF (Skilled Nursing Facility) Claim.
    ; Returned Values:
    ; SNF = 0 if claim is not a SNF Claim.
    ; SNF = 1 if claim is a SNF Claim.
    VC80CK(IBIFN) ; Determine if the Claim is eligible for Value Code 80 Revenue Code Claim Lines.
    INS ; Called by the Output Formatter [#364.7, 176]
    INS05 ; Called by the Output Formatter [#364.7, 178]
    INS07 ; Called by the Output Formatter [#364.7, 181]
    INS09 ; Called by the Output Formatter [#364.7, 180]
    INS12 ; Called by the Output Formatter [#364.7, 482]
    INS13 ; Called by the Output Formatter [#364.7, 805]

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGCR(399 - [#399] GET1^DIQ
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call