[Home] [Help]
PACKAGE BODY: APPS.HR_TAB_PAGE_PROPERTIES_BSI
Source
1 Package Body hr_tab_page_properties_bsi as
2 /* $Header: hrtppbsi.pkb 120.0 2005/05/31 03:24:32 appldev noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_tab_page_properties_bsi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< create_tab_page_property >--------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_tab_page_property
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_tab_page_id in number default null
17 ,p_template_tab_page_id in number default null
18 ,p_label in varchar2 default null
19 ,p_navigation_direction in varchar2 default null
20 ,p_visible in number default null
21 ,p_information_category in varchar2 default null
22 ,p_information1 in varchar2 default null
23 ,p_information2 in varchar2 default null
24 ,p_information3 in varchar2 default null
25 ,p_information4 in varchar2 default null
26 ,p_information5 in varchar2 default null
27 ,p_information6 in varchar2 default null
28 ,p_information7 in varchar2 default null
29 ,p_information8 in varchar2 default null
30 ,p_information9 in varchar2 default null
31 ,p_information10 in varchar2 default null
32 ,p_information11 in varchar2 default null
33 ,p_information12 in varchar2 default null
34 ,p_information13 in varchar2 default null
35 ,p_information14 in varchar2 default null
36 ,p_information15 in varchar2 default null
37 ,p_information16 in varchar2 default null
38 ,p_information17 in varchar2 default null
39 ,p_information18 in varchar2 default null
40 ,p_information19 in varchar2 default null
41 ,p_information20 in varchar2 default null
42 ,p_information21 in varchar2 default null
43 ,p_information22 in varchar2 default null
44 ,p_information23 in varchar2 default null
45 ,p_information24 in varchar2 default null
46 ,p_information25 in varchar2 default null
47 ,p_information26 in varchar2 default null
48 ,p_information27 in varchar2 default null
49 ,p_information28 in varchar2 default null
50 ,p_information29 in varchar2 default null
51 ,p_information30 in varchar2 default null
52 ,p_tab_page_property_id out nocopy number
53 ,p_object_version_number out nocopy number
54 --,p_override_value_warning out boolean
55 ) is
56 --
57 -- Declare cursors and local variables
58 --
59
60 l_language_code fnd_languages.language_code%TYPE;
61
62 l_tab_page_property_id number;
63 l_object_version_number number;
64 l_override_value_warning boolean;
65 l_proc varchar2(72) := g_package||'create_tab_page_property';
66 begin
67 hr_utility.set_location('Entering:'|| l_proc, 10);
68 --
69 -- Issue a savepoint
70 --
71 savepoint create_tab_page_property;
72
73 --
74 -- Validate the language parameter. l_language_code should be passed
75 -- instead of p_language_code from now on, to allow an IN OUT parameter to
76 -- be passed through.
77 --
78 l_language_code := p_language_code;
79 hr_api.validate_language_code(p_language_code => l_language_code);
80 --
81 hr_utility.set_location(l_proc, 20);
82 --
83 --
84 -- Process Logic
85 --
86 hr_tpp_ins.ins(p_effective_date => TRUNC(p_effective_date)
87 ,p_form_tab_page_id => p_form_tab_page_id
88 ,p_template_tab_page_id => p_template_tab_page_id
89 ,p_navigation_direction => p_navigation_direction
90 ,p_visible => p_visible
91 ,p_information_category => p_information_category
92 ,p_information1 => p_information1
93 ,p_information2 => p_information2
94 ,p_information3 => p_information3
95 ,p_information4 => p_information4
96 ,p_information5 => p_information5
97 ,p_information6 => p_information6
98 ,p_information7 => p_information7
99 ,p_information8 => p_information8
100 ,p_information9 => p_information9
101 ,p_information10 => p_information10
102 ,p_information11 => p_information11
103 ,p_information12 => p_information12
104 ,p_information13 => p_information13
105 ,p_information14 => p_information14
106 ,p_information15 => p_information15
107 ,p_information16 => p_information16
108 ,p_information17 => p_information17
109 ,p_information18 => p_information18
110 ,p_information19 => p_information19
111 ,p_information20 => p_information20
112 ,p_information21 => p_information21
113 ,p_information22 => p_information22
114 ,p_information23 => p_information23
115 ,p_information24 => p_information24
116 ,p_information25 => p_information25
117 ,p_information26 => p_information26
118 ,p_information27 => p_information27
119 ,p_information28 => p_information28
120 ,p_information29 => p_information29
121 ,p_information30 => p_information30
122 ,p_tab_page_property_id => l_tab_page_property_id
123 ,p_object_version_number => l_object_version_number);
124 --,p_override_value_warning => l_override_value_warning);
125
126 hr_tpt_ins.ins_tl(p_language_code => l_language_code
127 ,p_tab_page_property_id => l_tab_page_property_id
128 ,p_label => p_label);
129 --
130 -- When in validation only mode raise the Validate_Enabled exception
131 --
132 if p_validate then
133 raise hr_api.validate_enabled;
134 end if;
135 --
136 -- Set all output arguments
137 --
138 p_tab_page_property_id := l_tab_page_property_id;
139 p_object_version_number := l_object_version_number;
140 --p_override_value_warning := l_override_value_warning;
141 --
142 hr_utility.set_location(' Leaving:'||l_proc, 70);
143 exception
144 when hr_api.validate_enabled then
145 --
146 -- As the Validate_Enabled exception has been raised
147 -- we must rollback to the savepoint
148 --
149 rollback to create_tab_page_property;
150 --
151 -- Only set output warning arguments
152 -- (Any key or derived arguments must be set to null
153 -- when validation only mode is being used.)
154 --
155 p_tab_page_property_id := null;
156 --p_override_value_warning := null;
157 hr_utility.set_location(' Leaving:'||l_proc, 80);
158 when others then
159 --
160 -- A validation or unexpected error has occured
161 --
162 rollback to create_tab_page_property;
163 hr_utility.set_location(' Leaving:'||l_proc, 90);
164 raise;
165 end create_tab_page_property;
166 --
167 --
168 -- ----------------------------------------------------------------------------
169 -- |--------------------------< update_tab_page_property >--------------------|
170 -- ----------------------------------------------------------------------------
171 --
172 procedure update_tab_page_property
173 (p_validate in boolean default false
174 ,p_effective_date in date
175 ,p_object_version_number in out nocopy number
176 ,p_language_code in varchar2 default hr_api.userenv_lang
177 ,p_tab_page_property_id in number default null
178 ,p_form_tab_page_id in number default null
179 ,p_template_tab_page_id in number default null
180 ,p_label in varchar2 default hr_api.g_varchar2
181 ,p_navigation_direction in varchar2 default hr_api.g_varchar2
182 ,p_visible in number default hr_api.g_number
183 ,p_information_category in varchar2 default hr_api.g_varchar2
184 ,p_information1 in varchar2 default hr_api.g_varchar2
185 ,p_information2 in varchar2 default hr_api.g_varchar2
186 ,p_information3 in varchar2 default hr_api.g_varchar2
187 ,p_information4 in varchar2 default hr_api.g_varchar2
188 ,p_information5 in varchar2 default hr_api.g_varchar2
189 ,p_information6 in varchar2 default hr_api.g_varchar2
190 ,p_information7 in varchar2 default hr_api.g_varchar2
191 ,p_information8 in varchar2 default hr_api.g_varchar2
192 ,p_information9 in varchar2 default hr_api.g_varchar2
193 ,p_information10 in varchar2 default hr_api.g_varchar2
194 ,p_information11 in varchar2 default hr_api.g_varchar2
195 ,p_information12 in varchar2 default hr_api.g_varchar2
196 ,p_information13 in varchar2 default hr_api.g_varchar2
197 ,p_information14 in varchar2 default hr_api.g_varchar2
198 ,p_information15 in varchar2 default hr_api.g_varchar2
199 ,p_information16 in varchar2 default hr_api.g_varchar2
200 ,p_information17 in varchar2 default hr_api.g_varchar2
201 ,p_information18 in varchar2 default hr_api.g_varchar2
202 ,p_information19 in varchar2 default hr_api.g_varchar2
203 ,p_information20 in varchar2 default hr_api.g_varchar2
204 ,p_information21 in varchar2 default hr_api.g_varchar2
205 ,p_information22 in varchar2 default hr_api.g_varchar2
206 ,p_information23 in varchar2 default hr_api.g_varchar2
207 ,p_information24 in varchar2 default hr_api.g_varchar2
208 ,p_information25 in varchar2 default hr_api.g_varchar2
209 ,p_information26 in varchar2 default hr_api.g_varchar2
210 ,p_information27 in varchar2 default hr_api.g_varchar2
211 ,p_information28 in varchar2 default hr_api.g_varchar2
212 ,p_information29 in varchar2 default hr_api.g_varchar2
213 ,p_information30 in varchar2 default hr_api.g_varchar2
214 --,p_override_value_warning out boolean
215 ) is
216 --
217 -- Declare cursors and local variables
218 --
219 CURSOR cur_tab_prop_1
220 IS
221 SELECT tab_page_property_id
222 FROM hr_tab_page_properties_b
223 WHERE form_tab_page_id = p_form_tab_page_id;
224
225 CURSOR cur_tab_prop_2
226 IS
227 SELECT tab_page_property_id
228 FROM hr_tab_page_properties_b
229 WHERE template_tab_page_id = p_template_tab_page_id;
230
231 l_tab_page_property number;
232 l_language_code fnd_languages.language_code%TYPE;
233
234
235 l_tab_page_property_id number;
236 l_override_value_warning boolean;
237 l_proc varchar2(72) := g_package||'update_tab_page_property';
238 begin
239 hr_utility.set_location('Entering:'|| l_proc, 10);
240 --
241 -- Issue a savepoint
242 --
243 savepoint update_tab_page_property;
244 --
245 -- Validate the language parameter. l_language_code should be passed
246 -- instead of p_language_code from now on, to allow an IN OUT parameter to
247 -- be passed through.
248 --
249 l_language_code := p_language_code;
250
251 hr_api.validate_language_code(p_language_code => l_language_code);
252 --
253 hr_utility.set_location(l_proc, 20);
254 --
255 --
256 -- Validation in addition to Row Handlers
257 --
258 IF ( p_tab_page_property_id is not null) AND
259 (p_form_tab_page_id is not null OR p_template_tab_page_id is not null) THEN
260 -- error message
261 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
262 fnd_message.set_token('PROCEDURE', l_proc);
263 fnd_message.set_token('STEP','10');
264 fnd_message.raise_error;
265 ELSIF ( p_form_tab_page_id is not null) AND
266 (p_tab_page_property_id is not null OR
267 p_template_tab_page_id is not null) THEN
268 -- error message
269 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
270 fnd_message.set_token('PROCEDURE', l_proc);
271 fnd_message.set_token('STEP','10');
272 fnd_message.raise_error;
273 ELSIF ( p_template_tab_page_id is not null) AND
274 (p_tab_page_property_id is not null OR p_form_tab_page_id is not null) THEN
275 -- error message
276 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
277 fnd_message.set_token('PROCEDURE', l_proc);
278 fnd_message.set_token('STEP','10');
279 fnd_message.raise_error;
280 END IF;
281
282 --
283 -- Process Logic
284 --
285
286 l_tab_page_property_id := p_tab_page_property_id;
287
288 IF p_form_tab_page_id is not null THEN
289 OPEN cur_tab_prop_1;
290 FETCH cur_tab_prop_1 INTO l_tab_page_property_id;
291 CLOSE cur_tab_prop_1;
292 END IF;
293
294 IF p_template_tab_page_id is not null THEN
295 OPEN cur_tab_prop_2;
296 FETCH cur_tab_prop_2 INTO l_tab_page_property_id;
297 CLOSE cur_tab_prop_2;
298 END IF;
299
300 hr_tpp_upd.upd(p_effective_date => TRUNC(p_effective_date)
301 ,p_tab_page_property_id => l_tab_page_property_id
302 ,p_navigation_direction => p_navigation_direction
303 ,p_visible => p_visible
304 ,p_information_category => p_information_category
305 ,p_information1 => p_information1
306 ,p_information2 => p_information2
307 ,p_information3 => p_information3
308 ,p_information4 => p_information4
309 ,p_information5 => p_information5
310 ,p_information6 => p_information6
311 ,p_information7 => p_information7
312 ,p_information8 => p_information8
313 ,p_information9 => p_information9
314 ,p_information10 => p_information10
315 ,p_information11 => p_information11
316 ,p_information12 => p_information12
317 ,p_information13 => p_information13
318 ,p_information14 => p_information14
319 ,p_information15 => p_information15
320 ,p_information16 => p_information16
321 ,p_information17 => p_information17
322 ,p_information18 => p_information18
323 ,p_information19 => p_information19
324 ,p_information20 => p_information20
325 ,p_information21 => p_information21
326 ,p_information22 => p_information22
327 ,p_information23 => p_information23
328 ,p_information24 => p_information24
329 ,p_information25 => p_information25
330 ,p_information26 => p_information26
331 ,p_information27 => p_information27
335 ,p_object_version_number => p_object_version_number);
332 ,p_information28 => p_information28
333 ,p_information29 => p_information29
334 ,p_information30 => p_information30
336 --,p_override_value_warning => l_override_value_warning);
337
338 hr_tpt_upd.upd_tl(p_language_code => l_language_code
339 ,p_tab_page_property_id => l_tab_page_property_id
340 ,p_label => p_label);
341 --
342 -- When in validation only mode raise the Validate_Enabled exception
343 --
344 if p_validate then
345 raise hr_api.validate_enabled;
346 end if;
347 --
348 -- Set all output arguments
349 --
350 --
351 --p_override_value_warning := l_override_value_warning;
352 hr_utility.set_location(' Leaving:'||l_proc, 70);
353 exception
354 when hr_api.validate_enabled then
355 --
356 -- As the Validate_Enabled exception has been raised
357 -- we must rollback to the savepoint
358 --
359 rollback to update_tab_page_property;
360 --
361 -- Only set output warning arguments
362 -- (Any key or derived arguments must be set to null
363 -- when validation only mode is being used.)
364 --
365 --p_override_value_warning := null;
366 hr_utility.set_location(' Leaving:'||l_proc, 80);
367 when others then
368 --
369 -- A validation or unexpected error has occured
370 --
371 rollback to update_tab_page_property;
372 hr_utility.set_location(' Leaving:'||l_proc, 90);
373 raise;
374 end update_tab_page_property;
375 --
376 --
377 -- ----------------------------------------------------------------------------
378 -- |--------------------------< delete_tab_page_property >--------------------|
379 -- ----------------------------------------------------------------------------
380 --
381 procedure delete_tab_page_property
382 (p_validate in boolean default false
383 ,p_tab_page_property_id in number default null
384 ,p_form_tab_page_id in number default null
385 ,p_template_tab_page_id in number default null
386 ,p_object_version_number in number
387 ) is
388 --
389 -- Declare cursors and local variables
390 --
391 CURSOR cur_tab_prop_1
392 IS
393 SELECT tab_page_property_id
394 FROM hr_tab_page_properties_b
395 WHERE form_tab_page_id = p_form_tab_page_id;
396
397 CURSOR cur_tab_prop_2
398 IS
399 SELECT tab_page_property_id
400 FROM hr_tab_page_properties_b
401 WHERE template_tab_page_id = p_template_tab_page_id;
402
403 l_tab_page_property number;
404 l_tab_page_property_id number;
405
406 l_proc varchar2(72) := g_package||'delete_tab_page_property';
407 begin
408 hr_utility.set_location('Entering:'|| l_proc, 10);
409 --
410 -- Issue a savepoint
411 --
412 savepoint delete_tab_page_property;
413 --
414 -- Validation in addition to Row Handlers
415 --
416 IF ( p_tab_page_property_id is not null) AND
417 (p_form_tab_page_id is not null OR p_template_tab_page_id is not null) THEN
418 -- error message
419 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
420 fnd_message.set_token('PROCEDURE', l_proc);
421 fnd_message.set_token('STEP','10');
422 fnd_message.raise_error;
423 ELSIF ( p_form_tab_page_id is not null) AND
424 (p_tab_page_property_id is not null OR
425 p_template_tab_page_id is not null) THEN
426 -- error message
427 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
428 fnd_message.set_token('PROCEDURE', l_proc);
429 fnd_message.set_token('STEP','10');
430 fnd_message.raise_error;
431 ELSIF ( p_template_tab_page_id is not null) AND
432 (p_tab_page_property_id is not null OR p_form_tab_page_id is not null) THEN
433 -- error message
434 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
435 fnd_message.set_token('PROCEDURE', l_proc);
436 fnd_message.set_token('STEP','10');
437 fnd_message.raise_error;
438 END IF;
439
440 --
441 -- Process Logic
442 --
443
444 l_tab_page_property_id := p_tab_page_property_id;
445
446 IF p_form_tab_page_id is not null THEN
447 OPEN cur_tab_prop_1;
448 FETCH cur_tab_prop_1 INTO l_tab_page_property_id;
449 CLOSE cur_tab_prop_1;
450 END IF;
451
452 IF p_template_tab_page_id is not null THEN
453 OPEN cur_tab_prop_2;
454 FETCH cur_tab_prop_2 INTO l_tab_page_property_id;
455 CLOSE cur_tab_prop_2;
456 END IF;
457
458 if l_tab_page_property_id is not null then --Added if condition for Bug 4072087
459 hr_tpp_shd.lck( p_tab_page_property_id => l_tab_page_property_id
460 ,p_object_version_number => p_object_version_number );
461
462 hr_tpt_del.del_tl(p_tab_page_property_id => l_tab_page_property_id);
463
464 hr_tpp_del.del( p_tab_page_property_id => l_tab_page_property_id
465 ,p_object_version_number => p_object_version_number );
466
467 end if;
468
469 --
470 -- When in validation only mode raise the Validate_Enabled exception
471 --
475 --
472 if p_validate then
473 raise hr_api.validate_enabled;
474 end if;
476 hr_utility.set_location(' Leaving:'||l_proc, 70);
477 exception
478 when hr_api.validate_enabled then
479 --
480 -- As the Validate_Enabled exception has been raised
481 -- we must rollback to the savepoint
482 --
483 rollback to delete_tab_page_property;
484 --
485 -- Only set output warning arguments
486 -- (Any key or derived arguments must be set to null
487 -- when validation only mode is being used.)
488 --
489 hr_utility.set_location(' Leaving:'||l_proc, 80);
490 when others then
491 --
492 -- A validation or unexpected error has occured
493 --
494 rollback to delete_tab_page_property;
495 hr_utility.set_location(' Leaving:'||l_proc, 90);
496 raise;
497 end delete_tab_page_property;
498 --
499 --
500 -- ----------------------------------------------------------------------------
501 -- |--------------------------< copy_tab_page_property >----------------------|
502 -- ----------------------------------------------------------------------------
503 --
504 procedure copy_tab_page_property
505 (p_validate in boolean default false
506 ,p_effective_date in date
507 ,p_language_code in varchar2 default hr_api.userenv_lang
508 ,p_form_tab_page_id in number
509 ,p_template_tab_page_id in number
510 ,p_label in varchar2 default hr_api.g_varchar2
511 ,p_navigation_direction in varchar2 default hr_api.g_varchar2
512 ,p_visible in number default hr_api.g_number
513 ,p_information_category in varchar2 default hr_api.g_varchar2
514 ,p_information1 in varchar2 default hr_api.g_varchar2
515 ,p_information2 in varchar2 default hr_api.g_varchar2
516 ,p_information3 in varchar2 default hr_api.g_varchar2
517 ,p_information4 in varchar2 default hr_api.g_varchar2
518 ,p_information5 in varchar2 default hr_api.g_varchar2
519 ,p_information6 in varchar2 default hr_api.g_varchar2
520 ,p_information7 in varchar2 default hr_api.g_varchar2
521 ,p_information8 in varchar2 default hr_api.g_varchar2
522 ,p_information9 in varchar2 default hr_api.g_varchar2
523 ,p_information10 in varchar2 default hr_api.g_varchar2
524 ,p_information11 in varchar2 default hr_api.g_varchar2
525 ,p_information12 in varchar2 default hr_api.g_varchar2
526 ,p_information13 in varchar2 default hr_api.g_varchar2
527 ,p_information14 in varchar2 default hr_api.g_varchar2
528 ,p_information15 in varchar2 default hr_api.g_varchar2
529 ,p_information16 in varchar2 default hr_api.g_varchar2
530 ,p_information17 in varchar2 default hr_api.g_varchar2
531 ,p_information18 in varchar2 default hr_api.g_varchar2
532 ,p_information19 in varchar2 default hr_api.g_varchar2
533 ,p_information20 in varchar2 default hr_api.g_varchar2
534 ,p_information21 in varchar2 default hr_api.g_varchar2
535 ,p_information22 in varchar2 default hr_api.g_varchar2
536 ,p_information23 in varchar2 default hr_api.g_varchar2
537 ,p_information24 in varchar2 default hr_api.g_varchar2
538 ,p_information25 in varchar2 default hr_api.g_varchar2
539 ,p_information26 in varchar2 default hr_api.g_varchar2
540 ,p_information27 in varchar2 default hr_api.g_varchar2
541 ,p_information28 in varchar2 default hr_api.g_varchar2
542 ,p_information29 in varchar2 default hr_api.g_varchar2
543 ,p_information30 in varchar2 default hr_api.g_varchar2
544 ,p_tab_page_property_id out nocopy number
545 ,p_object_version_number out nocopy number
546 --,p_override_value_warning out boolean
547 ) is
548 --
549 -- Declare cursors and local variables
550 --
551 Type l_rec_type Is Record
552 (navigation_direction hr_tab_page_properties_b.navigation_direction%TYPE
553 ,visible hr_tab_page_properties_b.visible%TYPE
554 ,information_category hr_tab_page_properties_b.information_category%TYPE
555 ,information1 hr_tab_page_properties_b.information1%TYPE
556 ,information2 hr_tab_page_properties_b.information2%TYPE
557 ,information3 hr_tab_page_properties_b.information3%TYPE
558 ,information4 hr_tab_page_properties_b.information4%TYPE
559 ,information5 hr_tab_page_properties_b.information5%TYPE
560 ,information6 hr_tab_page_properties_b.information6%TYPE
561 ,information7 hr_tab_page_properties_b.information7%TYPE
562 ,information8 hr_tab_page_properties_b.information8%TYPE
563 ,information9 hr_tab_page_properties_b.information9%TYPE
564 ,information10 hr_tab_page_properties_b.information10%TYPE
565 ,information11 hr_tab_page_properties_b.information11%TYPE
566 ,information12 hr_tab_page_properties_b.information12%TYPE
567 ,information13 hr_tab_page_properties_b.information13%TYPE
568 ,information14 hr_tab_page_properties_b.information14%TYPE
569 ,information15 hr_tab_page_properties_b.information15%TYPE
570 ,information16 hr_tab_page_properties_b.information16%TYPE
571 ,information17 hr_tab_page_properties_b.information17%TYPE
575 ,information21 hr_tab_page_properties_b.information21%TYPE
572 ,information18 hr_tab_page_properties_b.information18%TYPE
573 ,information19 hr_tab_page_properties_b.information19%TYPE
574 ,information20 hr_tab_page_properties_b.information20%TYPE
576 ,information22 hr_tab_page_properties_b.information22%TYPE
577 ,information23 hr_tab_page_properties_b.information23%TYPE
578 ,information24 hr_tab_page_properties_b.information24%TYPE
579 ,information25 hr_tab_page_properties_b.information25%TYPE
580 ,information26 hr_tab_page_properties_b.information26%TYPE
581 ,information27 hr_tab_page_properties_b.information27%TYPE
582 ,information28 hr_tab_page_properties_b.information28%TYPE
583 ,information29 hr_tab_page_properties_b.information29%TYPE
584 ,information30 hr_tab_page_properties_b.information30%TYPE);
585
586 l_rec l_rec_type;
587
588 CURSOR cur_check
589 IS
590 SELECT 1
591 FROM hr_template_tab_pages ttp
592 WHERE ttp.template_tab_page_id = p_template_tab_page_id
593 AND ttp.form_tab_page_id = p_form_tab_page_id;
594
595 CURSOR cur_tab_prop
596 IS
597 SELECT DECODE(p_navigation_direction,hr_api.g_varchar2,tpp.navigation_direction,p_navigation_direction)
598 ,DECODE(p_visible,hr_api.g_number,tpp.visible,p_visible)
599 ,DECODE(p_information_category,hr_api.g_varchar2,tpp.information_category,p_information_category)
600 ,DECODE(p_information1,hr_api.g_varchar2,tpp.information1,p_information1)
601 ,DECODE(p_information2,hr_api.g_varchar2,tpp.information2,p_information2)
602 ,DECODE(p_information3,hr_api.g_varchar2,tpp.information3,p_information3)
603 ,DECODE(p_information4,hr_api.g_varchar2,tpp.information4,p_information4)
604 ,DECODE(p_information5,hr_api.g_varchar2,tpp.information5,p_information5)
605 ,DECODE(p_information6,hr_api.g_varchar2,tpp.information6,p_information6)
606 ,DECODE(p_information7,hr_api.g_varchar2,tpp.information7,p_information7)
607 ,DECODE(p_information8,hr_api.g_varchar2,tpp.information8,p_information8)
608 ,DECODE(p_information9,hr_api.g_varchar2,tpp.information9,p_information9)
609 ,DECODE(p_information10,hr_api.g_varchar2,tpp.information10,p_information10)
610 ,DECODE(p_information11,hr_api.g_varchar2,tpp.information11,p_information11)
611 ,DECODE(p_information12,hr_api.g_varchar2,tpp.information12,p_information12)
612 ,DECODE(p_information13,hr_api.g_varchar2,tpp.information13,p_information13)
613 ,DECODE(p_information14,hr_api.g_varchar2,tpp.information14,p_information14)
614 ,DECODE(p_information15,hr_api.g_varchar2,tpp.information15,p_information15)
615 ,DECODE(p_information16,hr_api.g_varchar2,tpp.information16,p_information16)
616 ,DECODE(p_information17,hr_api.g_varchar2,tpp.information17,p_information17)
617 ,DECODE(p_information18,hr_api.g_varchar2,tpp.information18,p_information18)
618 ,DECODE(p_information19,hr_api.g_varchar2,tpp.information19,p_information19)
619 ,DECODE(p_information20,hr_api.g_varchar2,tpp.information20,p_information20)
620 ,DECODE(p_information21,hr_api.g_varchar2,tpp.information21,p_information21)
621 ,DECODE(p_information22,hr_api.g_varchar2,tpp.information22,p_information22)
622 ,DECODE(p_information23,hr_api.g_varchar2,tpp.information23,p_information23)
623 ,DECODE(p_information24,hr_api.g_varchar2,tpp.information24,p_information24)
624 ,DECODE(p_information25,hr_api.g_varchar2,tpp.information25,p_information25)
625 ,DECODE(p_information26,hr_api.g_varchar2,tpp.information26,p_information26)
626 ,DECODE(p_information27,hr_api.g_varchar2,tpp.information27,p_information27)
627 ,DECODE(p_information28,hr_api.g_varchar2,tpp.information28,p_information28)
628 ,DECODE(p_information29,hr_api.g_varchar2,tpp.information29,p_information29)
629 ,DECODE(p_information30,hr_api.g_varchar2,tpp.information30,p_information30)
630 FROM hr_tab_page_properties_b tpp
631 WHERE tpp.form_tab_page_id = p_form_tab_page_id;
632
633 CURSOR cur_tab_tl
634 IS
635 SELECT COUNT(0)
636 ,tpptl.source_lang
637 ,DECODE(p_label,hr_api.g_varchar2,tpptl.label,p_label) label
638 FROM hr_tab_page_properties_tl tpptl
639 ,hr_tab_page_properties_b tpp
640 WHERE tpptl.tab_page_property_id = tpp.tab_page_property_id
641 AND tpp.form_tab_page_id = p_form_tab_page_id
642 GROUP BY tpptl.source_lang
643 ,DECODE(p_label,hr_api.g_varchar2,tpptl.label,p_label)
644 ORDER BY 1;
645
646 l_check number;
647 l_tab_page_property_id number;
648 l_object_version_number number;
649 l_override_value_warning boolean;
650 l_proc varchar2(72) := g_package||'copy_tab_page_property';
651 l_language_code fnd_languages.language_code%TYPE;
652
653 begin
654 hr_utility.set_location('Entering:'|| l_proc, 10);
655 --
656 -- Issue a savepoint
657 --
658 savepoint copy_tab_page_property;
659
660 --
661 -- Validate the language parameter. l_language_code should be passed
662 -- instead of p_language_code from now on, to allow an IN OUT parameter to
663 -- be passed through.
664 --
665 l_language_code := p_language_code;
666 hr_api.validate_language_code(p_language_code => l_language_code);
667 --
668 hr_utility.set_location(l_proc, 20);
669 --
670 --
671 -- Validation in addition to Row Handlers
672 --
673 OPEN cur_check;
674 FETCH cur_check INTO l_check;
675 IF cur_check%NOTFOUND THEN
676 CLOSE cur_check;
677 -- error message
678 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
682 END IF;
679 fnd_message.set_token('PROCEDURE', l_proc);
680 fnd_message.set_token('STEP','10');
681 fnd_message.raise_error;
683 CLOSE cur_check;
684 --
685 -- Process Logic
686 --
687 OPEN cur_tab_prop;
688 FETCH cur_tab_prop INTO l_rec;
689 CLOSE cur_tab_prop;
690
691 hr_tpp_ins.ins(p_effective_date => TRUNC(p_effective_date)
692 ,p_template_tab_page_id => p_template_tab_page_id
693 ,p_navigation_direction => l_rec.navigation_direction
694 ,p_visible => l_rec.visible
695 ,p_information_category => l_rec.information_category
696 ,p_information1 => l_rec.information1
697 ,p_information2 => l_rec.information2
698 ,p_information3 => l_rec.information3
699 ,p_information4 => l_rec.information4
700 ,p_information5 => l_rec.information5
701 ,p_information6 => l_rec.information6
702 ,p_information7 => l_rec.information7
703 ,p_information8 => l_rec.information8
704 ,p_information9 => l_rec.information9
705 ,p_information10 => l_rec.information10
706 ,p_information11 => l_rec.information11
707 ,p_information12 => l_rec.information12
708 ,p_information13 => l_rec.information13
709 ,p_information14 => l_rec.information14
710 ,p_information15 => l_rec.information15
711 ,p_information16 => l_rec.information16
712 ,p_information17 => l_rec.information17
713 ,p_information18 => l_rec.information18
714 ,p_information19 => l_rec.information19
715 ,p_information20 => l_rec.information20
716 ,p_information21 => l_rec.information21
717 ,p_information22 => l_rec.information22
718 ,p_information23 => l_rec.information23
719 ,p_information24 => l_rec.information24
720 ,p_information25 => l_rec.information25
721 ,p_information26 => l_rec.information26
722 ,p_information27 => l_rec.information27
723 ,p_information28 => l_rec.information28
724 ,p_information29 => l_rec.information29
725 ,p_information30 => l_rec.information30
726 ,p_tab_page_property_id => l_tab_page_property_id
727 ,p_object_version_number => l_object_version_number);
728 --,p_override_value_warning => l_override_value_warning);
729
730 IF p_label <> hr_api.g_varchar2 THEN
731
732 hr_tpt_ins.ins_tl(p_language_code => l_language_code
733 ,p_tab_page_property_id => l_tab_page_property_id
734 ,p_label => p_label);
735
736 ELSE
737 FOR cur_rec IN cur_tab_tl LOOP
738 IF cur_tab_tl%ROWCOUNT = 1 THEN
739 hr_tpt_ins.ins_tl(p_language_code => cur_rec.source_lang
740 ,p_tab_page_property_id => l_tab_page_property_id
741 ,p_label => cur_rec.label);
742 ELSE
743 hr_tpt_upd.upd_tl(p_language_code => cur_rec.source_lang
744 ,p_tab_page_property_id => l_tab_page_property_id
745 ,p_label => cur_rec.label);
746 END IF;
747 END LOOP;
748 END IF;
749 --
750 -- When in validation only mode raise the Validate_Enabled exception
751 --
752 if p_validate then
753 raise hr_api.validate_enabled;
754 end if;
755 --
756 -- Set all output arguments
757 --
758 p_tab_page_property_id := l_tab_page_property_id;
759 p_object_version_number := l_object_version_number;
760 --p_override_value_warning := l_override_value_warning;
761 --
762 hr_utility.set_location(' Leaving:'||l_proc, 70);
763 exception
764 when hr_api.validate_enabled then
765 --
766 -- As the Validate_Enabled exception has been raised
767 -- we must rollback to the savepoint
768 --
769 rollback to copy_tab_page_property;
770 --
771 -- Only set output warning arguments
772 -- (Any key or derived arguments must be set to null
773 -- when validation only mode is being used.)
774 --
775 p_tab_page_property_id := null;
776 --p_override_value_warning := null;
777 hr_utility.set_location(' Leaving:'||l_proc, 80);
778 when others then
779 --
780 -- A validation or unexpected error has occured
781 --
782 rollback to copy_tab_page_property;
783 hr_utility.set_location(' Leaving:'||l_proc, 90);
784 raise;
785 end copy_tab_page_property;
786 --
787 -- ----------------------------------------------------------------------------
788 -- |--------------------------< copy_tab_page_property - overload >-----------|
789 -- ----------------------------------------------------------------------------
790 --
791 procedure copy_tab_page_property
795 ,p_template_tab_page_id_from in number
792 (p_validate in boolean default false
793 ,p_effective_date in date
794 ,p_language_code in varchar2 default hr_api.userenv_lang
796 ,p_template_tab_page_id_to in number
797 ,p_label in varchar2 default hr_api.g_varchar2
798 ,p_navigation_direction in varchar2 default hr_api.g_varchar2
799 ,p_visible in number default hr_api.g_number
800 ,p_information_category in varchar2 default hr_api.g_varchar2
801 ,p_information1 in varchar2 default hr_api.g_varchar2
802 ,p_information2 in varchar2 default hr_api.g_varchar2
803 ,p_information3 in varchar2 default hr_api.g_varchar2
804 ,p_information4 in varchar2 default hr_api.g_varchar2
805 ,p_information5 in varchar2 default hr_api.g_varchar2
806 ,p_information6 in varchar2 default hr_api.g_varchar2
807 ,p_information7 in varchar2 default hr_api.g_varchar2
808 ,p_information8 in varchar2 default hr_api.g_varchar2
809 ,p_information9 in varchar2 default hr_api.g_varchar2
810 ,p_information10 in varchar2 default hr_api.g_varchar2
811 ,p_information11 in varchar2 default hr_api.g_varchar2
812 ,p_information12 in varchar2 default hr_api.g_varchar2
813 ,p_information13 in varchar2 default hr_api.g_varchar2
814 ,p_information14 in varchar2 default hr_api.g_varchar2
815 ,p_information15 in varchar2 default hr_api.g_varchar2
816 ,p_information16 in varchar2 default hr_api.g_varchar2
817 ,p_information17 in varchar2 default hr_api.g_varchar2
818 ,p_information18 in varchar2 default hr_api.g_varchar2
819 ,p_information19 in varchar2 default hr_api.g_varchar2
820 ,p_information20 in varchar2 default hr_api.g_varchar2
821 ,p_information21 in varchar2 default hr_api.g_varchar2
822 ,p_information22 in varchar2 default hr_api.g_varchar2
823 ,p_information23 in varchar2 default hr_api.g_varchar2
824 ,p_information24 in varchar2 default hr_api.g_varchar2
825 ,p_information25 in varchar2 default hr_api.g_varchar2
826 ,p_information26 in varchar2 default hr_api.g_varchar2
827 ,p_information27 in varchar2 default hr_api.g_varchar2
828 ,p_information28 in varchar2 default hr_api.g_varchar2
829 ,p_information29 in varchar2 default hr_api.g_varchar2
830 ,p_information30 in varchar2 default hr_api.g_varchar2
831 ,p_tab_page_property_id out nocopy number
832 ,p_object_version_number out nocopy number
833 --,p_override_value_warning out boolean
834 ) is
835 --
836 -- Declare cursors and local variables
837 --
838 Type l_rec_type Is Record
839 (navigation_direction hr_tab_page_properties_b.navigation_direction%TYPE
840 ,visible hr_tab_page_properties_b.visible%TYPE
841 ,information_category hr_tab_page_properties_b.information_category%TYPE
842 ,information1 hr_tab_page_properties_b.information1%TYPE
843 ,information2 hr_tab_page_properties_b.information2%TYPE
844 ,information3 hr_tab_page_properties_b.information3%TYPE
845 ,information4 hr_tab_page_properties_b.information4%TYPE
846 ,information5 hr_tab_page_properties_b.information5%TYPE
847 ,information6 hr_tab_page_properties_b.information6%TYPE
848 ,information7 hr_tab_page_properties_b.information7%TYPE
849 ,information8 hr_tab_page_properties_b.information8%TYPE
850 ,information9 hr_tab_page_properties_b.information9%TYPE
851 ,information10 hr_tab_page_properties_b.information10%TYPE
852 ,information11 hr_tab_page_properties_b.information11%TYPE
853 ,information12 hr_tab_page_properties_b.information12%TYPE
854 ,information13 hr_tab_page_properties_b.information13%TYPE
855 ,information14 hr_tab_page_properties_b.information14%TYPE
856 ,information15 hr_tab_page_properties_b.information15%TYPE
857 ,information16 hr_tab_page_properties_b.information16%TYPE
858 ,information17 hr_tab_page_properties_b.information17%TYPE
859 ,information18 hr_tab_page_properties_b.information18%TYPE
860 ,information19 hr_tab_page_properties_b.information19%TYPE
861 ,information20 hr_tab_page_properties_b.information20%TYPE
862 ,information21 hr_tab_page_properties_b.information21%TYPE
863 ,information22 hr_tab_page_properties_b.information22%TYPE
864 ,information23 hr_tab_page_properties_b.information23%TYPE
865 ,information24 hr_tab_page_properties_b.information24%TYPE
866 ,information25 hr_tab_page_properties_b.information25%TYPE
867 ,information26 hr_tab_page_properties_b.information26%TYPE
868 ,information27 hr_tab_page_properties_b.information27%TYPE
869 ,information28 hr_tab_page_properties_b.information28%TYPE
870 ,information29 hr_tab_page_properties_b.information29%TYPE
871 ,information30 hr_tab_page_properties_b.information30%TYPE);
872
873 l_rec l_rec_type;
874
875 CURSOR cur_check
876 IS
877 SELECT ttp.form_tab_page_id
878 FROM hr_template_tab_pages ttp
879 WHERE ttp.template_tab_page_id = p_template_tab_page_id_from
880 INTERSECT
881 SELECT ttp.form_tab_page_id
882 FROM hr_template_tab_pages ttp
883 WHERE ttp.template_tab_page_id = p_template_tab_page_id_to;
884
885 CURSOR cur_tab_prop
886 IS
890 ,DECODE(p_information1,hr_api.g_varchar2,tpp.information1,p_information1)
887 SELECT DECODE(p_navigation_direction,hr_api.g_varchar2,tpp.navigation_direction,p_navigation_direction)
888 ,DECODE(p_visible,hr_api.g_number,tpp.visible,p_visible)
889 ,DECODE(p_information_category,hr_api.g_varchar2,tpp.information_category,p_information_category)
891 ,DECODE(p_information2,hr_api.g_varchar2,tpp.information2,p_information2)
892 ,DECODE(p_information3,hr_api.g_varchar2,tpp.information3,p_information3)
893 ,DECODE(p_information4,hr_api.g_varchar2,tpp.information4,p_information4)
894 ,DECODE(p_information5,hr_api.g_varchar2,tpp.information5,p_information5)
895 ,DECODE(p_information6,hr_api.g_varchar2,tpp.information6,p_information6)
896 ,DECODE(p_information7,hr_api.g_varchar2,tpp.information7,p_information7)
897 ,DECODE(p_information8,hr_api.g_varchar2,tpp.information8,p_information8)
898 ,DECODE(p_information9,hr_api.g_varchar2,tpp.information9,p_information9)
899 ,DECODE(p_information10,hr_api.g_varchar2,tpp.information10,p_information10)
900 ,DECODE(p_information11,hr_api.g_varchar2,tpp.information11,p_information11)
901 ,DECODE(p_information12,hr_api.g_varchar2,tpp.information12,p_information12)
902 ,DECODE(p_information13,hr_api.g_varchar2,tpp.information13,p_information13)
903 ,DECODE(p_information14,hr_api.g_varchar2,tpp.information14,p_information14)
904 ,DECODE(p_information15,hr_api.g_varchar2,tpp.information15,p_information15)
905 ,DECODE(p_information16,hr_api.g_varchar2,tpp.information16,p_information16)
906 ,DECODE(p_information17,hr_api.g_varchar2,tpp.information17,p_information17)
907 ,DECODE(p_information18,hr_api.g_varchar2,tpp.information18,p_information18)
908 ,DECODE(p_information19,hr_api.g_varchar2,tpp.information19,p_information19)
909 ,DECODE(p_information20,hr_api.g_varchar2,tpp.information20,p_information20)
910 ,DECODE(p_information21,hr_api.g_varchar2,tpp.information21,p_information21)
911 ,DECODE(p_information22,hr_api.g_varchar2,tpp.information22,p_information22)
912 ,DECODE(p_information23,hr_api.g_varchar2,tpp.information23,p_information23)
913 ,DECODE(p_information24,hr_api.g_varchar2,tpp.information24,p_information24)
914 ,DECODE(p_information25,hr_api.g_varchar2,tpp.information25,p_information25)
915 ,DECODE(p_information26,hr_api.g_varchar2,tpp.information26,p_information26)
916 ,DECODE(p_information27,hr_api.g_varchar2,tpp.information27,p_information27)
917 ,DECODE(p_information28,hr_api.g_varchar2,tpp.information28,p_information28)
918 ,DECODE(p_information29,hr_api.g_varchar2,tpp.information29,p_information29)
919 ,DECODE(p_information30,hr_api.g_varchar2,tpp.information30,p_information30)
920 FROM hr_tab_page_properties_b tpp
921 WHERE tpp.template_tab_page_id = p_template_tab_page_id_from;
922
923 CURSOR cur_tab_tl
924 IS
925 SELECT COUNT(0)
926 ,tpptl.source_lang
927 ,DECODE(p_label,hr_api.g_varchar2,tpptl.label,p_label) label
928 FROM hr_tab_page_properties_tl tpptl
929 ,hr_tab_page_properties_b tpp
930 WHERE tpptl.tab_page_property_id = tpp.tab_page_property_id
931 AND tpp.template_tab_page_id = p_template_tab_page_id_from
932 GROUP BY tpptl.source_lang
933 ,DECODE(p_label,hr_api.g_varchar2,tpptl.label,p_label)
934 ORDER BY 1;
935
936 l_check number;
937 l_tab_page_property_id number;
938 l_object_version_number number;
939 l_override_value_warning boolean;
940 l_proc varchar2(72) := g_package||'copy_tab_page_property';
941 l_language_code fnd_languages.language_code%TYPE;
942
943 begin
944 hr_utility.set_location('Entering:'|| l_proc, 10);
945 --
946 -- Issue a savepoint
947 --
948 savepoint copy_tab_page_property;
949
950 --
951 -- Validate the language parameter. l_language_code should be passed
952 -- instead of p_language_code from now on, to allow an IN OUT parameter to
953 -- be passed through.
954 --
955 l_language_code := p_language_code;
956 hr_api.validate_language_code(p_language_code => l_language_code);
957 --
958 hr_utility.set_location(l_proc, 20);
959 --
960 --
961 -- Validation in addition to Row Handlers
962 --
963 OPEN cur_check;
964 FETCH cur_check INTO l_check;
965 IF cur_check%NOTFOUND THEN
966 CLOSE cur_check;
967 -- error message
968 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
969 fnd_message.set_token('PROCEDURE', l_proc);
970 fnd_message.set_token('STEP','10');
971 fnd_message.raise_error;
972 END IF;
973 CLOSE cur_check;
974 --
975 -- Process Logic
976 --
977 OPEN cur_tab_prop;
978 FETCH cur_tab_prop INTO l_rec;
979 CLOSE cur_tab_prop;
980
981 hr_tpp_ins.ins(p_effective_date => TRUNC(p_effective_date)
982 ,p_template_tab_page_id => p_template_tab_page_id_to
983 ,p_navigation_direction => l_rec.navigation_direction
984 ,p_visible => l_rec.visible
985 ,p_information_category => l_rec.information_category
986 ,p_information1 => l_rec.information1
987 ,p_information2 => l_rec.information2
988 ,p_information3 => l_rec.information3
989 ,p_information4 => l_rec.information4
990 ,p_information5 => l_rec.information5
991 ,p_information6 => l_rec.information6
992 ,p_information7 => l_rec.information7
993 ,p_information8 => l_rec.information8
994 ,p_information9 => l_rec.information9
995 ,p_information10 => l_rec.information10
996 ,p_information11 => l_rec.information11
997 ,p_information12 => l_rec.information12
998 ,p_information13 => l_rec.information13
999 ,p_information14 => l_rec.information14
1000 ,p_information15 => l_rec.information15
1001 ,p_information16 => l_rec.information16
1002 ,p_information17 => l_rec.information17
1003 ,p_information18 => l_rec.information18
1004 ,p_information19 => l_rec.information19
1005 ,p_information20 => l_rec.information20
1006 ,p_information21 => l_rec.information21
1007 ,p_information22 => l_rec.information22
1008 ,p_information23 => l_rec.information23
1009 ,p_information24 => l_rec.information24
1010 ,p_information25 => l_rec.information25
1011 ,p_information26 => l_rec.information26
1012 ,p_information27 => l_rec.information27
1013 ,p_information28 => l_rec.information28
1014 ,p_information29 => l_rec.information29
1015 ,p_information30 => l_rec.information30
1016 ,p_tab_page_property_id => l_tab_page_property_id
1017 ,p_object_version_number => l_object_version_number);
1018 --,p_override_value_warning => l_override_value_warning);
1019
1020 IF p_label <> hr_api.g_varchar2 THEN
1021
1022 hr_tpt_ins.ins_tl(p_language_code => l_language_code
1023 ,p_tab_page_property_id => l_tab_page_property_id
1024 ,p_label => p_label);
1025
1026 ELSE
1027 FOR cur_rec IN cur_tab_tl LOOP
1028 IF cur_tab_tl%ROWCOUNT = 1 THEN
1029 hr_tpt_ins.ins_tl(p_language_code => cur_rec.source_lang
1030 ,p_tab_page_property_id => l_tab_page_property_id
1031 ,p_label => cur_rec.label);
1032 ELSE
1033 hr_tpt_upd.upd_tl(p_language_code => cur_rec.source_lang
1034 ,p_tab_page_property_id => l_tab_page_property_id
1035 ,p_label => cur_rec.label);
1036 END IF;
1037 END LOOP;
1038 END IF;
1039 --
1040 -- When in validation only mode raise the Validate_Enabled exception
1041 --
1042 if p_validate then
1043 raise hr_api.validate_enabled;
1044 end if;
1045 --
1046 -- Set all output arguments
1047 --
1048 p_tab_page_property_id := l_tab_page_property_id;
1049 p_object_version_number := l_object_version_number;
1050 --p_override_value_warning := l_override_value_warning;
1051 --
1052 hr_utility.set_location(' Leaving:'||l_proc, 70);
1053 exception
1054 when hr_api.validate_enabled then
1055 --
1056 -- As the Validate_Enabled exception has been raised
1057 -- we must rollback to the savepoint
1058 --
1059 rollback to copy_tab_page_property;
1060 --
1061 -- Only set output warning arguments
1062 -- (Any key or derived arguments must be set to null
1063 -- when validation only mode is being used.)
1064 --
1065 p_tab_page_property_id := null;
1066 --p_override_value_warning := null;
1067 hr_utility.set_location(' Leaving:'||l_proc, 80);
1068 when others then
1069 --
1070 -- A validation or unexpected error has occured
1071 --
1072 rollback to copy_tab_page_property;
1073 hr_utility.set_location(' Leaving:'||l_proc, 90);
1074 raise;
1075 end copy_tab_page_property;
1076 --
1077 end hr_tab_page_properties_bsi;