1: PACKAGE BODY gl_system_usages_pkg AS
2: /* $Header: glistsub.pls 120.4 2005/05/05 01:24:19 kvora ship $ */
3:
4: --
5: -- PRIVATE FUNCTIONS
8: --
9: -- Procedure
10: -- select_row
11: -- Purpose
12: -- Gets the row from gl_system_usages
13: -- History
14: -- 11-DEC-1995 D J Ogg Created.
15: -- Arguments
16: -- recinfo gl_system_usages
12: -- Gets the row from gl_system_usages
13: -- History
14: -- 11-DEC-1995 D J Ogg Created.
15: -- Arguments
16: -- recinfo gl_system_usages
17: -- Example
18: -- select_row.recinfo;
19: -- Notes
20: --
17: -- Example
18: -- select_row.recinfo;
19: -- Notes
20: --
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_system_usages%ROWTYPE ) IS
22: CURSOR usages IS
23: SELECT *
24: FROM gl_system_usages;
25: BEGIN
20: --
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_system_usages%ROWTYPE ) IS
22: CURSOR usages IS
23: SELECT *
24: FROM gl_system_usages;
25: BEGIN
26:
27: OPEN usages;
28: FETCH usages INTO recinfo;
40: RAISE;
41: WHEN OTHERS THEN
42: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
43: fnd_message.set_token('PROCEDURE',
44: 'gl_system_usages_pkg.select_row');
45: RAISE;
46: END select_row;
47:
48: --
52: PROCEDURE select_columns(
53: x_average_balances_flag IN OUT NOCOPY VARCHAR2,
54: x_consolidation_ledger_flag IN OUT NOCOPY VARCHAR2) IS
55:
56: recinfo gl_system_usages%ROWTYPE;
57:
58: BEGIN
59: select_row( recinfo );
60: x_average_balances_flag := recinfo.average_balances_flag;
67: RAISE;
68: WHEN OTHERS THEN
69: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
70: fnd_message.set_token('PROCEDURE',
71: 'gl_system_usages_pkg.select_columns');
72: RAISE;
73: END select_columns;
74:
75: END gl_system_usages_pkg;
71: 'gl_system_usages_pkg.select_columns');
72: RAISE;
73: END select_columns;
74:
75: END gl_system_usages_pkg;