Page 1 of 1

DelphiHL7 Released v 1.6.2!

Posted: Tue Feb 12, 2013 9:49 am
by admin
Dear users,

DelphiHL7 is glad to release the new improved version 1.6.2

This version includes:

* Updated message parser.

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  msg : TdiOML_O21_25;
  str : AnsiString;
  i:integer;
begin
  Str :=
  'MSH|^~\&|FRP||||20130205180519.884+0000||OML^021^OML_O21|68|T|2.5'+#13+
  'PID||50|495426445^^^SNS^SS||Murcela^Antónia^da Piedade||19591104000000+0000|F|||Rua Maria do Rosário F. Melo Sousa, 33^^Belhó Elvas^Belhó Elvas^049^PRT'+#13+
  'ORC|NW|11112||123456789|||1.000^^^^^N||20130205180520.081+0000|ADMIN'+#13+
  'OBR||11112||6^Creatinina sérica [Creatininémia]'+#13+
  'ORC|NW|11111||123456789|||1.000^^^^^N||20130205180520.081+0000|ADMIN'+#13+
  'OBR||11111||4^Ureia sérica [Urémia]'+#13;

  msg := TdiOML_O21_25.Create;
  msg.AsString:=str;
  Memo1.Lines.Append(IntToStr( msg.ORDERRepCount));
  for i:=0 to msg.ORDERRepCount-1 do
  begin
    Memo1.Lines.Append(msg.ORDER[i].ORC.OrderControl.AsString);
    Memo1.Lines.Append(msg.ORDER[i].OBSERVATION_REQUEST.OBR.UniversalServiceIdentifier.Text.AsString);
  end;

  msg.Free;

end;
Result:

Code: Select all

2
NW
Creatinina sérica [Creatininémia]
NW
Ureia sérica [Urémia]
DelphiHL7 team.