719: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
720: AP_IMPORT_UTILITIES_PKG.Print(
721: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
722: END IF;
723: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
724: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
725: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
726: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
727: AP_IMPORT_UTILITIES_PKG.Print(
720: AP_IMPORT_UTILITIES_PKG.Print(
721: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
722: END IF;
723: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
724: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
725: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
726: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
727: AP_IMPORT_UTILITIES_PKG.Print(
728: AP_IMPORT_INVOICES_PKG.g_debug_switch,
725: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
726: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
727: AP_IMPORT_UTILITIES_PKG.Print(
728: AP_IMPORT_INVOICES_PKG.g_debug_switch,
729: 'Cache_Fnd_Currency <-'||current_calling_sequence);
730: END IF;
731: Raise import_invoice_failure;
732: END IF;
733:
5135: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5136: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5137: END IF;
5138:
5139: FND_CURRENCY.GET_INFO(
5140: l_base_currency_code ,
5141: p_base_precision ,
5142: l_ext_precision ,
5143: p_base_min_acct_unit);