Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^EEO(785.5

Package: EEO Complaint Tracking

Global: ^EEO(785.5


Information

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

Description

Directly Accessed By Routines, Total: 7

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

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
EEO Complaint Tracking 1 EEOEMAN    

Pointer To FileMan Files, Total: 7

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)[.0912]    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.

External References

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

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>> 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*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All