IBAUTL5 ;ALB/CPM - MEANS TEST BILLING UTILITIES (CON'T.) ; 02-JAN-92
Source file <IBAUTL5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PASS | ; Find unbilled charges for an event and pass to Accounts Receivable.
; Input: IBEVDA, IBY Output: IBCHCDA, IBCHPDA are reset to 0. |
|
| FILER | ; Pass charge to Accounts Receivable. Input: IBNOS
; - first, get a bill number and build a complete charge.. |
|
| FILERQ | ||
| LAST | ; Find Last Billed date, if one exists, for pts. w/o billable events
; Input: DFN, IBADMDT Output: IBBDT (if past event exists) |
|
| DIEM() | ; Find the earliest date for which the per diem charge may be billed.
|
|
| SECT(FTS) | ; Find the billable bedsection.
; Input: Facility Treating Specialty (IEN from file #45.7) ; Returned: Billable bedsection from file 399.1 (MCCR UTILITY), or ; 0 if the specialty does not have a corresp. bedsection |
|
| CONT(DFN) | ; Find continuous patient discharge date.
; Input: DFN Returned: 0 - not continuous ; 9999999 - still continuous, or ; actual discharge date from continuous stay |
|
| STD(DFN) | ; Is the patient's A/R Statement date 4 days from now?
; Input: DFN Returned: Statement date in 4 days? (1 - yes, 0 - no) |
|
| OE(DGPMDA) | ; Was the patient admitted for Observation & Examination?
; Input: DGPMDA - pointer to 0th node of pt mvt (adm) in file #405 ; Returned: O&E Admission? (1 - yes, 0 - no) |
|
| ASIH(PM) | ; Is patient movement an ASIH movement?
; Input: PM - 0th node of patient movement in file #405 ; Returned: ASIH Movement? (1 - yes, 0 - no) |
|
| CVA(DFN) | ; Is CHAMPVA the patient's Primary Eligibility?
; Input: DFN Returned: Prim Elig = CHAMPVA? (1 - yes, 0 - no) |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | Classic Fileman Calls |
