Global: ^EEO(785.5

FileMan FileNo	FileMan Filename	Package
785.5	EEO INFORMAL COMPLAINTS	EEO Complaint Tracking

Package	Total	Routines
EEO Complaint Tracking	7	^EEO(789.5 BASIS CORRECTIVE ACTION EEO211 EEOENF ISSUE CODES ^EEO(785.5

Package	Total	Routines
EEO Complaint Tracking	1	EEOEMAN

Package	Total	FileMan Files
EEO Complaint Tracking	3	EEO COMPLAINT BASIS(#785.1)[#785.51(.01)] EEO CORRECTIVE ACTIONS(#785.2)[#785.561(.01)] EEO COMPLAINT ISSUE CODES(#786)[#785.52(.01)]
Kernel	3	INSTITUTION(#4)[2] STATE(#5)[.09, 12] NEW PERSON(#200)[14]
Interim Management Support	1	NATIONAL SERVICE(#730)[5]

Fields, Total: 35

Field #	Name	Loc	Type	Details
.01	COMPLAINANT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S X=$$UP^XLFSTR(X) K:(X'?1U.UP1","1U.UP) X I $D(X) S STANO=$S($D(EEOYSTN):EEOYSTN,$D(STANO):STANO,1:"") D NODE^EEOEOSE` OUTPUT TRANSFORM: `D TEST^EEOEOSE` LAST EDITED: `OCT 27, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length, all uppercase letters, with no space after the comma.` DESCRIPTION: `Enter the name of the person making the complaint, (Complainant).` TECHNICAL DESCR: `The ^EEO(785.5,"ANODE", includes the station number with the complaint case no.` DELETE TEST: `1,0)= I $$DEL^EEOEOSE` `DELETE AUTHORITY: "@"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `785.5^B` `1)= S ^EEO(785.5,"B",$E(X,1,30),DA)=""` `2)= K ^EEO(785.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `785.5^ANODE^MUMPS` `1)= S ^EEO(785.5,"ANODE",DA)=""` `2)= K ^EEO(785.5,"ANODE",DA)` `This cross-reference is used solely to assign internal entry numbers to new EEO complaints. The global root for this cross-reference is ^EEO(785.5,"ANODE", and the subscript is the internal entry number of the referenced` `complaint in file #785.5.`
.05	STREET ADDRESS	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!(X[";")!(X[":")!(X["^") X` LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length and does not contain a ";" or ":".` DESCRIPTION: `Enter the street address of the complainant's residence.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	CITY	5;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1)!(X[":")!(X[";")!(X["^") X` LAST EDITED: `JUN 15, 1994` HELP-PROMPT: `Answer must be 1-25 characters in length and may not include a ";" or a ":"` DESCRIPTION: `The city in which the complainant resides.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.09	STATE	5;4	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `The State in which the complainant resides.` DESCRIPTION: `The state in which the complainant resides, points to the State file (#5).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.091	ZIP CODE	5;5	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.` DESCRIPTION: `The Zip Code portion of the Complainants address, must be either 5 numbers or 5 numbers followed by a "-" and 4 more numbers.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1.2	OEO NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3)!(X[":")!(X[";")!(X["^") X` LAST EDITED: `SEP 06, 1994` HELP-PROMPT: `Answer must be 3-7 characters in length and not contain either a semicolon or colon.` DESCRIPTION: `The format for OEO# consists of two numbers followed by a dash and up to four more numbers, for example... 93-1109.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `785.5^E` `1)= S ^EEO(785.5,"E",$E(X,1,30),DA)=""` `2)= K ^EEO(785.5,"E",$E(X,1,30),DA)`
1.3	CASE NO.	5;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7)!(X[":")!(X[";")!(X["^") X` OUTPUT TRANSFORM: `S EEO2=$P($G(^EEO(785.5,D0,0)),U,2) S:EEO2'="" Y=Y_" OEO# "_EEO2` LAST EDITED: `JUN 15, 1994` HELP-PROMPT: `Answer must be 7-15 characters in length and not contain either a semicolon or colon.` DESCRIPTION: `The number assigned to the EEO Complaint case by this software at initial, and subsequent entry/edit sessions.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `785.5^D` `1)= S ^EEO(785.5,"D",$E(X,1,30),DA)=""` `2)= K ^EEO(785.5,"D",$E(X,1,30),DA)` `Cross-reference for the case number.`
2	STATION	0;3	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `DEC 02, 1993` HELP-PROMPT: `System generated no user input needed.` DESCRIPTION: `The Complainants station name, (The station to which s/he is assigned).` `SOURCE OF DATA: 'H` CROSS-REFERENCE: `785.5^C` `1)= S ^EEO(785.5,"C",$E(X,1,30),DA)=""` `2)= K ^EEO(785.5,"C",$E(X,1,30),DA)`
5	SERVICE	0;4	POINTER TO NATIONAL SERVICE FILE (#730)	NATIONAL SERVICE(#730) LAST EDITED: `MAR 28, 1994` DESCRIPTION: `The service department to which the complainant belongs. This points to file #730, the National Service file.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6	POSITION/GRADE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<10)!(X[":")!(X[";")!(X["^") X` LAST EDITED: `JUN 15, 1994` HELP-PROMPT: `Answer must be 10-18 characters in length. This format will usually be followed GS-0334-11.` DESCRIPTION: `The pay grade of the complainants position, (pay plan-series-grade).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.5	JOB TITLE	5;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!(X[":")!(X[";")!(X["^") X` LAST EDITED: `JUN 15, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length and cannot contain a colon or semicolon.` DESCRIPTION: `The job title of the complainant.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	REP'S NAME	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!(X[";")!(X[":")!(X["^") X` LAST EDITED: `JUN 15, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length and does not contain a ";" or ":".` DESCRIPTION: `The name of the person representing the complainant.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	REP'S PHONE NO.	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1)!(X[";")!(X[":")!(X["^") X` LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `Answer must be 1-20 characters in length and does not contain a ";" or ":".` DESCRIPTION: `Enter the phone number of the complainant's representative.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	REP'S STREET ADDR.	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1)!(X[";")!(X[":")!(X["^") X` LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `Answer must be 1-25 characters in length and does not contain a ";" or ":".` DESCRIPTION: `Enter the street address of the complainant's representative.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	REP'S CITY ADDR.	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1)!(X[";")!(X[":")!(X["^") X` LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `Answer must be 1-25 characters in length and does not contain a ";" or ":".` DESCRIPTION: `The city in which the complainant's representative resides.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
12	REP'S STATE ADDR.	0;11	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `The state portion of the representative's mailing address.` DESCRIPTION: `The state in which the complainant's representative resides.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13	REP'S ZIP CODE	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4.5N)) X` LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `Enter the zip code of the complainant's representative in either 5 or 9 digit format (5 numbers or 5 numbers followed by a "-" and four more numbers).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14	COUNSELOR'S NAME	1;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 07, 1994` HELP-PROMPT: `The counselor must exist in the New Person file (#200).` DESCRIPTION: `The name of the counselor assigned to the complainant.`
14.5	DATE OF INCIDENT	1;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(DT` `LAST EDITED: MAR 14, 1994` `HELP-PROMPT: The date the alleged EEO incident occured, cannot be a future date.` `DESCRIPTION:` `The date upon which the alleged EEO incident actually occurs.` `AUDIT: EDITED OR DELETED` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14.7	DATE INITIAL CONTACT/INTERVIEW	1;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=14.7,EEOSEQ="15^16^15.5^23.5^46.5" D ^EEOEINP K:$G(E3)=1 X,E3` LAST EDITED: `JAN 19, 1995` HELP-PROMPT: `Cannot be a future date.` DESCRIPTION: `The date the complainant initially contacted the EEO office, cannot be after the date of the Final Interview.` AUDIT: `EDITED OR DELETED` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
15	DATE NOTICE OF FINAL INTERVIEW	1;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=15,EEOSEQ="14.5^14.7^16" D ^EEOEINP K:$G(E3)=1 X,E3` LAST EDITED: `MAR 14, 1994` HELP-PROMPT: `The date the complainant is given notice the final interview will take place, cannot be a future date.` DESCRIPTION: `Date notice of final interview is issued to the complainant, cannot be prior to the date of initial contact.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
15.5	DATE OF INFORMAL RESOLUTION	6;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X` LAST EDITED: `DEC 14, 1994` HELP-PROMPT: `If the complaint is resolved before becoming formal enter that date of the resolution.` DESCRIPTION: `Date that the complaint is resolved, if the complaint is resolved at the informal stage (informal stage is before 'Date Formal Complaint Filed').` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
15.7	DATE EXTENSION REQUESTED	6;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 14, 1994` HELP-PROMPT: `The date an extension to counseling is requested.` DESCRIPTION: `Date that the Complainant and Agency requested an extention (must be within 30 days of Date of Initial Contact)`
15.9	LENGTH OF EXTENSION GRANTED	6;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 09, 1994` HELP-PROMPT: `Type a Number between 0 and 60, 0 Decimal Digits` DESCRIPTION: `The length of the period for which an extension is granted during the counseling phase of a complaint.`
16	DATE FORMAL COMPLAINT FILED	1;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(DT` `LAST EDITED: MAR 14, 1994` `HELP-PROMPT: Cannot be a future date` `DESCRIPTION: The date that the complainant filed a formal complaint. If mailed use the postmark date, if hand delivered use the date delivered.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16.05	DATE UNION GRIEVANCE FILED	6;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X` LAST EDITED: `FEB 23, 1995` HELP-PROMPT: `Cannot be a future date.` DESCRIPTION: `If a union grievance was also filed enter that date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16.07	DATE MSPB APPEAL FILED	6;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X` LAST EDITED: `JUN 23, 1994` HELP-PROMPT: `Date filed with MSPB.` DESCRIPTION: `If a complaint was also filed with MSPB, enter that date here.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16.5	DATE COUNS. INFORMED OF F.C.	5;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.5,EEOSEQ="16.7^16^14.5^46.5^16.75^24^" D ^EEOEINP K:$G(E3)=1 X,E3` LAST EDITED: `FEB 13, 1995` HELP-PROMPT: `Cannot be a future date` DESCRIPTION: `The date the counselor is informed of the formal complaint, cannot be after the date the counselor files his report.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16.7	DATE COUNSELOR FILED REPORT	5;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.7,EEOSEQ="16.5^16^24^" D ^EEOEINP K:$G(E3)=1 X,E3` LAST EDITED: `FEB 13, 1995` HELP-PROMPT: `Cannot be a future date.` DESCRIPTION: `The date the counselor files his report to the EEO Officer, cannot be prior to the date the counselor was informed of the formal complaint.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
17.5	ISSUE CODES	10;0	POINTER Multiple #785.52	785.52 DESCRIPTION: `Enter here as many issue codes as are necessary for this complaint, this field points to EEO Complaint Issue Codes file (786).`
18.5	BASIS	9;0	POINTER Multiple #785.51	785.51 DESCRIPTION: `Enter all 'BASIS' that are involved in this complaint, this field points to the EEO Complaint Basis file (#785.1).`
19	ISSUE CODE COMMENTS	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1)!(X["^")!(X[";")!(X[":") X` LAST EDITED: `MAR 14, 1994` HELP-PROMPT: `Answer must be 1-120 characters in length.` DESCRIPTION: `Enter a brief description of any topic related to this complaint. This must not exceed 120 characters.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
60	NARRATIVE INFORMATION	7;0	WORD-PROCESSING #785.54	DESCRIPTION: `You may enter any information pertaining to this complaint, this field will be displayed on Form 0210 (Initial Complaint Intake Form)` LAST EDITED: `JAN 14, 1994` HELP-PROMPT: `Enter a list of names of people, documents, or records that the complainant wants you to interview or inspect.` DESCRIPTION: `You may enter any information pertaining to this complaint, this field will be displayed on Form 0210 (Initial Complaint Intake Form).`
61	CORRECTIVE ACTION	8;0	POINTER Multiple #785.561	785.561 DESCRIPTION: `The resolution the complainant is seeking, what actions the complainant feels would rectify the situation. This field points to the Corrective Actions file (#785.2).`
98	COUNSELOR SECURITY	SEC;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` OUTPUT TRANSFORM: `Q:Y="" S:$D(^VA(200,Y)) Y=$P($G(^VA(200,Y,0)),U)` LAST EDITED: `MAR 24, 1995` HELP-PROMPT: `Enter the user number for the person to be responsible for entry of the pre-formal complaint input.` DESCRIPTION: `This is the user number for the EEO counselor, specialist, data input personnel, etc., who is responsible for inputting pre-formal complaint data into this complaint.`

Name	Line Occurrences (* Changed, ! Killed)
^EEO(785.5 - [#785.5]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1.2(XREF 1S), 1.2(XREF 1K), 1.3OT+1, 1.3(XREF 1S), 1.3(XREF 1K), 2(XREF 1S) , 2(XREF 1K)
^VA(200 - [#200]	98OT+1

Name	Field # of Occurrence
^(1	IDQUIT+1
^(5	IDQ+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	14.5+1, 14.7+1, 15+1, 15.5+1, 15.7+1, 16+1, 16.05+1, 16.07+1, 16.5+1, 16.7+1
>> D0	1.3OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1.2(XREF 1S), 1.2(XREF 1K), 1.3(XREF 1S), 1.3(XREF 1K), 2(XREF 1S), 2(XREF 1K)
DT	14.5+1, 14.7+1, 15+1, 15.5+1, 16+1, 16.05+1, 16.07+1, 16.5+1, 16.7+1
E3	14.5+1!, 14.7+1!, 15+1!, 16+1!, 16.5+1!, 16.7+1!
>> EEO2	1.3OT+1*
>> EEOS	14.5+1, 14.7+1, 15+1, 16+1, 16.5+1, 16.7+1
>> EEOSEQ	14.5+1, 14.7+1, 15+1, 16+1, 16.5+1, 16.7+1
>> EEOXX	.091+1*
>> EEOYSTN	.01+1
>> STANO	.01+1*
U	IDQ+1, IDQUIT+1, 1.3OT+1, 98OT+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .05+1!, .08+1!, .091+1!, 1.2+1!, 1.2(XREF 1S), 1.2(XREF 1K), 1.3+1! , 1.3(XREF 1S), 1.3(XREF 1K), 2(XREF 1S), 2(XREF 1K), 6+1!, 6.5+1!, 8+1!, 9+1!, 10+1!, 11+1! , 13+1!, 14.5+1!, 14.7+1!, 15+1!, 15.5+1!, 15.7+1!, 15.9+1!, 16+1!, 16.05+1!, 16.07+1! , 16.5+1!, 16.7+1*!, 19+1!, 98+1!
>> Y	.01OT+1, 1.3OT+1, 14.5+1, 14.7+1, 15+1, 15.5+1, 15.7+1, 16+1, 16.05+1, 16.07+1 , 16.5+1, 16.7+1, 98OT+1
>> Y(0	.01OT+1, 1.3OT+1, 98OT+1*

Customize PDF page

Package: EEO Complaint Tracking

Global: ^EEO(785.5

Information

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 35

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	14.5+1, 14.7+1, 15+1, 15.5+1, 15.7+1, 16+1, 16.05+1, 16.07+1, 16.5+1, 16.7+1
^EEOEINP	14.5+1, 14.7+1, 15+1, 16+1, 16.5+1, 16.7+1
$$DEL^EEOEOSE	.01DEL1+1
NODE^EEOEOSE	.01+1
TEST^EEOEOSE	.01OT+1
$$UP^XLFSTR	.01+1