[Home] [Help]
PACKAGE BODY: APPS.PAY_EVENT_PROCEDURES_API
Source
1 Package Body pay_event_procedures_api as
2 /* $Header: pyevpapi.pkb 120.0 2005/05/29 04:48:23 appldev noship $*/
3 --
4 g_package varchar2(33) := ' pay_event_procedures_api.';
5 --
6 -- ----------------------------------------------------------------------------
7 -- |--------------------------< create_event_proc >-------------------------|
8 -- ----------------------------------------------------------------------------
9 -- {Start Of Comments}
10 --
11 -- Description:
12 -- This API creates enforcing the required business rules.
13 --
14 procedure create_event_proc
15 (p_validate in boolean default false
16 ,p_dated_table_id in number
17 ,p_procedure_name in varchar2 default null
18 ,p_business_group_id in number default null
19 ,p_legislation_code in varchar2 default null
20 ,p_column_name in varchar2 default null
21 ,p_event_procedure_id out nocopy number
22 ,p_object_version_number out nocopy number
23 )is
24 --
25 -- Declare cursors and local variables
26 --
27 l_proc varchar2(72) := g_package||'create_event_proc';
28 l_object_version_number number;
29 l_event_procedure_id number;
30 --
31 begin
32 hr_utility.set_location('Entering:'|| l_proc, 10);
33 --
34 savepoint CREATE_EVENT_PROC;
35 --
36 hr_utility.set_location(l_proc, 20);
37 --
38 -- Start of API User Hook for the before hook of create_dateteacked_event.
39 --
40 begin
41 pay_event_procedures_bk1.create_event_proc_b
42 (
43 p_dated_table_id => p_dated_table_id
44 ,p_procedure_name => p_procedure_name
45 ,p_business_group_id => p_business_group_id
46 ,p_legislation_code => p_legislation_code
47 ,p_column_name => p_column_name
48 );
49 exception
50 when hr_api.cannot_find_prog_unit then
51 hr_api.cannot_find_prog_unit_error
52 (p_module_name => 'CREATE_EVENT_PROC',
53 p_hook_type => 'BP'
54 );
55 end;
56 --
57 -- Process Logic
58 --
59 pay_evp_ins.ins
60 (
61 p_dated_table_id => p_dated_table_id
62 ,p_procedure_name => p_procedure_name
63 ,p_business_group_id => p_business_group_id
64 ,p_legislation_code => p_legislation_code
65 ,p_column_name => p_column_name
66 ,p_event_procedure_id => l_event_procedure_id
67 ,p_object_version_number => l_object_version_number
68 );
69 --
70 -- Start of API User Hook for the after hook of create_datetracked_events
71 --
72 begin
73 pay_event_procedures_bk1.create_event_proc_a
74 (
75 p_dated_table_id => p_dated_table_id
76 ,p_procedure_name => p_procedure_name
77 ,p_business_group_id => p_business_group_id
78 ,p_legislation_code => p_legislation_code
79 ,p_column_name => p_column_name
80 ,p_event_procedure_id => l_event_procedure_id
81 ,p_object_version_number => l_object_version_number
82 );
83 exception
84 when hr_api.cannot_find_prog_unit then
85 hr_api.cannot_find_prog_unit_error
86 (p_module_name => 'CREATE_EVENT_PROC',
87 p_hook_type => 'AP'
88 );
89 end;
90 --
91 --
92 -- Bug no. 4038782
93 -- When in validation only mode raise the Validate_Enabled exception
94 --
95 if p_validate then
96 raise hr_api.validate_enabled;
97 end if;
98 --
99 p_event_procedure_id := l_event_procedure_id;
100 p_object_version_number := l_object_version_number;
101 --
102 exception
103 --
104 when hr_api.validate_enabled then
105 --
106 -- As the Validate_Enabled exception has been raised
107 -- we must rollback to the savepoint
108 --
109 rollback to CREATE_EVENT_PROC;
110 --
111 -- Only set output warning arguments
112 -- (Any key or derived arguments must be set to null
113 -- when validation only mode is being used.)
114 --
115 p_event_procedure_id := null;
116 p_object_version_number := null;
117 --
118 hr_utility.set_location(' Leaving:'||l_proc, 80);
119 when others then
120 --
121 -- A validation or unexpected error has occured
122 --
123 rollback to CREATE_EVENT_PROC;
124 --
125 -- Reset IN OUT parameters and set all
126 -- OUT parameters, including warnings, to null
127 --
128 p_event_procedure_id := null;
129 p_object_version_number := null;
130
131 hr_utility.set_location(' Leaving:'||l_proc, 90);
132 raise;
133 --
134 end create_event_proc;
135 --
136 -- ----------------------------------------------------------------------------
137 -- |------------------------< update_event_proc >-----------------------------|
138 -- ----------------------------------------------------------------------------
139 -- {Start Of Comments}
140 --
141 -- Description:
142 --
143 -- This API updates an existing event procedure.
144 --
145 Procedure update_event_proc
146 (p_validate in boolean default false
147 ,p_event_procedure_id in number
148 ,p_object_version_number in out nocopy number
149 ,p_dated_table_id in number default hr_api.g_number
150 ,p_procedure_name in varchar2 default hr_api.g_varchar2
151 ,p_business_group_id in number default hr_api.g_number
152 ,p_legislation_code in varchar2 default hr_api.g_varchar2
153 ,p_column_name in varchar2 default hr_api.g_varchar2
154 ) is
155 --
156 -- Declare cursors and local variables
157 --
158 l_proc varchar2(72) := g_package ||'update_event_proc';
159 l_object_version_number number;
160 l_copy_ov_number number;
161 --
162 begin
163 --
164 hr_utility.set_location('Entering:'|| l_proc, 10);
165 --
166 l_copy_ov_number := p_object_version_number;
167 --
168 savepoint UPDATE_EVENT_PROC;
169 --
170 l_object_version_number := p_object_version_number;
171 --
172 -- Start of API User Hook for the before hook of update_EVENT_PROC.
173 --
174 begin
175 pay_event_procedures_bk2.update_event_proc_b
176 (p_event_procedure_id => p_event_procedure_id
177 ,p_object_version_number => l_object_version_number
178 ,p_dated_table_id => p_dated_table_id
179 ,p_procedure_name => p_procedure_name
180 ,p_business_group_id => p_business_group_id
181 ,p_legislation_code => p_legislation_code
182 ,p_column_name => p_column_name
183 );
184 exception
185 when hr_api.cannot_find_prog_unit then
186 hr_api.cannot_find_prog_unit_error
187 (p_module_name => 'UPDATE_EVENT_PROC',
188 p_hook_type => 'BP'
189 );
190 end;
191 --
192 pay_evp_upd.upd
193 (p_event_procedure_id => p_event_procedure_id
194 ,p_object_version_number => l_object_version_number
195 ,p_dated_table_id => p_dated_table_id
196 ,p_procedure_name => p_procedure_name
197 ,p_business_group_id => p_business_group_id
198 ,p_legislation_code => p_legislation_code
199 ,p_column_name => p_column_name
200 );
201 hr_utility.set_location('Entering:'|| l_proc, 20);
202 --
203 -- Start of API User Hook for the after hook of update_EVENT_PROC.
204 --
205 begin
206 pay_event_procedures_bk2.update_event_proc_a
207 (p_event_procedure_id => p_event_procedure_id
208 ,p_object_version_number => l_object_version_number
209 ,p_dated_table_id => p_dated_table_id
210 ,p_procedure_name => p_procedure_name
211 ,p_business_group_id => p_business_group_id
212 ,p_legislation_code => p_legislation_code
213 ,p_column_name => p_column_name
214 );
215 exception
216 when hr_api.cannot_find_prog_unit then
217 hr_api.cannot_find_prog_unit_error
218 (p_module_name => 'UPDATE_EVENT_PROC',
219 p_hook_type => 'AP'
220 );
221 end;
222 --
223 -- End of API User Hook for the after hook of update_EVENT_PROC.
224 --
225 -- Bug no. 4038782
226 -- When in validation only mode raise the Validate_Enabled exception
227 --
228 if p_validate then
229 raise hr_api.validate_enabled;
230 end if;
231 --
232 p_object_version_number := l_object_version_number;
233
234 exception
235 --
236 when hr_api.validate_enabled then
237 --
238 -- As the Validate_Enabled exception has been raised
239 -- we must rollback to the savepoint
240 --
241 rollback to UPDATE_EVENT_PROC;
242 --
243 -- Only set output warning arguments
244 -- (Any key or derived arguments must be set to null
245 -- when validation only mode is being used.)
246 --
247 p_object_version_number := l_object_version_number;
248 --
249 hr_utility.set_location(' Leaving:'||l_proc, 40);
250 when others then
251 --
252 -- A validation or unexpected error has occured
253 --
254 rollback to UPDATE_EVENT_PROC;
255 --
256 -- Reset IN OUT parameters and set all
257 -- OUT parameters, including warnings, to null
258 --
259 p_object_version_number := l_object_version_number;
260 --
261 hr_utility.set_location(' Leaving:'||l_proc, 50);
262 raise;
263 --
264 end update_event_proc;
265 --
266 -- ----------------------------------------------------------------------------
267 -- |--------------------------< delete_event_proc >--------------------------|
268 -- ----------------------------------------------------------------------------
269 -- {Start Of Comments}
270 --
271 -- Description:
272 -- This API deletes an existing event procedure
273 --
274 Procedure delete_event_proc
275 (p_validate in boolean default false
276 ,p_event_procedure_id in number
277 ,p_object_version_number in out nocopy number
278 ) is
279 --
280 -- Declare cursors and local variables
281 --
282 l_proc varchar2(72) := g_package||'delete_event_proc';
283 l_object_version_number number;
284 --
285 begin
286 hr_utility.set_location('Entering:'|| l_proc, 10);
287 --
288 savepoint DELETE_EVENT_PROC;
289 --
290 l_object_version_number:= p_object_version_number;
291 --
292 -- Start of API User Hook for the before hook of delete_EVENT_PROC.
293 --
294 begin
295 pay_event_procedures_bk3.delete_event_proc_b
296 (
297 p_event_procedure_id => p_event_procedure_id
298 ,p_object_version_number => l_object_version_number
299 );
300 exception
301 when hr_api.cannot_find_prog_unit then
302 hr_api.cannot_find_prog_unit_error
303 (p_module_name => 'DELETE_EVENT_PROC',
304 p_hook_type => 'BP'
305 );
306 end;
307 --
308 pay_evp_del.del
309 (
310 p_event_procedure_id => p_event_procedure_id
311 ,p_object_version_number => l_object_version_number
312 );
313 hr_utility.set_location(' Leaving:'||l_proc, 70);
314 --
315 --
316 -- Start of API User Hook for the after hook of DELETE_EVENT_PROC.
317 --
318 begin
319 pay_event_procedures_bk3.delete_event_proc_a
320 (
321 p_event_procedure_id => p_event_procedure_id
322 ,p_object_version_number => l_object_version_number
323 );
324 exception
325 when hr_api.cannot_find_prog_unit then
326 hr_api.cannot_find_prog_unit_error
327 (p_module_name => 'DELETE_EVENT_PROC',
328 p_hook_type => 'AP'
329 );
330 end;
331 --
332 --
333 -- Bug no. 4038782
334 -- When in validation only mode raise the Validate_Enabled exception
335 --
336 if p_validate then
337 raise hr_api.validate_enabled;
338 end if;
339 --
340 p_object_version_number := l_object_version_number;
341 --
342 exception
343 --
344 when hr_api.validate_enabled then
345 --
346 -- As the Validate_Enabled exception has been raised
347 -- we must rollback to the savepoint
348 --
349 rollback to DELETE_EVENT_PROC;
350 --
351 -- Only set output warning arguments
352 -- (Any key or derived arguments must be set to null
353 -- when validation only mode is being used.)
354 --
355 p_object_version_number := l_object_version_number;
356 --
357 hr_utility.set_location(' Leaving:'||l_proc, 40);
358 when others then
359 --
360 -- A validation or unexpected error has occured
361 --
362 rollback to DELETE_EVENT_PROC;
363 --
364 -- Reset IN OUT parameters and set all
365 -- OUT parameters, including warnings, to null
366 --
367 p_object_version_number := l_object_version_number;
368 --
369 hr_utility.set_location(' Leaving:'||l_proc, 50);
370 raise;
371 --
372 end delete_event_proc;
373 --
374 end pay_event_procedures_api;