rem
rem $Header: L:\\\\model\\repman40\\api\\RCS\\CIUTL.IPS 1.3 1998/12/30 15:02:35 loldham Exp $
rem
Rem  Copyright (c) 1993 by Oracle Corporation
Rem    NAME
Rem      ciiutl.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     jwetherb   10/24/94 -  Provide default for pac_name in create_appxxx
Rem     jwetherb   10/03/94 -  Add identify_str function; rm.reference->number
Rem     jwetherb   09/28/94 -  Add occur_type to el_exists function
Rem     jwetherb   09/01/94 -  Remove entity_type param from create_appxxx
Rem     jwetherb   08/29/94 -  Add ref_meaning to in_domain func()
Rem     aheath     07/11/94 -  Creation
Rem     jwetherb   08/09/93 -  Creation
CREATE OR REPLACE PACKAGE ciiutl as

  TYPE NameTabTyp is TABLE of VARCHAR2(100) INDEX BY BINARY_INTEGER;

  FUNCTION get_role_name(element_ref number)
  RETURN varchar2;

  FUNCTION is_number(p1 varchar2) RETURN boolean;

  PROCEDURE delete_element(
        el_reference    number,
        el_type         varchar2,
--        el_ty   number,
        par_reference   number    default null,
        par_type        varchar2  default null);

  FUNCTION type_name(short_name varchar2) RETURN varchar2;

  FUNCTION el_exists(id number,type varchar2,
  occur_type varchar2 default null) RETURN boolean;

  FUNCTION in_context_appsys(id number,type varchar2) RETURN boolean;

  PROCEDURE adjust_datatype_sizes(id number,type_of varchar2,
        format in varchar2,maximum_length in out number,
        precision in out number,
        ref_domain_name in varchar2 default 'DATA_FORMAT',
        average_length in number default 0);

  PROCEDURE create_appxxx(pac_type_of varchar2,pac_ref number,
    pac_name varchar2 default null,app_sys_ref number default cdapi.app_sys_ref,
    app_sys_name varchar2 default cdapi.app_sys_name);

  FUNCTION in_domain(value varchar2,domain varchar2,
    meaning varchar2 default null) RETURN boolean;

  FUNCTION identify(id number, types number) RETURN varchar2;

  FUNCTION identify(id number, short_name varchar2) RETURN varchar2;

  FUNCTION nls_type_name(type_name varchar2) RETURN varchar2;

  FUNCTION nls_type_plural_name(type_name varchar2) RETURN varchar2;

  FUNCTION nls_property_name(type_name varchar2, property_name varchar2)
    RETURN varchar2;

  FUNCTION nls_type_name_s(type_name in varchar2) RETURN varchar2;
  FUNCTION nls_type_plural_name_s(type_name in varchar2) RETURN varchar2;
  FUNCTION is_reserved_word(word in varchar2) RETURN boolean;

  FUNCTION unique_name(new_name in varchar2, current_name_list in NameTabTyp,
                       type_name in varchar2)
  RETURN varchar2;

  PROCEDURE name_mangle(irid in number, type_id in number, is_reg_type in boolean default false);

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

is_installed boolean := false;

END;
/