Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EEOEOI5

EEOEOI5.m

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