IBACVA1 ;ALB/CPM - BILL CHAMPVA SUBSISTENCE CHARGE ; 29-JUL-93
Source file <IBACVA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BILL | ; Create the CHAMPVA inpatient subsistence charge.
|
|
| BILLQ | ||
| LIM(DATE) | ; Find the CHAMPVA subsistence limit on DATE.
; Input: DATE -- The date on which to determine the limit ; Output: IBLIM -- The maximum subsistence charge for an episode |
|
| LIMQ | ||
| PD(IBDT) | ; Find the CHAMPVA per diem charge on IBDT.
; Input: IBDT -- The date on which to determine the per diem ; Output: IBCHG -- The CHAMPVA per diem charge on IBDT ; IBATYP -- CHAMPVA Action Type |
|
| PDQ | ||
| PREV(DFN,DATE,LINK) | ; Billed an admission the CHAMPVA subsistence charge?
; Input: DFN -- Pointer to patient in file #2 ; DATE -- Event (admission) date ; LINK -- Pointer to mvmt in file #405 ; Output: 0 -- Admission has not been billed, or ; >0 -- ien of billed charge in file #350 |
|
| PREVQ |
