- EEOERCR ;HISC/JWR - PREPARES LETTER OF RIGHTS AND RESPONSIBILITIES ;Apr 20, 1995
- ;;2.0;EEO Complaint Tracking;**1**;Apr 27, 1995
- REPORT ;Sets up general variables does complaint lookup
- S XQY0="" D ^EEOEOSE K EEOCOLM,EEOI1,EEOREV,EEONAME,EEORNM,EEOCOUN
- D HOME^%ZIS S EEOII=IOS
- 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
- DIC I X=""!(X="^") K DIC D EXIT Q
- G:Y<1 REPORT
- GATHER ;Gather specific complaint variables
- S EEOREV=EEONAME D REV S $P(EEORNM," ",30-$L(EEOREV)\2+13)=EEOREV
- S EEOSEL=2,EEOCNAME=$P($G(^EEO(785,DA,1)),U)
- I EEOCNAME'="" S:$D(^VA(200,EEOCNAME)) EEOCNAME=$P($G(^(EEOCNAME,0)),U)
- S:EEOCNAME>0 EEOCNAME=""
- 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
- S EEOCOP=X,EEOCON=0 K DIC
- S DIC="^VA(200,",DIC("A")="COUNSELOR: ",DIC("B")=EEOCNAME,DIC(0)="AEMQZ"
- 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
- S %ZIS="Q" K IOP,ZTIO,ZTSAVE D ^%ZIS G:POP=1 EXIT
- I $D(IO("Q")) S EEOQ=1,ZTRTN="START^EEOERCR",ZTSAVE("EEO*")="",ZTDESC=" " D ^%ZTLOAD D EXIT G REPORT
- D START G REPORT
- START ;Start of print
- U IO W:EEOII=IOS @IOF
- ;W:IO(0)=IO&($G(EEOQ)'>0) @IOF D
- S Y=DT D DD^%DT
- D TEXT1
- D ^EEOERCR1
- D IOF
- S EEOCON=EEOCON+1 K EEOI1 I EEOCON<EEOCOP W:IO=IO(0) @IOF G START
- D EXIT Q
- TXT ;Recognizes and formats text
- I IOSL>60 I $Y>60 W @IOF
- Q:EEOTX="****"
- I $E(EEOTX,1,3)[";;" S EEOFORM=$P(EEOTX,";;",2),EEOCOLM=$P(EEOFORM,U,2),$P(EEOI1," ",+EEOFORM)="",EEOI1=$G(EEOI1) Q
- I EEOTX["^^" S EEOTX=$P(EEOTX,"^^")_@$P(EEOTX,"^^",2)_$P(EEOTX,"^^",3)
- S:'$D(EEOCOLM) EEOCOLM=80 S:'$D(EEOI1) EEOI1=0
- S CNT=EEOCOLM F CNT=CNT:-1 Q:EEOTX="" D
- .I $E(EEOTX,1)="*" S CRT=EEOCOLM-EEOLTH-1 F CRT=CRT:-1 Q:$E(EEOTX,1)'="*"!(CRT<2) D
- ..I CRT>$L(EEOTX) W " ",$E(EEOTX,2,CRT+1) S (EEOTX,CRT)="" Q
- ..I $E(EEOTX,CRT)=" " W " ",$E(EEOTX,2,CRT) S EEOTX=$E(EEOTX,CRT+1,255),CNT=EEOCOLM Q
- ..I CRT=2 S EEOTX=$E(EEOTX,2,255) Q
- .Q:EEOTX=""
- .I $L(EEOTX)<EEOCOLM W !,EEOI1_EEOTX S EEOLTH=$L(EEOTX),EEOTX="" Q
- .I $E(EEOTX,CNT)=" " S EEOTX1=$E(EEOTX,1,CNT),EEOTX=$E(EEOTX,CNT+1,245),CNT=EEOCOLM W !,EEOI1_EEOTX1 Q
- Q
- IOF W:IO(0)'=IO @IOF Q
- EXIT K EEOSEL,EEORCN,EEOCON D EXIT^EEOEFIN Q
- REV ;Reverses order of file 200 name
- S EEOREV=$G(EEOREV),EEOREV=$P(EEOREV,",",2)_" "_$P(EEOREV,",")
- Q
- TEXT1 ;Writes text of the report
- F CT=1:1 S EEOTX=$E($T(TEXT+CT),4,255) Q:EEOTX="***" D TXT
- TEXT ;Formatted lines of test for the report
- ;;;;5^75
- ;;^^EEOCNAME^^ EEO COUNSELOR
- ;;
- ;;NOTICE OF EEO COMPLAINT RIGHTS AND RESPONSIBILITIES
- ;;
- ;;^^EEONAME^^
- ;;
- ;;
- ;;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.
- ;;
- ;;2. Those rights and responsibilities are:
- ;;
- ;; 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
- ;;*you choose to remain anonymous.
- ;;
- ;; 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
- ;;*would not represent a conflict of interest. I cannot be your representative.
- ;;
- ;; 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.
- ;;* Whichever you file first, (a formal complaint or a step 1 grievance) will be considered your election to proceed in that forum.
- ;;
- ;;***
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEOERCR 4067 printed Feb 18, 2025@23:17:31 Page 2
- EEOERCR ;HISC/JWR - PREPARES LETTER OF RIGHTS AND RESPONSIBILITIES ;Apr 20, 1995
- +1 ;;2.0;EEO Complaint Tracking;**1**;Apr 27, 1995
- REPORT ;Sets up general variables does complaint lookup
- +1 SET XQY0=""
- DO ^EEOEOSE
- KILL EEOCOLM,EEOI1,EEOREV,EEONAME,EEORNM,EEOCOUN
- +2 DO HOME^%ZIS
- SET EEOII=IOS
- +3 SET DIC("A")="Select Complainant: "
- SET DIC="^EEO(785,"
- SET DIC(0)="AEMQZ"
- SET DIC("S")="I $$SCREEN^EEOEOSE(Y) I +$G(^EEO(785,+Y,""SEC""))=DUZ"
- DO ^DIC
- IF Y>0
- SET DA=+Y
- SET EEONAME=$PIECE(^EEO(785,DA,0),U)
- GOTO GATHER
- DIC IF X=""!(X="^")
- KILL DIC
- DO EXIT
- QUIT
- +1 if Y<1
- GOTO REPORT
- GATHER ;Gather specific complaint variables
- +1 SET EEOREV=EEONAME
- DO REV
- SET $PIECE(EEORNM," ",30-$LENGTH(EEOREV)\2+13)=EEOREV
- +2 SET EEOSEL=2
- SET EEOCNAME=$PIECE($GET(^EEO(785,DA,1)),U)
- +3 IF EEOCNAME'=""
- if $DATA(^VA(200,EEOCNAME))
- SET EEOCNAME=$PIECE($GET(^(EEOCNAME,0)),U)
- +4 if EEOCNAME>0
- SET EEOCNAME=""
- +5 SET DIR(0)="NAO^1:4"
- SET DIR("A")="Number of Copies: "
- SET DIR("B")=1
- SET DIR("?")="Enter the number of copies of this report that are needed."
- DO ^DIR
- +6 SET EEOCOP=X
- SET EEOCON=0
- KILL DIC
- +7 SET DIC="^VA(200,"
- SET DIC("A")="COUNSELOR: "
- SET DIC("B")=EEOCNAME
- SET DIC(0)="AEMQZ"
- +8 DO ^DIC
- if Y<1&(X'="")
- GOTO REPORT
- if $PIECE(Y,U,2)'=""
- SET EEOCNAME=$PIECE(Y,U,2)
- SET EEOCNAME=$SELECT(EEOCNAME'="":EEOCNAME,1:"____________________")
- SET EEOREV=EEOCNAME
- DO REV
- SET EEORCN=EEOREV
- +9 SET %ZIS="Q"
- KILL IOP,ZTIO,ZTSAVE
- DO ^%ZIS
- if POP=1
- GOTO EXIT
- +10 IF $DATA(IO("Q"))
- SET EEOQ=1
- SET ZTRTN="START^EEOERCR"
- SET ZTSAVE("EEO*")=""
- SET ZTDESC=" "
- DO ^%ZTLOAD
- DO EXIT
- GOTO REPORT
- +11 DO START
- GOTO REPORT
- START ;Start of print
- +1 USE IO
- if EEOII=IOS
- WRITE @IOF
- +2 ;W:IO(0)=IO&($G(EEOQ)'>0) @IOF D
- +3 SET Y=DT
- DO DD^%DT
- +4 DO TEXT1
- +5 DO ^EEOERCR1
- +6 DO IOF
- +7 SET EEOCON=EEOCON+1
- KILL EEOI1
- IF EEOCON<EEOCOP
- if IO=IO(0)
- WRITE @IOF
- GOTO START
- +8 DO EXIT
- QUIT
- TXT ;Recognizes and formats text
- +1 IF IOSL>60
- IF $Y>60
- WRITE @IOF
- +2 if EEOTX="****"
- QUIT
- +3 IF $EXTRACT(EEOTX,1,3)[";;"
- SET EEOFORM=$PIECE(EEOTX,";;",2)
- SET EEOCOLM=$PIECE(EEOFORM,U,2)
- SET $PIECE(EEOI1," ",+EEOFORM)=""
- SET EEOI1=$GET(EEOI1)
- QUIT
- +4 IF EEOTX["^^"
- SET EEOTX=$PIECE(EEOTX,"^^")_@$PIECE(EEOTX,"^^",2)_$PIECE(EEOTX,"^^",3)
- +5 if '$DATA(EEOCOLM)
- SET EEOCOLM=80
- if '$DATA(EEOI1)
- SET EEOI1=0
- +6 SET CNT=EEOCOLM
- FOR CNT=CNT:-1
- if EEOTX=""
- QUIT
- Begin DoDot:1
- +7 IF $EXTRACT(EEOTX,1)="*"
- SET CRT=EEOCOLM-EEOLTH-1
- FOR CRT=CRT:-1
- if $EXTRACT(EEOTX,1)'="*"!(CRT<2)
- QUIT
- Begin DoDot:2
- +8 IF CRT>$LENGTH(EEOTX)
- WRITE " ",$EXTRACT(EEOTX,2,CRT+1)
- SET (EEOTX,CRT)=""
- QUIT
- +9 IF $EXTRACT(EEOTX,CRT)=" "
- WRITE " ",$EXTRACT(EEOTX,2,CRT)
- SET EEOTX=$EXTRACT(EEOTX,CRT+1,255)
- SET CNT=EEOCOLM
- QUIT
- +10 IF CRT=2
- SET EEOTX=$EXTRACT(EEOTX,2,255)
- QUIT
- End DoDot:2
- +11 if EEOTX=""
- QUIT
- +12 IF $LENGTH(EEOTX)<EEOCOLM
- WRITE !,EEOI1_EEOTX
- SET EEOLTH=$LENGTH(EEOTX)
- SET EEOTX=""
- QUIT
- +13 IF $EXTRACT(EEOTX,CNT)=" "
- SET EEOTX1=$EXTRACT(EEOTX,1,CNT)
- SET EEOTX=$EXTRACT(EEOTX,CNT+1,245)
- SET CNT=EEOCOLM
- WRITE !,EEOI1_EEOTX1
- QUIT
- End DoDot:1
- +14 QUIT
- IOF if IO(0)'=IO
- WRITE @IOF
- QUIT
- EXIT KILL EEOSEL,EEORCN,EEOCON
- DO EXIT^EEOEFIN
- QUIT
- REV ;Reverses order of file 200 name
- +1 SET EEOREV=$GET(EEOREV)
- SET EEOREV=$PIECE(EEOREV,",",2)_" "_$PIECE(EEOREV,",")
- +2 QUIT
- TEXT1 ;Writes text of the report
- +1 FOR CT=1:1
- SET EEOTX=$EXTRACT($TEXT(TEXT+CT),4,255)
- if EEOTX="***"
- QUIT
- DO TXT
- TEXT ;Formatted lines of test for the report
- +1 ;;;;5^75
- +2 ;;^^EEOCNAME^^ EEO COUNSELOR
- +3 ;;
- +4 ;;NOTICE OF EEO COMPLAINT RIGHTS AND RESPONSIBILITIES
- +5 ;;
- +6 ;;^^EEONAME^^
- +7 ;;
- +8 ;;
- +9 ;;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.
- +10 ;;
- +11 ;;2. Those rights and responsibilities are:
- +12 ;;
- +13 ;; 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
- +14 ;;*you choose to remain anonymous.
- +15 ;;
- +16 ;; 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
- +17 ;;*would not represent a conflict of interest. I cannot be your representative.
- +18 ;;
- +19 ;; 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.
- +20 ;;* Whichever you file first, (a formal complaint or a step 1 grievance) will be considered your election to proceed in that forum.
- +21 ;;
- +22 ;;***