[Home] [Help]
PACKAGE BODY: APPS.GL_BUDGET_VERSIONS_PKG
Source
1 PACKAGE BODY gl_budget_versions_pkg AS
2 /* $Header: glibdveb.pls 120.3 2005/05/05 01:02:21 kvora ship $ */
3
4 ---
5 --- PRIVATE FUNCTIONS
6 ---
7
8 --
9 -- Procedure
10 -- select_row
11 -- Purpose
12 -- Gets the row from gl_budget_versions associated with
13 -- the given budget.
14 -- History
15 -- 01-NOV-94 D J Ogg Created.
16 -- Arguments
17 -- recinfo A row from gl_budget_versions
18 -- Example
19 -- gl_budget_versions_pkg.select_row(recinfo);
20 -- Notes
21 --
22 PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budget_versions%ROWTYPE ) IS
23 BEGIN
24 SELECT *
25 INTO recinfo
26 FROM gl_budget_versions
27 WHERE budget_version_id = recinfo.budget_version_id;
28 EXCEPTION
29 WHEN NO_DATA_FOUND THEN
30 RETURN;
31 WHEN app_exceptions.application_exception THEN
32 RAISE;
33 WHEN OTHERS THEN
34 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
35 fnd_message.set_token('PROCEDURE',
36 'gl_budget_versions.select_row');
37 RAISE;
38 END select_row;
39
40
41 --
42 -- PUBLIC FUNCTIONS
43 --
44
45 PROCEDURE insert_record(
46 x_budget_version_id NUMBER,
47 x_budget_name VARCHAR2,
48 x_status VARCHAR2,
49 x_master_budget_ver_id NUMBER,
50 x_last_updated_by NUMBER,
51 x_last_update_login NUMBER) IS
52 BEGIN
53
54 INSERT INTO GL_BUDGET_VERSIONS
55 (budget_version_id, budget_type, budget_name, version_num,
56 description, status, date_opened, date_active, date_archived,
57 creation_date, created_by, last_update_date, last_updated_by,
58 last_update_login, control_budget_version_id)
59 VALUES
60 (x_budget_version_id, 'standard', x_budget_name, 1,
61 'first version', x_status, sysdate, null, null,
62 sysdate, x_last_updated_by, sysdate, x_last_updated_by,
63 x_last_update_login, x_master_budget_ver_id);
64
65 EXCEPTION
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_budget_versions_pkg.insert_record');
72 RAISE;
73 END insert_record;
74
75
76 PROCEDURE update_record(
77 x_budget_version_id NUMBER,
78 x_budget_name VARCHAR2,
79 x_status VARCHAR2,
80 x_master_budget_ver_id NUMBER,
81 x_last_updated_by NUMBER,
82 x_last_update_login NUMBER) IS
83 BEGIN
84
85 UPDATE gl_budget_versions
86 SET status = x_status,
87 budget_name = x_budget_name,
88 control_budget_version_id = x_master_budget_ver_id,
89 last_update_date = sysdate,
90 last_updated_by = x_last_updated_by,
91 last_update_login = x_last_update_login
92 WHERE budget_version_id = x_budget_version_id;
93
94 exception
95 WHEN app_exceptions.application_exception THEN
96 RAISE;
97 WHEN OTHERS THEN
98 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
99 fnd_message.set_token('PROCEDURE',
100 'gl_budget_versions_pkg.update_record');
101 RAISE;
102 END update_record;
103
104 PROCEDURE select_columns(
105 x_budget_version_id NUMBER,
106 x_budget_name IN OUT NOCOPY VARCHAR2 ) IS
107
108 recinfo gl_budget_versions%ROWTYPE;
109
110 BEGIN
111 recinfo.budget_version_id := x_budget_version_id;
112 select_row( recinfo );
113 x_budget_name := recinfo.budget_name;
114
115 EXCEPTION
116 WHEN NO_DATA_FOUND THEN
117 RETURN;
118 WHEN app_exceptions.application_exception THEN
119 RAISE;
120 WHEN OTHERS THEN
121 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
122 fnd_message.set_token('PROCEDURE',
123 'gl_encumbrance_types.select_columns');
124 RAISE;
125 END select_columns;
126
127
128 END gl_budget_versions_pkg;