Page 1 of 1
Who gave me a parsing code
Posted: Sat Mar 01, 2014 4:23 am
by 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
Re: Who gave me a parsing code
Posted: Sun Mar 02, 2014 2:57 pm
by 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
Re: Who gave me a parsing code
Posted: Sun Mar 02, 2014 3:05 pm
by 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
Re: Who gave me a parsing code
Posted: Sun Mar 02, 2014 4:18 pm
by DELPHI
ORDER_DETALL_SUPPLEMENT is optional bar.
Re: Who gave me a parsing code
Posted: Sun Mar 02, 2014 4:37 pm
by 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.