source: FOIAVistA/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOEOP2.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: 2.0 KB
Line 
1EEOEOP2 ;HISC/JWR - EEO STATION PRINT ROUTINE ;11/11/92 15:03
2 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
3STN2 ;Entry point for report
4 D ^EEOEOSE I FAIL Q
5 W " EEO Complaint Status Timeliness Report"
6 S (DIC,DIE)="^EEO(785,"
7 S L=0
8 S FLDS=".01;S1;L17" ;complainant name
9 S FLDS(1)="63;L7;T" ;status
10 S FLDS(2)="1.1;L4;T" ;case no:
11 S FLDS(3)="16;L14" ;date formal complaint filed
12 S FLDS(4)="14.1;L4;T" ;counselor days
13 S FLDS(5)="51;L4;T" ;couns report days
14 S FLDS(6)="25;L4;T" ;total days acceptance
15 S FLDS(7)="23;L4;T" ;days for OGC to acc/rej
16 S FLDS(8)="42;L4;T" ;total days assign invest
17 S FLDS(9)="33;L4;T" ;total investigation days
18 S FLDS(10)="53;L4;T" ;days for advise/rights
19 S FLDS(11)="54;L4;T" ;days to request hearing
20 S FLDS(12)="46;L4;T" ;total days for hearing
21 S FLDS(13)="55;L4;T" ;days to make election
22 S FLDS(14)="56;L5;T" ;days for FAD
23 S FLDS(15)="57;L5" ;180 days
24 S FLDS(16)="50;L5;T" ;total processing days
25 S EEOYTEMP=$P($P(^DIC(4,EEOYSPTR,0),U),",")
26 S BY="63,.01"
27 S FR="?"
28 S TO="?"
29 S DHD="EEO Complaint Status Timeliness Report for "_EEOSTNAM_" (132 column mode)"
30 D DIP Q
31KILL ;kills variables
32 K EEOYTEMP,TO,FR,L,FLDS,BY,DHD,DIC("A") Q
33STN3 ;Entry point for complaint status report (obsolete)
34 D ^EEOEOSE I FAIL Q
35 W " EEO Complaint Status Report"
36 S (DIC,DIE)="^EEO(785,"
37 S L=0
38 S FLDS=".01;S1;L17" ;complainant name
39 S FLDS(1)="63;L8;T" ;status
40 S FLDS(2)="1.1;L6;T" ;case no:
41 S FLDS(6)="15.4;L4;T" ;lenght of extention
42 S FLDS(7)="23;L4;T" ;days for OGC to acc/rej
43 S FLDS(8)="42;L4;T" ;total days assign invest
44 S FLDS(9)="33;L4;T" ;total investigation days
45 S FLDS(15)="57;L4" ;180 days
46 S FLDS(30)="64;L4;T" ;180 days deviations out of dir control
47 S EEOYTEMP=$P($P(^DIC(4,EEOYSPTR,0),U),",")
48 S BY="63,.01"
49 S FR="?"
50 S TO="?"
51 S DHD="EEO Complaint Status Timeliness Report for "_EEOSTNAM_" (132 column mode)"
52DIP ;Sets up print variables
53 S DIS(0)="I $$SCREEN^EEOEOSE(D0) I $P($G(^EEO(785,D0,12)),U,2)'=""D"""
54 D EN1^DIP K DIS(0) S DIC("S")=EEOYSCR
55 D KILL
Note: See TracBrowser for help on using the repository browser.