1: PACKAGE BODY AS_MESSAGE as
2: /* $Header: asxutmgb.pls 115.6 2002/11/06 00:57:15 appldev ship $ */
3: --
4: -- PURPOSE
5: -- Allow messages (both for reporting and debugging) to be written to
81: X_Error_Number,
82: X_Message_Text);
83: EXCEPTION
84: When OTHERS then
85: Set_Error('AS_MESSAGE.Insert_Message');
86: END;
87:
88:
89: PROCEDURE Insert_Message(Message_Text VARCHAR2,
363: return(Last_Msg_Seq);
364:
365: EXCEPTION
366: When OTHERS then
367: AS_MESSAGE.Set_Error('Last_Message_Sequence');
368: Raise;
369: END;
370:
371: END AS_MESSAGE;
367: AS_MESSAGE.Set_Error('Last_Message_Sequence');
368: Raise;
369: END;
370:
371: END AS_MESSAGE;