source: FOIAVistA/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEOERCR.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 3.9 KB
Line 
1EEOERCR ;HISC/JWR - PREPARES LETTER OF RIGHTS AND RESPONSIBILITIES ;Apr 20, 1995
2 ;;2.0;EEO Complaint Tracking;**1**;Apr 27, 1995
3REPORT ;Sets up general variables does complaint lookup
4 S XQY0="" D ^EEOEOSE K EEOCOLM,EEOI1,EEOREV,EEONAME,EEORNM,EEOCOUN
5 D HOME^%ZIS S EEOII=IOS
6 S DIC("A")="Select Complainant: ",DIC="^EEO(785,",DIC(0)="AEMQZ",DIC("S")="I $$SCREEN^EEOEOSE(Y) I +$G(^EEO(785,+Y,""SEC""))=DUZ" D ^DIC I Y>0 S DA=+Y S EEONAME=$P(^EEO(785,DA,0),U) G GATHER
7DIC I X=""!(X="^") K DIC D EXIT Q
8 G:Y<1 REPORT
9GATHER ;Gather specific complaint variables
10 S EEOREV=EEONAME D REV S $P(EEORNM," ",30-$L(EEOREV)\2+13)=EEOREV
11 S EEOSEL=2,EEOCNAME=$P($G(^EEO(785,DA,1)),U)
12 I EEOCNAME'="" S:$D(^VA(200,EEOCNAME)) EEOCNAME=$P($G(^(EEOCNAME,0)),U)
13 S:EEOCNAME>0 EEOCNAME=""
14 S DIR(0)="NAO^1:4",DIR("A")="Number of Copies: ",DIR("B")=1,DIR("?")="Enter the number of copies of this report that are needed." D ^DIR
15 S EEOCOP=X,EEOCON=0 K DIC
16 S DIC="^VA(200,",DIC("A")="COUNSELOR: ",DIC("B")=EEOCNAME,DIC(0)="AEMQZ"
17 D ^DIC G:Y<1&(X'="") REPORT S:$P(Y,U,2)'="" EEOCNAME=$P(Y,U,2) S EEOCNAME=$S(EEOCNAME'="":EEOCNAME,1:"____________________"),EEOREV=EEOCNAME D REV S EEORCN=EEOREV
18 S %ZIS="Q" K IOP,ZTIO,ZTSAVE D ^%ZIS G:POP=1 EXIT
19 I $D(IO("Q")) S EEOQ=1,ZTRTN="START^EEOERCR",ZTSAVE("EEO*")="",ZTDESC=" " D ^%ZTLOAD D EXIT G REPORT
20 D START G REPORT
21START ;Start of print
22 U IO W:EEOII=IOS @IOF
23 ;W:IO(0)=IO&($G(EEOQ)'>0) @IOF D
24 S Y=DT D DD^%DT
25 D TEXT1
26 D ^EEOERCR1
27 D IOF
28 S EEOCON=EEOCON+1 K EEOI1 I EEOCON<EEOCOP W:IO=IO(0) @IOF G START
29 D EXIT Q
30TXT ;Recognizes and formats text
31 I IOSL>60 I $Y>60 W @IOF
32 Q:EEOTX="****"
33 I $E(EEOTX,1,3)[";;" S EEOFORM=$P(EEOTX,";;",2),EEOCOLM=$P(EEOFORM,U,2),$P(EEOI1," ",+EEOFORM)="",EEOI1=$G(EEOI1) Q
34 I EEOTX["^^" S EEOTX=$P(EEOTX,"^^")_@$P(EEOTX,"^^",2)_$P(EEOTX,"^^",3)
35 S:'$D(EEOCOLM) EEOCOLM=80 S:'$D(EEOI1) EEOI1=0
36 S CNT=EEOCOLM F CNT=CNT:-1 Q:EEOTX="" D
37 .I $E(EEOTX,1)="*" S CRT=EEOCOLM-EEOLTH-1 F CRT=CRT:-1 Q:$E(EEOTX,1)'="*"!(CRT<2) D
38 ..I CRT>$L(EEOTX) W " ",$E(EEOTX,2,CRT+1) S (EEOTX,CRT)="" Q
39 ..I $E(EEOTX,CRT)=" " W " ",$E(EEOTX,2,CRT) S EEOTX=$E(EEOTX,CRT+1,255),CNT=EEOCOLM Q
40 ..I CRT=2 S EEOTX=$E(EEOTX,2,255) Q
41 .Q:EEOTX=""
42 .I $L(EEOTX)<EEOCOLM W !,EEOI1_EEOTX S EEOLTH=$L(EEOTX),EEOTX="" Q
43 .I $E(EEOTX,CNT)=" " S EEOTX1=$E(EEOTX,1,CNT),EEOTX=$E(EEOTX,CNT+1,245),CNT=EEOCOLM W !,EEOI1_EEOTX1 Q
44 Q
45IOF W:IO(0)'=IO @IOF Q
46EXIT K EEOSEL,EEORCN,EEOCON D EXIT^EEOEFIN Q
47REV ;Reverses order of file 200 name
48 S EEOREV=$G(EEOREV),EEOREV=$P(EEOREV,",",2)_" "_$P(EEOREV,",")
49 Q
50TEXT1 ;Writes text of the report
51 F CT=1:1 S EEOTX=$E($T(TEXT+CT),4,255) Q:EEOTX="***" D TXT
52TEXT ;Formatted lines of test for the report
53 ;;;;5^75
54 ;;^^EEOCNAME^^ EEO COUNSELOR
55 ;;
56 ;;NOTICE OF EEO COMPLAINT RIGHTS AND RESPONSIBILITIES
57 ;;
58 ;;^^EEONAME^^
59 ;;
60 ;;
61 ;;1. In connection with the EEO matter which you brought to my attention, you have certain rights and responsibilities, of which I am required to advise you, in writing, at this time.
62 ;;
63 ;;2. Those rights and responsibilities are:
64 ;;
65 ;; a. The right to remain anonymous during EEO counseling. I will divulge your name to others only if you authorize me to do so. You should know, however, that it may be very difficult to resolve your complaint informally if
66 ;;*you choose to remain anonymous.
67 ;;
68 ;; b. You have the right to a representative during the EEO complaint process, including at EEO counseling. You may select anyone to represent you as long as their position with VA
69 ;;*would not represent a conflict of interest. I cannot be your representative.
70 ;;
71 ;; c. If you are a member of the bargaining unit, you may have the right to file a grievance on this matter. If you wish to do so, contact the union. You should know, however, that you may not file both an EEO complaint and a grievance.
72 ;;* Whichever you file first, (a formal complaint or a step 1 grievance) will be considered your election to proceed in that forum.
73 ;;
74 ;;***
Note: See TracBrowser for help on using the repository browser.