Routine: IBCNEHL5A

Information

IBCNEHL5A ;AITC/CKB - HL7 Process Incoming RPI Msgs (Cont.) ; 10-JAN-2025

Name	Comments	DBIA/ICR reference
LOAD(RIEN)	; Load Medicare policy as a new policy on patient record ; RIEN - IEN OF THE EIV REPONSE IN FILE #365 ; ; Only allowed to load Medicare (WNR) policies if the patient has no ; history of any MEDICARE (WNR) on file in #2.312 and if the patient has ; no other policies on file that meet a specific criteria and if the MEDICARE ; policy is active according to the Medicare payer's 271 eIV response ; ; Returns 1 if at least 1 policy was loaded; otherwise, returns a zero
XLOAD	;
SAVEMWR(RIEN)	;autoload of Medicare policy(s) ; The logic in this tag is from AUTOFIL^IBCNEHL5, with minor modifications for Medicare autoload
SAVEMWRX	;
MWRUNLOCK	;unlock ins subfile
GETGRP
ADDCOM(IBDFN,IBPOLDA,IBPOLCOM)	; ; Add new patient policy comment (2.312, 1.18) Multiple #2.342