rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\cifunatt.mpb 1.1 1998/05/28 16:20:32 mfrobins Exp $ 
rem 
Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      cifunatt.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     08/01/96 -  Creation 
Rem     aheath     07/11/94 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimfunatt IS

cursor elms(conid rm.reference) is
  (select f.id,attribute_reference,function_reference,entity_reference,
          insert_flag,nullify_flag,retrieve_flag,update_flag
   from rm_deferred_checks d, ci_function_attribute_usages f
   where d.assertion = conid
   and f.id = d.element);

--
-- Function attribute usage: mismatch in usage flags between Entity %0!s 
-- and Attribute %1!s for Function %2!s
--
PROCEDURE check_cihfunatte_usage(conid rm.reference) IS
  funent_create varchar2(1);
  funent_retrieve varchar2(1);
  funent_update varchar2(1);
BEGIN
  for funatt in elms(conid) loop
    begin
      select create_flag,retrieve_flag,update_flag
      into funent_create,funent_retrieve,funent_update
      from ci_function_entity_usages
      where entity_reference = funatt.entity_reference
      and function_reference = funatt.function_reference;

      if (funent_create is null and funent_update is null and
          (funatt.insert_flag = 'Y' or funatt.update_flag='Y' or 
           funatt.nullify_flag='Y')) or
         (funent_retrieve is null and funatt.retrieve_flag='Y') then
        rmman.record_check(conid,funatt.id,null,null,false,'Y',
          ciiutl.identify(funatt.entity_reference, 'ENT'),
          ciiutl.identify(funatt.attribute_reference, 'ATT'),
          ciiutl.identify(funatt.function_reference, 'FUN'));
      else
        rmman.record_check(conid,funatt.id,null,null,true);
      end if;
    exception
      when no_data_found then
        null;
    end;
  end loop;
END;

END;
/