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

Package: Integrated Billing

Routine: IBEFURF


Information

IBEFURF ;ALB/ARH - UTILITY: FIND RELATED FIRST PARTY BILLS ;3/7/00

Source Information

Source file <IBEFURF.m>

Entry Points

Name Comments DBIA/ICR reference
FPINPT(DFN,ADMDT,XRF) ; given a patient and admission date, find any Inpatient Charges
; find the record of the Event (based on Event Date) then find all charges with that Event as the Parent Event
FPINPT1(DFN,IBFROM,IBTO,XRF) ; find inpatient charges for a given patient IB*2.0*728
FPOPV(DFN,DT1,DT2,XRF) ; given a patient and date range, find any Outpatient Charges
; find all records where the Event Date is within the selected date range and the charge is Outpatient
FPRX(RXIFN,FILLDT,XRF,IBRXFL) ; given the prescription ifn (52) and the fill date, find any First Party charges
; get specific charge entry for an Rx from the Prescription file (52,106 and 52,52,9)
FPONE(FPIFN,XRF) ; for a FP charge entry get the one line item that defines the entire events charge(s)
; get the Parent Charge then use the last charge entry as the current record for the event
DONE(FPIFN,XRF) ; return true if item charge (last) is already included
SAVELN1(XRF,DATA) ; set charges found into array, ^TMP("IBRBF",$J,XRF) = DATA
SAVELN2(FPIFN,DATA,XRF) ; set charges found into array, ^TMP("IBRBF",$J,XRF,charge ifn) = DATA (from $$LN2)
LN2(FPIFN) ; return data for a specific First Party Bill:
; BILL FROM ^ BILL TO ^ CANCELLED? (1/0)^ AR BILL NUMBER ^ TOTAL CHARGE ^ ACTION TYPE (SHORT) ^ # DAYS ON HOLD
; for rx's: FROM date is the (re)fill date in 52 and TO is the date entry added (release date)
; also set # Days On Hold only if the bill is currently in On Hold status
LN2Q
ATAB(AT) ; given an Action Type (ptr to 350.1), return a shortened/abbreviated form of Action Type (350.1,.01)
ATABQ
CANC(FPIFN) ; given a First Party Charge (ptr to 350), return 1 if charge is Cancelled, "" otherwise
; is cancelled if the Action Type (350,.03) Sequence Number (350.1,.05) is Cancel
; or is cancelled if the Status (350,.05) is Cancelled (350.21,.05) (never passed to AR)
CANCQ
RXDT(FPIFN) ; return fill date of rx being billed, Resulting From must be 52
; fill date for Original = (52,22), for Refill = (52,52,.01)
RXDTQ
OHDT(FPIFN) ; return the bills # DAYS ON HOLD, if the bill is currently in the On Hold Status
OHDQ
CHKOPRX(IBACTIEN) ;
Info |  Source |  Entry Points