Class TBSHL7Message

Unit

BSHL7Object

Declaration

type TBSHL7Message = class(TBSHL7Group)

Description

Base HL7 Message

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object
• TBSHL7Group
• TBSHL7Message

Overview

Methods

	constructor Create; overload; override;
	destructor Destroy; override;
	procedure Init; override;
	function IsValid:Boolean; override;
	function MessageType : BSString; virtual;
	function TriggerEvent : BSString; virtual;
	procedure LoadFromFile(const AFileName:BSString);
	procedure LoadFromStream(const AStream:TStream);
	procedure SaveToFile(const AFileName:BSString);
	procedure SaveToStream(const AStream:TStream);

Properties

	property SegmentSeparator: BSChar read GetSegmentSeparator write SetSegmentSeparator;
	property FieldSeparator : BSChar read GetFieldSeparator write SetFieldSeparator;
	property ComponentSeparator: BSChar read GetComponentSeparator write SetComponentSeparator;
	property RepetitionSeparator: BSChar read GetRepetitionSeparator write SetRepetitionSeparator;
	property SubcomponentSeparator: BSChar read GetSubcomponentSeparator write SetSubcomponentSeparator;
	property EscapeCharacter : BSChar read GetEscapeCharacter write SetEscapeCharacter;
	property Version : BSString read FVersion write FVersion;
	property AsHL7 : BSString read GetAsHL7 write SetAsHL7;
	property DefaultObx2Type: BSString read GetDefaultObx2Type write SetDefaultObx2Type;
	property DefaultMfe5Type: BSString read GetDefaultMfe5Type write SetDefaultMfe5Type;
	property AsXML : BSString read GetAsXML write SetAsXML;
	property OnXMLGetNodeName : TOnXMLGetNodeName read FOnXMLGetNodeName write FOnXMLGetNodeName;
	property ParserMessage: String read FParserMessage write FParserMessage;
	property ParserStatus: Boolean read FParserStatus write FParserStatus;
	property AddReqiredEmptyFields : Boolean read FAddReqiredEmptyFields write FAddReqiredEmptyFields;

Description

Methods

	constructor Create; overload; override;

	destructor Destroy; override;
constructor Create(const AMessageName, AVersion : BSString; AVendor : BSString='');overload; constructor Create(const AType : TBSHL7Definition); overload;

	procedure Init; override;

	function IsValid:Boolean; override;

	function MessageType : BSString; virtual;

	function TriggerEvent : BSString; virtual;

	procedure LoadFromFile(const AFileName:BSString);

	procedure LoadFromStream(const AStream:TStream);

	procedure SaveToFile(const AFileName:BSString);

	procedure SaveToStream(const AStream:TStream);

Properties

	property SegmentSeparator: BSChar read GetSegmentSeparator write SetSegmentSeparator;

	property FieldSeparator : BSChar read GetFieldSeparator write SetFieldSeparator;

	property ComponentSeparator: BSChar read GetComponentSeparator write SetComponentSeparator;

	property RepetitionSeparator: BSChar read GetRepetitionSeparator write SetRepetitionSeparator;

	property SubcomponentSeparator: BSChar read GetSubcomponentSeparator write SetSubcomponentSeparator;

	property EscapeCharacter : BSChar read GetEscapeCharacter write SetEscapeCharacter;

	property Version : BSString read FVersion write FVersion;

	property AsHL7 : BSString read GetAsHL7 write SetAsHL7;

	property DefaultObx2Type: BSString read GetDefaultObx2Type write SetDefaultObx2Type;

	property DefaultMfe5Type: BSString read GetDefaultMfe5Type write SetDefaultMfe5Type;

	property AsXML : BSString read GetAsXML write SetAsXML;

	property OnXMLGetNodeName : TOnXMLGetNodeName read FOnXMLGetNodeName write FOnXMLGetNodeName;

	property ParserMessage: String read FParserMessage write FParserMessage;

	property ParserStatus: Boolean read FParserStatus write FParserStatus;

	property AddReqiredEmptyFields : Boolean read FAddReqiredEmptyFields write FAddReqiredEmptyFields;