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
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;
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:
32: RAISE;
33: END get_open_flag;
34:
35:
36: END gl_budget_period_ranges_pkg;