PACKAGE BODY: APPS.GL_SYSTEM_USAGES_PKG

Source

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
6   --
7 
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
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
26 
27     OPEN usages;
28     FETCH usages INTO recinfo;
29 
30     IF usages%FOUND THEN
31       CLOSE usages;
32     ELSE
33       CLOSE usages;
34       RAISE NO_DATA_FOUND;
35     END IF;
36   EXCEPTION
37     WHEN NO_DATA_FOUND THEN
38       RETURN;
39     WHEN app_exceptions.application_exception THEN
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   --
49   -- PUBLIC FUNCTIONS
50   --
51 
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;
61     x_consolidation_ledger_flag := recinfo.consolidation_ledger_flag;
62 
63   EXCEPTION
64     WHEN NO_DATA_FOUND THEN
65       RETURN;
66     WHEN app_exceptions.application_exception THEN
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;