rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\ciatv.mpb 1.1 1998/05/28 16:04:49 mfrobins Exp $ 
rem 
Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      ciatv.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 cimatv IS

cursor elms(conid rm.reference) is
  (select a.id,a.attribute_reference,a.low_value,a.high_value
   from rm_deferred_checks d, ci_attribute_values a
   where d.assertion = conid
   and a.id = d.element);

--
-- Attribute Value for %0!s %1!s: low value (%2!s) is greater than high value
-- (%3!s)
--
PROCEDURE check_cihatve_value(conid rm.reference)
IS
BEGIN
  for atv in elms (conid) loop
    if atv.low_value > atv.high_value then
      rmman.record_check(conid,atv.id,null,null,false,'Y',
        ciiutl.identify(atv.attribute_reference, 'ATT'),atv.low_value,atv.high_value);
    else
      rmman.record_check(conid,atv.id,null,null,true);
    end if;
  end loop;
END;

END;
/