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

IBINI059.m

Go to the documentation of this file. 
  1. IBINI059	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(355.7)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q	Q
  1. 	;;^DIC(355.7,0,"GL")
  1. 	;;=^IBA(355.7,
  1. 	;;^DIC("B","PERSONAL POLICY",355.7)
  1. 	;;=
  1. 	;;^DIC(355.7,"%D",0)
  1. 	;;=^^5^5^2940214^^^^
  1. 	;;^DIC(355.7,"%D",1,0)
  1. 	;;=This file contains the insurance riders that have been purchased as
  1. 	;;^DIC(355.7,"%D",2,0)
  1. 	;;=add on coverage to a group plan.  This information is used internally
  1. 	;;^DIC(355.7,"%D",3,0)
  1. 	;;=for display purposes only.  
  1. 	;;^DIC(355.7,"%D",4,0)
  1. 	;;= 
  1. 	;;^DIC(355.7,"%D",5,0)
  1. 	;;=Per VHA Directive 10-93-142, this file definition should not be modified.
  1. 	;;^DD(355.7,0)
  1. 	;;=FIELD^^.03^3
  1. 	;;^DD(355.7,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(355.7,0,"DT")
  1. 	;;=2931129
  1. 	;;^DD(355.7,0,"ID",.02)
  1. 	;;=S %I=Y,Y=$S('$D(^(0)):"",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
  1. 	;;^DD(355.7,0,"ID",.03)
  1. 	;;=W "   ",$P(^(0),U,3)
  1. 	;;^DD(355.7,0,"IX","AC",355.7,.02)
  1. 	;;=
  1. 	;;^DD(355.7,0,"IX","APP",355.7,.01)
  1. 	;;=
  1. 	;;^DD(355.7,0,"IX","APP1",355.7,.02)
  1. 	;;=
  1. 	;;^DD(355.7,0,"IX","APP2",355.7,.03)
  1. 	;;=
  1. 	;;^DD(355.7,0,"IX","B",355.7,.01)
  1. 	;;=
  1. 	;;^DD(355.7,0,"NM","PERSONAL POLICY")
  1. 	;;=
  1. 	;;^DD(355.7,.01,0)
  1. 	;;=RIDER^RP355.6'^IBE(355.6,^0;1^Q
  1. 	;;^DD(355.7,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(355.7,.01,1,1,0)
  1. 	;;=355.7^B
  1. 	;;^DD(355.7,.01,1,1,1)
  1. 	;;=S ^IBA(355.7,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(355.7,.01,1,1,2)
  1. 	;;=K ^IBA(355.7,"B",$E(X,1,30),DA)
  1. 	;;^DD(355.7,.01,1,2,0)
  1. 	;;=355.7^APP^MUMPS
  1. 	;;^DD(355.7,.01,1,2,1)
  1. 	;;=S:$P(^IBA(355.7,DA,0),U,2)&($P(^(0),U,3)) ^IBA(355.7,"APP",+$P(^(0),U,2),+$P(^(0),U,3),X,DA)=""
  1. 	;;^DD(355.7,.01,1,2,2)
  1. 	;;=K ^IBA(355.7,"APP",+$P(^IBA(355.7,DA,0),U,2),+$P(^(0),U,3),X,DA)
  1. 	;;^DD(355.7,.01,1,2,"%D",0)
  1. 	;;=^^2^2^2931129^^
  1. 	;;^DD(355.7,.01,1,2,"%D",1,0)
  1. 	;;=Cross reference of riders by patient, policy, rider.  Used to make sure
  1. 	;;^DD(355.7,.01,1,2,"%D",2,0)
  1. 	;;=only one entry for each policy.
  1. 	;;^DD(355.7,.01,1,2,"DT")
  1. 	;;=2931129
  1. 	;;^DD(355.7,.01,3)
  1. 	;;=
  1. 	;;^DD(355.7,.01,21,0)
  1. 	;;=^^4^4^2931129^
  1. 	;;^DD(355.7,.01,21,1,0)
  1. 	;;=Select the Insurance Rider that best describes the personal rider you are
  1. 	;;^DD(355.7,.01,21,2,0)
  1. 	;;=adding or editing for this patient.  A personal rider is add-on coverage
  1. 	;;^DD(355.7,.01,21,3,0)
  1. 	;;=that an individual may purchase as part of their group plan but is
  1. 	;;^DD(355.7,.01,21,4,0)
  1. 	;;=has additional cost.
  1. 	;;^DD(355.7,.01,"DT")
  1. 	;;=2931130
  1. 	;;^DD(355.7,.02,0)
  1. 	;;=PATIENT^P2'^DPT(^0;2^Q
  1. 	;;^DD(355.7,.02,1,0)
  1. 	;;=^.1
  1. 	;;^DD(355.7,.02,1,1,0)
  1. 	;;=355.7^AC
  1. 	;;^DD(355.7,.02,1,1,1)
  1. 	;;=S ^IBA(355.7,"AC",$E(X,1,30),DA)=""
  1. 	;;^DD(355.7,.02,1,1,2)
  1. 	;;=K ^IBA(355.7,"AC",$E(X,1,30),DA)
  1. 	;;^DD(355.7,.02,1,1,"DT")
  1. 	;;=2931130
  1. 	;;^DD(355.7,.02,1,2,0)
  1. 	;;=355.7^APP1^MUMPS
  1. 	;;^DD(355.7,.02,1,2,1)
  1. 	;;=S:$P(^IBA(355.7,DA,0),U,3) ^IBA(355.7,"APP",X,+$P(^(0),U,3),+^(0),DA)=""
  1. 	;;^DD(355.7,.02,1,2,2)
  1. 	;;=K ^IBA(355.7,"APP",X,+$P(^IBA(355.7,DA,0),U,3),+^(0),DA)
  1. 	;;^DD(355.7,.02,1,2,"%D",0)
  1. 	;;=^^2^2^2931129^
  1. 	;;^DD(355.7,.02,1,2,"%D",1,0)
  1. 	;;=Cross reference of riders by patient, policy, rider.  Used to make sure
  1. 	;;^DD(355.7,.02,1,2,"%D",2,0)
  1. 	;;=only one entry for each policy.
  1. 	;;^DD(355.7,.02,1,2,"DT")
  1. 	;;=2931129
  1. 	;;^DD(355.7,.02,21,0)
  1. 	;;=^^3^3^2940213^^
  1. 	;;^DD(355.7,.02,21,1,0)
  1. 	;;=Select the patient that this is a rider for.
  1. 	;;^DD(355.7,.02,21,2,0)
  1. 	;;=For any patients' policy there may be a number of riders associated
  1. 	;;^DD(355.7,.02,21,3,0)
  1. 	;;=with it.
  1. 	;;^DD(355.7,.02,"DT")
  1. 	;;=2931130
  1. 	;;^DD(355.7,.03,0)
  1. 	;;=HEALTH INSURANCE POLICY^FXO^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X S:$D(X) X=$$SEL^IBTRC2(X,$P(^IBA(355.7,DA,0),"^",2),DT,2)
  1. 	;;^DD(355.7,.03,1,0)
  1. 	;;=^.1