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

Package: EEO Complaint Tracking

Global: ^EEO(785


Information

FileMan FileNo FileMan Filename Package
785 EEO COMPLAINTS EEO Complaint Tracking

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
EEO Complaint Tracking 23 BASIS    CORRECTIVE ACTION    EEO211    EEOEEDIE    EEOEFIN    EEOEINP    EEOEMAN    EEOENF
EEOEOE1    EEOEOE2    EEOEOSE    EEOERCR    ISSUE CODES    ^EEO(785    ^EEO(789.5    EEOETICK
EEOEXE1    EEOEXMT1    EEOIPCON    EEOIPOS2    EEOUTIL    EEOUTIL1    INVESTIGATOR'S NAME    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
EEO Complaint Tracking 12 EEO0210    EEOEFIN    EEOENF    EEOEOE1    EEOEOE2    EEOEOI5    EEOEOI6    EEOEOP2
EEOERCR    EEOEXMT1    EEOIPOS2    EEOUTIL    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
EEO Complaint Tracking 4 EEO COMPLAINT BASIS(#785.1)[#785.01(.01)]    EEO CORRECTIVE ACTIONS(#785.2)[#785.061(.01)]    EEO COMPLAINT ISSUE CODES(#786)[#785.02(.01)]    EEO CENTRAL INVESTIGATORS(#787.5)[#785.03(.01)#785.03(5)]    
Kernel 3 INSTITUTION(#4)[2]    STATE(#5)[.0912]    NEW PERSON(#200)[14]    
Interim Management Support 1 NATIONAL SERVICE(#730)[5]    

Fields, Total: 82

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 20, 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). Enter the name in 'Last,First Middle' format [3-30 Characters. Do not use numerics or lowercase alphabetic characters. With the exception of the comma,
    period, space, hyphen, dash and apostrophe punctuation characters should be avoided.
  • TECHNICAL DESCR:  
    The ^EEO(785,"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^B
    1)= S ^EEO(785,"B",$E(X,1,30),DA)=""
    2)= K ^EEO(785,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  785^ANODE^MUMPS
    1)= S ^EEO(785,"ANODE",DA)=""
    2)= K ^EEO(785,"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,"ANODE", and the subscript is the internal entry number of the referenced
    complaint in file #785.
.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.1 CASE COMPUTED

  • MUMPS CODE:  X ^DD(785,1.1,9.2) S X=$P(Y(785,1.1,2),Y(785,1.1,3),X),Y(785,1.1,4)=X S X="OEO",X=$P(Y(785,1.1,4),X)
    9.2 = S Y(785,1.1,1)=$S($D(^EEO(785,D0,5)):^(5),1:""),Y=$P(Y(785,1.1,1),U,6) X:$D(^DD(785,1.3,2)) ^(2) S X=Y,Y(785,1.1,2)=X S X="-",Y(785,1.1,3)=X S X=3
  • ALGORITHM:  $P($P((CASE NO.),"-",3),"OEO")
  • LAST EDITED:  FEB 22, 1994
  • DESCRIPTION:  
    Extracts case from full Case Number format.
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^E
    1)= S ^EEO(785,"E",$E(X,1,30),DA)=""
    2)= K ^EEO(785,"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,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^D
    1)= S ^EEO(785,"D",$E(X,1,30),DA)=""
    2)= K ^EEO(785,"D",$E(X,1,30),DA)
    Regular 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^C
    1)= S ^EEO(785,"C",$E(X,1,30),DA)=""
    2)= K ^EEO(785,"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. The following format would normally be used: 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.1 TOTAL COUNSELOR DAYS COMPUTED

  • MUMPS CODE:  S EN1=$S($P($G(^EEO(785,D0,1)),U,2)>0:"1;2",$P($G(^EEO(785,D0,6)),U,3)>0:"6;3",1:"1;3"),EN2="1;12" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="1;2",EN2="1;12" D INPUT^EEOEOSE
  • LAST EDITED:  JAN 12, 1995
  • DESCRIPTION:  
    From the date an EEO counselor is contacted until the Notice of Final Interview is issued to the Complainant (30 calander days allowed unless an extension is granted).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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 of when 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.3 DATE REQUEST FOR ADD'L INFO 5;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Date Complainant is requested to provide additional information to the EEO Officer.
  • DESCRIPTION:  
    The date the Complainant is given a request for additional information that is necessary to continue processing the complaint.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
15.4 DATE ADDITIONAL INFO. RECEIVED 6;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 14, 1994
  • HELP-PROMPT:  Date the additional information requested from the complainant is received.
  • DESCRIPTION:  
    The date that requested additional information is received from the complainant.
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 extension (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 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.3 OFFICE COMPLAINT FILED WITH 5;14 SET
  • 'OEO' FOR Office of Equal Opportunity;
  • 'CO' FOR Central Office;
  • 'STN' FOR Station;
  • 'SEC' FOR Secretary of Veteran Affairs;

  • LAST EDITED:  JUN 13, 1994
  • DESCRIPTION:  
    An EEO complaint may be filed with a variety of offices, select the appropriate one for this complaint.
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:  JAN 19, 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:  JUN 23, 1994
  • 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
16.75 DATE COMP REC'D BY EEO OFF. 5;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.75,EEOSEQ="16^21^14.5^24^22^22.3^23.5^26" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    The date that the EEO Officer actually receives the formal complaint from whatever source.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17.5 ISSUE CODES 10;0 POINTER Multiple #785.02 785.02

  • 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.01 785.01

  • 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
20 DATE OF LETTER OF ACKNOW. 2;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    Date of letter from the station to the complainant acknowledging receipt of the complaint. Use the date this letter is signed (Date shown on letter).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
21 DATE TO OGC FOR ACC/REJ 2;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=21,EEOSEQ="22.3^16^16.75^22^23.5" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    The date that the formal complaint is sent by the station to the Office of General Counsel for acceptance or rejection.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
22 DATE ACCEPTED BY OGC 2;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=22,EEOSEQ="21^16^" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  Date that the Office of General Counsel accepts the report, the date at the top of the OGC letter.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
22.3 DATE DISMISSED BY OGC 12;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=22.3,EEOSEQ="21^16^" D ^EEOEINP K:$G(E3) X,E3
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    Date that the Office of General Counsel dismisses the complaint. The date at the top of the OGC letter.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
23 TOTAL DAYS OGC ACC/REJ COMPUTED

  • MUMPS CODE:  S EN1=$S($P($G(^EEO(785,D0,12)),U)>0:"12;1",1:"2;3"),EN2="2;2" D INPUT^EEOEOSE
  • ALGORITHM:  #22-#21
  • LAST EDITED:  JUL 15, 1994
  • DESCRIPTION:  
    From the date the OGC receives a request to dismiss a complaint to the date the complaint is dismissed or accepted in whole or in part (45 days).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
23.5 DATE TO OGC FOR FINAL DECISION 2;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=23.5,EEOSEQ="16^14.5^46.5^" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    Date the complaint was sent to the Office of General Counsel for their final decision.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
23.6 TOTAL DAYS/OGC FINAL DECISION COMPUTED

  • MUMPS CODE:  S EN1="5;12",EN2="2;13" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="5;12",EN2="2;13" D INPUT^EEOEOSE
  • LAST EDITED:  AUG 11, 1993
  • DESCRIPTION:  
    Number of days between complaint being sent to OGC and their issuance of the final decision.
24 DATE COMPLAINT ACCEPTED BY STN 2;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=24,EEOSEQ="14.5^16^16.75^" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Cannot be a future date
  • DESCRIPTION:  
    Date that the complaint was accepted by the station.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
25 TOTAL DAYS ACCEPTANCE COMPUTED

  • MUMPS CODE:  D ACCEPT^EEOUTIL1
  • ALGORITHM:  S EN1="2;4",EN2="5;9" D INPUT^EEOEOSE
  • LAST EDITED:  NOV 14, 1994
  • DESCRIPTION:  From the date the complaint is filed with or received by the EEO Officer, to the date the complaint is accepted by the EEO Officer and referred to the Office of Equal Opportunity for investigation or referred to the OGC
    for possible dismissal.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
26 DATE INVESTIGATOR REQUESTED 2;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(DT
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    The date upon which an investigator is requested for the EEO incident.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
27.5 INVESTIGATOR'S NAME 11;0 POINTER Multiple #785.03 785.03

  • DESCRIPTION:  
    This field holds the name of the investigator assigned to this complaint, the investigator must exist in the EEO INVESTIGATOR File.
29 INITIAL INV DATE ASSIGNED 3;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 of the official assignment of the first investigator to the alledged EEO incident. Date on the OEO assignment letter.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
32 INV REPORT RECEIVED DATE 3;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=32,EEOSEQ="29^40.5^41^46.5" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Cannot be a future date, the date that the final investigator's approved report arrives at the station.
  • DESCRIPTION:  
    The date the final investigative report is received by the EEO Officer (if by mail use the postmark date).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
33 TOTAL INVESTIGATION DAYS COMPUTED

  • MUMPS CODE:  S Y(785,33,1)=$S($D(^EEO(785,D0,3)):^(3),1:"") S X=$P(Y(785,33,1),U,6),X1=X,X2=$P(Y(785,33,1),U,3),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  #32-#29
  • LAST EDITED:  AUG 12, 1993
  • DESCRIPTION:  
    From the date that the investigator is assigned to the date that the report of investigation is delivered to the EEO Officer (45 days).
40.5 DATE COMP RECEIVED ADV/RIGHTS 5;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=40.5,EEOREV="23.5",EEOSEQ="14.5^16^40.6^32^44^46.5" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  JAN 19, 1995
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    When the complainant actually receives his advisement of rights. If sent by mail the date on the return receipt.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
40.6 DATE COMP MAKES ELECTION 5;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=40.6,EEOSEQ="14.5^16^44^40.5^",EEOREV=41 D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  AUG 30, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  The date the complainant makes his choice on which course of action he will take after being advised of his rights and responsibilities. This date will be the date of the postmark if received by mail, otherwise the date
    it was delivered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
41 DATE COMP SENT ADV/RIGHTS 2;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=41,EEOSEQ="14.5^16^32^",EEOREV=40.6 D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  AUG 31, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  Date the complainant is sent the advisement of rights, this date should be prior to both the date the complainant receives his advisement of rights, and the date he makes his election. Enter the date the EEO Officer signs
    this letter.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
42 TOTAL DAYS ASSIGN INV. COMPUTED

  • MUMPS CODE:  S EN1="3;3",EN2="2;5" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="3;3",EN2="2;5" D INPUT^EEOEOSE
  • LAST EDITED:  AUG 12, 1993
  • DESCRIPTION:  
    From the date the OEO receives a request for the assignment of an investigator to the date that an investigator is assigned (30 days).
44 DATE EEOC HEARING REQUESTED 2;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=44,EEOSEQ="45^40.6^14.5^16^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 that has been requested for the EEO hearing to take place.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
45 DATE EEOC HEARING CONDUCTED 2;10 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 Equal Employment Opportunity Commission hearing actually took place.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
46 TOTAL DAYS FOR EEOC HEARING COMPUTED

  • MUMPS CODE:  S EN1="2;10",EN2="2;9" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="2;10",EN2="2;9" D INPUT^EEOEOSE
  • LAST EDITED:  OCT 11, 1993
  • DESCRIPTION:  
    Elapsed time between when the EEOC hearing was requested and the hearing took place.
46.2 EEOC APPEAL 5;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    Enter the date of the Equal Employment Opportunities Commission appeal. This will be the date on the letter from OGC stating that this complaint is being appealed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
46.4 EEOC APPEAL #2 5;18 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    If the decision of the first EEOC appeal is appealed, enter the date of this second appeal here. Use the date that appears on the letter received from OGC stating that the complaint is being appealed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
46.5 DATE FINAL AGENCY DEC. ISSUED 5;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=46.5,EEOSEQ="14.5^16^23.5^48" D ^EEOEINP K:$G(E3)=1 X,E3
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    The date that the Final Agency Decision was issued.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
47 DATE CIVIL ACTION FILED 2;11 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 files civil action.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
48 DATE CLOSED 4;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y,EEOS=48,EEOSEQ="14.5^16" D ^EEOEINP K:(Y>DT) X K:$G(E3)=1 X,E3
  • LAST EDITED:  JUN 16, 1994
  • HELP-PROMPT:  Cannot be a future date.
  • DESCRIPTION:  
    The date that the complaint has been closed using any of the 7 valid reasons found in field (#49).
  • TECHNICAL DESCR:  
    Entry of date will automatically send this status input to field (#43) STATUS.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
48.5 DELETED 12;2 SET
  • 'D' FOR DELETED;

  • LAST EDITED:  DEC 01, 1993
  • HELP-PROMPT:  If this file is deleted it may no longer be accessed though the EEO software.
  • DESCRIPTION:  
    This is a field that flags, but does not delete EEO Complaints that are no longer needed by the users. The user can no longer access files flagged as deleted.
49 REASON CLOSED 4;2 SET
  • '1' FOR SETTLEMENT;
  • '2' FOR AGENCY DECISION;
  • '3' FOR REJECTION BY OGC;
  • '4' FOR CIVIL ACTION FILED;
  • '5' FOR WITHDRAWAL;
  • '6' FOR CANCELLATION;
  • '7' FOR FAILURE TO PROSECUTE;
  • '8' FOR OTHER;

  • LAST EDITED:  JAN 14, 1994
  • DESCRIPTION:  
    The reason that the case was closed, any one of the seven reasons listed when the user enters a "?" may be selected.
50 TOTAL PROCESSING DAYS COMPUTED

  • MUMPS CODE:  S EN1="4;1",EN2="1;3" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="4;1",EN2="1;3" D INPUT^EEOEOSE
  • LAST EDITED:  AUG 04, 1993
  • DESCRIPTION:  
    The total number of days it takes to process the EEO complaint, this is the difference between the date the complaint is closed and the date that the complaint became formal.
51 TOTAL COUNSELOR REPORT DAYS COMPUTED

  • MUMPS CODE:  S EN2="5;7",EN1=$S($P($G(^EEO(785,D0,5)),U,8)>0:"5;8",1:"5;9") D INPUT^EEOEOSE
  • ALGORITHM:  #16.7-#16.5
  • LAST EDITED:  JAN 12, 1995
  • DESCRIPTION:  
    The difference between when the counselor filed his report and the date he was informed of the formal complaint.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
53 TOTAL DAYS FOR ADVISE/RIGHTS COMPUTED

  • MUMPS CODE:  S EN1="2;6",EN2="3;6" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="2;6",EN2="3;6" D INPUT^EEOEOSE
  • LAST EDITED:  JUN 15, 1994
  • DESCRIPTION:  
    The difference between when the complainant was advised of his rights and the date the approved investigators report was received.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54 TOTAL DAYS TO REQ EEOC HEARING COMPUTED

  • MUMPS CODE:  S Y(785,54,1)=$S($D(^EEO(785,D0,2)):^(2),1:""),Y(785,54,2)=$S($D(^(5)):^(5),1:"") S X=$P(Y(785,54,1),U,9),X1=X,X2=$P(Y(785,54,2),U,10),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  #44-#40.6
  • LAST EDITED:  JAN 18, 1995
  • DESCRIPTION:  
    The difference between when the EEOC hearing was requested and the date the complainant makes his election.
55 TOTAL DAYS TO MAKE ELECTION COMPUTED

  • MUMPS CODE:  S EN1=$S($P($G(^EEO(785,D0,5)),U,10)>0:"5;10",$P($G(^EEO(785,D0,2)),U,9):"2;9",1:"2;13"),EN2="5;11" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="5;10",EN2="5;11" D INPUT^EEOEOSE
  • LAST EDITED:  JAN 19, 1995
  • DESCRIPTION:  
    The time between the date the complainant makes his response to the advisement of rights and when the complaint file is transmitted to the EEOC for the hearing, or to OGC for a FAD.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
56 TOTAL DAYS FOR FAD DECISION COMPUTED

  • MUMPS CODE:  S EN1="5;12",EN2="2;13" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="5;12",EN2="2;13" D INPUT^EEOEOSE
  • LAST EDITED:  AUG 04, 1993
  • DESCRIPTION:  
    This calculates the time between when the complaint was sent to the OGC for the final decision and when the Agency's final decision was issued.
57 180 DAYS COMPUTED

  • MUMPS CODE:  S EN1="5;11",EN2="1;3" D INPUT^EEOEOSE
  • ALGORITHM:  S EN1="5;11",EN2="1;3" D INPUT^EEOEOSE
  • DESCRIPTION:  
    This shows the number of days the complaint is being processed within the Director's scope of authority/responsibility. Not to exceed 180 days.
60 NARRATIVE INFORMATION 7;0 WORD-PROCESSING #785.04

  • LAST EDITED:  FEB 10, 1995
  • 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.061 785.061

  • 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).
62 TRANSMIT FLAG XMT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"X") X
  • LAST EDITED:  JAN 14, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    An "X" in this field marks records that have been changed and are to be later evaluated for transmission by the EEO Tasked Bulletin option.
63 COMPLAINT STATUS COMPUTED

  • MUMPS CODE:  D ^EEOUTIL1
  • ALGORITHM:  D ^EEOUTIL1
  • DESCRIPTION:  
    Auotmatically generated by EEO Complaint Tracking to identify the current processing phase for the complaint.
64 180 DAYS OFF SITE PROCESSING COMPUTED

  • MUMPS CODE:  X ^DD(785,64,9.2) S X=X+Y(785,64,3)
    9.2 = X $P(^DD(785,23,0),U,5,99) S Y(785,64,1)=X X $P(^DD(785,33,0),U,5,99) S Y(785,64,2)=X X $P(^DD(785,42,0),U,5,99) S Y(785,64,3)=X S X=Y(785,64,1)+Y(785,64,2)
  • ALGORITHM:  #23+#33+#42
  • LAST EDITED:  JUN 17, 1994
  • DESCRIPTION:  The total of all days that may be counted in the 180 days field, but were out of the control of the station EEO program. This includes the total days to assign and investigate the complaint and time spent at OGC waiting
    for an acceptance or rejection.
71 EEOC APPEAL RESOLUTIONS 20;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  JUN 16, 1994
  • HELP-PROMPT:  Answer must be 1-60 characters in length and may not contain a ";" or ":".
  • DESCRIPTION:  
    Enter any information pertaining to the EEOC Appeal filed involving this complaint
71.5 EEOC APPEAL RESOLUTIONS (#2) 20;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  JUN 16, 1994
  • HELP-PROMPT:  Answer must be 1-60 characters in length and may not contain a ":" or ";".
  • DESCRIPTION:  
    Enter any information pertaining to a second EEOC Appeal filed involving this complaint.
72 CIVIL ACTION RESOLUTIONS 20;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  JUN 16, 1994
  • HELP-PROMPT:  Answer must be 1-120 characters in length and not contain a ":" or ";".
  • DESCRIPTION:  
    Enter any information pertaining to the Civil Action filed involving this complaint.
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(^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.3+1, 15.4+1, 15.5+1, 15.7+1, 16+1, 16.05+1, 16.07+1
, 16.5+1, 16.7+1, 16.75+1, 20+1, 21+1, 22+1, 22.3+1, 23.5+1, 24+1, 26+1
, 29+1, 32+1, 40.5+1, 40.6+1, 41+1, 44+1, 45+1, 46.2+1, 46.4+1, 46.5+1
, 47+1, 48+1
^%DTC 33+1, 54+1
^EEOEINP 14.5+1, 14.7+1, 15+1, 16+1, 16.5+1, 16.7+1, 16.75+1, 21+1, 22+1, 22.3+1
, 23.5+1, 24+1, 26+1, 29+1, 32+1, 40.5+1, 40.6+1, 41+1, 44+1, 45+1
, 46.5+1, 48+1
$$DEL^EEOEOSE .01DEL1+1
INPUT^EEOEOSE 14.1+1, 23+1, 23.6+1, 42+1, 46+1, 50+1, 51+1, 53+1, 55+1, 56+1
, 57+1
NODE^EEOEOSE .01+1
TEST^EEOEOSE .01OT+1
^EEOUTIL1 63+1
ACCEPT^EEOUTIL1 25+1
$$UP^XLFSTR .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(785 1.1+1, 1.1OF9.2+1, 64+1, 64OF9.2+1
^EEO(785 - [#785] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1.1OF9.2+1, 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), 14.1+1, 23+1, 33+1, 51+1, 54+1, 55+1
^VA(200 - [#200] 98OT+1

Naked Globals

Name Field # of Occurrence
^(1 IDQUIT+1
^(2 1.1OF9.2+1, 54+1
^(3 33+1
^(5 IDQ+1, 1.1OF9.2+1, 54+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 14.5+1*, 14.7+1*, 15+1*, 15.3+1*, 15.4+1*, 15.5+1*, 15.7+1*, 16+1*, 16.05+1*, 16.07+1*
, 16.5+1*, 16.7+1*, 16.75+1*, 20+1*, 21+1*, 22+1*, 22.3+1*, 23.5+1*, 24+1*, 26+1*
, 29+1*, 32+1*, 40.5+1*, 40.6+1*, 41+1*, 44+1*, 45+1*, 46.2+1*, 46.4+1*, 46.5+1*
, 47+1*, 48+1*
>> D0 1.1OF9.2+1, 1.3OT+1, 14.1+1, 23+1, 33+1, 51+1, 54+1, 55+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.3+1, 15.5+1, 16+1, 16.05+1, 16.07+1, 16.5+1, 16.7+1
, 16.75+1, 20+1, 21+1, 22+1, 22.3+1, 23.5+1, 24+1, 26+1, 29+1, 32+1
, 40.5+1, 40.6+1, 41+1, 44+1, 45+1, 46.2+1, 46.4+1, 46.5+1, 47+1, 48+1
E3 14.5+1!, 14.7+1!, 15+1!, 16+1!, 16.5+1!, 16.7+1!, 16.75+1!, 21+1!, 22+1!, 22.3+1!
, 23.5+1!, 24+1!, 26+1!, 29+1!, 32+1!, 40.5+1!, 40.6+1!, 41+1!, 44+1!, 45+1!
, 46.5+1!, 48+1!
>> EEO2 1.3OT+1*
>> EEOREV 40.5+1*, 40.6+1*, 41+1*
>> EEOS 14.5+1*, 14.7+1*, 15+1*, 16+1*, 16.5+1*, 16.7+1*, 16.75+1*, 21+1*, 22+1*, 22.3+1*
, 23.5+1*, 24+1*, 26+1*, 29+1*, 32+1*, 40.5+1*, 40.6+1*, 41+1*, 44+1*, 45+1*
, 46.5+1*, 48+1*
>> EEOSEQ 14.5+1*, 14.7+1*, 15+1*, 16+1*, 16.5+1*, 16.7+1*, 16.75+1*, 21+1*, 22+1*, 22.3+1*
, 23.5+1*, 24+1*, 26+1*, 29+1*, 32+1*, 40.5+1*, 40.6+1*, 41+1*, 44+1*, 45+1*
, 46.5+1*, 48+1*
>> EEOXX .091+1*
>> EEOYSTN .01+1
>> EN1 14.1+1*, 23+1*, 23.6+1*, 42+1*, 46+1*, 50+1*, 51+1*, 53+1*, 55+1*, 56+1*
, 57+1*
>> EN2 14.1+1*, 23+1*, 23.6+1*, 42+1*, 46+1*, 50+1*, 51+1*, 53+1*, 55+1*, 56+1*
, 57+1*
>> STANO .01+1*
U IDQ+1, IDQUIT+1, 1.1OF9.2+1, 1.3OT+1, 14.1+1, 23+1, 33+1, 51+1, 54+1, 55+1
, 64OF9.2+1, 98OT+1
X .01+1!*, .01(XREF 1S), .01(XREF 1K), .05+1!, .08+1!, .091+1!, 1.1+1*, 1.1OF9.2+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.3+1*!, 15.4+1*!, 15.5+1*!, 15.7+1*!
, 15.9+1!, 16+1*!, 16.05+1*!, 16.07+1*!, 16.5+1*!, 16.7+1*!, 16.75+1*!, 19+1!, 20+1*!, 21+1*!
, 22+1*!, 22.3+1*!, 23.5+1*!, 24+1*!, 26+1*!, 29+1*!, 32+1*!, 33+1*, 40.5+1*!, 40.6+1*!
, 41+1*!, 44+1*!, 45+1*!, 46.2+1*!, 46.4+1*!, 46.5+1*!, 47+1*!, 48+1*!, 54+1*, 62+1!
, 64+1*, 64OF9.2+1*, 71+1!, 71.5+1!, 72+1!, 98+1!
>> X1 33+1*, 54+1*
>> X2 33+1*, 54+1*
>> Y .01OT+1, 1.1OF9.2+1*, 1.3OT+1*, 14.5+1, 14.7+1, 15+1, 15.3+1, 15.4+1, 15.5+1, 15.7+1
, 16+1, 16.05+1, 16.07+1, 16.5+1, 16.7+1, 16.75+1, 20+1, 21+1, 22+1, 22.3+1
, 23.5+1, 24+1, 26+1, 29+1, 32+1, 40.5+1, 40.6+1, 41+1, 44+1, 45+1
, 46.2+1, 46.4+1, 46.5+1, 47+1, 48+1, 98OT+1*
>> Y(0 .01OT+1*, 1.3OT+1*, 98OT+1*
>> Y(785 1.1+1*, 1.1OF9.2+1*, 33+1*, 54+1*, 64+1, 64OF9.2+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