PACKAGE BODY: APPS.GL_HISTORICAL_RANGES_PKG

Source

1 PACKAGE BODY GL_HISTORICAL_RANGES_PKG as
2 /* $Header: glirtrgb.pls 120.2 2005/05/05 01:21:32 kvora ship $ */
3 
4 
5   FUNCTION get_unique_id RETURN NUMBER IS
6     CURSOR c_getid IS
7       SELECT GL_HISTORICAL_RATE_RANGES_S.NEXTVAL
8       FROM   dual;
9     id number;
10 
11   BEGIN
12     OPEN  c_getid;
13     FETCH c_getid INTO id;
14 
15     IF c_getid%FOUND THEN
16       CLOSE c_getid;
17       RETURN( id );
18     ELSE
19       CLOSE c_getid;
20       fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
21       fnd_message.set_token('SEQUENCE', 'GL_HISTORICAL_RATE_RANGES_S');
22       app_exception.raise_exception;
23     END IF;
24 
25   EXCEPTION
26     WHEN app_exceptions.application_exception THEN
27       RAISE;
28     WHEN OTHERS THEN
29       fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
30       fnd_message.set_token('PROCEDURE',
31         'GL_HISTORICAL_RANGES_PKG.get_unique_id');
32       RAISE;
33 
34   END get_unique_id;
35 
36 
37 END GL_HISTORICAL_RANGES_PKG;