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

IBCNSEVT.m

Go to the documentation of this file.
  1. IBCNSEVT ;ALB/AAS - NEW INSURANCE POLICY EVENT DRIVER ; 12-DEC-92
  1. ;;2.0;INTEGRATED BILLING;**6,497**;21-MAR-94;Build 120
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. % ; -- Invokes items on the IB NEW INSURANCE EVENT protocol menu
  1. ; Input =: dfn = patient file ien
  1. ; IBEVTP0 = insurance type zeroth node of policy
  1. ; before editing
  1. ; IBEVTP1 = insurance type 1 node of policy
  1. ; before editing
  1. ; IBEVTP2 = insurance type 2 node of policy
  1. ; before editing
  1. ; IBEVTP3 = insurance type 3 node of policy - IB*2.0*497 (vd)
  1. ; before editing
  1. ; IBEVTP7 = insurance type 7 node of policy - IB*2.0*497 (vd)
  1. ; before editing
  1. ; IBEVTA0 = insurance type zeroth node of new policy
  1. ; contains effective/expiration dates
  1. ; IBEVTA1 = insurance type 1 node of new policy
  1. ; contains date added and by whom
  1. ; IBEVTA2 = insurance type 2 node of new policy
  1. ; IBEVTA3 = insurance type 2 node of new policy - IB*2.0*497 (vd)
  1. ; IBEVTA7 = insurance type 2 node of new policy - IB*2.0*497 (vd)
  1. ; IBCDFN = internal number of policy as in ^dpt(dfn,
  1. ; .312,ibcdfn,0))
  1. ; IBEVTACT = flag indicating whether action is add, edit
  1. ; or delete
  1. ;
  1. ;
  1. N DTOUT,DIROUT
  1. ;S X=$O(^ORD(101,"B","IBCN NEW INSURANCE EVENTS",0))_";ORD(101," D EN1^XQOR:X
  1. I IBEVTP0=IBEVTA0,IBEVTP1=IBEVTA1,IBEVTP2=IBEVTA2,IBEVTP3=IBEVTA3,IBEVTP7=IBEVTA7 G EVTQ ; IB*2.0*497 (vd)
  1. S X="IBCN NEW INSURANCE EVENTS",DIC=101 D EN1^XQOR
  1. EVTQ K X,DIC,IBEVTP0,IBEVTP1,IBEVTP2,IBEVTA0,IBEVTA1,IBEVTA2,IBEVTACT
  1. K IBEVTP3,IBEVTP7,IBEVTA3,IBEVTA7 ; IB*2.0*497 (vd)
  1. Q
  1. ;
  1. BEFORE ; -- get insurance type values before adding/editing
  1. ;
  1. I $G(IBNEW) S (IBEVTP0,IBEVTP1,IBEVTP2,IBEVTP3,IBEVTP7)="" G BEFQ ; IB*2.0*497 (vd)
  1. S IBEVTP0=$G(^DPT(DFN,.312,IBCDFN,0))
  1. S IBEVTP1=$G(^DPT(DFN,.312,IBCDFN,1))
  1. S IBEVTP2=$G(^DPT(DFN,.312,IBCDFN,2))
  1. S IBEVTP3=$G(^DPT(DFN,.312,IBCDFN,3)) ; IB*2.0*497 (vd)
  1. S IBEVTP7=$G(^DPT(DFN,.312,IBCDFN,7)) ; IB*2.0*497 (vd)
  1. BEFQ Q
  1. ;
  1. AFTER ; -- get insurance type values after adding/editing. set action flag.
  1. ; -- get exemption after change
  1. ; input =: DFN = patient file ien
  1. ;
  1. S IBEVTA0=$G(^DPT(DFN,.312,IBCDFN,0))
  1. S IBEVTA1=$G(^DPT(DFN,.312,IBCDFN,1))
  1. S IBEVTA2=$G(^DPT(DFN,.312,IBCDFN,2))
  1. S IBEVTA3=$G(^DPT(DFN,.312,IBCDFN,3)) ; IB*2.0*497 (vd)
  1. S IBEVTA7=$G(^DPT(DFN,.312,IBCDFN,7)) ; IB*2.0*497 (vd)
  1. I IBEVTP0="",IBEVTA0'="" S IBEVTACT="ADD"
  1. I IBEVTP0'="",IBEVTA0'="" S IBEVTACT="EDT"
  1. I IBEVTP0'="",IBEVTA0="" S IBEVTACT="DEL"
  1. Q