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

IBCNES2.m

Go to the documentation of this file.
  1. IBCNES2 ;ALB/ESG - eIV elig/Benefit action protocols ;25-Sept-2009
  1. ;;2.0;INTEGRATED BILLING;**416**;21-MAR-94;Build 58
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. EBSV ; Action protocol for eIV EB data screen called from view/edit Patient Insurance
  1. ; Called from the EB-Expand Benefits action on the main list of pt. insurances
  1. ; User may select multiple insurances from this list.
  1. ;
  1. N VALMY,IBXX,IBPPOL,DFN,IBCDFN
  1. D FULL^VALM1
  1. D EN^VALM2($G(XQORNOD(0)))
  1. I '$D(VALMY) G EBSVX
  1. S IBXX=0
  1. F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
  1. . S IBPPOL=$G(^TMP("IBNSMDX",$J,+$O(^TMP("IBNSM",$J,"IDX",IBXX,0))))
  1. . I IBPPOL="" W !!,"Structure error (EBSV)" D PAUSE^VALM1 Q
  1. . S DFN=+$P(IBPPOL,U,3)
  1. . I 'DFN W !!,"System Error: Patient DFN undefined." D PAUSE^VALM1 Q
  1. . S IBCDFN=+$P(IBPPOL,U,4)
  1. . I 'IBCDFN W !!,"System Error: pt ins policy ien undefined." D PAUSE^VALM1 Q
  1. . ;
  1. . D EB^IBCNES(2.322,IBCDFN_","_DFN_",","A",1,"PT. INS EB DATA")
  1. . ;
  1. . Q
  1. EBSVX ;
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. EBAB ; Action protocol for eIV EB data screen called from view/edit Annual Benefits screens
  1. ; Called from the EB-Expand Benefits action on either the view or edit of Annual
  1. ; Benefits.
  1. NEW DFN,IBCDFN
  1. ;
  1. D FULL^VALM1
  1. I $G(IBPPOL)="" W !!,"Expand Benefits is not available here. Use Patient Insurance options." D PAUSE^VALM1 G EBABX
  1. S DFN=+$P(IBPPOL,U,3)
  1. I 'DFN W !!,"System Error: Patient DFN undefined." D PAUSE^VALM1 G EBABX
  1. S IBCDFN=+$P(IBPPOL,U,4)
  1. I 'IBCDFN W !!,"System Error: pt ins policy ien undefined." D PAUSE^VALM1 G EBABX
  1. ;
  1. D EB^IBCNES(2.322,IBCDFN_","_DFN_",","A",1,"PT. INS ANN BEN EB DATA")
  1. ;
  1. EBABX ;
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. EBVP ; Action protocol for eIV EB data screen called from VP screen in pt. insurance -
  1. ; Expanded policy information
  1. NEW DFN,IBCDFN
  1. D FULL^VALM1
  1. I $G(IBPPOL)="" W !!,"Structure error (EBVP)" D PAUSE^VALM1 G EBVPX
  1. S DFN=+$P(IBPPOL,U,3)
  1. I 'DFN W !!,"System Error: Patient DFN undefined." D PAUSE^VALM1 G EBVPX
  1. S IBCDFN=+$P(IBPPOL,U,4)
  1. I 'IBCDFN W !!,"System Error: pt ins policy ien undefined." D PAUSE^VALM1 G EBVPX
  1. ;
  1. D EB^IBCNES(2.322,IBCDFN_","_DFN_",","A",1,"PT. INS VIEW POLICY EB DATA")
  1. ;
  1. EBVPX ;
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. EBJT ; Action protocol for eIV EB data screen called from Third Party Joint Inquiry,
  1. ; TPJI, main Claim Information screen
  1. NEW IBX,IBJPOL,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
  1. D FULL^VALM1
  1. I '$G(IBIFN)!'$G(DFN) W !!,"Claim or Patient not defined." D PAUSE^VALM1 G EBJTX
  1. S IBX=$$PST^IBJTU31(IBIFN)
  1. I 'IBX,$D(DIRUT) G EBJTX
  1. I 'IBX W !!,"Insurance data incomplete, cannot find policy." D PAUSE^VALM1 G EBJTX
  1. S IBJPOL=+IBX
  1. D EB^IBCNES(2.322,IBJPOL_","_DFN_",","A",1,"TPJI CLAIM INFO EB DATA")
  1. EBJTX ;
  1. S VALMBCK="R"
  1. Q
  1. ;