source: WorldVistAEHR/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOEOI6.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1EEOEOI6 ;HISC/JWR - EEO COMPLAINT FILE (785) INQUIRY ROUTINE ;Apr 20, 1995
2 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
3SEC ;Gathers security variables
4 D ^EEOEOSE I FAIL Q
5COMPL ;Inquiry of EEO Complaint info
6 S DIC("A")="Select Complainant: "
7 K DR
8 S (EEOYSCR,DIC("S"))="I $$SCREEN^EEOEOSE(Y) I $P($G(^EEO(785,+Y,1)),U,3)>0"
9 S (DIE,DIC)="^EEO(785,",DIC(0)="AEQMZ"
10DIC ;Gathers complaints to be inquired to
11 D NEW^EEOEEDIE
12 I (X="^")!((Y'>0)&('$D(EEOYI))) G KILL
13 ;I +Y>0 I $D(^EEO(785,+Y,12)) I $P($G(^EEO(785,+Y,12)),U,2)="D" D DMSG^EEOEOE2 G DIC
14 S:Y>0 EEOYI(+Y)="" S:$D(EEOYI) DIC("A")=" ANOTHER: "
15 I Y<0,$D(EEOYI) G ZIS
16 G DIC
17 ;
18ZIS ;gets printer info
19 K %ZIS S %ZIS="MNQ"
20 D ^%ZIS K %ZIS G:POP KILL
21 S (EEOYOP,IOP)=ION_";"_IOST_";"_IOM_";"_IOSL
22 I $D(IO("Q")) S ZTDESC="EEO Inquiry",ZTRTN="START^EEOEOI6",ZTSAVE("EEO*")="" D ^%ZTLOAD G KILL
23 ;
24START ;beginning of print
25 S EEOYZ=0 F I=0:0 S EEOYZ=$O(EEOYI(EEOYZ)) Q:EEOYZ="" S EEOYLAST=EEOYZ
26 S EEOYLP=0,EEOIOST=IOST
27 F S EEOYLP=$O(EEOYI(EEOYLP)) Q:EEOYLP="" D PRINT Q:EEOYLP=-1
28KILL ;generic kill
29 D ^%ZISC
30 D HOME^%ZIS
31 K %ZIS,EEOYI,EEOYLAST,EEOYLP,EEOYOP,EEOYZ,BY,DHD,DIR,DR,FLDS,FR,I,IOP,TO,Y,ZTDESC,ZTQUEUED,ZTRTN,ZTSAVE,EEOIOST
32 Q
33 ;
34PRINT ;Fields to print
35 S FLDS="""COMPLAINANT: """
36 S FLDS(1)=".01;X;"""""
37 S FLDS(2)="""CASE#: "";C44"
38 S FLDS(3)="1.3;X;"""""
39 S FLDS(4)="""ADDRESS: "";C3"
40 S FLDS(5)=".05;X;C13"
41 S FLDS(6)=".08;X;C13,"" "",.09;X,"" """
42 S FLDS(7)=".091;X;"""""
43 S FLDS(8)="""SERVICE: "";C2"
44 S FLDS(9)="5;X;"""""
45 S FLDS(10)="""GRADE: "";C2"
46 S FLDS(11)="6;X;"""""
47 S FLDS(11.5)="""JOB TITLE: "";C44"
48 S FLDS(12)="6.5;X;"""""
49 S FLDS(13)="""REPRESENTATIVE: "";C2,8;C19;X"
50 S FLDS(14)="""PHONE: "";C44,9;X"
51 S FLDS(15)="""ADDRESS: "";C3,10;X;C13"
52 S FLDS(17)="11;X;C13,"" """
53 S FLDS(18)="12;X,"" """
54 S FLDS(19)="13;X;"""""
55 S FLDS(20)="""COUNSELOR NAME: "";C2"
56 S FLDS(21)="14;X;"""""
57 S FLDS(22)="""OFFICE FILED WITH: "";C2"
58 S FLDS(23)="16.3;X;"""""
59 S FLDS(24)="""BASIS: "";C2"
60 S FLDS(25)="18.5,.01;X;C7"
61 S FLDS(26)="""ISSUE CODES: "";C2"
62 S FLDS(26.5)="""ISSUE CODE DATE: "";C44"
63 S FLDS(27)="17.5,.01;X;C7,1;X;C46"
64 S FLDS(28)="""ISSUE CODE COMMENTS: "";C2"
65 S FLDS(29)="19;C4;X;W"
66 S FLDS(30)="""INV. REQ.: "";C2"
67 S FLDS(31)="26;X;C14"
68 S FLDS(32)="""INIT. INV. ASSIGNED: "";C44"
69 S FLDS(33)="29;X;C67"
70 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"
71 S FLDS(36)="""INV. APPROVED REPORT REC'D: "";C2"
72 S FLDS(37)="32;X;"""""
73 S FLDS(38)="""CORRECTIVE ACTION: "";C2"
74 S FLDS(39)="61,.01;X;C7"
75 S FLDS(40)="""COMPLAINT STATUS: "";C2"
76 S FLDS(41)="63;X;C21;L30"
77 S FLDS(42)=""" "";C2"
78 ;S FLDS(43)=""" * Denotes ongoing computations which are still active"";C2;X"
79 S BY="@NUMBER"
80 S DHD="EEO COMPLAINANT INQUIRY"
81 S (FR,TO)=EEOYLP
82 S IOP=EEOYOP
83 S (DIE,DIC)="^EEO(785,",DIC(0)="AEQMZ"
84 S DIS(0)="I $$SCREEN^EEOEOSE(D0)" D EN1^DIP K DIS(0),IOP S DIC("S")=EEOYSCR
85 Q:$E(EEOIOST)'="C"!$D(ZTQUEUED)
86 I EEOYLP'=EEOYLAST D
87 . S DIR(0)="E",DIR("A")="Hit return to continue" W *7
88 . D ^DIR
89 . I Y'>0 S EEOYLP=-1 Q
90 . W " ...continuing...one moment please "
91 . Q
92 Q
Note: See TracBrowser for help on using the repository browser.