IBEFURT ;ALB/ARH - UTILITY: FIND RELATED THIRD PARTY BILLS ; 3/7/00
Source file <IBEFURT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TPEVDT(DFN,EVDT,XRF) | ; find all bills for a patient with a specific Event Date (399,.03)
|
|
| TPPTF(PTF,XRF) | ; find all bills for a specific PTF number (399,.08)
|
|
| TPOPV(DFN,DT1,DT2,XRF) | ; find all bills for a patient with any Opt Visit Dates within a range (399,43)
|
|
| TPRX(DFN,RXN,RXDT,XRF) | ; find all bills for a patient with a specific Rx fill (Rx number and fill date) (362.4,.01,.03)
|
|
| SAVELN1(XRF,DATA) | ; set bill into array: ^TMP("IBRBT",$J,XRF) = DATA (from $$LN1)
|
|
| SAVELN2(IBIFN,XRF) | ; set bills found into array: ^TMP("IBRBT",$J,XRF,IBIFN)= BILL FROM ^ BILL TO ^ CANCELLED (0/1) ^ AR BILL NUMBER ^ PAYER SEQUENCE ^ PAYER IS MEDICARE SUPPLEMENTAL (0/1) ^ PAYER NAME
|
|
| LN1(IBIFN) | ; based on the bill passed in returns: PATIENT HAS ANY RX COVERAGE ON FROM DATE OF BILL (0/1)
|
|
| LN1Q | ||
| LN2(IBIFN) | ; based on the bill passed in returns:
; BILL FROM ^ BILL TO ^ CANCELLED (0/1) ^ AR BILL NUMBER ^ PAYER SEQUENCE ^ PAYER IS MEDICARE SUPPLEMENTAL (0/1) ^ PAYER NAME |
|
| LN2Q | ||
| TPLAN(IBIFN) | ; check if bills payer policy is a Med Supp or whatever type requires Third Party reimbursment to be applied to First Party charges on a 1-1 basis
; returns true if Bill Payer Policy's Type of Plan is Med Supp (399,136 > 2.312,18 > 355.3,.09 > 355.1,.03) |
|
| TPLANQ | ||
| RXTP(DFN,RXN,RXDT,SAVE) | ; check if a particular Prescription fill has been billed on a Third Party bill, Rx # and fill date
; if SAVE is passed in then the list of bills for the Rx is returned in ^TMP("IBRBT",$J,SAVE,IBIFN)=data |
