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 cimmet IS

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


--============================ CIHMETE_INT_UNIQUE =============================--
--%0!s: The Method Internal Name must be unique
PROCEDURE check_cihmete_int_unique(conid rm.reference)

IS
  dummy number;
 
BEGIN
        
  FOR met_rec in met_c(conid) LOOP
    
    select count(*) into dummy 
    from    sdd_met this
           ,sdd_met other
    where   this.internal_name = other.internal_name
    and     this.classifier_ref = other.classifier_ref
    and     this.irid != other.irid
    and     this.irid = met_rec.element;
  
    if dummy > 0 then 
      rmman.record_check(conid,met_rec.element,null,null,false,'Y'
                ,ciiutl.identify(met_rec.element, 'MET'));
    else
      rmman.record_check(conid,met_rec.element,null,null,true);
    end if;
    
  END LOOP;
 
END;

--============================ CIHMETE_UNIQUE_NAME =============================--

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

  FOR assertion in met_c(conid) LOOP
    select name
    ,      classifier_reference
    into   met_name
    ,      cla_ref
    from   ci_methods    met
    where  met.id = assertion.element;
     
    if cimaen.is_aen_att_met_name_unique(assertion.element, cla_ref, met_name, 
                                         'MET', 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, 'MET'),
            ciiutl.identify(clash_id, clash_type) );
    end if;
  END LOOP;

END check_cihmete_unique_name;

END;
/