Global: ^IBA(355.7

Information

FileMan FileNo	FileMan Filename	Package
355.7	PERSONAL POLICY	Integrated Billing

Description

This file contains the insurance riders that have been purchased as add on coverage to a group plan. This information is used internally for display purposes only. Per VHA Directive 10-93-142, this file definition should not be modified.

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Integrated Billing	3	IBCNSM1 IBCNSP3 IBYAPT1

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Integrated Billing	1	INSURANCE RIDERS(#355.6)[.01]
Registration	1	PATIENT(#2)[.02]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RIDER	0;1	POINTER TO INSURANCE RIDERS FILE (#355.6)	**********************REQUIRED FIELD********************** INSURANCE RIDERS(#355.6) LAST EDITED: `NOV 30, 1993` DESCRIPTION: `Select the Insurance Rider that best describes the personal rider you are adding or editing for this patient. A personal rider is add-on coverage that an individual may purchase as part of their group plan but is has` `additional cost.` CROSS-REFERENCE: `355.7^B` `1)= S ^IBA(355.7,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(355.7,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `355.7^APP^MUMPS` `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)=""` `2)= K ^IBA(355.7,"APP",+$P(^IBA(355.7,DA,0),U,2),+$P(^(0),U,3),X,DA)` `Cross reference of riders by patient, policy, rider. Used to make sure only one entry for each policy.`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `NOV 30, 1993` DESCRIPTION: `Select the patient that this is a rider for. For any patients' policy there may be a number of riders associated with it.` CROSS-REFERENCE: `355.7^AC` `1)= S ^IBA(355.7,"AC",$E(X,1,30),DA)=""` `2)= K ^IBA(355.7,"AC",$E(X,1,30),DA)` CROSS-REFERENCE: `355.7^APP1^MUMPS` `1)= S:$P(^IBA(355.7,DA,0),U,3) ^IBA(355.7,"APP",X,+$P(^(0),U,3),+^(0),DA)=""` `2)= K ^IBA(355.7,"APP",X,+$P(^IBA(355.7,DA,0),U,3),+^(0),DA)` `Cross reference of riders by patient, policy, rider. Used to make sure only one entry for each policy.`
.03	HEALTH INSURANCE POLICY	0;3	FREE TEXT	INPUT TRANSFORM: `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)` OUTPUT TRANSFORM: `S Y=$P($G(^DIC(36,+$P($G(^DPT(+$P(^IBA(355.7,DA,0),U,2),.312,+$G(Y),0)),U),0)),U)` LAST EDITED: `NOV 29, 1993` HELP-PROMPT: `Select the correct policy for this patient. Answer must be 1-30 characters in length.` DESCRIPTION: `This is the policy for the patient that this is a rider for.` `One or more riders may be associated with any policy for any patient.` EXECUTABLE HELP: `S DFN=$P(^IBA(355.7,DA,0),U,2) D DISP^IBCNS W !` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `355.7^APP2^MUMPS` `1)= S:$P(^IBA(355.7,DA,0),U,2) ^IBA(355.7,"APP",+$P(^(0),U,2),X,+^(0),DA)=""` `2)= K ^IBA(355.7,"APP",+$P(^IBA(355.7,DA,0),U,2),X,+^(0),DA)` `Cross reference of riders by patient, policy, rider. Used to make sure only one entry for each policy.`

.01

RIDER

0;1

POINTER TO INSURANCE RIDERS FILE (#355.6)

************************REQUIRED FIELD************************

INSURANCE RIDERS(#355.6)

LAST EDITED: NOV 30, 1993
DESCRIPTION: Select the Insurance Rider that best describes the personal rider you are adding or editing for this patient. A personal rider is add-on coverage that an individual may purchase as part of their group plan but is has
additional cost.
CROSS-REFERENCE: 355.7^B
1)= S ^IBA(355.7,"B",$E(X,1,30),DA)=""
2)= K ^IBA(355.7,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 355.7^APP^MUMPS
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)=""
2)= K ^IBA(355.7,"APP",+$P(^IBA(355.7,DA,0),U,2),+$P(^(0),U,3),X,DA)
Cross reference of riders by patient, policy, rider. Used to make sure only one entry for each policy.

.02

PATIENT

0;2

POINTER TO PATIENT FILE (#2)

PATIENT(#2)

LAST EDITED: NOV 30, 1993
DESCRIPTION:
Select the patient that this is a rider for. For any patients' policy there may be a number of riders associated with it.
CROSS-REFERENCE: 355.7^AC
1)= S ^IBA(355.7,"AC",$E(X,1,30),DA)=""
2)= K ^IBA(355.7,"AC",$E(X,1,30),DA)
CROSS-REFERENCE: 355.7^APP1^MUMPS
1)= S:$P(^IBA(355.7,DA,0),U,3) ^IBA(355.7,"APP",X,+$P(^(0),U,3),+^(0),DA)=""
2)= K ^IBA(355.7,"APP",X,+$P(^IBA(355.7,DA,0),U,3),+^(0),DA)
Cross reference of riders by patient, policy, rider. Used to make sure only one entry for each policy.

.03

HEALTH INSURANCE POLICY

0;3

FREE TEXT

INPUT TRANSFORM: 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)
OUTPUT TRANSFORM: S Y=$P($G(^DIC(36,+$P($G(^DPT(+$P(^IBA(355.7,DA,0),U,2),.312,+$G(Y),0)),U),0)),U)
LAST EDITED: NOV 29, 1993
HELP-PROMPT: Select the correct policy for this patient. Answer must be 1-30 characters in length.
DESCRIPTION: This is the policy for the patient that this is a rider for.
One or more riders may be associated with any policy for any patient.
EXECUTABLE HELP: S DFN=$P(^IBA(355.7,DA,0),U,2) D DISP^IBCNS W !
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 355.7^APP2^MUMPS
1)= S:$P(^IBA(355.7,DA,0),U,2) ^IBA(355.7,"APP",+$P(^(0),U,2),X,+^(0),DA)=""
2)= K ^IBA(355.7,"APP",+$P(^IBA(355.7,DA,0),U,2),X,+^(0),DA)
Cross reference of riders by patient, policy, rider. Used to make sure only one entry for each policy.

Customize PDF page

Package: Integrated Billing