240: RETURN l_return_var;
241: EXCEPTION
242: WHEN OTHERS THEN
243: IF (SQLCODE <> -20001) THEN
244: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
245: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
246: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
247: FND_MESSAGE.SET_TOKEN('PARAMETERS',
248: ' P_Invoice_Id = '||P_Invoice_Id||
241: EXCEPTION
242: WHEN OTHERS THEN
243: IF (SQLCODE <> -20001) THEN
244: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
245: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
246: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
247: FND_MESSAGE.SET_TOKEN('PARAMETERS',
248: ' P_Invoice_Id = '||P_Invoice_Id||
249: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
242: WHEN OTHERS THEN
243: IF (SQLCODE <> -20001) THEN
244: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
245: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
246: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
247: FND_MESSAGE.SET_TOKEN('PARAMETERS',
248: ' P_Invoice_Id = '||P_Invoice_Id||
249: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
250: ' P_Error_Code = '||P_Error_Code||
243: IF (SQLCODE <> -20001) THEN
244: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
245: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
246: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
247: FND_MESSAGE.SET_TOKEN('PARAMETERS',
248: ' P_Invoice_Id = '||P_Invoice_Id||
249: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
250: ' P_Error_Code = '||P_Error_Code||
251: ' P_Calling_Sequence = '||P_Calling_Sequence);
248: ' P_Invoice_Id = '||P_Invoice_Id||
249: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
250: ' P_Error_Code = '||P_Error_Code||
251: ' P_Calling_Sequence = '||P_Calling_Sequence);
252: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
253: END IF;
254:
255: APP_EXCEPTION.RAISE_EXCEPTION;
256:
1173:
1174: EXCEPTION
1175: WHEN OTHERS THEN
1176: IF (SQLCODE <> -20001) THEN
1177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1180: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1181: ' P_Invoice_Id = '||P_Invoice_Id||
1174: EXCEPTION
1175: WHEN OTHERS THEN
1176: IF (SQLCODE <> -20001) THEN
1177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1180: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1181: ' P_Invoice_Id = '||P_Invoice_Id||
1182: ' P_Error_Code = '||P_Error_Code||
1175: WHEN OTHERS THEN
1176: IF (SQLCODE <> -20001) THEN
1177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1180: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1181: ' P_Invoice_Id = '||P_Invoice_Id||
1182: ' P_Error_Code = '||P_Error_Code||
1183: ' P_Calling_Sequence = '||P_Calling_Sequence);
1176: IF (SQLCODE <> -20001) THEN
1177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1179: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1180: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1181: ' P_Invoice_Id = '||P_Invoice_Id||
1182: ' P_Error_Code = '||P_Error_Code||
1183: ' P_Calling_Sequence = '||P_Calling_Sequence);
1184: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1180: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1181: ' P_Invoice_Id = '||P_Invoice_Id||
1182: ' P_Error_Code = '||P_Error_Code||
1183: ' P_Calling_Sequence = '||P_Calling_Sequence);
1184: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1185: END IF;
1186:
1187: APP_EXCEPTION.RAISE_EXCEPTION;
1188:
1320:
1321: EXCEPTION
1322: WHEN OTHERS THEN
1323: IF (SQLCODE <> -20001) THEN
1324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1328: ' P_Invoice_Id = '||P_Invoice_Id||
1321: EXCEPTION
1322: WHEN OTHERS THEN
1323: IF (SQLCODE <> -20001) THEN
1324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1328: ' P_Invoice_Id = '||P_Invoice_Id||
1329: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
1322: WHEN OTHERS THEN
1323: IF (SQLCODE <> -20001) THEN
1324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1328: ' P_Invoice_Id = '||P_Invoice_Id||
1329: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
1330: ' P_Credited_Invoice_Id = '||P_Credited_Invoice_Id||
1323: IF (SQLCODE <> -20001) THEN
1324: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1325: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1326: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1327: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1328: ' P_Invoice_Id = '||P_Invoice_Id||
1329: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
1330: ' P_Credited_Invoice_Id = '||P_Credited_Invoice_Id||
1331: ' P_Error_Code = '||P_Error_Code||
1329: ' P_Vendor_Id_For_Invoice = '||P_Vendor_Id_For_Invoice||
1330: ' P_Credited_Invoice_Id = '||P_Credited_Invoice_Id||
1331: ' P_Error_Code = '||P_Error_Code||
1332: ' P_Calling_Sequence = '||P_Calling_Sequence);
1333: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1334:
1335: END IF;
1336:
1337: IF ( Invoice_Header%ISOPEN ) THEN