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

IBJTNA.m

Go to the documentation of this file.
  1. IBJTNA ;ALB/ARH - TPI INSURANCE SCREENS/ACTIONS ; 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. ; the PI view patient policies screen is based on the Patient Insurance Management screen of the
  1. ; View Patient Insurance [IBCN VIEW PATIENT INSURANCE] option
  1. ; the VI view insurance screen is based on the Insurance Company Editor screen of the
  1. ; Insurance Company Entry/Edit [IBCN INSURANCE CO EDIT] option
  1. ; the VP view policy screen is based on the Patient Policy Information screen of the
  1. ; Patient Insurance Info View/Edit [IBCN PATIENT INSURANCE] option
  1. ; the AB annual benefits screen is based on the Annual Benefits Editor screen of the
  1. ; Patient Insurance Info View/Edit [IBCN PATIENT INSURANCE] option
  1. ;
  1. ; four Insurance Module LM Templates were duplicated for JBI so the appropriate Protocol Menus could be used
  1. ; also so a screen with a message could be displayed if no ins information could be found
  1. ; IBJT NS PI VIEW PAT INS --- IBCNS VIEW PAT INS PI
  1. ; IBJT NS VIEW INS CO --- IBCNS VIEW INS CO VI
  1. ; IBJT NS VIEW EXP POL --- IBCNS VIEW EXP POL VP
  1. ; IBJT NS VIEW AN BEN --- IBCNS VIEW AN BEN AB
  1. ;
  1. ; code called by template was redirected to IBJTN* routines for set up of variables
  1. ;
  1. ; these screens may be called to display insurance information for a specific bill or they may be
  1. ; called as part of the insurance display for the patient (from the AL screen)
  1. ;
  1. ; three actions (VI, VP, AB) are defined to open screens for a bill's insurance: IBJT NS VIEW xxx SCREEN
  1. ; four actions are defined to open these screens for a patient's insurance: IBJT NS PI VIEW xxx SCREEN
  1. ;
  1. ; for the actions related to a bills insurance, ie. actions available from bill specific screens:
  1. ; the actions (VI, VP, AB) have two separate functions depending on the variable passed in: opening/loading
  1. ; a screen and to redisplay that screen, the redisplay must only be an action on the corresponding screen
  1. ; if REDISP does not have a value then a new screen is opened after asking for company/policy
  1. ; if REDISP does have a value then the screen is rebuilt after asking for company/policy (assumes screen
  1. ; already open), should only be used if the screen is already displayed, ie. action should only be be used
  1. ; with REDISP set if called from the corresponding screen
  1. ;
  1. ; the actions (VI, VP, AB) will ask for the user to select which carrier/policy if the bill has more than one
  1. ; only the primary, secondary and tertiary carrier/policies for the bill may be chosen to be displayed
  1. ; if one of the insurance actions is chosen from a bill specific screen
  1. ;
  1. HDRI ; -- IBJT NS VIEW INS CO LIST TEMPLATE: insurance company header code
  1. S VALMHDR(1)="Insurance Company Information"
  1. I +$G(IBCNS) D HDR^IBCNSC,PST(1)
  1. Q
  1. INITI ; -- IBJT NS VIEW INS CO LIST TEMPLATE: insurance company init code
  1. K ^TMP("IBCNSC",$J)
  1. I '$G(IBIFN) D PRTCL^IBJU1("IBJT SHORT MENU")
  1. S IBCNS=+$P(IBJPOL,U,3) I +IBCNS D INIT^IBCNSC K VALMHDR Q
  1. S VALMCNT=0 D BLD("Insurance data incomplete, cannot find policy.")
  1. Q
  1. EXITI D EXIT^IBCNSC K ^TMP("IBCNSC",$J) Q
  1. HELPI D HELP^IBCNSC Q
  1. ;
  1. VI(REDISP) ; -- IBJT NS VIEW INS CO SCREEN ACTION: view insurance company screen: expanded insurance company information
  1. ; user can select carrier if more than one on bill, REDISP set if screen to be rebuilt for different carrier
  1. ;
  1. I '$G(REDISP) N IBX,IBVIEW,IBCHANGE,IBCNS,IBCPOL,IBPPOL,IBJPOL,IBI,IBLCNT,IBCNS13
  1. I '$G(IBIFN)!'$G(DFN) G VIQ
  1. D FULL^VALM1
  1. S IBX=$$PST^IBJTU31(IBIFN) I 'IBX S VALMBCK="R" G VIQ
  1. S IBJPOL=IBX
  1. I '$G(REDISP) D EN^VALM("IBJT NS VIEW INS CO") G VIQ
  1. D INITI S VALMBCK="R"
  1. VIQ Q
  1. ;
  1. ;
  1. BLD(MSG) D KILL^VALM10(),SET^IBCNSP(1,1,""),SET^IBCNSP(2,1,MSG) Q
  1. PST(X) S IBI=$P(IBJPOL,U,2),IBX=$S(IBI=1:"Primary",IBI=2:"Secondary",IBI=3:"Tertiary",1:""),VALMHDR(X)=$E(VALMHDR(X),1,68)_$J("",(79-$L(VALMHDR(X))-$L(IBX)))_IBX Q