rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\rmdc.rpb 1.1 1998/05/28 17:05:24 mfrobins Exp $ 
rem 
rem Copyright (c) Oracle Corporation 1991.  All Rights Reserved.

rem  NAME
rem    rmcdc.sql
rem  DESCRIPTION
rem    RM Method Deferred Check services
rem  PUBLIC FUNCTION(S)
rem    migrate    - RM Method Deferred Check: MIGRATE deferred checks
rem    remove_all - RM Method Deferred Check: REMOVE ALL deferred checks
rem    remove     - RM Method Deferred Check: REMOVE deferred check
rem  PRIVATE FUNCTION(S)
rem  MODIFIED    (MM/DD/YY)
Rem     dcaruana   06/11/93 -  Remove spec change 
Rem    bferris    05/21/93 -  Creation 
                         

CREATE OR REPLACE PACKAGE BODY rmmdc IS

/*

*/
/*-------------------------------- migrate ---------------------------------*/
/*
  NAME
    migrate - RM Method Deferred Check: MIGRATE deferred checks
  MODULE
    RMMDCMI          
  DESCRIPTION
    This procedure migrates all deferred checks posted against a given
    activity to another activity.  This is particularily handy when
    a sub-activity is being closed.

    The oldact parameter should indicate the activity to migrate 'from'.
    
    The newact parmaeter should indicate the activity to migrate 'to'.
  NOTES

  EXCEPTIONS

  RETURNS

*/

PROCEDURE migrate(oldact IN reference, newact IN reference) is
begin
    update rm_deferred_checks set activity=newact
     where activity = oldact;
end migrate;

/*

*/
/*-------------------------------- remove_all ------------------------------*/
/*
  NAME
    remove_all - RM Method Deferred Check: REMOVE ALL deferred checks
  MODULE
    RMMDCRA          
  DESCRIPTION
    This procedure simply deletes all existing deferred checks.  This
    comes in handy when closing the root activity (because deferred
    checks are not persistent).
  NOTES

  EXCEPTIONS

  RETURNS

*/

PROCEDURE remove_all is
begin
  delete from rm_deferred_checks;
end remove_all;
/*
^L
*/
/*-------------------------------- remove ----------------------------------*/
/*
  NAME
    remove - RM Method Deferred Check: REMOVE deferred check
  MODULE
    RMMDCRM
  DESCRIPTION
    This procedure delete a given set of deferred checks based on the
    passed parameters.  It is used by the generated constraint
    specific code to remove deferred checks associated with an
    element when the element is being deleted.

    The cid parameter should contain the constraint ID.
    
    The eid parameter should contain the element ID.
    
    If cid is null, all deferred checks recorded for the element are
    removed.
    
    If cid is not null, all deferred checks recorded for the constraint
    are removed.
  NOTES

  EXCEPTIONS

  RETURNS

*/

PROCEDURE remove ( cid IN reference, eid IN reference ) is
begin
  if cid is null then
    delete from rm_deferred_checks where element = eid;
  else
    delete from rm_deferred_checks where assertion = cid and element = eid;
  end if;
end remove;

END rmmdc;
/