Replace GUID

program FixGUID;

begin

   if (HL7Data['MSH.3.0'] = 'Noosa Radiology') and (HL7Data['MSH.3.0.2'] = 'A5B87B80-CB01-4593-BE54-867A1430A8FC') then
       HL7Data['MSH.3.1'] := 'X-RAY and Imaging^B960B3FB-7D68-44F1-AFAC-9C64C7ED11D2^GUID';

end.

This program will find the specific GUID in the Sending Facility and replace it with the GUID of your choice. In this case the GUID that we are looking for is Noosa Radiology and it will be replaced with X-Ray and Imaging GUID.