331:
332: EXCEPTION
333: WHEN OTHERS THEN
334: IF (SQLCODE <> -20001) THEN
335: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
336: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
337: END IF;
338: APP_EXCEPTION.RAISE_EXCEPTION;
339:
332: EXCEPTION
333: WHEN OTHERS THEN
334: IF (SQLCODE <> -20001) THEN
335: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
336: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
337: END IF;
338: APP_EXCEPTION.RAISE_EXCEPTION;
339:
340: END Print;
1956: -- Show error message
1957:
1958: -- CHANGES FOR BUG - 3657665 ** STARTS **
1959: -- Need to encode the message and then print the value for the same returned by PA.
1960: fnd_message.set_encoded(l_errmsg);
1961: l_errmsg := fnd_message.get;
1962: -- CHANGES FOR BUG - 3657665 ** ENDS **
1963:
1964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1957:
1958: -- CHANGES FOR BUG - 3657665 ** STARTS **
1959: -- Need to encode the message and then print the value for the same returned by PA.
1960: fnd_message.set_encoded(l_errmsg);
1961: l_errmsg := fnd_message.get;
1962: -- CHANGES FOR BUG - 3657665 ** ENDS **
1963:
1964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1965: Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4837:
4838: EXCEPTION
4839: WHEN OTHERS then
4840: IF (SQLCODE <> -20001) THEN
4841: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4842: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4843: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4844: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4845: ' Application Id = ' || to_char(P_Application_Id) );
4838: EXCEPTION
4839: WHEN OTHERS then
4840: IF (SQLCODE <> -20001) THEN
4841: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4842: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4843: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4844: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4845: ' Application Id = ' || to_char(P_Application_Id) );
4846: END IF;
4839: WHEN OTHERS then
4840: IF (SQLCODE <> -20001) THEN
4841: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4842: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4843: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4844: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4845: ' Application Id = ' || to_char(P_Application_Id) );
4846: END IF;
4847: APP_EXCEPTION.RAISE_EXCEPTION;
4840: IF (SQLCODE <> -20001) THEN
4841: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4842: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4843: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4844: FND_MESSAGE.SET_TOKEN('PARAMETERS',
4845: ' Application Id = ' || to_char(P_Application_Id) );
4846: END IF;
4847: APP_EXCEPTION.RAISE_EXCEPTION;
4848:
4904:
4905: EXCEPTION
4906: WHEN OTHERS then
4907: IF (SQLCODE <> -20001) THEN
4908: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4909: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4910: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4911: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4912: END IF;
4905: EXCEPTION
4906: WHEN OTHERS then
4907: IF (SQLCODE <> -20001) THEN
4908: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4909: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4910: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4911: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4912: END IF;
4913: APP_EXCEPTION.RAISE_EXCEPTION;
4906: WHEN OTHERS then
4907: IF (SQLCODE <> -20001) THEN
4908: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4909: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4910: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4911: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4912: END IF;
4913: APP_EXCEPTION.RAISE_EXCEPTION;
4914:
4907: IF (SQLCODE <> -20001) THEN
4908: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
4909: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
4910: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
4911: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4912: END IF;
4913: APP_EXCEPTION.RAISE_EXCEPTION;
4914:
4915: END Cache_Org_Id_Name;
5012:
5013: EXCEPTION
5014: WHEN OTHERS THEN
5015: IF (SQLCODE <> -20001) THEN
5016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5019: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5020: 'Payment Terms = '|| p_terms_id
5013: EXCEPTION
5014: WHEN OTHERS THEN
5015: IF (SQLCODE <> -20001) THEN
5016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5019: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5020: 'Payment Terms = '|| p_terms_id
5021: ||' Terms date = '||to_char(p_terms_date));
5014: WHEN OTHERS THEN
5015: IF (SQLCODE <> -20001) THEN
5016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5019: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5020: 'Payment Terms = '|| p_terms_id
5021: ||' Terms date = '||to_char(p_terms_date));
5022: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5015: IF (SQLCODE <> -20001) THEN
5016: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5017: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5019: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5020: 'Payment Terms = '|| p_terms_id
5021: ||' Terms date = '||to_char(p_terms_date));
5022: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5023: END IF;
5018: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
5019: FND_MESSAGE.SET_TOKEN('PARAMETERS',
5020: 'Payment Terms = '|| p_terms_id
5021: ||' Terms date = '||to_char(p_terms_date));
5022: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5023: END IF;
5024: APP_EXCEPTION.RAISE_EXCEPTION;
5025: End Check_For_Calendar_Term;
5026:
5066:
5067: EXCEPTION
5068: WHEN OTHERS then
5069: IF (SQLCODE <> -20001) THEN
5070: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5071: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5072: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5073: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5074: END IF;
5067: EXCEPTION
5068: WHEN OTHERS then
5069: IF (SQLCODE <> -20001) THEN
5070: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5071: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5072: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5073: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5074: END IF;
5075: APP_EXCEPTION.RAISE_EXCEPTION;
5068: WHEN OTHERS then
5069: IF (SQLCODE <> -20001) THEN
5070: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5071: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5072: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5073: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5074: END IF;
5075: APP_EXCEPTION.RAISE_EXCEPTION;
5076:
5069: IF (SQLCODE <> -20001) THEN
5070: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5071: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5072: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5073: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5074: END IF;
5075: APP_EXCEPTION.RAISE_EXCEPTION;
5076:
5077: END Cache_Pay_Group;
5113:
5114: EXCEPTION
5115: WHEN OTHERS then
5116: IF (SQLCODE <> -20001) THEN
5117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5121: END IF;
5114: EXCEPTION
5115: WHEN OTHERS then
5116: IF (SQLCODE <> -20001) THEN
5117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5121: END IF;
5122: APP_EXCEPTION.RAISE_EXCEPTION;
5115: WHEN OTHERS then
5116: IF (SQLCODE <> -20001) THEN
5117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5121: END IF;
5122: APP_EXCEPTION.RAISE_EXCEPTION;
5123:
5116: IF (SQLCODE <> -20001) THEN
5117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5118: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5119: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5121: END IF;
5122: APP_EXCEPTION.RAISE_EXCEPTION;
5123:
5124: END Cache_Payment_Method;
5164:
5165: EXCEPTION
5166: WHEN OTHERS then
5167: IF (SQLCODE <> -20001) THEN
5168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5171: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5172: END IF;
5165: EXCEPTION
5166: WHEN OTHERS then
5167: IF (SQLCODE <> -20001) THEN
5168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5171: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5172: END IF;
5173: APP_EXCEPTION.RAISE_EXCEPTION;
5166: WHEN OTHERS then
5167: IF (SQLCODE <> -20001) THEN
5168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5171: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5172: END IF;
5173: APP_EXCEPTION.RAISE_EXCEPTION;
5174:
5167: IF (SQLCODE <> -20001) THEN
5168: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5169: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
5170: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
5171: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
5172: END IF;
5173: APP_EXCEPTION.RAISE_EXCEPTION;
5174:
5175: END Cache_Fnd_Currency;