create or replace
package ciocross_obj_rule_implement as
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- File: ciocori.pkh
-- Auth: RM3 Generated
-- Date: 22nd Sep 1999, 06:12:27pm
-- Cont: Element Type Interface (Specification) for
--         product      <CI>
--         element type <CROSS_OBJ_RULE_IMPLEMENT>
--         short name   <CORI>
-- Note: Generated from database schema SCHEMA4012_D
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- Properties
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

type rm_values is record
(
  /* ELEMENT                  */ changed_by                     varchar2(30),
  /* CROSS_OBJ_RULE_IMPLEMENT */ classifier_attribute_reference number(38)  ,
  /* CROSS_OBJ_RULE_IMPLEMENT */ context                        varchar2(10),
  /* ELEMENT                  */ created_by                     varchar2(30),
  /* CROSS_OBJ_RULE_IMPLEMENT */ cross_object_rule_reference    number(38)  ,
  /* ELEMENT                  */ date_changed                   date        ,
  /* ELEMENT                  */ date_created                   date        ,
  /* INTERSECTION             */ element_type_name              varchar2(10),
  /* ELEMENT                  */ id                             number(38)  ,
  /* CIELEMENT                */ irid                           number(38)  ,
  /* CIELEMENT                */ ivid                           number(38)  ,
  /* CROSS_OBJ_RULE_IMPLEMENT */ language_reference             number(38)  ,
  /* CROSS_OBJ_RULE_IMPLEMENT */ method_reference               number(38)  ,
  /* ELEMENT                  */ number_of_times_modified       number(38)  ,
  /* CROSS_OBJ_RULE_IMPLEMENT */ operator                       varchar2(2) ,
  /* STRUCTURE_ELEMENT        */ pac_reference                  number(38)  ,
  /* STRUCTURE_ELEMENT        */ parent_ivid                    number(38)  ,
  /* ELEMENT                  */ types                          number(38)
);

type rm_indicators is record
(
  changed_by                     boolean not null default false,
  classifier_attribute_reference boolean not null default false,
  context                        boolean not null default false,
  created_by                     boolean not null default false,
  cross_object_rule_reference    boolean not null default false,
  date_changed                   boolean not null default false,
  date_created                   boolean not null default false,
  element_type_name              boolean not null default false,
  id                             boolean not null default false,
  irid                           boolean not null default false,
  ivid                           boolean not null default false,
  language_reference             boolean not null default false,
  method_reference               boolean not null default false,
  number_of_times_modified       boolean not null default false,
  operator                       boolean not null default false,
  pac_reference                  boolean not null default false,
  parent_ivid                    boolean not null default false,
  types                          boolean not null default false
);

type data is record
(
 v rm_values,
 i rm_indicators
);


-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- Operations
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

--
-- upd
--
procedure upd
(
  id in     number,
  pl in out NOCOPY data
);

--
-- lck
--
procedure lck
(
  id in number
);

--
-- ins
--
procedure ins
(
  id in     number,
  pl in out NOCOPY data
);

--
-- sel
--
procedure sel
(
  id in     number,
  pl in out NOCOPY data
);

--
-- del
--
procedure del
(
  id in number
);


-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- Constraints
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

procedure constraint_check(rec in data,isins in boolean);
procedure traverse_to_root(cid IN number, eid IN number, is_requery IN boolean);
procedure check_traversals;
procedure check_references;
procedure copy_sac(i_irid in number
                  ,pl in out NOCOPY data
                  ,ensure_unique in varchar2 default 'Y'
                  ,deep in varchar2 default 'Y'
                  ,copy_deps_policy in varchar2 default 'Y');


-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- Exceptions
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

element_locked exception;
  element_locked_fac  constant varchar2(3) := 'RME';
  element_locked_code constant number      := 10;
invalid_ref exception;
  invalid_ref_fac  constant varchar2(3) := 'RME';
  invalid_ref_code constant number      := 9;
operation_failed exception;
  operation_failed_fac  constant varchar2(3) := 'RME';
  operation_failed_code constant number      := 11;

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

is_installed boolean := false;

end ciocross_obj_rule_implement;
/

REM End of ciocori.pkh