Saber si se Aplico un Insert en un Procedimiento

[berna]

Que tal.....


Bueno... Tengo un Procedimiento en firebird que contiene
un insert y un update a una serie de tablas...

create procedure Insertamodifica
as
begin
  //   campo1 es mi llave primaria
 
   insert into tabla1 (campo1,campo2..campon)
                  values(valor1,valor2...valorn);
 
   ////unos cuantos select
 
    //Generar un update a los datos que se insertaron 
    //Como Saber SI se insertaron los datos
 
   if(Realizo Insert) then 
    begin
     update tabla1 set
        campo2 = valor2
        campo3 = valor3
     where
       campo1 = valor1
    end
     else
       'Error'
  end

La Duda es la Siguiente como puedo saber si realmente se
ejecuto el insert para validar si ejecutar o no el update
sobre registro insertado

Saludos y Gracias de Antemano