IBCNBLB.m

IBCNBLB ;BP/YMG - Ins Buffer: Eligibility/Benefit screen;14 Oct 09

 ;;2.0;INTEGRATED BILLING;**416**;21-MAR-94;Build 58

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

EN ; entry point - IBCNB EXPAND BENEFITS action protocol

 N IEN365

 I '$G(IBBUFDA) G ENX

 S IEN365=$O(^IBCN(365,"AF",IBBUFDA,""),-1) I 'IEN365 W !!,"This entry does not have an associated eIV response." D PAUSE^VALM1 G ENX

 D EB^IBCNES(365.02,IEN365_",","A",1,"EIV EB DATA")

ENX ;

 S VALMBCK="R"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCNBLB   502     printed  Apr 09, 2024@21:30:52                                                                                                                                                                                                      Page 2

IBCNBLB   ;BP/YMG - Ins Buffer: Eligibility/Benefit screen;14 Oct 09

 +1       ;;2.0;INTEGRATED BILLING;**416**;21-MAR-94;Build 58

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

EN        ; entry point - IBCNB EXPAND BENEFITS action protocol

 +1        NEW IEN365

 +2        IF '$GET(IBBUFDA)

               GOTO ENX

 +3        SET IEN365=$ORDER(^IBCN(365,"AF",IBBUFDA,""),-1)

           IF 'IEN365

               WRITE !!,"This entry does not have an associated eIV response."

               DO PAUSE^VALM1

               GOTO ENX

 +4        DO EB^IBCNES(365.02,IEN365_",","A",1,"EIV EB DATA")

ENX       ;

 +1        SET VALMBCK="R"

 +2        QUIT