[Home] [Help]
185: -- {End Of Comments}
186: -- ----------------------------------------------------------------------------
187: Procedure chk_non_updateable_args
188: (p_effective_date in date
189: ,p_rec in pay_esu_shd.g_rec_type
190: ) IS
191: --
192: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
193: l_error exception;
197: --
198: -- Only proceed with the validation if a row exists for the current
199: -- record in the HR Schema.
200: --
201: IF NOT pay_esu_shd.api_updating
202: (p_element_span_usage_id => p_rec.element_span_usage_id
203: ,p_object_version_number => p_rec.object_version_number
204: ) THEN
205: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
210: --
211: hr_utility.set_location(l_proc, 10);
212: --
213: if nvl(p_rec.business_group_id, hr_api.g_number) <>
214: nvl(pay_esu_shd.g_old_rec.business_group_id, hr_api.g_number) then
215: l_argument := 'business_group_id';
216: raise l_error;
217: end if;
218: hr_utility.set_location(l_proc, 15);
217: end if;
218: hr_utility.set_location(l_proc, 15);
219: --
220: if nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
221: nvl(pay_esu_shd.g_old_rec.legislation_code, hr_api.g_varchar2) then
222: l_argument := 'legislation_code';
223: raise l_error;
224: end if;
225: hr_utility.set_location(l_proc, 20);
224: end if;
225: hr_utility.set_location(l_proc, 20);
226: --
227: if nvl(p_rec.retro_component_usage_id, hr_api.g_number) <>
228: nvl(pay_esu_shd.g_old_rec.retro_component_usage_id, hr_api.g_number) then
229: l_argument := 'retro_component_usage_id';
230: raise l_error;
231: end if;
232: hr_utility.set_location(l_proc, 25);
231: end if;
232: hr_utility.set_location(l_proc, 25);
233: --
234: if nvl(p_rec.time_span_id, hr_api.g_number) <>
235: nvl(pay_esu_shd.g_old_rec.time_span_id, hr_api.g_number) then
236: l_argument := 'time_span_id';
237: raise l_error;
238: end if;
239: hr_utility.set_location(l_proc, 30);
531: -- Check if the element span usage is being updated and ensure that
532: -- g_old_rec contains the values for this element_span_usage_id.
533: --
534: l_api_updating :=
535: pay_esu_shd.api_updating
536: (p_element_span_usage_id => p_element_span_usage_id
537: ,p_object_version_number => p_object_version_number);
538:
539: hr_utility.set_location(l_proc, 20);
543: -- another not null value.
544: -- b) During insert, the value is not null.
545: --
546: if ((l_api_updating and
547: nvl(pay_esu_shd.g_old_rec.adjustment_type, hr_api.g_varchar2)
548: <> nvl(p_adjustment_type, hr_api.g_varchar2))
549: or
550: NOT l_api_updating) then
551: --
661: -- Check if the retro component usage is being updated and ensure that
662: -- g_old_rec contains the values for this retro_component_usage_id.
663: --
664: l_api_updating :=
665: pay_esu_shd.api_updating
666: (p_element_span_usage_id => p_element_span_usage_id
667: ,p_object_version_number => p_object_version_number);
668:
669: hr_utility.set_location(l_proc, 20);
673: -- another not null value.
674: -- b) During insert.
675: --
676: if ((l_api_updating and
677: pay_esu_shd.g_old_rec.retro_element_type_id <> p_retro_element_type_id)
678: or
679: NOT l_api_updating) then
680: --
681: hr_utility.set_location(l_proc, 30);
705: -- |---------------------------< insert_validate >----------------------------|
706: -- ----------------------------------------------------------------------------
707: Procedure insert_validate
708: (p_effective_date in date
709: ,p_rec in pay_esu_shd.g_rec_type
710: ) is
711: --
712: l_proc varchar2(72) := g_package||'insert_validate';
713: --
727: -- Validate Important Attributes
728: --
729: hr_api.validate_bus_grp_id
730: (p_business_group_id => p_rec.business_group_id
731: ,p_associated_column1 => pay_esu_shd.g_tab_nam
732: || '.BUSINESS_GROUP_ID');
733: --
734: -- after validating the set of important attributes,
735: -- if Multiple Message Detection is enabled and at least
776: -- |---------------------------< update_validate >----------------------------|
777: -- ----------------------------------------------------------------------------
778: Procedure update_validate
779: (p_effective_date in date
780: ,p_rec in pay_esu_shd.g_rec_type
781: ) is
782: --
783: l_proc varchar2(72) := g_package||'update_validate';
784: --
798: -- Validate Important Attributes
799: --
800: hr_api.validate_bus_grp_id
801: (p_business_group_id => p_rec.business_group_id
802: ,p_associated_column1 => pay_esu_shd.g_tab_nam
803: || '.BUSINESS_GROUP_ID');
804: --
805: -- After validating the set of important attributes,
806: -- if Multiple Message Detection is enabled and at least
840: -- ----------------------------------------------------------------------------
841: -- |---------------------------< delete_validate >----------------------------|
842: -- ----------------------------------------------------------------------------
843: Procedure delete_validate
844: (p_rec in pay_esu_shd.g_rec_type
845: ) is
846: --
847: l_proc varchar2(72) := g_package||'delete_validate';
848: --
850: hr_utility.set_location('Entering:'||l_proc, 5);
851: --
852: --
853: chk_startup_action(false
854: ,pay_esu_shd.g_old_rec.business_group_id
855: ,pay_esu_shd.g_old_rec.legislation_code
856: );
857: IF hr_startup_data_api_support.g_startup_mode
858: NOT IN ('GENERIC','STARTUP') THEN
851: --
852: --
853: chk_startup_action(false
854: ,pay_esu_shd.g_old_rec.business_group_id
855: ,pay_esu_shd.g_old_rec.legislation_code
856: );
857: IF hr_startup_data_api_support.g_startup_mode
858: NOT IN ('GENERIC','STARTUP') THEN
859: --