source: WorldVistAEHR/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOEAHOC.m@ 699

Last change on this file since 699 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.6 KB
Line 
1EEOEAHOC ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE EEO COMPLAINTS FILE (#785) ;03/02/94 07:44
2 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
3 ;;1.6V2;QM Integration Module;;02/22/1994
4 ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
5 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
6 S DIR(0)="SAO^1:FORMAL;2:COUNSELOR"
7 S DIR("B")="FORMAL",DIR("A")="Generate EEO Adhoc report: "
8 S DIR("A",1)=" Choose From One of the Following Selections:",DIR("A",1.5)=" "
9 S DIR("A",2)=" 1. FORMAL INFORMATION",DIR("A",3)=" 2. COUNSELOR INFORMATION",DIR("A",4)=" " D ^DIR Q:Y["^"
10 K DIR I Y>1 D ^EEOEAHO2 Q
11 S QAQMRTN="MENU^EEOEAHOC",QAQORTN="OTHER^EEOEAHOC",QAQDIC=785
12 S QAQMHDR="EEO ADHOC REPORT",QAQMMAX=73
13REUSE D ^QAQAHOC0
14 K QAQDIC,QAQFOUND,QAQMENU,QAQMHDR,QAQMMAX,QAQORTN,QA Q
15MENU ; *** Build the menu array
16 S QAQMENU=1
17 F QA=1:1 S X=$P($T(TEXT+QA),";;",2,99) Q:X="" S QAQMENU(QAQMENU)=X,QAQMENU=QAQMENU+1
18 G MENU^EEOEAHO1
19OTHER ; *** Set up other (optional) EN1^DIP variables, e.g.
20 ; *** DCOPIES,DHD,DHIT,DIOBEG,DIOEND,DIS(),IOP,PG
21 K QAQFOUND S QAQFOUND=0,DHIT="S QAQFOUND=1"
22 S DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""
23 S DIS(0)="I $P($G(^EEO(785,D0,12)),U,2)'=""D""" Q
24TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
25 ;;1^Complainant^~.01;"Complainant"^FAO^1:60^
26 ;;1^State^~.09;"State"^PAO^5:AEMNQZ^D POINTER^QAQAHOC2
27 ;;1^Case^~1.1;"Case"^FAO^1:60^
28 ;;1^Oeo Number^~1.2;"Oeo Number"^FAO^1:60^
29 ;;1^Case No.^~1.3;"Case No."^FAO^1:60^
30 ;;1^Station^~2;"Station"^PAO^4:AEMNQZ^D POINTER^QAQAHOC2
31 ;;1^Service^~5;"Service"^PAO^730:AEMNQZ^D POINTER^QAQAHOC2
32 ;;1^Rep's Name^~8;"Rep's Name"^FAO^1:60^
33 ;;0^Rep's Phone No.^~9;"Rep's Phone No."^FAO^1:60^
34 ;;0^Rep's Street Addr.^~10;"Rep's Street Addr."^FAO^1:60^
35 ;;0^Rep's City Addr.^~11;"Rep's City Addr."^FAO^1:60^
36 ;;0^Rep's State Addr.^~12;"Rep's State Addr."^PAO^5:AEMNQZ^D POINTER^QAQAHOC2
37 ;;1^Counselor'S Name^~14;"Counselor'S Name"^PAO^200:AEMNQZ^D POINTER^QAQAHOC2
38 ;;0^Rep's Zip Code^~13;"Rep's Zip Code"^FAO^1:60^
39 ;;1^Total Counselor Days^~14.1;"Total Counselor Days"^FAO^1:60^
40 ;;1^Date Of Incident^~14.5;"Date Of Incident"^DAO^::AETS^D DATE^QAQAHOC2
41 ;;1^Date Initial Contact/Interview^~14.7;"Date Initial Contact/Interview"^DAO^::AETS^D DATE^QAQAHOC2
42 ;;1^Date Notice Of Final Interview^~15;"Date Notice Of Final Interview"^DAO^::AETS^D DATE^QAQAHOC2
43 ;;1^Date Request For Add'l Info^~15.3;"Date Request For Add'l Info"^DAO^::AETS^D DATE^QAQAHOC2
44 ;;1^Date Of Informal Resoulution^~15.5;"Date Of Informal Resoulution"^DAO^::AETS^D DATE^QAQAHOC2
45 ;;1^Date Formal Complaint Filed^~16;"Date Formal Complaint Filed"^DAO^::AETS^D DATE^QAQAHOC2
46 ;;1^Dt Filed Union Grievence^~16.05;"Dt Filed Union Grievence"^DAO^::AETS^D DATE^QAQAHOC2
47 ;;1^Dt Filed Appeal With Mspb^~16.07;"Dt Filed Appeal With Mspb"^DAO^::AETS^D DATE^QAQAHOC2
48 ;;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
49 ;;1^Dt Counselor Informed Of F.C.^~16.5;"Dt Counselor Informed Of F.C."^DAO^::AETS^D DATE^QAQAHOC2
50 ;;1^Dt Counselor Filed Report^~16.7;"Dt Counselor Filed Report"^DAO^::AETS^D DATE^QAQAHOC2
51 ;;1^Dt Complaint Rec'd By Eeo Off.^~16.75;"Dt Complaint Rec'd By Eeo Off."^DAO^::AETS^D DATE^QAQAHOC2
52 ;;1^Issue Codes^17.5,~.01;"Issue Codes"^PAO^786:AEMNQZ^D POINTER^QAQAHOC2
53 ;;1^Date Occured^17.5,~1;"Date Occured"^DAO^::AETS^D DATE^QAQAHOC2
54 ;;1^Basis^18.5,~.01;"Basis"^PAO^785.1:AEMNQZ^D POINTER^QAQAHOC2
55 ;;0^Issue Code Comments^~19;"Issue Code Comments"^FAO^1:60^
56 ;;1^Date Of Letter Of Acknow.^~20;"Date Of Letter Of Acknow."^DAO^::AETS^D DATE^QAQAHOC2
57 ;;1^Date To Ogc For Acc/Rej^~21;"Date To Ogc For Acc/Rej"^DAO^::AETS^D DATE^QAQAHOC2
58 ;;1^Date Accepted By Ogc^~22;"Date Accepted By Ogc"^DAO^::AETS^D DATE^QAQAHOC2
59 ;;1^Total Days Ogc Acc/Rej^~23;"Total Days Ogc Acc/Rej"^FAO^1:60^
60 ;;1^Date Dismissed By Ogc^~22.3;"Date Dismissed By Ogc"^DAO^::AETS^D DATE^QAQAHOC2
61 ;;1^Date To Ogc For Final Decision^~23.5;"Date To Ogc For Final Decision"^DAO^::AETS^D DATE^QAQAHOC2
62 ;;1^Total Days/Ogc Final Decision^~23.6;"Total Days/Ogc Final Decision"^FAO^1:60^
63 ;;1^Date Complaint Accepted By Stn^~24;"Date Complaint Accepted By Stn"^DAO^::AETS^D DATE^QAQAHOC2
64 ;;1^Total Days Acceptance^~25;"Total Days Acceptance"^FAO^1:60^
65 ;;1^Date Investigator Requested^~26;"Date Investigator Requested"^DAO^::AETS^D DATE^QAQAHOC2
66 ;;1^Initial Inv Date Assigned^~29;"Initial Inv Date Assigned"^DAO^::AETS^D DATE^QAQAHOC2
67 ;;1^Inv Rpt Rc'd Date^~32;"Inv Rpt Rc'd Date"^DAO^::AETS^D DATE^QAQAHOC2
68 ;;1^Total Investigation Days^~33;"Total Investigation Days"^FAO^1:60^
Note: See TracBrowser for help on using the repository browser.