EEOEAHO1.m

EEOEAHO1 ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE EEO COMPLAINTS FILE (#785) ;03/02/94  07:44

 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995

 ;;1.6V2;QM Integration Module;;02/22/1994

MENU ; *** Build the menu array

 F QA=1:1 S X=$P($T(TEXT+QA),";;",2,99) Q:X=""  S QAQMENU(QAQMENU)=X,QAQMENU=QAQMENU+1

 Q

TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)

 ;;1^Investigator's Name^27.5,~.01;"Investigator's Name"^PAO^787.5:AEMNQZ^D POINTER^QAQAHOC2

 ;;1^Type^27.5,~2;"Type"^SO^1:ADHOC;2:RETIRED ANNUITANT;3:REGIONAL SPECIALIST;^D SET^QAQAHOC2

 ;;1^Investigator Dt Assigned^27.5,~1;"Investigator Dt Assigned"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Inv Finding^27.5,~4;"Inv Finding"^SO^F:Findings of Discrimination;N:No Findings of Discrimination;^D SET^QAQAHOC2

 ;;1^Inv Review Assigned To^27.5,~5;"Inv Review Assigned To"^PAO^787.5:AEMNQZ^D POINTER^QAQAHOC2

 ;;1^Dt Complainant Sent Adv/Rights^~41;"Dt Complainant Sent Adv/Rights"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Dt Compl Rec'd Advise/Rights^~40.5;"Dt Compl Rec'd Advise/Rights"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Date Compl. Makes Election^~40.6;"Date Compl. Makes Election"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Total Days Assign Inv.^~42;"Total Days Assign Inv."^FAO^1:60^

 ;;1^Date Eeoc Hearing Requested^~44;"Date Eeoc Hearing Requested"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Date Eeoc Hearing Conducted^~45;"Date Eeoc Hearing Conducted"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Total Days For Eeoc Hearing^~46;"Total Days For Eeoc Hearing"^FAO^1:60^

 ;;1^Eeoc Appeal^~46.2;"Eeoc Appeal"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Eeoc Appeal #2^~46.4;"Eeoc Appeal #2"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Date Final Agency Dec. Issued^~46.5;"Date Final Agency Dec. Issued"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Date Civil Action Filed^~47;"Date Civil Action Filed"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Date Closed^~48;"Date Closed"^DAO^::AETS^D DATE^QAQAHOC2

 ;;1^Reason Closed^~49;"Reason Closed"^SO^1:SETTLEMENT;2:AGENCY DECISION;3:REJECTION BY OGC;4:CIVIL ACTION FILED;5:WITHDRAWAL;6:CANCELLATION;7:FAILURE TO PROSECUTE;8:OTHER;^D SET^QAQAHOC2

 ;;1^Total Processing Days^~50;"Total Processing Days"^FAO^1:60^

 ;;1^Total Counselor Report Days^~51;"Total Counselor Report Days"^FAO^1:60^

 ;;1^Total Days For Advise/Rights^~53;"Total Days For Advise/Rights"^FAO^1:60^

 ;;1^Total Days To Req Eeoc Hearing^~54;"Total Days To Req Eeoc Hearing"^FAO^1:60^

 ;;1^Total Days To Make Election^~55;"Total Days To Make Election"^FAO^1:60^

 ;;1^Total Days For Fad Decision^~56;"Total Days For Fad Decision"^FAO^1:60^

 ;;1^180 Days^~57;"180 Days"^FAO^1:60^

 ;;0^Recommended Info. Gathering^~60;"Recommended Info. Gathering"^

 ;;1^Corrective Action^61,~.01;"Corrective Action"^PAO^785.2:AEMNQZ^D POINTER^QAQAHOC2

 ;;1^Complaint Status^~63;"Complaint Status"^FAO^1:60^

 ;;1^180 Days off Site Processing^~64

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EEOEAHO1   2829     printed  Apr 09, 2024@20:56:09                                                                                                                                                                                                    Page 2

EEOEAHO1  ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE EEO COMPLAINTS FILE (#785) ;03/02/94  07:44

 +1       ;;2.0;EEO Complaint Tracking;;Apr 27, 1995

 +2       ;;1.6V2;QM Integration Module;;02/22/1994

MENU      ; *** Build the menu array

 +1        FOR QA=1:1

               SET X=$PIECE($TEXT(TEXT+QA),";;",2,99)

               if X=""

                   QUIT 

               SET QAQMENU(QAQMENU)=X

               SET QAQMENU=QAQMENU+1

 +2        QUIT 

TEXT      ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)

 +1       ;;1^Investigator's Name^27.5,~.01;"Investigator's Name"^PAO^787.5:AEMNQZ^D POINTER^QAQAHOC2

 +2       ;;1^Type^27.5,~2;"Type"^SO^1:ADHOC;2:RETIRED ANNUITANT;3:REGIONAL SPECIALIST;^D SET^QAQAHOC2

 +3       ;;1^Investigator Dt Assigned^27.5,~1;"Investigator Dt Assigned"^DAO^::AETS^D DATE^QAQAHOC2

 +4       ;;1^Inv Finding^27.5,~4;"Inv Finding"^SO^F:Findings of Discrimination;N:No Findings of Discrimination;^D SET^QAQAHOC2

 +5       ;;1^Inv Review Assigned To^27.5,~5;"Inv Review Assigned To"^PAO^787.5:AEMNQZ^D POINTER^QAQAHOC2

 +6       ;;1^Dt Complainant Sent Adv/Rights^~41;"Dt Complainant Sent Adv/Rights"^DAO^::AETS^D DATE^QAQAHOC2

 +7       ;;1^Dt Compl Rec'd Advise/Rights^~40.5;"Dt Compl Rec'd Advise/Rights"^DAO^::AETS^D DATE^QAQAHOC2

 +8       ;;1^Date Compl. Makes Election^~40.6;"Date Compl. Makes Election"^DAO^::AETS^D DATE^QAQAHOC2

 +9       ;;1^Total Days Assign Inv.^~42;"Total Days Assign Inv."^FAO^1:60^

 +10      ;;1^Date Eeoc Hearing Requested^~44;"Date Eeoc Hearing Requested"^DAO^::AETS^D DATE^QAQAHOC2

 +11      ;;1^Date Eeoc Hearing Conducted^~45;"Date Eeoc Hearing Conducted"^DAO^::AETS^D DATE^QAQAHOC2

 +12      ;;1^Total Days For Eeoc Hearing^~46;"Total Days For Eeoc Hearing"^FAO^1:60^

 +13      ;;1^Eeoc Appeal^~46.2;"Eeoc Appeal"^DAO^::AETS^D DATE^QAQAHOC2

 +14      ;;1^Eeoc Appeal #2^~46.4;"Eeoc Appeal #2"^DAO^::AETS^D DATE^QAQAHOC2

 +15      ;;1^Date Final Agency Dec. Issued^~46.5;"Date Final Agency Dec. Issued"^DAO^::AETS^D DATE^QAQAHOC2

 +16      ;;1^Date Civil Action Filed^~47;"Date Civil Action Filed"^DAO^::AETS^D DATE^QAQAHOC2

 +17      ;;1^Date Closed^~48;"Date Closed"^DAO^::AETS^D DATE^QAQAHOC2

 +18      ;;1^Reason Closed^~49;"Reason Closed"^SO^1:SETTLEMENT;2:AGENCY DECISION;3:REJECTION BY OGC;4:CIVIL ACTION FILED;5:WITHDRAWAL;6:CANCELLATION;7:FAILURE TO PROSECUTE;8:OTHER;^D SET^QAQAHOC2

 +19      ;;1^Total Processing Days^~50;"Total Processing Days"^FAO^1:60^

 +20      ;;1^Total Counselor Report Days^~51;"Total Counselor Report Days"^FAO^1:60^

 +21      ;;1^Total Days For Advise/Rights^~53;"Total Days For Advise/Rights"^FAO^1:60^

 +22      ;;1^Total Days To Req Eeoc Hearing^~54;"Total Days To Req Eeoc Hearing"^FAO^1:60^

 +23      ;;1^Total Days To Make Election^~55;"Total Days To Make Election"^FAO^1:60^

 +24      ;;1^Total Days For Fad Decision^~56;"Total Days For Fad Decision"^FAO^1:60^

 +25      ;;1^180 Days^~57;"180 Days"^FAO^1:60^

 +26      ;;0^Recommended Info. Gathering^~60;"Recommended Info. Gathering"^

 +27      ;;1^Corrective Action^61,~.01;"Corrective Action"^PAO^785.2:AEMNQZ^D POINTER^QAQAHOC2

 +28      ;;1^Complaint Status^~63;"Complaint Status"^FAO^1:60^

 +29      ;;1^180 Days off Site Processing^~64