evn.pas

The HL7 engine includes a basic unit (hl7.pas) and additional units
that support high-level functionality like MSH or OBR segments.

The unit evn.pas provides the following data structures and functions:

const
  EVN_ID = 'EVN';

type
  tEVN = record
  evtTypeCode: char;
  recDateTime, plannedDateTime: tDTM;
  reasonCode: tCWE;
  opID: tXCN;
  evtOccurred: tDTM;
  evtFacility: tHD;
end;

function EVN_Segment(message: THL7Message): THL7Segment;

procedure GetEVN(message: THL7Message; out EVNRecord: tEVN);
procedure GetEVN(message: THL7Message; out evtTypeCode: char; out
recDateTime, plannedDateTime: tDTM; out reasonCode: tCWE; out
opID: tXCN; out evtOccurred: tDTM; out evtFacility: tHD);

procedure SetEVN(message: THL7Message; aSegment: THL7Segment);
procedure SetEVN(message: THL7message; EVNRecord: tEVN);
procedure SetEVN(message: THL7Message; evtTypeCode: char;
recDateTime, plannedDateTime: tDTM; reasonCode: tCWE; opID: tXCN;
evtOccurred: tDTM; evtFacility: tHD);

procedure ClearEVN(var EVNRecord: tEVN);

---

Detailled information is available in the full HL7 Engine Documentation (PDF download).