Rem  Copyright (c) 1999 by Oracle Corporation 
Rem    NAME
Rem      civli.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    09/11/99 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimvli IS

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

--============================= CHECK VLE PAIR ================================--

FUNCTION check_vle_pair(view_link_ref number) RETURN boolean
IS
  dummy number;
BEGIN

  SELECT count(vle1.id) 
  INTO   dummy
  FROM   ci_view_link_ends   vle1
  ,      ci_view_link_ends   vle2
  WHERE  vle1.view_link_reference = check_vle_pair.view_link_ref
  AND    vle1.view_link_reference = vle2.view_link_reference
  AND    vle1.id <> vle2.id
  AND    vle1.master_detail_indicator <> vle2.master_detail_indicator;
   
  if dummy = 1 then
    return true;
  else
    return false;
  end if;
END;

--============================ CIHVLIE_TWO_ENDS =============================--

  -- %0!s: A View Link must have exactly two View Link ends
PROCEDURE check_cihvlie_two_ends(conid rm.reference)
IS
BEGIN
  for view_links in c_vli(conid) loop
    if check_vle_pair(view_links.element) then 
      rmman.record_check(conid,view_links.element,null,null,true);
    else 
      rmman.record_check(conid,view_links.element,null,null,false,'Y',
            ciiutl.identify(view_links.element, 'VLI'));
    end if;
    
  end loop;

END check_cihvlie_two_ends;

END;
/