Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: EEO0210

Package: EEO Complaint Tracking

Routine: EEO0210


Information

EEO0210 ;HISC/JWR - GENERATES EEO COUNSELORS COMPLAINT INTAKE FORM (0210) ;Apr 20, 1995

Source Information

Source file <EEO0210.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;The entry point for each additional Complaint
BLANK ;Gathers complaint information and sets up print variables
START ;Opens the device and prints the report
EXIT ;Kills variables and returns to entry
HEAD ;Writes the Header of Form 0210
FOOT ;Writes the footer block of Form 0210
KILL ;Kills variables for Complaint Intake Form (0210)
BACK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"YOUR DUZ (user number) IS NOT DEFINED CONTACT IRM",!!
  • Line Location: EEO0210+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+1
Function Call: WRITE
  • Prompt: " 2.Complainant's Service or Department",$J(OE,7)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,OE," ",EEONA,$J(OE,33-$L(EEONA))," ",EEOSE,$J(OE,40-$L(EEOSE)),!,OE,EO,OE
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,OE,"3.Complainant's Job Title/Grade",OE," DT of Initial Contact",OE," DT Final Interview ",OE
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,OE," ",EEOJO,$J(OE,31-$L(EEOJO))," ",EEOIN,$J(OE,18-$L(EEOIN))," ",EEOFI,$J(OE,19-$L(EEOFI))
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,OE," ",EEOPO,$J(OE,31-$L(EEOPO)),$J(OE,23),$J(OE,24)
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,OE,EO,OE,!,OE,"6.Basis of Complaint",$J(OE,59)
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,OE,$J(OE,40),$J(OE,39)
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,OE,EO,OE,!,OE,"7.Issue of Complainant",$J(OE,57),!,OE,EO,OE
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,OE," Issue ",OE,"Date Occurred|| Issue ",OE,"Date Occurred|"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,OE,$J(OE,25),$J("||",15),$J(OE,25),$J(OE,14)
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !,OE,EO,OE
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,OE,"9.Corrective Action (what resolution are you seeking)",$J(OE,26)
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !,OE,$J(OE,79)
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,OE,EO,OE
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !,OE,"10.Narrative Information (list names, documents, and records) |"
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,OE,EO,OE
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !,OE,"11.Is The Complainant Represented |12.Name and Address of Representative |"
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !,OE,$J(OE,37),$J(OE,42)
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !,OE,$J(OE,37)," ",EEORE,$J(OE,37-$L(EEORE))
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,OE,$J(OE,37)," ",EEOCI," ",EEOST," ",EEOZI,$J(OE,35-EOI)
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !,OE,EO,OE
  • Line Location: START+24
Function Call: WRITE
  • Prompt: " ",EO,!,OE,"VA Department of Veterans Affairs",OE," EEO COUNSELOR'S REPORT: COMPLAINT INTAKE ",OE,!,OE,EO,OE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,OE,"1.Name of Complainant ",$J(OE,10)
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,OE,EO,OE
  • Line Location: FOOT+1
Function Call: WRITE
  • Prompt: !,OE,"15.Typed Name and Signature of EEO Counselor |16.Date |Control# |"
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: !,OE," ",EEONAME,$J(OE,49-$L(EEONAME)),$J(OE,19),$J(OE,10)
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: !,OE," ",EEOTITL,$J(OE,49-$L(EEOTITL)),$J(EEODT,12)," ",$J("|"_EEOCT,9)," ",OE,!,OE,EO,OE
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: !,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 |"
  • Line Location: BACK+0
Function Call: WRITE
  • Prompt: !,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
  • Line Location: BACK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^EEO(785 - [#785] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call