create or replace
package cioobject_state as
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- File: cioost.pkh
-- Auth: RM3 Generated
-- Date: 22nd Sep 1999, 08:23:37pm
-- Cont: Element Type Interface (Specification) for
--         product      <CI>
--         element type <OBJECT_STATE>
--         short name   <OST>
-- Note: Generated from database schema SCHEMA4012_D
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

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

type rm_values is record
(
  /* OBJECT_STATE              */ business_object_reference    number(38)   ,
  /* ELEMENT                   */ changed_by                   varchar2(30) ,
  /* OBJECT_STATE              */ classifier_reference         number(38)   ,
  /* ELEMENT                   */ created_by                   varchar2(30) ,
  /* ELEMENT                   */ date_changed                 date         ,
  /* ELEMENT                   */ date_created                 date         ,
  /* ACCESS_CONTROLLED_ELEMENT */ element_type_name            varchar2(10) ,
  /* OBJECT_STATE              */ icon_file_reference          number(38)   ,
  /* ELEMENT                   */ id                           number(38)   ,
  /* CIELEMENT                 */ irid                         number(38)   ,
  /* CIELEMENT                 */ ivid                         number(38)   ,
  /* OBJECT_STATE              */ name                         varchar2(100),
  /* ELEMENT                   */ number_of_times_modified     number(38)   ,
  /* OBJECT_STATE              */ object_state_for             varchar2(3)  ,
  /* SECONDARY_ACCESS_ELEMENT  */ pac_reference                number(38)   ,
  /* SECONDARY_ACCESS_ELEMENT  */ parent_ivid                  number(38)   ,
  /* ELEMENT                   */ types                        number(38)   ,
  /* OBJECT_STATE              */ workflow_item_type_reference number(38)   ,
  /* OBJECT_STATE              */ workflow_mess_type_reference number(38)
);

type rm_indicators is record
(
  business_object_reference    boolean not null default false,
  changed_by                   boolean not null default false,
  classifier_reference         boolean not null default false,
  created_by                   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,
  icon_file_reference          boolean not null default false,
  id                           boolean not null default false,
  irid                         boolean not null default false,
  ivid                         boolean not null default false,
  name                         boolean not null default false,
  number_of_times_modified     boolean not null default false,
  object_state_for             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,
  workflow_item_type_reference boolean not null default false,
  workflow_mess_type_reference boolean not null default false
);

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


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

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

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

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

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

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


-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- 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 cioobject_state;
/

REM End of cioost.pkh