666:
667: -----------------------------------------------------------------------------
668: -- PROCEDURE GET_Fnd_Currency
669: --
670: -- Purpose Validate a currency against Fnd_Currencies.
671: --
672: -- Parameters
673: -- p_currency : The currency name to be validated.
674: --
689:
690: BEGIN
691: --try the currency code.
692: SELECT currency_code INTO l_currency
693: FROM fnd_currencies
694: WHERE currency_code = p_currency
695: AND enabled_flag = 'Y'
696: AND currency_flag = 'Y'
697: AND nvl(start_date_active, sysdate) <= sysdate
702: WHEN NO_DATA_FOUND THEN
703: BEGIN
704: --try the currency name.
705: SELECT currency_code INTO l_currency
706: FROM fnd_currencies_vl
707: WHERE name = p_currency
708: AND enabled_flag = 'Y'
709: AND currency_flag = 'Y'
710: AND nvl(start_date_active, sysdate) <= sysdate