create or replace
package cioevent_action as
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- File: cioeva.pkh
-- Auth: RM3 Generated
-- Date: 22nd Sep 1999, 06:54:47pm
-- Cont: Element Type Interface (Specification) for
--         product      <CI>
--         element type <EVENT_ACTION>
--         short name   <EVA>
-- Note: Generated from database schema SCHEMA4012_D
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

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

type rm_values is record
(
  /* ELEMENT                   */ changed_by                   varchar2(30) ,
  /* ELEMENT                   */ created_by                   varchar2(30) ,
  /* ELEMENT                   */ date_changed                 date         ,
  /* ELEMENT                   */ date_created                 date         ,
  /* ACCESS_CONTROLLED_ELEMENT */ element_type_name            varchar2(10) ,
  /* USE_CASE_ACTION           */ general_action_reference     number(38)   ,
  /* ELEMENT                   */ id                           number(38)   ,
  /* CIELEMENT                 */ irid                         number(38)   ,
  /* CIELEMENT                 */ ivid                         number(38)   ,
  /* USE_CASE_ACTION           */ name                         varchar2(100),
  /* ELEMENT                   */ number_of_times_modified     number(38)   ,
  /* SECONDARY_ACCESS_ELEMENT  */ pac_reference                number(38)   ,
  /* SECONDARY_ACCESS_ELEMENT  */ parent_ivid                  number(38)   ,
  /* USE_CASE_ACTION           */ sequence_in_parent           number(6)    ,
  /* ELEMENT                   */ types                        number(38)   ,
  /* USE_CASE_ACTION           */ use_case_action_subtype      varchar2(3)  ,
  /* EVENT_ACTION              */ use_case_event_out_reference number(38)   ,
  /* USE_CASE_ACTION           */ use_case_reference           number(38)
);

type rm_indicators is record
(
  changed_by                   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,
  general_action_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,
  pac_reference                boolean not null default false,
  parent_ivid                  boolean not null default false,
  sequence_in_parent           boolean not null default false,
  types                        boolean not null default false,
  use_case_action_subtype      boolean not null default false,
  use_case_event_out_reference boolean not null default false,
  use_case_reference           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 cioevent_action;
/

REM End of cioeva.pkh