PACKAGE BODY: APPS.GL_BC_GROUP_PKG

Source

1 PACKAGE BODY GL_BC_GROUP_PKG as
2 /* $Header: glibcgpb.pls 120.2 2005/05/05 00:59:30 kvora ship $ */
3 --
4 -- Package
5 --   gl_bc_group_pkg
6 -- Purpose
7 --   To contain validation, insertion, and update routines for gl_bc_group
8 -- History
9 --   09-12-94   Sharif Rahman 	Created
10 
11 PROCEDURE check_unique_bc_option_name(X_bc_option_name  VARCHAR2 ) IS
12   dummy    NUMBER;
13 BEGIN
14   select 1 into dummy from dual
15   where not exists
16     (select 1 from gl_bc_options
17      where bc_option_name = X_bc_option_name);
18   EXCEPTION
19     WHEN NO_DATA_FOUND THEN
20       fnd_message.set_name('SQLGL','GL_DUPLICATE_BC_GROUP');
21       app_exception.raise_exception;
22 END check_unique_bc_option_name;
23 
24 
25 FUNCTION get_unique_id RETURN NUMBER IS
26   next_id NUMBER;
27 BEGIN
28   SELECT gl_bc_options_s.nextval
29   INTO next_id
30   FROM dual;
31 
32   RETURN (next_id);
33 END get_unique_id;
34 
35 END GL_BC_GROUP_PKG;