Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      cimet.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 cimgat IS

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


--============================ CIHGATE_UNIQUE_NAME =============================--
--%0!s: The Name must be unique in the owning object
PROCEDURE check_cihgate_unique_name(conid rm.reference)
IS
  gat_name sdd_cat.name%type;
  cla_ref  number;
  clash_id number;
  clash_type varchar2(10);
BEGIN

  FOR assertion in gat_c(conid) LOOP
    select name
    ,      NVL(NVL(NVL(gat.event_classifier_reference, gat.generic_class_reference),
                   gat.interface_classifier_reference),
               gat.attribute_domain_reference)
    into   gat_name
    ,      cla_ref
    from   ci_general_attributes    gat
    where  gat.id = assertion.element;
     
    if cimaen.is_aen_att_met_name_unique(assertion.element, cla_ref, gat_name, 
                                         'GAT', 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, 'GAT'),
            ciiutl.identify(clash_id, clash_type) );
    end if;
  END LOOP;

END check_cihgate_unique_name;

END;
/