Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCB11

IBCB11.m

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