TdiRSP_K11

Discussion of open issues, suggestions and bugs regarding to (known as Delphi HL7) HL7 Components
Post Reply
aceM
Posts: 6
Joined: Thu Nov 07, 2013 11:25 am

TdiRSP_K11

Post by aceM »

Hi,
I resumed my product evaluation (after many months).

I got an AV error using TdiRSP_K11_26 (25 and 251) trying to assign an HL7 msg like this:

Code: Select all

var RSP     : TdiRSP_K11_26;
begin
  RSP := TdiRSP_K11_26.Create;
  try
    RSP.AsString := 'MSH|^~\&|LAB|LAB|X|X|20140320173106||RSP^SLP^RSP_K11|9|P|2.6' + #13 +
                           'MSA|AA|201423-3|OK' + #13 +
                           'QAK|SLP||OK' + #13 +
                           'QPD|SLP|201423-3||XXXXXXX||';
  finally
    RSP.Free;
  end;
end;
If there's a not empty value on QPD > 3 (QPD-4, QPD-5 and so on) (XXXXXXX in the example)

Code: Select all

RSP.AsString
raises an AV.

Regards.
Post Reply

Who is online

Users browsing this forum: No registered users and 3 guests