226:
227: EXCEPTION
228: WHEN OTHERS THEN
229: IF (SQLCODE <> -20001) THEN
230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
234: ' P_invoice_id_list = ' || P_invoice_id_list);
227: EXCEPTION
228: WHEN OTHERS THEN
229: IF (SQLCODE <> -20001) THEN
230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
234: ' P_invoice_id_list = ' || P_invoice_id_list);
235: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
228: WHEN OTHERS THEN
229: IF (SQLCODE <> -20001) THEN
230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
234: ' P_invoice_id_list = ' || P_invoice_id_list);
235: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
236: END IF;
229: IF (SQLCODE <> -20001) THEN
230: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
234: ' P_invoice_id_list = ' || P_invoice_id_list);
235: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
236: END IF;
237: APP_EXCEPTION.RAISE_EXCEPTION;
231: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
232: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
233: FND_MESSAGE.SET_TOKEN('PARAMETERS',
234: ' P_invoice_id_list = ' || P_invoice_id_list);
235: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
236: END IF;
237: APP_EXCEPTION.RAISE_EXCEPTION;
238: END AP_Lock_Invoices;
239:
343:
344: EXCEPTION
345: WHEN OTHERS THEN
346: IF (SQLCODE <> -20001) THEN
347: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
348: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
349: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
350: FND_MESSAGE.SET_TOKEN('PARAMETERS',
351: ' P_invoice_id_list = ' ||P_invoice_id_list ||
344: EXCEPTION
345: WHEN OTHERS THEN
346: IF (SQLCODE <> -20001) THEN
347: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
348: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
349: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
350: FND_MESSAGE.SET_TOKEN('PARAMETERS',
351: ' P_invoice_id_list = ' ||P_invoice_id_list ||
352: ' P_payment_num_list = ' ||P_payment_num_list ||
345: WHEN OTHERS THEN
346: IF (SQLCODE <> -20001) THEN
347: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
348: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
349: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
350: FND_MESSAGE.SET_TOKEN('PARAMETERS',
351: ' P_invoice_id_list = ' ||P_invoice_id_list ||
352: ' P_payment_num_list = ' ||P_payment_num_list ||
353: ' P_check_date = ' ||P_check_date ||
346: IF (SQLCODE <> -20001) THEN
347: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
348: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
349: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
350: FND_MESSAGE.SET_TOKEN('PARAMETERS',
351: ' P_invoice_id_list = ' ||P_invoice_id_list ||
352: ' P_payment_num_list = ' ||P_payment_num_list ||
353: ' P_check_date = ' ||P_check_date ||
354: ' P_currency_code = ' ||P_currency_code);
351: ' P_invoice_id_list = ' ||P_invoice_id_list ||
352: ' P_payment_num_list = ' ||P_payment_num_list ||
353: ' P_check_date = ' ||P_check_date ||
354: ' P_currency_code = ' ||P_currency_code);
355: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
356: END IF;
357: APP_EXCEPTION.RAISE_EXCEPTION;
358: END AP_Discount_Available;
359:
469:
470: EXCEPTION
471: WHEN OTHERS THEN
472: IF (SQLCODE <> -20001) THEN
473: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
474: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
475: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
476: FND_MESSAGE.SET_TOKEN('PARAMETERS',
477: ' P_invoice_id = ' || P_invoice_id ||
470: EXCEPTION
471: WHEN OTHERS THEN
472: IF (SQLCODE <> -20001) THEN
473: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
474: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
475: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
476: FND_MESSAGE.SET_TOKEN('PARAMETERS',
477: ' P_invoice_id = ' || P_invoice_id ||
478: ' P_payment_num = ' || P_payment_num ||
471: WHEN OTHERS THEN
472: IF (SQLCODE <> -20001) THEN
473: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
474: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
475: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
476: FND_MESSAGE.SET_TOKEN('PARAMETERS',
477: ' P_invoice_id = ' || P_invoice_id ||
478: ' P_payment_num = ' || P_payment_num ||
479: ' P_payment_type_flag = ' || P_payment_type_flag ||
472: IF (SQLCODE <> -20001) THEN
473: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
474: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
475: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
476: FND_MESSAGE.SET_TOKEN('PARAMETERS',
477: ' P_invoice_id = ' || P_invoice_id ||
478: ' P_payment_num = ' || P_payment_num ||
479: ' P_payment_type_flag = ' || P_payment_type_flag ||
480: ' P_check_date = ' || P_check_date ||
481: ' P_currency_code = ' || P_currency_code ||
482: ' P_take_discount = ' || P_take_discount ||
483: ' P_sys_auto_calc_int_flag = '|| P_sys_auto_calc_int_flag ||
484: ' P_auto_calc_int_flag = ' || P_auto_calc_int_flag);
485: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
486: END IF;
487: APP_EXCEPTION.RAISE_EXCEPTION;
488: END Get_Single_Payment_Amount;
489:
590:
591: EXCEPTION
592: WHEN OTHERS THEN
593: IF (SQLCODE <> -20001) THEN
594: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS',
598: ' P_invoice_id_list = ' || P_invoice_id_list ||
591: EXCEPTION
592: WHEN OTHERS THEN
593: IF (SQLCODE <> -20001) THEN
594: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS',
598: ' P_invoice_id_list = ' || P_invoice_id_list ||
599: ' P_payment_num_list = ' || P_payment_num_list ||
592: WHEN OTHERS THEN
593: IF (SQLCODE <> -20001) THEN
594: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS',
598: ' P_invoice_id_list = ' || P_invoice_id_list ||
599: ' P_payment_num_list = ' || P_payment_num_list ||
600: ' P_payment_type_flag = ' || P_payment_type_flag ||
593: IF (SQLCODE <> -20001) THEN
594: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
595: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
596: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
597: FND_MESSAGE.SET_TOKEN('PARAMETERS',
598: ' P_invoice_id_list = ' || P_invoice_id_list ||
599: ' P_payment_num_list = ' || P_payment_num_list ||
600: ' P_payment_type_flag = ' || P_payment_type_flag ||
601: ' P_check_date = ' || P_check_date ||
602: ' P_currency_code = ' || P_currency_code ||
603: ' P_take_discount = ' || P_take_discount ||
604: ' P_sys_auto_calc_int_flag = '|| P_sys_auto_calc_int_flag ||
605: ' P_auto_calc_int_flag = ' || P_auto_calc_int_flag);
606: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
607: END IF;
608: APP_EXCEPTION.RAISE_EXCEPTION;
609: END AP_Get_Check_Amount;
610:
965: l_amount := l_amount + l_withholding_amount;
966: l_amount_remaining := l_amount_remaining +
967: l_withholding_amount;
968: else
969: FND_MESSAGE.SET_NAME('SQLAP', 'AP_AWT_PROB_PLSQL');
970: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
971: FND_MESSAGE.SET_TOKEN('PROBLEM', l_awt_success );
972: APP_EXCEPTION.RAISE_EXCEPTION;
973: end if;
966: l_amount_remaining := l_amount_remaining +
967: l_withholding_amount;
968: else
969: FND_MESSAGE.SET_NAME('SQLAP', 'AP_AWT_PROB_PLSQL');
970: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
971: FND_MESSAGE.SET_TOKEN('PROBLEM', l_awt_success );
972: APP_EXCEPTION.RAISE_EXCEPTION;
973: end if;
974:
967: l_withholding_amount;
968: else
969: FND_MESSAGE.SET_NAME('SQLAP', 'AP_AWT_PROB_PLSQL');
970: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
971: FND_MESSAGE.SET_TOKEN('PROBLEM', l_awt_success );
972: APP_EXCEPTION.RAISE_EXCEPTION;
973: end if;
974:
975: end if;
1213:
1214: WHEN OTHERS THEN
1215:
1216: IF (SQLCODE <> -20001) THEN
1217: FND_MESSAGE.SET_NAME('FND','UNIQUE-ALWAYS USED');
1218: END IF;
1219:
1220: APP_EXCEPTION.RAISE_EXCEPTION;
1221: END;
1326:
1327: EXCEPTION
1328: WHEN OTHERS THEN
1329: IF (SQLCODE <> -20001) THEN
1330: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1331: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1332: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1333: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1334: ' P_invoice_id = ' || P_invoice_id ||
1327: EXCEPTION
1328: WHEN OTHERS THEN
1329: IF (SQLCODE <> -20001) THEN
1330: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1331: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1332: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1333: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1334: ' P_invoice_id = ' || P_invoice_id ||
1335: ' P_payment_num = ' || P_payment_num ||
1328: WHEN OTHERS THEN
1329: IF (SQLCODE <> -20001) THEN
1330: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1331: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1332: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1333: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1334: ' P_invoice_id = ' || P_invoice_id ||
1335: ' P_payment_num = ' || P_payment_num ||
1336: ' P_check_id = ' || P_check_id ||
1329: IF (SQLCODE <> -20001) THEN
1330: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1331: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1332: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1333: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1334: ' P_invoice_id = ' || P_invoice_id ||
1335: ' P_payment_num = ' || P_payment_num ||
1336: ' P_check_id = ' || P_check_id ||
1337: ' P_payment_type_flag = ' || P_payment_type_flag ||
1357: ' P_future_pay_ccid = ' || P_future_pay_ccid ||
1358: ' P_last_updated_by = ' || P_last_updated_by ||
1359: ' P_last_update_login = ' || P_last_update_login
1360: );
1361: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
1362: END IF;
1363: APP_EXCEPTION.RAISE_EXCEPTION;
1364: END Create_Single_Payment;
1365:
1521:
1522: EXCEPTION
1523: WHEN OTHERS THEN
1524: IF (SQLCODE <> -20001) THEN
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1528: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1529: ' P_invoice_id_list = ' || P_invoice_id_list ||
1522: EXCEPTION
1523: WHEN OTHERS THEN
1524: IF (SQLCODE <> -20001) THEN
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1528: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1529: ' P_invoice_id_list = ' || P_invoice_id_list ||
1530: ' P_payment_num_list = ' || P_payment_num_list ||
1523: WHEN OTHERS THEN
1524: IF (SQLCODE <> -20001) THEN
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1528: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1529: ' P_invoice_id_list = ' || P_invoice_id_list ||
1530: ' P_payment_num_list = ' || P_payment_num_list ||
1531: ' P_check_id = ' || P_check_id ||
1524: IF (SQLCODE <> -20001) THEN
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1528: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1529: ' P_invoice_id_list = ' || P_invoice_id_list ||
1530: ' P_payment_num_list = ' || P_payment_num_list ||
1531: ' P_check_id = ' || P_check_id ||
1532: ' P_payment_type_flag = ' || P_payment_type_flag ||
1552: ' P_future_pay_ccid = ' || P_future_pay_ccid ||
1553: ' P_last_updated_by = ' || P_last_updated_by ||
1554: ' P_last_update_login = ' || P_last_update_login
1555: );
1556: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
1557: END IF;
1558: APP_EXCEPTION.RAISE_EXCEPTION;
1559: END AP_Create_Payments;
1560: