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

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

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

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