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