5420: ----------------------------------------
5421: -- validate maximum_credit_currency_code
5422: ----------------------------------------
5423:
5424: -- maximum_credit_currency_code is foreign key of fnd_currencies.currency_code
5425: IF p_organization_rec.maximum_credit_currency_code IS NOT NULL
5426: AND
5427: p_organization_rec.maximum_credit_currency_code <> fnd_api.g_miss_char
5428: THEN
5428: THEN
5429: BEGIN
5430: SELECT 'Y'
5431: INTO l_dummy
5432: FROM FND_CURRENCIES
5433: WHERE CURRENCY_CODE = p_organization_rec.maximum_credit_currency_code
5434: AND CURRENCY_FLAG = 'Y'
5435: AND ENABLED_FLAG in ('Y', 'N');
5436: EXCEPTION
5437: WHEN NO_DATA_FOUND THEN
5438: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
5439: fnd_message.set_token('FK', 'maximum_credit_currency_code');
5440: fnd_message.set_token('COLUMN', 'currency_code');
5441: fnd_message.set_token('TABLE', 'fnd_currencies');
5442: fnd_msg_pub.add;
5443: x_return_status := fnd_api.g_ret_sts_error;
5444: END;
5445:
5444: END;
5445:
5446: IF g_debug THEN
5447: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
5448: 'maximum_credit_currency_code is foreign key of fnd_currencies.currency_code. ' ||
5449: 'x_return_status = ' || x_return_status, l_debug_prefix);
5450: END IF;
5451:
5452: END IF;
18409: ----------------------------------------------
18410: -- validation for maximum_credit_currency_code
18411: ----------------------------------------------
18412:
18413: -- maximum_credit_currency_code is foreign key to FND_CURRENCIES.CURRENCY_CODE
18414: IF p_create_update_flag = 'C'
18415: AND
18416: p_credit_rating_rec.maximum_credit_currency_code IS NOT NULL
18417: AND
18422: --has to be against active records
18423: --Bug 3877782. Added the condition to consider start_date_active and end_date_active.
18424: SELECT 'Y'
18425: INTO l_dummy
18426: FROM fnd_currencies f
18427: WHERE f.currency_code = p_credit_rating_rec.maximum_credit_currency_code
18428: AND currency_flag = 'Y'
18429: AND enabled_flag = 'Y'
18430: AND trunc(sysdate) between trunc(nvl(start_date_active,sysdate))
18433: WHEN NO_DATA_FOUND THEN
18434: fnd_message.set_name('AR', 'HZ_API_INVALID_FK');
18435: fnd_message.set_token('FK', 'currency_code');
18436: fnd_message.set_token('COLUMN', 'maximum_credit_currency_code');
18437: fnd_message.set_token('TABLE', 'fnd_currencies');
18438: fnd_msg_pub.add;
18439: x_return_status := fnd_api.g_ret_sts_error;
18440: END;
18441:
18440: END;
18441:
18442: /*IF g_debug THEN
18443: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
18444: 'maximum_credit_currency_code has foreign key fnd_currencies.currency_code. ' ||
18445: 'x_return_status = ' || x_return_status, l_debug_prefix);
18446: END IF;
18447: */
18448: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
18446: END IF;
18447: */
18448: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
18449: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
18450: p_message=>'maximum_credit_currency_code has foreign key fnd_currencies.currency_code. ' ||
18451: 'x_return_status = ' || x_return_status,
18452: p_msg_level=>fnd_log.level_statement);
18453: END IF;
18454: