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
Print Page as PDF
Routine: EEOEINP

Package: EEO Complaint Tracking

Routine: EEOEINP


Information

EEOEINP ;HISC/JWR - DETERMINES THE PROPER SEQUENCE OF DATES ENTERED FOR CERTAIN FIELDS ;09/09/93 13:35

Source Information

Source file <EEOEINP.m>

Entry Points

Name Comments DBIA/ICR reference
DD ;Gathers data dictionary information for fields being evaluated
DG ;Gathers information from this edit session for the field being tested.
GLOBE ;Gathers data from the EEOA node of the record being evaluated
SEQ ;Test the date entered against the other dates it is dependent on
BAD ;Makes a string of fields not matching the correct date sequence.
PRINT ;Prints a list of dates that must occur either before or after the date entered in the edit session
LIST ;List the dates that are out of sequence
QUIT ;kills variables, quits
REV ;Comes here if Chronological sequence is different than field #'s order.
OOPS ;Checks for deleted records

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "??",!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"*** The following fields must occur after the date entered above: *** ",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"*** The following fields must be prior to the date entered above: ***",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !," * ",EEOOE(EEOO1)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !!,EEOOE(EEOS)_": ("_Y_")"
  • Line Location: QUIT+1
Info |  Source |  Entry Points |  Interaction Calls