[Home] [Help]
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;