source: FOIAVistA/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOEOI5.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 3.9 KB
Line 
1EEOEOI5 ;HISC/FDW,JWR - EEO Complaint File Printable Inquiry routine ;11/11/92 12:59
2 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
3SEC ;Sets up neccessary security variables
4 D ^EEOEOSE I FAIL Q
5COMPL ;Inquiry of EEO Complaint info
6 S DIC("A")="Select Complainant: "
7 K DR
8 S (EEOYSCR,DIC("S"))="I $P($G(^EEO(785,+Y,1)),U,3)>0"
9 S (DIE,DIC)="^EEO(785,",DIC(0)="AEQMZ"
10DIC ;Gathers complaint names
11 D NEW^EEOEEDIE
12 I (X="^")!((Y'>0)&('$D(EEOYI))) G KILL
13 ;I +Y>0 I $D(^EEO(785,+Y,12)) I $P($G(^EEO(785,+Y,12)),U,2)="D" D DMSG^EEOEOE2 G DIC
14 S:Y>0 EEOYI(+Y)="" S:$D(EEOYI) DIC("A")=" ANOTHER: "
15 I Y<0,$D(EEOYI) G ZIS
16 G DIC
17 ;
18ZIS ;gets printer info
19 K %ZIS S %ZIS="MNQ"
20 D ^%ZIS K %ZIS G:POP KILL
21 S (EEOYOP,IOP)=ION_";"_IOST_";"_IOM_";"_IOSL
22 I $D(IO("Q")) S ZTDESC="EEO Inquiry",ZTRTN="START^EEOEOI5",ZTSAVE("EEOY*")="" D ^%ZTLOAD G KILL
23 ;
24START ;beginning of print
25 S EEOYZ=0 F I=0:0 S EEOYZ=$O(EEOYI(EEOYZ)) Q:EEOYZ="" S EEOYLAST=EEOYZ
26 S EEOYLP=0,EEOIOST=IOST
27 F S EEOYLP=$O(EEOYI(EEOYLP)) Q:EEOYLP="" D PRINT Q:EEOYLP=-1
28 ;
29KILL ;generic kill
30 D ^%ZISC
31 D HOME^%ZIS
32 K %ZIS,EEOYI,EEOYLAST,EEOYLP,EEOYOP,EEOYZ,BY,DHD,DIR,DR,FLDS,FR,I,IOP,TO,Y,ZTDESC,ZTQUEUED,ZTRTN,ZTSAVE,EEOIOST,EEOYI
33 Q
34 ;
35PRINT ;print the report
36 S FLDS="""COMPLAINANT:"",.01;X"
37 S FLDS(1)="""CASE#:"";C44,1.3;L;X"
38 S FLDS(2)="""DATE OF INCIDENT :"";C2,14.5;X"
39 S FLDS(3)="""DATE INITIAL CONTACT: "";C44,14.7;X"
40 S FLDS(4)="""DT NOTICE OF FINAL INTER.: "";C2,15;X"
41 S FLDS(5)="""DATE REQ. ADD'L INFO: "";C44,15.3;X"
42 S FLDS(6)="""DATE INFORMAL RESOUL.: "";C2,15.5;X"
43 S FLDS(6.5)="""TOTAL COUNSELOR'S DAYS: "";C2,14.1;L;X"
44 S FLDS(7)="""FORMAL COMPLAINT DATE: "";C44,16;X"
45 S FLDS(8)="""DATE UNION GRIEVENCE: "";C2,16.07;X"
46 S FLDS(9)="""DATE APPEAL TO MSPB: "";C44,16.07;X"
47 S FLDS(10)="""COUNS. INFORMED OF F.C.: "";C2,16.5;X"
48 S FLDS(11)="""DT COUNS. FILED REPORT: "";C44,16.7;X"
49 S FLDS(11.5)="""TOTAL COUNSELOR REPORT DAYS: "";C2,51;L;X"
50 S FLDS(12)="""DT REC'D BY EEO OFFICER: "";C2,16.75;X"
51 S FLDS(13)="""DATE LETTER OF ACKNOWL.: "";C44,20;X"
52 S FLDS(14)="""DATE TO OGC FOR ACC/REJ: "";C2,21;X"
53 S FLDS(15)="""DATE ACCEPTED BY OGC: "";C44,22;X"
54 S FLDS(16)="""DATE DISMISSED BY OGC: "";C2,22.3;X"
55 S FLDS(16.5)="""TOTAL DAYS OGC ACC/REJ: "";C2,23;X;L"
56 S FLDS(17)="""COMPL. ACCEPT. BY STATION: "";C2,24;X"
57 S FLDS(17.5)="""TOTAL DAYS ACCEPTANCE: "";C2,25;L;X"
58 S FLDS(17.6)="""TOTAL DAYS TO ASSIGN INV.: "";C2,L;42;X"
59 S FLDS(17.7)="""TOTAL INVESTIGATION DAYS: "";C2,33;L;X"
60 S FLDS(18)="""COMPL. SENT ADVISE/RIGHTS: "";C2,41;X"
61 S FLDS(19)="""COMPL. REC'D ADV/RGHTS: "";C44,40.5;X"
62 S FLDS(20)="""COMPL. MAKES ELECTION: "";C2,40.6;X"
63 S FLDS(20.5)="""TOTAL DAYS FOR ADVISE/RIGHTS: "";C2,53;L;X"
64 S FLDS(20.7)="""TOTAL DAYS TO MAKE ELECTION: "";C2,55;L;X"
65 S FLDS(21)="""DATE EEOC HEARING REQ'D: "";C44,44;X"
66 S FLDS(21.5)="""TOTAL DAYS TO REQ. EEOC HEAR: "";C2,54;L;X"
67 S FLDS(22)="""DATE EEOC HEAR. CONDUCTED: "";C2,45;X"
68 S FLDS(23)="""TOTAL DAYS FOR EEOC HEAR.: "";C44,46;L;X"
69 S FLDS(24)="""EEOC APPEAL: "";C2,46.2;X"
70 S FLDS(25)="""EEOC APPEAL #2: "";C44,46.4;X"
71 S FLDS(26)="""DATE FINAL AGENCY DECIS. ISS.: "";C2,46.5;X"
72 S FLDS(26.5)="""TOTAL DAYS FOR OGC FINAL DEC.: "";C2,23.6;L;X"
73 S FLDS(28)="""DATE CIVIL ACTION FILED: "";C2,47;X"
74 S FLDS(28.1)="""TOTAL DAYS FOR F.A.D.: "";C2,56;L;X"
75 S FLDS(29)="""DATE CLOSED: "";C2,48;X"
76 S FLDS(30)="""REASON CLOSED:"";C2,49;X"
77 S FLDS(48)="""180 DAYS: "";C2,57;X;L"
78 S FLDS(49)="""TOTAL PROCESSING DAYS:"";C44"
79 S FLDS(50)="50;"""""
80 S FLDS(52)=""" "";C2"
81 S FLDS(53)=""" * Denotes ongoing computations which are still active"";C2;X"
82 S BY="@NUMBER"
83 S DHD="EEO COMPLAINANT INQUIRY"
84 S (FR,TO)=EEOYLP
85 S IOP=EEOYOP
86 S (DIE,DIC)="^EEO(785,",DIC(0)="AEQMZ"
87 S DIS(0)="I $$SCREEN^EEOEOSE(D0)" D EN1^DIP K DIS(0),IOP S DIC("S")=EEOYSCR
88 Q:$E(EEOIOST)'="C"!$D(ZTQUEUED)
89 I EEOYLP'=EEOYLAST D
90 . S DIR(0)="E",DIR("A")="Hit return to continue" W *7
91 . D ^DIR
92 . I Y'>0 S EEOYLP=-1 Q
93 . W " ...continuing...one moment please "
94 . Q
95 Q
Note: See TracBrowser for help on using the repository browser.