[Home] [Help]
PACKAGE BODY: APPS.GL_ENTITY_BUDGETS_PKG
Source
1 PACKAGE BODY gl_entity_budgets_pkg AS
2 /* $Header: glibdebb.pls 120.3 2005/05/05 01:01:31 kvora ship $ */
3
4 --
5 -- PUBLIC FUNCTIONS
6 --
7
8 PROCEDURE insert_budget(
9 x_budget_version_id NUMBER,
10 x_ledger_id NUMBER,
11 x_last_updated_by NUMBER,
12 x_last_update_login NUMBER) IS
13
14 BEGIN
15
16 INSERT INTO GL_ENTITY_BUDGETS
17 (budget_entity_id, budget_version_id, frozen_flag,
18 created_by, creation_date,
19 last_updated_by, last_update_date, last_update_login)
20 SELECT be.budget_entity_id, x_budget_version_id, 'N',
21 x_last_updated_by, sysdate,
22 x_last_updated_by, sysdate, x_last_update_login
23 FROM gl_budget_entities be
24 WHERE ledger_id = x_ledger_id
25 AND status_code <> 'D';
26
27 EXCEPTION
28 WHEN NO_DATA_FOUND THEN
29 RETURN;
30 WHEN app_exceptions.application_exception THEN
31 RAISE;
32 WHEN OTHERS THEN
33 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
34 fnd_message.set_token('PROCEDURE',
35 'gl_entity_budgets_pkg.insert_budget');
36 RAISE;
37 END insert_budget;
38
39 PROCEDURE insert_entity(
40 x_budget_entity_id NUMBER,
41 x_ledger_id NUMBER,
42 x_last_updated_by NUMBER,
43 x_last_update_login NUMBER) IS
44
45 BEGIN
46
47 INSERT INTO GL_ENTITY_BUDGETS
48 (budget_entity_id, budget_version_id, frozen_flag,
49 created_by, creation_date,
50 last_updated_by, last_update_date, last_update_login)
51 SELECT x_budget_entity_id, bv.budget_version_id, 'N',
52 x_last_updated_by, sysdate,
53 x_last_updated_by, sysdate, x_last_update_login
54 FROM gl_budgets b, gl_budget_versions bv
55 WHERE b.ledger_id = x_ledger_id
56 AND bv.budget_name = b.budget_name
57 AND bv.budget_type = b.budget_type;
58
59 EXCEPTION
60 WHEN NO_DATA_FOUND THEN
61 RETURN;
62 WHEN app_exceptions.application_exception THEN
63 RAISE;
64 WHEN OTHERS THEN
65 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
66 fnd_message.set_token('PROCEDURE',
67 'gl_entity_budgets_pkg.insert_entity');
68 RAISE;
69 END insert_entity;
70
71 END gl_entity_budgets_pkg;