918: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
919: Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
920: END IF;
921:
922: FND_CURRENCY.GET_INFO(
923: p_base_currency_code ,
924: p_base_precision ,
925: l_ext_precision ,
926: p_base_min_acct_unit);
5122: APP_EXCEPTION.RAISE_EXCEPTION;
5123:
5124: END Cache_Payment_Method;
5125:
5126: FUNCTION Cache_Fnd_Currency (
5127: P_Fnd_Currency_Table OUT NOCOPY AP_IMPORT_INVOICES_PKG.fnd_currency_tab_type,
5128: P_Calling_Sequence IN VARCHAR2)
5129: RETURN BOOLEAN IS
5130:
5123:
5124: END Cache_Payment_Method;
5125:
5126: FUNCTION Cache_Fnd_Currency (
5127: P_Fnd_Currency_Table OUT NOCOPY AP_IMPORT_INVOICES_PKG.fnd_currency_tab_type,
5128: P_Calling_Sequence IN VARCHAR2)
5129: RETURN BOOLEAN IS
5130:
5131: CURSOR currency_code_cur IS
5142:
5143:
5144: BEGIN
5145:
5146: l_curr_calling_sequence := 'Cache_Fnd_Currency <- '||P_calling_sequence;
5147: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
5148: AP_IMPORT_UTILITIES_PKG.Print(
5149: AP_IMPORT_INVOICES_PKG.g_debug_switch,l_curr_calling_sequence);
5150: END IF;
5148: AP_IMPORT_UTILITIES_PKG.Print(
5149: AP_IMPORT_INVOICES_PKG.g_debug_switch,l_curr_calling_sequence);
5150: END IF;
5151:
5152: l_debug_info := 'Caching Currency from Fnd Currency';
5153: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
5154: AP_IMPORT_UTILITIES_PKG.Print(
5155: AP_IMPORT_INVOICES_PKG.g_debug_switch,l_debug_info);
5156: END IF;
5156: END IF;
5157:
5158: OPEN currency_code_cur;
5159: FETCH currency_code_cur
5160: BULK COLLECT INTO P_Fnd_Currency_Table;
5161: CLOSE currency_code_cur;
5162:
5163: RETURN(TRUE);
5164:
5171: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5172: END IF;
5173: APP_EXCEPTION.RAISE_EXCEPTION;
5174:
5175: END Cache_Fnd_Currency;
5176:
5177: END AP_IMPORT_UTILITIES_PKG;