Who gave me a parsing code

[DELPHI]

Code: Select all

MSH|^~\&|HIS||EAI||20140224165422||RGV^O15|13430355|P|2.4|||AL|AL
PID||0000375672|0000006789^^^^PatientNO||MAYUJ|||F||||||||||||||||||||||||||||||2^PT
PV1|1|I|8160||||||||||1||||||1060024
ORC|OK|164778021||16477802|||||20140224165421|000261
RXO|^Y00000000407|1||B||||^^^&6050||||||||||||||||TL^141401
NTE|||8.35
ORC|OK|164778031||16477803|||||20140224165421|000261
RXO|^Y00000000407|1||B||||^^^&6050||||||||||||||||TL^141401
NTE|||8.35
ORC|OK|164778011||16477801|||||20140224165421|000261
RXO|^Y00000015832|9||B||||^^^&6050||||||||||||||||TL^141401
NTE|||6
ORC|OK|164778041||16477804|||||20140224165421|000261
RXO|^Y00000015832|9||B||||^^^&6050||||||||||||||||TL^141401
NTE|||6

Code: Select all

var
  msg: TdiRGV_O15_24;
begin
  msg:=TdiRGV_O15_24.Create;
  msg.AsString:=Memo2.Lines.Text;

  ShowMessage(IntToStr(msg.ORDERRepCount));//Why is 0?

  FreeAndNil(msg);
end;

Thank you

[DELPHI]

TdiRAS_O17_24 also the same problem. TdiRGV_O15_24 with a custom method is OK, TdiRAS_O17_24 currently not successful.
I do not know is not a BUG, hoping to get resolved.
Thank you

[admin]

Hi,

Standart RGV_O15 messsage structure attached below.
You need RXR message.

Plase check :
http://www.delphihl7.com/doc/html/diHL7 ... NT_24.html

[DELPHI]

ORDER_DETALL_SUPPLEMENT is optional bar.

[admin]

Yes,
ORDER_DETAIL_SUPPLEMENT is optional
This Group contains the following elements:
* NTE, required repeating
* RXR, required repeating
* COMPONENTS, optional


None of this segments did not exist, would pass this group.
Checked for ORDER_DETAIL_SUPPLEMENT group.
reqired segments :
NTE, RXR.

Checked NTE ok.
Checked RXR error.

Due to the possibility of this segment belong to another group, these groups are skipped.