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;