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 |