FND_MESSAGE.DEBUG使用错误

Question

FND_MESSAGE.DEBUG使用错误
ebs11.0.3 form二次开发，不能调用ebs内置的FND_MESSAGE.DEBUG语句，
为了能使用这个函数，我加入了FND_MESSAGE（Package Spec）、FND_MESSAGE（Package Body）
代码如下：
  a.FND_MESSAGE（Package Spec）---------------------------------------
  PACKAGE FND_MESSAGE IS
  procedure debug(x_message_text varchar2);
  procedure warning(x_message_text varchar2,x_msg_button in out varchar2);
  END;
  
  
  b.FND_MESSAGE（Package Body）--------------------------------------------
  PACKAGE BODY FND_MESSAGE IS
  procedure debug(x_message_text varchar2) is
    x_button number;
    begin
      SET_ALERT_PROPERTY('MSG',ALERT_MESSAGE_TEXT ,x_message_text);
      x_button:=show_alert('MSG');
    end debug; 
    
    procedure warning(x_message_text varchar2,x_msg_button in out varchar2) is
    x_button number;
  begin
      SET_ALERT_PROPERTY('WARNING',ALERT_MESSAGE_TEXT ,x_message_text);
      x_button:=show_alert('WARNING');
      if x_button=alert_button1 then
         x_msg_button:='Y';
      else x_msg_button:='N';
      end if;
  end;
END;
但是系统却报错：
FRM-41039:Invalid Alert ID 0.
哪位高手帮帮忙啊？？？？？？？？？？？？？？？？？？？