Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 785.03

Package: EEO Complaint Tracking

EEO COMPLAINTS(#785)-->785.03

Sub-Field: 785.03


Information

Parent File Name Number Package
EEO COMPLAINTS(#785) INVESTIGATOR'S NAME 785.03 EEO Complaint Tracking

Details

Field # Name Loc Type Details
.01 INVESTIGATOR'S NAME 0;1 POINTER TO EEO CENTRAL INVESTIGATORS FILE (#787.5) EEO CENTRAL INVESTIGATORS(#787.5)

  • INPUT TRANSFORM:  D INACT^EEOUTIL1 Q:'$D(X)
  • LAST EDITED:  DEC 15, 1994
  • HELP-PROMPT:  Enter an EEO investigator.
  • DESCRIPTION:  
    The name of the investigator assigned.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  785.03^B
    1)= S ^EEO(785,DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^EEO(785,DA(1),11,"B",$E(X,1,30),DA)
1 INVESTIGATOR DT ASSIGNED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$G(X)'="" TYPE^EEOUTIL1
  • LAST EDITED:  AUG 01, 1994
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 TYPE 0;3 SET
  • '1' FOR ADHOC;
  • '2' FOR RETIRED ANNUITANT;
  • '3' FOR REGIONAL SPECIALIST;

  • LAST EDITED:  MAR 16, 1994
3 INVESTIGATOR'S STATE COMPUTED MULTIPLE

  • MUMPS CODE:  X ^DD(785.03,3,9.3) S Y(785.03,3,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(785.03,3,101),U,1) S D0=Y(785.03,3,80) S D1=Y(785.03,3,81)
    9.2 = S I(0)="^EEO(785,",J(0)=785 F D=0:0 S (D,D1)=$O(^EEO(785,D0,11,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^EEO(787.5,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1
    9.3 = S Y(785.03,3,81)=$S($D(D1):D1,1:""),Y(785.03,3,80)=$S($D(D0):D0,1:"") X ^DD(785.03,3,9.2):D0>0 S X="" K DIC S DIC="^DPT(",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
  • ALGORITHM:  27.5:2
  • LAST EDITED:  DEC 01, 1993
4 INV FINDING 0;5 SET
  • 'F' FOR Findings of Discrimination;
  • 'N' FOR No Findings of Discrimination;

  • INPUT TRANSFORM:  S:$D(X) EEOXX=1 Q
  • LAST EDITED:  MAR 10, 1994
  • DESCRIPTION:  
    Enter either "F" for findings of discrimination or "N" for no findings of discrimination.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 INV REVIEW ASSIGNED TO 0;6 POINTER TO EEO CENTRAL INVESTIGATORS FILE (#787.5) EEO CENTRAL INVESTIGATORS(#787.5)

  • LAST EDITED:  DEC 01, 1993
  • DESCRIPTION:  
    The person assigned to review the investigative report, he/she must also be an investigator.
6 INV REVIEW ASSIGNED DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1993
7 INV REPORT RELEASE DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1993
  • HELP-PROMPT:  The date OEO releases the Investigator's report.
  • DESCRIPTION:  
    The date the Investigator's report is released to the station.
8 INV REPORT DUE DATE COMPUTED DATE

  • MUMPS CODE:  S Y(785.03,8,1)=$S($D(^EEO(785,D0,11,D1,0)):^(0),1:"") S X=$P(Y(785.03,8,1),U,2),X1=X,X2=+45,X="" D C^%DTC:X1
  • ALGORITHM:  #1+45
Info |  Details