create or replace
package ciodiagram_segment as
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-- File: cioseg.pkh
-- Auth: RM3 Generated
-- Date: 22nd Sep 1999, 06:39:53pm
-- Cont: Element Type Interface (Specification) for
--         product      <CI>
--         element type <DIAGRAM_SEGMENT>
--         short name   <SEG>
-- 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        ,
  /* DIAGRAM_SEGMENT           */ diagram_reference        number(38)  ,
  /* ACCESS_CONTROLLED_ELEMENT */ element_type_name        varchar2(10),
  /* DIAGRAM_SEGMENT           */ graphical_data           raw(240)    ,
  /* ELEMENT                   */ id                       number(38)  ,
  /* CIELEMENT                 */ irid                     number(38)  ,
  /* CIELEMENT                 */ ivid                     number(38)  ,
  /* ELEMENT                   */ number_of_times_modified number(38)  ,
  /* SECONDARY_ACCESS_ELEMENT  */ pac_reference            number(38)  ,
  /* SECONDARY_ACCESS_ELEMENT  */ parent_ivid              number(38)  ,
  /* DIAGRAM_SEGMENT           */ sequence                 number(38)  ,
  /* ELEMENT                   */ types                    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,
  diagram_reference        boolean not null default false,
  element_type_name        boolean not null default false,
  graphical_data           boolean not null default false,
  id                       boolean not null default false,
  irid                     boolean not null default false,
  ivid                     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                 boolean not null default false,
  types                    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 ciodiagram_segment;
/

REM End of cioseg.pkh