Class TBSHL7Object

Unit

BSHL7Object

Declaration

type TBSHL7Object = class(TBSTypedComposite, IBSHL7Object)

Description

procedure SetObject(const AName: BSString; const AValue: TBSValue);

Hierarchy

• TBSTypedObject
• TBSTypedComposite
• TBSHL7Object

Overview

Methods

	constructor Create; overload; override;
	constructor Create(AName, AVersion: BSString; AVendor: BSString=''); overload;
	destructor Destroy; override;
	procedure Init; override;
	procedure SetObject(const AName: BSString; const AValue: TBSObject); overload;
	procedure SetObject(const AName: BSString; const AValue: TBSValue); overload;
	function IsValid:Boolean; override;
	procedure SetInteger(const AName:BSString; const AValue:Int64);
	function GetInteger(const AName:BSString):Int64;
	function GetString(const AName: BSString): BSString; override;
	procedure SetString(const AName:BSString; const AValue:BSString); override;

Properties

	property Version : BSString read GetVersion write SetVersion;
	property RawValue[constAName:BSString]: BSString read GetRawValue write SetRawValue;
	property O[constAName:BSString]: TBSHL7Object read GetHL7Object write SetHL7Object;
	property V[constAName:BSString]: TBSHL7Value read GetHL7Value write SetHL7Value;
	property S[constAName:BSString]: BSString read GetString write SetString;
	property I[constAName:BSString]: Int64 read GetInteger write SetInteger;
	property A[constAName:BSString]: TBSArray read GetArray write SetArray;
	property ArrayLen[constAName:BSString]: Integer read GetArrayLen;
	property IsArray[constAName:BSString]: Boolean read GetIsArray;
	property Message : TBSHL7Message read FMessage write FMessage;

Description

Methods

	constructor Create; overload; override;

	constructor Create(AName, AVersion: BSString; AVendor: BSString=''); overload;

	destructor Destroy; override;

	procedure Init; override;

	procedure SetObject(const AName: BSString; const AValue: TBSObject); overload;

	procedure SetObject(const AName: BSString; const AValue: TBSValue); overload;

	function IsValid:Boolean; override;

	procedure SetInteger(const AName:BSString; const AValue:Int64);

	function GetInteger(const AName:BSString):Int64;

	function GetString(const AName: BSString): BSString; override;

	procedure SetString(const AName:BSString; const AValue:BSString); override;

Properties

	property Version : BSString read GetVersion write SetVersion;

	property RawValue[constAName:BSString]: BSString read GetRawValue write SetRawValue;

	property O[constAName:BSString]: TBSHL7Object read GetHL7Object write SetHL7Object;

	property V[constAName:BSString]: TBSHL7Value read GetHL7Value write SetHL7Value;

	property S[constAName:BSString]: BSString read GetString write SetString;

	property I[constAName:BSString]: Int64 read GetInteger write SetInteger;

	property A[constAName:BSString]: TBSArray read GetArray write SetArray;

	property ArrayLen[constAName:BSString]: Integer read GetArrayLen;

	property IsArray[constAName:BSString]: Boolean read GetIsArray;

	property Message : TBSHL7Message read FMessage write FMessage;