IBAMTV1 ;ALB/CPM - BUILD ARRAY OF BILLABLE EPISODES ; 31-MAY-94
Source file <IBAMTV1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CARE | ; Build an array of episodes to be back-billed.
 | 
|
| INP(DATE) | ; Was the patient an inpatient on DATE?
 ; Input: DATE -- Date of outpatient visit ; array IBARR ; Output: 1 -- Patient was an inpatient on DATE ; 0 -- Patient was not  | 
|
| INPQ | ||
| ORIG(IBA) | ; Find first admission pointer, considering ASIH movements
 ; Input: IBA -- Pointer to admission in #405 ; Output: Z -- Pointer to original admission in #405  |