PACKAGE BODY: APPS.GL_BUDGET_PERIOD_RANGES_PKG

Source

1 PACKAGE BODY gl_budget_period_ranges_pkg AS
2 /* $Header: glibprab.pls 120.3 2005/05/05 01:03:09 kvora ship $ */
3 
4   --
5   -- PUBLIC FUNCTIONS
6   --
7 
8   PROCEDURE get_open_flag     (x_budget_version_id      NUMBER,
9 			       x_period_year		NUMBER,
10 			       x_open_flag   IN OUT NOCOPY	VARCHAR2) IS
11 
12     CURSOR get_open_flag IS
13       SELECT open_flag
14       FROM   gl_budget_period_ranges
15       WHERE  budget_version_id = x_budget_version_id
16       AND    period_year       = x_period_year;
17   BEGIN
18     OPEN get_open_flag;
19     FETCH get_open_flag INTO x_open_flag;
20     CLOSE get_open_flag;
21 
22 
23   EXCEPTION
24     WHEN NO_DATA_FOUND THEN
25       RETURN;
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_budget_period_ranges.get_open_flag');
32       RAISE;
33 END get_open_flag;
34 
35 
36 END gl_budget_period_ranges_pkg;