DelphiHL7 is glad to release the new improved version 1.6.
This version includes:
* Faster, more convenient, the infrastructure was developed.
It was easy to create custom messages.
* TdiString type changed to TdiNodeData type.
-----------------------------------------------------------
* Faster, more convenient, the infrastructure was developed.
It was easy to create custom messages.
Sample:
ZIN attributes are provided below:
SEQ TYPE ELEMENT NAME
1 ST İfcondition
2 ST Condition
Code: Select all
unit uZINsegment;
interface
uses
diHL7Base,diHL724,diHL7DT24,diHL7Grp24;
type
TdiZIN_24 = class(TdiSegment)
protected
function Getifcondition: TdiST_24;
function Getcondition: TdiST_24;
procedure Setifcondition(const Value: TdiST_24);
procedure Setcondition(const Value: TdiST_24);
public
property ifcondition : TdiST_24 read Getifcondition write Setifcondition;
property condition : TdiST_24 read Getcondition write Setcondition;
procedure Init;override;
end;
implementation
{ TdiZIN_24 }
procedure TdiZIN_24.Init;
begin
inherited;
Name :='ZIN';
Definitions.Add('condition',TdiST_24,0,1);
Definitions.Add(
'ifcondition', // Field name must be unique
TdiST_24, // Field Type
0, // Minimum number of repetitions. if 0 is optional
1 // Maximum number of repetitions. if 0 is optional. if -1 is unbounded
);
end;
function TdiZIN_24.Getcondition: TdiST_24;
begin
Result:= TdiST_24(GetStructure('condition',0));
end;
function TdiZIN_24.Getifcondition: TdiST_24;
begin
Result:= TdiST_24(GetStructure('ifcondition',0));
end;
procedure TdiZIN_24.Setcondition(const Value: TdiST_24);
begin
SetStructure('condition',0,Value);
end;
procedure TdiZIN_24.Setifcondition(const Value: TdiST_24);
begin
SetStructure('ifcondition',0,Value);
end;
initialization
diRegisterClass(TdiZIN_24,'ZIN','2.4');
finalization
diUnRegisterClass(TdiZIN_24);
end.