STANDARD DATA DICTIONARY #408.13 -- INCOME PERSON FILE 3/24/25 PAGE 1
STORED IN ^DGPR(408.13, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains demographic information (name, social security number, date of birth, and sex) for non-veteran relations of
patients seen at this facility. This information is collected for use in the means test and income screening modules of MAS. This
data will also be used for IVM (Income Verification Matching) with the IRS (Internal Revenue Service).
DD ACCESS: @
RD ACCESS: d
WR ACCESS: Dd
DEL ACCESS: Dd
LAYGO ACCESS: Dd
POINTED TO BY: PERSON field (#.03) of the PATIENT RELATION File (#408.12)
INCOME PERSON field (#.1) of the MEANS TEST CHANGES File (#408.41)
CROSS
REFERENCED BY: STREET ADDRESS [LINE 1](AC), STREET ADDRESS [LINE 2](AD), DATE OF BIRTH(ADOB), STREET ADDRESS [LINE 3](AE),
NAME(AENR01), SEX(AENR02), DATE OF BIRTH(AENR03), SOCIAL SECURITY NUMBER(AENR09), PSEUDO SSN REASON(AENR1),
MAIDEN NAME(AENR11), CITY(AF), STATE(AG), ZIP(AH), TELEPHONE NUMBER(AI), SOCIAL SECURITY NUMBER(AIVM), NAME(B),
SOCIAL SECURITY NUMBER(BS), SOCIAL SECURITY NUMBER(BS5), SOCIAL SECURITY NUMBER(SSN)
408.13,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'[",") X I $D(X) D UP^DGHELP S Y=", " F I=0:0 Q:$F(X,Y)
<1 S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Answer must be 3-30 characters in length. The name must be in the format LASTNAME,FIRSTNAME
MIDDLENAME where middlename is optional. The name must not begin with punctuation.
DESCRIPTION: Enter the name of the relative of the veteran. The name should be entered in the same format as
that for the veteran: LASTNAME,FIRSTNAME MIDDLENAME. If a space is entered between the comma and
the first name, it will automatically be removed. The relation's full name should be used to avoid
potential duplicates.
DELETE TEST: 1,0)= I 1 W !,*7,"Relations cannot be deleted, they must be inactivated!!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.13^B
1)= S ^DGPR(408.13,"B",$E(X,1,30),DA)=""
2)= K ^DGPR(408.13,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 408.13^AENR01^MUMPS
1)= D E40813^DGRTRIG(DA)
2)= D E40813^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.13,.02 SEX 0;2 SET (Required)
'M' FOR MALE;
'F' FOR FEMALE;
LAST EDITED: SEP 13, 2005
DESCRIPTION: Enter the sex of the relative. This question must be answered in order for this relative to remain
on file. Enter M or Male for male or F or FEMALE for female.
TECHNICAL DESCR: This field is used to screen the allowable relationships as selectable from the PATIENT RELATION
file. Entry of FEMALE will, for example, screen out relationships such as BROTHER, FATHER, etc.
which allowing entries such as SISTER and MOTHER.
CROSS-REFERENCE: 408.13^AENR02^MUMPS
1)= D E40813^DGRTRIG(DA)
2)= D E40813^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.13,.03 DATE OF BIRTH 0;3 DATE (Required)
DOB
INPUT TRANSFORM: S %DT="EP" D ^%DT S X=Y K:1701231>X!((($E(DT,1,3)-1)_1231)35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35,,2,,1) K:
'$L(X) X,DG20NAME
LAST EDITED: SEP 13, 2005
HELP-PROMPT: Answer must be 2-35 characters in length.
DESCRIPTION: Enter the spouse's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format. Entry of the LAST name only
is permitted and the comma may be omitted. If the response contains no comma, one will be appended
to the value. Including the comma, the value must be at least 3 characters in length.
TECHNICAL DESCR: This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
The purpose of this field is to store in the INCOME PERSON file the maiden name of the Veteran's
spouse as reported on the 1010EZ application.
However, the field may be used to add the maiden name of any dependent of the Veteran.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.13^AENR11^MUMPS
1)= D E40813^DGRTRIG(DA)
2)= D E40813^DGRTRIG(DA)
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
408.13,1.2 STREET ADDRESS [LINE 1] 1;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The first line of the spouse's residence street address.
EXECUTABLE HELP: D HELPSA1^DGRPEIS3
DELETE TEST: 1,0)= D SDD^DGLOCK2 I '$D(X)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.13^AC^MUMPS
1)= D TRIGGER^IVMCM9(DA) Q
2)= D TRIGGER^IVMCM9(DA) Q
Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update
DT/TM with trigger.
408.13,1.3 STREET ADDRESS [LINE 2] 1;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The second line of the spouse's residence street address.
EXECUTABLE HELP: D HELPSA2^DGRPEIS3
DELETE TEST: 1,0)= D SDD^DGLOCK2 I '$D(X)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.13^AD^MUMPS
1)= D TRIGGER^IVMCM9(DA) Q
2)= D TRIGGER^IVMCM9(DA) Q
Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update
DT/TM with trigger.
408.13,1.4 STREET ADDRESS [LINE 3] 1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The third line of the spouse's residence street address.
EXECUTABLE HELP: D HELPSA3^DGRPEIS3
DELETE TEST: 1,0)= D SDD^DGLOCK2 I '$D(X)
CROSS-REFERENCE: 408.13^AE^MUMPS
1)= D TRIGGER^IVMCM9(DA) Q
2)= D TRIGGER^IVMCM9(DA) Q
Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update
DT/TM with trigger.
408.13,1.5 CITY 1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The city where the spouse's residence is located.
EXECUTABLE HELP: D HELPCITY^DGRPEIS3
DELETE TEST: 1,0)= D SDD^DGLOCK2 I '$D(X)
CROSS-REFERENCE: 408.13^AF^MUMPS
1)= D TRIGGER^IVMCM9(DA) Q
2)= D TRIGGER^IVMCM9(DA) Q
Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update
DT/TM with trigger.
408.13,1.6 STATE 1;6 POINTER TO STATE FILE (#5)
LAST EDITED: AUG 18, 2008
DESCRIPTION:
The state where the spouse's residence is located.
EXECUTABLE HELP: D HELPSTAT^DGRPEIS3
DELETE TEST: 1,0)= D SDD^DGLOCK2 I '$D(X)
CROSS-REFERENCE: 408.13^AG^MUMPS
1)= D TRIGGER^IVMCM9(DA) Q
2)= D TRIGGER^IVMCM9(DA) Q
Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update
DT/TM with trigger.
408.13,1.7 ZIP 1;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1"-"4N)) X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: Answer must be 5-10 characters in length.
DESCRIPTION:
The zip code where the spouse's residence is located.
EXECUTABLE HELP: D HELPZIP^DGRPEIS3
CROSS-REFERENCE: 408.13^AH^MUMPS
1)= D TRIGGER^IVMCM9(DA) Q
2)= D TRIGGER^IVMCM9(DA) Q
Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update
DT/TM with trigger.
408.13,1.8 TELEPHONE NUMBER 1;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<4) X
LAST EDITED: AUG 18, 2008
HELP-PROMPT: Answer must be 4-20 characters in length.
DESCRIPTION:
The telephone number for the spouse's residence.
TECHNICAL DESCR: May be exactly 10 digits or may be formatted up to 13 characters as:
(nnn)nnn-nnnn
i.e., ()-
or
nnn.nnn.nnnn
i.e., ..
EXECUTABLE HELP: D HELPPHON^DGRPEIS3
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408.13^AI^MUMPS
1)= D TRIGGER^IVMCM9(DA) Q
2)= D TRIGGER^IVMCM9(DA) Q
Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update
DT/TM with trigger.
408.13,1.9 SPOUSE ADDR LAST DT/TM UPDATED 1;9 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:X<1 X
LAST EDITED: AUG 14, 2008
DESCRIPTION: This field will contain the date and time of the last update to the Spouse's address.
VistA shall upload all of the Spouse Address fields during the HL7 Z10 receiver process if 1. the
Address Line 1 (field 1.2) is NOT null 2. the received Changed Date/Time is greater than the Spouse
Address Last
Date/Time Updated that is on VistA.
Any change to the following Spouse Address fields will trigger an update: Street Address [Line 1],
Street Address [Line 2], Street Address [Line 3], City, State, Zip, and Telephone Number
FILES POINTED TO FIELDS
STATE (#5) STATE (#1.6)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):