BesaHL7 Released v 1.7!

[admin]

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:

  Code: Select all

  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.