| 1 | EEO0210 ;HISC/JWR - GENERATES EEO COUNSELORS COMPLAINT INTAKE FORM (0210) ;Apr 20, 1995
|
|---|
| 2 | ;;2.0;EEO Complaint Tracking;**1,2**;Apr 27, 1995
|
|---|
| 3 | I '$D(DUZ) W !,"YOUR DUZ (user number) IS NOT DEFINED CONTACT IRM",!! Q
|
|---|
| 4 | S EEOVA=$G(^VA(200,DUZ,20)),EEONAME=$P(EEOVA,U,2),EEOTITL=$P(EEOVA,U,3)
|
|---|
| 5 | EN ;The entry point for each additional Complaint
|
|---|
| 6 | K EEOQ D ^EEOEOSE,HOME^%ZIS W !!! S EEOII=IOS,EEOQUIT=""
|
|---|
| 7 | S EEOIOF="I IOS=EEOII D TERMIOF^EEO211"
|
|---|
| 8 | S DIC("A")="Select Complainant: ",DIC="^EEO(785,",DIC(0)="AEMQZ",DIC("S")="I $$SCREEN^EEOEOSE(Y)"
|
|---|
| 9 | S:$G(EEOCOUNS)>0 DIC("S")="I $P($G(^EEO(785,Y,""SEC"")),U)=DUZ"
|
|---|
| 10 | D ^DIC I Y'>1 D EXIT Q
|
|---|
| 11 | S DA=+Y I DA'>0 D EX1^EEO211 Q
|
|---|
| 12 | BLANK ;Gathers complaint information and sets up print variables
|
|---|
| 13 | D GATHER^EEO211
|
|---|
| 14 | S %ZIS="Q" K IOP,ZTIO,ZTSAVE D ^%ZIS G:POP=1 EXIT
|
|---|
| 15 | I $D(IO("Q")) S EEOQ=1,ZTRTN="START^EEO0210",ZTSAVE("EEO*")="",ZTSAVE("^TMP("_"""EEOJ"""_",")="",ZTDESC="EEO FORM 0210" D ^%ZTLOAD G EN
|
|---|
| 16 | D START,EXIT G EN
|
|---|
| 17 | START ;Opens the device and prints the report
|
|---|
| 18 | U IO I IOS=EEOII W @IOF
|
|---|
| 19 | S OE="|",$P(EO,"_",79)="" D HEAD W " 2.Complainant's Service or Department",$J(OE,7) S EEO("C")="",EEO("WP")=""
|
|---|
| 20 | W !,OE," ",EEONA,$J(OE,33-$L(EEONA))," ",EEOSE,$J(OE,40-$L(EEOSE)),!,OE,EO,OE
|
|---|
| 21 | W !,OE,"3.Complainant's Job Title/Grade",OE," DT of Initial Contact",OE," DT Final Interview ",OE
|
|---|
| 22 | W !,OE," ",EEOJO,$J(OE,31-$L(EEOJO))," ",EEOIN,$J(OE,18-$L(EEOIN))," ",EEOFI,$J(OE,19-$L(EEOFI))
|
|---|
| 23 | W !,OE," ",EEOPO,$J(OE,31-$L(EEOPO)),$J(OE,23),$J(OE,24)
|
|---|
| 24 | W !,OE,EO,OE,!,OE,"6.Basis of Complaint",$J(OE,59)
|
|---|
| 25 | W !,OE,$J(OE,40),$J(OE,39) D BOXB^EEO211 X EEOIOF Q:EEOQUIT=1
|
|---|
| 26 | W !,OE,EO,OE,!,OE,"7.Issue of Complainant",$J(OE,57),!,OE,EO,OE
|
|---|
| 27 | W !,OE," Issue ",OE,"Date Occurred|| Issue ",OE,"Date Occurred|"
|
|---|
| 28 | W !,OE,$J(OE,25),$J("||",15),$J(OE,25),$J(OE,14) D BOX^EEO211
|
|---|
| 29 | W !,OE,EO,OE
|
|---|
| 30 | D BACK X EEOIOF Q:EEOQUIT=1
|
|---|
| 31 | W !,OE,"9.Corrective Action (what resolution are you seeking)",$J(OE,26)
|
|---|
| 32 | W !,OE,$J(OE,79) D BOXC^EEO211
|
|---|
| 33 | W !,OE,EO,OE X EEOIOF Q:EEOQUIT=1
|
|---|
| 34 | W !,OE,"10.Narrative Information (list names, documents, and records) |" D WPB^EEO211 X EEOIOF Q:EEOQUIT=1
|
|---|
| 35 | W !,OE,EO,OE
|
|---|
| 36 | W !,OE,"11.Is The Complainant Represented |12.Name and Address of Representative |"
|
|---|
| 37 | W !,OE,$J(OE,37),$J(OE,42)
|
|---|
| 38 | W !,OE,$J(OE,37)," ",EEORE,$J(OE,37-$L(EEORE))
|
|---|
| 39 | W !,OE," ",$S(EEORE'="":"YES",1:"NO "),$J(OE,33)," ",EEOSTR,$J(OE,37-$L(EEOSTR)) S EOI=$L(EEOCI)+$L(EEOST)+$L(EEOZI)
|
|---|
| 40 | W !,OE,$J(OE,37)," ",EEOCI," ",EEOST," ",EEOZI,$J(OE,35-EOI)
|
|---|
| 41 | W !,OE,EO,OE
|
|---|
| 42 | X EEOIOF Q:EEOQUIT=1 W !,OE,"13.Has the Complainant Filed a Union Grievance: "," ",$S(EEOUN'="":"[X] YES [ ] NO",1:"[ ] YES [X] NO")," |"
|
|---|
| 43 | W !,OE,"14.Has the Complainant Filed an MSPB Appeal: "," ",$S(EEOMS'="":" [X] YES [ ] NO",1:" [ ] YES [X] NO")," |"
|
|---|
| 44 | D FOOT D:$G(EEO("WP"))=1 LEND^EEO211
|
|---|
| 45 | EXIT ;Kills variables and returns to entry
|
|---|
| 46 | D KILL,^%ZISC K EEOSEC,EEOQ,^TMP("EEOJ",$J)
|
|---|
| 47 | Q
|
|---|
| 48 | HEAD ;Writes the Header of Form 0210
|
|---|
| 49 | X EEOIOF Q:EEOQUIT=1 W:$D(IO("S")) !
|
|---|
| 50 | W " ",EO,!,OE,"VA Department of Veterans Affairs",OE," EEO COUNSELOR'S REPORT: COMPLAINT INTAKE ",OE,!,OE,EO,OE
|
|---|
| 51 | S BOX="[ ]" W !,OE,"1.Name of Complainant ",$J(OE,10)
|
|---|
| 52 | Q
|
|---|
| 53 | FOOT ;Writes the footer block of Form 0210
|
|---|
| 54 | W !,OE,EO,OE X EEOIOF Q:EEOQUIT=1
|
|---|
| 55 | W !,OE,"15.Typed Name and Signature of EEO Counselor |16.Date |Control# |"
|
|---|
| 56 | W !,OE," ",EEONAME,$J(OE,49-$L(EEONAME)),$J(OE,19),$J(OE,10)
|
|---|
| 57 | W !,OE," ",EEOTITL,$J(OE,49-$L(EEOTITL)),$J(EEODT,12)," ",$J("|"_EEOCT,9)," ",OE,!,OE,EO,OE
|
|---|
| 58 | Q
|
|---|
| 59 | KILL ;Kills variables for Complaint Intake Form (0210)
|
|---|
| 60 | 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
|
|---|
| 61 | 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
|
|---|
| 62 | Q
|
|---|
| 63 | 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
|
|---|
| 64 | 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
|
|---|
