BesaSoftware.com

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.