rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\ciind.mpb 1.1 1998/05/28 16:24:50 mfrobins Exp $ 
rem 
Rem  Copyright (c) 1994 by Oracle Corporation 
Rem    NAME
Rem      ciind.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     jwetherb   10/05/94 -  Creation 
CREATE OR REPLACE PACKAGE BODY cimind IS

  -- Retrieve list of index CLUSTER_REFERENCEs for each deferred check
  cdapi_activity number;
  cursor myinds(constraint_id number) is
    select cluster_reference ocl_ref
    from ci_cluster_indexes ind,rm_deferred_checks dc
    where assertion = constraint_id
    and activity = cdapi_activity
    and dc.element = ind.id;

  cursor myelm(ocl_ref number) is
    select ind.id ind_ref
    from ci_cluster_indexes ind,ci_app_sys_clusters appocl
    where ind.cluster_reference = ocl_ref
    and appocl.cluster_reference = ocl_ref
    and appocl.application_system_reference = cdapi.app_sys_ref;

--============================ CHECK_CIHINDU1 =============================--

PROCEDURE check_cihindu1(conid number) IS
BEGIN
  cimdbobj.check_cihdbobju1(conid);
END; 

--============================ CHECK_CIHINDU2 =============================--

PROCEDURE check_cihindu2(conid number)
IS
  idx number;
  prev myelm%rowtype;
BEGIN
  rmman.record_check(conid,null,null,null,true);
  -- For each ind
  cdapi_activity := cdapi.activity;
  for ind in myinds (conid) loop
    idx := 0;
    for erec in myelm(ind.ocl_ref) loop
      if idx <> 0 then
        if idx = 1 then
          rmman.record_check(conid,prev.ind_ref,null,cdapi.activity,false,'Y',
            ciiutl.identify(prev.ind_ref, 'CIN'),ciiutl.identify(ind.ocl_ref, 'OCL'),
	    ciiutl.identify(cdapi.app_sys_ref, 'CEL'));
        end if;
        rmman.record_check(conid,erec.ind_ref,null,cdapi.activity,false,'Y',
          ciiutl.identify(erec.ind_ref, 'CIN'),ciiutl.identify(ind.ocl_ref, 'OCL'),
	  ciiutl.identify(cdapi.app_sys_ref, 'CEL'));
      end if;
      idx := idx + 1;
      prev := erec;
    end loop;
  end loop;
END;

--================================== END ====================================--

END;
/