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: EEOEOE2

Package: EEO Complaint Tracking

Routine: EEOEOE2


Information

EEOEOE2 ;HISC/JWR - Station Edit routine ;11/9/92 11:12

Source Information

Source file <EEOEOE2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
EEO Complaint Tracking 2 (,NEW)^EEOEEDIE  (,CASENO)^EEOEOSE  
VA FileMan 2 ^DIE  ^DIR  

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: 3

Package Total Caller Graph
EEO Complaint Tracking 3 EEO ENTER/EDIT F.C.  EEO STATION INVESTIGATION  EEOENF  

Entry Points

Name Comments DBIA/ICR reference
SEC ;Sets up security variables
STATION ;Enter/edit station EEO information.
ENT ;I $P(Y,U,3)=1,$D(DUZ) S EEONAME=$P($G(^VA(200,DUZ,0)),U),(EEOY,DA)=+Y,DR="14///"_EEONAME_";98///"_DUZ,DIC(0)="L" D ^DIE S Y=EEOY
ELK ;Unlocks edited file and returns to selection prompt
DR1 ;DR for Enter/Edit Formal Complaint Info
DR2 ;DR for Enter/Edit Investigator Information
DR3
MSG ;Comes here if case closed
DMSG
FORMAL ;Entry for counselor to change status of complaint to formal
SAVE

External References

Name Field # of Occurrence
^DIE FORMAL+6
^DIR FORMAL+5
^EEOEEDIE ENT+6, ENT+7
NEW^EEOEEDIE STATION+6
^EEOEOSE SEC+1
CASENO^EEOEOSE ENT+3, ENT+7, FORMAL+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,EEOYQ
  • Line Location: STATION+5
Function Call: WRITE
  • Prompt: *7,!!,"ANOTHER PERSON IS EDITING THIS RECORD"
  • Line Location: ENT+2
Function Call: WRITE
  • Prompt: !!,?3,*7,"***** This case has been closed. Editing is not allowed. ***** "
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!,?3,*7,"***** This case has been deleted *****",!
  • Line Location: DMSG+0
Function Call: WRITE
  • Prompt: !!!
  • Line Location: FORMAL+3
Routine Call
  • DIE
  • Line Location:
    • FORMAL+6
Routine Call
  • DIR
  • Line Location:
    • FORMAL+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)
^EEO(785 - [#785] ENT+2, ENT+4, ENT+5, ELK+1, FORMAL+2, SAVESAVE+1

Label References

Name Line Occurrences
DMSG ENT+5
DR1 ENT+7
DR2 ENT+6
ELK ENT+4, ENT+5, ENT+6, ENT+7
MSG ENT+4
STATION ENT+2, ELK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 FORMAL+2, FORMAL+6
DA STATION+6!, ENT+1!, ENT+2*!, ENT+4, ENT+5, FORMAL+6*, SAVESAVE+1
DIC STATION+3*, FORMAL+6*, FORMAL+7!
DIC("A" STATION+3*
DIC("S" STATION+2*
DIC(0 STATION+4*, ENT+2*, FORMAL+6*
DIE STATION+3*, FORMAL+6*, FORMAL+7!
DIR FORMAL+7!
DIR("A" FORMAL+3*, FORMAL+4*
DIR("B" FORMAL+5*
DIR(0 FORMAL+5*
DLAYGO STATION+3*, ENT+1!
DR ENT+1!, DR1+1*, DR2+1*, FORMAL+6*!, FORMAL+7!
DR(2 DR2+2*
DT SAVE+1
DUZ SAVE+1
EDA ENT+2*!, ELK+1
>> EDIT STATION+1*
>> EEOC( SAVE+1*
EEOC1 SAVE+1, SAVE+2!
EEOC2 SAVE*, SAVE+1, SAVE+2!
>> EEODIC(0 STATION+4*, ENT+2
EEOTYPE DR2+1!
>> EEOYI FORMAL+6
>> EEOYQ STATION+1*, STATION+5
>> EEOYSCR STATION+2*
>> FAIL SEC+1
U ENT+4, ENT+5, FORMAL+2, SAVE
>> XQY0 STATION+4, ENT+6, ENT+7
Y STATION+6!, ENT+1, ENT+2, FORMAL+6
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