Routine: IVMPINS

Information

IVMPINS ;ALB/CPM,PHH - INSURANCE EVENT DRIVER INTERFACE ; 01-MAY-94

Source file <IVMPINS.m>

Name	Comments	DBIA/ICR reference
EN	; Queue transmission if an IVM patient's insurance status changes. ; Input: DFN -- Pointer to the patient in file #2
ENQ
PRIOR(DA)	; Find insurance status from last transmission ; Input: DA -- Pointer to the case record in file #301.5 ; Output: 0 -- No active insurance at last transmission ; (or could not identify last transmission) ; 1 -- Had active insurance at last transmission