TOrderDelayEvent = record
  EventType: Char;             // A=admit, T=transfer, D=discharge, C=current
  TheParent: TParentEvent;     // Parent Event
  EventIFN : Integer;          // Pointer to OE/RR EVENTS file (#100.5)
  EventName: String;           // Event name from OR/RR EVENTS file (#100.5)
  PtEventIFN: Integer;         // Patient event IFN ptr to #100.2
  Specialty: Integer;          // pointer to facility treating specialty file
  Effective: TFMDateTime;      // effective date/time (estimated start time)
  IsNewEvent: Boolean;         // is new event for an patient