rem rem $Header: L:\\\\model\\repman40\\api\\RCS\\cilok.ips 1.1 1998/05/28 16:28:07 mfrobins Exp $ rem Rem Copyright (c) 1993 by Oracle Corporation Rem NAME Rem ciilok.pkh - Rem DESCRIPTION Rem Rem RETURNS Rem Rem NOTES Rem Rem MODIFIED (MM/DD/YY) Rem jwetherb 10/20/94 - Move default constants to package body Rem aheath 07/11/94 - Creation Rem jwetherb 08/09/93 - Creation CREATE OR REPLACE PACKAGE ciilok IS TYPE NumberArray is TABLE of NUMBER INDEX BY BINARY_INTEGER; FUNCTION idgen RETURN number; PROCEDURE idgen(current_array in out NumberArray, num_seq number); PROCEDURE reset_idgen(sequence_id number); -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- Globals -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - is_installed boolean := false; END; /