source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCB11.m@ 814

Last change on this file since 814 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1IBCB11 ;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.
4AUTH 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
Note: See TracBrowser for help on using the repository browser.