source: WorldVistAEHR/trunk/r/EEO_COMPLAINT_TRACKING-EEO/EEO0210.m@ 1800

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

initial load of WorldVistAEHR
File size: 4.3 KB
Line 
1EEO0210 ;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)
5EN ;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
12BLANK ;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
17START ;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
45EXIT ;Kills variables and returns to entry
46 D KILL,^%ZISC K EEOSEC,EEOQ,^TMP("EEOJ",$J)
47 Q
48HEAD ;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
53FOOT ;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
59KILL ;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
63BACK 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
Note: See TracBrowser for help on using the repository browser.