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