503:
504: EXCEPTION
505: WHEN OTHERS THEN
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS',
511: 'Invoice_id = '|| to_char(p_invoice_id)
504: EXCEPTION
505: WHEN OTHERS THEN
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS',
511: 'Invoice_id = '|| to_char(p_invoice_id)
512: || 'System User = '|| to_char(p_system_user)
505: WHEN OTHERS THEN
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS',
511: 'Invoice_id = '|| to_char(p_invoice_id)
512: || 'System User = '|| to_char(p_system_user)
513: || 'Receipt Acc Days = '|| to_char(p_receipt_acc_days));
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS',
511: 'Invoice_id = '|| to_char(p_invoice_id)
512: || 'System User = '|| to_char(p_system_user)
513: || 'Receipt Acc Days = '|| to_char(p_receipt_acc_days));
514: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS',
511: 'Invoice_id = '|| to_char(p_invoice_id)
512: || 'System User = '|| to_char(p_system_user)
513: || 'Receipt Acc Days = '|| to_char(p_receipt_acc_days));
514: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
515: END IF;
516: APP_EXCEPTION.RAISE_EXCEPTION;
517: END Due_Date_Sweeper;
518:
608:
609: EXCEPTION
610: WHEN NO_DATA_FOUND THEN
611: l_debug_info := 'Start date should not be null';
612: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
613: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
614: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
615: FND_MESSAGE.SET_TOKEN('PARAMETERS',
616: 'Invoice_id = '|| to_char(p_invoice_id));
609: EXCEPTION
610: WHEN NO_DATA_FOUND THEN
611: l_debug_info := 'Start date should not be null';
612: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
613: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
614: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
615: FND_MESSAGE.SET_TOKEN('PARAMETERS',
616: 'Invoice_id = '|| to_char(p_invoice_id));
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
610: WHEN NO_DATA_FOUND THEN
611: l_debug_info := 'Start date should not be null';
612: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
613: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
614: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
615: FND_MESSAGE.SET_TOKEN('PARAMETERS',
616: 'Invoice_id = '|| to_char(p_invoice_id));
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
618: APP_EXCEPTION.RAISE_EXCEPTION;
611: l_debug_info := 'Start date should not be null';
612: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
613: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
614: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
615: FND_MESSAGE.SET_TOKEN('PARAMETERS',
616: 'Invoice_id = '|| to_char(p_invoice_id));
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
618: APP_EXCEPTION.RAISE_EXCEPTION;
619: WHEN OTHERS THEN
613: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
614: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
615: FND_MESSAGE.SET_TOKEN('PARAMETERS',
616: 'Invoice_id = '|| to_char(p_invoice_id));
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
618: APP_EXCEPTION.RAISE_EXCEPTION;
619: WHEN OTHERS THEN
620: IF (SQLCODE <> -20001) THEN
621: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
618: APP_EXCEPTION.RAISE_EXCEPTION;
619: WHEN OTHERS THEN
620: IF (SQLCODE <> -20001) THEN
621: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
622: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
624: FND_MESSAGE.SET_TOKEN('PARAMETERS',
625: 'Invoice_id = '|| to_char(p_invoice_id));
618: APP_EXCEPTION.RAISE_EXCEPTION;
619: WHEN OTHERS THEN
620: IF (SQLCODE <> -20001) THEN
621: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
622: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
624: FND_MESSAGE.SET_TOKEN('PARAMETERS',
625: 'Invoice_id = '|| to_char(p_invoice_id));
626: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
619: WHEN OTHERS THEN
620: IF (SQLCODE <> -20001) THEN
621: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
622: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
624: FND_MESSAGE.SET_TOKEN('PARAMETERS',
625: 'Invoice_id = '|| to_char(p_invoice_id));
626: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
627: END IF;
620: IF (SQLCODE <> -20001) THEN
621: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
622: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
624: FND_MESSAGE.SET_TOKEN('PARAMETERS',
625: 'Invoice_id = '|| to_char(p_invoice_id));
626: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
627: END IF;
628: APP_EXCEPTION.RAISE_EXCEPTION;
622: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
624: FND_MESSAGE.SET_TOKEN('PARAMETERS',
625: 'Invoice_id = '|| to_char(p_invoice_id));
626: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
627: END IF;
628: APP_EXCEPTION.RAISE_EXCEPTION;
629: END Get_Matched_Start_Date;
630:
660:
661: EXCEPTION
662: WHEN OTHERS THEN
663: IF (SQLCODE <> -20001) THEN
664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
667: FND_MESSAGE.SET_TOKEN('PARAMETERS',
668: 'Invoice_id = '|| to_char(p_invoice_id));
661: EXCEPTION
662: WHEN OTHERS THEN
663: IF (SQLCODE <> -20001) THEN
664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
667: FND_MESSAGE.SET_TOKEN('PARAMETERS',
668: 'Invoice_id = '|| to_char(p_invoice_id));
669: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
662: WHEN OTHERS THEN
663: IF (SQLCODE <> -20001) THEN
664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
667: FND_MESSAGE.SET_TOKEN('PARAMETERS',
668: 'Invoice_id = '|| to_char(p_invoice_id));
669: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
670: END IF;
663: IF (SQLCODE <> -20001) THEN
664: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
667: FND_MESSAGE.SET_TOKEN('PARAMETERS',
668: 'Invoice_id = '|| to_char(p_invoice_id));
669: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
670: END IF;
671: APP_EXCEPTION.RAISE_EXCEPTION;
665: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
666: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
667: FND_MESSAGE.SET_TOKEN('PARAMETERS',
668: 'Invoice_id = '|| to_char(p_invoice_id));
669: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
670: END IF;
671: APP_EXCEPTION.RAISE_EXCEPTION;
672: END Get_Inv_Start_Date;
673:
716: WHEN NO_DATA_FOUND THEN
717: NULL;
718: WHEN OTHERS THEN
719: IF (SQLCODE <> -20001) THEN
720: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
721: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
722: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
723: FND_MESSAGE.SET_TOKEN('PARAMETERS',
724: 'Invoice_id = '|| to_char(p_invoice_id));
717: NULL;
718: WHEN OTHERS THEN
719: IF (SQLCODE <> -20001) THEN
720: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
721: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
722: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
723: FND_MESSAGE.SET_TOKEN('PARAMETERS',
724: 'Invoice_id = '|| to_char(p_invoice_id));
725: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
718: WHEN OTHERS THEN
719: IF (SQLCODE <> -20001) THEN
720: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
721: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
722: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
723: FND_MESSAGE.SET_TOKEN('PARAMETERS',
724: 'Invoice_id = '|| to_char(p_invoice_id));
725: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
726: END IF;
719: IF (SQLCODE <> -20001) THEN
720: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
721: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
722: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
723: FND_MESSAGE.SET_TOKEN('PARAMETERS',
724: 'Invoice_id = '|| to_char(p_invoice_id));
725: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
726: END IF;
727: APP_EXCEPTION.RAISE_EXCEPTION;
721: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
722: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
723: FND_MESSAGE.SET_TOKEN('PARAMETERS',
724: 'Invoice_id = '|| to_char(p_invoice_id));
725: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
726: END IF;
727: APP_EXCEPTION.RAISE_EXCEPTION;
728: END Get_PO_Terms_Info;
729:
969:
970: EXCEPTION
971: WHEN OTHERS THEN
972: IF (SQLCODE <> -20001) THEN
973: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
974: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
975: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
976: FND_MESSAGE.SET_TOKEN('PARAMETERS',
977: 'Invoice_id = '|| to_char(p_invoice_id)
970: EXCEPTION
971: WHEN OTHERS THEN
972: IF (SQLCODE <> -20001) THEN
973: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
974: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
975: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
976: FND_MESSAGE.SET_TOKEN('PARAMETERS',
977: 'Invoice_id = '|| to_char(p_invoice_id)
978: || 'Curr PS Pay Num = '|| to_char(p_curr_ps_pay_num)
971: WHEN OTHERS THEN
972: IF (SQLCODE <> -20001) THEN
973: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
974: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
975: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
976: FND_MESSAGE.SET_TOKEN('PARAMETERS',
977: 'Invoice_id = '|| to_char(p_invoice_id)
978: || 'Curr PS Pay Num = '|| to_char(p_curr_ps_pay_num)
979: || 'Term Id = '|| to_char(p_term_id)
972: IF (SQLCODE <> -20001) THEN
973: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
974: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
975: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
976: FND_MESSAGE.SET_TOKEN('PARAMETERS',
977: 'Invoice_id = '|| to_char(p_invoice_id)
978: || 'Curr PS Pay Num = '|| to_char(p_curr_ps_pay_num)
979: || 'Term Id = '|| to_char(p_term_id)
980: || 'Term Name = '|| p_term_name
978: || 'Curr PS Pay Num = '|| to_char(p_curr_ps_pay_num)
979: || 'Term Id = '|| to_char(p_term_id)
980: || 'Term Name = '|| p_term_name
981: || 'System User = '|| to_char(p_system_user));
982: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
983: END IF;
984: APP_EXCEPTION.RAISE_EXCEPTION;
985: END Calc_Pay_Sched;
986:
1022:
1023: EXCEPTION
1024: WHEN OTHERS THEN
1025: IF (SQLCODE <> -20001) THEN
1026: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1027: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1028: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1030: 'Invoice_id = '|| to_char(p_invoice_id));
1023: EXCEPTION
1024: WHEN OTHERS THEN
1025: IF (SQLCODE <> -20001) THEN
1026: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1027: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1028: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1030: 'Invoice_id = '|| to_char(p_invoice_id));
1031: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1024: WHEN OTHERS THEN
1025: IF (SQLCODE <> -20001) THEN
1026: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1027: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1028: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1030: 'Invoice_id = '|| to_char(p_invoice_id));
1031: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1032: END IF;
1025: IF (SQLCODE <> -20001) THEN
1026: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1027: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1028: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1030: 'Invoice_id = '|| to_char(p_invoice_id));
1031: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1032: END IF;
1033: APP_EXCEPTION.RAISE_EXCEPTION;
1027: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1028: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1029: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1030: 'Invoice_id = '|| to_char(p_invoice_id));
1031: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1032: END IF;
1033: APP_EXCEPTION.RAISE_EXCEPTION;
1034:
1035: END Get_Invoice_Info;
1103:
1104: EXCEPTION
1105: WHEN OTHERS THEN
1106: IF (SQLCODE <> -20001) THEN
1107: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1108: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1109: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1110: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1111: 'Invoice_id = '|| to_char(p_invoice_id));
1104: EXCEPTION
1105: WHEN OTHERS THEN
1106: IF (SQLCODE <> -20001) THEN
1107: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1108: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1109: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1110: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1111: 'Invoice_id = '|| to_char(p_invoice_id));
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1105: WHEN OTHERS THEN
1106: IF (SQLCODE <> -20001) THEN
1107: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1108: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1109: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1110: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1111: 'Invoice_id = '|| to_char(p_invoice_id));
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1113: END IF;
1106: IF (SQLCODE <> -20001) THEN
1107: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1108: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1109: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1110: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1111: 'Invoice_id = '|| to_char(p_invoice_id));
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1113: END IF;
1114: APP_EXCEPTION.RAISE_EXCEPTION;
1108: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1109: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1110: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1111: 'Invoice_id = '|| to_char(p_invoice_id));
1112: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1113: END IF;
1114: APP_EXCEPTION.RAISE_EXCEPTION;
1115: END Get_PaySched_Info;
1116:
1199:
1200: EXCEPTION
1201: WHEN OTHERS THEN
1202: IF (SQLCODE <> -20001) THEN
1203: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1204: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1205: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1206: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1207: 'Invoice_id = '|| to_char(p_invoice_id)
1200: EXCEPTION
1201: WHEN OTHERS THEN
1202: IF (SQLCODE <> -20001) THEN
1203: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1204: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1205: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1206: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1207: 'Invoice_id = '|| to_char(p_invoice_id)
1208: || 'Payment Num = '|| to_char(p_payment_num)
1201: WHEN OTHERS THEN
1202: IF (SQLCODE <> -20001) THEN
1203: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1204: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1205: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1206: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1207: 'Invoice_id = '|| to_char(p_invoice_id)
1208: || 'Payment Num = '|| to_char(p_payment_num)
1209: || 'PPA Due Date = '|| to_char(p_ppa_due_date)
1202: IF (SQLCODE <> -20001) THEN
1203: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1204: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1205: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1206: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1207: 'Invoice_id = '|| to_char(p_invoice_id)
1208: || 'Payment Num = '|| to_char(p_payment_num)
1209: || 'PPA Due Date = '|| to_char(p_ppa_due_date)
1210: || '1st Disc Amt Avail = '|| to_char(p_1st_disc_amt_available)
1253:
1254: EXCEPTION
1255: WHEN OTHERS THEN
1256: IF (SQLCODE <> -20001) THEN
1257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1260: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1261: 'Invoice_id = '|| to_char(p_invoice_id)
1254: EXCEPTION
1255: WHEN OTHERS THEN
1256: IF (SQLCODE <> -20001) THEN
1257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1260: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1261: 'Invoice_id = '|| to_char(p_invoice_id)
1262: || 'Payment Num = '|| to_char(p_payment_num));
1255: WHEN OTHERS THEN
1256: IF (SQLCODE <> -20001) THEN
1257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1260: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1261: 'Invoice_id = '|| to_char(p_invoice_id)
1262: || 'Payment Num = '|| to_char(p_payment_num));
1263: END IF;
1256: IF (SQLCODE <> -20001) THEN
1257: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1258: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1259: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1260: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1261: 'Invoice_id = '|| to_char(p_invoice_id)
1262: || 'Payment Num = '|| to_char(p_payment_num));
1263: END IF;
1264: APP_EXCEPTION.RAISE_EXCEPTION;
1533: WHEN NO_DATA_FOUND THEN
1534: RETURN;
1535: WHEN OTHERS THEN
1536: IF (SQLCODE <> -20001) THEN
1537: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1538: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1540: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1541: ' Invoice_id = '|| to_char(p_invoice_id)
1534: RETURN;
1535: WHEN OTHERS THEN
1536: IF (SQLCODE <> -20001) THEN
1537: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1538: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1540: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1541: ' Invoice_id = '|| to_char(p_invoice_id)
1542: || ' Term Id = '|| to_char(p_term_id)
1535: WHEN OTHERS THEN
1536: IF (SQLCODE <> -20001) THEN
1537: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1538: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1540: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1541: ' Invoice_id = '|| to_char(p_invoice_id)
1542: || ' Term Id = '|| to_char(p_term_id)
1543: || ' PS Pay Num = '|| to_char(p_ps_pay_num)
1536: IF (SQLCODE <> -20001) THEN
1537: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1538: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1540: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1541: ' Invoice_id = '|| to_char(p_invoice_id)
1542: || ' Term Id = '|| to_char(p_term_id)
1543: || ' PS Pay Num = '|| to_char(p_ps_pay_num)
1544: || ' p_start_date = '|| to_char(p_start_date)
1547: || ' p_payment_cross_rate = '|| to_char(p_payment_cross_rate)
1548: || ' l_min_unit = '|| to_char(l_min_unit)
1549: || ' l_precision = '|| to_char(l_precision));
1550:
1551: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1552: END IF;
1553: APP_EXCEPTION.RAISE_EXCEPTION;
1554: END Calc_PS_Dates_Percents_Amts;
1555:
1670:
1671: EXCEPTION
1672: WHEN OTHERS THEN
1673: IF (SQLCODE <> -20001) THEN
1674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1678: 'Invoice_id = '|| to_char(p_invoice_id)
1671: EXCEPTION
1672: WHEN OTHERS THEN
1673: IF (SQLCODE <> -20001) THEN
1674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1678: 'Invoice_id = '|| to_char(p_invoice_id)
1679: || 'Pay Sched Pay Num = '|| to_char(p_ps_pay_num)
1672: WHEN OTHERS THEN
1673: IF (SQLCODE <> -20001) THEN
1674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1678: 'Invoice_id = '|| to_char(p_invoice_id)
1679: || 'Pay Sched Pay Num = '|| to_char(p_ps_pay_num)
1680: || 'System User = '|| to_char(p_system_user)
1673: IF (SQLCODE <> -20001) THEN
1674: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1675: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1676: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1677: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1678: 'Invoice_id = '|| to_char(p_invoice_id)
1679: || 'Pay Sched Pay Num = '|| to_char(p_ps_pay_num)
1680: || 'System User = '|| to_char(p_system_user)
1681: || 'Pay Cross Rate = '|| to_char(p_payment_cross_rate)
1694: || 'Creation Date = '|| to_char(p_creation_date)
1695: || 'Created By = '|| to_char(p_created_by)
1696: || 'Last Update Login = '|| to_char(p_last_update_login)
1697: || 'Payment Method = '|| p_payment_method_code);
1698: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1699: END IF;
1700: APP_EXCEPTION.RAISE_EXCEPTION;
1701: END Insert_Pay_Sched;
1702:
1852:
1853: EXCEPTION
1854: WHEN OTHERS THEN
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1860: 'Invoice_id = '|| to_char(p_invoice_id)
1853: EXCEPTION
1854: WHEN OTHERS THEN
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1860: 'Invoice_id = '|| to_char(p_invoice_id)
1861: || 'Cur PS Pay Num = '|| to_char(p_curr_ps_pay_num)
1854: WHEN OTHERS THEN
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1860: 'Invoice_id = '|| to_char(p_invoice_id)
1861: || 'Cur PS Pay Num = '|| to_char(p_curr_ps_pay_num)
1862: || 'System User = '|| to_char(p_system_user)
1855: IF (SQLCODE <> -20001) THEN
1856: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1857: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1858: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1859: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1860: 'Invoice_id = '|| to_char(p_invoice_id)
1861: || 'Cur PS Pay Num = '|| to_char(p_curr_ps_pay_num)
1862: || 'System User = '|| to_char(p_system_user)
1863: || 'Payment Cross Rate = '|| to_char(p_payment_cross_rate)
1871: || 'Created By = '|| to_char(p_created_by)
1872: || 'Last Update Login = '|| to_char(p_last_update_login)
1873: || 'Payment Method Lookup = '|| p_payment_method_code
1874: ||' p_external_bank_account_id = '||to_char(p_external_bank_account_id));
1875: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1876: END IF;
1877: APP_EXCEPTION.RAISE_EXCEPTION;
1878: END Create_Pay_Scheds;
1879:
1942:
1943: EXCEPTION
1944: WHEN OTHERS THEN
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1950: 'Invoice_id = '|| to_char(p_invoice_id));
1943: EXCEPTION
1944: WHEN OTHERS THEN
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1950: 'Invoice_id = '|| to_char(p_invoice_id));
1951: END IF;
1944: WHEN OTHERS THEN
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1950: 'Invoice_id = '|| to_char(p_invoice_id));
1951: END IF;
1952: APP_EXCEPTION.RAISE_EXCEPTION;
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1950: 'Invoice_id = '|| to_char(p_invoice_id));
1951: END IF;
1952: APP_EXCEPTION.RAISE_EXCEPTION;
1953: