[Home] [Help]
PACKAGE BODY: APPS.OTA_ACTIVITY_CATEGORY_SWI
Source
1 Package Body ota_activity_category_swi As
2 /* $Header: otaciswi.pkb 115.1 2003/12/30 17:45:16 dhmulia noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'ota_activity_category_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_act_cat_inclusion >-----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_act_cat_inclusion
12 (p_validate in number default hr_api.g_false_num
13 ,p_effective_date in date
14 ,p_activity_version_id in number
15 ,p_activity_category in varchar2
16 ,p_comments in varchar2 default null
17 ,p_object_version_number out nocopy number
18 ,p_aci_information_category in varchar2 default null
19 ,p_aci_information1 in varchar2 default null
20 ,p_aci_information2 in varchar2 default null
21 ,p_aci_information3 in varchar2 default null
22 ,p_aci_information4 in varchar2 default null
23 ,p_aci_information5 in varchar2 default null
24 ,p_aci_information6 in varchar2 default null
25 ,p_aci_information7 in varchar2 default null
26 ,p_aci_information8 in varchar2 default null
27 ,p_aci_information9 in varchar2 default null
28 ,p_aci_information10 in varchar2 default null
29 ,p_aci_information11 in varchar2 default null
30 ,p_aci_information12 in varchar2 default null
31 ,p_aci_information13 in varchar2 default null
32 ,p_aci_information14 in varchar2 default null
33 ,p_aci_information15 in varchar2 default null
34 ,p_aci_information16 in varchar2 default null
35 ,p_aci_information17 in varchar2 default null
36 ,p_aci_information18 in varchar2 default null
37 ,p_aci_information19 in varchar2 default null
38 ,p_aci_information20 in varchar2 default null
39 ,p_start_date_active in date default null
40 ,p_end_date_active in date default null
41 ,p_primary_flag in varchar2 default null
42 ,p_category_usage_id in number
43 ,p_return_status out nocopy varchar2
44 ) is
45 --
46 -- Variables for API Boolean parameters
47 l_validate boolean;
48 --
49 -- Variables for IN/OUT parameters
50 --
51 -- Other variables
52 l_activity_version_id number;
53 l_category_usage_id number;
54 l_proc varchar2(72) := g_package ||'create_act_cat_inclusion';
55 Begin
56 hr_utility.set_location(' Entering:' || l_proc,10);
57 --
58 -- Issue a savepoint
59 --
60 savepoint create_act_cat_inclusion_swi;
61 --
62 -- Initialise Multiple Message Detection
63 --
64 hr_multi_message.enable_message_list;
65 --
66 -- Remember IN OUT parameter IN values
67 --
68 --
69 -- Convert constant values to their corresponding boolean value
70 --
71 l_validate :=
72 hr_api.constant_to_boolean
73 (p_constant_value => p_validate);
74 --
75 -- Register Surrogate ID or user key values
76 --
77 ota_aci_ins.set_base_key_value
78 (p_activity_version_id => p_activity_version_id
79 ,p_category_usage_id => p_category_usage_id
80 );
81 --
82 -- Call API
83 --
84 ota_activity_category_api.create_act_cat_inclusion
85 (p_validate => l_validate
86 ,p_effective_date => p_effective_date
87 ,p_activity_version_id => p_activity_version_id
88 ,p_activity_category => p_activity_category
89 ,p_comments => p_comments
90 ,p_object_version_number => p_object_version_number
91 ,p_aci_information_category => p_aci_information_category
92 ,p_aci_information1 => p_aci_information1
93 ,p_aci_information2 => p_aci_information2
94 ,p_aci_information3 => p_aci_information3
95 ,p_aci_information4 => p_aci_information4
96 ,p_aci_information5 => p_aci_information5
97 ,p_aci_information6 => p_aci_information6
98 ,p_aci_information7 => p_aci_information7
99 ,p_aci_information8 => p_aci_information8
100 ,p_aci_information9 => p_aci_information9
101 ,p_aci_information10 => p_aci_information10
102 ,p_aci_information11 => p_aci_information11
103 ,p_aci_information12 => p_aci_information12
104 ,p_aci_information13 => p_aci_information13
105 ,p_aci_information14 => p_aci_information14
106 ,p_aci_information15 => p_aci_information15
107 ,p_aci_information16 => p_aci_information16
108 ,p_aci_information17 => p_aci_information17
109 ,p_aci_information18 => p_aci_information18
110 ,p_aci_information19 => p_aci_information19
111 ,p_aci_information20 => p_aci_information20
112 ,p_start_date_active => p_start_date_active
113 ,p_end_date_active => p_end_date_active
114 ,p_primary_flag => p_primary_flag
115 ,p_category_usage_id => p_category_usage_id
116 );
117 --
118 -- Convert API warning boolean parameter values to specific
119 -- messages and add them to Multiple Message List
120 --
121 --
122 -- Convert API non-warning boolean parameter values
123 --
124 --
125 -- Derive the API return status value based on whether
126 -- messages of any type exist in the Multiple Message List.
127 -- Also disable Multiple Message Detection.
128 --
129 p_return_status := hr_multi_message.get_return_status_disable;
130 hr_utility.set_location(' Leaving:' || l_proc,20);
131 --
132 exception
133 when hr_multi_message.error_message_exist then
134 --
135 -- Catch the Multiple Message List exception which
136 -- indicates API processing has been aborted because
137 -- at least one message exists in the list.
138 --
139 rollback to create_act_cat_inclusion_swi;
140 --
141 -- Reset IN OUT parameters and set OUT parameters
142 --
143 p_object_version_number := null;
144 p_return_status := hr_multi_message.get_return_status_disable;
145 hr_utility.set_location(' Leaving:' || l_proc, 30);
146 when others then
147 --
148 -- When Multiple Message Detection is enabled catch
149 -- any Application specific or other unexpected
150 -- exceptions. Adding appropriate details to the
151 -- Multiple Message List. Otherwise re-raise the
152 -- error.
153 --
154 rollback to create_act_cat_inclusion_swi;
155 if hr_multi_message.unexpected_error_add(l_proc) then
156 hr_utility.set_location(' Leaving:' || l_proc,40);
157 raise;
158 end if;
159 --
160 -- Reset IN OUT and set OUT parameters
161 --
162 p_object_version_number := null;
163 p_return_status := hr_multi_message.get_return_status_disable;
164 hr_utility.set_location(' Leaving:' || l_proc,50);
165 end create_act_cat_inclusion;
166 -- ----------------------------------------------------------------------------
167 -- |-----------------------< delete_act_cat_inclusion >-----------------------|
168 -- ----------------------------------------------------------------------------
169 PROCEDURE delete_act_cat_inclusion
170 (p_activity_version_id in number
171 ,p_category_usage_id in varchar2
172 ,p_object_version_number in number
173 ,p_validate in number default hr_api.g_false_num
174 ,p_return_status out nocopy varchar2
175 ) is
176 --
177 -- Variables for API Boolean parameters
178 l_validate boolean;
179 --
180 -- Variables for IN/OUT parameters
181 --
182 -- Other variables
183 l_proc varchar2(72) := g_package ||'delete_act_cat_inclusion';
184 Begin
185 hr_utility.set_location(' Entering:' || l_proc,10);
186 --
187 -- Issue a savepoint
188 --
189 savepoint delete_act_cat_inclusion_swi;
190 --
191 -- Initialise Multiple Message Detection
192 --
193 hr_multi_message.enable_message_list;
194 --
195 -- Remember IN OUT parameter IN values
196 --
197 --
198 -- Convert constant values to their corresponding boolean value
199 --
200 l_validate :=
201 hr_api.constant_to_boolean
202 (p_constant_value => p_validate);
203 --
204 -- Register Surrogate ID or user key values
205 --
206 --
207 -- Call API
208 --
209 ota_activity_category_api.delete_act_cat_inclusion
210 (p_activity_version_id => p_activity_version_id
211 ,p_category_usage_id => p_category_usage_id
212 ,p_object_version_number => p_object_version_number
213 ,p_validate => l_validate
214 );
215 --
216 -- Convert API warning boolean parameter values to specific
217 -- messages and add them to Multiple Message List
218 --
219 --
220 -- Convert API non-warning boolean parameter values
221 --
222 --
223 -- Derive the API return status value based on whether
224 -- messages of any type exist in the Multiple Message List.
225 -- Also disable Multiple Message Detection.
226 --
227 p_return_status := hr_multi_message.get_return_status_disable;
228 hr_utility.set_location(' Leaving:' || l_proc,20);
229 --
230 exception
231 when hr_multi_message.error_message_exist then
232 --
233 -- Catch the Multiple Message List exception which
234 -- indicates API processing has been aborted because
235 -- at least one message exists in the list.
236 --
237 rollback to delete_act_cat_inclusion_swi;
238 --
239 -- Reset IN OUT parameters and set OUT parameters
240 --
241 p_return_status := hr_multi_message.get_return_status_disable;
242 hr_utility.set_location(' Leaving:' || l_proc, 30);
243 when others then
244 --
245 -- When Multiple Message Detection is enabled catch
246 -- any Application specific or other unexpected
247 -- exceptions. Adding appropriate details to the
248 -- Multiple Message List. Otherwise re-raise the
249 -- error.
250 --
251 rollback to delete_act_cat_inclusion_swi;
252 if hr_multi_message.unexpected_error_add(l_proc) then
253 hr_utility.set_location(' Leaving:' || l_proc,40);
254 raise;
255 end if;
256 --
257 -- Reset IN OUT and set OUT parameters
258 --
259 p_return_status := hr_multi_message.get_return_status_disable;
260 hr_utility.set_location(' Leaving:' || l_proc,50);
261 end delete_act_cat_inclusion;
262 -- ----------------------------------------------------------------------------
263 -- |-----------------------< update_act_cat_inclusion >-----------------------|
264 -- ----------------------------------------------------------------------------
265 PROCEDURE update_act_cat_inclusion
266 (p_validate in number default hr_api.g_false_num
267 ,p_effective_date in date
268 ,p_activity_version_id in number
269 ,p_activity_category in varchar2
270 ,p_comments in varchar2 default hr_api.g_varchar2
271 ,p_object_version_number in out nocopy number
272 ,p_aci_information_category in varchar2 default hr_api.g_varchar2
273 ,p_aci_information1 in varchar2 default hr_api.g_varchar2
274 ,p_aci_information2 in varchar2 default hr_api.g_varchar2
275 ,p_aci_information3 in varchar2 default hr_api.g_varchar2
276 ,p_aci_information4 in varchar2 default hr_api.g_varchar2
277 ,p_aci_information5 in varchar2 default hr_api.g_varchar2
278 ,p_aci_information6 in varchar2 default hr_api.g_varchar2
279 ,p_aci_information7 in varchar2 default hr_api.g_varchar2
280 ,p_aci_information8 in varchar2 default hr_api.g_varchar2
281 ,p_aci_information9 in varchar2 default hr_api.g_varchar2
282 ,p_aci_information10 in varchar2 default hr_api.g_varchar2
283 ,p_aci_information11 in varchar2 default hr_api.g_varchar2
284 ,p_aci_information12 in varchar2 default hr_api.g_varchar2
285 ,p_aci_information13 in varchar2 default hr_api.g_varchar2
286 ,p_aci_information14 in varchar2 default hr_api.g_varchar2
287 ,p_aci_information15 in varchar2 default hr_api.g_varchar2
288 ,p_aci_information16 in varchar2 default hr_api.g_varchar2
289 ,p_aci_information17 in varchar2 default hr_api.g_varchar2
290 ,p_aci_information18 in varchar2 default hr_api.g_varchar2
291 ,p_aci_information19 in varchar2 default hr_api.g_varchar2
292 ,p_aci_information20 in varchar2 default hr_api.g_varchar2
293 ,p_start_date_active in date default hr_api.g_date
294 ,p_end_date_active in date default hr_api.g_date
295 ,p_primary_flag in varchar2 default hr_api.g_varchar2
296 ,p_category_usage_id in number
297 ,p_return_status out nocopy varchar2
298 ) is
299 --
300 -- Variables for API Boolean parameters
301 l_validate boolean;
302 --
303 -- Variables for IN/OUT parameters
304 l_object_version_number number;
305 --
306 -- Other variables
307 l_proc varchar2(72) := g_package ||'update_act_cat_inclusion';
308 Begin
309 hr_utility.set_location(' Entering:' || l_proc,10);
310 --
311 -- Issue a savepoint
312 --
313 savepoint update_act_cat_inclusion_swi;
314 --
315 -- Initialise Multiple Message Detection
316 --
317 hr_multi_message.enable_message_list;
318 --
319 -- Remember IN OUT parameter IN values
320 --
321 l_object_version_number := p_object_version_number;
322 --
323 -- Convert constant values to their corresponding boolean value
324 --
325 l_validate :=
326 hr_api.constant_to_boolean
327 (p_constant_value => p_validate);
328 --
329 -- Register Surrogate ID or user key values
330 --
331 --
332 -- Call API
333 --
334 ota_activity_category_api.update_act_cat_inclusion
335 (p_validate => l_validate
336 ,p_effective_date => p_effective_date
337 ,p_activity_version_id => p_activity_version_id
338 ,p_activity_category => p_activity_category
339 ,p_comments => p_comments
340 ,p_object_version_number => p_object_version_number
341 ,p_aci_information_category => p_aci_information_category
342 ,p_aci_information1 => p_aci_information1
343 ,p_aci_information2 => p_aci_information2
344 ,p_aci_information3 => p_aci_information3
345 ,p_aci_information4 => p_aci_information4
346 ,p_aci_information5 => p_aci_information5
347 ,p_aci_information6 => p_aci_information6
348 ,p_aci_information7 => p_aci_information7
349 ,p_aci_information8 => p_aci_information8
350 ,p_aci_information9 => p_aci_information9
351 ,p_aci_information10 => p_aci_information10
352 ,p_aci_information11 => p_aci_information11
353 ,p_aci_information12 => p_aci_information12
354 ,p_aci_information13 => p_aci_information13
355 ,p_aci_information14 => p_aci_information14
356 ,p_aci_information15 => p_aci_information15
357 ,p_aci_information16 => p_aci_information16
358 ,p_aci_information17 => p_aci_information17
359 ,p_aci_information18 => p_aci_information18
360 ,p_aci_information19 => p_aci_information19
361 ,p_aci_information20 => p_aci_information20
362 ,p_start_date_active => p_start_date_active
363 ,p_end_date_active => p_end_date_active
364 ,p_primary_flag => p_primary_flag
365 ,p_category_usage_id => p_category_usage_id
366 );
367 --
368 -- Convert API warning boolean parameter values to specific
369 -- messages and add them to Multiple Message List
370 --
371 --
372 -- Convert API non-warning boolean parameter values
373 --
374 --
375 -- Derive the API return status value based on whether
376 -- messages of any type exist in the Multiple Message List.
377 -- Also disable Multiple Message Detection.
378 --
379 p_return_status := hr_multi_message.get_return_status_disable;
380 hr_utility.set_location(' Leaving:' || l_proc,20);
381 --
382 exception
383 when hr_multi_message.error_message_exist then
384 --
385 -- Catch the Multiple Message List exception which
386 -- indicates API processing has been aborted because
387 -- at least one message exists in the list.
388 --
389 rollback to update_act_cat_inclusion_swi;
390 --
391 -- Reset IN OUT parameters and set OUT parameters
392 --
393 p_object_version_number := l_object_version_number;
394 p_return_status := hr_multi_message.get_return_status_disable;
395 hr_utility.set_location(' Leaving:' || l_proc, 30);
396 when others then
397 --
398 -- When Multiple Message Detection is enabled catch
399 -- any Application specific or other unexpected
400 -- exceptions. Adding appropriate details to the
401 -- Multiple Message List. Otherwise re-raise the
402 -- error.
403 --
404 rollback to update_act_cat_inclusion_swi;
405 if hr_multi_message.unexpected_error_add(l_proc) then
406 hr_utility.set_location(' Leaving:' || l_proc,40);
407 raise;
408 end if;
409 --
410 -- Reset IN OUT and set OUT parameters
411 --
412 p_object_version_number := l_object_version_number;
413 p_return_status := hr_multi_message.get_return_status_disable;
414 hr_utility.set_location(' Leaving:' || l_proc,50);
415 end update_act_cat_inclusion;
416 -- ----------------------------------------------------------------------------
417 -- |------------------------< validate_delete_aci >-----------------------|
418 -- ----------------------------------------------------------------------------
419 PROCEDURE validate_delete_aci
420 (p_activity_version_id in number
421 ,p_category_usage_id in number
422 ,p_return_status out nocopy varchar2
423 ) is
424 --
425 -- Variables for IN/OUT parameters
426 --
427 -- Other variables
428 l_proc varchar2(72) := g_package ||'validate_delete_aci';
429 Begin
430 hr_utility.set_location(' Entering:' || l_proc,10);
431 --
432 -- Issue a savepoint
433 --
434 savepoint validate_delete_aci_swi;
435 --
436 -- Initialise Multiple Message Detection
437 --
438 hr_multi_message.enable_message_list;
439 --
440 -- Remember IN OUT parameter IN values
441 --
442 --
443 --
444 -- Call API
445 --
446 ota_aci_bus.check_if_primary_category( p_activity_version_id
447 ,p_category_usage_id);
448
449 --
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 validate_delete_aci_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 validate_delete_aci_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 validate_delete_aci;
486
487 end ota_activity_category_swi;