IBAECU ;ALB/BGA - LTC UTILITIES DETERMINE LTC ELIG ; 25-SEPT-01
Source file <IBAECU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LTCST(DFN,IBDT,LOS) | ; returns LTC status from API
; input: Patient's DFN, Date of Care, Length of stay |
|
| MAXRATE(IBDT) | ; returns the max rates for the effective date
; the rates retuned are the max daily rates for any and all LTC ; copayments. The return is: outpatient^inpatient |
|
| FACSPEC(IBSPEC) | ; returns the treating specialty for 42.4 from a facility sp
|
|
| LTCSPEC(IBSPEC) | ||
| LTCSTOP(IB407) | ||
| CLOCK(DFN,IBDATE) | ; verfiy a clock exists, if not, one will be added
|
|
| YR(IBRTED,IBFR) | ; is the effective date of the clock too old?
; Input: IBRTED -- Effective Date ; IBFR -- Event Date ; Output: 1 -- Effective Date is too old ; 0 -- Not |
|
| ADDCL(DFN,IBADT) | ; adds a LTC clock, returns LTC Clock IEN
; needs DFN and IBADT (clock begin date) |
|
| ADDCLQ | ||
| LTCENC(DFN,DATE) | ; Did the patient have LTC on a specified date?
; Input: DFN -- Pointer to the patient in file #2 ; DATE -- Date of the Outpatient Visit ; Output: 0 -- Patient did not have a LTC on the visit date ; 1 -- Patient had a LTC on the visit date |
|
| LTCENCQ | ||
| XMBACK(DFN,IBM) | ; send a message saying LTC processing has stoped for an event
|
|
| XMNOEC(DFN,IBDT,IBE) | ; send a message saying no 1010EC on file for LTC pt.
; IBE is optional additional text |
|
| XMDEM(DFN,IBT,IBL) | ; Sets basic demographics in text
|
|
| LASTDT(X) | ; compute the last day of the month in X
|
|
| TOT | ; calculates the total charged for a patient (for the month)
; requires IBFR, IBLTCST, DFN ; returns IBT (total amount already billed), IBTYP (inpt or opt) |
|
| LASTMJ() | ; function to return when the Monthly Job was last run or 0
|
|
| CDEXMPT(DFN,IBDT) | ; determine if the patient is exempt from non-institutional
; ltc charges because of Catastrophically Disabled status ; 0 - not exempt from LTC, 1 - exempt from LTC |
|
| LTCCHK(IBAT) | ; Check to see if the action type is an LTC Action Type
; Input: IBZ - Action type data from IBE(350.1,,0) |
| FileNo | Call Tags |
|---|---|
| ^IBA(351.81 - [#351.81] | Classic Fileman Calls |
