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