The following lines contain the word 'select', 'insert', 'update' or 'delete':
Purpose : Insert a message string into the message table.
Returns : 0 if successful, 1 otherwise
---------------------------------------------------------------------*/
function put_message(p_message varchar2) return number is
--
l_proc varchar2(72) := g_package||'put_message';
global_message.delete;