DelphiHL7 Released v 1.6!

Company and product news about betas, releases or other information
Post Reply
admin
Site Admin
Posts: 256
Joined: Sun Jun 05, 2011 8:06 pm

DelphiHL7 Released v 1.6!

Post by admin »

Dear users,

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.

DelphiHL7 team.
Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest