Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      cieat.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     cheaps     06/11/99 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimeat IS

cursor eat_c(conid rm.reference) is
  select d.element 
  from rm_deferred_checks d
  where d.assertion = conid;


--============================ CIHEATE_UNIQUE_NAME =============================--

--%0!s: A Name clash has ocurred with a: %1!s
PROCEDURE check_ciheate_unique_name(conid rm.reference)
IS
  eat_name sdd_cat.name%type;
  cla_ref  number;
  clash_id number;
  clash_type varchar2(10);
BEGIN

  FOR assertion in eat_c(conid) LOOP
    select name
    ,      eat.entity_object_reference
    into   eat_name
    ,      cla_ref
    from   ci_entity_object_attributes    eat
    where  eat.id = assertion.element;
     
    if cimaen.is_aen_att_met_name_unique(assertion.element, cla_ref, eat_name, 
                                         'EAT', clash_id, clash_type) then
      rmman.record_check(conid,assertion.element,null,null,true);
    else
      rmman.record_check(conid,assertion.element,null,null,false,'Y',
            ciiutl.identify(assertion.element, 'EAT'),
            ciiutl.identify(clash_id, clash_type) );
    end if;
  END LOOP;

END check_ciheate_unique_name;

END;
/