[Home] [Help]
PACKAGE BODY: APPS.OTA_ACTIVITY_VERSION_SWI
Source
1 PACKAGE BODY ota_activity_version_swi As
2 /* $Header: ottavswi.pkb 120.1 2005/08/11 12:28:15 dhmulia noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'ota_activity_version_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_activity_version >-----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_activity_version
12 (p_effective_date in date
13 ,p_validate in number default hr_api.g_false_num
14 ,p_activity_id in number
15 ,p_superseded_by_act_version_id in number default null
16 ,p_developer_organization_id in number
17 ,p_controlling_person_id in number default null
18 ,p_version_name in varchar2
19 ,p_comments in varchar2 default null
20 ,p_description in varchar2 default null
21 ,p_duration in number default null
22 ,p_duration_units in varchar2 default null
23 ,p_end_date in date default null
24 ,p_intended_audience in varchar2 default null
25 ,p_language_id in number default null
26 ,p_maximum_attendees in number default null
27 ,p_minimum_attendees in number default null
28 ,p_objectives in varchar2 default null
29 ,p_start_date in date default null
30 ,p_success_criteria in varchar2 default null
31 ,p_user_status in varchar2 default null
32 ,p_vendor_id in number default null
33 ,p_actual_cost in number default null
34 ,p_budget_cost in number default null
35 ,p_budget_currency_code in varchar2 default null
36 ,p_expenses_allowed in varchar2 default null
37 ,p_professional_credit_type in varchar2 default null
38 ,p_professional_credits in number default null
39 ,p_maximum_internal_attendees in number default null
40 ,p_tav_information_category in varchar2 default null
41 ,p_tav_information1 in varchar2 default null
42 ,p_tav_information2 in varchar2 default null
43 ,p_tav_information3 in varchar2 default null
44 ,p_tav_information4 in varchar2 default null
45 ,p_tav_information5 in varchar2 default null
46 ,p_tav_information6 in varchar2 default null
47 ,p_tav_information7 in varchar2 default null
48 ,p_tav_information8 in varchar2 default null
49 ,p_tav_information9 in varchar2 default null
50 ,p_tav_information10 in varchar2 default null
51 ,p_tav_information11 in varchar2 default null
52 ,p_tav_information12 in varchar2 default null
53 ,p_tav_information13 in varchar2 default null
54 ,p_tav_information14 in varchar2 default null
55 ,p_tav_information15 in varchar2 default null
56 ,p_tav_information16 in varchar2 default null
57 ,p_tav_information17 in varchar2 default null
58 ,p_tav_information18 in varchar2 default null
59 ,p_tav_information19 in varchar2 default null
60 ,p_tav_information20 in varchar2 default null
61 ,p_inventory_item_id in number default null
62 ,p_organization_id in number default null
63 ,p_rco_id in number default null
64 ,p_version_code in varchar2 default null
65 ,p_keywords in varchar2 default null
66 ,p_business_group_id in number default null
67 ,p_activity_version_id in number
68 ,p_object_version_number out nocopy number
69 ,p_return_status out nocopy varchar2
70 ,p_data_source in varchar2 default null
71 ,p_competency_update_level in varchar2 default null
72 ) is
73 --
74 -- Variables for API Boolean parameters
75 l_validate boolean;
76 --
77 -- Variables for IN/OUT parameters
78 --
79 -- Other variables
80 l_activity_version_id number;
81 l_proc varchar2(72) := g_package ||'create_activity_version';
82 Begin
83 hr_utility.set_location(' Entering:' || l_proc,10);
84 --
85 -- Issue a savepoint
86 --
87 savepoint create_activity_version_swi;
88 --
89 -- Initialise Multiple Message Detection
90 --
91 hr_multi_message.enable_message_list;
92 --
93 -- Remember IN OUT parameter IN values
94 --
95 --
96 -- Convert constant values to their corresponding boolean value
97 --
98 l_validate :=
99 hr_api.constant_to_boolean
100 (p_constant_value => p_validate);
101 --
102 -- Register Surrogate ID or user key values
103 --
104 ota_tav_ins.set_base_key_value
105 (p_activity_version_id => p_activity_version_id
106 );
107 --
108 -- Call API
109 --
110 ota_activity_version_api.create_activity_version
111 (p_effective_date => p_effective_date
112 ,p_validate => l_validate
113 ,p_activity_id => p_activity_id
114 ,p_superseded_by_act_version_id => p_superseded_by_act_version_id
115 ,p_developer_organization_id => p_developer_organization_id
116 ,p_controlling_person_id => p_controlling_person_id
117 ,p_version_name => p_version_name
118 ,p_comments => p_comments
119 ,p_description => p_description
120 ,p_duration => p_duration
121 ,p_duration_units => p_duration_units
122 ,p_end_date => p_end_date
123 ,p_intended_audience => p_intended_audience
124 ,p_language_id => p_language_id
125 ,p_maximum_attendees => p_maximum_attendees
126 ,p_minimum_attendees => p_minimum_attendees
127 ,p_objectives => p_objectives
128 ,p_start_date => p_start_date
129 ,p_success_criteria => p_success_criteria
130 ,p_user_status => p_user_status
131 ,p_vendor_id => p_vendor_id
132 ,p_actual_cost => p_actual_cost
133 ,p_budget_cost => p_budget_cost
134 ,p_budget_currency_code => p_budget_currency_code
135 ,p_expenses_allowed => p_expenses_allowed
136 ,p_professional_credit_type => p_professional_credit_type
137 ,p_professional_credits => p_professional_credits
138 ,p_maximum_internal_attendees => p_maximum_internal_attendees
139 ,p_tav_information_category => p_tav_information_category
140 ,p_tav_information1 => p_tav_information1
141 ,p_tav_information2 => p_tav_information2
142 ,p_tav_information3 => p_tav_information3
143 ,p_tav_information4 => p_tav_information4
144 ,p_tav_information5 => p_tav_information5
145 ,p_tav_information6 => p_tav_information6
146 ,p_tav_information7 => p_tav_information7
147 ,p_tav_information8 => p_tav_information8
148 ,p_tav_information9 => p_tav_information9
149 ,p_tav_information10 => p_tav_information10
150 ,p_tav_information11 => p_tav_information11
151 ,p_tav_information12 => p_tav_information12
152 ,p_tav_information13 => p_tav_information13
153 ,p_tav_information14 => p_tav_information14
154 ,p_tav_information15 => p_tav_information15
155 ,p_tav_information16 => p_tav_information16
156 ,p_tav_information17 => p_tav_information17
157 ,p_tav_information18 => p_tav_information18
158 ,p_tav_information19 => p_tav_information19
159 ,p_tav_information20 => p_tav_information20
160 ,p_inventory_item_id => p_inventory_item_id
161 ,p_organization_id => p_organization_id
162 ,p_rco_id => p_rco_id
163 ,p_version_code => p_version_code
164 ,p_keywords => p_keywords
165 ,p_business_group_id => p_business_group_id
166 ,p_activity_version_id => l_activity_version_id
167 ,p_object_version_number => p_object_version_number
168 ,p_data_source => p_data_source
169 ,p_competency_update_level => p_competency_update_level
170
171 );
172 --
173 -- Convert API warning boolean parameter values to specific
174 -- messages and add them to Multiple Message List
175 --
176 --
177 -- Convert API non-warning boolean parameter values
178 --
179 --
180 -- Derive the API return status value based on whether
181 -- messages of any type exist in the Multiple Message List.
182 -- Also disable Multiple Message Detection.
183 --
184 p_return_status := hr_multi_message.get_return_status_disable;
185 hr_utility.set_location(' Leaving:' || l_proc,20);
186 --
187 exception
188 when hr_multi_message.error_message_exist then
189 --
190 -- Catch the Multiple Message List exception which
191 -- indicates API processing has been aborted because
192 -- at least one message exists in the list.
193 --
194 rollback to create_activity_version_swi;
195 --
196 -- Reset IN OUT parameters and set OUT parameters
197 --
198 p_object_version_number := null;
199 p_return_status := hr_multi_message.get_return_status_disable;
200 hr_utility.set_location(' Leaving:' || l_proc, 30);
201 when others then
202 --
203 -- When Multiple Message Detection is enabled catch
204 -- any Application specific or other unexpected
205 -- exceptions. Adding appropriate details to the
206 -- Multiple Message List. Otherwise re-raise the
207 -- error.
208 --
209 rollback to create_activity_version_swi;
210 if hr_multi_message.unexpected_error_add(l_proc) then
211 hr_utility.set_location(' Leaving:' || l_proc,40);
212 raise;
213 end if;
214 --
215 -- Reset IN OUT and set OUT parameters
216 --
217 p_object_version_number := null;
218 p_return_status := hr_multi_message.get_return_status_disable;
219 hr_utility.set_location(' Leaving:' || l_proc,50);
220 end create_activity_version;
221 -- ----------------------------------------------------------------------------
222 -- |------------------------< delete_activity_version >-----------------------|
223 -- ----------------------------------------------------------------------------
224 PROCEDURE delete_activity_version
225 (p_activity_version_id in number
226 ,p_object_version_number in number
227 ,p_validate in number default hr_api.g_false_num
228 ,p_return_status out nocopy varchar2
229 ) is
230 --
231 -- Variables for API Boolean parameters
232 l_validate boolean;
233 --
234 -- Variables for IN/OUT parameters
235 --
236 -- Other variables
237 l_proc varchar2(72) := g_package ||'delete_activity_version';
238 Begin
239 hr_utility.set_location(' Entering:' || l_proc,10);
240 --
241 -- Issue a savepoint
242 --
243 savepoint delete_activity_version_swi;
244 --
245 -- Initialise Multiple Message Detection
246 --
247 hr_multi_message.enable_message_list;
248 --
249 -- Remember IN OUT parameter IN values
250 --
251 --
252 -- Convert constant values to their corresponding boolean value
253 --
254 l_validate :=
255 hr_api.constant_to_boolean
256 (p_constant_value => p_validate);
257 --
258 -- Register Surrogate ID or user key values
259 --
260 --
261 -- Call API
262 --
263 ota_activity_version_api.delete_activity_version
264 (p_activity_version_id => p_activity_version_id
265 ,p_object_version_number => p_object_version_number
266 ,p_validate => l_validate
267 );
268 --
269 -- Convert API warning boolean parameter values to specific
270 -- messages and add them to Multiple Message List
271 --
272 --
273 -- Convert API non-warning boolean parameter values
274 --
275 --
276 -- Derive the API return status value based on whether
277 -- messages of any type exist in the Multiple Message List.
278 -- Also disable Multiple Message Detection.
279 --
280 p_return_status := hr_multi_message.get_return_status_disable;
281 hr_utility.set_location(' Leaving:' || l_proc,20);
282 --
283 exception
284 when hr_multi_message.error_message_exist then
285 --
286 -- Catch the Multiple Message List exception which
287 -- indicates API processing has been aborted because
288 -- at least one message exists in the list.
289 --
290 rollback to delete_activity_version_swi;
291 --
292 -- Reset IN OUT parameters and set OUT parameters
293 --
294 p_return_status := hr_multi_message.get_return_status_disable;
295 hr_utility.set_location(' Leaving:' || l_proc, 30);
296 when others then
297 --
298 -- When Multiple Message Detection is enabled catch
299 -- any Application specific or other unexpected
300 -- exceptions. Adding appropriate details to the
301 -- Multiple Message List. Otherwise re-raise the
302 -- error.
303 --
304 rollback to delete_activity_version_swi;
305 if hr_multi_message.unexpected_error_add(l_proc) then
306 hr_utility.set_location(' Leaving:' || l_proc,40);
307 raise;
308 end if;
309 --
310 -- Reset IN OUT and set OUT parameters
311 --
312 p_return_status := hr_multi_message.get_return_status_disable;
313 hr_utility.set_location(' Leaving:' || l_proc,50);
314 end delete_activity_version;
315 -- ----------------------------------------------------------------------------
316 -- |------------------------< update_activity_version >-----------------------|
317 -- ----------------------------------------------------------------------------
318 PROCEDURE update_activity_version
319 (p_effective_date in date
320 ,p_activity_version_id in number
321 ,p_activity_id in number default hr_api.g_number
322 ,p_superseded_by_act_version_id in number default hr_api.g_number
323 ,p_developer_organization_id in number default hr_api.g_number
324 ,p_controlling_person_id in number default hr_api.g_number
325 ,p_object_version_number in out nocopy number
326 ,p_version_name in varchar2 default hr_api.g_varchar2
327 ,p_comments in varchar2 default hr_api.g_varchar2
328 ,p_description in varchar2 default hr_api.g_varchar2
329 ,p_duration in number default hr_api.g_number
330 ,p_duration_units in varchar2 default hr_api.g_varchar2
331 ,p_end_date in date default hr_api.g_date
332 ,p_intended_audience in varchar2 default hr_api.g_varchar2
333 ,p_language_id in number default hr_api.g_number
334 ,p_maximum_attendees in number default hr_api.g_number
335 ,p_minimum_attendees in number default hr_api.g_number
336 ,p_objectives in varchar2 default hr_api.g_varchar2
337 ,p_start_date in date default hr_api.g_date
338 ,p_success_criteria in varchar2 default hr_api.g_varchar2
339 ,p_user_status in varchar2 default hr_api.g_varchar2
340 ,p_vendor_id in number default hr_api.g_number
341 ,p_actual_cost in number default hr_api.g_number
342 ,p_budget_cost in number default hr_api.g_number
343 ,p_budget_currency_code in varchar2 default hr_api.g_varchar2
344 ,p_expenses_allowed in varchar2 default hr_api.g_varchar2
345 ,p_professional_credit_type in varchar2 default hr_api.g_varchar2
346 ,p_professional_credits in number default hr_api.g_number
347 ,p_maximum_internal_attendees in number default hr_api.g_number
348 ,p_tav_information_category in varchar2 default hr_api.g_varchar2
349 ,p_tav_information1 in varchar2 default hr_api.g_varchar2
350 ,p_tav_information2 in varchar2 default hr_api.g_varchar2
351 ,p_tav_information3 in varchar2 default hr_api.g_varchar2
352 ,p_tav_information4 in varchar2 default hr_api.g_varchar2
353 ,p_tav_information5 in varchar2 default hr_api.g_varchar2
354 ,p_tav_information6 in varchar2 default hr_api.g_varchar2
355 ,p_tav_information7 in varchar2 default hr_api.g_varchar2
356 ,p_tav_information8 in varchar2 default hr_api.g_varchar2
357 ,p_tav_information9 in varchar2 default hr_api.g_varchar2
358 ,p_tav_information10 in varchar2 default hr_api.g_varchar2
359 ,p_tav_information11 in varchar2 default hr_api.g_varchar2
360 ,p_tav_information12 in varchar2 default hr_api.g_varchar2
361 ,p_tav_information13 in varchar2 default hr_api.g_varchar2
362 ,p_tav_information14 in varchar2 default hr_api.g_varchar2
363 ,p_tav_information15 in varchar2 default hr_api.g_varchar2
364 ,p_tav_information16 in varchar2 default hr_api.g_varchar2
365 ,p_tav_information17 in varchar2 default hr_api.g_varchar2
366 ,p_tav_information18 in varchar2 default hr_api.g_varchar2
367 ,p_tav_information19 in varchar2 default hr_api.g_varchar2
368 ,p_tav_information20 in varchar2 default hr_api.g_varchar2
369 ,p_inventory_item_id in number default hr_api.g_number
370 ,p_organization_id in number default hr_api.g_number
371 ,p_rco_id in number default hr_api.g_number
372 ,p_version_code in varchar2 default hr_api.g_varchar2
373 ,p_keywords in varchar2 default hr_api.g_varchar2
374 ,p_business_group_id in number default hr_api.g_number
375 ,p_validate in number default hr_api.g_false_num
376 ,p_return_status out nocopy varchar2
377 ,p_data_source in varchar2 default hr_api.g_varchar2
378 ,p_competency_update_level in varchar2 default hr_api.g_varchar2
379
380 ) is
381 --
382 -- Variables for API Boolean parameters
383 l_validate boolean;
384 --
385 -- Variables for IN/OUT parameters
386 l_object_version_number number;
387 --
388 -- Other variables
389 l_proc varchar2(72) := g_package ||'update_activity_version';
390 Begin
391 hr_utility.set_location(' Entering:' || l_proc,10);
392 --
393 -- Issue a savepoint
394 --
395 savepoint update_activity_version_swi;
396 --
397 -- Initialise Multiple Message Detection
398 --
399 hr_multi_message.enable_message_list;
400 --
401 -- Remember IN OUT parameter IN values
402 --
403 l_object_version_number := p_object_version_number;
404 --
405 -- Convert constant values to their corresponding boolean value
406 --
407 l_validate :=
408 hr_api.constant_to_boolean
409 (p_constant_value => p_validate);
410 --
411 -- Register Surrogate ID or user key values
412 --
413 --
414 -- Call API
415 --
416 ota_activity_version_api.update_activity_version
417 (p_effective_date => p_effective_date
418 ,p_activity_version_id => p_activity_version_id
419 ,p_activity_id => p_activity_id
420 ,p_superseded_by_act_version_id => p_superseded_by_act_version_id
421 ,p_developer_organization_id => p_developer_organization_id
422 ,p_controlling_person_id => p_controlling_person_id
423 ,p_object_version_number => p_object_version_number
424 ,p_version_name => p_version_name
425 ,p_comments => p_comments
426 ,p_description => p_description
427 ,p_duration => p_duration
428 ,p_duration_units => p_duration_units
429 ,p_end_date => p_end_date
430 ,p_intended_audience => p_intended_audience
431 ,p_language_id => p_language_id
432 ,p_maximum_attendees => p_maximum_attendees
433 ,p_minimum_attendees => p_minimum_attendees
434 ,p_objectives => p_objectives
435 ,p_start_date => p_start_date
436 ,p_success_criteria => p_success_criteria
437 ,p_user_status => p_user_status
438 ,p_vendor_id => p_vendor_id
439 ,p_actual_cost => p_actual_cost
440 ,p_budget_cost => p_budget_cost
441 ,p_budget_currency_code => p_budget_currency_code
442 ,p_expenses_allowed => p_expenses_allowed
443 ,p_professional_credit_type => p_professional_credit_type
444 ,p_professional_credits => p_professional_credits
445 ,p_maximum_internal_attendees => p_maximum_internal_attendees
446 ,p_tav_information_category => p_tav_information_category
447 ,p_tav_information1 => p_tav_information1
448 ,p_tav_information2 => p_tav_information2
449 ,p_tav_information3 => p_tav_information3
450 ,p_tav_information4 => p_tav_information4
451 ,p_tav_information5 => p_tav_information5
452 ,p_tav_information6 => p_tav_information6
453 ,p_tav_information7 => p_tav_information7
454 ,p_tav_information8 => p_tav_information8
455 ,p_tav_information9 => p_tav_information9
456 ,p_tav_information10 => p_tav_information10
457 ,p_tav_information11 => p_tav_information11
458 ,p_tav_information12 => p_tav_information12
459 ,p_tav_information13 => p_tav_information13
460 ,p_tav_information14 => p_tav_information14
461 ,p_tav_information15 => p_tav_information15
462 ,p_tav_information16 => p_tav_information16
463 ,p_tav_information17 => p_tav_information17
464 ,p_tav_information18 => p_tav_information18
465 ,p_tav_information19 => p_tav_information19
466 ,p_tav_information20 => p_tav_information20
467 ,p_inventory_item_id => p_inventory_item_id
468 ,p_organization_id => p_organization_id
469 ,p_rco_id => p_rco_id
470 ,p_version_code => p_version_code
471 ,p_keywords => p_keywords
472 ,p_business_group_id => p_business_group_id
473 ,p_validate => l_validate
474 ,p_data_source => p_data_source
475 ,p_competency_update_level => p_competency_update_level
476
477 );
478 --
479 -- Convert API warning boolean parameter values to specific
480 -- messages and add them to Multiple Message List
481 --
482 --
483 -- Convert API non-warning boolean parameter values
484 --
485 --
486 -- Derive the API return status value based on whether
487 -- messages of any type exist in the Multiple Message List.
488 -- Also disable Multiple Message Detection.
489 --
490 p_return_status := hr_multi_message.get_return_status_disable;
491 hr_utility.set_location(' Leaving:' || l_proc,20);
492 --
493 exception
494 when hr_multi_message.error_message_exist then
495 --
496 -- Catch the Multiple Message List exception which
497 -- indicates API processing has been aborted because
498 -- at least one message exists in the list.
499 --
500 rollback to update_activity_version_swi;
501 --
502 -- Reset IN OUT parameters and set OUT parameters
503 --
504 p_object_version_number := l_object_version_number;
505 p_return_status := hr_multi_message.get_return_status_disable;
506 hr_utility.set_location(' Leaving:' || l_proc, 30);
507 when others then
508 --
509 -- When Multiple Message Detection is enabled catch
510 -- any Application specific or other unexpected
511 -- exceptions. Adding appropriate details to the
512 -- Multiple Message List. Otherwise re-raise the
513 -- error.
514 --
515 rollback to update_activity_version_swi;
516 if hr_multi_message.unexpected_error_add(l_proc) then
517 hr_utility.set_location(' Leaving:' || l_proc,40);
518 raise;
519 end if;
520 --
521 -- Reset IN OUT and set OUT parameters
522 --
523 p_object_version_number := l_object_version_number;
524 p_return_status := hr_multi_message.get_return_status_disable;
525 hr_utility.set_location(' Leaving:' || l_proc,50);
526 end update_activity_version;
527 -- ----------------------------------------------------------------------------
528 -- |------------------------< validate_delete_act_ver >-----------------------|
529 -- ----------------------------------------------------------------------------
530 PROCEDURE validate_delete_act_ver
531 (p_activity_version_id in number
532 ,p_return_status out nocopy varchar2
533 ) is
534 --
535 -- Variables for IN/OUT parameters
536 --
537 -- Other variables
538 l_proc varchar2(72) := g_package ||'validate_delete_act_ver';
539 Begin
540 hr_utility.set_location(' Entering:' || l_proc,10);
541 --
542 -- Issue a savepoint
543 --
544 savepoint validate_delete_act_ver_swi;
545 --
546 -- Initialise Multiple Message Detection
547 --
548 hr_multi_message.enable_message_list;
549 --
550 -- Remember IN OUT parameter IN values
551 --
552 --
553 --
554 -- Call API
555 --
556 ota_tav_bus.check_if_tpm_exists( p_activity_version_id );
557 --
558 ota_tav_bus.check_if_evt_exists( p_activity_version_id );
559 --
560 ota_tav_bus.check_if_tbd_exists( p_activity_version_id );
561 --
562 ota_tav_bus.check_if_ple_exists( p_activity_version_id );
563 --
564 ota_tav_bus.check_if_tav_exists( p_activity_version_id );
565 --
566 ota_tav_bus.check_if_tsp_exists( p_activity_version_id );
567 --
568 ota_tav_bus.check_if_off_exists( p_activity_version_id );
569 --
570 ota_tav_bus.check_if_lpm_exists( p_activity_version_id );
571 --
572 ota_tav_bus.check_if_comp_exists( p_activity_version_id );
573 --
574 ota_tav_bus.check_if_noth_exists( p_activity_version_id );
575 --
576 ota_tav_bus.check_if_crt_exists( p_activity_version_id );
577
578 --
579 p_return_status := hr_multi_message.get_return_status_disable;
580 hr_utility.set_location(' Leaving:' || l_proc,20);
581 --
582 exception
583 when hr_multi_message.error_message_exist then
584 --
585 -- Catch the Multiple Message List exception which
586 -- indicates API processing has been aborted because
587 -- at least one message exists in the list.
588 --
589 rollback to validate_delete_act_ver_swi;
590 --
591 -- Reset IN OUT parameters and set OUT parameters
592 --
593 p_return_status := hr_multi_message.get_return_status_disable;
594 hr_utility.set_location(' Leaving:' || l_proc, 30);
595 when others then
596 --
597 -- When Multiple Message Detection is enabled catch
598 -- any Application specific or other unexpected
599 -- exceptions. Adding appropriate details to the
600 -- Multiple Message List. Otherwise re-raise the
601 -- error.
602 --
603 rollback to validate_delete_act_ver_swi;
604 if hr_multi_message.unexpected_error_add(l_proc) then
605 hr_utility.set_location(' Leaving:' || l_proc,40);
606 raise;
607 end if;
608 --
609 -- Reset IN OUT and set OUT parameters
610 --
611 p_return_status := hr_multi_message.get_return_status_disable;
612 hr_utility.set_location(' Leaving:' || l_proc,50);
613 end validate_delete_act_ver;
614 end ota_activity_version_swi;