Firebird : triggers

[jmlifi]

Hola a todos!!!

Tengo el siguiente trigger:

Código Delphi [-]
CREATE TRIGGER ACTSUB FOR LNSUBCONT ACTIVE
AFTER INSERT POSITION 0
as
declare Variable EsCorte Char;
declare variable EsTrabajo Integer;
begin
   select Corte,Ordentrabajo from SubContratos where codigo = New.Codigo
   into :EsCorte,:EsTrabajo;
   if (((EsCorte='S') or (EsCorte='C')) and (EsTrabajo is null))  then
      update PzasPdtes set PdtesP = PdtesP - new.Cant,
      SubCont= new.Codigo  
      where  (PzasPdtes.O_Ped  = new.O_Ped) and
             (PzasPdtes.Pedido = new.Pedido);
   else
      update Ubicacionpzas set TratmtoAct= new.Tratmto, subcon=new.codigo
      where  (Ubicacionpzas.O_Ped  = new.O_Ped) and
             (Ubicacionpzas.Pedido = new.Pedido);
end

Quiero introducir un mensaje para saber que parte del código me ejecuta. En oracle se que se utiliza DBMNS...

¿hay posibilidad de hacerlo?

saludos