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