- EEOEAHOC ;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
- ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
- S X="QAQAHOC0" X ^%ZOSF("TEST") I $T'=1 W !!!,"The routine ^QAQAHOC0 from the QA Module must be present to run this option.",!! Q
- S DIR(0)="SAO^1:FORMAL;2:COUNSELOR"
- S DIR("B")="FORMAL",DIR("A")="Generate EEO Adhoc report: "
- S DIR("A",1)=" Choose From One of the Following Selections:",DIR("A",1.5)=" "
- S DIR("A",2)=" 1. FORMAL INFORMATION",DIR("A",3)=" 2. COUNSELOR INFORMATION",DIR("A",4)=" " D ^DIR Q:Y["^"
- K DIR I Y>1 D ^EEOEAHO2 Q
- S QAQMRTN="MENU^EEOEAHOC",QAQORTN="OTHER^EEOEAHOC",QAQDIC=785
- S QAQMHDR="EEO ADHOC REPORT",QAQMMAX=73
- REUSE D ^QAQAHOC0
- K QAQDIC,QAQFOUND,QAQMENU,QAQMHDR,QAQMMAX,QAQORTN,QA Q
- S QAQMENU=1
- F QA=1:1 S X=$P($T(TEXT+QA),";;",2,99) Q:X="" S QAQMENU(QAQMENU)=X,QAQMENU=QAQMENU+1
- G MENU^EEOEAHO1
- OTHER ; *** Set up other (optional) EN1^DIP variables, e.g.
- ; *** DCOPIES,DHD,DHIT,DIOBEG,DIOEND,DIS(),IOP,PG
- K QAQFOUND S QAQFOUND=0,DHIT="S QAQFOUND=1"
- S DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""
- S DIS(0)="I $P($G(^EEO(785,D0,12)),U,2)'=""D""" Q
- TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
- ;;1^Complainant^~.01;"Complainant"^FAO^1:60^
- ;;1^State^~.09;"State"^PAO^5:AEMNQZ^D POINTER^QAQAHOC2
- ;;1^Case^~1.1;"Case"^FAO^1:60^
- ;;1^Oeo Number^~1.2;"Oeo Number"^FAO^1:60^
- ;;1^Case No.^~1.3;"Case No."^FAO^1:60^
- ;;1^Station^~2;"Station"^PAO^4:AEMNQZ^D POINTER^QAQAHOC2
- ;;1^Service^~5;"Service"^PAO^730:AEMNQZ^D POINTER^QAQAHOC2
- ;;1^Rep's Name^~8;"Rep's Name"^FAO^1:60^
- ;;0^Rep's Phone No.^~9;"Rep's Phone No."^FAO^1:60^
- ;;0^Rep's Street Addr.^~10;"Rep's Street Addr."^FAO^1:60^
- ;;0^Rep's City Addr.^~11;"Rep's City Addr."^FAO^1:60^
- ;;0^Rep's State Addr.^~12;"Rep's State Addr."^PAO^5:AEMNQZ^D POINTER^QAQAHOC2
- ;;1^Counselor'S Name^~14;"Counselor'S Name"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
- ;;0^Rep's Zip Code^~13;"Rep's Zip Code"^FAO^1:60^
- ;;1^Total Counselor Days^~14.1;"Total Counselor Days"^FAO^1:60^
- ;;1^Date Of Incident^~14.5;"Date Of Incident"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date Initial Contact/Interview^~14.7;"Date Initial Contact/Interview"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date Notice Of Final Interview^~15;"Date Notice Of Final Interview"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date Request For Add'l Info^~15.3;"Date Request For Add'l Info"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date Of Informal Resoulution^~15.5;"Date Of Informal Resoulution"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date Formal Complaint Filed^~16;"Date Formal Complaint Filed"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Dt Filed Union Grievence^~16.05;"Dt Filed Union Grievence"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Dt Filed Appeal With Mspb^~16.07;"Dt Filed Appeal With Mspb"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Office Complaint Filed With^~16.3;"Office Complaint Filed With"^SO^OEO:Office of Equal Opportunity;CO:Central Office;STN:Station;SEC:Secretary;^D SET^QAQAHOC2
- ;;1^Dt Counselor Informed Of F.C.^~16.5;"Dt Counselor Informed Of F.C."^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Dt Counselor Filed Report^~16.7;"Dt Counselor Filed Report"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Dt Complaint Rec'd By Eeo Off.^~16.75;"Dt Complaint Rec'd By Eeo Off."^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Issue Codes^17.5,~.01;"Issue Codes"^PAO^786:AEMNQZ^D POINTER^QAQAHOC2
- ;;1^Date Occured^17.5,~1;"Date Occured"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Basis^18.5,~.01;"Basis"^PAO^785.1:AEMNQZ^D POINTER^QAQAHOC2
- ;;0^Issue Code Comments^~19;"Issue Code Comments"^FAO^1:60^
- ;;1^Date Of Letter Of Acknow.^~20;"Date Of Letter Of Acknow."^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date To Ogc For Acc/Rej^~21;"Date To Ogc For Acc/Rej"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date Accepted By Ogc^~22;"Date Accepted By Ogc"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Total Days Ogc Acc/Rej^~23;"Total Days Ogc Acc/Rej"^FAO^1:60^
- ;;1^Date Dismissed By Ogc^~22.3;"Date Dismissed By Ogc"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Date To Ogc For Final Decision^~23.5;"Date To Ogc For Final Decision"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Total Days/Ogc Final Decision^~23.6;"Total Days/Ogc Final Decision"^FAO^1:60^
- ;;1^Date Complaint Accepted By Stn^~24;"Date Complaint Accepted By Stn"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Total Days Acceptance^~25;"Total Days Acceptance"^FAO^1:60^
- ;;1^Date Investigator Requested^~26;"Date Investigator Requested"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Initial Inv Date Assigned^~29;"Initial Inv Date Assigned"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Inv Rpt Rc'd Date^~32;"Inv Rpt Rc'd Date"^DAO^::AETS^D DATE^QAQAHOC2
- ;;1^Total Investigation Days^~33;"Total Investigation Days"^FAO^1:60^
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEOEAHOC 4806 printed Apr 23, 2025@18:05:22 Page 2
- EEOEAHOC ;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
- +3 ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
- +4 SET X="QAQAHOC0"
- XECUTE ^%ZOSF("TEST")
- IF $TEST'=1
- WRITE !!!,"The routine ^QAQAHOC0 from the QA Module must be present to run this option.",!!
- QUIT
- +5 SET DIR(0)="SAO^1:FORMAL;2:COUNSELOR"
- +6 SET DIR("B")="FORMAL"
- SET DIR("A")="Generate EEO Adhoc report: "
- +7 SET DIR("A",1)=" Choose From One of the Following Selections:"
- SET DIR("A",1.5)=" "
- +8 SET DIR("A",2)=" 1. FORMAL INFORMATION"
- SET DIR("A",3)=" 2. COUNSELOR INFORMATION"
- SET DIR("A",4)=" "
- DO ^DIR
- if Y["^"
- QUIT
- +9 KILL DIR
- IF Y>1
- DO ^EEOEAHO2
- QUIT
- +10 SET QAQMRTN="MENU^EEOEAHOC"
- SET QAQORTN="OTHER^EEOEAHOC"
- SET QAQDIC=785
- +11 SET QAQMHDR="EEO ADHOC REPORT"
- SET QAQMMAX=73
- REUSE DO ^QAQAHOC0
- +1 KILL QAQDIC,QAQFOUND,QAQMENU,QAQMHDR,QAQMMAX,QAQORTN,QA
- QUIT
- +1 SET QAQMENU=1
- +2 FOR QA=1:1
- SET X=$PIECE($TEXT(TEXT+QA),";;",2,99)
- if X=""
- QUIT
- SET QAQMENU(QAQMENU)=X
- SET QAQMENU=QAQMENU+1
- +3 GOTO MENU^EEOEAHO1
- OTHER ; *** Set up other (optional) EN1^DIP variables, e.g.
- +1 ; *** DCOPIES,DHD,DHIT,DIOBEG,DIOEND,DIS(),IOP,PG
- +2 KILL QAQFOUND
- SET QAQFOUND=0
- SET DHIT="S QAQFOUND=1"
- +3 SET DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""
- +4 SET DIS(0)="I $P($G(^EEO(785,D0,12)),U,2)'=""D"""
- QUIT
- TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
- +1 ;;1^Complainant^~.01;"Complainant"^FAO^1:60^
- +2 ;;1^State^~.09;"State"^PAO^5:AEMNQZ^D POINTER^QAQAHOC2
- +3 ;;1^Case^~1.1;"Case"^FAO^1:60^
- +4 ;;1^Oeo Number^~1.2;"Oeo Number"^FAO^1:60^
- +5 ;;1^Case No.^~1.3;"Case No."^FAO^1:60^
- +6 ;;1^Station^~2;"Station"^PAO^4:AEMNQZ^D POINTER^QAQAHOC2
- +7 ;;1^Service^~5;"Service"^PAO^730:AEMNQZ^D POINTER^QAQAHOC2
- +8 ;;1^Rep's Name^~8;"Rep's Name"^FAO^1:60^
- +9 ;;0^Rep's Phone No.^~9;"Rep's Phone No."^FAO^1:60^
- +10 ;;0^Rep's Street Addr.^~10;"Rep's Street Addr."^FAO^1:60^
- +11 ;;0^Rep's City Addr.^~11;"Rep's City Addr."^FAO^1:60^
- +12 ;;0^Rep's State Addr.^~12;"Rep's State Addr."^PAO^5:AEMNQZ^D POINTER^QAQAHOC2
- +13 ;;1^Counselor'S Name^~14;"Counselor'S Name"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
- +14 ;;0^Rep's Zip Code^~13;"Rep's Zip Code"^FAO^1:60^
- +15 ;;1^Total Counselor Days^~14.1;"Total Counselor Days"^FAO^1:60^
- +16 ;;1^Date Of Incident^~14.5;"Date Of Incident"^DAO^::AETS^D DATE^QAQAHOC2
- +17 ;;1^Date Initial Contact/Interview^~14.7;"Date Initial Contact/Interview"^DAO^::AETS^D DATE^QAQAHOC2
- +18 ;;1^Date Notice Of Final Interview^~15;"Date Notice Of Final Interview"^DAO^::AETS^D DATE^QAQAHOC2
- +19 ;;1^Date Request For Add'l Info^~15.3;"Date Request For Add'l Info"^DAO^::AETS^D DATE^QAQAHOC2
- +20 ;;1^Date Of Informal Resoulution^~15.5;"Date Of Informal Resoulution"^DAO^::AETS^D DATE^QAQAHOC2
- +21 ;;1^Date Formal Complaint Filed^~16;"Date Formal Complaint Filed"^DAO^::AETS^D DATE^QAQAHOC2
- +22 ;;1^Dt Filed Union Grievence^~16.05;"Dt Filed Union Grievence"^DAO^::AETS^D DATE^QAQAHOC2
- +23 ;;1^Dt Filed Appeal With Mspb^~16.07;"Dt Filed Appeal With Mspb"^DAO^::AETS^D DATE^QAQAHOC2
- +24 ;;1^Office Complaint Filed With^~16.3;"Office Complaint Filed With"^SO^OEO:Office of Equal Opportunity;CO:Central Office;STN:Station;SEC:Secretary;^D SET^QAQAHOC2
- +25 ;;1^Dt Counselor Informed Of F.C.^~16.5;"Dt Counselor Informed Of F.C."^DAO^::AETS^D DATE^QAQAHOC2
- +26 ;;1^Dt Counselor Filed Report^~16.7;"Dt Counselor Filed Report"^DAO^::AETS^D DATE^QAQAHOC2
- +27 ;;1^Dt Complaint Rec'd By Eeo Off.^~16.75;"Dt Complaint Rec'd By Eeo Off."^DAO^::AETS^D DATE^QAQAHOC2
- +28 ;;1^Issue Codes^17.5,~.01;"Issue Codes"^PAO^786:AEMNQZ^D POINTER^QAQAHOC2
- +29 ;;1^Date Occured^17.5,~1;"Date Occured"^DAO^::AETS^D DATE^QAQAHOC2
- +30 ;;1^Basis^18.5,~.01;"Basis"^PAO^785.1:AEMNQZ^D POINTER^QAQAHOC2
- +31 ;;0^Issue Code Comments^~19;"Issue Code Comments"^FAO^1:60^
- +32 ;;1^Date Of Letter Of Acknow.^~20;"Date Of Letter Of Acknow."^DAO^::AETS^D DATE^QAQAHOC2
- +33 ;;1^Date To Ogc For Acc/Rej^~21;"Date To Ogc For Acc/Rej"^DAO^::AETS^D DATE^QAQAHOC2
- +34 ;;1^Date Accepted By Ogc^~22;"Date Accepted By Ogc"^DAO^::AETS^D DATE^QAQAHOC2
- +35 ;;1^Total Days Ogc Acc/Rej^~23;"Total Days Ogc Acc/Rej"^FAO^1:60^
- +36 ;;1^Date Dismissed By Ogc^~22.3;"Date Dismissed By Ogc"^DAO^::AETS^D DATE^QAQAHOC2
- +37 ;;1^Date To Ogc For Final Decision^~23.5;"Date To Ogc For Final Decision"^DAO^::AETS^D DATE^QAQAHOC2
- +38 ;;1^Total Days/Ogc Final Decision^~23.6;"Total Days/Ogc Final Decision"^FAO^1:60^
- +39 ;;1^Date Complaint Accepted By Stn^~24;"Date Complaint Accepted By Stn"^DAO^::AETS^D DATE^QAQAHOC2
- +40 ;;1^Total Days Acceptance^~25;"Total Days Acceptance"^FAO^1:60^
- +41 ;;1^Date Investigator Requested^~26;"Date Investigator Requested"^DAO^::AETS^D DATE^QAQAHOC2
- +42 ;;1^Initial Inv Date Assigned^~29;"Initial Inv Date Assigned"^DAO^::AETS^D DATE^QAQAHOC2
- +43 ;;1^Inv Rpt Rc'd Date^~32;"Inv Rpt Rc'd Date"^DAO^::AETS^D DATE^QAQAHOC2
- +44 ;;1^Total Investigation Days^~33;"Total Investigation Days"^FAO^1:60^
