Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      ciuscusc.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     11/15/99 -  Creation 

CREATE OR REPLACE PACKAGE BODY cimuscusc IS

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


--============================ CIHUSCUSCE_LOOP =============================--
--%0!s: The Name must be unique in the owning object
PROCEDURE check_cihuscusce_loop(conid rm.reference)
IS
  dummy number;
BEGIN
  FOR elem_rec in element_c(conid) LOOP
    begin
      select count(*)
        into dummy
        from i$sdd_uscusc uscusc
     connect by uscusc.subtype_ref = prior uscusc.supertype_ref
         and jr_vn.context(uscusc.parent_ivid) > 0
       start with uscusc.irid = elem_rec.element;

      rmman.record_check(conid,elem_rec.element,null,null,true);

    exception
      when others then
        if sqlcode = -1436 then
          rmman.record_check(conid,elem_rec.element,null,null,false,'Y'
                ,ciiutl.identify(elem_rec.element, 'USCUSC'));
        else
          raise;
        end if;
    end;
  end loop;
END;

END;
/