rem 
rem $Header: L:\\\\model\\repman40\\api\\RCS\\ciacc.ips 1.2 1998/08/03 17:27:58 cvanes Exp $ 
rem 
Rem  Copyright (c) 1993 by Oracle Corporation 
Rem    NAME
Rem      ciiacc.pkh - <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     wstallar   10/02/99 -  Modified for Oracle Repository 6.1
Rem                            Use jr_acc_rights package.
Rem     aheath     07/11/94 -  Creation 
Rem     jwetherb   08/09/93 -  Creation 

CREATE OR REPLACE PACKAGE ciiacc AS

  enabled		boolean;
  incr			number	DEFAULT -1;
  code_controls_rowid	rowid;
  app_sys_locked	boolean DEFAULT false;
  app_sys_invalid	boolean DEFAULT false;

  subtype access_type is number;

  app_sys_not_owner	     EXCEPTION;
  element_already_exists EXCEPTION;
  event_exists		     EXCEPTION;
  rel_exists		     EXCEPTION;
  dataflow_exists	     EXCEPTION;
  no_read_privs	         EXCEPTION;
  insufficient_privs     EXCEPTION;
  parent_app_sys	     EXCEPTION;
  element_not_found	     EXCEPTION;
  wrong_element_type	 EXCEPTION;
  wrong_owner		     EXCEPTION;

  
  access_privilege	sdd_acc_priv_list;

  PROCEDURE check_access_rights(id rm.reference
                               ,type varchar2
                               ,acc_type varchar2
                               ,supertype varchar2 default null);
                               
  PROCEDURE check_pac(id rm.reference,type varchar2,acc_type varchar2);
  
  PROCEDURE check_pac(id       rm.reference
	                 ,type     varchar2
                     ,acc_type access_type);
                     
  PROCEDURE check_sac(id rm.reference
                     ,type varchar2
                     ,acc_type varchar2
                     ,pac_id rm.reference
                     ,pac_type varchar2);
                     
  PROCEDURE check_sac(
	id		rm.reference,
	type		varchar2,
	acc_type	access_type,
	pac_id		rm.reference,
	pac_type	varchar2);


  FUNCTION privileged(app_sys rm.reference,acc_type number) RETURN boolean;

  PROCEDURE initialize;


-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- Globals
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

is_installed boolean := false;

END ciiacc;
/

REM ciiacc