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