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
Print Page as PDF
Routine: IBRFN

Package: Integrated Billing

Routine: IBRFN


Information

IBRFN ;ALB/AAS - Supported functions for AR ;5-MAY-1992

Source Information

Source file <IBRFN.m>

Entry Points

Name Comments DBIA/ICR reference
ERR(Y) ; Input Y = -1^error code[;error code...]^literal message
; Output IBRERR = error message 1
; if more than one code then
; IBRERR(n)=error code n
ERRQ
MESS(Y) ; -input y=error code - from file 350.8 (piece 3)
; output error message
  • ICR #310
    • Status: Active
    • Usage: Private
    SVDT(BN,VDT) ;returns service dates for a specific bill
    ; Input: BN bill number (external form)
    ; VDT name of array to hold outpatient visit dates, pass by value (if needed)
    ; Output: X function value, string, = 0 if bill not found
    ; = 1 (Inpt) or 2 (Outpt)^event date^stmt from date^stmt to date^LOS (I)^Number of visit dates (O)
    ; all are internal form, any piece may be null if not defined for the bill
    ; array containing outpatient visit dates as subscripts/no data, if VDT passed by value
  • ICR #300
    • Status: Active
    • Usage: Private
    REC(IBSTR,IBTYPE,IBDISP) ; Find the AR for an Authorization or Rx number
    ; Input: IBSTR - FI Authorization Number or Rx Number
    ; Output: IBAR >0 => ptr to claim/AR in files 399/430
    ; -1 => No receivable found
    ; IBTYPE (by ref) - how the IBSTR was recognized: 1-Auth,2-ECME,3-Rx#,0-Unknown
    ; IBDISP (by ref) - external display of number (for example to include the leading zeros on the ECME#)
  • ICR #2031
    • Status: Active
    • Usage: Private
    RECQ
    RXREC(IBRXN) ; Search the Rx
    AREC(AUTH) ; Find the Receivable for a TRICARE FI Authorization Number
    ; Input: AUTH - Fiscal Intermediary Authorization Number
    ; Output: IBIFN >0 => ptr to claim/AR in files 399/430
    ; -1 => No receivable found
    ARECQ ;
    EREC(AUTH) ; Find the Receivable for an ECME FI Number
    ; Input: AUTH - Fiscal Intermediary ECME Number
    ; Output: IBIFN >0 => ptr to claim/AR in files 399/430
    ; -1 => No receivable found
    ERECQ ;
    DTL(IBIFN,TYPE,AUTH) ;Details
    AUD(IBIFN) ; Does the Accounts Receivable need to be audited?
    ; Input: IBIFN - ptr to claim/AR in files 399/430
    ; Output: 0 => Claim does not have to be audited
    ; (claim was set up automatically)
    ; 1 => Claim must be audited
    ; (claim was established manually)
  • ICR #2031
    • Status: Active
    • Usage: Private
    AUDQ
    TYP(IBIFN) ; Determine the bill type for an Accounts Receivable.
    ; Input: IBIFN - ptr to claim/AR in files 399/430
    ; Output: I => Inpatient bill
    ; O => Outpatient bill
    ; PH => Pharmacy bill
    ; PR => Prosthetics bill
  • ICR #2031
    • Status: Active
    • Usage: Private
    TYPQ
    RELBILL(IBIFN) ; given a Third Party Bill, find all related Third Party bills,
    ; then find all First Party bills related to any of the Third Party bills
    ; Input: IBIFN = internal file number of a Third Party bill
    ; Output: Third Party Bills (#399)
    ; ^TMP("IBRBT", $J, selected bill ifn) = PATIENT HAS ANY RX COVERAGE ON FROM DATE OF BILL?
    ; ^TMP("IBRBT", $J, selected bill ifn, matching bill ifn) =
    ; BILL FROM ^ BILL TO ^ CANCELLED? ^ AR BILL NUMBER ^
    ; PAYER SEQUENCE ^ PAYER IS MEDICARE SUPPLEMENTAL (0/1) ^ PAYER NAME
    ; Output: First Party Bills (#350)
    ; ^TMP("IBRBF", $J , selected bill ifn ) = ""
    ; ^TMP("IBRBF", $J , selected bill ifn , charge ifn) =
    ; BILL FROM ^ BILL TO ^ CANCELLED? ^ AR BILL NUMBER ^
    ; TOTAL CHARGE ^ ACTION TYPE (SHORT) ^ # DAYS ON HOLD
  • ICR #3124
    • Status: Active
    • Usage: Private
    SEL(IBARR) ; Select an rx bill
    ; Input: IBARR - Array of IBIFN
    ; Output: IBNUM - One of the bill iens, or -1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"More than one claim for Rx# ",IBSTR," exists."
    • Line Location: RXREC+26
    Function Call: WRITE
    • Prompt: !!,"More than one claim for ECME# ",AUTH," exists."
    • Line Location: EREC+30
    Function Call: WRITE
    • Prompt: !!,"Found IB Bill ",IBBIL," matching to "_TYPE_" '",AUTH,"':"
    • Line Location: DTL+13
    Function Call: WRITE
    • Prompt: !,"Rx#",IBRX,"-",IBFIL," ",$$DAT3^IBOUTL(IBDAT),", ",IBPATN,", ",IBDRUG
    • Line Location: DTL+14
    Function Call: WRITE
    • Prompt: " (",IBQTY,")"
    • Line Location: DTL+14
    Function Call: WRITE
    • Prompt: !!?4,"Select one of the following:",!
    • Line Location: SEL+10
    Function Call: WRITE
    • Prompt: !?8,"BILL",?17,"RX",?31,"DATE",?42,"INSURANCE",?60,"COB",?65,"PATIENT"
    • Line Location: SEL+11
    Function Call: WRITE
    • Prompt: !?4
    • Line Location: SEL+12
    Function Call: WRITE
    • Prompt: "-"
    • Line Location: SEL+12
    Function Call: WRITE
    • Prompt: !?4,IBC,?8,IBBIL," ",?17,IBRXN,"-",IBFIL," ",?31,$$DAT1^IBOUTL(IBDT)," ",?42,$E(IBINS,1,18),?61,IBCOB,?65,$E(IBPT,1,14)
    • Line Location: SEL+27
    Function Call: READ
    • Formatting: !!?4
    • Prompt: "Select one of the bills by number: "
    • Variable: IBY
    • Timeout: DTIME
    • Line Location: SEL+30
    Function Call: WRITE
    • Prompt: !!?8,"Enter numeric value from 1 to ",IBC
    • Line Location: SEL+31
    Info |  Source |  Entry Points |  Interaction Calls