3394: )
3395: IS
3396: CURSOR C_Currency_Exists (c_currency_code VARCHAR2) IS
3397: SELECT 'X'
3398: FROM fnd_currencies
3399: WHERE currency_code = c_currency_code
3400: -- ffang 091200 for bug 1403865
3401: and nvl(start_date_active, sysdate) <= sysdate
3402: and nvl(end_date_active, sysdate) >= sysdate
3421:
3422: IF (p_CURRENCY_CODE is NOT NULL) and
3423: (p_CURRENCY_CODE <> FND_API.G_MISS_CHAR)
3424: THEN
3425: -- CURRENCY_CODE should exist in fnd_currencies_vl
3426: OPEN C_Currency_Exists (p_CURRENCY_CODE);
3427: FETCH C_Currency_Exists into l_val;
3428:
3429: IF C_Currency_Exists%NOTFOUND THEN