Routine: IBCNEHL1

Information

IBCNEHL1 ;DAOU/ALA - HL7 Process Incoming RPI Messages ; 26-JUN-2002

Name	Comments	DBIA/ICR reference
EN(EVENTYP)	;Entry Point
ENX	;
AUTOFIL(DFN,IEN312,ISSUB)	;Finish processing the response message - file directly into patient insurance
AUTOFILX	;
GRPFILE(DFN,IEN312,RIEN,AFLG)	;IB*497 file data at node 12 & at subfiles 2.312, 9, 10 & 11 ; DFN - file 2 ien ; IEN312 - file 2.312 ien ; RIEN - file 365 ien ; AFLG - 1 if called from autoupdate, 0 if called from ins. buffer process entry
GRPFILEX	;
FIL	;Finish processing the response message - file into insurance buffer
AUTOUPD(RIEN)	;
EBFILE(DFN,IEN312,RIEN,AFLG)	;File eligibility/benefit data from file 365 into file 2.312
EXPIRED(EXPDT)	; check if insurance policy has already expired ; EXPDT - expiration date (2.312/3) ; returns 1 if expiration date is in the past, 0 otherwise