rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\ciaci.mpb 1.2 1998/09/23 14:46:57 cvanes Exp $ 
rem 
Rem  Copyright (c) 1995 by Oracle Corporation 
Rem    NAME
Rem      ciaci.mpb - <one-line expansion of the name>
Rem    DESCRIPTION
Rem      Used when the UID check for the SAC includes all sub-types
Rem    RETURNS
Rem 
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem    MODIFIED   (MM/DD/YY)
Rem     cvanes     10/23/96 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimaci IS

PROCEDURE check_cihaciu1(conid number) IS

  cursor get_dup_sac(constraint_id number, cdapi_activity number) is
    select sac1.irid  sac1_ref
          ,sac1.types sac1_types
          ,sac2.irid  sac2_ref
          ,sac2.types sac2_types
      from sdd_aci sac1
          ,sdd_aci sac2
          ,rm_deferred_checks dc
     where dc.element = sac1.irid
       and dc.assertion = constraint_id
       and dc.activity = cdapi_activity
       and sac1.name = sac2.name
       and nvl(sac1.mcn_ref, sac1.window_ref) = 
           nvl(sac2.mcn_ref, sac2.window_ref) 
       and sac1.irid != sac2.irid;
begin
  rmman.record_check(conid,null,null,null,true);

  for el in get_dup_sac(conid, cdapi.activity) loop
    -- We now have a UID clash
    rmman.record_check(conid,el.sac1_ref,null,cdapi.activity,false,'Y',
          ciiutl.identify(el.sac1_ref, el.sac1_types),
          ciiutl.identify(el.sac2_ref, el.sac2_types));
  end loop;
end check_cihaciu1;

END;
/