Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
EEO Complaint Tracking 2 (BOX,BOXB,BOXC,EX1,GATHER,LEND,WPB)^EEO211  ^EEOEOSE  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
EEO Complaint Tracking 2 EEO FORM 0210  EEO211  

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

External References

Name Field # of Occurrence
^%ZIS BLANK+2
HOME^%ZIS EN+1
^%ZISC EXIT+1
^%ZTLOAD BLANK+3
^DIC EN+5
BOX^EEO211 START+11
BOXB^EEO211 START+8
BOXC^EEO211 START+15
EX1^EEO211 EN+6
GATHER^EEO211 BLANK+1
LEND^EEO211 START+27
WPB^EEO211 START+17
^EEOEOSE EN+1

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
Routine Call
  • %ZIS
  • Line Location:
    • BLANK+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+1
Routine Call
  • DIC
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^EEO(785 - [#785] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("EEOJ" EXIT+1!
^VA(200 - [#200] EEO0210+3

Label References

Name Line Occurrences
BACK START+13
EN BLANK+3, BLANK+4
EXIT EN+5, BLANK+2, BLANK+4
FOOT START+27
HEAD START+2
KILL EXIT+1
START BLANK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS BLANK+2*
BOX HEAD+3*, KILL+1!
CN KILL+1!
CNT KILL+1!
CNZ KILL+1!
CO KILL+2!
CT KILL+1!
CX KILL+1!
>> DA EN+6*
>> DIC EN+3*
>> DIC("A" EN+3*
>> DIC("S" EN+3*, EN+4*
>> DIC(0 EN+3*
DIR KILL+1!
DUZ EEO0210+2, EEO0210+3
ECN KILL+2!
EEO KILL+1!
EEO("C" START+2*
EEO("WP" START+2*, START+27
EEO1 KILL+1!
EEO1J KILL+1!
EEO1L KILL+1!
EEO2J KILL+1!
EEOCAS KILL+2!
EEOCE KILL+1!
EEOCI START+22, START+23, KILL+1!
EEOCO KILL+1!
>> EEOCOUNS EN+4
EEOCT FOOT+4, KILL+1!
EEOD KILL+2!
EEODT FOOT+4, KILL+1!
EEOFI START+5, KILL+1!
EEOFIL KILL+2!
EEOH KILL+1!
EEOII EN+1*, START+1, KILL+2!
EEOIN START+5, KILL+1!
EEOIOF EN+2*, START+8, START+13, START+16, START+17, START+25, HEAD+1, FOOT+1, KILL+2!, BACK
EEOJO START+5, KILL+1!, KILL+2!
EEOMS START+26, KILL+1!, KILL+2!
EEONA START+3, KILL+1!, KILL+2!
EEONAME EEO0210+3*, FOOT+3, KILL+1!, KILL+2!
EEOPH KILL+2!
EEOPO START+6, KILL+1!, KILL+2!
EEOQ EN+1!, BLANK+3*, EXIT+1!
EEOQUIT EN+1*, START+8, START+13, START+16, START+17, START+25, HEAD+1, FOOT+1, KILL+2!, BACK
EEORE START+21, START+22, KILL+1!, KILL+2!
EEOSE START+3, KILL+1!, KILL+2!
EEOSEC EXIT+1!, KILL+1!
EEOST START+22, START+23, KILL+1!, KILL+2!
EEOSTR START+22, KILL+1!, KILL+2!
EEOTITL EEO0210+3*, FOOT+4, KILL+1!, KILL+2!
EEOUN START+25, KILL+1!, KILL+2!
EEOVA EEO0210+3*, KILL+2!
EEOZI START+22, START+23, KILL+1!, KILL+2!
EN KILL+2!
EO START+2*, START+3, START+7, START+9, START+12, START+16, START+18, START+24, HEAD+2, FOOT+1
FOOT+4, KILL+1!, KILL+2!, BACK+1
EOC KILL+2!
EOE KILL+2!
EOE2 KILL+2!
EOI START+22*, START+23, KILL+1!, KILL+2!
IO START+1
>> IO("Q" BLANK+3
>> IO("S" HEAD+1
IOF START+1
IOP BLANK+2!
>> IOS EN+1, START+1
NO KILL+2!
OE START+2*, START+3, START+4, START+5, START+6, START+7, START+8, START+9, START+10, START+11
START+12, START+14, START+15, START+16, START+17, START+18, START+19, START+20, START+21, START+22
START+23, START+24, START+25, START+26, HEAD+2, HEAD+3, FOOT+1, FOOT+2, FOOT+3, FOOT+4
KILL+1!, KILL+2!, BACKBACK+1
>> POP BLANK+2
U EEO0210+3
>> Y EN+5, EN+6
>> ZTDESC BLANK+3*
ZTIO BLANK+2!
>> ZTRTN BLANK+3*
ZTSAVE BLANK+2!
ZTSAVE("EEO*" BLANK+3*
ZTSAVE("^TMP(" BLANK+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All