rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\cikbl.mpb 1.2 1998/09/23 15:44:35 cvanes Exp $ 
rem 
Rem  Copyright (c) 1995 by Oracle Corporation 
Rem    NAME
Rem      cikbl.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     11/08/96 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimkbl IS

PROCEDURE check_cihkblu1(conid number) IS

  cursor get_dup_sac(constraint_id number, cdapi_activity number) is
    select mcn1.id sac1_ref
          ,mcn2.id sac2_ref
      from ci_module_component_links mcn1
          ,ci_module_component_links mcn2
          ,rm_deferred_checks dc
     where dc.element = mcn1.id
       and dc.assertion = constraint_id
       and dc.activity = cdapi_activity
       and mcn1.mcn_reference_from = mcn2.mcn_reference_from
       and mcn1.mcn_reference_to = mcn2.mcn_reference_to
       and mcn1.id != mcn2.id;
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, 'MCN'),
          ciiutl.identify(el.sac2_ref, 'MCN'));
  end loop;
end check_cihkblu1;

END;
/