begin
SELECT ID, PhoneNumber1, PhoneNumber2, FaxNumber, Recipient, City, Street, PostCode, ZIP, Country, EMail, Location FROM Addresses
WHERE ID = :IN_Address_ID INTO mID, mPhoneNumber1, mPhoneNumber2, mFaxNumber, mRecipient, mCity, mStreet, mPostCode, mZIP, mCountry, mEMail, mLocation;
if (mID is Not Null) then begin
execute procedure AddPhoneNumber(IN_OwnerType, IN_Owner_ID, mPhoneNumber1, 1);
execute procedure AddPhoneNumber(IN_OwnerType, IN_Owner_ID, mPhoneNumber2, 2);
execute procedure AddPhoneNumber(IN_OwnerType, IN_Owner_ID, mFaxNumber, 3);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mRecipient, 4);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mCity, 5);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mStreet, 6);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mPostCode, 7);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mZIP, 8);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mCountry, 9);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mEMail, 10);
execute procedure AddText(IN_OwnerType, IN_Owner_ID, mLocation, 11);
end
end;