STANDARD DATA DICTIONARY #787.5 -- EEO CENTRAL INVESTIGATORS FILE 9/29/25 PAGE 1
STORED IN ^EEO(787.5, (1191 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all EEO investigators that will be available for selection through the EEO Complaint Tracking package. Updates
to the entries in this file will be made by VA Central Office personnel.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: INVESTIGATOR'S NAME field (#.01) of the INVESTIGATOR'S NAME sub-field (#785.03) of the EEO COMPLAINTS File (#785)
INV REVIEW ASSIGNED TO field (#5) of the INVESTIGATOR'S NAME sub-field (#785.03) of the EEO COMPLAINTS File (#785)
CROSS
REFERENCED BY: NAME(B), OLD INVESTIGATOR'S IENS(787)(C), NAME(D)
787.5,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X=""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?1U.UP1","1U.UP) X Q:$$SITE^EEOEEXMT=$$SERVNO
^EEOEEXMT!('$D(X)) K:'$D(XMZ)!('$D(EEO("ROOT"))) X S:$D(X) EEOXX=1
LAST EDITED: AUG 08, 1994
HELP-PROMPT: ONLY VA CENTRAL OFFICE AND REGION USERS MAY MODIFY ENTRIES WITHIN THIS FILE.
DESCRIPTION: This required field is referenced by file (#785) to identify a Region specific investigator for
each EEO complaint.
TECHNICAL DESCR:
DELETE TEST: 1,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 787.5^B
1)= S ^EEO(787.5,"B",$E(X,1,30),DA)=""
2)= K ^EEO(787.5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 787.5^D^SOUNDEX
1)= S I=$E(X,1,27) D SOU^DICM S ^EEO(787.5,"D",X_I,DA)=""
2)= S I=$E(X,1,27) D SOU^DICM K ^EEO(787.5,"D",X_I,DA)
This soundex cross-reference will help eliminate duplicate entries.
787.5,1 TYPE 1;0 SET Multiple #787.51
787.51,.01 TYPE 0;1 SET (Multiply asked)
'1' FOR ADHOC;
'2' FOR RETIRED ANNUITANT;
'3' FOR REGION SPECIALIST;
INPUT TRANSFORM: S:$D(X) EEOXX=1 Q
LAST EDITED: MAR 10, 1994
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 787.51^B
1)= S ^EEO(787.5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^EEO(787.5,DA(1),1,"B",$E(X,1,30),DA)
787.51,1 EFFECTIVE DATE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X S:$D(X) EEOXX=1
LAST EDITED: MAR 10, 1994
HELP-PROMPT: Enter the date that the investigator attained this type classification.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
787.51,2 TERMINAL DATE 0;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X S:$D(X) EEOXX=1
LAST EDITED: MAR 10, 1994
HELP-PROMPT: The date that the investigator becomes another type of investigator.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
787.5,2 STATE 0;3 POINTER TO STATE FILE (#5)
INPUT TRANSFORM: S:$D(X) EEOXX=1
LAST EDITED: MAR 10, 1994
HELP-PROMPT: THIS CAN ONLY BE MODIFIED BY THE REGION
DESCRIPTION: This field points to the State file (#5), and represents the state in which the Investigator
resides.
DELETE TEST: 1,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
787.5,3 STREET ADDRESS 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1) X S:$D(X) EEOXX=1
LAST EDITED: MAR 31, 1994
HELP-PROMPT: THIS FILE CAN ONLY BE MODIFIED BY THE REGION
DESCRIPTION:
The street address on which the assigned investigator resides.
DELETE TEST: 1,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
787.5,4 CITY 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X S:$D(X) EEOXX=1
LAST EDITED: MAR 10, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: The name of the city in which the assigned EEO investigator resides.
DELETE TEST: 1,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
787.5,5 ZIP CODE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X S:$D(X) EEOXX=1
LAST EDITED: MAR 10, 1994
HELP-PROMPT: Answer must be 5-10 characters in length.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
787.5,6 INVESTIGATOR STATUS 3;1 SET
'0' FOR ACTIVE;
'1' FOR INACTIVE;
LAST EDITED: OCT 07, 1994
HELP-PROMPT: If the investigator is no longer actively involved in investigating EEO cases the inactive code
will populate this field and a warning will be presented if this investigator is selected.
787.5,99 LAST XMIT UPDATE XMT;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 10, 1994
787.5,99.1 TRANSMIT FLAG XMT;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?1"X") X
LAST EDITED: MAR 10, 1994
HELP-PROMPT: Answer must be 1 character in length.
787.5,999 OLD INVESTIGATOR'S IENS(787) 2;0 Multiple #787.5999
LAST EDITED: JUL 18, 1994
787.5999,.01 OLD INVESTIGATOR'S IENS(787) 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.N) X
LAST EDITED: JUL 20, 1994
HELP-PROMPT: Answer must be 1-8 characters in length.
CROSS-REFERENCE: 787.5999^B
1)= S ^EEO(787.5,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^EEO(787.5,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 787.5^C
1)= S ^EEO(787.5,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^EEO(787.5,"C",$E(X,1,30),DA(1),DA)
FILES POINTED TO FIELDS
STATE (#5) STATE (#2)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):