1503: END check_stream_type_code;
1504:
1505: ------------------------------------------------------------------------------
1506: -- FUNCTION validate_currency_code
1507: -- It validates currency Code against database, FND_CURRENCIES
1508: -- Returns OKL_API.G_RET_STS_ERROR for unknown currency code
1509: -- OKL_API.G_RET_STS_SUCCESS for valid currency code
1510: -- Calls:
1511: -- None
1516: FUNCTION validate_currency_code (p_contract_number IN OKL_HEADER_INTERFACE.CONTRACT_NUMBER_OLD%TYPE,
1517: p_currency_code IN VARCHAR2)
1518: RETURN VARCHAR2 IS
1519:
1520: CURSOR currency_csr(p_curr_code FND_CURRENCIES.CURRENCY_CODE%TYPE) IS
1521: SELECT currency_code
1522: FROM FND_CURRENCIES
1523: WHERE currency_code = p_curr_code
1524: AND NVL(end_date_active,SYSDATE) >= SYSDATE;
1518: RETURN VARCHAR2 IS
1519:
1520: CURSOR currency_csr(p_curr_code FND_CURRENCIES.CURRENCY_CODE%TYPE) IS
1521: SELECT currency_code
1522: FROM FND_CURRENCIES
1523: WHERE currency_code = p_curr_code
1524: AND NVL(end_date_active,SYSDATE) >= SYSDATE;
1525:
1526: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1523: WHERE currency_code = p_curr_code
1524: AND NVL(end_date_active,SYSDATE) >= SYSDATE;
1525:
1526: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1527: l_currency_code FND_CURRENCIES.CURRENCY_CODE%TYPE;
1528:
1529: BEGIN
1530:
1531: IF (p_currency_code IS NULL) THEN