DelphiHL7 Released v 1.1!

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.1!

Post by admin »

Dear Users,

DelphiHL7 is glad to release the new improved version 1.1.

Changes 1.1
-----------
* Added Terser Method
* Added TrimBlankSeparators property
* Deprecated Delphi 3,4 support.

* Added Terser Method
---------------------
Wraps a message to provide access to fields using a terse location
specification syntax.
For example:
message.Terser('MSH-13-1').AsString:= '123';
can be used instead of
message.MSH.Sequencenumber.AsString:='123';

The syntax of a location spec is as follows:
location_spec: segment_path_spec "-" field ["(" rep ")"] ["-"
component ["-" subcomponent]]
... where rep, field, component, and subcomponent are integers
(representing,respectively, the field repetition (starting at 1), and
the field number, component number, and subcomponent numbers (starting
at 1). Omitting the rep is equivalent to specifying 1; omitting the
component or subcomponent is equivalent to specifying 1.

o Using Terser function:
----------------------
uses diHL722, diHL7DT22, diHL7Grp22;
...
procedure TForm1.diTerserTestClick(Sender: TObject);
var
msg : TdiADT_A01_22;
begin
msg := TdiADT_A01_22.Create;
// Populate the MSH Segment
msg.Terser('/MSH-3-1').AsString:='TestSendingSystem';
msg.Terser('/MSH-13-1').AsString:='123';
// Populate the PID Segment
msg.Terser('/PID-5-1').AsString:='Doe';
msg.Terser('/PID-5-2').AsString:='John';
msg.Terser('/PID-3-1').AsString:='123456';
msg.Terser('/PID-3(2)-1').AsString:='7890';
Memo1.Lines.Text:= msg.AsString;

{
MSH|^~\&|TestSendingSystem||||201112011539||ADT^A01||P|2.2|123
PID|||123456~7890||Doe^John
}
FreeAndNil(msg);
end;

* Added TrimBlankSeparators property
Trims blank field,component,subcomponent separators. Default : True.
...

TrimBlankSeparators :=True;

MSH|^~\&|TestSendingSystem|Test|||200701011539||ADT^A01||P|2.2|123
PID|||123456||Doe^John

TrimBlankSeparators :=False;

MSH|^~\&|TestSendingSystem|Test|||200701011539^^||ADT^A01^||P|2.2|123|||||
PID|||123456^^^^^||Doe^John^^^^^|||||||||||||||||||||||

* Deprecated Delphi 3,4 support.

We're looking forward to your comments and suggestions.
Delphi HL7 Team.
Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest