[Home] [Help]
PACKAGE BODY: APPS.GL_BUDGET_BATCHES_PKG
Source
1 PACKAGE BODY gl_budget_batches_pkg AS
2 /* $Header: glibdbtb.pls 120.6 2005/05/05 01:00:59 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) IS
12
13 BEGIN
14
15 INSERT INTO GL_BUDGET_BATCHES
16 (budget_version_id, recurring_batch_id,
17 status, last_update_date, last_updated_by)
18 SELECT
19 x_budget_version_id, recurring_batch_id,
20 'U', sysdate, x_last_updated_by
21 FROM gl_recurring_batches
22 WHERE budget_flag = 'Y'
23 AND ledger_id = x_ledger_id;
24
25 EXCEPTION
26 WHEN NO_DATA_FOUND THEN
27 RETURN;
28 WHEN app_exceptions.application_exception THEN
29 RAISE;
30 WHEN OTHERS THEN
31 fnd_message.set_name('FND', 'GL_UNHANDLED_EXCEPTION');
32 fnd_message.set_token('PROCEDURE',
33 'gl_budget_batches_pkg.insert_budget');
34 RAISE;
35 END insert_budget;
36
37
38
39 PROCEDURE insert_recurring(
40 x_recurring_batch_id NUMBER,
41 x_last_updated_by NUMBER) IS
42
43 BEGIN
44
45 INSERT INTO GL_BUDGET_BATCHES
46 (budget_version_id, recurring_batch_id,
47 status, last_update_date, last_updated_by)
48 SELECT
49 budget_version_id, x_recurring_batch_id,
50 'U', sysdate, x_last_updated_by
51 FROM gl_budget_versions;
52
53 EXCEPTION
54 WHEN NO_DATA_FOUND THEN
55 RETURN;
56 WHEN app_exceptions.application_exception THEN
57 RAISE;
58 WHEN OTHERS THEN
59 fnd_message.set_name('FND', 'GL_UNHANDLED_EXCEPTION');
60 fnd_message.set_token('PROCEDURE',
61 'gl_budget_batches_pkg.insert_recurring');
62 RAISE;
63 END insert_recurring;
64
65
66
67 PROCEDURE delete_recurring(
68 x_recurring_batch_id NUMBER ) IS
69
70 BEGIN
71
72 DELETE
73 FROM gl_budget_batches
74 WHERE recurring_batch_id = x_recurring_batch_id;
75
76 EXCEPTION
77 WHEN NO_DATA_FOUND THEN
78 RETURN;
79 WHEN app_exceptions.application_exception THEN
80 RAISE;
81 WHEN OTHERS THEN
82 fnd_message.set_name('FND', 'GL_UNHANDLED_EXCEPTION');
83 fnd_message.set_token('PROCEDURE',
84 'gl_budget_batches_pkg.delete_recurring');
85 RAISE;
86 END delete_recurring;
87
88
89
90 PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budget_batches%ROWTYPE ) IS
91 BEGIN
92 SELECT *
93 INTO recinfo
94 FROM gl_budget_batches
95 WHERE budget_version_id = recinfo.budget_version_id
96 AND recurring_batch_id = recinfo.recurring_batch_id;
97 EXCEPTION
98 WHEN NO_DATA_FOUND THEN
99 RETURN;
100 WHEN app_exceptions.application_exception THEN
101 RAISE;
102 WHEN OTHERS THEN
103 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
104 fnd_message.set_token('PROCEDURE',
105 'gl_budget_batches_pkg.select_row');
106 RAISE;
107 END select_row;
108
109
110
111 PROCEDURE select_columns(
112 x_budget_version_id NUMBER,
113 x_recurring_batch_id NUMBER,
114 x_last_executed_date IN OUT NOCOPY DATE,
115 x_last_executed_start_period IN OUT NOCOPY VARCHAR2,
116 x_last_executed_end_period IN OUT NOCOPY VARCHAR2,
117 x_status IN OUT NOCOPY VARCHAR2 ) IS
118
119 recinfo gl_budget_batches%ROWTYPE;
120
121 BEGIN
122 recinfo.budget_version_id := x_budget_version_id;
123 recinfo.recurring_batch_id := x_recurring_batch_id;
124 select_row( recinfo );
125
126 x_last_executed_date := recinfo.last_executed_date;
127 x_last_executed_start_period := recinfo.last_executed_start_period;
128 x_last_executed_end_period := recinfo.last_executed_end_period;
129 x_status := recinfo.status;
130
131 EXCEPTION
132 WHEN NO_DATA_FOUND THEN
133 RETURN;
134 WHEN app_exceptions.application_exception THEN
135 RAISE;
136 WHEN OTHERS THEN
137 fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
138 fnd_message.set_token('PROCEDURE',
139 'gl_budget_batches_pkg.select_columns');
140 RAISE;
141 END select_columns;
142
143
144
145
146 END gl_budget_batches_pkg;