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