OBR is empty if DG1 exist in ORM^O01

[Joschim]

Hi support,
Version 1.6.16

if I receive the ORM O01
MSH|^~\&|SAP-ISH|100^0001|POLARIS|POLARIS|20180302130236||ORM^O01|0022459237|P|2.3
PID|||94000935||Opscollector^Ottfried2018^Opscollector|Opscollector|19440404|M|||X Str. 141^^City^^04129^DE||112
PV1||I|HNO^^^HNO||||||||||||n||||40001083|||||||||||||||||||||||||20180101000001
ORC|NW|52207017||1716962|IP||^^0020^00000000^00000000^000||20180302130236|||UMUELLER^Müller^U||0341 909-0||Test-Fragestellung^Test-Fragestellung||NED|UMUELLER^Müller^U||HNO
OBR||0052207017||NEDENG2^ENG^01|||20180302130233||||||Test-Anamnese|||UMUELLER^Müller^U|0341 909-0||NK^nicht kontagiös||Test-Diagnose||||||^^^20180302130233
everything is okay.

But if I receive the same message, include a DG1
MSH|^~\&|SAP-ISH|100^0001|POLARIS|POLARIS|20180302130236||ORM^O01|0022459237|P|2.3
PID|||94000935||Opscollector^Ottfried2018^Opscollector|Opscollector|19440404|M|||X Str. 141^^City^^04129^DE||112
PV1||I|HNO^^^HNO||||||||||||n||||40001083|||||||||||||||||||||||||20180101000001
ORC|NW|52207017||1716962|IP||^^0020^00000000^00000000^000||20180302130236|||UMUELLER^Müller^U||0341 909-0||Test-Fragestellung^Test-Fragestellung||NED|UMUELLER^Müller^U||HNO

DG1|||^Test-Diagnose|Test-Diagnose|20180302||||||||||||D|||0001193792

OBR||0052207017||NEDENG2^ENG^01|||20180302130233||||||Test-Anamnese|||UMUELLER^Müller^U|0341 909-0||NK^nicht kontagiös||Test-Diagnose||||||^^^20180302130233

The DG1 data are okay, but the OBR is empty

Code: Select all

   if msg.ORDERRepCount > 0 then begin
      for i := 0 to msg.ORDERRepCount - 1 do begin
        hl7_AnalysReceivedOBR(msg.ORDER[i].ORDER_DETAIL.OBR);

        if msg.ORDER[i].ORDER_DETAIL.DG1RepCount > 0 then begin
          for j := 0 to msg.ORDER[i].ORDER_DETAIL.DG1RepCount - 1 do begin
            hl7_AnalysReceivedDG1(msg.ORDER[i].ORDER_DETAIL.DG1[0]);
          end;
        end;
      end;
    end;

What's wrong?
Best regards
Joschim

[admin]

Hello,

DG1 segment is wrong order. DG1 segment must be after OBR Segment.

Best regards.