[Home] [Help]
PACKAGE BODY: APPS.OTA_RESOURCE_USAGE_API
Source
1 PACKAGE BODY OTA_RESOURCE_USAGE_API as
2 /* $Header: otrudapi.pkb 115.1 2003/12/30 19:10:38 dhmulia noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' OTA_RESOURCE_USAGE_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |---------------------------< Create_resource >----------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure Create_resource
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_activity_version_id in number default null
16 ,p_required_flag in varchar2
17 ,p_start_date in date
18 ,p_supplied_resource_id in number default null
19 ,p_comments in varchar2 default null
20 ,p_end_date in date default null
21 ,p_quantity in number default null
22 ,p_resource_type in varchar2 default null
23 ,p_role_to_play in varchar2 default null
24 ,p_usage_reason in varchar2 default null
25 ,p_rud_information_category in varchar2 default null
26 ,p_rud_information1 in varchar2 default null
27 ,p_rud_information2 in varchar2 default null
28 ,p_rud_information3 in varchar2 default null
29 ,p_rud_information4 in varchar2 default null
30 ,p_rud_information5 in varchar2 default null
31 ,p_rud_information6 in varchar2 default null
32 ,p_rud_information7 in varchar2 default null
33 ,p_rud_information8 in varchar2 default null
34 ,p_rud_information9 in varchar2 default null
35 ,p_rud_information10 in varchar2 default null
36 ,p_rud_information11 in varchar2 default null
37 ,p_rud_information12 in varchar2 default null
38 ,p_rud_information13 in varchar2 default null
39 ,p_rud_information14 in varchar2 default null
40 ,p_rud_information15 in varchar2 default null
41 ,p_rud_information16 in varchar2 default null
42 ,p_rud_information17 in varchar2 default null
43 ,p_rud_information18 in varchar2 default null
44 ,p_rud_information19 in varchar2 default null
45 ,p_rud_information20 in varchar2 default null
46 ,p_resource_usage_id out nocopy number
47 ,p_object_version_number out nocopy number
48 ,p_offering_id in number default null
49 ) is
50 --
51 -- Declare cursors and local variables
52 --
53 l_proc varchar2(72) := g_package||'Create_resource';
54 l_resource_usage_id number;
55 l_object_version_number number;
56 l_effective_date date;
57 begin
58 hr_utility.set_location('Entering:'|| l_proc, 10);
59 --
60 -- Issue a savepoint
61 --
62 savepoint CREATE_RESOURCE;
63 --
64 -- Truncate the time portion from all IN date parameters
65 --
66 l_effective_date := trunc(p_effective_date);
67 --
68 -- Call Before Process User Hook
69 --
70
71 begin
72 ota_resource_usage_bk1.Create_resource_b
73 (p_effective_date => l_effective_date
74 ,p_activity_version_id => p_activity_version_id
75 ,p_required_flag => p_required_flag
76 ,p_start_date => p_start_date
77 ,p_supplied_resource_id => p_supplied_resource_id
78 ,p_comments => p_comments
79 ,p_end_date => p_end_date
80 ,p_quantity => p_quantity
81 ,p_resource_type => p_resource_type
82 ,p_role_to_play => p_role_to_play
83 ,p_usage_reason => p_usage_reason
84 ,p_rud_information_category => p_rud_information_category
85 ,p_rud_information1 => p_rud_information1
86 ,p_rud_information2 => p_rud_information2
87 ,p_rud_information3 => p_rud_information3
88 ,p_rud_information4 => p_rud_information4
89 ,p_rud_information5 => p_rud_information5
90 ,p_rud_information6 => p_rud_information6
91 ,p_rud_information7 => p_rud_information7
92 ,p_rud_information8 => p_rud_information8
93 ,p_rud_information9 => p_rud_information9
94 ,p_rud_information10 => p_rud_information10
95 ,p_rud_information11 => p_rud_information11
96 ,p_rud_information12 => p_rud_information12
97 ,p_rud_information13 => p_rud_information13
98 ,p_rud_information14 => p_rud_information14
102 ,p_rud_information18 => p_rud_information18
99 ,p_rud_information15 => p_rud_information15
100 ,p_rud_information16 => p_rud_information16
101 ,p_rud_information17 => p_rud_information17
103 ,p_rud_information19 => p_rud_information19
104 ,p_rud_information20 => p_rud_information20
105 ,p_offering_id => p_offering_id
106 );
107
108 exception
109 when hr_api.cannot_find_prog_unit then
110 hr_api.cannot_find_prog_unit_error
111 (p_module_name => 'CREATE_RESOURCE'
112 ,p_hook_type => 'BP'
113 );
114 end;
115
116 --
117 -- Validation in addition to Row Handlers
118 --
119 --
120 -- Process Logic (Base table)
121 --
122 ota_rud_ins.ins
123 (p_effective_date => l_effective_date
124 ,p_activity_version_id => p_activity_version_id
125 ,p_required_flag => p_required_flag
126 ,p_start_date => p_start_date
127 ,p_supplied_resource_id => p_supplied_resource_id
128 ,p_comments => p_comments
129 ,p_end_date => p_end_date
130 ,p_quantity => p_quantity
131 ,p_resource_type => p_resource_type
132 ,p_role_to_play => p_role_to_play
133 ,p_usage_reason => p_usage_reason
134 ,p_rud_information_category => p_rud_information_category
135 ,p_rud_information1 => p_rud_information1
136 ,p_rud_information2 => p_rud_information2
137 ,p_rud_information3 => p_rud_information3
138 ,p_rud_information4 => p_rud_information4
139 ,p_rud_information5 => p_rud_information5
140 ,p_rud_information6 => p_rud_information6
141 ,p_rud_information7 => p_rud_information7
142 ,p_rud_information8 => p_rud_information8
143 ,p_rud_information9 => p_rud_information9
144 ,p_rud_information10 => p_rud_information10
145 ,p_rud_information11 => p_rud_information11
146 ,p_rud_information12 => p_rud_information12
147 ,p_rud_information13 => p_rud_information13
148 ,p_rud_information14 => p_rud_information14
149 ,p_rud_information15 => p_rud_information15
150 ,p_rud_information16 => p_rud_information16
151 ,p_rud_information17 => p_rud_information17
152 ,p_rud_information18 => p_rud_information18
153 ,p_rud_information19 => p_rud_information19
154 ,p_rud_information20 => p_rud_information20
155 ,p_resource_usage_id => l_resource_usage_id
156 ,p_object_version_number => l_object_version_number
157 ,p_offering_id => p_offering_id
158 );
159
160 --
161 -- Call After Process User Hook
162 --
163
164 begin
165 ota_resource_usage_bk1.Create_resource_a
166 (p_effective_date => l_effective_date
167 ,p_activity_version_id => p_activity_version_id
168 ,p_required_flag => p_required_flag
169 ,p_start_date => p_start_date
170 ,p_supplied_resource_id => p_supplied_resource_id
171 ,p_comments => p_comments
172 ,p_end_date => p_end_date
173 ,p_quantity => p_quantity
174 ,p_resource_type => p_resource_type
175 ,p_role_to_play => p_role_to_play
176 ,p_usage_reason => p_usage_reason
177 ,p_rud_information_category => p_rud_information_category
178 ,p_rud_information1 => p_rud_information1
179 ,p_rud_information2 => p_rud_information2
180 ,p_rud_information3 => p_rud_information3
181 ,p_rud_information4 => p_rud_information4
182 ,p_rud_information5 => p_rud_information5
183 ,p_rud_information6 => p_rud_information6
184 ,p_rud_information7 => p_rud_information7
185 ,p_rud_information8 => p_rud_information8
186 ,p_rud_information9 => p_rud_information9
187 ,p_rud_information10 => p_rud_information10
188 ,p_rud_information11 => p_rud_information11
189 ,p_rud_information12 => p_rud_information12
190 ,p_rud_information13 => p_rud_information13
191 ,p_rud_information14 => p_rud_information14
192 ,p_rud_information15 => p_rud_information15
193 ,p_rud_information16 => p_rud_information16
194 ,p_rud_information17 => p_rud_information17
195 ,p_rud_information18 => p_rud_information18
196 ,p_rud_information19 => p_rud_information19
197 ,p_rud_information20 => p_rud_information20
198 ,p_resource_usage_id => l_resource_usage_id
199 ,p_object_version_number => l_object_version_number
200 ,p_offering_id => p_offering_id
201 );
202 exception
203 when hr_api.cannot_find_prog_unit then
207 );
204 hr_api.cannot_find_prog_unit_error
205 (p_module_name => 'CREATE_RESOURCE'
206 ,p_hook_type => 'AP'
208 end;
209
210 --
211 -- When in validation only mode raise the Validate_Enabled exception
212 --
213 if p_validate then
214 raise hr_api.validate_enabled;
215 end if;
216 --
217 -- Set all output arguments
218 --
219 p_resource_usage_id := l_resource_usage_id;
220 p_object_version_number := l_object_version_number;
221 --
222 hr_utility.set_location(' Leaving:'||l_proc, 70);
223 exception
224 when hr_api.validate_enabled then
225 --
226 -- As the Validate_Enabled exception has been raised
227 -- we must rollback to the savepoint
228 --
229 rollback to CREATE_RESOURCE;
230 --
231 -- Only set output warning arguments
232 -- (Any key or derived arguments must be set to null
233 -- when validation only mode is being used.)
234 --
235 p_resource_usage_id := null;
236 p_object_version_number := null;
237 hr_utility.set_location(' Leaving:'||l_proc, 80);
238 when others then
239 --
240 -- A validation or unexpected error has occured
241 --
242 rollback to CREATE_RESOURCE;
243 p_resource_usage_id := null;
244 p_object_version_number := null;
245 hr_utility.set_location(' Leaving:'||l_proc, 90);
246 raise;
250 -- ----------------------------------------------------------------------------
247 end Create_resource;
248 -- ----------------------------------------------------------------------------
249 -- |--------------------------< Update_resource >-----------------------------|
251 --
252 procedure Update_resource
253 (p_validate in boolean default false
254 ,p_effective_date in date
255 ,p_resource_usage_id in number
256 ,p_object_version_number in out nocopy number
257 ,p_activity_version_id in number default hr_api.g_number
258 ,p_required_flag in varchar2 default hr_api.g_varchar2
259 ,p_start_date in date default hr_api.g_date
260 ,p_supplied_resource_id in number default hr_api.g_number
261 ,p_comments in varchar2 default hr_api.g_varchar2
262 ,p_end_date in date default hr_api.g_date
263 ,p_quantity in number default hr_api.g_number
264 ,p_resource_type in varchar2 default hr_api.g_varchar2
265 ,p_role_to_play in varchar2 default hr_api.g_varchar2
266 ,p_usage_reason in varchar2 default hr_api.g_varchar2
267 ,p_rud_information_category in varchar2 default hr_api.g_varchar2
268 ,p_rud_information1 in varchar2 default hr_api.g_varchar2
269 ,p_rud_information2 in varchar2 default hr_api.g_varchar2
270 ,p_rud_information3 in varchar2 default hr_api.g_varchar2
271 ,p_rud_information4 in varchar2 default hr_api.g_varchar2
272 ,p_rud_information5 in varchar2 default hr_api.g_varchar2
273 ,p_rud_information6 in varchar2 default hr_api.g_varchar2
274 ,p_rud_information7 in varchar2 default hr_api.g_varchar2
275 ,p_rud_information8 in varchar2 default hr_api.g_varchar2
276 ,p_rud_information9 in varchar2 default hr_api.g_varchar2
277 ,p_rud_information10 in varchar2 default hr_api.g_varchar2
278 ,p_rud_information11 in varchar2 default hr_api.g_varchar2
279 ,p_rud_information12 in varchar2 default hr_api.g_varchar2
280 ,p_rud_information13 in varchar2 default hr_api.g_varchar2
281 ,p_rud_information14 in varchar2 default hr_api.g_varchar2
282 ,p_rud_information15 in varchar2 default hr_api.g_varchar2
286 ,p_rud_information19 in varchar2 default hr_api.g_varchar2
283 ,p_rud_information16 in varchar2 default hr_api.g_varchar2
284 ,p_rud_information17 in varchar2 default hr_api.g_varchar2
285 ,p_rud_information18 in varchar2 default hr_api.g_varchar2
287 ,p_rud_information20 in varchar2 default hr_api.g_varchar2
288 ,p_offering_id in number default hr_api.g_number
289 ) is
290 --
291 -- Declare cursors and local variables
292 --
293 l_proc varchar2(72) := g_package||'Update_resource';
294 l_effective_date date;
295 l_object_version_number number := p_object_version_number;
296 begin
297 hr_utility.set_location('Entering:'|| l_proc, 10);
298 --
299 -- Issue a savepoint
300 --
301 savepoint UPDATE_RESOURCE;
302 --
303 -- Truncate the time portion from all IN date parameters
304 --
305 l_effective_date := trunc(p_effective_date);
306 --
307 -- Call Before Process User Hook
308 --
309
310 begin
311 ota_resource_usage_bk2.Update_resource_b
312 (p_effective_date => l_effective_date
313 ,p_resource_usage_id => p_resource_usage_id
314 ,p_object_version_number => p_object_version_number
315 ,p_activity_version_id => p_activity_version_id
316 ,p_required_flag => p_required_flag
317 ,p_start_date => p_start_date
318 ,p_supplied_resource_id => p_supplied_resource_id
319 ,p_comments => p_comments
320 ,p_end_date => p_end_date
321 ,p_quantity => p_quantity
322 ,p_resource_type => p_resource_type
323 ,p_role_to_play => p_role_to_play
324 ,p_usage_reason => p_usage_reason
325 ,p_rud_information_category => p_rud_information_category
326 ,p_rud_information1 => p_rud_information1
327 ,p_rud_information2 => p_rud_information2
328 ,p_rud_information3 => p_rud_information3
329 ,p_rud_information4 => p_rud_information4
330 ,p_rud_information5 => p_rud_information5
331 ,p_rud_information6 => p_rud_information6
332 ,p_rud_information7 => p_rud_information7
333 ,p_rud_information8 => p_rud_information8
334 ,p_rud_information9 => p_rud_information9
335 ,p_rud_information10 => p_rud_information10
336 ,p_rud_information11 => p_rud_information11
337 ,p_rud_information12 => p_rud_information12
338 ,p_rud_information13 => p_rud_information13
339 ,p_rud_information14 => p_rud_information14
340 ,p_rud_information15 => p_rud_information15
341 ,p_rud_information16 => p_rud_information16
342 ,p_rud_information17 => p_rud_information17
343 ,p_rud_information18 => p_rud_information18
344 ,p_rud_information19 => p_rud_information19
345 ,p_rud_information20 => p_rud_information20
346 ,p_offering_id => p_offering_id
347 );
348 exception
349 when hr_api.cannot_find_prog_unit then
350 hr_api.cannot_find_prog_unit_error
351 (p_module_name => 'UPDATE_RESOURCE'
352 ,p_hook_type => 'BP'
353 );
354 end;
355
356 --
357 -- Validation in addition to Row Handlers
358 --
359 --
360 -- Process Logic (Base table)
361 --
362 ota_rud_upd.upd
363 (p_effective_date => l_effective_date
364 ,p_resource_usage_id => p_resource_usage_id
365 ,p_object_version_number => p_object_version_number
366 ,p_activity_version_id => p_activity_version_id
367 ,p_required_flag => p_required_flag
368 ,p_start_date => p_start_date
369 ,p_supplied_resource_id => p_supplied_resource_id
370 ,p_comments => p_comments
371 ,p_end_date => p_end_date
372 ,p_quantity => p_quantity
373 ,p_resource_type => p_resource_type
374 ,p_role_to_play => p_role_to_play
375 ,p_usage_reason => p_usage_reason
376 ,p_rud_information_category => p_rud_information_category
377 ,p_rud_information1 => p_rud_information1
378 ,p_rud_information2 => p_rud_information2
379 ,p_rud_information3 => p_rud_information3
380 ,p_rud_information4 => p_rud_information4
381 ,p_rud_information5 => p_rud_information5
382 ,p_rud_information6 => p_rud_information6
383 ,p_rud_information7 => p_rud_information7
384 ,p_rud_information8 => p_rud_information8
385 ,p_rud_information9 => p_rud_information9
386 ,p_rud_information10 => p_rud_information10
387 ,p_rud_information11 => p_rud_information11
388 ,p_rud_information12 => p_rud_information12
389 ,p_rud_information13 => p_rud_information13
390 ,p_rud_information14 => p_rud_information14
391 ,p_rud_information15 => p_rud_information15
392 ,p_rud_information16 => p_rud_information16
393 ,p_rud_information17 => p_rud_information17
394 ,p_rud_information18 => p_rud_information18
395 ,p_rud_information19 => p_rud_information19
396 ,p_rud_information20 => p_rud_information20
397 ,p_offering_id => p_offering_id
401 --
398 );
399 --
400 -- Call After Process User Hook
402
403 begin
404 ota_resource_usage_bk2.Update_resource_a
405 (p_effective_date => l_effective_date
406 ,p_resource_usage_id => p_resource_usage_id
407 ,p_object_version_number => p_object_version_number
408 ,p_activity_version_id => p_activity_version_id
409 ,p_required_flag => p_required_flag
410 ,p_start_date => p_start_date
411 ,p_supplied_resource_id => p_supplied_resource_id
412 ,p_comments => p_comments
413 ,p_end_date => p_end_date
414 ,p_quantity => p_quantity
415 ,p_resource_type => p_resource_type
416 ,p_role_to_play => p_role_to_play
417 ,p_usage_reason => p_usage_reason
418 ,p_rud_information_category => p_rud_information_category
419 ,p_rud_information1 => p_rud_information1
420 ,p_rud_information2 => p_rud_information2
421 ,p_rud_information3 => p_rud_information3
422 ,p_rud_information4 => p_rud_information4
423 ,p_rud_information5 => p_rud_information5
424 ,p_rud_information6 => p_rud_information6
425 ,p_rud_information7 => p_rud_information7
426 ,p_rud_information8 => p_rud_information8
427 ,p_rud_information9 => p_rud_information9
428 ,p_rud_information10 => p_rud_information10
429 ,p_rud_information11 => p_rud_information11
430 ,p_rud_information12 => p_rud_information12
431 ,p_rud_information13 => p_rud_information13
432 ,p_rud_information14 => p_rud_information14
433 ,p_rud_information15 => p_rud_information15
434 ,p_rud_information16 => p_rud_information16
435 ,p_rud_information17 => p_rud_information17
436 ,p_rud_information18 => p_rud_information18
437 ,p_rud_information19 => p_rud_information19
438 ,p_rud_information20 => p_rud_information20
439 ,p_offering_id => p_offering_id
440 );
441 exception
442 when hr_api.cannot_find_prog_unit then
443 hr_api.cannot_find_prog_unit_error
444 (p_module_name => 'UPDATE_RESOURCE'
445 ,p_hook_type => 'AP'
446 );
447 end;
448
449 --
450 -- When in validation only mode raise the Validate_Enabled exception
451 --
452 if p_validate then
453 raise hr_api.validate_enabled;
454 end if;
455 --
456 -- Set all output arguments
457 --
458 hr_utility.set_location(' Leaving:'||l_proc, 70);
459 exception
460 when hr_api.validate_enabled then
461 --
462 -- As the Validate_Enabled exception has been raised
463 -- we must rollback to the savepoint
464 --
465 rollback to UPDATE_RESOURCE;
466 --
467 -- Only set output warning arguments
468 -- (Any key or derived arguments must be set to null
469 -- when validation only mode is being used.)
470 --
471 p_object_version_number := null;
472 hr_utility.set_location(' Leaving:'||l_proc, 80);
473 when others then
474 --
475 -- A validation or unexpected error has occured
476 --
477 rollback to UPDATE_RESOURCE;
478 p_object_version_number := l_object_version_number;
479 hr_utility.set_location(' Leaving:'||l_proc, 90);
480 raise;
481 end Update_resource;
482 --
483 -- ----------------------------------------------------------------------------
484 -- |--------------------------< Delete_resource >-----------------------------|
485 -- ----------------------------------------------------------------------------
486 --
487 procedure Delete_resource
488 (p_validate in boolean default false
489 ,p_resource_usage_id in number
490 ,p_object_version_number in number
491 ) is
492 --
493 -- Declare cursors and local variables
494 --
495 l_proc varchar2(72) := g_package||'Delete_resource';
496 l_budget_version_id number;
497 --
498 --
499 begin
500 hr_utility.set_location('Entering:'|| l_proc, 10);
501 --
502 -- Issue a savepoint
503 --
504 savepoint DELETE_RESOURCE;
505 --
506 -- Truncate the time portion from all IN date parameters
507 --
508 --
509 -- Call Before Process User Hook
510 --
511
512 begin
513 ota_resource_usage_bk3.Delete_resource_b
514 (p_resource_usage_id => p_resource_usage_id
515 ,p_object_version_number => p_object_version_number
516 );
517 exception
518 when hr_api.cannot_find_prog_unit then
519 hr_api.cannot_find_prog_unit_error
520 (p_module_name => 'DELETE_RESOURCE'
521 ,p_hook_type => 'BP'
522 );
523 end;
524
525 --
526 -- Validation in addition to Row Handlers
527 --
528 --
529 -- Process Logic (Base table)
530 --
531 ota_rud_del.del
532 (p_resource_usage_id => p_resource_usage_id
533 ,p_object_version_number => p_object_version_number
534 );
535 --
536 -- Call After Process User Hook
537 --
538
539 begin
540 ota_resource_usage_bk3.Delete_resource_a
541 (p_resource_usage_id => p_resource_usage_id
542 ,p_object_version_number => p_object_version_number
543 );
544 exception
545 when hr_api.cannot_find_prog_unit then
546 hr_api.cannot_find_prog_unit_error
547 (p_module_name => 'DELETE_RESOURCE'
548 ,p_hook_type => 'AP'
549 );
550 end;
551
552 --
553 -- When in validation only mode raise the Validate_Enabled exception
554 --
555 if p_validate then
556 raise hr_api.validate_enabled;
557 end if;
558 --
559 -- Set all output arguments
560 --
561 --
562 hr_utility.set_location(' Leaving:'||l_proc, 170);
563 exception
564 when hr_api.validate_enabled then
565 --
566 -- As the Validate_Enabled exception has been raised
567 -- we must rollback to the savepoint
568 --
569 rollback to DELETE_RESOURCE;
570 --
571 -- Only set output warning arguments
572 -- (Any key or derived arguments must be set to null
573 -- when validation only mode is being used.)
574 --
575 hr_utility.set_location(' Leaving:'||l_proc, 180);
576 when others then
577 --
578 -- A validation or unexpected error has occured
579 --
580 rollback to DELETE_RESOURCE;
581 hr_utility.set_location(' Leaving:'||l_proc, 190);
582 raise;
583 end Delete_resource;
584 --
585 end OTA_RESOURCE_USAGE_API;