| 1 | EEOEOP2 ;HISC/JWR - EEO STATION PRINT ROUTINE ;11/11/92 15:03
|
|---|
| 2 | ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
|
|---|
| 3 | STN2 ;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
|
|---|
| 31 | KILL ;kills variables
|
|---|
| 32 | K EEOYTEMP,TO,FR,L,FLDS,BY,DHD,DIC("A") Q
|
|---|
| 33 | STN3 ;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)"
|
|---|
| 52 | DIP ;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
|
|---|
