IBCB11 ;ALB/AAS - Process bill after enter/edited ;2-NOV-89
;;2.0;INTEGRATED BILLING;**327**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
AUTH N DIR,Y,X,IBINS,NXTINS
S NXTINS=+$$POLICY^IBCEF(IBIFN,1,$$COBN^IBCEF(IBIFN)+1) ; next ins
S IBINS=$P($G(^DIC(36,NXTINS,0)),U) ; name of next insurance
Q:$$MCRWNR^IBEFUNC(NXTINS) ; quit if its Medicare
;IF IBMRA = R2 PASS BILL DIRECTLY TO TERTIARY INSURANCE
I IBMRA="R2" D Q
.D EN^DDIOL("This bill has secondary policy of MEDICARE and an MRA will not be submitted.","","!")
.D EN^DDIOL("This bill will go directly to "_IBINS,"","!!")
.D COBCHG^IBCCC2(IBIFN,+$$CURR^IBCEF2(IBIFN))
.Q
;
S DIR(0)="YO",DIR("B")="YES",DIR("A",1)=" "
S DIR("A",2)="This bill has prior insurance of MEDICARE, but"
I +$P($G(^IBE(350.9,1,8)),U,10)'<2 D
. S DIR("A",3)="Ins Co, "_IBINS_", does not want/need an MRA."
E D
. S DIR("A",3)="the site parameter for MRA Requests is turned off."
S DIR("A",4)=" "
S DIR("A")="Do you want this bill to go directly to "_IBINS
S DIR("?",1)="If you answer NO, the bill will not be authorized."
S DIR("?")="If you answer YES, this bill will automatically become a "_$P("secondary^tertiary",U,$$COBN^IBCEF(IBIFN))_" bill."
D ^DIR K DIR
I 'Y S IBEND=1 W !,"Can't continue",! Q
D COBCHG^IBCCC2(IBIFN,+$$CURR^IBCEF2(IBIFN))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCB11 1378 printed Oct 16, 2024@18:09:23 Page 2
IBCB11 ;ALB/AAS - Process bill after enter/edited ;2-NOV-89
+1 ;;2.0;INTEGRATED BILLING;**327**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
AUTH NEW DIR,Y,X,IBINS,NXTINS
+1 ; next ins
SET NXTINS=+$$POLICY^IBCEF(IBIFN,1,$$COBN^IBCEF(IBIFN)+1)
+2 ; name of next insurance
SET IBINS=$PIECE($GET(^DIC(36,NXTINS,0)),U)
+3 ; quit if its Medicare
if $$MCRWNR^IBEFUNC(NXTINS)
QUIT
+4 ;IF IBMRA = R2 PASS BILL DIRECTLY TO TERTIARY INSURANCE
+5 IF IBMRA="R2"
Begin DoDot:1
+6 DO EN^DDIOL("This bill has secondary policy of MEDICARE and an MRA will not be submitted.","","!")
+7 DO EN^DDIOL("This bill will go directly to "_IBINS,"","!!")
+8 DO COBCHG^IBCCC2(IBIFN,+$$CURR^IBCEF2(IBIFN))
+9 QUIT
End DoDot:1
QUIT
+10 ;
+11 SET DIR(0)="YO"
SET DIR("B")="YES"
SET DIR("A",1)=" "
+12 SET DIR("A",2)="This bill has prior insurance of MEDICARE, but"
+13 IF +$PIECE($GET(^IBE(350.9,1,8)),U,10)'<2
Begin DoDot:1
+14 SET DIR("A",3)="Ins Co, "_IBINS_", does not want/need an MRA."
End DoDot:1
+15 IF '$TEST
Begin DoDot:1
+16 SET DIR("A",3)="the site parameter for MRA Requests is turned off."
End DoDot:1
+17 SET DIR("A",4)=" "
+18 SET DIR("A")="Do you want this bill to go directly to "_IBINS
+19 SET DIR("?",1)="If you answer NO, the bill will not be authorized."
+20 SET DIR("?")="If you answer YES, this bill will automatically become a "_$PIECE("secondary^tertiary",U,$$COBN^IBCEF(IBIFN))_" bill."
+21 DO ^DIR
KILL DIR
+22 IF 'Y
SET IBEND=1
WRITE !,"Can't continue",!
QUIT
+23 DO COBCHG^IBCCC2(IBIFN,+$$CURR^IBCEF2(IBIFN))
+24 QUIT
