rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\cient.mpb 1.1 1998/12/16 16:40:56 cvanes Exp $ 
rem 
Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      cient.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     loldham    16/12/98 -  Remove denormalised supertype_name
Rem     cvanes     08/01/96 -  Creation 
Rem     aheath     07/11/94 -  Creation 
CREATE OR REPLACE PACKAGE BODY ciment IS

cursor elms(conid rm.reference) is
  (select e.id,e.supertype_reference,
          e.name
   from rm_deferred_checks d, ci_entities e
   where d.assertion = conid
   and e.id = d.element);
--
-- Supertype %0!s specified for entity %1!s is a subtype of that entity
--
PROCEDURE check_cihente_super_is_sub(conid rm.reference) IS
  superid rm.reference;

  cursor walk_up (p_supertype number) is
     select id, supertype_reference
     from ci_entities
     where id = p_supertype;
  cur_supertype number;
BEGIN
  rmdbg.trace('In check_cihente_super_is_sub');
  for ent in elms(conid) loop
    begin
      cur_supertype := ent.supertype_reference;
      while (cur_supertype <> 0) loop
        rmdbg.trace('cur_supertype: '||to_char(cur_supertype)||'Ent: '||to_char(ent.id));
        if cur_supertype = ent.id then
          rmman.record_check(conid,ent.id,null,null,false,'Y',
              ciiutl.identify(ent.id, 'ENT'),ciiutl.identify(ent.supertype_reference, 'ENT'));
          raise value_error;
        end if;
        cur_supertype := cihent.get_supertype(cur_supertype);
      end loop;

/*      for super in (select irid,supertype_ref
                    from sdd_ent
		    connect by irid = prior supertype_ref
		    start with irid = ent.supertype_reference) loop
        if super.irid = ent.id then
          rmman.record_check(conid,ent.id,null,null,false,'Y',
            ciiutl.identify(ent.id, 'ENT'),ciiutl.identify(ent.supertype_reference, 'ENT'));
          raise value_error;
        end if;
      end loop; */
      rmman.record_check(conid,ent.id,null,null,true);
    exception
      when value_error then null;
      when others then
      rmdbg.trace('Exception in check_cihente_super_is_sub sqlcode:'||to_char(sqlcode));
    end;
  end loop;
END; 

END;
/