1014: --
1015: -- ----------------------------------------------------------------------------
1016: -- |---------------------------< insert_validate >----------------------------|
1017: -- ----------------------------------------------------------------------------
1018: Procedure insert_validate(p_rec in out nocopy ssp_ern_shd.g_rec_type) is
1019: --
1020: l_proc varchar2(72) := g_package||'insert_validate';
1021: --
1022: Begin
1056: --
1057: -- ----------------------------------------------------------------------------
1058: -- |---------------------------< update_validate >----------------------------|
1059: -- ----------------------------------------------------------------------------
1060: Procedure update_validate(p_rec in out nocopy ssp_ern_shd.g_rec_type) is
1061: --
1062: l_proc varchar2(72) := g_package||'update_validate';
1063: --
1064: Begin
1068: --
1069: -- Following two bits of code used to ensure that the argument values
1070: -- have not been updated.
1071: --
1072: if (ssp_ern_shd.api_updating
1073: (p_earnings_calculations_id => p_rec.earnings_calculations_id,
1074: p_object_version_number => p_rec.object_version_number)
1075: and
1076: p_rec.person_id <> ssp_ern_shd.g_old_rec.person_id)
1072: if (ssp_ern_shd.api_updating
1073: (p_earnings_calculations_id => p_rec.earnings_calculations_id,
1074: p_object_version_number => p_rec.object_version_number)
1075: and
1076: p_rec.person_id <> ssp_ern_shd.g_old_rec.person_id)
1077: then
1078: hr_api.argument_changed_error
1079: (p_api_name => l_proc, p_argument => 'Person_id');
1080: end if;
1078: hr_api.argument_changed_error
1079: (p_api_name => l_proc, p_argument => 'Person_id');
1080: end if;
1081:
1082: if (ssp_ern_shd.api_updating
1083: (p_earnings_calculations_id => p_rec.earnings_calculations_id,
1084: p_object_version_number => p_rec.object_version_number)
1085: and
1086: p_rec.effective_date <> ssp_ern_shd.g_old_rec.effective_date)
1082: if (ssp_ern_shd.api_updating
1083: (p_earnings_calculations_id => p_rec.earnings_calculations_id,
1084: p_object_version_number => p_rec.object_version_number)
1085: and
1086: p_rec.effective_date <> ssp_ern_shd.g_old_rec.effective_date)
1087: then
1088: hr_api.argument_changed_error
1089: (p_api_name => l_proc, p_argument => 'effective_date');
1090: end if;
1093: or p_rec.average_earnings_amount = hr_api.g_number
1094: then
1095: p_rec.user_entered := 'N';
1096: ssp_ern_bus.calculate_average_earnings
1097: (ssp_ern_shd.g_old_rec.person_id,
1098: ssp_ern_shd.g_old_rec.effective_date,
1099: p_rec.average_earnings_amount,
1100: p_rec.user_entered,
1101: p_rec.absence_category --DFoster 1304683
1094: then
1095: p_rec.user_entered := 'N';
1096: ssp_ern_bus.calculate_average_earnings
1097: (ssp_ern_shd.g_old_rec.person_id,
1098: ssp_ern_shd.g_old_rec.effective_date,
1099: p_rec.average_earnings_amount,
1100: p_rec.user_entered,
1101: p_rec.absence_category --DFoster 1304683
1102: );
1107: --
1108: -- ----------------------------------------------------------------------------
1109: -- |---------------------------< delete_validate >----------------------------|
1110: -- ----------------------------------------------------------------------------
1111: Procedure delete_validate(p_rec in ssp_ern_shd.g_rec_type) is
1112: --
1113: l_proc varchar2(72) := g_package||'delete_validate';
1114: --
1115: Begin