[Home] [Help]
10: -- ----------------------------------------------------------------------------
11: -- |-----------------------< chk_non_updateable_args >------------------------|
12: -- ----------------------------------------------------------------------------
13: Procedure chk_non_updateable_args
14: (p_rec in pay_etm_shd.g_rec_type
15: ) is
16: --
17: l_proc varchar2(72) := g_package||'chk_non_updateable_args';
18: l_error exception;
20: l_argument varchar2(30);
21: --
22: Begin
23: hr_utility.set_location('Entering:'||l_proc, 5);
24: l_api_updating := pay_etm_shd.api_updating
25: (p_template_id => p_rec.template_id
26: ,p_object_version_number => p_rec.object_version_number
27: );
28: if not l_api_updating then
36: --
37: -- p_business_group_id
38: --
39: if nvl(p_rec.business_group_id, hr_api.g_number) <>
40: nvl(pay_etm_shd.g_old_rec.business_group_id, hr_api.g_number)
41: then
42: l_argument := 'p_business_group_id';
43: raise l_error;
44: end if;
45: --
46: -- p_legislation_code
47: --
48: if nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
49: nvl(pay_etm_shd.g_old_rec.legislation_code, hr_api.g_varchar2)
50: then
51: l_argument := 'p_legislation_code';
52: raise l_error;
53: end if;
54: --
55: -- p_template_name
56: --
57: if nvl(p_rec.template_name, hr_api.g_varchar2) <>
58: nvl(pay_etm_shd.g_old_rec.template_name, hr_api.g_varchar2)
59: then
60: l_argument := 'p_template_name';
61: raise l_error;
62: end if;
63: --
64: -- p_template_type
65: --
66: if nvl(p_rec.template_type, hr_api.g_varchar2) <>
67: nvl(pay_etm_shd.g_old_rec.template_type, hr_api.g_varchar2)
68: then
69: l_argument := 'p_template_type';
70: raise l_error;
71: end if;
72: --
73: -- p_base_name
74: --
75: if nvl(p_rec.base_name, hr_api.g_varchar2) <>
76: nvl(pay_etm_shd.g_old_rec.base_name, hr_api.g_varchar2)
77: then
78: l_argument := 'p_base_name';
79: raise l_error;
80: end if;
241: select null
242: from pay_shadow_element_types pset
243: where pset.template_id = p_template_id
244: and pset.relative_processing_priority + p_base_processing_priority >
245: pay_etm_shd.g_max_processing_priority;
246: --
247: l_proc varchar2(72) := g_package||'chk_base_processing_priority';
248: l_api_updating boolean;
249: l_lower constant number := 0;
246: --
247: l_proc varchar2(72) := g_package||'chk_base_processing_priority';
248: l_api_updating boolean;
249: l_lower constant number := 0;
250: l_upper constant number := pay_etm_shd.g_max_processing_priority;
251: l_too_large varchar2(1);
252: --
253: Begin
254: hr_utility.set_location('Entering:'||l_proc, 5);
251: l_too_large varchar2(1);
252: --
253: Begin
254: hr_utility.set_location('Entering:'||l_proc, 5);
255: l_api_updating := pay_etm_shd.api_updating
256: (p_template_id => p_template_id
257: ,p_object_version_number => p_object_version_number
258: );
259: --
257: ,p_object_version_number => p_object_version_number
258: );
259: --
260: if (l_api_updating and
261: nvl(pay_etm_shd.g_old_rec.base_processing_priority, hr_api.g_number) <>
262: nvl(p_base_processing_priority, hr_api.g_number)) or
263: not l_api_updating
264: then
265: --
318: l_api_updating boolean;
319: --
320: Begin
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: l_api_updating := pay_etm_shd.api_updating
323: (p_template_id => p_template_id
324: ,p_object_version_number => p_object_version_number
325: );
326: --
324: ,p_object_version_number => p_object_version_number
325: );
326: --
327: if (l_api_updating and
328: nvl(pay_etm_shd.g_old_rec.version_number, hr_api.g_number) <>
329: nvl(p_version_number, hr_api.g_number)) or
330: not l_api_updating
331: then
332: --
349: -- Updated version number must not be less than the previous
350: -- version number.
351: --
352: if l_api_updating and
353: p_version_number < pay_etm_shd.g_old_rec.version_number then
354: hr_utility.set_location(' Leaving:'||l_proc, 15);
355: fnd_message.set_name('PAY', 'PAY_50083_ETM_LOWER_VERSION_NO');
356: fnd_message.raise_error;
357: end if;
424: l_upper constant number := 50;
425: --
426: Begin
427: hr_utility.set_location('Entering:'||l_proc, 5);
428: l_api_updating := pay_etm_shd.api_updating
429: (p_template_id => p_template_id
430: ,p_object_version_number => p_object_version_number
431: );
432: --
430: ,p_object_version_number => p_object_version_number
431: );
432: --
433: if (l_api_updating and
434: nvl(pay_etm_shd.g_old_rec.max_base_name_length, hr_api.g_number) <>
435: nvl(p_max_base_name_length, hr_api.g_number)) or
436: not l_api_updating
437: then
438: --
555: );
556: --
557: -- Check that the base name is unique within its business groups.
558: --
559: if pay_etm_shd.g_allow_base_name_reuse then
560: --
561: -- If reuse allowed then avoid base name clash for any template,
562: -- based upon the same source template, in the business group.
563: --
673: -- |---------------------------< insert_validate >----------------------------|
674: -- ----------------------------------------------------------------------------
675: Procedure insert_validate
676: (p_effective_date in date
677: ,p_rec in pay_etm_shd.g_rec_type
678: ) is
679: --
680: l_proc varchar2(72) := g_package||'insert_validate';
681: --
738: -- |---------------------------< update_validate >----------------------------|
739: -- ----------------------------------------------------------------------------
740: Procedure update_validate
741: (p_effective_date in date
742: ,p_rec in pay_etm_shd.g_rec_type
743: ) is
744: --
745: l_proc varchar2(72) := g_package||'update_validate';
746: --
776: --
777: -- ----------------------------------------------------------------------------
778: -- |---------------------------< delete_validate >----------------------------|
779: -- ----------------------------------------------------------------------------
780: Procedure delete_validate(p_rec in pay_etm_shd.g_rec_type) is
781: --
782: l_proc varchar2(72) := g_package||'delete_validate';
783: --
784: Begin