BesaSoftware.com

Posted: **Mon May 02, 2016 5:44 am**

Dear users,

Besa Software is glad to release the new version 1.7.

This version includes:

Product names changed DelphiHL7 to BesaHL7.
Prefix changed "Tdi" to "Tbs"
For example : TdiADT_A01_22 ---> TbsADT_A01_22
Rewritten code.
Message definitions loaded from library file.
Code: Select all
```
BSHL7Library.LoadFromFile('BSHL722.BSL');
```

You can use generate messages with classic and dynamic way.
1.Classic way:

procedure TForm1.bMessageCreateClick(Sender: TObject);
var
  msg : TbsADT_A01_22;
begin
  try
    msg := TbsADT_A01_22.Create;

    // Populate the MSH Segment
    msg.MSH.Sendingfacility.Value:='Sending';
    msg.MSH.Sequencenumber.Value:='123';

    // Populate the PID Segment
    msg.PID.PatientName.FamilyName.AsString:='Doe';
    msg.PID.PatientName.GivenName.AsString:='John';
    msg.PID.PatientIDInternalID[0].IDNumber.AsString:='123456';

    Memo1.Lines.Append(msg.AsHL7);
    // MSH|^~\&|||Sending|||||||||123
    // PID|||123456||Doe^John
  finally
    msg.Free;
  end;

end;

2.Dynamic way

Code: Select all

procedure TForm1.bCreateMessagePathClick(Sender: TObject);
var
  msg :TBSHL7Message;
begin
  try
    msg:=TBSHL7Message.Create('ADT_A01','22');

    // Populate the MSH Segment
    msg.S['MSH/Sendingfacility']:='Sending';
    msg.S['MSH/Sequencenumber']:='123';

     // Populate the PID Segment
    msg.S['PID/PatientName/FamilyName']:='Doe';    
    msg.S['PID/PatientName/2']:='John'; //  <<== SAME  msg.S['PID/PatientName/GivenName']:='John';
    msg.S['PID/PatientIDInternalID(1)/IDNumber']:='123456';

    Memo1.Lines.Append(msg.AsHL7);
   
    // MSH|^~\&|||Sending|||||||||123
    // PID|||123456||Doe^John
  finally
    msg.Free;
  end;

end;

We're looking forward to your comments and suggestions.
BesaSoftware Team.

BesaSoftware.com

BesaHL7 Released v 1.7!

BesaHL7 Released v 1.7!