Page 1 of 1

BesaHL7 Released v 1.7!

Posted: Mon May 02, 2016 5:43 am
by 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.