Program Test;
var i:Integer;
s : String;
begin
//HL7 Data is a precreated object with the HL7Data loaded
for i := HL7Data.SegmentCount-1 downto 0 do
begin
s := HL7Data.Segmentname[i];
if not ((s = 'MSH') or (s = 'MSA')) then
HL7Data.DeleteSegment(i)
else
if s = 'MSH' then
begin
if HL7Data.GetFieldvalue(i, 8, 0,0,0) = 'RRI' then
begin
HL7Data.SetFieldvalue('ACK', i, 8, 0, 0, 0);
HL7Data.SetFieldvalue('R01', i, 8, 0, 2, 0);
end;
end;
end;
end. |