rem
rem $Header: L:\\\\model\\repman40\\api\\RCS\\ciappcon.opb 1.8 1998/11/10 19:48:21 cvanes Exp $
rem
Rem  Copyright (c) 1994 by Oracle Corporation
Rem    NAME
Rem      ciappcon.opb - <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    15/10/98 -  Add ownership_flag to APPXXX insert
Rem     jwetherb   10/13/94 -  For backwards compat, UID check TAB too
Rem     jwetherb   09/20/94 -  Perform UID checks for TBL,VW,etc instead of TAB
Rem jwetherb   09/01/94 -  Add EXT to UID2 list
Rem jwetherb   09/01/94 -  Remove all references to INT_EXT_FLAG
Rem jwetherb   07/24/94 -  add traverse procedure
Rem jwetherb   07/24/94 -  Check U2 only for BUN, DST, and MOD
Rem jwetherb   07/20/94 -  storing APP_SYS_NAME in APPxxx elements
Rem     aheath     07/08/94 -  Creation
CREATE or REPLACE PACKAGE BODY cioapp_con_interface AS

PROCEDURE ins(appcon_id in out rm.reference,pac_ref rm.reference,
  app_sys_ref rm.reference,pac_type varchar2)
IS
  tmp number;
BEGIN
  -- Removed all code to create folder members as now done in the triggers
  -- Code changed for config 4.0.9

  -- Project Containers cannot own objects   #1058440
  if cdapi.context_container_subtype = 'PRJ' then
    ciierr.fatal(6100,ciiutl.identify(cdapi.app_sys_ref, 'CEL'));
  end if;
  
  -- Now APPXXX is created in trigger, must query its irid back.
  -- Should be fast as only just inserted, so still in SGA
  -- plus there should only be one, as this is only called at element insert
  -- (not share). (I'll still MAX it just to be defensive).

  if cioapp_con_interface.disable_unique_check then
    return;
  end if;

  select max(fm.irid)
    into appcon_id
    from sdd_folder_members fm
   where fm.member_object = ins.pac_ref;

  -- Dispatch the UID1 constraint check
  rmman.log_change('CIHAPPCONU1',appcon_id);

END;

--=========================== TRAVERSE TO ROOT ==============================--

procedure traverse_to_root(cid number, eid number, is_requery boolean)
is
begin
  for root in (
    select v1.irid p1
      from sdd_folder_members v1
     where v1.member_object = traverse_to_root.eid) loop
    rmman.log_change(cid,root.p1);
  end loop;
end traverse_to_root;

--=============================== TRAVERSE ==================================--

procedure traverse(assertion_name varchar2, element_id number,
  appxxx_type varchar2)
is
  assertion_id number;
begin

  if assertion_name = 'CIHAPPCONU1' and cioapp_con_interface.disable_unique_check then
    return;
  end if;

  select id into assertion_id from rm_assertions where name = assertion_name;
  for root in (
    select v1.irid p1
      from sdd_folder_members v1
     where v1.member_object = traverse.element_id) loop
    rmman.log_change(assertion_id,root.p1);
  end loop;
end traverse;

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

END;
/