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

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


--============================ CIHORGE_LOOP_CHECK =============================--
--%0!s: The Name must be unique in the owning object
PROCEDURE check_cihorge_loop_check(conid rm.reference)
IS
  dummy number;
BEGIN
        
  FOR org_rec in org_c(conid) LOOP

    begin
      select count(*)
        into dummy
        from i$sdd_org org
     connect by org.organization_unit_ref = prior org.irid
         and jr_vn.context(org.ivid) > 0
       start with org.irid = org_rec.element;

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

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

END;
/