IBCB11.m

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 ---IBCB11   1378     printed  Apr 09, 2024@21:35:18                                                                                                                                                                                                      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