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

EEOEOI6.m

Go to the documentation of this file. 
  1. EEOEOI6 ;HISC/JWR - EEO COMPLAINT FILE (785) INQUIRY ROUTINE ;Apr 20, 1995
  1.  ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
  1. SEC ;Gathers 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 $$SCREEN^EEOEOSE(Y) I $P($G(^EEO(785,+Y,1)),U,3)>0"
  1.  S (DIE,DIC)="^EEO(785,",DIC(0)="AEQMZ"
  1. DIC ;Gathers complaints to be inquired to
  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^EEOEOI6",ZTSAVE("EEO*")="" 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. 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
  1.  Q
  1.  ;
  1. PRINT ;Fields to print
  1.  S FLDS="""COMPLAINANT:  """
  1.  S FLDS(1)=".01;X;"""""
  1.  S FLDS(2)="""CASE#:  "";C44"
  1.  S FLDS(3)="1.3;X;"""""
  1.  S FLDS(4)="""ADDRESS:  "";C3"
  1.  S FLDS(5)=".05;X;C13"
  1.  S FLDS(6)=".08;X;C13,"" "",.09;X,"" """
  1.  S FLDS(7)=".091;X;"""""
  1.  S FLDS(8)="""SERVICE:  "";C2"
  1.  S FLDS(9)="5;X;"""""
  1.  S FLDS(10)="""GRADE:  "";C2"
  1.  S FLDS(11)="6;X;"""""
  1.  S FLDS(11.5)="""JOB TITLE:  "";C44"
  1.  S FLDS(12)="6.5;X;"""""
  1.  S FLDS(13)="""REPRESENTATIVE:  "";C2,8;C19;X"
  1.  S FLDS(14)="""PHONE:  "";C44,9;X"
  1.  S FLDS(15)="""ADDRESS:  "";C3,10;X;C13"
  1.  S FLDS(17)="11;X;C13,"" """
  1.  S FLDS(18)="12;X,"" """
  1.  S FLDS(19)="13;X;"""""
  1.  S FLDS(20)="""COUNSELOR NAME:  "";C2"
  1.  S FLDS(21)="14;X;"""""
  1.  S FLDS(22)="""OFFICE FILED WITH:  "";C2"
  1.  S FLDS(23)="16.3;X;"""""
  1.  S FLDS(24)="""BASIS:  "";C2"
  1.  S FLDS(25)="18.5,.01;X;C7"
  1.  S FLDS(26)="""ISSUE CODES:  "";C2"
  1.  S FLDS(26.5)="""ISSUE CODE DATE: "";C44"
  1.  S FLDS(27)="17.5,.01;X;C7,1;X;C46"
  1.  S FLDS(28)="""ISSUE CODE COMMENTS:  "";C2"
  1.  S FLDS(29)="19;C4;X;W"
  1.  S FLDS(30)="""INV. REQ.:  "";C2"
  1.  S FLDS(31)="26;X;C14"
  1.  S FLDS(32)="""INIT. INV. ASSIGNED:  "";C44"
  1.  S FLDS(33)="29;X;C67"
  1.  S FLDS(35)="27.5,""INV. NAME:  "";C2,.01;X,""TYPE:  "";C44,2;X,""INV. DATE ASSIGNED:  "";C3;1;X,4;C44;X,""INV. REVIEW ASS. TO:  "";C3;,5;X,""DT ASSIGNED:  "";C44,6;X,""INV. REPT. RELEASED:  "";C3,7;X,"" "";C2"
  1.  S FLDS(36)="""INV. APPROVED REPORT REC'D:  "";C2"
  1.  S FLDS(37)="32;X;"""""
  1.  S FLDS(38)="""CORRECTIVE ACTION:  "";C2"
  1.  S FLDS(39)="61,.01;X;C7"
  1.  S FLDS(40)="""COMPLAINT STATUS:  "";C2"
  1.  S FLDS(41)="63;X;C21;L30"
  1.  S FLDS(42)=""" "";C2"
  1.  ;S FLDS(43)="""         * 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