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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCEMU2

Package: Integrated Billing

Routine: IBCEMU2


Information

IBCEMU2 ;ALB/DSM - IB MRA Utility ;01-MAY-2003

Source Information

Source file <IBCEMU2.m>

Entry Points

Name Comments DBIA/ICR reference
QMRA ; This is a background procedure that is spun off of the IB BATCH
; Print option. This process scans a queue in ^XTMP("IBMRA"_#,$J) and checks
; each Bill to see if a printable MRA exist, if so, prints them. MRA's print
; on the device associated with the 'Bill Addendum' Form Type.
; This process doesn't interact with users.
STOP() ;determine if user has requested the queued report to stop
STAT(IBIFN,STATUS,MRAONLY) ; Update the review status in the EOB file
; This procedure updates field .16 in file 361.1 for all EOB's for
; the given bill#
;
; IBIFN - Internal Bill# (required)
; STATUS - Internal Value of the Review Status field (required)
; MRAONLY - Optional Flag with a default of 0 if not passed in
; 1:only update MRA EOB's for this bill
; 0:update all EOB's for this bill
; 2:only update non-MRA EOB's for this bill (IB*2.0*547)
STATX ;
MRAWL(IBIFN) ; Do any MRA EOB's for this bill appear on the worklist?
MRAWLX ;
TXSTS(IBIFN,IB364,REJFLG,IBZ) ; Claim transmission status information
; Input IBIFN - required
; IB364 - optional (defaults to most recent transmission#)
; Output REJFLG (pass by reference) - 1/0 flag if any rejection status
; messages on file
; IBZ (pass by reference) - array of information
TXSTSX ;
MRACALC(IBEOB,IBIFN,AR,PRCASV) ; Calculates Two Amounts:
; Unreimbursable Medicare Expense and Medicare Contract Adjustment
; Amount for a given EOB.
MEDCARE(IBEOB,PRCASV) ; If Outpatient Calculate from Service Line level data
CALCMCA(EOBADJ) ; FUNCTION - Calculate Medicare Contract Adjustment
; Sums up Amounts on ALL Reason Codes under ALL Group Codes = 'CO' and
; returns that value (which is Medicare Contract Adjustment).
ALLOWED(IBEOB) ; Returns Total Allowed Amount by summing up all Allowed Amounts
; from Line Level Adjustment
; Input: IBEOB = ien of EOB file (361.1)
;
MRATYPE(BILL,ARDATE) ; Function - determines the MRA Receivable Type for a Third
; Party Receivable. This is accomplished by comparing DATE MRA FIRST ACTIVATED
; with AR Activation Date for the Bill.
;
; Input BILL= ien of a given Bill Number (Required)
; ARDATE= Date Account Receivable was Activated - date only (Required)
  • ICR #4385
    • Status: Active
    • Usage: Private
    MRADTACT() ; Function - returns DATE MRA FIRST ACTIVATED at site
  • ICR #4385
    • Status: Active
    • Usage: Private
    MRACALC2(IBIFN) ; Function - This tag will add all EOB's for a given claim number.
    ; Returns the sum of the Medicare Contractual Adj Amt

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: QMRA+19
    Function Call: WRITE
    • Prompt: !,"***TASK STOPPED BY USER***"
    • Line Location: STOP+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBM(361.1 - [#361.1] CHK^DIE
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call