text: 
  --
  -- The Notifications Package
  --
  -- ben@openforce.net
  -- Copyright (C) 2000 MIT
  --
  -- GNU GPL v2
  --
  
  
  -- The Notification Replies Package
  
  create or replace package notification_reply
  as
     function new (
        reply_id                          in notification_replies.reply_id%TYPE default null,
        object_id                         in notification_replies.object_id%TYPE,
        type_id                           in notification_replies.type_id%TYPE,
        from_user                         in notification_replies.from_user%TYPE,
        subject                           in notification_replies.subject%TYPE,
        content                           in varchar,
        reply_date                        in notification_replies.reply_date%TYPE default sysdate,
        creation_date                     in acs_objects.creation_date%TYPE default sysdate,
        creation_user                     in acs_objects.creation_user%TYPE default null,
        creation_ip                       in acs_objects.creation_ip%TYPE default null,
        context_id                        in acs_objects.context_id%TYPE default null
     ) return notification_replies.reply_id%TYPE;
  
     procedure del (
        reply_id                          in notification_replies.reply_id%TYPE
     );
  end notification_reply;
  /
  show errors
  
  
  create or replace package body notification_reply
  as
     function new (
        reply_id                          in notification_replies.reply_id%TYPE default null,
        object_id                         in notification_replies.object_id%TYPE,
        type_id                           in notification_replies.type_id%TYPE,
        from_user                         in notification_replies.from_user%TYPE,
        subject                           in notification_replies.subject%TYPE,
        content                           in varchar,
        reply_date                        in notification_replies.reply_date%TYPE default sysdate,
        creation_date                     in acs_objects.creation_date%TYPE default sysdate,
        creation_user                     in acs_objects.creation_user%TYPE default null,
        creation_ip                       in acs_objects.creation_ip%TYPE default null,
        context_id                        in acs_objects.context_id%TYPE default null
     ) return notification_replies.reply_id%TYPE
     is
          v_reply_id                      acs_objects.object_id%TYPE;
     begin
          v_reply_id:= acs_object.new (
                                      object_id => reply_id,
                                      object_type => 'notification_reply',
                                      creation_date => creation_date,
                                      creation_user => creation_user,
                                      creation_ip => creation_ip,
                                      context_id => context_id
                                      );
  
          insert into notification_replies
          (reply_id, object_id, type_id, from_user, subject, content, reply_date)
          values
          (v_reply_id, object_id, type_id, from_user, subject, content, reply_date);
  
          return v_reply_id;
     end new;
  
     procedure del (
        reply_id                          in notification_replies.reply_id%TYPE
     )
     is
     begin
        acs_object.del(object_id => reply_id);
     end del;
  
  end notification_reply;
  /
  show errors
  