[Home] [Help]
PACKAGE BODY: APPS.HR_FORM_TAB_PAGES_API
Source
1 Package Body hr_form_tab_pages_api as
2 /* $Header: hrftpapi.pkb 115.5 2003/09/24 02:23:35 bsubrama noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_form_tab_pages_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< create_form_tab_page >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_form_tab_page
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_language_code in varchar2 default hr_api.userenv_lang
16 ,p_form_canvas_id in number
17 ,p_tab_page_name in varchar2
18 ,p_display_order in number
19 ,p_user_tab_page_name in varchar2
20 ,p_description in varchar2 default null
21 ,p_label in varchar2 default null
22 ,p_navigation_direction in varchar2 default null
23 ,p_visible in number default null
24 ,p_visible_override in number default null
25 ,p_information_category in varchar2 default null
26 ,p_information1 in varchar2 default null
27 ,p_information2 in varchar2 default null
28 ,p_information3 in varchar2 default null
29 ,p_information4 in varchar2 default null
30 ,p_information5 in varchar2 default null
31 ,p_information6 in varchar2 default null
32 ,p_information7 in varchar2 default null
33 ,p_information8 in varchar2 default null
34 ,p_information9 in varchar2 default null
35 ,p_information10 in varchar2 default null
36 ,p_information11 in varchar2 default null
37 ,p_information12 in varchar2 default null
38 ,p_information13 in varchar2 default null
39 ,p_information14 in varchar2 default null
40 ,p_information15 in varchar2 default null
41 ,p_information16 in varchar2 default null
42 ,p_information17 in varchar2 default null
43 ,p_information18 in varchar2 default null
44 ,p_information19 in varchar2 default null
45 ,p_information20 in varchar2 default null
46 ,p_information21 in varchar2 default null
47 ,p_information22 in varchar2 default null
48 ,p_information23 in varchar2 default null
49 ,p_information24 in varchar2 default null
50 ,p_information25 in varchar2 default null
51 ,p_information26 in varchar2 default null
52 ,p_information27 in varchar2 default null
53 ,p_information28 in varchar2 default null
54 ,p_information29 in varchar2 default null
55 ,p_information30 in varchar2 default null
56 ,p_form_tab_page_id out nocopy number
57 ,p_object_version_number out nocopy number
58 ,p_override_value_warning out nocopy boolean
59 ) is
60 --
61 -- Declare cursors and local variables
62 --
63
64 l_proc varchar2(72) := g_package||'create_form_tab_page';
65 l_language_code fnd_languages.language_code%TYPE;
66
67 l_object_version_number number;
68 l_form_tab_page_id number;
69 l_tab_page_property_id number;
70 l_override_value_warning boolean := FALSE;
71 begin
72 hr_utility.set_location('Entering:'|| l_proc, 10);
73 --
74 -- Issue a savepoint
75 --
76 savepoint create_form_tab_page;
77 --
78 -- Truncate the time portion from all IN date parameters
79 --
80 -- p_effective_date := TRUNC(p_effective_date);
81 --
82 -- Validate the language parameter. l_language_code should be passed
83 -- instead of p_language_code from now on, to allow an IN OUT parameter to
84 -- be passed through.
85 --
86 l_language_code := p_language_code;
87 hr_api.validate_language_code(p_language_code => l_language_code);
88 --
89 hr_utility.set_location(l_proc, 20);
90 --
91 --
92 -- Call Before Process User Hook
93 --
94 begin
95 hr_form_tab_pages_api_bk1.create_form_tab_page_b(
96 p_effective_date => TRUNC(p_effective_date)
97 ,p_language_code => l_language_code
98 ,p_form_canvas_id => p_form_canvas_id
99 ,p_tab_page_name => p_tab_page_name
100 ,p_display_order => p_display_order
101 ,p_user_tab_page_name => p_user_tab_page_name
102 ,p_description => p_description
103 ,p_label => p_label
104 ,p_navigation_direction => p_navigation_direction
105 ,p_visible => p_visible
106 ,p_visible_override => p_visible_override
107 ,p_information_category => p_information_category
108 ,p_information1 => p_information1
109 ,p_information2 => p_information2
110 ,p_information3 => p_information3
111 ,p_information4 => p_information4
112 ,p_information5 => p_information5
113 ,p_information6 => p_information6
114 ,p_information7 => p_information7
115 ,p_information8 => p_information8
116 ,p_information9 => p_information9
117 ,p_information10 => p_information10
118 ,p_information11 => p_information11
119 ,p_information12 => p_information12
120 ,p_information13 => p_information13
121 ,p_information14 => p_information14
122 ,p_information15 => p_information15
123 ,p_information16 => p_information16
124 ,p_information17 => p_information17
125 ,p_information18 => p_information18
126 ,p_information19 => p_information19
127 ,p_information20 => p_information20
128 ,p_information21 => p_information21
129 ,p_information22 => p_information22
130 ,p_information23 => p_information23
131 ,p_information24 => p_information24
132 ,p_information25 => p_information25
133 ,p_information26 => p_information26
134 ,p_information27 => p_information27
135 ,p_information28 => p_information28
136 ,p_information29 => p_information29
137 ,p_information30 => p_information30
138 );
139 exception
140 when hr_api.cannot_find_prog_unit then
141 hr_api.cannot_find_prog_unit_error
142 (p_module_name => 'create_form_tab_page'
143 ,p_hook_type => 'BP'
144 );
145 end;
146
147 --
148 -- Process Logic
149 --
150 IF (p_visible is not null AND p_visible_override is not null) THEN
151 l_override_value_warning := TRUE;
152 END IF;
153 hr_utility.set_location('At:'|| l_proc, 15);
154
155 hr_ftp_ins.ins( p_effective_date => TRUNC(p_effective_date)
156 ,p_form_canvas_id => p_form_canvas_id
157 ,p_tab_page_name => p_tab_page_name
158 ,p_display_order => p_display_order
159 ,p_visible_override => p_visible_override
160 ,p_form_tab_page_id => l_form_tab_page_id
161 ,p_object_version_number => l_object_version_number);
162
163 hr_utility.set_location('At:'|| l_proc, 20);
164
165 hr_ftt_ins.ins_tl( p_language_code => l_language_code
166 ,p_form_tab_page_id => l_form_tab_page_id
167 ,p_user_tab_page_name => p_user_tab_page_name
168 ,p_description => p_description);
169
170 hr_utility.set_location('At:'|| l_proc, 30);
171
172 hr_tab_page_properties_bsi.create_tab_page_property(
173 p_effective_date => TRUNC(p_effective_date)
174 ,p_language_code => l_language_code
175 ,p_form_tab_page_id => l_form_tab_page_id
176 ,p_label => p_label
177 ,p_navigation_direction => p_navigation_direction
178 ,p_visible => p_visible
179 ,p_information_category => p_information_category
180 ,p_information1 => p_information1
181 ,p_information2 => p_information2
182 ,p_information3 => p_information3
183 ,p_information4 => p_information4
184 ,p_information5 => p_information5
185 ,p_information6 => p_information6
186 ,p_information7 => p_information7
187 ,p_information8 => p_information8
188 ,p_information9 => p_information9
189 ,p_information10 => p_information10
190 ,p_information11 => p_information11
191 ,p_information12 => p_information12
192 ,p_information13 => p_information13
193 ,p_information14 => p_information14
194 ,p_information15 => p_information15
195 ,p_information16 => p_information16
196 ,p_information17 => p_information17
197 ,p_information18 => p_information18
198 ,p_information19 => p_information19
199 ,p_information20 => p_information20
200 ,p_information21 => p_information21
201 ,p_information22 => p_information22
202 ,p_information23 => p_information23
203 ,p_information24 => p_information24
204 ,p_information25 => p_information25
205 ,p_information26 => p_information26
206 ,p_information27 => p_information27
207 ,p_information28 => p_information28
208 ,p_information29 => p_information29
209 ,p_information30 => p_information30
210 ,p_tab_page_property_id => l_tab_page_property_id
211 ,p_object_version_number => l_object_version_number);
212 --,p_override_value_warning => l_override_value_warning);
213
214 --
215 -- Call After Process User Hook
216 --
217 hr_utility.set_location('At:'|| l_proc, 35);
218
219 begin
220 hr_form_tab_pages_api_bk1.create_form_tab_page_a(
221 p_effective_date => TRUNC(p_effective_date)
222 ,p_language_code => l_language_code
223 ,p_form_canvas_id => p_form_canvas_id
224 ,p_tab_page_name => p_tab_page_name
225 ,p_display_order => p_display_order
226 ,p_user_tab_page_name => p_user_tab_page_name
227 ,p_description => p_description
228 ,p_label => p_label
229 ,p_navigation_direction => p_navigation_direction
230 ,p_visible => p_visible
231 ,p_visible_override => p_visible_override
232 ,p_information_category => p_information_category
233 ,p_information1 => p_information1
234 ,p_information2 => p_information2
235 ,p_information3 => p_information3
236 ,p_information4 => p_information4
237 ,p_information5 => p_information5
238 ,p_information6 => p_information6
239 ,p_information7 => p_information7
240 ,p_information8 => p_information8
241 ,p_information9 => p_information9
242 ,p_information10 => p_information10
243 ,p_information11 => p_information11
244 ,p_information12 => p_information12
245 ,p_information13 => p_information13
246 ,p_information14 => p_information14
247 ,p_information15 => p_information15
248 ,p_information16 => p_information16
249 ,p_information17 => p_information17
250 ,p_information18 => p_information18
251 ,p_information19 => p_information19
252 ,p_information20 => p_information20
253 ,p_information21 => p_information21
254 ,p_information22 => p_information22
255 ,p_information23 => p_information23
256 ,p_information24 => p_information24
257 ,p_information25 => p_information25
258 ,p_information26 => p_information26
259 ,p_information27 => p_information27
260 ,p_information28 => p_information28
261 ,p_information29 => p_information29
262 ,p_information30 => p_information30
263 ,p_form_tab_page_id => l_form_tab_page_id
264 -- ,p_tab_page_property_id => l_tab_page_property_id
265 ,p_object_version_number => l_object_version_number
266 ,p_override_value_warning => l_override_value_warning
267 );
268 exception
269 when hr_api.cannot_find_prog_unit then
270 hr_api.cannot_find_prog_unit_error
271 (p_module_name => 'create_form_tab_page'
272 ,p_hook_type => 'AP'
273 );
274 end;
275 --
276 -- When in validation only mode raise the Validate_Enabled exception
277 --
278 hr_utility.set_location('At:'|| l_proc, 40);
279
280 if p_validate then
281 raise hr_api.validate_enabled;
282 end if;
283 --
284 -- Set all output arguments
285 --
286 p_form_tab_page_id := l_form_tab_page_id;
287 p_object_version_number := l_object_version_number;
288 p_override_value_warning := l_override_value_warning;
289 --
290 hr_utility.set_location(' Leaving:'||l_proc, 70);
291 exception
292 when hr_api.validate_enabled then
293 --
294 -- As the Validate_Enabled exception has been raised
295 -- we must rollback to the savepoint
296 --
297 rollback to create_form_tab_page;
298 --
299 -- Only set output warning arguments
300 -- (Any key or derived arguments must be set to null
301 -- when validation only mode is being used.)
302 --
303 p_form_tab_page_id := null;
304 p_object_version_number := null;
305 p_override_value_warning := l_override_value_warning;
306 hr_utility.set_location(' Leaving:'||l_proc, 80);
307 when others then
308 --
309 -- A validation or unexpected error has occured
310 --
311 rollback to create_form_tab_page;
312 -- Set out parameters.
313 p_form_tab_page_id := null;
314 p_object_version_number := null;
315 p_override_value_warning := null;
316 hr_utility.set_location(' Leaving:'||l_proc, 90);
317 raise;
318 end create_form_tab_page;
319 --
320 -- ----------------------------------------------------------------------------
321 -- |------------------------< delete_form_tab_page >--------------------------|
322 -- ----------------------------------------------------------------------------
323 --
324 procedure delete_form_tab_page
325 (p_validate in boolean default false
326 ,p_form_tab_page_id in number
327 ,p_object_version_number in number
328 ) is
329 --
330 -- Declare cursors and local variables
331 --
332
333 l_proc varchar2(72) := g_package||'delete_form_tab_page';
334 begin
335 hr_utility.set_location('Entering:'|| l_proc, 10);
336 --
337 -- Issue a savepoint
338 --
339 savepoint delete_form_tab_page;
340
341 --
342 -- Call Before Process User Hook
343 --
344 begin
345 hr_form_tab_pages_api_bk2.delete_form_tab_page_b
346 (p_form_tab_page_id => p_form_tab_page_id
347 ,p_object_version_number => p_object_version_number
348 );
349 exception
350 when hr_api.cannot_find_prog_unit then
351 hr_api.cannot_find_prog_unit_error
352 (p_module_name => 'delete_form_tab_page'
353 ,p_hook_type => 'BP'
354 );
355 end;
356
357 --
358 -- Process Logic
359 --
360 hr_utility.set_location('At:'|| l_proc, 15);
361
362 hr_ftp_shd.lck( p_form_tab_page_id => p_form_tab_page_id
363 ,p_object_version_number => p_object_version_number);
364
365 hr_utility.set_location('At:'|| l_proc, 20);
366
367 hr_tab_page_properties_bsi.delete_tab_page_property
368 (p_form_tab_page_id => p_form_tab_page_id
369 ,p_object_version_number => p_object_version_number);
370
371 hr_utility.set_location('At:'|| l_proc, 25);
372
373 hr_ftt_del.del_tl( p_form_tab_page_id => p_form_tab_page_id);
374
375 hr_utility.set_location('At:'|| l_proc, 30);
376
377 hr_ftp_del.del( p_form_tab_page_id => p_form_tab_page_id
378 ,p_object_version_number => p_object_version_number);
379
380 hr_utility.set_location('At:'|| l_proc, 35);
381
382 --
383 -- Call After Process User Hook
384 --
385 begin
386 hr_form_tab_pages_api_bk2.delete_form_tab_page_a
387 (p_form_tab_page_id => p_form_tab_page_id
388 ,p_object_version_number => p_object_version_number
389 );
390 exception
391 when hr_api.cannot_find_prog_unit then
392 hr_api.cannot_find_prog_unit_error
393 (p_module_name => 'delete_form_tab_page'
394 ,p_hook_type => 'AP'
395 );
396 end;
397 --
398 -- When in validation only mode raise the Validate_Enabled exception
399 --
400 hr_utility.set_location('At:'|| l_proc, 40);
401
402 if p_validate then
403 raise hr_api.validate_enabled;
404 end if;
405 --
406 hr_utility.set_location(' Leaving:'||l_proc, 70);
407 exception
408 when hr_api.validate_enabled then
409 --
410 -- As the Validate_Enabled exception has been raised
411 -- we must rollback to the savepoint
412 --
413 rollback to delete_form_tab_page;
414 --
415 -- Only set output warning arguments
416 -- (Any key or derived arguments must be set to null
417 -- when validation only mode is being used.)
418 --
419 hr_utility.set_location(' Leaving:'||l_proc, 80);
420 when others then
421 --
422 -- A validation or unexpected error has occured
423 --
424 rollback to delete_form_tab_page;
425 hr_utility.set_location(' Leaving:'||l_proc, 90);
426 raise;
427 end delete_form_tab_page;
428 --
429 -- ----------------------------------------------------------------------------
430 -- |------------------------< update_form_tab_page >--------------------------|
431 -- ----------------------------------------------------------------------------
432 --
433 procedure update_form_tab_page
434 (p_validate in boolean default false
435 ,p_effective_date in date
436 ,p_language_code in varchar2 default hr_api.userenv_lang
437 ,p_form_tab_page_id in number
438 ,p_object_version_number in out nocopy number
439 ,p_tab_page_name in varchar2 default hr_api.g_varchar2
440 ,p_display_order in number default hr_api.g_number
441 ,p_user_tab_page_name in varchar2 default hr_api.g_varchar2
442 ,p_description in varchar2 default hr_api.g_varchar2
443 ,p_label in varchar2 default hr_api.g_varchar2
444 ,p_navigation_direction in varchar2 default hr_api.g_varchar2
445 ,p_visible in number default hr_api.g_number
446 ,p_visible_override in number default hr_api.g_number
447 ,p_information_category in varchar2 default hr_api.g_varchar2
448 ,p_information1 in varchar2 default hr_api.g_varchar2
449 ,p_information2 in varchar2 default hr_api.g_varchar2
450 ,p_information3 in varchar2 default hr_api.g_varchar2
451 ,p_information4 in varchar2 default hr_api.g_varchar2
452 ,p_information5 in varchar2 default hr_api.g_varchar2
453 ,p_information6 in varchar2 default hr_api.g_varchar2
454 ,p_information7 in varchar2 default hr_api.g_varchar2
455 ,p_information8 in varchar2 default hr_api.g_varchar2
456 ,p_information9 in varchar2 default hr_api.g_varchar2
457 ,p_information10 in varchar2 default hr_api.g_varchar2
458 ,p_information11 in varchar2 default hr_api.g_varchar2
459 ,p_information12 in varchar2 default hr_api.g_varchar2
460 ,p_information13 in varchar2 default hr_api.g_varchar2
461 ,p_information14 in varchar2 default hr_api.g_varchar2
462 ,p_information15 in varchar2 default hr_api.g_varchar2
463 ,p_information16 in varchar2 default hr_api.g_varchar2
464 ,p_information17 in varchar2 default hr_api.g_varchar2
465 ,p_information18 in varchar2 default hr_api.g_varchar2
466 ,p_information19 in varchar2 default hr_api.g_varchar2
467 ,p_information20 in varchar2 default hr_api.g_varchar2
468 ,p_information21 in varchar2 default hr_api.g_varchar2
469 ,p_information22 in varchar2 default hr_api.g_varchar2
470 ,p_information23 in varchar2 default hr_api.g_varchar2
471 ,p_information24 in varchar2 default hr_api.g_varchar2
472 ,p_information25 in varchar2 default hr_api.g_varchar2
473 ,p_information26 in varchar2 default hr_api.g_varchar2
474 ,p_information27 in varchar2 default hr_api.g_varchar2
475 ,p_information28 in varchar2 default hr_api.g_varchar2
476 ,p_information29 in varchar2 default hr_api.g_varchar2
477 ,p_information30 in varchar2 default hr_api.g_varchar2
478 ,p_override_value_warning out nocopy boolean
479 ) is
480 --
481 -- Declare cursors and local variables
482 --
483
484 l_language_code fnd_languages.language_code%TYPE;
485
486 CURSOR cur_override
487 IS
488 SELECT DECODE(p_visible,hr_api.g_number,visible,p_visible),
489 DECODE(p_visible_override,hr_api.g_number,visible_override,p_visible_override)
490 FROM hr_form_tab_pages
491 WHERE form_tab_page_id = p_form_tab_page_id;
492
493 l_visible number;
494 l_visible_override number;
495 l_proc varchar2(72) := g_package||'update_form_tab_page';
496 l_object_version_number number;
497 l_override_value_warning boolean := FALSE;
498
499 l_temp_ovn number := p_object_version_number;
500 begin
501 hr_utility.set_location('Entering:'|| l_proc, 10);
502 --
503 -- Issue a savepoint
504 --
505 savepoint update_form_tab_page;
506 --
507 -- Truncate the time portion from all IN date parameters
508 --
509 -- p_effective_date := TRUNC(p_effective_date);
510 l_object_version_number := p_object_version_number;
511 --
512 -- Validate the language parameter. l_language_code should be passed
513 -- instead of p_language_code from now on, to allow an IN OUT parameter to
514 -- be passed through.
515 --
516 l_language_code := p_language_code;
517 hr_api.validate_language_code(p_language_code => l_language_code);
518 --
519 hr_utility.set_location(l_proc, 20);
520 --
521 --
522 -- Call Before Process User Hook
523 --
524 begin
525 hr_form_tab_pages_api_bk3.update_form_tab_page_b
526 ( p_effective_date => TRUNC(p_effective_date)
527 ,p_language_code => l_language_code
528 ,p_form_tab_page_id => p_form_tab_page_id
529 ,p_object_version_number => l_object_version_number
530 ,p_tab_page_name => p_tab_page_name
531 ,p_display_order => p_display_order
532 ,p_user_tab_page_name => p_user_tab_page_name
533 ,p_description => p_description
534 ,p_label => p_label
535 ,p_navigation_direction => p_navigation_direction
536 ,p_visible => p_visible
537 ,p_visible_override => p_visible_override
538 ,p_information_category => p_information_category
539 ,p_information1 => p_information1
540 ,p_information2 => p_information2
541 ,p_information3 => p_information3
542 ,p_information4 => p_information4
543 ,p_information5 => p_information5
544 ,p_information6 => p_information6
545 ,p_information7 => p_information7
546 ,p_information8 => p_information8
547 ,p_information9 => p_information9
548 ,p_information10 => p_information10
549 ,p_information11 => p_information11
550 ,p_information12 => p_information12
551 ,p_information13 => p_information13
552 ,p_information14 => p_information14
553 ,p_information15 => p_information15
554 ,p_information16 => p_information16
555 ,p_information17 => p_information17
556 ,p_information18 => p_information18
557 ,p_information19 => p_information19
558 ,p_information20 => p_information20
559 ,p_information21 => p_information21
560 ,p_information22 => p_information22
561 ,p_information23 => p_information23
562 ,p_information24 => p_information24
563 ,p_information25 => p_information25
564 ,p_information26 => p_information26
565 ,p_information27 => p_information27
566 ,p_information28 => p_information28
567 ,p_information29 => p_information29
568 ,p_information30 => p_information30 );
569 exception
570 when hr_api.cannot_find_prog_unit then
571 hr_api.cannot_find_prog_unit_error
572 (p_module_name => 'update_form_tab_page'
573 ,p_hook_type => 'BP'
574 );
575 end;
576
577 --
578 -- Process Logic
579 --
580 OPEN cur_override;
581 FETCH cur_override INTO l_visible , l_visible_override;
582 CLOSE cur_override;
583
584 IF (l_visible is not null AND l_visible_override is not null) THEN
585 l_override_value_warning := TRUE;
586 END IF;
587
588 hr_utility.set_location('At:'|| l_proc, 20);
589
590 hr_ftp_upd.upd(p_effective_date => TRUNC(p_effective_date)
591 ,p_form_tab_page_id => p_form_tab_page_id
592 ,p_tab_page_name => p_tab_page_name
593 ,p_display_order => p_display_order
594 ,p_visible_override => p_visible_override
595 ,p_object_version_number => l_object_version_number);
596
597 hr_utility.set_location('At:'|| l_proc, 25);
598
599 hr_ftt_upd.upd_tl(p_language_code => l_language_code
600 ,p_form_tab_page_id => p_form_tab_page_id
601 ,p_user_tab_page_name => p_user_tab_page_name
602 ,p_description => p_description);
603
604 hr_utility.set_location('At:'|| l_proc, 30);
605
606 hr_tab_page_properties_bsi.update_tab_page_property
607 (p_effective_date => TRUNC(p_effective_date)
608 ,p_object_version_number => l_object_version_number
609 ,p_language_code => l_language_code
610 ,p_form_tab_page_id => p_form_tab_page_id
611 ,p_label => p_label
612 ,p_navigation_direction => p_navigation_direction
613 ,p_visible => p_visible
614 ,p_information_category => p_information_category
615 ,p_information1 => p_information1
616 ,p_information2 => p_information2
617 ,p_information3 => p_information3
618 ,p_information4 => p_information4
619 ,p_information5 => p_information5
620 ,p_information6 => p_information6
621 ,p_information7 => p_information7
622 ,p_information8 => p_information8
623 ,p_information9 => p_information9
624 ,p_information10 => p_information10
625 ,p_information11 => p_information11
626 ,p_information12 => p_information12
627 ,p_information13 => p_information13
628 ,p_information14 => p_information14
629 ,p_information15 => p_information15
630 ,p_information16 => p_information16
631 ,p_information17 => p_information17
632 ,p_information18 => p_information18
633 ,p_information19 => p_information19
634 ,p_information20 => p_information20
635 ,p_information21 => p_information21
636 ,p_information22 => p_information22
637 ,p_information23 => p_information23
638 ,p_information24 => p_information24
639 ,p_information25 => p_information25
640 ,p_information26 => p_information26
641 ,p_information27 => p_information27
642 ,p_information28 => p_information28
643 ,p_information29 => p_information29
644 ,p_information30 => p_information30);
645 --,p_override_value_warning => l_override_value_warning);
646
647 hr_utility.set_location('At:'|| l_proc, 35);
648
649 --
650 -- Call After Process User Hook
651 --
652 begin
653
654 hr_form_tab_pages_api_bk3.update_form_tab_page_a
655 ( p_effective_date => TRUNC(p_effective_date)
656 ,p_language_code => l_language_code
657 ,p_form_tab_page_id => p_form_tab_page_id
658 ,p_object_version_number => l_object_version_number
659 ,p_tab_page_name => p_tab_page_name
660 ,p_display_order => p_display_order
661 ,p_user_tab_page_name => p_user_tab_page_name
662 ,p_description => p_description
663 ,p_label => p_label
664 ,p_navigation_direction => p_navigation_direction
665 ,p_visible => p_visible
666 ,p_visible_override => p_visible_override
667 ,p_information_category => p_information_category
668 ,p_information1 => p_information1
669 ,p_information2 => p_information2
670 ,p_information3 => p_information3
671 ,p_information4 => p_information4
672 ,p_information5 => p_information5
673 ,p_information6 => p_information6
674 ,p_information7 => p_information7
675 ,p_information8 => p_information8
676 ,p_information9 => p_information9
677 ,p_information10 => p_information10
678 ,p_information11 => p_information11
679 ,p_information12 => p_information12
680 ,p_information13 => p_information13
681 ,p_information14 => p_information14
682 ,p_information15 => p_information15
683 ,p_information16 => p_information16
684 ,p_information17 => p_information17
685 ,p_information18 => p_information18
686 ,p_information19 => p_information19
687 ,p_information20 => p_information20
688 ,p_information21 => p_information21
689 ,p_information22 => p_information22
690 ,p_information23 => p_information23
691 ,p_information24 => p_information24
692 ,p_information25 => p_information25
693 ,p_information26 => p_information26
694 ,p_information27 => p_information27
695 ,p_information28 => p_information28
696 ,p_information29 => p_information29
697 ,p_information30 => p_information30
698 ,p_override_value_warning => l_override_value_warning);
699 exception
700 when hr_api.cannot_find_prog_unit then
701 hr_api.cannot_find_prog_unit_error
702 (p_module_name => 'update_form_tab_page'
703 ,p_hook_type => 'AP'
704 );
705 end;
706 --
707 -- When in validation only mode raise the Validate_Enabled exception
708 --
709 hr_utility.set_location('At:'|| l_proc, 40);
710
711 if p_validate then
712 raise hr_api.validate_enabled;
713 end if;
714 --
715 -- Set all output arguments
716 --
717 p_object_version_number := l_object_version_number;
718 p_override_value_warning := l_override_value_warning;
719 --
720 hr_utility.set_location(' Leaving:'||l_proc, 70);
721 exception
722 when hr_api.validate_enabled then
723 --
724 -- As the Validate_Enabled exception has been raised
725 -- we must rollback to the savepoint
726 --
727 rollback to update_form_tab_page;
728 --
729 -- Only set output warning arguments
730 -- (Any key or derived arguments must be set to null
731 -- when validation only mode is being used.)
732 --
733 p_object_version_number := l_temp_ovn;
734 p_override_value_warning := l_override_value_warning;
735 hr_utility.set_location(' Leaving:'||l_proc, 80);
736 when others then
737 --
738 -- A validation or unexpected error has occured
739 --
740 rollback to update_form_tab_page;
741 -- Reset IN OUT and set OUT parameters.
742 p_object_version_number := l_temp_ovn;
743 p_override_value_warning := null;
744 hr_utility.set_location(' Leaving:'||l_proc, 90);
745 raise;
746 end update_form_tab_page;
747 --
748 end hr_form_tab_pages_api;