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 ---[H[J[2J[HIBCNBLB 502 printed Dec 13, 2024@02:14:02 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
