DECLARE 
  messcode     NUMBER        := MESSAGE_CODE; 
  messtext     varchar2 (200):= MESSAGE_TEXT; 
  i number;
BEGIN 
if   messcode in (40401,40405) -- NO CHANGES to SAVE 
  or messcode=40350  -- QUERY CAUSED NO RECORDS TO BE RETRIEVED 
  or messcode=40352  -- LAST RECORD 
  or messcode=40102  -- RECORD MUST BE ENTERED 
  or messcode in (41051,41803, 41049)  -- insert, duplicate et delete 
then null;
elsif messcode=40743  then -- REQUIRE ON LOCK TRIGGER 
  i:=Alerte('Alert_Erreur',' Vous ne pouvez modifier une clé');
  raise form_trigger_failure;
elsif messcode=40400 then -- transaction complete 
  message('******* Enregistrement effectué avec succès *******');
elsif messcode=40501 then -- transaction complete 
  message('******* ressources occupées *******');    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
elsif messcode=00054 then -- transaction complete 
  message('******* ressources occupées *******');    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
elsif messcode <> 0 then
  message (messcode|| '****  ' || messtext);message (messcode|| '****  ' || messtext);
end if;
END;