- EEOEOP2 ;HISC/JWR - EEO STATION PRINT ROUTINE ;11/11/92 15:03
- ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
- STN2 ;Entry point for report
- D ^EEOEOSE I FAIL Q
- W " EEO Complaint Status Timeliness Report"
- S (DIC,DIE)="^EEO(785,"
- S L=0
- S FLDS=".01;S1;L17" ;complainant name
- S FLDS(1)="63;L7;T" ;status
- S FLDS(2)="1.1;L4;T" ;case no:
- S FLDS(3)="16;L14" ;date formal complaint filed
- S FLDS(4)="14.1;L4;T" ;counselor days
- S FLDS(5)="51;L4;T" ;couns report days
- S FLDS(6)="25;L4;T" ;total days acceptance
- S FLDS(7)="23;L4;T" ;days for OGC to acc/rej
- S FLDS(8)="42;L4;T" ;total days assign invest
- S FLDS(9)="33;L4;T" ;total investigation days
- S FLDS(10)="53;L4;T" ;days for advise/rights
- S FLDS(11)="54;L4;T" ;days to request hearing
- S FLDS(12)="46;L4;T" ;total days for hearing
- S FLDS(13)="55;L4;T" ;days to make election
- S FLDS(14)="56;L5;T" ;days for FAD
- S FLDS(15)="57;L5" ;180 days
- S FLDS(16)="50;L5;T" ;total processing days
- S EEOYTEMP=$P($P(^DIC(4,EEOYSPTR,0),U),",")
- S BY="63,.01"
- S FR="?"
- S TO="?"
- S DHD="EEO Complaint Status Timeliness Report for "_EEOSTNAM_" (132 column mode)"
- D DIP Q
- KILL ;kills variables
- K EEOYTEMP,TO,FR,L,FLDS,BY,DHD,DIC("A") Q
- STN3 ;Entry point for complaint status report (obsolete)
- D ^EEOEOSE I FAIL Q
- W " EEO Complaint Status Report"
- S (DIC,DIE)="^EEO(785,"
- S L=0
- S FLDS=".01;S1;L17" ;complainant name
- S FLDS(1)="63;L8;T" ;status
- S FLDS(2)="1.1;L6;T" ;case no:
- S FLDS(6)="15.4;L4;T" ;lenght of extention
- S FLDS(7)="23;L4;T" ;days for OGC to acc/rej
- S FLDS(8)="42;L4;T" ;total days assign invest
- S FLDS(9)="33;L4;T" ;total investigation days
- S FLDS(15)="57;L4" ;180 days
- S FLDS(30)="64;L4;T" ;180 days deviations out of dir control
- S EEOYTEMP=$P($P(^DIC(4,EEOYSPTR,0),U),",")
- S BY="63,.01"
- S FR="?"
- S TO="?"
- S DHD="EEO Complaint Status Timeliness Report for "_EEOSTNAM_" (132 column mode)"
- DIP ;Sets up print variables
- S DIS(0)="I $$SCREEN^EEOEOSE(D0) I $P($G(^EEO(785,D0,12)),U,2)'=""D"""
- D EN1^DIP K DIS(0) S DIC("S")=EEOYSCR
- D KILL
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEOEOP2 2074 printed Mar 13, 2025@20:55:45 Page 2
- EEOEOP2 ;HISC/JWR - EEO STATION PRINT ROUTINE ;11/11/92 15:03
- +1 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
- STN2 ;Entry point for report
- +1 DO ^EEOEOSE
- IF FAIL
- QUIT
- +2 WRITE " EEO Complaint Status Timeliness Report"
- +3 SET (DIC,DIE)="^EEO(785,"
- +4 SET L=0
- +5 ;complainant name
- SET FLDS=".01;S1;L17"
- +6 ;status
- SET FLDS(1)="63;L7;T"
- +7 ;case no:
- SET FLDS(2)="1.1;L4;T"
- +8 ;date formal complaint filed
- SET FLDS(3)="16;L14"
- +9 ;counselor days
- SET FLDS(4)="14.1;L4;T"
- +10 ;couns report days
- SET FLDS(5)="51;L4;T"
- +11 ;total days acceptance
- SET FLDS(6)="25;L4;T"
- +12 ;days for OGC to acc/rej
- SET FLDS(7)="23;L4;T"
- +13 ;total days assign invest
- SET FLDS(8)="42;L4;T"
- +14 ;total investigation days
- SET FLDS(9)="33;L4;T"
- +15 ;days for advise/rights
- SET FLDS(10)="53;L4;T"
- +16 ;days to request hearing
- SET FLDS(11)="54;L4;T"
- +17 ;total days for hearing
- SET FLDS(12)="46;L4;T"
- +18 ;days to make election
- SET FLDS(13)="55;L4;T"
- +19 ;days for FAD
- SET FLDS(14)="56;L5;T"
- +20 ;180 days
- SET FLDS(15)="57;L5"
- +21 ;total processing days
- SET FLDS(16)="50;L5;T"
- +22 SET EEOYTEMP=$PIECE($PIECE(^DIC(4,EEOYSPTR,0),U),",")
- +23 SET BY="63,.01"
- +24 SET FR="?"
- +25 SET TO="?"
- +26 SET DHD="EEO Complaint Status Timeliness Report for "_EEOSTNAM_" (132 column mode)"
- +27 DO DIP
- QUIT
- KILL ;kills variables
- +1 KILL EEOYTEMP,TO,FR,L,FLDS,BY,DHD,DIC("A")
- QUIT
- STN3 ;Entry point for complaint status report (obsolete)
- +1 DO ^EEOEOSE
- IF FAIL
- QUIT
- +2 WRITE " EEO Complaint Status Report"
- +3 SET (DIC,DIE)="^EEO(785,"
- +4 SET L=0
- +5 ;complainant name
- SET FLDS=".01;S1;L17"
- +6 ;status
- SET FLDS(1)="63;L8;T"
- +7 ;case no:
- SET FLDS(2)="1.1;L6;T"
- +8 ;lenght of extention
- SET FLDS(6)="15.4;L4;T"
- +9 ;days for OGC to acc/rej
- SET FLDS(7)="23;L4;T"
- +10 ;total days assign invest
- SET FLDS(8)="42;L4;T"
- +11 ;total investigation days
- SET FLDS(9)="33;L4;T"
- +12 ;180 days
- SET FLDS(15)="57;L4"
- +13 ;180 days deviations out of dir control
- SET FLDS(30)="64;L4;T"
- +14 SET EEOYTEMP=$PIECE($PIECE(^DIC(4,EEOYSPTR,0),U),",")
- +15 SET BY="63,.01"
- +16 SET FR="?"
- +17 SET TO="?"
- +18 SET DHD="EEO Complaint Status Timeliness Report for "_EEOSTNAM_" (132 column mode)"
- DIP ;Sets up print variables
- +1 SET DIS(0)="I $$SCREEN^EEOEOSE(D0) I $P($G(^EEO(785,D0,12)),U,2)'=""D"""
- +2 DO EN1^DIP
- KILL DIS(0)
- SET DIC("S")=EEOYSCR
- +3 DO KILL
