Global: ^EEO(786

FileMan FileNo	FileMan Filename	Package
786	EEO COMPLAINT ISSUE CODES	EEO Complaint Tracking

Directly Accessed By Routines, Total: 4

Package	Total	Routines
EEO Complaint Tracking	4	^EEO(789.5 EEOIPOS2 ^EEO(786 EEO211

Package	Total	FileMan Files
EEO Complaint Tracking	2	EEO COMPLAINTS(#785)[#785.02(.01)] EEO INFORMAL COMPLAINTS(#785.5)[#785.52(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X S STANO=$G(STANO) K:$$SITE^EEOEEXMT=STANO!(STANO="") X K:'$D(XMZ)!('$D(EEO("ROOT"))) X` LAST EDITED: `MAR 21, 1994` HELP-PROMPT: `ONLY VA CENTRAL OFFICE AND REGION USERS MAY MODIFY ENTRIES WITHIN THIS FILE. ADDITIONAL ENTRIES MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION.` DESCRIPTION: `This field contains the Issue Codes from which the complainant may choose.` DELETE TEST: `1,0)= I 1` `DELETE AUTHORITY: "@"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `786^B` `1)= S ^EEO(786,"B",$E(X,1,30),DA)=""` `2)= K ^EEO(786,"B",$E(X,1,30),DA)`
99	LAST XMIT UPDATE	XMT;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 09, 1994`
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.`

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X S STANO=$G(STANO) K:$$SITE^EEOEEXMT=STANO!(STANO="") X K:'$D(XMZ)!('$D(EEO("ROOT"))) X
LAST EDITED: MAR 21, 1994
HELP-PROMPT: ONLY VA CENTRAL OFFICE AND REGION USERS MAY MODIFY ENTRIES WITHIN THIS FILE. ADDITIONAL ENTRIES MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION.
DESCRIPTION:
This field contains the Issue Codes from which the complainant may choose.
DELETE TEST: 1,0)= I 1
DELETE AUTHORITY: "@"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 786^B
1)= S ^EEO(786,"B",$E(X,1,30),DA)=""
2)= K ^EEO(786,"B",$E(X,1,30),DA)

LAST XMIT UPDATE

XMT;1

DATE

TRANSMIT FLAG

XMT;2

FREE TEXT

NAME: ADMONISHMENT	NAME: ASSIGNMENT OF DUTIES	NAME: AWARD	NAME: DEMOTION	NAME: DUTY HOURS	NAME: FAILURE TO HIRE	NAME: FAILURE TO PROMOTE	NAME: HARASSMENT
NAME: PERFORMANCE APPRAISAL	NAME: REASSIGNMENT	NAME: REPRIMAND	NAME: SEXUAL HARASSMENT	NAME: SUSPENSION	NAME: TERMINATION/REMOVAL	NAME: TIME AND ATTENDANCE	NAME: TRAINING
NAME: WORKING CONDITIONS	NAME: OTHER	NAME: WHISTLEBLOWING (EEO-RELATED)	NAME: EQUAL PAY	NAME: NON-SELECTION	NAME: CONVERSION TO FULL TIME	NAME: EXAMINATION/TEST	NAME: REINSTATEMENT
NAME: RETIREMENT

Name	Field # of Occurrence
^%DT	99+1
$$SITE^EEOEEXMT	.01+1

Name	Line Occurrences (* Changed, ! Killed)
^EEO(786 - [#786]	.01(XREF 1S), .01(XREF 1K)