274:
275: EXCEPTION
276: WHEN OTHERS THEN
277: IF (SQLCODE <> -20001) THEN
278: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
279: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
280: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
281: FND_MESSAGE.SET_TOKEN('PARAMETERS',
282: ' P_invoice_id_list = ' || P_invoice_id_list);
275: EXCEPTION
276: WHEN OTHERS THEN
277: IF (SQLCODE <> -20001) THEN
278: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
279: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
280: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
281: FND_MESSAGE.SET_TOKEN('PARAMETERS',
282: ' P_invoice_id_list = ' || P_invoice_id_list);
283: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
276: WHEN OTHERS THEN
277: IF (SQLCODE <> -20001) THEN
278: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
279: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
280: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
281: FND_MESSAGE.SET_TOKEN('PARAMETERS',
282: ' P_invoice_id_list = ' || P_invoice_id_list);
283: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
284: END IF;
277: IF (SQLCODE <> -20001) THEN
278: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
279: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
280: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
281: FND_MESSAGE.SET_TOKEN('PARAMETERS',
282: ' P_invoice_id_list = ' || P_invoice_id_list);
283: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
284: END IF;
285: APP_EXCEPTION.RAISE_EXCEPTION;
279: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
280: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
281: FND_MESSAGE.SET_TOKEN('PARAMETERS',
282: ' P_invoice_id_list = ' || P_invoice_id_list);
283: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
284: END IF;
285: APP_EXCEPTION.RAISE_EXCEPTION;
286: END AP_Lock_Invoices;
287:
391:
392: EXCEPTION
393: WHEN OTHERS THEN
394: IF (SQLCODE <> -20001) THEN
395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
398: FND_MESSAGE.SET_TOKEN('PARAMETERS',
399: ' P_invoice_id_list = ' ||P_invoice_id_list ||
392: EXCEPTION
393: WHEN OTHERS THEN
394: IF (SQLCODE <> -20001) THEN
395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
398: FND_MESSAGE.SET_TOKEN('PARAMETERS',
399: ' P_invoice_id_list = ' ||P_invoice_id_list ||
400: ' P_payment_num_list = ' ||P_payment_num_list ||
393: WHEN OTHERS THEN
394: IF (SQLCODE <> -20001) THEN
395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
398: FND_MESSAGE.SET_TOKEN('PARAMETERS',
399: ' P_invoice_id_list = ' ||P_invoice_id_list ||
400: ' P_payment_num_list = ' ||P_payment_num_list ||
401: ' P_check_date = ' ||P_check_date ||
394: IF (SQLCODE <> -20001) THEN
395: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
396: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
397: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
398: FND_MESSAGE.SET_TOKEN('PARAMETERS',
399: ' P_invoice_id_list = ' ||P_invoice_id_list ||
400: ' P_payment_num_list = ' ||P_payment_num_list ||
401: ' P_check_date = ' ||P_check_date ||
402: ' P_currency_code = ' ||P_currency_code);
399: ' P_invoice_id_list = ' ||P_invoice_id_list ||
400: ' P_payment_num_list = ' ||P_payment_num_list ||
401: ' P_check_date = ' ||P_check_date ||
402: ' P_currency_code = ' ||P_currency_code);
403: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
404: END IF;
405: APP_EXCEPTION.RAISE_EXCEPTION;
406: END AP_Discount_Available;
407:
517:
518: EXCEPTION
519: WHEN OTHERS THEN
520: IF (SQLCODE <> -20001) THEN
521: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
522: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
523: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
524: FND_MESSAGE.SET_TOKEN('PARAMETERS',
525: ' P_invoice_id = ' || P_invoice_id ||
518: EXCEPTION
519: WHEN OTHERS THEN
520: IF (SQLCODE <> -20001) THEN
521: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
522: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
523: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
524: FND_MESSAGE.SET_TOKEN('PARAMETERS',
525: ' P_invoice_id = ' || P_invoice_id ||
526: ' P_payment_num = ' || P_payment_num ||
519: WHEN OTHERS THEN
520: IF (SQLCODE <> -20001) THEN
521: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
522: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
523: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
524: FND_MESSAGE.SET_TOKEN('PARAMETERS',
525: ' P_invoice_id = ' || P_invoice_id ||
526: ' P_payment_num = ' || P_payment_num ||
527: ' P_payment_type_flag = ' || P_payment_type_flag ||
520: IF (SQLCODE <> -20001) THEN
521: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
522: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
523: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
524: FND_MESSAGE.SET_TOKEN('PARAMETERS',
525: ' P_invoice_id = ' || P_invoice_id ||
526: ' P_payment_num = ' || P_payment_num ||
527: ' P_payment_type_flag = ' || P_payment_type_flag ||
528: ' P_check_date = ' || P_check_date ||
529: ' P_currency_code = ' || P_currency_code ||
530: ' P_take_discount = ' || P_take_discount ||
531: ' P_sys_auto_calc_int_flag = '|| P_sys_auto_calc_int_flag ||
532: ' P_auto_calc_int_flag = ' || P_auto_calc_int_flag);
533: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
534: END IF;
535: APP_EXCEPTION.RAISE_EXCEPTION;
536: END Get_Single_Payment_Amount;
537:
638:
639: EXCEPTION
640: WHEN OTHERS THEN
641: IF (SQLCODE <> -20001) THEN
642: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
643: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
644: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
645: FND_MESSAGE.SET_TOKEN('PARAMETERS',
646: ' P_invoice_id_list = ' || P_invoice_id_list ||
639: EXCEPTION
640: WHEN OTHERS THEN
641: IF (SQLCODE <> -20001) THEN
642: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
643: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
644: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
645: FND_MESSAGE.SET_TOKEN('PARAMETERS',
646: ' P_invoice_id_list = ' || P_invoice_id_list ||
647: ' P_payment_num_list = ' || P_payment_num_list ||
640: WHEN OTHERS THEN
641: IF (SQLCODE <> -20001) THEN
642: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
643: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
644: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
645: FND_MESSAGE.SET_TOKEN('PARAMETERS',
646: ' P_invoice_id_list = ' || P_invoice_id_list ||
647: ' P_payment_num_list = ' || P_payment_num_list ||
648: ' P_payment_type_flag = ' || P_payment_type_flag ||
641: IF (SQLCODE <> -20001) THEN
642: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
643: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
644: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
645: FND_MESSAGE.SET_TOKEN('PARAMETERS',
646: ' P_invoice_id_list = ' || P_invoice_id_list ||
647: ' P_payment_num_list = ' || P_payment_num_list ||
648: ' P_payment_type_flag = ' || P_payment_type_flag ||
649: ' P_check_date = ' || P_check_date ||
650: ' P_currency_code = ' || P_currency_code ||
651: ' P_take_discount = ' || P_take_discount ||
652: ' P_sys_auto_calc_int_flag = '|| P_sys_auto_calc_int_flag ||
653: ' P_auto_calc_int_flag = ' || P_auto_calc_int_flag);
654: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
655: END IF;
656: APP_EXCEPTION.RAISE_EXCEPTION;
657: END AP_Get_Check_Amount;
658:
1071: l_amount := l_amount + l_withholding_amount;
1072: l_amount_remaining := l_amount_remaining +
1073: l_withholding_amount;
1074: else
1075: FND_MESSAGE.SET_NAME('SQLAP', 'AP_AWT_PROB_PLSQL');
1076: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
1077: FND_MESSAGE.SET_TOKEN('PROBLEM', l_awt_success );
1078: APP_EXCEPTION.RAISE_EXCEPTION;
1079: end if;
1072: l_amount_remaining := l_amount_remaining +
1073: l_withholding_amount;
1074: else
1075: FND_MESSAGE.SET_NAME('SQLAP', 'AP_AWT_PROB_PLSQL');
1076: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
1077: FND_MESSAGE.SET_TOKEN('PROBLEM', l_awt_success );
1078: APP_EXCEPTION.RAISE_EXCEPTION;
1079: end if;
1080:
1073: l_withholding_amount;
1074: else
1075: FND_MESSAGE.SET_NAME('SQLAP', 'AP_AWT_PROB_PLSQL');
1076: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
1077: FND_MESSAGE.SET_TOKEN('PROBLEM', l_awt_success );
1078: APP_EXCEPTION.RAISE_EXCEPTION;
1079: end if;
1080:
1081: end if;
1146: ,P_checkrun_id => null);
1147:
1148: END;
1149:
1150: FND_MESSAGE.SET_NAME('SQLAP', 'AP_OVERPAID_INVOICE');
1151: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
1152: APP_EXCEPTION.RAISE_EXCEPTION;
1153:
1154: END IF;
1147:
1148: END;
1149:
1150: FND_MESSAGE.SET_NAME('SQLAP', 'AP_OVERPAID_INVOICE');
1151: FND_MESSAGE.SET_TOKEN('INVOICE', to_char(P_invoice_id));
1152: APP_EXCEPTION.RAISE_EXCEPTION;
1153:
1154: END IF;
1155:
1392:
1393: WHEN OTHERS THEN
1394:
1395: IF (SQLCODE <> -20001) THEN
1396: FND_MESSAGE.SET_NAME('FND','UNIQUE-ALWAYS USED');
1397: END IF;
1398:
1399: APP_EXCEPTION.RAISE_EXCEPTION;
1400: END;
1505:
1506: EXCEPTION
1507: WHEN OTHERS THEN
1508: IF (SQLCODE <> -20001) THEN
1509: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1510: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1511: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1512: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1513: ' P_invoice_id = ' || P_invoice_id ||
1506: EXCEPTION
1507: WHEN OTHERS THEN
1508: IF (SQLCODE <> -20001) THEN
1509: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1510: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1511: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1512: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1513: ' P_invoice_id = ' || P_invoice_id ||
1514: ' P_payment_num = ' || P_payment_num ||
1507: WHEN OTHERS THEN
1508: IF (SQLCODE <> -20001) THEN
1509: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1510: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1511: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1512: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1513: ' P_invoice_id = ' || P_invoice_id ||
1514: ' P_payment_num = ' || P_payment_num ||
1515: ' P_check_id = ' || P_check_id ||
1508: IF (SQLCODE <> -20001) THEN
1509: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1510: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1511: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1512: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1513: ' P_invoice_id = ' || P_invoice_id ||
1514: ' P_payment_num = ' || P_payment_num ||
1515: ' P_check_id = ' || P_check_id ||
1516: ' P_payment_type_flag = ' || P_payment_type_flag ||
1536: ' P_future_pay_ccid = ' || P_future_pay_ccid ||
1537: ' P_last_updated_by = ' || P_last_updated_by ||
1538: ' P_last_update_login = ' || P_last_update_login
1539: );
1540: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
1541: END IF;
1542: APP_EXCEPTION.RAISE_EXCEPTION;
1543: END Create_Single_Payment;
1544:
1700:
1701: EXCEPTION
1702: WHEN OTHERS THEN
1703: IF (SQLCODE <> -20001) THEN
1704: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1705: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1706: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1707: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1708: ' P_invoice_id_list = ' || P_invoice_id_list ||
1701: EXCEPTION
1702: WHEN OTHERS THEN
1703: IF (SQLCODE <> -20001) THEN
1704: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1705: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1706: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1707: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1708: ' P_invoice_id_list = ' || P_invoice_id_list ||
1709: ' P_payment_num_list = ' || P_payment_num_list ||
1702: WHEN OTHERS THEN
1703: IF (SQLCODE <> -20001) THEN
1704: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1705: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1706: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1707: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1708: ' P_invoice_id_list = ' || P_invoice_id_list ||
1709: ' P_payment_num_list = ' || P_payment_num_list ||
1710: ' P_check_id = ' || P_check_id ||
1703: IF (SQLCODE <> -20001) THEN
1704: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1705: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1706: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1707: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1708: ' P_invoice_id_list = ' || P_invoice_id_list ||
1709: ' P_payment_num_list = ' || P_payment_num_list ||
1710: ' P_check_id = ' || P_check_id ||
1711: ' P_payment_type_flag = ' || P_payment_type_flag ||
1731: ' P_future_pay_ccid = ' || P_future_pay_ccid ||
1732: ' P_last_updated_by = ' || P_last_updated_by ||
1733: ' P_last_update_login = ' || P_last_update_login
1734: );
1735: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_log_msg);
1736: END IF;
1737: APP_EXCEPTION.RAISE_EXCEPTION;
1738: END AP_Create_Payments;
1739: