[Home] [Help]
5895: END IF;
5896: -----------------------------------------------------------------
5897: l_debug_info := 'Call validate_and_default_tax_attr service start ' ||to_char(sysdate,'YY-MON-DD HH24:MI:SS');
5898: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5899: AP_IMPORT_UTILITIES_PKG.Print(
5900: AP_IMPORT_INVOICES_PKG.g_debug_switch, l_debug_info);
5901: END IF;
5902:
5903: zx_api_pub.validate_and_default_tax_attr(
5911:
5912:
5913: l_debug_info := 'Call validate_and_default_tax_attr service ends ' ||to_char(sysdate,'YY-MON-DD HH24:MI:SS');
5914: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5915: AP_IMPORT_UTILITIES_PKG.Print(
5916: AP_IMPORT_INVOICES_PKG.g_debug_switch, l_debug_info);
5917: END IF;
5918:
5919: IF (l_return_status_service = 'S') THEN
5946: ELSE
5947:
5948: l_debug_info := 'Return_Default_Import was fine' ;
5949: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5950: AP_IMPORT_UTILITIES_PKG.Print(
5951: AP_IMPORT_INVOICES_PKG.g_debug_switch, l_debug_info);
5952: END IF;
5953: --returns the record data to original collection
5954: --so that it can be passed to calling proc
6015: --We want to print the error message even if debug switch is off
6016: --so user need not run the report again.
6017: RETURN FALSE;
6018:
6019: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6020: l_debug_info);
6021: --END IF;
6022: IF (SQLCODE < 0) then
6023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6020: l_debug_info);
6021: --END IF;
6022: IF (SQLCODE < 0) then
6023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6024: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6025: SQLERRM);
6026: END IF;
6027: END IF;
6028: p_invoice_status := 'N';