EEO0210 ;HISC/JWR - GENERATES EEO COUNSELORS COMPLAINT INTAKE FORM (0210) ;Apr 20, 1995
;;2.0;EEO Complaint Tracking;**1,2**;Apr 27, 1995
I '$D(DUZ) W !,"YOUR DUZ (user number) IS NOT DEFINED CONTACT IRM",!! Q
S EEOVA=$G(^VA(200,DUZ,20)),EEONAME=$P(EEOVA,U,2),EEOTITL=$P(EEOVA,U,3)
EN ;The entry point for each additional Complaint
K EEOQ D ^EEOEOSE,HOME^%ZIS W !!! S EEOII=IOS,EEOQUIT=""
S EEOIOF="I IOS=EEOII D TERMIOF^EEO211"
S DIC("A")="Select Complainant: ",DIC="^EEO(785,",DIC(0)="AEMQZ",DIC("S")="I $$SCREEN^EEOEOSE(Y)"
S:$G(EEOCOUNS)>0 DIC("S")="I $P($G(^EEO(785,Y,""SEC"")),U)=DUZ"
D ^DIC I Y'>1 D EXIT Q
S DA=+Y I DA'>0 D EX1^EEO211 Q
BLANK ;Gathers complaint information and sets up print variables
D GATHER^EEO211
S %ZIS="Q" K IOP,ZTIO,ZTSAVE D ^%ZIS G:POP=1 EXIT
I $D(IO("Q")) S EEOQ=1,ZTRTN="START^EEO0210",ZTSAVE("EEO*")="",ZTSAVE("^TMP("_"""EEOJ"""_",")="",ZTDESC="EEO FORM 0210" D ^%ZTLOAD G EN
D START,EXIT G EN
START ;Opens the device and prints the report
U IO I IOS=EEOII W @IOF
S OE="|",$P(EO,"_",79)="" D HEAD W " 2.Complainant's Service or Department",$J(OE,7) S EEO("C")="",EEO("WP")=""
W !,OE," ",EEONA,$J(OE,33-$L(EEONA))," ",EEOSE,$J(OE,40-$L(EEOSE)),!,OE,EO,OE
W !,OE,"3.Complainant's Job Title/Grade",OE," DT of Initial Contact",OE," DT Final Interview ",OE
W !,OE," ",EEOJO,$J(OE,31-$L(EEOJO))," ",EEOIN,$J(OE,18-$L(EEOIN))," ",EEOFI,$J(OE,19-$L(EEOFI))
W !,OE," ",EEOPO,$J(OE,31-$L(EEOPO)),$J(OE,23),$J(OE,24)
W !,OE,EO,OE,!,OE,"6.Basis of Complaint",$J(OE,59)
W !,OE,$J(OE,40),$J(OE,39) D BOXB^EEO211 X EEOIOF Q:EEOQUIT=1
W !,OE,EO,OE,!,OE,"7.Issue of Complainant",$J(OE,57),!,OE,EO,OE
W !,OE," Issue ",OE,"Date Occurred|| Issue ",OE,"Date Occurred|"
W !,OE,$J(OE,25),$J("||",15),$J(OE,25),$J(OE,14) D BOX^EEO211
W !,OE,EO,OE
D BACK X EEOIOF Q:EEOQUIT=1
W !,OE,"9.Corrective Action (what resolution are you seeking)",$J(OE,26)
W !,OE,$J(OE,79) D BOXC^EEO211
W !,OE,EO,OE X EEOIOF Q:EEOQUIT=1
W !,OE,"10.Narrative Information (list names, documents, and records) |" D WPB^EEO211 X EEOIOF Q:EEOQUIT=1
W !,OE,EO,OE
W !,OE,"11.Is The Complainant Represented |12.Name and Address of Representative |"
W !,OE,$J(OE,37),$J(OE,42)
W !,OE,$J(OE,37)," ",EEORE,$J(OE,37-$L(EEORE))
W !,OE," ",$S(EEORE'="":"YES",1:"NO "),$J(OE,33)," ",EEOSTR,$J(OE,37-$L(EEOSTR)) S EOI=$L(EEOCI)+$L(EEOST)+$L(EEOZI)
W !,OE,$J(OE,37)," ",EEOCI," ",EEOST," ",EEOZI,$J(OE,35-EOI)
W !,OE,EO,OE
X EEOIOF Q:EEOQUIT=1 W !,OE,"13.Has the Complainant Filed a Union Grievance: "," ",$S(EEOUN'="":"[X] YES [ ] NO",1:"[ ] YES [X] NO")," |"
W !,OE,"14.Has the Complainant Filed an MSPB Appeal: "," ",$S(EEOMS'="":" [X] YES [ ] NO",1:" [ ] YES [X] NO")," |"
D FOOT D:$G(EEO("WP"))=1 LEND^EEO211
EXIT ;Kills variables and returns to entry
D KILL,^%ZISC K EEOSEC,EEOQ,^TMP("EEOJ",$J)
Q
HEAD ;Writes the Header of Form 0210
X EEOIOF Q:EEOQUIT=1 W:$D(IO("S")) !
W " ",EO,!,OE,"VA Department of Veterans Affairs",OE," EEO COUNSELOR'S REPORT: COMPLAINT INTAKE ",OE,!,OE,EO,OE
S BOX="[ ]" W !,OE,"1.Name of Complainant ",$J(OE,10)
Q
W !,OE,EO,OE X EEOIOF Q:EEOQUIT=1
W !,OE,"15.Typed Name and Signature of EEO Counselor |16.Date |Control# |"
W !,OE," ",EEONAME,$J(OE,49-$L(EEONAME)),$J(OE,19),$J(OE,10)
W !,OE," ",EEOTITL,$J(OE,49-$L(EEOTITL)),$J(EEODT,12)," ",$J("|"_EEOCT,9)," ",OE,!,OE,EO,OE
Q
KILL ;Kills variables for Complaint Intake Form (0210)
K BOX,DIR,EEO,EEOCI,EEOCT,EEODT,EEOFI,EEOIN,EEOJO,EEOMS,EEONA,EEONAME,EEOPO,EEORE,EEOSE,EEOSEC,EEOST,EEOSTR,EEOTITL,EEOUN,EEOZI,EO,EOI,OE,CN,CNT,CNZ,CT,CX,EEO1,EEO1J,EEO1L,EEO2J,EEOCE,EEOCI,EEOCO,EEOCT,EEODT,EEOFI,EEOH,EEOIN
K EEOJO,EEOMS,EEONA,EEONAME,EEOPH,EEOPO,EEORE,EEOSE,EEOST,EEOSTR,EEOTITL,EEOUN,EEOVA,EEOZI,EN,EO,EOC,EOE,EOE2,EOI,CO,OE,EEOD,EEOII,EEOIOF,EEOQUIT,EEOCAS,ECN,EEOFIL,NO
Q
BACK X EEOIOF Q:EEOQUIT=1 W !,OE,"8.BACKGROUND INFORMATION (In section 10 of this form summarize the circum |",!,OE,"stances which led up to the event(s) in dispute. If the date of the event |" X EEOIOF Q:EEOQUIT=1
W !,OE,"was more than 45 calendar days before initial contact with you, also record |",!,OE,"the complainant's explanation for his/her untimeliness.)",$J(OE,23),!,OE,EO,OE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEO0210 4433 printed Dec 13, 2024@01:50:48 Page 2
EEO0210 ;HISC/JWR - GENERATES EEO COUNSELORS COMPLAINT INTAKE FORM (0210) ;Apr 20, 1995
+1 ;;2.0;EEO Complaint Tracking;**1,2**;Apr 27, 1995
+2 IF '$DATA(DUZ)
WRITE !,"YOUR DUZ (user number) IS NOT DEFINED CONTACT IRM",!!
QUIT
+3 SET EEOVA=$GET(^VA(200,DUZ,20))
SET EEONAME=$PIECE(EEOVA,U,2)
SET EEOTITL=$PIECE(EEOVA,U,3)
EN ;The entry point for each additional Complaint
+1 KILL EEOQ
DO ^EEOEOSE
DO HOME^%ZIS
WRITE !!!
SET EEOII=IOS
SET EEOQUIT=""
+2 SET EEOIOF="I IOS=EEOII D TERMIOF^EEO211"
+3 SET DIC("A")="Select Complainant: "
SET DIC="^EEO(785,"
SET DIC(0)="AEMQZ"
SET DIC("S")="I $$SCREEN^EEOEOSE(Y)"
+4 if $GET(EEOCOUNS)>0
SET DIC("S")="I $P($G(^EEO(785,Y,""SEC"")),U)=DUZ"
+5 DO ^DIC
IF Y'>1
DO EXIT
QUIT
+6 SET DA=+Y
IF DA'>0
DO EX1^EEO211
QUIT
BLANK ;Gathers complaint information and sets up print variables
+1 DO GATHER^EEO211
+2 SET %ZIS="Q"
KILL IOP,ZTIO,ZTSAVE
DO ^%ZIS
if POP=1
GOTO EXIT
+3 IF $DATA(IO("Q"))
SET EEOQ=1
SET ZTRTN="START^EEO0210"
SET ZTSAVE("EEO*")=""
SET ZTSAVE("^TMP("_"""EEOJ"""_",")=""
SET ZTDESC="EEO FORM 0210"
DO ^%ZTLOAD
GOTO EN
+4 DO START
DO EXIT
GOTO EN
START ;Opens the device and prints the report
+1 USE IO
IF IOS=EEOII
WRITE @IOF
+2 SET OE="|"
SET $PIECE(EO,"_",79)=""
DO HEAD
WRITE " 2.Complainant's Service or Department",$JUSTIFY(OE,7)
SET EEO("C")=""
SET EEO("WP")=""
+3 WRITE !,OE," ",EEONA,$JUSTIFY(OE,33-$LENGTH(EEONA))," ",EEOSE,$JUSTIFY(OE,40-$LENGTH(EEOSE)),!,OE,EO,OE
+4 WRITE !,OE,"3.Complainant's Job Title/Grade",OE," DT of Initial Contact",OE," DT Final Interview ",OE
+5 WRITE !,OE," ",EEOJO,$JUSTIFY(OE,31-$LENGTH(EEOJO))," ",EEOIN,$JUSTIFY(OE,18-$LENGTH(EEOIN))," ",EEOFI,$JUSTIFY(OE,19-$LENGTH(EEOFI))
+6 WRITE !,OE," ",EEOPO,$JUSTIFY(OE,31-$LENGTH(EEOPO)),$JUSTIFY(OE,23),$JUSTIFY(OE,24)
+7 WRITE !,OE,EO,OE,!,OE,"6.Basis of Complaint",$JUSTIFY(OE,59)
+8 WRITE !,OE,$JUSTIFY(OE,40),$JUSTIFY(OE,39)
DO BOXB^EEO211
XECUTE EEOIOF
if EEOQUIT=1
QUIT
+9 WRITE !,OE,EO,OE,!,OE,"7.Issue of Complainant",$JUSTIFY(OE,57),!,OE,EO,OE
+10 WRITE !,OE," Issue ",OE,"Date Occurred|| Issue ",OE,"Date Occurred|"
+11 WRITE !,OE,$JUSTIFY(OE,25),$JUSTIFY("||",15),$JUSTIFY(OE,25),$JUSTIFY(OE,14)
DO BOX^EEO211
+12 WRITE !,OE,EO,OE
+13 DO BACK
XECUTE EEOIOF
if EEOQUIT=1
QUIT
+14 WRITE !,OE,"9.Corrective Action (what resolution are you seeking)",$JUSTIFY(OE,26)
+15 WRITE !,OE,$JUSTIFY(OE,79)
DO BOXC^EEO211
+16 WRITE !,OE,EO,OE
XECUTE EEOIOF
if EEOQUIT=1
QUIT
+17 WRITE !,OE,"10.Narrative Information (list names, documents, and records) |"
DO WPB^EEO211
XECUTE EEOIOF
if EEOQUIT=1
QUIT
+18 WRITE !,OE,EO,OE
+19 WRITE !,OE,"11.Is The Complainant Represented |12.Name and Address of Representative |"
+20 WRITE !,OE,$JUSTIFY(OE,37),$JUSTIFY(OE,42)
+21 WRITE !,OE,$JUSTIFY(OE,37)," ",EEORE,$JUSTIFY(OE,37-$LENGTH(EEORE))
+22 WRITE !,OE," ",$SELECT(EEORE'="":"YES",1:"NO "),$JUSTIFY(OE,33)," ",EEOSTR,$JUSTIFY(OE,37-$LENGTH(EEOSTR))
SET EOI=$LENGTH(EEOCI)+$LENGTH(EEOST)+$LENGTH(EEOZI)
+23 WRITE !,OE,$JUSTIFY(OE,37)," ",EEOCI," ",EEOST," ",EEOZI,$JUSTIFY(OE,35-EOI)
+24 WRITE !,OE,EO,OE
+25 XECUTE EEOIOF
if EEOQUIT=1
QUIT
WRITE !,OE,"13.Has the Complainant Filed a Union Grievance: "," ",$SELECT(EEOUN'="":"[X] YES [ ] NO",1:"[ ] YES [X] NO")," |"
+26 WRITE !,OE,"14.Has the Complainant Filed an MSPB Appeal: "," ",$SELECT(EEOMS'="":" [X] YES [ ] NO",1:" [ ] YES [X] NO")," |"
+27 DO FOOT
if $GET(EEO("WP"))=1
DO LEND^EEO211
EXIT ;Kills variables and returns to entry
+1 DO KILL
DO ^%ZISC
KILL EEOSEC,EEOQ,^TMP("EEOJ",$JOB)
+2 QUIT
HEAD ;Writes the Header of Form 0210
+1 XECUTE EEOIOF
if EEOQUIT=1
QUIT
if $DATA(IO("S"))
WRITE !
+2 WRITE " ",EO,!,OE,"VA Department of Veterans Affairs",OE," EEO COUNSELOR'S REPORT: COMPLAINT INTAKE ",OE,!,OE,EO,OE
+3 SET BOX="[ ]"
WRITE !,OE,"1.Name of Complainant ",$JUSTIFY(OE,10)
+4 QUIT
+1 WRITE !,OE,EO,OE
XECUTE EEOIOF
if EEOQUIT=1
QUIT
+2 WRITE !,OE,"15.Typed Name and Signature of EEO Counselor |16.Date |Control# |"
+3 WRITE !,OE," ",EEONAME,$JUSTIFY(OE,49-$LENGTH(EEONAME)),$JUSTIFY(OE,19),$JUSTIFY(OE,10)
+4 WRITE !,OE," ",EEOTITL,$JUSTIFY(OE,49-$LENGTH(EEOTITL)),$JUSTIFY(EEODT,12)," ",$JUSTIFY("|"_EEOCT,9)," ",OE,!,OE,EO,OE
+5 QUIT
KILL ;Kills variables for Complaint Intake Form (0210)
+1 KILL BOX,DIR,EEO,EEOCI,EEOCT,EEODT,EEOFI,EEOIN,EEOJO,EEOMS,EEONA,EEONAME,EEOPO,EEORE,EEOSE,EEOSEC,EEOST,EEOSTR,EEOTITL,EEOUN,EEOZI,EO,EOI,OE,CN,CNT,CNZ,CT,CX,EEO1,EEO1J,EEO1L,EEO2J,EEOCE,EEOCI,EEOCO,EEOCT,EEODT,EEOFI,EEOH,EEOIN
+2 KILL EEOJO,EEOMS,EEONA,EEONAME,EEOPH,EEOPO,EEORE,EEOSE,EEOST,EEOSTR,EEOTITL,EEOUN,EEOVA,EEOZI,EN,EO,EOC,EOE,EOE2,EOI,CO,OE,EEOD,EEOII,EEOIOF,EEOQUIT,EEOCAS,ECN,EEOFIL,NO
+3 QUIT
BACK XECUTE EEOIOF
if EEOQUIT=1
QUIT
WRITE !,OE,"8.BACKGROUND INFORMATION (In section 10 of this form summarize the circum |",!,OE,"stances which led up to the event(s) in dispute. If the date of the event |"
XECUTE EEOIOF
if EEOQUIT=1
QUIT
+1 WRITE !,OE,"was more than 45 calendar days before initial contact with you, also record |",!,OE,"the complainant's explanation for his/her untimeliness.)",$JUSTIFY(OE,23),!,OE,EO,OE
