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