EEOEINP ;HISC/JWR - DETERMINES THE PROPER SEQUENCE OF DATES ENTERED FOR CERTAIN FIELDS ;09/09/93 13:35
Source file <EEOEINP.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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.
|
|
| ;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
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(785 | DD+1 |
| ^EEO(785 - [#785] | GLOBE+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D0 | GLOBE+1 |
| >> DG( | DG+1 |
| >> E3 | PRINT+2*, PRINT+3* |
| >> EEE | EEOEINP+4*, EEOEINP+5* |
| >> EEO("B" | QUIT+2! |
| EEOA | DG+1*, GLOBE+1, QUIT+2! |
| EEOB | DG+1*, GLOBE+3, GLOBE+4, SEQ+1, QUIT+2!, REV+1 |
| EEOO | QUIT+2! |
| EEOO( | DD+1*, DG+1, GLOBE+2*, GLOBE+4*, LIST+3, LIST+4, OOPS+1 |
| EEOO1 | LIST+2*, LIST+3, LIST+4, QUIT+2! |
| EEOO2 | EEOEINP+3*, BAD+3*, PRINT+1, PRINT+2, QUIT+1, QUIT+2!, OOPS+2* |
| EEOO3 | EEOEINP+3*, BAD+3*, PRINT+1, PRINT+3, QUIT+1, QUIT+2!, OOPS+2* |
| EEOOE | QUIT+2! |
| EEOOE( | DD+1*, LIST+2, LIST+3, LIST+4, QUIT+1 |
| EEOR | DD+1*, QUIT+2! |
| EEOREV | EEOEINP+5, QUIT+2! |
| EEOS | EEOEINP+3, SEQ+3, SEQ+4, SEQ+5, SEQ+6, BAD+3, QUIT+1, QUIT+2!, REV+3, REV+4 , REV+5, REV+6, OOPS+2 |
| EEOSCR | QUIT+2! |
| EEOSEQ | EEOEINP+4, QUIT+2! |
| EEOT | GLOBE+1*, GLOBE+3, GLOBE+4, SEQ+1, QUIT+2!, REV+1 |
| EEOX | LIST+1*, LIST+2, QUIT+2! |
| EO | EEOEINP+3*, EEOEINP+4*, EEOEINP+5*, DD+1, DG+1, GLOBE+2, GLOBE+4, SEQ+3, SEQ+4, SEQ+5 , SEQ+6, BAD+3, QUIT+2!, REV+3, REV+4, REV+5, REV+6, OOPS+1, OOPS+2 |
| >> EO1 | PRINT+2*, PRINT+3*, LIST+2 |
| EOO | DG+1!*, GLOBE+2*, GLOBE+3, GLOBE+4, SEQ+2, SEQ+3, SEQ+4, SEQ+5, SEQ+6, BAD+1 , QUIT+2!, REV+2, REV+3, REV+4, REV+5, REV+6 |
| >> EOO1 | SEQ+1*, SEQ+2, SEQ+4, SEQ+6, BAD+1, REV+1*, REV+2, REV+4, REV+6 |
| U | EEOEINP+4, EEOEINP+5, DD+1, GLOBE+2, GLOBE+3, GLOBE+4, SEQ+1, LIST+2, LIST+3, LIST+4 , REV+1, OOPS+1 |
| >> X | SEQ+3, SEQ+4, SEQ+5, SEQ+6, QUIT+1, REV+3, REV+4, REV+5, REV+6 |
| >> Y | GLOBE+4*, QUIT+1* |
