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 Dec 13, 2024@01:51:05 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
