206: (p_effective_date => p_effective_date
207: ,p_lookup_type => 'RANGE_MATCH'
208: ,p_lookup_code => p_range_or_match
209: ) then
210: pay_put_shd.constraint_error('PAY_UTAB_RANGE_OR_MATCH_CHK');
211: end if;
212: exception
213: when app_exception.application_exception then
214: if hr_multi_message.exception_add
236: (p_effective_date => p_effective_date
237: ,p_lookup_type => 'DATA_TYPE'
238: ,p_lookup_code => p_user_key_units
239: ) then
240: pay_put_shd.constraint_error('PAY_UTAB_USER_KEY_UNITS_CHK');
241: elsif p_range_or_match = 'R' and p_user_key_units <> 'N' then
242: l_associated_column2 := 'PAY_USER_TABLES.RANGE_OR_MATCH';
243: fnd_message.set_name('PAY','PAY_33173_UTAB_BAD_RANGE_UNITS');
244: fnd_message.raise_error;
310: l_proc varchar2(100) := g_package || 'chk_user_table_name';
311: l_name varchar2(200);
312: l_exists varchar2(1);
313: begin
314: if not pay_put_shd.api_updating
315: (p_user_table_id => p_user_table_id
316: ,p_object_version_number => p_object_version_number
317: ) or
318: nvl(p_user_table_name, hr_api.g_varchar2) <>
315: (p_user_table_id => p_user_table_id
316: ,p_object_version_number => p_object_version_number
317: ) or
318: nvl(p_user_table_name, hr_api.g_varchar2) <>
319: pay_put_shd.g_old_rec.user_table_name then
320: --
321: -- The name is mandatory.
322: --
323: hr_api.mandatory_arg_error
405: --
406: -- {End Of Comments}
407: -- ----------------------------------------------------------------------------
408: Procedure chk_non_updateable_args
409: (p_rec in pay_put_shd.g_rec_type
410: ) IS
411: --
412: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
413: --
415: --
416: -- Only proceed with the validation if a row exists for the current
417: -- record in the HR Schema.
418: --
419: IF NOT pay_put_shd.api_updating
420: (p_user_table_id => p_rec.user_table_id
421: ,p_object_version_number => p_rec.object_version_number
422: ) THEN
423: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
426: fnd_message.raise_error;
427: END IF;
428: --
429: if nvl(p_rec.business_group_id, hr_api.g_number) <>
430: nvl(pay_put_shd.g_old_rec.business_group_id, hr_api.g_number) then
431: hr_api.argument_changed_error
432: (p_api_name => l_proc
433: ,p_argument => 'BUSINESS_GROUP_ID'
434: ,p_base_table => pay_put_shd.g_tab_nam
430: nvl(pay_put_shd.g_old_rec.business_group_id, hr_api.g_number) then
431: hr_api.argument_changed_error
432: (p_api_name => l_proc
433: ,p_argument => 'BUSINESS_GROUP_ID'
434: ,p_base_table => pay_put_shd.g_tab_nam
435: );
436: end if;
437: --
438: if nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
435: );
436: end if;
437: --
438: if nvl(p_rec.legislation_code, hr_api.g_varchar2) <>
439: nvl(pay_put_shd.g_old_rec.legislation_code, hr_api.g_varchar2) then
440: hr_api.argument_changed_error
441: (p_api_name => l_proc
442: ,p_argument => 'LEGISLATION_CODE'
443: ,p_base_table => pay_put_shd.g_tab_nam
439: nvl(pay_put_shd.g_old_rec.legislation_code, hr_api.g_varchar2) then
440: hr_api.argument_changed_error
441: (p_api_name => l_proc
442: ,p_argument => 'LEGISLATION_CODE'
443: ,p_base_table => pay_put_shd.g_tab_nam
444: );
445: end if;
446: --
447: if nvl(p_rec.user_key_units, hr_api.g_varchar2) <>
444: );
445: end if;
446: --
447: if nvl(p_rec.user_key_units, hr_api.g_varchar2) <>
448: pay_put_shd.g_old_rec.user_key_units then
449: hr_api.argument_changed_error
450: (p_api_name => l_proc
451: ,p_argument => 'USER_KEY_UNITS'
452: ,p_base_table => pay_put_shd.g_tab_nam
448: pay_put_shd.g_old_rec.user_key_units then
449: hr_api.argument_changed_error
450: (p_api_name => l_proc
451: ,p_argument => 'USER_KEY_UNITS'
452: ,p_base_table => pay_put_shd.g_tab_nam
453: );
454: end if;
455: --
456: if nvl(p_rec.range_or_match, hr_api.g_varchar2) <>
453: );
454: end if;
455: --
456: if nvl(p_rec.range_or_match, hr_api.g_varchar2) <>
457: pay_put_shd.g_old_rec.range_or_match then
458: hr_api.argument_changed_error
459: (p_api_name => l_proc
460: ,p_argument => 'RANGE_OR_MATCH'
461: ,p_base_table => pay_put_shd.g_tab_nam
457: pay_put_shd.g_old_rec.range_or_match then
458: hr_api.argument_changed_error
459: (p_api_name => l_proc
460: ,p_argument => 'RANGE_OR_MATCH'
461: ,p_base_table => pay_put_shd.g_tab_nam
462: );
463: end if;
464: End chk_non_updateable_args;
465: --
569: -- |---------------------------< insert_validate >----------------------------|
570: -- ----------------------------------------------------------------------------
571: Procedure insert_validate
572: (p_effective_date in date
573: ,p_rec in pay_put_shd.g_rec_type
574: ) is
575: --
576: l_proc varchar2(72) := g_package||'insert_validate';
577: --
591: -- Validate Important Attributes
592: --
593: hr_api.validate_bus_grp_id
594: (p_business_group_id => p_rec.business_group_id
595: ,p_associated_column1 => pay_put_shd.g_tab_nam
596: || '.BUSINESS_GROUP_ID');
597: --
598: -- after validating the set of important attributes,
599: -- if Multiple Message Detection is enabled and at least
645: -- |---------------------------< update_validate >----------------------------|
646: -- ----------------------------------------------------------------------------
647: Procedure update_validate
648: (p_effective_date in date
649: ,p_rec in pay_put_shd.g_rec_type
650: ) is
651: --
652: l_proc varchar2(72) := g_package||'update_validate';
653: --
667: -- Validate Important Attributes
668: --
669: hr_api.validate_bus_grp_id
670: (p_business_group_id => p_rec.business_group_id
671: ,p_associated_column1 => pay_put_shd.g_tab_nam
672: || '.BUSINESS_GROUP_ID');
673: --
674: -- After validating the set of important attributes,
675: -- if Multiple Message Detection is enabled and at least
701: -- ----------------------------------------------------------------------------
702: -- |---------------------------< delete_validate >----------------------------|
703: -- ----------------------------------------------------------------------------
704: Procedure delete_validate
705: (p_rec in pay_put_shd.g_rec_type
706: ) is
707: --
708: l_proc varchar2(72) := g_package||'delete_validate';
709: --
711: hr_utility.set_location('Entering:'||l_proc, 5);
712: --
713: --
714: chk_startup_action(false
715: ,pay_put_shd.g_old_rec.business_group_id
716: ,pay_put_shd.g_old_rec.legislation_code
717: );
718: IF hr_startup_data_api_support.g_startup_mode
719: NOT IN ('GENERIC','STARTUP') THEN
712: --
713: --
714: chk_startup_action(false
715: ,pay_put_shd.g_old_rec.business_group_id
716: ,pay_put_shd.g_old_rec.legislation_code
717: );
718: IF hr_startup_data_api_support.g_startup_mode
719: NOT IN ('GENERIC','STARTUP') THEN
720: --