[Home] [Help]
PACKAGE BODY: APPS.PQP_PCV_SWI
Source
1 Package Body pqp_pcv_swi As
2 /* $Header: pqpcvswi.pkb 120.0 2005/05/29 01:55 appldev noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'pqp_pcv_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |----------------------< create_configuration_value >----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_configuration_value
12 (p_validate in number default hr_api.g_false_num
13 ,p_effective_date in date
14 ,p_business_group_id in number
15 ,p_legislation_code in varchar2 default null
16 ,p_pcv_attribute_category in varchar2 default null
17 ,p_pcv_attribute1 in varchar2 default null
18 ,p_pcv_attribute2 in varchar2 default null
19 ,p_pcv_attribute3 in varchar2 default null
20 ,p_pcv_attribute4 in varchar2 default null
21 ,p_pcv_attribute5 in varchar2 default null
22 ,p_pcv_attribute6 in varchar2 default null
23 ,p_pcv_attribute7 in varchar2 default null
24 ,p_pcv_attribute8 in varchar2 default null
25 ,p_pcv_attribute9 in varchar2 default null
26 ,p_pcv_attribute10 in varchar2 default null
27 ,p_pcv_attribute11 in varchar2 default null
28 ,p_pcv_attribute12 in varchar2 default null
29 ,p_pcv_attribute13 in varchar2 default null
30 ,p_pcv_attribute14 in varchar2 default null
31 ,p_pcv_attribute15 in varchar2 default null
32 ,p_pcv_attribute16 in varchar2 default null
33 ,p_pcv_attribute17 in varchar2 default null
34 ,p_pcv_attribute18 in varchar2 default null
35 ,p_pcv_attribute19 in varchar2 default null
36 ,p_pcv_attribute20 in varchar2 default null
37 ,p_pcv_information_category in varchar2 default null
38 ,p_pcv_information1 in varchar2 default null
39 ,p_pcv_information2 in varchar2 default null
40 ,p_pcv_information3 in varchar2 default null
41 ,p_pcv_information4 in varchar2 default null
42 ,p_pcv_information5 in varchar2 default null
43 ,p_pcv_information6 in varchar2 default null
44 ,p_pcv_information7 in varchar2 default null
45 ,p_pcv_information8 in varchar2 default null
46 ,p_pcv_information9 in varchar2 default null
47 ,p_pcv_information10 in varchar2 default null
48 ,p_pcv_information11 in varchar2 default null
49 ,p_pcv_information12 in varchar2 default null
50 ,p_pcv_information13 in varchar2 default null
51 ,p_pcv_information14 in varchar2 default null
52 ,p_pcv_information15 in varchar2 default null
53 ,p_pcv_information16 in varchar2 default null
54 ,p_pcv_information17 in varchar2 default null
55 ,p_pcv_information18 in varchar2 default null
56 ,p_pcv_information19 in varchar2 default null
57 ,p_pcv_information20 in varchar2 default null
58 ,p_configuration_name in varchar2 default null
59 ,p_configuration_value_id out nocopy number
60 ,p_object_version_number out nocopy number
61 ,p_return_status out nocopy varchar2
62 ) is
63 --
64 -- Variables for API Boolean parameters
65 l_validate boolean;
66 --
67 -- Variables for IN/OUT parameters
68 --
69 -- Other variables
70 l_proc varchar2(72) := g_package ||'create_configuration_value';
71 Begin
72 hr_utility.set_location(' Entering:' || l_proc,10);
73 --
74 -- Issue a savepoint
75 --
76 savepoint create_configuration_value_swi;
77 --
78 -- Initialise Multiple Message Detection
79 --
80 hr_multi_message.enable_message_list;
81 --
82 -- Remember IN OUT parameter IN values
83 --
84 --
85 -- Convert constant values to their corresponding boolean value
86 --
87 l_validate :=
88 hr_api.constant_to_boolean
89 (p_constant_value => p_validate);
90 --
91 -- Register Surrogate ID or user key values
92 --
93 --
94 -- Call API
95 --
96 pqp_pcv_api.create_configuration_value
97 (p_validate => l_validate
98 ,p_effective_date => p_effective_date
99 ,p_business_group_id => p_business_group_id
100 ,p_legislation_code => p_legislation_code
101 ,p_pcv_attribute_category => p_pcv_attribute_category
102 ,p_pcv_attribute1 => p_pcv_attribute1
103 ,p_pcv_attribute2 => p_pcv_attribute2
104 ,p_pcv_attribute3 => p_pcv_attribute3
105 ,p_pcv_attribute4 => p_pcv_attribute4
106 ,p_pcv_attribute5 => p_pcv_attribute5
107 ,p_pcv_attribute6 => p_pcv_attribute6
108 ,p_pcv_attribute7 => p_pcv_attribute7
109 ,p_pcv_attribute8 => p_pcv_attribute8
110 ,p_pcv_attribute9 => p_pcv_attribute9
111 ,p_pcv_attribute10 => p_pcv_attribute10
112 ,p_pcv_attribute11 => p_pcv_attribute11
113 ,p_pcv_attribute12 => p_pcv_attribute12
114 ,p_pcv_attribute13 => p_pcv_attribute13
115 ,p_pcv_attribute14 => p_pcv_attribute14
116 ,p_pcv_attribute15 => p_pcv_attribute15
117 ,p_pcv_attribute16 => p_pcv_attribute16
118 ,p_pcv_attribute17 => p_pcv_attribute17
119 ,p_pcv_attribute18 => p_pcv_attribute18
120 ,p_pcv_attribute19 => p_pcv_attribute19
121 ,p_pcv_attribute20 => p_pcv_attribute20
122 ,p_pcv_information_category => p_pcv_information_category
123 ,p_pcv_information1 => p_pcv_information1
124 ,p_pcv_information2 => p_pcv_information2
125 ,p_pcv_information3 => p_pcv_information3
126 ,p_pcv_information4 => p_pcv_information4
127 ,p_pcv_information5 => p_pcv_information5
128 ,p_pcv_information6 => p_pcv_information6
129 ,p_pcv_information7 => p_pcv_information7
130 ,p_pcv_information8 => p_pcv_information8
131 ,p_pcv_information9 => p_pcv_information9
132 ,p_pcv_information10 => p_pcv_information10
133 ,p_pcv_information11 => p_pcv_information11
134 ,p_pcv_information12 => p_pcv_information12
135 ,p_pcv_information13 => p_pcv_information13
136 ,p_pcv_information14 => p_pcv_information14
137 ,p_pcv_information15 => p_pcv_information15
138 ,p_pcv_information16 => p_pcv_information16
139 ,p_pcv_information17 => p_pcv_information17
140 ,p_pcv_information18 => p_pcv_information18
141 ,p_pcv_information19 => p_pcv_information19
142 ,p_pcv_information20 => p_pcv_information20
143 ,p_configuration_value_id => p_configuration_value_id
144 ,p_object_version_number => p_object_version_number
145 ,p_configuration_name => p_configuration_name
146
147 );
148 --
149 -- Convert API warning boolean parameter values to specific
150 -- messages and add them to Multiple Message List
151 --
152 --
153 -- Convert API non-warning boolean parameter values
154 --
155 --
156 -- Derive the API return status value based on whether
157 -- messages of any type exist in the Multiple Message List.
158 -- Also disable Multiple Message Detection.
159 --
160 p_return_status := hr_multi_message.get_return_status_disable;
161 hr_utility.set_location(' Leaving:' || l_proc,20);
162 --
163 exception
164 when hr_multi_message.error_message_exist then
165 --
166 -- Catch the Multiple Message List exception which
167 -- indicates API processing has been aborted because
168 -- at least one message exists in the list.
169 --
170 rollback to create_configuration_value_swi;
171 --
172 -- Reset IN OUT parameters and set OUT parameters
173 --
174 p_configuration_value_id := null;
175 p_object_version_number := null;
176 p_return_status := hr_multi_message.get_return_status_disable;
177 hr_utility.set_location(' Leaving:' || l_proc, 30);
178 when others then
179 --
180 -- When Multiple Message Detection is enabled catch
181 -- any Application specific or other unexpected
182 -- exceptions. Adding appropriate details to the
183 -- Multiple Message List. Otherwise re-raise the
184 -- error.
185 --
186 rollback to create_configuration_value_swi;
187 if hr_multi_message.unexpected_error_add(l_proc) then
188 hr_utility.set_location(' Leaving:' || l_proc,40);
189 raise;
190 end if;
191 --
192 -- Reset IN OUT and set OUT parameters
193 --
194 p_configuration_value_id := null;
195 p_object_version_number := null;
196 p_return_status := hr_multi_message.get_return_status_disable;
197 hr_utility.set_location(' Leaving:' || l_proc,50);
198 end create_configuration_value;
199 -- ----------------------------------------------------------------------------
200 -- |----------------------< update_configuration_value >----------------------|
201 -- ----------------------------------------------------------------------------
202 PROCEDURE update_configuration_value
203 (p_validate in number default hr_api.g_false_num
204 ,p_effective_date in date
205 ,p_business_group_id in number
206 ,p_configuration_value_id in number
207 ,p_legislation_code in varchar2 default hr_api.g_varchar2
208 ,p_pcv_attribute_category in varchar2 default hr_api.g_varchar2
209 ,p_pcv_attribute1 in varchar2 default hr_api.g_varchar2
210 ,p_pcv_attribute2 in varchar2 default hr_api.g_varchar2
211 ,p_pcv_attribute3 in varchar2 default hr_api.g_varchar2
212 ,p_pcv_attribute4 in varchar2 default hr_api.g_varchar2
213 ,p_pcv_attribute5 in varchar2 default hr_api.g_varchar2
214 ,p_pcv_attribute6 in varchar2 default hr_api.g_varchar2
215 ,p_pcv_attribute7 in varchar2 default hr_api.g_varchar2
216 ,p_pcv_attribute8 in varchar2 default hr_api.g_varchar2
217 ,p_pcv_attribute9 in varchar2 default hr_api.g_varchar2
218 ,p_pcv_attribute10 in varchar2 default hr_api.g_varchar2
219 ,p_pcv_attribute11 in varchar2 default hr_api.g_varchar2
220 ,p_pcv_attribute12 in varchar2 default hr_api.g_varchar2
221 ,p_pcv_attribute13 in varchar2 default hr_api.g_varchar2
222 ,p_pcv_attribute14 in varchar2 default hr_api.g_varchar2
223 ,p_pcv_attribute15 in varchar2 default hr_api.g_varchar2
224 ,p_pcv_attribute16 in varchar2 default hr_api.g_varchar2
225 ,p_pcv_attribute17 in varchar2 default hr_api.g_varchar2
226 ,p_pcv_attribute18 in varchar2 default hr_api.g_varchar2
227 ,p_pcv_attribute19 in varchar2 default hr_api.g_varchar2
228 ,p_pcv_attribute20 in varchar2 default hr_api.g_varchar2
229 ,p_pcv_information_category in varchar2 default hr_api.g_varchar2
230 ,p_pcv_information1 in varchar2 default hr_api.g_varchar2
231 ,p_pcv_information2 in varchar2 default hr_api.g_varchar2
232 ,p_pcv_information3 in varchar2 default hr_api.g_varchar2
233 ,p_pcv_information4 in varchar2 default hr_api.g_varchar2
234 ,p_pcv_information5 in varchar2 default hr_api.g_varchar2
235 ,p_pcv_information6 in varchar2 default hr_api.g_varchar2
236 ,p_pcv_information7 in varchar2 default hr_api.g_varchar2
237 ,p_pcv_information8 in varchar2 default hr_api.g_varchar2
238 ,p_pcv_information9 in varchar2 default hr_api.g_varchar2
239 ,p_pcv_information10 in varchar2 default hr_api.g_varchar2
240 ,p_pcv_information11 in varchar2 default hr_api.g_varchar2
241 ,p_pcv_information12 in varchar2 default hr_api.g_varchar2
242 ,p_pcv_information13 in varchar2 default hr_api.g_varchar2
243 ,p_pcv_information14 in varchar2 default hr_api.g_varchar2
244 ,p_pcv_information15 in varchar2 default hr_api.g_varchar2
245 ,p_pcv_information16 in varchar2 default hr_api.g_varchar2
246 ,p_pcv_information17 in varchar2 default hr_api.g_varchar2
247 ,p_pcv_information18 in varchar2 default hr_api.g_varchar2
248 ,p_pcv_information19 in varchar2 default hr_api.g_varchar2
249 ,p_pcv_information20 in varchar2 default hr_api.g_varchar2
250 ,p_configuration_name in varchar2 default hr_api.g_varchar2
251 ,p_object_version_number in out nocopy number
252 ,p_return_status out nocopy varchar2
253 ) is
254 --
255 -- Variables for API Boolean parameters
256 l_validate boolean;
257 --
258 -- Variables for IN/OUT parameters
259 l_object_version_number number;
260 --
261 -- Other variables
262 l_proc varchar2(72) := g_package ||'update_configuration_value';
263 Begin
264 hr_utility.set_location(' Entering:' || l_proc,10);
265 --
266 -- Issue a savepoint
267 --
268 savepoint update_configuration_value_swi;
269 --
270 -- Initialise Multiple Message Detection
271 --
272 hr_multi_message.enable_message_list;
273 --
274 -- Remember IN OUT parameter IN values
275 --
276 l_object_version_number := p_object_version_number;
277 --
278 -- Convert constant values to their corresponding boolean value
279 --
280 l_validate :=
281 hr_api.constant_to_boolean
282 (p_constant_value => p_validate);
283 --
284 -- Register Surrogate ID or user key values
285 --
286 --
287 -- Call API
288 --
289 pqp_pcv_api.update_configuration_value
290 (p_validate => l_validate
291 ,p_effective_date => p_effective_date
292 ,p_business_group_id => p_business_group_id
293 ,p_configuration_value_id => p_configuration_value_id
294 ,p_legislation_code => p_legislation_code
295 ,p_pcv_attribute_category => p_pcv_attribute_category
296 ,p_pcv_attribute1 => p_pcv_attribute1
297 ,p_pcv_attribute2 => p_pcv_attribute2
298 ,p_pcv_attribute3 => p_pcv_attribute3
299 ,p_pcv_attribute4 => p_pcv_attribute4
300 ,p_pcv_attribute5 => p_pcv_attribute5
301 ,p_pcv_attribute6 => p_pcv_attribute6
302 ,p_pcv_attribute7 => p_pcv_attribute7
303 ,p_pcv_attribute8 => p_pcv_attribute8
304 ,p_pcv_attribute9 => p_pcv_attribute9
305 ,p_pcv_attribute10 => p_pcv_attribute10
306 ,p_pcv_attribute11 => p_pcv_attribute11
307 ,p_pcv_attribute12 => p_pcv_attribute12
308 ,p_pcv_attribute13 => p_pcv_attribute13
309 ,p_pcv_attribute14 => p_pcv_attribute14
310 ,p_pcv_attribute15 => p_pcv_attribute15
311 ,p_pcv_attribute16 => p_pcv_attribute16
312 ,p_pcv_attribute17 => p_pcv_attribute17
313 ,p_pcv_attribute18 => p_pcv_attribute18
314 ,p_pcv_attribute19 => p_pcv_attribute19
315 ,p_pcv_attribute20 => p_pcv_attribute20
316 ,p_pcv_information_category => p_pcv_information_category
317 ,p_pcv_information1 => p_pcv_information1
318 ,p_pcv_information2 => p_pcv_information2
319 ,p_pcv_information3 => p_pcv_information3
320 ,p_pcv_information4 => p_pcv_information4
321 ,p_pcv_information5 => p_pcv_information5
322 ,p_pcv_information6 => p_pcv_information6
323 ,p_pcv_information7 => p_pcv_information7
324 ,p_pcv_information8 => p_pcv_information8
325 ,p_pcv_information9 => p_pcv_information9
326 ,p_pcv_information10 => p_pcv_information10
327 ,p_pcv_information11 => p_pcv_information11
328 ,p_pcv_information12 => p_pcv_information12
329 ,p_pcv_information13 => p_pcv_information13
330 ,p_pcv_information14 => p_pcv_information14
331 ,p_pcv_information15 => p_pcv_information15
332 ,p_pcv_information16 => p_pcv_information16
333 ,p_pcv_information17 => p_pcv_information17
334 ,p_pcv_information18 => p_pcv_information18
335 ,p_pcv_information19 => p_pcv_information19
336 ,p_pcv_information20 => p_pcv_information20
337 ,p_object_version_number => p_object_version_number
338 ,p_configuration_name => p_configuration_name
339
340 );
341 --
342 -- Convert API warning boolean parameter values to specific
343 -- messages and add them to Multiple Message List
344 --
345 --
346 -- Convert API non-warning boolean parameter values
347 --
348 --
349 -- Derive the API return status value based on whether
350 -- messages of any type exist in the Multiple Message List.
351 -- Also disable Multiple Message Detection.
352 --
353 p_return_status := hr_multi_message.get_return_status_disable;
354 hr_utility.set_location(' Leaving:' || l_proc,20);
355 --
356 exception
357 when hr_multi_message.error_message_exist then
358 --
359 -- Catch the Multiple Message List exception which
360 -- indicates API processing has been aborted because
361 -- at least one message exists in the list.
362 --
363 rollback to update_configuration_value_swi;
364 --
365 -- Reset IN OUT parameters and set OUT parameters
366 --
367 p_object_version_number := l_object_version_number;
368 p_return_status := hr_multi_message.get_return_status_disable;
369 hr_utility.set_location(' Leaving:' || l_proc, 30);
370 when others then
371 --
372 -- When Multiple Message Detection is enabled catch
373 -- any Application specific or other unexpected
374 -- exceptions. Adding appropriate details to the
375 -- Multiple Message List. Otherwise re-raise the
376 -- error.
377 --
378 rollback to update_configuration_value_swi;
379 if hr_multi_message.unexpected_error_add(l_proc) then
380 hr_utility.set_location(' Leaving:' || l_proc,40);
381 raise;
382 end if;
383 --
384 -- Reset IN OUT and set OUT parameters
385 --
386 p_object_version_number := l_object_version_number;
387 p_return_status := hr_multi_message.get_return_status_disable;
388 hr_utility.set_location(' Leaving:' || l_proc,50);
389 end update_configuration_value;
390 -- ----------------------------------------------------------------------------
391 -- |----------------------< delete_configuration_value >----------------------|
392 -- ----------------------------------------------------------------------------
393 PROCEDURE delete_configuration_value
394 (p_validate in number default hr_api.g_false_num
395 ,p_business_group_id in number
396 ,p_configuration_value_id in number
397 ,p_object_version_number in number
398 ,p_return_status out nocopy varchar2
399 ) is
400 --
401 -- Variables for API Boolean parameters
402 l_validate boolean;
403 --
404 -- Variables for IN/OUT parameters
405 --
406 -- Other variables
407 l_proc varchar2(72) := g_package ||'delete_configuration_value';
408 Begin
409 hr_utility.set_location(' Entering:' || l_proc,10);
410 --
411 -- Issue a savepoint
412 --
413 savepoint delete_configuration_value_swi;
414 --
415 -- Initialise Multiple Message Detection
416 --
417 hr_multi_message.enable_message_list;
418 --
419 -- Remember IN OUT parameter IN values
420 --
421 --
422 -- Convert constant values to their corresponding boolean value
423 --
424 l_validate :=
425 hr_api.constant_to_boolean
426 (p_constant_value => p_validate);
427 --
428 -- Register Surrogate ID or user key values
429 --
430 --
431 -- Call API
432 --
433 pqp_pcv_api.delete_configuration_value
434 (p_validate => l_validate
435 ,p_business_group_id => p_business_group_id
436 ,p_configuration_value_id => p_configuration_value_id
437 ,p_object_version_number => p_object_version_number
438 );
439 --
440 -- Convert API warning boolean parameter values to specific
441 -- messages and add them to Multiple Message List
442 --
443 --
444 -- Convert API non-warning boolean parameter values
445 --
446 --
447 -- Derive the API return status value based on whether
448 -- messages of any type exist in the Multiple Message List.
449 -- Also disable Multiple Message Detection.
450 --
451 p_return_status := hr_multi_message.get_return_status_disable;
452 hr_utility.set_location(' Leaving:' || l_proc,20);
453 --
454 exception
455 when hr_multi_message.error_message_exist then
456 --
457 -- Catch the Multiple Message List exception which
458 -- indicates API processing has been aborted because
459 -- at least one message exists in the list.
460 --
461 rollback to delete_configuration_value_swi;
462 --
463 -- Reset IN OUT parameters and set OUT parameters
464 --
465 p_return_status := hr_multi_message.get_return_status_disable;
466 hr_utility.set_location(' Leaving:' || l_proc, 30);
467 when others then
468 --
469 -- When Multiple Message Detection is enabled catch
470 -- any Application specific or other unexpected
471 -- exceptions. Adding appropriate details to the
472 -- Multiple Message List. Otherwise re-raise the
473 -- error.
474 --
475 rollback to delete_configuration_value_swi;
476 if hr_multi_message.unexpected_error_add(l_proc) then
477 hr_utility.set_location(' Leaving:' || l_proc,40);
478 raise;
479 end if;
480 --
481 -- Reset IN OUT and set OUT parameters
482 --
483 p_return_status := hr_multi_message.get_return_status_disable;
484 hr_utility.set_location(' Leaving:' || l_proc,50);
485 end delete_configuration_value;
486 end pqp_pcv_swi;