Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      civoa.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     cvanes     27/10/99 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimdsy IS

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

cursor cel_c(elem_irid number) is
  select fm.folder_reference irid
    from ci_folder_members fm
        ,ci_database_synonyms dsy
   where fm.member_object = dsy.pac_reference
     and dsy.irid = elem_irid;

--============================ CIHDSYE_UNIQUE_NAME =============================--
-- %0!s: The Name must be unique in the owning object
PROCEDURE check_cihdsye_unique_name(conid rm.reference)
IS
  clash_id number;
  clash_type number;
BEGIN

  for assertion in ass_c(conid) loop
    for cel in cel_c(assertion.element) loop
      --dbms_output.put_line('Checking ' || cel.irid || ',' || assertion.element);
      -- check that synonym is unique from other objects (To fix B598693)
      if cimappcon.is_pac_name_unique(cel.irid, assertion.element, 'DSY', clash_id, clash_type) then
        --dbms_output.put_line('TRUE');
        rmman.record_check(conid,assertion.element,null,null,true);
      else
        --dbms_output.put_line('FALSE ' || clash_type);
        rmman.record_check(conid,assertion.element,null,null,false,'Y',
                           ciiutl.identify(assertion.element, 'DSY'),
                           ciiutl.identify(cel.irid, 'CEL'),
                           ciiutl.identify(clash_id, clash_type) );
      end if;
    end loop;
  end loop;
end check_cihdsye_unique_name;
END;
/