EEOEOI6 ;HISC/JWR - EEO COMPLAINT FILE (785) INQUIRY ROUTINE ;Apr 20, 1995
;;2.0;EEO Complaint Tracking;;Apr 27, 1995
SEC ;Gathers security variables
D ^EEOEOSE I FAIL Q
COMPL ;Inquiry of EEO Complaint info
S DIC("A")="Select Complainant: "
K DR
S (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y) I $P($G(^EEO(785,+Y,1)),U,3)>0"
S (DIE,DIC)="^EEO(785,",DIC(0)="AEQMZ"
DIC ;Gathers complaints to be inquired to
D NEW^EEOEEDIE
I (X="^")!((Y'>0)&('$D(EEOYI))) G KILL
;I +Y>0 I $D(^EEO(785,+Y,12)) I $P($G(^EEO(785,+Y,12)),U,2)="D" D DMSG^EEOEOE2 G DIC
S:Y>0 EEOYI(+Y)="" S:$D(EEOYI) DIC("A")=" ANOTHER: "
I Y<0,$D(EEOYI) G ZIS
G DIC
;
ZIS ;gets printer info
K %ZIS S %ZIS="MNQ"
D ^%ZIS K %ZIS G:POP KILL
S (EEOYOP,IOP)=ION_";"_IOST_";"_IOM_";"_IOSL
I $D(IO("Q")) S ZTDESC="EEO Inquiry",ZTRTN="START^EEOEOI6",ZTSAVE("EEO*")="" D ^%ZTLOAD G KILL
;
START ;beginning of print
S EEOYZ=0 F I=0:0 S EEOYZ=$O(EEOYI(EEOYZ)) Q:EEOYZ="" S EEOYLAST=EEOYZ
S EEOYLP=0,EEOIOST=IOST
F S EEOYLP=$O(EEOYI(EEOYLP)) Q:EEOYLP="" D PRINT Q:EEOYLP=-1
KILL ;generic kill
D ^%ZISC
D HOME^%ZIS
K %ZIS,EEOYI,EEOYLAST,EEOYLP,EEOYOP,EEOYZ,BY,DHD,DIR,DR,FLDS,FR,I,IOP,TO,Y,ZTDESC,ZTQUEUED,ZTRTN,ZTSAVE,EEOIOST
Q
;
PRINT ;Fields to print
S FLDS="""COMPLAINANT: """
S FLDS(1)=".01;X;"""""
S FLDS(2)="""CASE#: "";C44"
S FLDS(3)="1.3;X;"""""
S FLDS(4)="""ADDRESS: "";C3"
S FLDS(5)=".05;X;C13"
S FLDS(6)=".08;X;C13,"" "",.09;X,"" """
S FLDS(7)=".091;X;"""""
S FLDS(8)="""SERVICE: "";C2"
S FLDS(9)="5;X;"""""
S FLDS(10)="""GRADE: "";C2"
S FLDS(11)="6;X;"""""
S FLDS(11.5)="""JOB TITLE: "";C44"
S FLDS(12)="6.5;X;"""""
S FLDS(13)="""REPRESENTATIVE: "";C2,8;C19;X"
S FLDS(14)="""PHONE: "";C44,9;X"
S FLDS(15)="""ADDRESS: "";C3,10;X;C13"
S FLDS(17)="11;X;C13,"" """
S FLDS(18)="12;X,"" """
S FLDS(19)="13;X;"""""
S FLDS(20)="""COUNSELOR NAME: "";C2"
S FLDS(21)="14;X;"""""
S FLDS(22)="""OFFICE FILED WITH: "";C2"
S FLDS(23)="16.3;X;"""""
S FLDS(24)="""BASIS: "";C2"
S FLDS(25)="18.5,.01;X;C7"
S FLDS(26)="""ISSUE CODES: "";C2"
S FLDS(26.5)="""ISSUE CODE DATE: "";C44"
S FLDS(27)="17.5,.01;X;C7,1;X;C46"
S FLDS(28)="""ISSUE CODE COMMENTS: "";C2"
S FLDS(29)="19;C4;X;W"
S FLDS(30)="""INV. REQ.: "";C2"
S FLDS(31)="26;X;C14"
S FLDS(32)="""INIT. INV. ASSIGNED: "";C44"
S FLDS(33)="29;X;C67"
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"
S FLDS(36)="""INV. APPROVED REPORT REC'D: "";C2"
S FLDS(37)="32;X;"""""
S FLDS(38)="""CORRECTIVE ACTION: "";C2"
S FLDS(39)="61,.01;X;C7"
S FLDS(40)="""COMPLAINT STATUS: "";C2"
S FLDS(41)="63;X;C21;L30"
S FLDS(42)=""" "";C2"
;S FLDS(43)=""" * Denotes ongoing computations which are still active"";C2;X"
S BY="@NUMBER"
S DHD="EEO COMPLAINANT INQUIRY"
S (FR,TO)=EEOYLP
S IOP=EEOYOP
S (DIE,DIC)="^EEO(785,",DIC(0)="AEQMZ"
S DIS(0)="I $$SCREEN^EEOEOSE(D0)" D EN1^DIP K DIS(0),IOP S DIC("S")=EEOYSCR
Q:$E(EEOIOST)'="C"!$D(ZTQUEUED)
I EEOYLP'=EEOYLAST D
. S DIR(0)="E",DIR("A")="Hit return to continue" W *7
. D ^DIR
. I Y'>0 S EEOYLP=-1 Q
. W " ...continuing...one moment please "
. Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEOEOI6 3338 printed Apr 09, 2024@20:56:10 Page 2
EEOEOI6 ;HISC/JWR - EEO COMPLAINT FILE (785) INQUIRY ROUTINE ;Apr 20, 1995
+1 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
SEC ;Gathers security variables
+1 DO ^EEOEOSE
IF FAIL
QUIT
COMPL ;Inquiry of EEO Complaint info
+1 SET DIC("A")="Select Complainant: "
+2 KILL DR
+3 SET (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y) I $P($G(^EEO(785,+Y,1)),U,3)>0"
+4 SET (DIE,DIC)="^EEO(785,"
SET DIC(0)="AEQMZ"
DIC ;Gathers complaints to be inquired to
+1 DO NEW^EEOEEDIE
+2 IF (X="^")!((Y'>0)&('$DATA(EEOYI)))
GOTO KILL
+3 ;I +Y>0 I $D(^EEO(785,+Y,12)) I $P($G(^EEO(785,+Y,12)),U,2)="D" D DMSG^EEOEOE2 G DIC
+4 if Y>0
SET EEOYI(+Y)=""
if $DATA(EEOYI)
SET DIC("A")=" ANOTHER: "
+5 IF Y<0
IF $DATA(EEOYI)
GOTO ZIS
+6 GOTO DIC
+7 ;
ZIS ;gets printer info
+1 KILL %ZIS
SET %ZIS="MNQ"
+2 DO ^%ZIS
KILL %ZIS
if POP
GOTO KILL
+3 SET (EEOYOP,IOP)=ION_";"_IOST_";"_IOM_";"_IOSL
+4 IF $DATA(IO("Q"))
SET ZTDESC="EEO Inquiry"
SET ZTRTN="START^EEOEOI6"
SET ZTSAVE("EEO*")=""
DO ^%ZTLOAD
GOTO KILL
+5 ;
START ;beginning of print
+1 SET EEOYZ=0
FOR I=0:0
SET EEOYZ=$ORDER(EEOYI(EEOYZ))
if EEOYZ=""
QUIT
SET EEOYLAST=EEOYZ
+2 SET EEOYLP=0
SET EEOIOST=IOST
+3 FOR
SET EEOYLP=$ORDER(EEOYI(EEOYLP))
if EEOYLP=""
QUIT
DO PRINT
if EEOYLP=-1
QUIT
KILL ;generic kill
+1 DO ^%ZISC
+2 DO HOME^%ZIS
+3 KILL %ZIS,EEOYI,EEOYLAST,EEOYLP,EEOYOP,EEOYZ,BY,DHD,DIR,DR,FLDS,FR,I,IOP,TO,Y,ZTDESC,ZTQUEUED,ZTRTN,ZTSAVE,EEOIOST
+4 QUIT
+5 ;
PRINT ;Fields to print
+1 SET FLDS="""COMPLAINANT: """
+2 SET FLDS(1)=".01;X;"""""
+3 SET FLDS(2)="""CASE#: "";C44"
+4 SET FLDS(3)="1.3;X;"""""
+5 SET FLDS(4)="""ADDRESS: "";C3"
+6 SET FLDS(5)=".05;X;C13"
+7 SET FLDS(6)=".08;X;C13,"" "",.09;X,"" """
+8 SET FLDS(7)=".091;X;"""""
+9 SET FLDS(8)="""SERVICE: "";C2"
+10 SET FLDS(9)="5;X;"""""
+11 SET FLDS(10)="""GRADE: "";C2"
+12 SET FLDS(11)="6;X;"""""
+13 SET FLDS(11.5)="""JOB TITLE: "";C44"
+14 SET FLDS(12)="6.5;X;"""""
+15 SET FLDS(13)="""REPRESENTATIVE: "";C2,8;C19;X"
+16 SET FLDS(14)="""PHONE: "";C44,9;X"
+17 SET FLDS(15)="""ADDRESS: "";C3,10;X;C13"
+18 SET FLDS(17)="11;X;C13,"" """
+19 SET FLDS(18)="12;X,"" """
+20 SET FLDS(19)="13;X;"""""
+21 SET FLDS(20)="""COUNSELOR NAME: "";C2"
+22 SET FLDS(21)="14;X;"""""
+23 SET FLDS(22)="""OFFICE FILED WITH: "";C2"
+24 SET FLDS(23)="16.3;X;"""""
+25 SET FLDS(24)="""BASIS: "";C2"
+26 SET FLDS(25)="18.5,.01;X;C7"
+27 SET FLDS(26)="""ISSUE CODES: "";C2"
+28 SET FLDS(26.5)="""ISSUE CODE DATE: "";C44"
+29 SET FLDS(27)="17.5,.01;X;C7,1;X;C46"
+30 SET FLDS(28)="""ISSUE CODE COMMENTS: "";C2"
+31 SET FLDS(29)="19;C4;X;W"
+32 SET FLDS(30)="""INV. REQ.: "";C2"
+33 SET FLDS(31)="26;X;C14"
+34 SET FLDS(32)="""INIT. INV. ASSIGNED: "";C44"
+35 SET FLDS(33)="29;X;C67"
+36 SET 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"
+37 SET FLDS(36)="""INV. APPROVED REPORT REC'D: "";C2"
+38 SET FLDS(37)="32;X;"""""
+39 SET FLDS(38)="""CORRECTIVE ACTION: "";C2"
+40 SET FLDS(39)="61,.01;X;C7"
+41 SET FLDS(40)="""COMPLAINT STATUS: "";C2"
+42 SET FLDS(41)="63;X;C21;L30"
+43 SET FLDS(42)=""" "";C2"
+44 ;S FLDS(43)=""" * Denotes ongoing computations which are still active"";C2;X"
+45 SET BY="@NUMBER"
+46 SET DHD="EEO COMPLAINANT INQUIRY"
+47 SET (FR,TO)=EEOYLP
+48 SET IOP=EEOYOP
+49 SET (DIE,DIC)="^EEO(785,"
SET DIC(0)="AEQMZ"
+50 SET DIS(0)="I $$SCREEN^EEOEOSE(D0)"
DO EN1^DIP
KILL DIS(0),IOP
SET DIC("S")=EEOYSCR
+51 if $EXTRACT(EEOIOST)'="C"!$DATA(ZTQUEUED)
QUIT
+52 IF EEOYLP'=EEOYLAST
Begin DoDot:1
+53 SET DIR(0)="E"
SET DIR("A")="Hit return to continue"
WRITE *7
+54 DO ^DIR
+55 IF Y'>0
SET EEOYLP=-1
QUIT
+56 WRITE " ...continuing...one moment please "
+57 QUIT
End DoDot:1
+58 QUIT
