[Home] [Help]
PACKAGE BODY: APPS.HR_WNP_BUS
Source
1 Package Body hr_wnp_bus as
2 /* $Header: hrwnprhi.pkb 115.2 2002/12/03 14:20:10 raranjan noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_wnp_bus.'; -- Global package name
9 --
10 -- The following two global variables are only to be
11 -- used by the return_legislation_code function.
12 --
13 g_legislation_code varchar2(150) default null;
14 g_window_property_id number default null;
15 --
16 -- ---------------------------------------------------------------------------
17 -- |----------------------< set_security_group_id >--------------------------|
18 -- ---------------------------------------------------------------------------
19 --
20 Procedure set_security_group_id
21 (p_window_property_id in number
22 ) is
23 --
24 l_proc varchar2(72) := g_package||'set_security_group_id';
25 --
26 begin
27 --
28 hr_utility.set_location('Entering:'|| l_proc, 10);
29 --
30 -- No business group context. Security group is not applicable.
31 --
32 null;
33 --
34 hr_utility.set_location(' Leaving:'|| l_proc, 20);
35 --
36 end set_security_group_id;
37 --
38 -- ---------------------------------------------------------------------------
39 -- |---------------------< return_legislation_code >-------------------------|
40 -- ---------------------------------------------------------------------------
41 --
42 Function return_legislation_code
43 (p_window_property_id in number
44 )
45 Return Varchar2 Is
46 --
47 -- Declare cursor
48 --
49 cursor csr_leg_code is
50 select tmp.legislation_code
51 from hr_form_templates_b tmp
52 ,hr_template_windows_b twn
53 ,hr_window_properties_b wnp
54 where tmp.form_template_id = twn.form_template_id
55 and twn.template_window_id = wnp.template_window_id
56 and wnp.window_property_id = p_window_property_id;
57 --
58 -- Declare local variables
59 --
60 l_legislation_code varchar2(150);
61 l_proc varchar2(72) := g_package||'return_legislation_code';
62 --
63 Begin
64 --
65 hr_utility.set_location('Entering:'|| l_proc, 10);
66 --
67 -- Ensure that all the mandatory parameter are not null
68 --
69 hr_api.mandatory_arg_error
70 (p_api_name => l_proc
71 ,p_argument => 'window_property_id'
72 ,p_argument_value => p_window_property_id
73 );
74 --
75 if ( nvl(hr_wnp_bus.g_window_property_id, hr_api.g_number)
76 = p_window_property_id) then
77 --
78 -- The legislation code has already been found with a previous
79 -- call to this function. Just return the value in the global
80 -- variable.
81 --
82 l_legislation_code := hr_wnp_bus.g_legislation_code;
83 hr_utility.set_location(l_proc, 20);
84 else
85 --
86 -- The ID is different to the last call to this function
87 -- or this is the first call to this function.
88 --
89 open csr_leg_code;
90 fetch csr_leg_code into l_legislation_code;
91 --
92 if csr_leg_code%notfound then
93 --
94 -- Legislation code not found, which may be correct for certain window
95 -- properties.
96 --
97 l_legislation_code := null;
98 end if;
99 hr_utility.set_location(l_proc,30);
100 --
101 -- Set the global variables so the values are
102 -- available for the next call to this function.
103 --
104 close csr_leg_code;
105 hr_wnp_bus.g_window_property_id:= p_window_property_id;
106 hr_wnp_bus.g_legislation_code := l_legislation_code;
107 end if;
108 hr_utility.set_location(' Leaving:'|| l_proc, 40);
109 return l_legislation_code;
110 end return_legislation_code;
111 --
112 -- ----------------------------------------------------------------------------
113 -- |-----------------------------< chk_ddf >----------------------------------|
114 -- ----------------------------------------------------------------------------
115 --
116 -- Description:
117 -- Validates all the Developer Descriptive Flexfield values.
118 --
119 -- Prerequisites:
120 -- All other columns have been validated. Must be called as the
121 -- last step from insert_validate and update_validate.
122 --
123 -- In Arguments:
124 -- p_rec
125 --
126 -- Post Success:
127 -- If the Developer Descriptive Flexfield structure column and data values
128 -- are all valid this procedure will end normally and processing will
129 -- continue.
130 --
131 -- Post Failure:
132 -- If the Developer Descriptive Flexfield structure column value or any of
133 -- the data values are invalid then an application error is raised as
134 -- a PL/SQL exception.
135 --
136 -- Access Status:
137 -- Internal Row Handler Use Only.
138 --
139 -- ----------------------------------------------------------------------------
140 procedure chk_ddf
141 (p_rec in hr_wnp_shd.g_rec_type
142 ) is
143 --
144 l_proc varchar2(72) := g_package || 'chk_ddf';
145 --
146 begin
147 hr_utility.set_location('Entering:'||l_proc,10);
148 --
149 if ((p_rec.window_property_id is not null) and (
150 nvl(hr_wnp_shd.g_old_rec.information_category, hr_api.g_varchar2) <>
151 nvl(p_rec.information_category, hr_api.g_varchar2) or
152 nvl(hr_wnp_shd.g_old_rec.information1, hr_api.g_varchar2) <>
153 nvl(p_rec.information1, hr_api.g_varchar2) or
154 nvl(hr_wnp_shd.g_old_rec.information2, hr_api.g_varchar2) <>
155 nvl(p_rec.information2, hr_api.g_varchar2) or
156 nvl(hr_wnp_shd.g_old_rec.information3, hr_api.g_varchar2) <>
157 nvl(p_rec.information3, hr_api.g_varchar2) or
158 nvl(hr_wnp_shd.g_old_rec.information4, hr_api.g_varchar2) <>
159 nvl(p_rec.information4, hr_api.g_varchar2) or
160 nvl(hr_wnp_shd.g_old_rec.information5, hr_api.g_varchar2) <>
161 nvl(p_rec.information5, hr_api.g_varchar2) or
162 nvl(hr_wnp_shd.g_old_rec.information6, hr_api.g_varchar2) <>
163 nvl(p_rec.information6, hr_api.g_varchar2) or
164 nvl(hr_wnp_shd.g_old_rec.information7, hr_api.g_varchar2) <>
165 nvl(p_rec.information7, hr_api.g_varchar2) or
166 nvl(hr_wnp_shd.g_old_rec.information8, hr_api.g_varchar2) <>
167 nvl(p_rec.information8, hr_api.g_varchar2) or
168 nvl(hr_wnp_shd.g_old_rec.information9, hr_api.g_varchar2) <>
169 nvl(p_rec.information9, hr_api.g_varchar2) or
170 nvl(hr_wnp_shd.g_old_rec.information10, hr_api.g_varchar2) <>
171 nvl(p_rec.information10, hr_api.g_varchar2) or
172 nvl(hr_wnp_shd.g_old_rec.information11, hr_api.g_varchar2) <>
173 nvl(p_rec.information11, hr_api.g_varchar2) or
174 nvl(hr_wnp_shd.g_old_rec.information12, hr_api.g_varchar2) <>
175 nvl(p_rec.information12, hr_api.g_varchar2) or
176 nvl(hr_wnp_shd.g_old_rec.information13, hr_api.g_varchar2) <>
177 nvl(p_rec.information13, hr_api.g_varchar2) or
178 nvl(hr_wnp_shd.g_old_rec.information14, hr_api.g_varchar2) <>
179 nvl(p_rec.information14, hr_api.g_varchar2) or
180 nvl(hr_wnp_shd.g_old_rec.information15, hr_api.g_varchar2) <>
181 nvl(p_rec.information15, hr_api.g_varchar2) or
182 nvl(hr_wnp_shd.g_old_rec.information16, hr_api.g_varchar2) <>
183 nvl(p_rec.information16, hr_api.g_varchar2) or
184 nvl(hr_wnp_shd.g_old_rec.information17, hr_api.g_varchar2) <>
185 nvl(p_rec.information17, hr_api.g_varchar2) or
186 nvl(hr_wnp_shd.g_old_rec.information18, hr_api.g_varchar2) <>
187 nvl(p_rec.information18, hr_api.g_varchar2) or
188 nvl(hr_wnp_shd.g_old_rec.information19, hr_api.g_varchar2) <>
189 nvl(p_rec.information19, hr_api.g_varchar2) or
190 nvl(hr_wnp_shd.g_old_rec.information20, hr_api.g_varchar2) <>
191 nvl(p_rec.information20, hr_api.g_varchar2) or
192 nvl(hr_wnp_shd.g_old_rec.information21, hr_api.g_varchar2) <>
193 nvl(p_rec.information21, hr_api.g_varchar2) or
194 nvl(hr_wnp_shd.g_old_rec.information22, hr_api.g_varchar2) <>
195 nvl(p_rec.information22, hr_api.g_varchar2) or
196 nvl(hr_wnp_shd.g_old_rec.information23, hr_api.g_varchar2) <>
197 nvl(p_rec.information23, hr_api.g_varchar2) or
198 nvl(hr_wnp_shd.g_old_rec.information24, hr_api.g_varchar2) <>
199 nvl(p_rec.information24, hr_api.g_varchar2) or
200 nvl(hr_wnp_shd.g_old_rec.information25, hr_api.g_varchar2) <>
201 nvl(p_rec.information25, hr_api.g_varchar2) or
202 nvl(hr_wnp_shd.g_old_rec.information26, hr_api.g_varchar2) <>
203 nvl(p_rec.information26, hr_api.g_varchar2) or
204 nvl(hr_wnp_shd.g_old_rec.information27, hr_api.g_varchar2) <>
205 nvl(p_rec.information27, hr_api.g_varchar2) or
206 nvl(hr_wnp_shd.g_old_rec.information28, hr_api.g_varchar2) <>
207 nvl(p_rec.information28, hr_api.g_varchar2) or
208 nvl(hr_wnp_shd.g_old_rec.information29, hr_api.g_varchar2) <>
209 nvl(p_rec.information29, hr_api.g_varchar2) or
210 nvl(hr_wnp_shd.g_old_rec.information30, hr_api.g_varchar2) <>
211 nvl(p_rec.information30, hr_api.g_varchar2) )
212 or (p_rec.window_property_id is null) ) then
213 --
214 -- Only execute the validation if absolutely necessary:
215 -- a) During update, the structure column value or any
216 -- of the attribute values have actually changed.
217 -- b) During insert.
218 --
219 hr_dflex_utility.ins_or_upd_descflex_attribs
220 (p_appl_short_name => 'PER'
221 ,p_descflex_name => 'HR_WINDOW_PROPERTIES'
222 ,p_attribute_category => p_rec.information_category
223 ,p_attribute1_name => 'INFORMATION1'
224 ,p_attribute1_value => p_rec.information1
225 ,p_attribute2_name => 'INFORMATION2'
226 ,p_attribute2_value => p_rec.information2
227 ,p_attribute3_name => 'INFORMATION3'
228 ,p_attribute3_value => p_rec.information3
229 ,p_attribute4_name => 'INFORMATION4'
230 ,p_attribute4_value => p_rec.information4
231 ,p_attribute5_name => 'INFORMATION5'
232 ,p_attribute5_value => p_rec.information5
233 ,p_attribute6_name => 'INFORMATION6'
234 ,p_attribute6_value => p_rec.information6
235 ,p_attribute7_name => 'INFORMATION7'
236 ,p_attribute7_value => p_rec.information7
237 ,p_attribute8_name => 'INFORMATION8'
238 ,p_attribute8_value => p_rec.information8
239 ,p_attribute9_name => 'INFORMATION9'
240 ,p_attribute9_value => p_rec.information9
241 ,p_attribute10_name => 'INFORMATION10'
242 ,p_attribute10_value => p_rec.information10
243 ,p_attribute11_name => 'INFORMATION11'
244 ,p_attribute11_value => p_rec.information11
245 ,p_attribute12_name => 'INFORMATION12'
246 ,p_attribute12_value => p_rec.information12
247 ,p_attribute13_name => 'INFORMATION13'
248 ,p_attribute13_value => p_rec.information13
249 ,p_attribute14_name => 'INFORMATION14'
250 ,p_attribute14_value => p_rec.information14
251 ,p_attribute15_name => 'INFORMATION15'
252 ,p_attribute15_value => p_rec.information15
253 ,p_attribute16_name => 'INFORMATION16'
254 ,p_attribute16_value => p_rec.information16
255 ,p_attribute17_name => 'INFORMATION17'
256 ,p_attribute17_value => p_rec.information17
257 ,p_attribute18_name => 'INFORMATION18'
258 ,p_attribute18_value => p_rec.information18
259 ,p_attribute19_name => 'INFORMATION19'
260 ,p_attribute19_value => p_rec.information19
261 ,p_attribute20_name => 'INFORMATION20'
262 ,p_attribute20_value => p_rec.information20
263 ,p_attribute21_name => 'INFORMATION21'
264 ,p_attribute21_value => p_rec.information21
265 ,p_attribute22_name => 'INFORMATION22'
266 ,p_attribute22_value => p_rec.information22
267 ,p_attribute23_name => 'INFORMATION23'
268 ,p_attribute23_value => p_rec.information23
269 ,p_attribute24_name => 'INFORMATION24'
270 ,p_attribute24_value => p_rec.information24
271 ,p_attribute25_name => 'INFORMATION25'
272 ,p_attribute25_value => p_rec.information25
273 ,p_attribute26_name => 'INFORMATION26'
274 ,p_attribute26_value => p_rec.information26
275 ,p_attribute27_name => 'INFORMATION27'
276 ,p_attribute27_value => p_rec.information27
277 ,p_attribute28_name => 'INFORMATION28'
278 ,p_attribute28_value => p_rec.information28
279 ,p_attribute29_name => 'INFORMATION29'
280 ,p_attribute29_value => p_rec.information29
281 ,p_attribute30_name => 'INFORMATION30'
282 ,p_attribute30_value => p_rec.information30
283 );
284 end if;
285 --
286 hr_utility.set_location(' Leaving:'||l_proc,20);
287 end chk_ddf;
288 --
289 -- ----------------------------------------------------------------------------
290 -- |-----------------------< chk_non_updateable_args >------------------------|
291 -- ----------------------------------------------------------------------------
292 -- {Start Of Comments}
293 --
294 -- Description:
295 -- This procedure is used to ensure that non updateable attributes have
296 -- not been updated. If an attribute has been updated an error is generated.
297 --
298 -- Pre Conditions:
299 -- g_old_rec has been populated with details of the values currently in
300 -- the database.
301 --
302 -- In Arguments:
303 -- p_rec has been populated with the updated values the user would like the
304 -- record set to.
305 --
306 -- Post Success:
307 -- Processing continues if all the non updateable attributes have not
308 -- changed.
309 --
310 -- Post Failure:
311 -- An application error is raised if any of the non updatable attributes
312 -- have been altered.
313 --
314 -- {End Of Comments}
315 -- ----------------------------------------------------------------------------
316 Procedure chk_non_updateable_args
317 (p_rec in hr_wnp_shd.g_rec_type
318 ) IS
319 --
320 l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
321 l_error EXCEPTION;
322 l_argument varchar2(30);
323 --
324 Begin
325 --
326 -- Only proceed with the validation if a row exists for the current
327 -- record in the HR Schema.
328 --
329 IF NOT hr_wnp_shd.api_updating
330 (p_window_property_id => p_rec.window_property_id
331 ) THEN
332 fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
333 fnd_message.set_token('PROCEDURE ', l_proc);
334 fnd_message.set_token('STEP ', '5');
335 fnd_message.raise_error;
336 END IF;
337 --
338 IF (nvl(p_rec.form_window_id,hr_api.g_number) <>
339 nvl(hr_wnp_shd.g_old_rec.form_window_id,hr_api.g_number)
340 ) THEN
341 l_argument := 'form_window_id';
342 RAISE l_error;
343 END IF;
344 --
345 IF (nvl(p_rec.template_window_id,hr_api.g_number) <>
346 nvl(hr_wnp_shd.g_old_rec.template_window_id,hr_api.g_number)
347 ) THEN
348 l_argument := 'template_window_id';
349 RAISE l_error;
350 END IF;
351 --
352 EXCEPTION
353 WHEN l_error THEN
354 hr_api.argument_changed_error
355 (p_api_name => l_proc
356 ,p_argument => l_argument);
357 WHEN OTHERS THEN
358 RAISE;
359 End chk_non_updateable_args;
360 --
361 -- ----------------------------------------------------------------------------
362 -- |---------------------< chk_form_and_template_window >---------------------|
363 -- ----------------------------------------------------------------------------
364 Procedure chk_form_and_template_window
365 (p_window_property_id in number
366 ,p_form_window_id in number
367 ,p_template_window_id in number
368 ) is
369 --
370 l_proc varchar2(72) := g_package || 'chk_form_and_template_window';
371 l_api_updating boolean;
372 --
373 Begin
374 hr_utility.set_location('Entering:'||l_proc, 10);
375 --
376 -- One and only one of form_window_id and template_window_id must be given
377 --
378 if not ( ( p_form_window_id is not null
379 and p_template_window_id is null)
380 or ( p_form_window_id is null
381 and p_template_window_id is not null)) then
382 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
383 fnd_message.set_token('PROCEDURE', l_proc);
384 fnd_message.set_token('STEP','10');
385 fnd_message.raise_error;
386 end if;
387 --
388 hr_utility.set_location('Leaving:'||l_proc, 100);
389 End chk_form_and_template_window;
390 --
391 -- ----------------------------------------------------------------------------
392 -- |--------------------------< chk_form_window_id >--------------------------|
393 -- ----------------------------------------------------------------------------
394 Procedure chk_form_window_id
395 (p_window_property_id in number
396 ,p_form_window_id in number
397 ) is
398 --
399 l_proc varchar2(72) := g_package || 'chk_form_window_id';
400 l_api_updating boolean;
401 l_canvas_type varchar2(30);
402 --
403 Begin
404 hr_utility.set_location('Entering:'||l_proc, 10);
405 --
406 -- No additional validation required
407 --
408 null;
409 --
410 hr_utility.set_location('Leaving:'||l_proc, 100);
411 End chk_form_window_id;
412 --
413 -- ----------------------------------------------------------------------------
414 -- |------------------------< chk_template_window_id >------------------------|
415 -- ----------------------------------------------------------------------------
416 Procedure chk_template_window_id
417 (p_window_property_id in number
418 ,p_template_window_id in number
419 ) is
420 --
421 l_proc varchar2(72) := g_package || 'chk_template_window_id';
422 l_api_updating boolean;
423 l_canvas_type varchar2(30);
424 --
425 Begin
426 hr_utility.set_location('Entering:'||l_proc, 10);
427 --
428 -- No additional validation required
429 --
430 null;
431 --
432 hr_utility.set_location('Leaving:'||l_proc, 100);
433 End chk_template_window_id;
434 --
435 -- ----------------------------------------------------------------------------
436 -- |------------------------------< chk_height >------------------------------|
437 -- ----------------------------------------------------------------------------
438 Procedure chk_height
439 (p_window_property_id in number
440 ,p_height in number
441 ) is
442 --
443 l_proc varchar2(72) := g_package || 'chk_height';
444 l_api_updating boolean;
445 --
446 Begin
447 hr_utility.set_location('Entering:'||l_proc, 10);
448 --
449 -- Height must be greater than or equal to zero, if given
450 --
451 if (p_height is not null) then
452 --
453 hr_utility.set_location(l_proc,30);
454 --
455 if (p_height < 0) then
456 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
457 fnd_message.set_token('PROCEDURE', l_proc);
458 fnd_message.set_token('STEP','10');
459 fnd_message.raise_error;
460 end if;
461 --
462 end if;
463 --
464 hr_utility.set_location('Leaving:'||l_proc, 100);
465 End chk_height;
466 --
467 -- ----------------------------------------------------------------------------
468 -- |------------------------------< chk_width >-------------------------------|
469 -- ----------------------------------------------------------------------------
470 Procedure chk_width
471 (p_window_property_id in number
472 ,p_width in number
473 ) is
474 --
475 l_proc varchar2(72) := g_package || 'chk_width';
476 l_api_updating boolean;
477 --
478 Begin
479 hr_utility.set_location('Entering:'||l_proc, 10);
480 --
481 -- Width must be greater than or equal to zero, if given
482 --
483 if (p_width is not null) then
484 --
485 hr_utility.set_location(l_proc,30);
486 --
487 if (p_width < 0) then
488 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
489 fnd_message.set_token('PROCEDURE', l_proc);
490 fnd_message.set_token('STEP','10');
491 fnd_message.raise_error;
492 end if;
493 --
494 end if;
495 --
496 hr_utility.set_location('Leaving:'||l_proc, 100);
497 End chk_width;
498 --
499 -- ----------------------------------------------------------------------------
500 -- |-----------------------------< chk_x_position >---------------------------|
501 -- ----------------------------------------------------------------------------
502 Procedure chk_x_position
503 (p_window_property_id in number
504 ,p_x_position in number
505 ) is
506 --
507 l_proc varchar2(72) := g_package || 'chk_x_position';
508 l_api_updating boolean;
509 --
510 Begin
511 hr_utility.set_location('Entering:'||l_proc, 10);
512 --
513 -- X position must be greater than or equal to zero,if given
514 --
515 if (p_x_position is not null) then
516 --
517 hr_utility.set_location(l_proc,30);
518 --
519 if (p_x_position < 0) then
520 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
521 fnd_message.set_token('PROCEDURE', l_proc);
522 fnd_message.set_token('STEP','10');
523 fnd_message.raise_error;
524 end if;
525 --
526 end if;
527 --
528 hr_utility.set_location('Leaving:'||l_proc, 100);
529 End chk_x_position;
530 --
531 -- ----------------------------------------------------------------------------
532 -- |-----------------------------< chk_y_position >---------------------------|
533 -- ----------------------------------------------------------------------------
534 Procedure chk_y_position
535 (p_window_property_id in number
536 ,p_y_position in number
537 ) is
538 --
539 l_proc varchar2(72) := g_package || 'chk_y_position';
540 l_api_updating boolean;
541 --
542 Begin
543 hr_utility.set_location('Entering:'||l_proc, 10);
544 --
545 -- Y position must be greater than or equal to zero, if given
546 --
547 if (p_y_position is not null) then
548 --
549 hr_utility.set_location(l_proc,30);
550 --
551 if (p_y_position < 0) then
552 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
553 fnd_message.set_token('PROCEDURE', l_proc);
554 fnd_message.set_token('STEP','10');
555 fnd_message.raise_error;
556 end if;
557 --
558 end if;
559 --
560 hr_utility.set_location('Leaving:'||l_proc, 100);
561 End chk_y_position;
562 --
563 -- ----------------------------------------------------------------------------
564 -- |------------------------------< chk_delete >------------------------------|
565 -- ----------------------------------------------------------------------------
566 Procedure chk_delete
567 (p_rec in hr_wnp_shd.g_rec_type
568 ) is
569 --
570 l_proc varchar2(72) := g_package||'chk_delete';
571 --
572 Begin
573 hr_utility.set_location('Entering:'||l_proc, 5);
574 --
575 -- No additional validation required
576 --
577 null;
578 --
579 hr_utility.set_location(' Leaving:'||l_proc, 10);
580 End chk_delete;
581 --
582 -- ----------------------------------------------------------------------------
583 -- |---------------------------< insert_validate >----------------------------|
584 -- ----------------------------------------------------------------------------
585 Procedure insert_validate
586 (p_rec in hr_wnp_shd.g_rec_type
587 ) is
588 --
589 l_proc varchar2(72) := g_package||'insert_validate';
590 --
591 Begin
592 hr_utility.set_location('Entering:'||l_proc, 5);
593 --
594 -- Call all supporting business operations
595 -- No business group context. HR_STANDARD_LOOKUPS used for validation.
596 --
597 chk_form_and_template_window
598 (p_window_property_id => p_rec.window_property_id
599 ,p_form_window_id => p_rec.form_window_id
600 ,p_template_window_id => p_rec.template_window_id
601 );
602 --
603 chk_form_window_id
604 (p_window_property_id => p_rec.window_property_id
605 ,p_form_window_id => p_rec.form_window_id
606 );
607 --
608 chk_template_window_id
609 (p_window_property_id => p_rec.window_property_id
610 ,p_template_window_id => p_rec.template_window_id
611 );
612 --
613 chk_height
614 (p_window_property_id => p_rec.window_property_id
615 ,p_height => p_rec.height
616 );
617 --
618 chk_width
619 (p_window_property_id => p_rec.window_property_id
620 ,p_width => p_rec.width
621 );
622 --
623 chk_x_position
624 (p_window_property_id => p_rec.window_property_id
625 ,p_x_position => p_rec.x_position
626 );
627 --
628 chk_y_position
629 (p_window_property_id => p_rec.window_property_id
630 ,p_y_position => p_rec.y_position
631 );
632 --
633 chk_ddf
634 (p_rec => p_rec
635 );
636 --
637 hr_utility.set_location(' Leaving:'||l_proc, 10);
638 End insert_validate;
639 --
640 -- ----------------------------------------------------------------------------
641 -- |---------------------------< update_validate >----------------------------|
642 -- ----------------------------------------------------------------------------
643 Procedure update_validate
644 (p_rec in hr_wnp_shd.g_rec_type
645 ) is
646 --
647 l_proc varchar2(72) := g_package||'update_validate';
648 --
649 Begin
650 hr_utility.set_location('Entering:'||l_proc, 5);
651 --
652 -- Call all supporting business operations
653 -- No business group context. HR_STANDARD_LOOKUPS used for validation.
654 --
655 chk_non_updateable_args
656 (p_rec => p_rec
657 );
658 --
659 chk_form_and_template_window
660 (p_window_property_id => p_rec.window_property_id
661 ,p_form_window_id => p_rec.form_window_id
662 ,p_template_window_id => p_rec.template_window_id
663 );
664 --
665 chk_form_window_id
666 (p_window_property_id => p_rec.window_property_id
667 ,p_form_window_id => p_rec.form_window_id
668 );
669 --
670 chk_template_window_id
671 (p_window_property_id => p_rec.window_property_id
672 ,p_template_window_id => p_rec.template_window_id
673 );
674 --
675 chk_height
676 (p_window_property_id => p_rec.window_property_id
677 ,p_height => p_rec.height
678 );
679 --
680 chk_width
681 (p_window_property_id => p_rec.window_property_id
682 ,p_width => p_rec.width
683 );
684 --
685 chk_x_position
686 (p_window_property_id => p_rec.window_property_id
687 ,p_x_position => p_rec.x_position
688 );
689 --
690 chk_y_position
691 (p_window_property_id => p_rec.window_property_id
692 ,p_y_position => p_rec.y_position
693 );
694 --
695 chk_ddf
696 (p_rec => p_rec
697 );
698 --
699 hr_utility.set_location(' Leaving:'||l_proc, 10);
700 End update_validate;
701 --
702 -- ----------------------------------------------------------------------------
703 -- |---------------------------< delete_validate >----------------------------|
704 -- ----------------------------------------------------------------------------
705 Procedure delete_validate
706 (p_rec in hr_wnp_shd.g_rec_type
707 ) is
708 --
709 l_proc varchar2(72) := g_package||'delete_validate';
710 --
711 Begin
712 hr_utility.set_location('Entering:'||l_proc, 5);
713 --
714 -- Call all supporting business operations
715 --
716 chk_delete
717 (p_rec => p_rec
718 );
719 --
720 hr_utility.set_location(' Leaving:'||l_proc, 10);
721 End delete_validate;
722 --
723 end hr_wnp_bus;