657: END IF;
658: END;
659:
660: ---------
661: --------- FND currencies
662: ---------
663: FUNCTION currency_code (p_currency_code IN VARCHAR2)
664: RETURN VARCHAR2
665: IS
665: IS
666: CURSOR c_jtf_currencies
667: IS
668: SELECT 1
669: FROM fnd_currencies
670: WHERE currency_code = p_currency_code;
671:
672: x CHAR;
673: l_result CHAR;