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

IBJTNC.m

Go to the documentation of this file.
  1. IBJTNC ;ALB/ARH - TPI INSURANCE PATIENT POLICIES ; 2/14/95
  1. ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ; contains list template code and protocol entry code for the insurance screens that may be called from
  1. ; the Active Bills screen. The actions (VI, VP, AB) are callable from the PI Patient Insurance Screen for any
  1. ; of the policies defined for the patient
  1. ;
  1. HDRPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list header code
  1. N VA,VAERR D HDR^IBCNSM4
  1. Q
  1. ;
  1. INITPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list init code
  1. I $G(DFN) D INIT^IBCNSM4
  1. Q
  1. ;
  1. EXITPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list exit code
  1. K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
  1. D CLEAR^VALM1,CLEAN^VALM10
  1. Q
  1. ;
  1. VPI ; -- IBJT NS PI VIEW PAT INS ACTION: patient insurance list screen: displays all policies for patient
  1. I '$G(DFN) G VPIQ
  1. N IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE
  1. D EN^VALM("IBJT NS PI VIEW PAT INS")
  1. VPIQ Q
  1. ;
  1. NX(IBTPLNM) ; -- IBJT NS PI VIEW x ACTION, entry action for 3 action protocols on the Patient Insurance screen to select
  1. ; one of the patient policies for expanded information, opens one of the insurance screens based on the
  1. ; action chosen by the user
  1. ; IBJT NS PI VIEW INS CO SCREEN action => IBJT NS VIEW INS CO screen
  1. ; IBJT NS PI VIEW EXP POL SCREEN action => IBJT NS VIEW EXP POL screen
  1. ; IBJT NS PI VIEW AN BEN SCREEN action => IBJT NS VIEW AN BEN screen
  1. ;
  1. N VALMY,I,IBSELN,IBJPOL,IBX
  1. N IBCPOL,IBPPOL,IBCNS,IBI,IBVIEW,IBCHANGE,IBLCNT,IBDA,IBCNT,IBYE
  1. N IBEXP1,IBEXP2,IBFILE,IBN,IBCGN,IBDIF,IBDUZ,IBCDFND1,IBCDFN,IBPR,IBPRD
  1. N IBEVDT,IBDT,IBYR,IBCAB,IBCGN,IBDUZ,OFFSET,START,IBCNS13
  1. ;
  1. D EN^VALM2($G(XQORNOD(0)))
  1. D FULL^VALM1
  1. I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
  1. . S IBX=$G(^TMP("IBNSMDX",$J,$O(^TMP("IBNSM",$J,"IDX",IBSELN,0)))) Q:IBX=""
  1. . S IBJPOL=$P(IBX,U,4)_"^^"_$P(IBX,U,5,999)
  1. . D EN^VALM(IBTPLNM)
  1. S VALMBCK="R"
  1. Q