FND_MESSAGE.DEBUG使用错误

[billlyh]

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.
哪位高手帮帮忙啊？？？？？？？？？？？？？？？？？？？