rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\cicin.mpb 1.2 1998/11/11 19:25:55 cvanes Exp $ 
rem 
Rem  Copyright (c) 1995 by Oracle Corporation 
Rem    NAME
Rem      cicin.mpb - <one-line expansion of the name>
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem    RETURNS
Rem 
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem    MODIFIED   (MM/DD/YY)
Rem     CvE        11/11/98 -  removed need for cpplication_system_owned_by
Rem     cvanes     11/04/96 -  Creation 
Rem     cvanes     08/01/96 -  Creation 
Rem     aheath     01/10/95 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimcin IS

  cdapi_activity number;

PROCEDURE check_cihcinu1(conid number) IS
  cursor clashing_cins(constraint_id number) is
  select cin1.id cin1_id
        ,cin2.id cin2_id
        ,fm.folder_reference cin2_as_ref
    from ci_cluster_indexes cin1
        ,ci_cluster_indexes cin2
        ,sdd_folder_members fm
        ,rm_deferred_checks dc
   where dc.assertion = constraint_id
     and dc.activity = cdapi_activity
     and dc.element = cin1.id
     and cin2.id != cin1.id
     and cin2.cluster_reference = cin1.cluster_reference
     and fm.member_object = cin2.cluster_reference
     and fm.ownership_flag = 'Y';
BEGIN

  cdapi_activity := cdapi.activity;

  cimappsac.check_ciappsacu1(conid);

  for cin in clashing_cins(conid) loop
    -- We now have a UID clash
    rmman.record_check(conid,cin.cin1_id,null,cdapi.activity,false,'Y',
          ciiutl.identify(cin.cin1_id, 'CIN'),
          ciiutl.identify(cin.cin2_id, 'CIN'),
          ciiutl.identify(cin.cin2_as_ref, 'CEL'));
  end loop;
END; 

END;
/