Segments not found

[joseantonio.m]

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

[admin]

Hi,

For more detailed information, can you share your message?

Best regards.

[joseantonio.m]

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

[joseantonio.m]

I analyzed the message directly in delphi code and is OK

Jose Antonio Muñoz

[joseantonio.m]

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

José Antonio Muñoz

[admin]

Hi,

Please reinstall your setup again.

Best regards.

[joseantonio.m]

Hello,

I reinstalled and I still have the same problem,

regards,

José Antonio Muñoz

[admin]

Hi,

Plaese see attached project. (Delphi 7 project)

and What is your delphi version?

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
Var
   msg: TdiORU_R01_25;
   pr,ob,os:integer;
Begin
   msg:=TdiORU_R01_25.Create;
   msg.LoadFromFile('C:\ORU_R01_25\ORU_R01_25.txt'); 

   for pr:=0 to msg.PATIENT_RESULTRepCount -1 do
   begin
      for ob:=0 to msg.PATIENT_RESULT[pr].ORDER_OBSERVATIONRepCount-1 do
      begin
         for os:=0 to msg.PATIENT_RESULT[pr].ORDER_OBSERVATION[ob].OBSERVATIONRepCount-1 do
         begin
            Memo1.Lines.Append( msg.PATIENT_RESULT[pr].ORDER_OBSERVATION[ob].OBSERVATION[os].OBX.SetIDOBX.AsString);
         end;
      end;
   end;
end;

[joseantonio.m]

My version is Delphi 2009 (v12.0.3170.16989)

[admin]

Hi,

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

Best regards.