BesaSoftware.com

Hi,

I am using a message to management analytical ORU_R01 but assign a type and read the file TdiORU_R01_25 ORU_R01.txt (msg.loadfromfile ('ORU_R01.txt') gives error: "Segments not found"

Example:
Procedure ReadFile;
Var
msg: TdiORU_R01_25;
Begin
msg:=TdiORU_R01_25.Create;
Msg.LoadFromFile('C:\PRUEBAS\ORU_R01.txt');
... (remaining code)
end;


Thanks,

José Antonio Muñoz

Hi,

For more detailed information, can you share your message?

Best regards.

MSH|^~\&|MG|MG|GM|GM|XXXXXXXXXXXXXXXXXXXX||ORU^R01^ORU_R01|XXXXXXXX|P|2.5

PID|1||XXXXXXXXX^^^^XX~XXXXXXX^^^^HC~XXXXXX^^^^XXX~XEXXXXXX-21^^^^XX||XXXXXXXXX^XXXXXXXXXXXX||XXXXXXXXXXXXXXXXXX|F||| XXXX ; Nº X ,^^XXXX^XXXXX^XXXXXX^XXXXXX||^^^^^^^^XXXXXXXXXXX|||||||||||||XXX||||N

PV1|1|E|||||||||||||||||XXXXXXXX

ORC|SC||XXXXXXXX||CM||||XXXXXXXXXXXXXXXXXX|||XXXXXXXX^XXXXXXXXXXXXXXXXXXXXXXXXX|||||||||XXXXXXXXXXXXXXXXX^^^^^^FI^^^XXXX

OBR|1||11224889|HBIOQ^Hemograma^MODULAB||||||XXX||||||XXXXXX^XXXXXXXXXXXXXXXXXXXXXXXXXX||||23||||LXX|F|||||||XXXXXXXX^5445545454545454

TQ1|||||||||S

OBX|1|NM|HEMA^HEMATIES^MODULAB||2.82|10E6/µL|4.0 - 5.5|LL|||F|||20120928102538

OBX|2|NM|ADE^A.D.E^MODULAB||26.7|%|11.5 - 15.0|HH|||F|||20120928102538

OBX|3|NM|HCT^HEMATOCRITO^MODULAB||30.2|%|36.0 - 47.0|LL|||F|||20120928102538

OBX|4|NM|HEMO^HEMOGLOBINA^MODULAB||10.4|g/dL|12.0 - 16.0|LL|||F|||20120928102538

OBX|5|NM|VCM^V.C.M.^MODULAB||106.9|fL|80.0 - 98.0|H|||F|||20120928102538

OBX|6|NM|HCM^H.C.M.^MODULAB||36.7|pg|27.0 - 32.0|HH|||F|||20120928102538

OBX|7|NM|CHCM^C.H.C.M.^MODULAB||34.3|g/dL|32.0 - 36.0|N|||F|||20120928102538

OBX|8|NM|LEU^LEUCOCITOS^MODULAB||2.60|10E3/µL|4.0 - 10.0|LL|||F|||20120928102538

OBX|9|NM|NEU%^NEUTROFILOS %^MODULAB||28.4|%|42.0 - 73.0|LL|||F|||20120928102538

OBX|10|NM|LIN%^LINFOCITOS %^MODULAB||66.7|%|16.0 - 45.0|HH|||F|||20120928102538

OBX|11|NM|MON%^MONOCITOS %^MODULAB||4.1|%|2.0 - 12.0|N|||F|||20120928102538

OBX|12|NM|EOS%^EOSINOFILOS %^MODULAB||0.2|%|0.0 - 5.0|N|||F|||20120928102538

OBX|13|NM|BAS%^BASOFILOS %^MODULAB||0.6|%|0.0 - 2.0|N|||F|||20120928102538

OBX|14|NM|NEU#^NEUTROFILOS #^MODULAB||0.7|10E3/µL|1.8 - 7.5|L|||F|||20120928102538

OBX|15|NM|LIAB^LINFOCITOS #^MODULAB||1.7|10E3/µL|1.3 - 3.5|N|||F|||20120928102538

OBX|16|NM|MON#^MONOCITOS #^MODULAB||0.1|10E3/µL|0.2 - 1.0|L|||F|||20120928102538

OBX|17|NM|EOS#^EOSINOFILOS #^MODULAB||0.0|10E3/µL|0.0 - 0.5|N|||F|||20120928102538

OBX|18|NM|BAS#^BASOFILOS #^MODULAB||0.0|10E3/µL|0.0 - 0.2|N|||F|||20120928102538

OBX|19|NM|PLT^PLAQUETAS^MODULAB||306|10E3/µL|140.0 - 400.0|N|||F|||20120928102538

OBX|20|ST|SOS^Alarmas de sospecha^MODULAB||XXXXX|||N|||F|||20120928102538

OBX|21|ST|DEF^Alarmas definitivas^MODULAB||XXXXX|||N|||F|||20120928102538

SPM|1|7411224889||^Sangre Total||||||||||||||20120928100550||Y||||||1

I analyzed the message directly in delphi code and is OK

Jose Antonio Muñoz

some message data have been replaced by 'xxx' as they are data identifying the patient or physician

José Antonio Muñoz

Hi,

Please reinstall your setup again.

Best regards.

Hello,

I reinstalled and I still have the same problem,

regards,

José Antonio Muñoz

Hi,

Plaese see attached project. (Delphi 7 project)

and What is your delphi version?

My version is Delphi 2009 (v12.0.3170.16989)

Hi,

Delphi 2009 sample project added (with trial *.dcu).

Best regards.