[Home] [Help]
PACKAGE BODY: APPS.PAY_EVENT_UPDATES_API
Source
1 Package Body pay_event_updates_api as
2 /* $Header: pypeuapi.pkb 115.7 2002/12/11 15:12:55 exjones noship $ */
3 --
4 g_package varchar2(33) := ' pay_event_updates_api.';
5 --
6 -- ----------------------------------------------------------------------------
7 -- |--------------------------<create_event_update >-------------------------|
8 -- ----------------------------------------------------------------------------
9 -- {Start Of Comments}
10 --
11 -- Description:
12 -- This API creates enforcing the required business rules.
13 --
14 procedure create_event_update
15 (p_validate in boolean default false
16 ,p_effective_date in date
17 ,p_dated_table_id in number
18 ,p_change_type in varchar2
19 ,p_table_name in varchar2 default null
20 ,p_column_name in varchar2 default null
21 ,p_business_group_id in number default null
22 ,p_legislation_code in varchar2 default null
23 ,p_event_type in varchar2 default null
24 ,p_event_update_id out nocopy number
25 ,p_object_version_number out nocopy number
26 ) is
27 --
28 -- Declare cursors and local variables
29 --
30 l_proc varchar2(72) := g_package||'create_event_update';
31 l_object_version_number number;
32 l_event_update_id number;
33 --
34 begin
35 hr_utility.set_location('Entering:'|| l_proc, 10);
36 --
37 If p_validate then
38 savepoint create_event_update;
39 End If;
40 --
41 hr_utility.set_location(l_proc, 20);
42 --
43 -- Process Logic
44 --
45 --
46 -- Start of API User Hook for the before hook of create_dateteacked_event.
47 --
48 begin
49 pay_event_updates_bk1.create_event_update_b
50 (p_effective_date => p_effective_date
51 ,p_dated_table_id => p_dated_table_id
52 ,p_change_type => p_change_type
53 ,p_table_name => p_table_name
54 ,p_column_name => p_column_name
55 ,p_business_group_id => p_business_group_id
56 ,p_legislation_code => p_legislation_code
57 ,p_event_type => p_event_type
58 );
59 exception
60 when hr_api.cannot_find_prog_unit then
61 hr_api.cannot_find_prog_unit_error
62 (p_module_name => 'CREATE_EVENT_UPDATE',
63 p_hook_type => 'BP'
64 );
65 end;
66 --
67 pay_peu_ins.ins
68 (p_effective_date => p_effective_date
69 ,p_dated_table_id => p_dated_table_id
70 ,p_change_type => p_change_type
71 ,p_table_name => p_table_name
72 ,p_column_name => p_column_name
73 ,p_business_group_id => p_business_group_id
74 ,p_legislation_code => p_legislation_code
75 ,p_event_type => p_event_type
76 ,p_event_update_id => l_event_update_id
77 ,p_object_version_number => l_object_version_number
78 );
79 --
80 -- Start of API User Hook for the after hook of create_EVENT_UPDATE
81 --
82 begin
83 pay_event_updates_bk1.create_event_update_a
84 (p_effective_date => p_effective_date
85 ,p_dated_table_id => p_dated_table_id
86 ,p_change_type => p_change_type
87 ,p_table_name => p_table_name
88 ,p_column_name => p_column_name
89 ,p_business_group_id => p_business_group_id
90 ,p_legislation_code => p_legislation_code
91 ,p_event_type => p_event_type
92 ,p_event_update_id => l_event_update_id
93 ,p_object_version_number => l_object_version_number
94 );
95 exception
96 when hr_api.cannot_find_prog_unit then
97 hr_api.cannot_find_prog_unit_error
98 (p_module_name => 'CREATE_EVENT_UPDATE',
99 p_hook_type => 'AP'
100 );
101 end;
102 --
103 If p_validate then
104 Raise HR_Api.Validate_Enabled;
105 End If;
106 --
107 p_event_update_id := l_event_update_id;
108 p_object_version_number := l_object_version_number;
109 --
110 exception
111 --
112 when HR_Api.Validate_Enabled then
113 --
114 -- A validation or unexpected error has occured
115 --
116 ROLLBACK TO create_event_update;
117 --
118 end create_event_update;
119 -- ----------------------------------------------------------------------------
120 -- |--------------------------<update_event_update >-------------------------|
121 -- ----------------------------------------------------------------------------
122 -- {Start Of Comments}
123 --
124 -- Description:
125 -- This API updates an existing dated table.
126 --
127 procedure update_event_update
128 (p_validate in boolean default false
129 ,p_effective_date in date
130 ,p_event_update_id in number
131 ,p_object_version_number in out nocopy number
132 ,p_dated_table_id in number default hr_api.g_number
133 ,p_change_type in varchar2 default hr_api.g_varchar2
134 ,p_table_name in varchar2 default hr_api.g_varchar2
135 ,p_column_name in varchar2 default hr_api.g_varchar2
136 ,p_business_group_id in number default hr_api.g_number
137 ,p_legislation_code in varchar2 default hr_api.g_varchar2
138 ,p_event_type in varchar2 default hr_api.g_varchar2
139 )is
140 --
141 -- Declare cursors and local variables
142 --
143 l_proc varchar2(72) := g_package ||'update_event_update';
144 l_object_version_number number;
145 --
146 begin
147 --
148 hr_utility.set_location('Entering:'|| l_proc, 10);
149 --
150 If p_validate then
151 savepoint update_event_update;
152 End If;
153 --
154 l_object_version_number := p_object_version_number;
155 --
156 -- Start of API User Hook for the before hook of update_EVENT_UPDATE.
157 --
158 begin
159 pay_event_updates_bk2.update_event_update_b
160 (p_effective_date => p_effective_date
161 ,p_event_update_id => p_event_update_id
162 ,p_object_version_number => l_object_version_number
163 ,p_dated_table_id => p_dated_table_id
164 ,p_change_type => p_change_type
165 ,p_table_name => p_table_name
166 ,p_column_name => p_column_name
167 ,p_business_group_id => p_business_group_id
168 ,p_legislation_code => p_legislation_code
169 ,p_event_type => p_event_type
170 );
171 exception
172 when hr_api.cannot_find_prog_unit then
173 hr_api.cannot_find_prog_unit_error
174 (p_module_name => 'UPDATE_EVENT_UPDATE',
175 p_hook_type => 'BP'
176 );
177 end;
178 --
179 pay_peu_upd.upd
180 (p_effective_date => p_effective_date
181 ,p_event_update_id => p_event_update_id
182 ,p_object_version_number => l_object_version_number
183 ,p_dated_table_id => p_dated_table_id
184 ,p_change_type => p_change_type
185 ,p_table_name => p_table_name
186 ,p_column_name => p_column_name
187 ,p_business_group_id => p_business_group_id
188 ,p_legislation_code => p_legislation_code
189 ,p_event_type => p_event_type
190 );
191 hr_utility.set_location('Entering:'|| l_proc, 20);
192 --
193 --
194 -- Start of API User Hook for the after hook of update_EVENT_UPDATE.
195 --
196 begin
197 pay_event_updates_bk2.update_event_update_a
198 (p_effective_date => p_effective_date
199 ,p_event_update_id => p_event_update_id
200 ,p_object_version_number => l_object_version_number
201 ,p_dated_table_id => p_dated_table_id
202 ,p_change_type => p_change_type
203 ,p_table_name => p_table_name
204 ,p_column_name => p_column_name
205 ,p_business_group_id => p_business_group_id
206 ,p_legislation_code => p_legislation_code
207 ,p_event_type => p_event_type
208 );
209 exception
210 when hr_api.cannot_find_prog_unit then
211 hr_api.cannot_find_prog_unit_error
212 (p_module_name => 'UPDATE_EVENT_UPDATE',
213 p_hook_type => 'AP'
214 );
215 end;
216 --
217 If p_validate then
218 Raise HR_Api.Validate_Enabled;
219 End If;
220 --
221 p_object_version_number := l_object_version_number;
222 --
223 exception
224 --
225 when HR_Api.Validate_Enabled then
226 --
227 -- A validation or unexpected error has occured
228 --
229 ROLLBACK TO update_event_update;
230 raise;
231 --
232 end update_event_update;
233 --
234 -- ----------------------------------------------------------------------------
235 -- |--------------------------< delete_event_update >--------------------------|
236 -- ----------------------------------------------------------------------------
237 -- {Start Of Comments}
238 --
239 -- Description:
240 -- This API deletes an existing dated table.
241 --
242 procedure delete_event_update
243 (p_validate in boolean default false
244 ,p_event_update_id in number
245 ,p_object_version_number in number
246 ) is
247 --
248 -- Declare cursors and local variables
249 --
250 l_proc varchar2(72) := g_package||'delete_event_update';
251 l_object_version_number number;
252 --
253 begin
254 hr_utility.set_location('Entering:'|| l_proc, 10);
255 --
256 If p_validate then
257 savepoint delete_event_update;
258 End If;
259 --
260 --
261 -- Start of API User Hook for the before hook of delete_EVENT_UPDATE.
262 --
263 begin
264 pay_event_updates_bk3.delete_event_update_b
265 (
266 p_event_update_id => p_event_update_id
267 ,p_object_version_number => p_object_version_number
268 );
269 exception
270 when hr_api.cannot_find_prog_unit then
271 hr_api.cannot_find_prog_unit_error
272 (p_module_name => 'DELETE_EVENT_UPDATE',
273 p_hook_type => 'BP'
274 );
275 end;
276 --
277 pay_peu_del.del
278 (
279 p_event_update_id => p_event_update_id
280 ,p_object_version_number => p_object_version_number
281 );
282 hr_utility.set_location(' Leaving:'||l_proc, 70);
283 --
284 begin
285 pay_event_updates_bk3.delete_event_update_a
286 (
287 p_event_update_id => p_event_update_id
288 ,p_object_version_number => p_object_version_number
289 );
290 exception
291 when hr_api.cannot_find_prog_unit then
292 hr_api.cannot_find_prog_unit_error
293 (p_module_name => 'DELETE_EVENT_UPDATE',
294 p_hook_type => 'BP'
295 );
296 end;
297 --
298 If p_validate then
299 Raise HR_Api.Validate_Enabled;
300 End If;
301 --
302 exception
303 when HR_Api.Validate_Enabled then
304 --
305 -- A validation or unexpected error has occured
306 --
307 ROLLBACK TO delete_event_update;
308 --
309 end delete_event_update;
310 --
311 end pay_event_updates_api;