V2.3 AsString

[dave@atx.be]

Hello,

When using diHL723.TdiADR_A19_23.AsString to fill it with data, there is only data in the MSH and MSA segment, nothing in the QUERY_RESPONSE[0].PID segment !!!
I really need the data from this en the PV1 and IN1 segment to for my project.
The QUERY_RESPONSE[0] property is there since a few weeks so I have the feeling it's not yet complete.

Help and regards,

Dave

[dave@atx.be]

Hello,

I did some extra testing and I'm sure that the data from QUERY_RESPONSE and his segments is empty after using .AsString.

As test I add data to a memo field (date that I received earlier from a client)
Then I pump it in the component using .AsString.
MSH en MSA ok, all segments from QUERY_RESPONSE are empty.
When I fill a value myself it works.
Test code:

procedure TForm4.btnTestPatientExternalPatientIDClick(Sender: TObject);
var
tester: TResponse23Tester;
temp: TdiPID_23;
test: TdiXPN_23;
help: TdiDefinitionList;
begin
with mmoLog.Lines do
begin
tester := TResponse23Tester.Create;

Add('MSH|^~\&|ContactTcpService|AZM|DentAdmin|ZNA|||ADR^A19|Testing|P|2.3');
Add('MSA|AA|Testing|OK');
Add('PID|42|2002340454|2002340454||Schellens^Oscar Frans||19370615|M|||Lorkenhof 13^^DIEST^^3290^BE|||||9||||37061512154');
// Add('PV1||O||||||10275961003|14665806140||||||||||215006854392|||||||||||||||||||||||||201506171000|201506172359');

tester.HL7ADTResponse23.AsString := mmoLog.Lines.Text;

NOTHING / EMPTY

Add('PID.PatientID.ID : ' + tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID.PatientID.ID.Value);
Add('PID.PatientName.FamilyName : ' + tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID.PatientName.FamilyName.Value);
Add('PID.PatientName.GivenName : ' + tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID.PatientName.GivenName.Value);
Add('PID.PatientAddress.StreetAddress : ' + tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID.PatientAddress[0].StreetAddress.Value);

tester.HL7ADTResponse23.AsString := 'MSH|^~\&|ContactTcpService|AZM|DentAdmin|ZNA|||ADR^A19|Testing|P|2.3'#$D'MSA|AA|Testing|OK'#$D'PID||53'#$D;

NOTHING / EMPTY

Add('PID.PatientID.ID : ' + tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID.PatientID.ID.Value);

NOTHING / EMPTY

tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID.PatientID.ID.Value := '53';

VALUE 53 ADDED

Add('PID.PatientID.ID : ' + tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID.PatientID.ID.Value);

EXTRA TESTING , GIVES NIL WHEN DEBUGGING

temp := tester.HL7ADTResponse23.QUERY_RESPONSE[0].PID;
test := TdiXPN_23(temp.Definitions[4]);
help := test.Definitions;

tester.Free;
end;
end;

I really need some help here, or the source code, because I'm having serious delay on the project.
We pay for 2 versions of the component (2.3 and 2.4) and only one works, I don't know how to explain that to the customers.

Greetings and thanks in advance,

Dave

[dave@atx.be]

Any news ??? We really need a solution for this topic, our project should be finished by now and our customer is still waiting and not happy with the situation.
I don't understand why we don't get any reaction, the QUERY_RESPONSE was added in a week, seems that the AsString function isn't working (PID segment empty, I even don't know what happens with the other segments ...) and after 10 days not even a answer on the issue.
Long holliday may be.
Can somebody please wake up, we payed for the component so a response would be nice.