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

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


--============================ CIHEPAE_NAME_UNIQUE =============================--
--%0!s: The Name must be unique within a single Use Case
PROCEDURE check_cihepa_name_unique(conid rm.reference)

IS
  dummy number;
 
BEGIN
        
  FOR epa_rec in epa_c(conid) LOOP
    
    select count(*) into dummy 
    from    ci_extension_points this
           ,ci_extension_points other
    where   this.name = other.name
    and     this.use_case_reference = other.use_case_reference
    and     this.irid != other.irid
    and     this.irid = epa_rec.element;
  
    if dummy > 0 then 
      rmman.record_check(conid,epa_rec.element,null,null,false,'Y'
                ,ciiutl.identify(epa_rec.element, 'EPA'));
    else
      rmman.record_check(conid,epa_rec.element,null,null,true);
    end if;
    
  END LOOP;
 
END;



END;
/