ACKnowledgement messages

Discussion of open issues, suggestions and bugs regarding to (known as Delphi HL7) HL7 Components
Post Reply
donaldadams1951
Posts: 1
Joined: Thu Mar 17, 2016 7:51 pm

ACKnowledgement messages

Post by donaldadams1951 »

Do you have any examples or samples of creating an ACK message?
admin
Site Admin
Posts: 256
Joined: Sun Jun 05, 2011 8:06 pm

Re: ACKnowledgement messages

Post by admin »

hi,
sample:

Code: Select all

procedure TForm1.bGenAckClick(Sender: TObject);
var
  ack : TdiACK_25;
begin
  ack := TdiACK_25.Create;
  ack.MSH.MessageControlID.AsString := 'MsgId';
  ack.MSA.AcknowledgmentCode.AsString:='AA';
  ack.MSA.MessageControlID.AsString:='ID';
  ShowMessage(ack.AsString);
  ack.Free;
end;
Shows:

Code: Select all

MSH|^~\&|||||20160318191429||ACK|MsgId|P|2.5
MSA|AA|ID
Post Reply

Who is online

Users browsing this forum: No registered users and 8 guests