-- -- acs_mail_queue_message__new/7 -- create or replace function acs_mail_queue_message__new( integer, integer, integer, timestamp with time zone, integer, character varying, character varying ) returns int4 as $$ declare p_mail_link_id alias for $1; -- default null p_body_id alias for $2; p_context_id alias for $3; -- default null p_creation_date alias for $4; -- default now() p_creation_user alias for $5; -- default null p_creation_ip alias for $6; -- default null p_object_type alias for $7; -- default acs_mail_link v_mail_link_id acs_mail_links.mail_link_id%TYPE; begin v_mail_link_id := acs_mail_link__new ( p_mail_link_id, -- mail_link_id p_body_id, -- body_id p_context_id, -- context_id p_creation_date, -- creation_date p_creation_user, -- creation_user p_creation_ip, -- creation_ip p_object_type -- object_type ); insert into acs_mail_queue_messages ( message_id ) values ( v_mail_link_id ); return v_mail_link_id; end;$$ language plpgsql;