STANDARD DATA DICTIONARY #355.7 -- PERSONAL POLICY FILE 6/27/25 PAGE 1
STORED IN ^IBA(355.7, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
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.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: PATIENT (#.02), HEALTH INSURANCE POLICY (#.03)
CROSS
REFERENCED BY: PATIENT(AC), RIDER(APP), PATIENT(APP1), HEALTH INSURANCE POLICY(APP2), RIDER(B)
355.7,.01 RIDER 0;1 POINTER TO INSURANCE RIDERS FILE (#355.6) (Required)
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.
355.7,.02 PATIENT 0;2 POINTER TO PATIENT FILE (#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.
355.7,.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.
FILES POINTED TO FIELDS
INSURANCE RIDERS (#355.6) RIDER (#.01)
PATIENT (#2) PATIENT (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):