51: distribution_line_number = X_DISTRIBUTION_LINE_NUMBER)
52: and ((X_ROWID is null) or (rowid <> X_ROWID));
53:
54: if (dummy >= 1) then
55: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
56: app_exception.raise_exception;
57: end if;
58:
59: EXCEPTION
58:
59: EXCEPTION
60: WHEN OTHERS THEN
61: if (SQLCODE <> -20001) then
62: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
63: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
64: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
65: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_ROWID
66: ||', Invoice Id = '||X_INVOICE_ID
59: EXCEPTION
60: WHEN OTHERS THEN
61: if (SQLCODE <> -20001) then
62: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
63: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
64: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
65: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_ROWID
66: ||', Invoice Id = '||X_INVOICE_ID
67: ||', Distribution line number = '||
60: WHEN OTHERS THEN
61: if (SQLCODE <> -20001) then
62: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
63: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
64: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
65: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_ROWID
66: ||', Invoice Id = '||X_INVOICE_ID
67: ||', Distribution line number = '||
68: X_DISTRIBUTION_LINE_NUMBER);
61: if (SQLCODE <> -20001) then
62: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
63: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
64: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
65: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_ROWID
66: ||', Invoice Id = '||X_INVOICE_ID
67: ||', Distribution line number = '||
68: X_DISTRIBUTION_LINE_NUMBER);
69: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
65: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_ROWID
66: ||', Invoice Id = '||X_INVOICE_ID
67: ||', Distribution line number = '||
68: X_DISTRIBUTION_LINE_NUMBER);
69: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
70: end if;
71: APP_EXCEPTION.RAISE_EXCEPTION;
72: end CHECK_UNIQUE;
73:
292:
293: EXCEPTION
294: WHEN OTHERS THEN
295: if (SQLCODE <> -20001) then
296: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
297: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
298: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
299: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||X_Invoice_Id
300: ||',Total = '||X_Total
293: EXCEPTION
294: WHEN OTHERS THEN
295: if (SQLCODE <> -20001) then
296: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
297: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
298: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
299: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||X_Invoice_Id
300: ||',Total = '||X_Total
301: ||',Total RTOT DB = '||
294: WHEN OTHERS THEN
295: if (SQLCODE <> -20001) then
296: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
297: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
298: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
299: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||X_Invoice_Id
300: ||',Total = '||X_Total
301: ||',Total RTOT DB = '||
302: X_Total_Rtot_DB);
295: if (SQLCODE <> -20001) then
296: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
297: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
298: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
299: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||X_Invoice_Id
300: ||',Total = '||X_Total
301: ||',Total RTOT DB = '||
302: X_Total_Rtot_DB);
303: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
299: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||X_Invoice_Id
300: ||',Total = '||X_Total
301: ||',Total RTOT DB = '||
302: X_Total_Rtot_DB);
303: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
304: end if;
305: APP_EXCEPTION.RAISE_EXCEPTION;
306: END Select_Summary;
307:
334:
335: EXCEPTION
336: WHEN OTHERS THEN
337: if (SQLCODE <> -20001) then
338: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
342: ||', Packet Id = '||X_Packet_Id);
335: EXCEPTION
336: WHEN OTHERS THEN
337: if (SQLCODE <> -20001) then
338: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
342: ||', Packet Id = '||X_Packet_Id);
343: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
336: WHEN OTHERS THEN
337: if (SQLCODE <> -20001) then
338: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
342: ||', Packet Id = '||X_Packet_Id);
343: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
344: end if;
337: if (SQLCODE <> -20001) then
338: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
339: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
342: ||', Packet Id = '||X_Packet_Id);
343: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
344: end if;
345: APP_EXCEPTION.RAISE_EXCEPTION;
339: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
342: ||', Packet Id = '||X_Packet_Id);
343: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
344: end if;
345: APP_EXCEPTION.RAISE_EXCEPTION;
346:
347: END Set_Inv_Packet_Id;
382: WHEN NO_DATA_FOUND THEN
383: RETURN(FALSE);
384: WHEN OTHERS THEN
385: if (SQLCODE <> -20001) then
386: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
387: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
389: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
390: ||', Packet Id = '||X_Packet_Id);
383: RETURN(FALSE);
384: WHEN OTHERS THEN
385: if (SQLCODE <> -20001) then
386: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
387: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
389: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
390: ||', Packet Id = '||X_Packet_Id);
391: end if;
384: WHEN OTHERS THEN
385: if (SQLCODE <> -20001) then
386: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
387: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
389: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
390: ||', Packet Id = '||X_Packet_Id);
391: end if;
392: APP_EXCEPTION.RAISE_EXCEPTION;
385: if (SQLCODE <> -20001) then
386: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
387: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
388: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
389: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
390: ||', Packet Id = '||X_Packet_Id);
391: end if;
392: APP_EXCEPTION.RAISE_EXCEPTION;
393: END Query_New_Packet_Id;
431: WHEN NO_DATA_FOUND THEN
432: RETURN(FALSE);
433: WHEN OTHERS THEN
434: if (SQLCODE <> -20001) then
435: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
436: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
437: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
438: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
439: ||', Rowid = '||X_Rowid);
432: RETURN(FALSE);
433: WHEN OTHERS THEN
434: if (SQLCODE <> -20001) then
435: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
436: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
437: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
438: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
439: ||', Rowid = '||X_Rowid);
440: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
433: WHEN OTHERS THEN
434: if (SQLCODE <> -20001) then
435: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
436: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
437: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
438: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
439: ||', Rowid = '||X_Rowid);
440: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
441: end if;
434: if (SQLCODE <> -20001) then
435: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
436: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
437: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
438: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
439: ||', Rowid = '||X_Rowid);
440: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
441: end if;
442: APP_EXCEPTION.RAISE_EXCEPTION;
436: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
437: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
438: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id
439: ||', Rowid = '||X_Rowid);
440: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
441: end if;
442: APP_EXCEPTION.RAISE_EXCEPTION;
443: END All_Encumbered;
444:
529:
530: EXCEPTION
531: WHEN OTHERS THEN
532: if (SQLCODE <> -20001) then
533: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
534: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
535: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
536: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id);
537: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
530: EXCEPTION
531: WHEN OTHERS THEN
532: if (SQLCODE <> -20001) then
533: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
534: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
535: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
536: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id);
537: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
538: end if;
531: WHEN OTHERS THEN
532: if (SQLCODE <> -20001) then
533: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
534: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
535: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
536: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id);
537: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
538: end if;
539: APP_EXCEPTION.RAISE_EXCEPTION;
532: if (SQLCODE <> -20001) then
533: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
534: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
535: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
536: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id);
537: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
538: end if;
539: APP_EXCEPTION.RAISE_EXCEPTION;
540:
533: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
534: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
535: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
536: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||X_Invoice_Id);
537: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
538: end if;
539: APP_EXCEPTION.RAISE_EXCEPTION;
540:
541: END Check_Cash_Basis_Paid;
633:
634: EXCEPTION
635: WHEN OTHERS THEN
636: if (SQLCODE <> -20001) then
637: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
638: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
639: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
640: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||
641: X_PO_Distribution_Id||', Line location Id = '||
634: EXCEPTION
635: WHEN OTHERS THEN
636: if (SQLCODE <> -20001) then
637: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
638: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
639: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
640: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||
641: X_PO_Distribution_Id||', Line location Id = '||
642: X_Line_Location_Id||', Quantity Billed = '||
635: WHEN OTHERS THEN
636: if (SQLCODE <> -20001) then
637: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
638: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
639: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
640: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||
641: X_PO_Distribution_Id||', Line location Id = '||
642: X_Line_Location_Id||', Quantity Billed = '||
643: X_Quantity_Billed||', Amount Billed = '||
636: if (SQLCODE <> -20001) then
637: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
638: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
639: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
640: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||
641: X_PO_Distribution_Id||', Line location Id = '||
642: X_Line_Location_Id||', Quantity Billed = '||
643: X_Quantity_Billed||', Amount Billed = '||
644: X_Amount_Billed);
641: X_PO_Distribution_Id||', Line location Id = '||
642: X_Line_Location_Id||', Quantity Billed = '||
643: X_Quantity_Billed||', Amount Billed = '||
644: X_Amount_Billed);
645: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
646: end if;
647: APP_EXCEPTION.RAISE_EXCEPTION;
648:
649: END Adjust_PO;
683:
684: EXCEPTION
685: WHEN OTHERS THEN
686: if (SQLCODE <> -20001) then
687: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
688: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
689: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
690: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'String = '||X_String
691: ||', Start = '||X_Start
684: EXCEPTION
685: WHEN OTHERS THEN
686: if (SQLCODE <> -20001) then
687: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
688: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
689: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
690: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'String = '||X_String
691: ||', Start = '||X_Start
692: ||', End = '||X_End);
685: WHEN OTHERS THEN
686: if (SQLCODE <> -20001) then
687: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
688: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
689: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
690: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'String = '||X_String
691: ||', Start = '||X_Start
692: ||', End = '||X_End);
693: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
686: if (SQLCODE <> -20001) then
687: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
688: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
689: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
690: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'String = '||X_String
691: ||', Start = '||X_Start
692: ||', End = '||X_End);
693: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
694: END IF;
689: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
690: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'String = '||X_String
691: ||', Start = '||X_Start
692: ||', End = '||X_End);
693: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
694: END IF;
695: APP_EXCEPTION.RAISE_EXCEPTION;
696:
697: END Substrbyte;
1853: X_msg_data => l_msg_data,
1854: X_BILLABLE_FLAG => l_billable_flag);
1855:
1856: IF (l_msg_data is not null) THEN
1857: FND_MESSAGE.SET_NAME(l_msg_application, l_msg_data);
1858: -- For bug3469917. Need to add token values for non-PA applications.
1859:
1860: if (l_msg_application <> 'PA') Then
1861:
1860: if (l_msg_application <> 'PA') Then
1861:
1862:
1863: IF (l_msg_token1 IS NOT NULL) THEN
1864: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
1865: ELSE
1866: fnd_message.set_token('PATC_MSG_TOKEN1',app_api.G_NULL_CHAR);
1867: END IF;
1868: IF (l_msg_token2 IS NOT NULL) THEN
1862:
1863: IF (l_msg_token1 IS NOT NULL) THEN
1864: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
1865: ELSE
1866: fnd_message.set_token('PATC_MSG_TOKEN1',app_api.G_NULL_CHAR);
1867: END IF;
1868: IF (l_msg_token2 IS NOT NULL) THEN
1869: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
1870: ELSE
1865: ELSE
1866: fnd_message.set_token('PATC_MSG_TOKEN1',app_api.G_NULL_CHAR);
1867: END IF;
1868: IF (l_msg_token2 IS NOT NULL) THEN
1869: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
1870: ELSE
1871: fnd_message.set_token('PATC_MSG_TOKEN2',app_api.G_NULL_CHAR);
1872: END IF;
1873: IF (l_msg_token3 IS NOT NULL) THEN
1867: END IF;
1868: IF (l_msg_token2 IS NOT NULL) THEN
1869: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
1870: ELSE
1871: fnd_message.set_token('PATC_MSG_TOKEN2',app_api.G_NULL_CHAR);
1872: END IF;
1873: IF (l_msg_token3 IS NOT NULL) THEN
1874: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
1875: ELSE
1870: ELSE
1871: fnd_message.set_token('PATC_MSG_TOKEN2',app_api.G_NULL_CHAR);
1872: END IF;
1873: IF (l_msg_token3 IS NOT NULL) THEN
1874: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
1875: ELSE
1876: fnd_message.set_token('PATC_MSG_TOKEN3',app_api.G_NULL_CHAR);
1877: END IF;
1878:
1872: END IF;
1873: IF (l_msg_token3 IS NOT NULL) THEN
1874: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
1875: ELSE
1876: fnd_message.set_token('PATC_MSG_TOKEN3',app_api.G_NULL_CHAR);
1877: END IF;
1878:
1879: end if;
1880:
1942: x_concat_descrs => l_concat_descrs,
1943: x_error_message => l_errmsg,
1944: x_award_set_id => l_award_id )) THEN
1945:
1946: fnd_message.set_encoded(l_errmsg);
1947: app_exception.raise_exception;
1948: END IF;
1949: */
1950: /* null;
1998: x_concat_descrs => l_concat_descrs,
1999: x_error_message => l_errmsg,
2000: x_award_set_id => l_award_id )) THEN
2001:
2002: FND_MESSAGE.SET_ENCODED(l_errmsg);
2003: app_exception.raise_exception;
2004:
2005: END IF;
2006: */
2046:
2047: EXCEPTION
2048: WHEN OTHERS THEN
2049: IF (SQLCODE <> -20001) THEN
2050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2054: 'X_invoice_id = ' ||X_invoice_id
2047: EXCEPTION
2048: WHEN OTHERS THEN
2049: IF (SQLCODE <> -20001) THEN
2050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2054: 'X_invoice_id = ' ||X_invoice_id
2055: ||', X_line_number = ' ||X_line_number
2048: WHEN OTHERS THEN
2049: IF (SQLCODE <> -20001) THEN
2050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2054: 'X_invoice_id = ' ||X_invoice_id
2055: ||', X_line_number = ' ||X_line_number
2056: ||', X_type_1099 = ' ||X_type_1099
2049: IF (SQLCODE <> -20001) THEN
2050: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2051: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2052: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2053: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2054: 'X_invoice_id = ' ||X_invoice_id
2055: ||', X_line_number = ' ||X_line_number
2056: ||', X_type_1099 = ' ||X_type_1099
2057: ||', X_income_tax_region = ' ||X_income_tax_region
2059: ||', X_update_base = ' ||X_update_base
2060: ||', X_reset_match_status = ' ||X_reset_match_status
2061: ||', X_update_occurred = ' ||X_update_occurred
2062: );
2063: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2064: END IF;
2065: APP_EXCEPTION.RAISE_EXCEPTION;
2066: END Update_Distributions;
2067:
2347:
2348: EXCEPTION
2349: WHEN OTHERS THEN
2350: if (SQLCODE <> -20001) then
2351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2354: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2355: end if;
2348: EXCEPTION
2349: WHEN OTHERS THEN
2350: if (SQLCODE <> -20001) then
2351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2354: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2355: end if;
2356: APP_EXCEPTION.RAISE_EXCEPTION;
2349: WHEN OTHERS THEN
2350: if (SQLCODE <> -20001) then
2351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2354: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2355: end if;
2356: APP_EXCEPTION.RAISE_EXCEPTION;
2357:
2350: if (SQLCODE <> -20001) then
2351: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2352: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2353: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2354: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2355: end if;
2356: APP_EXCEPTION.RAISE_EXCEPTION;
2357:
2358: END Insert_Row;
2674: FETCH C INTO Recinfo;
2675: if (C%NOTFOUND) then
2676: debug_info := 'Close cursor C - ROW NOTFOUND';
2677: CLOSE C;
2678: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
2679: APP_EXCEPTION.Raise_Exception;
2680: end if;
2681: debug_info := 'Close cursor C';
2682: CLOSE C;
2690:
2691: IF (D%NOTFOUND) THEN
2692: debug_info := 'Close cursor D - ROW NOTFOUND';
2693: CLOSE D;
2694: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
2695: APP_EXCEPTION.Raise_Exception;
2696: END IF;
2697:
2698: debug_info := 'Close cursor D';
2793: OR ( (Recinfo.attribute13 IS NULL)
2794: AND (X_Attribute13 IS NULL)))) then
2795: null;
2796: else
2797: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
2798: APP_EXCEPTION.Raise_Exception;
2799: end if;
2800:
2801: if (
2934:
2935: ) then
2936: null;
2937: else
2938: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
2939: APP_EXCEPTION.Raise_Exception;
2940: end if;
2941:
2942: if (
3005: AND (X_global_attribute20 IS NULL)))
3006: ) then
3007: return;
3008: else
3009: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
3010: APP_EXCEPTION.Raise_Exception;
3011: end if;
3012:
3013: -- Invoice Lines Project Stage 1
3035: AND (X_INTENDED_USE IS NULL)))
3036: ) then
3037: return;
3038: else
3039: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
3040: APP_EXCEPTION.Raise_Exception;
3041: end if;
3042:
3043: EXCEPTION
3043: EXCEPTION
3044: WHEN OTHERS THEN
3045: if (SQLCODE <> -20001) then
3046: IF (SQLCODE = -54) THEN
3047: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
3048: ELSE
3049: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3050: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3051: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3045: if (SQLCODE <> -20001) then
3046: IF (SQLCODE = -54) THEN
3047: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
3048: ELSE
3049: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3050: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3051: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3053: END IF;
3046: IF (SQLCODE = -54) THEN
3047: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
3048: ELSE
3049: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3050: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3051: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3053: END IF;
3054: end if;
3047: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
3048: ELSE
3049: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3050: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3051: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3053: END IF;
3054: end if;
3055: APP_EXCEPTION.RAISE_EXCEPTION;
3048: ELSE
3049: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3050: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3051: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3052: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3053: END IF;
3054: end if;
3055: APP_EXCEPTION.RAISE_EXCEPTION;
3056:
3351:
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: if (SQLCODE <> -20001) then
3355: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3356: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3358: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3359: end if;
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: if (SQLCODE <> -20001) then
3355: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3356: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3358: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3359: end if;
3360: APP_EXCEPTION.RAISE_EXCEPTION;
3353: WHEN OTHERS THEN
3354: if (SQLCODE <> -20001) then
3355: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3356: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3358: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3359: end if;
3360: APP_EXCEPTION.RAISE_EXCEPTION;
3361:
3354: if (SQLCODE <> -20001) then
3355: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3356: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3357: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3358: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3359: end if;
3360: APP_EXCEPTION.RAISE_EXCEPTION;
3361:
3362: END Update_Row;
3381:
3382: EXCEPTION
3383: WHEN OTHERS THEN
3384: if (SQLCODE <> -20001) then
3385: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3386: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3388: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3389: end if;
3382: EXCEPTION
3383: WHEN OTHERS THEN
3384: if (SQLCODE <> -20001) then
3385: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3386: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3388: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3389: end if;
3390: APP_EXCEPTION.RAISE_EXCEPTION;
3383: WHEN OTHERS THEN
3384: if (SQLCODE <> -20001) then
3385: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3386: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3388: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3389: end if;
3390: APP_EXCEPTION.RAISE_EXCEPTION;
3391:
3384: if (SQLCODE <> -20001) then
3385: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3386: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3387: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3388: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3389: end if;
3390: APP_EXCEPTION.RAISE_EXCEPTION;
3391:
3392: END Delete_Row;
3777:
3778: EXCEPTION
3779: WHEN OTHERS THEN
3780: IF (SQLCODE <> -20001) THEN
3781: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3782: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3784: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3785: END IF;
3778: EXCEPTION
3779: WHEN OTHERS THEN
3780: IF (SQLCODE <> -20001) THEN
3781: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3782: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3784: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3785: END IF;
3786: APP_EXCEPTION.RAISE_EXCEPTION;
3779: WHEN OTHERS THEN
3780: IF (SQLCODE <> -20001) THEN
3781: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3782: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3784: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3785: END IF;
3786: APP_EXCEPTION.RAISE_EXCEPTION;
3787:
3780: IF (SQLCODE <> -20001) THEN
3781: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
3782: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
3783: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
3784: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
3785: END IF;
3786: APP_EXCEPTION.RAISE_EXCEPTION;
3787:
3788: END Round_Biggest_Distribution;
4397: IF (l_msg_data is not null) THEN
4398: X_msg_application := l_msg_application;
4399: X_msg_data := l_msg_data;
4400: --bugfix:5725904
4401: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
4402: /*bug 6682104 setting the token values*/
4403: IF (l_msg_token1 IS NOT NULL) THEN
4404: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
4405: ELSE
4400: --bugfix:5725904
4401: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
4402: /*bug 6682104 setting the token values*/
4403: IF (l_msg_token1 IS NOT NULL) THEN
4404: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
4405: ELSE
4406: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
4407: END IF;
4408:
4402: /*bug 6682104 setting the token values*/
4403: IF (l_msg_token1 IS NOT NULL) THEN
4404: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
4405: ELSE
4406: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
4407: END IF;
4408:
4409: IF (l_msg_token2 IS NOT NULL) THEN
4410: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
4406: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
4407: END IF;
4408:
4409: IF (l_msg_token2 IS NOT NULL) THEN
4410: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
4411: ELSE
4412: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
4413: END IF;
4414:
4408:
4409: IF (l_msg_token2 IS NOT NULL) THEN
4410: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
4411: ELSE
4412: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
4413: END IF;
4414:
4415: IF (l_msg_token3 IS NOT NULL) THEN
4416: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
4412: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
4413: END IF;
4414:
4415: IF (l_msg_token3 IS NOT NULL) THEN
4416: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
4417: ELSE
4418: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
4419: END IF;
4420: l_message_text := Fnd_Message.get;
4414:
4415: IF (l_msg_token3 IS NOT NULL) THEN
4416: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
4417: ELSE
4418: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
4419: END IF;
4420: l_message_text := Fnd_Message.get;
4421: X_Error_Code := l_message_text;
4422:
4416: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
4417: ELSE
4418: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
4419: END IF;
4420: l_message_text := Fnd_Message.get;
4421: X_Error_Code := l_message_text;
4422:
4423: return(FALSE);
4424: END IF;
6322: if (l_msg_data is not null) then
6323: X_msg_application := l_msg_application;
6324: X_msg_data := l_msg_data;
6325: --bugfix:5725904
6326: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
6327: /*bug 6682104 setting the token values*/
6328: IF (l_msg_token1 IS NOT NULL) THEN
6329: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
6330: ELSE
6325: --bugfix:5725904
6326: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
6327: /*bug 6682104 setting the token values*/
6328: IF (l_msg_token1 IS NOT NULL) THEN
6329: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
6330: ELSE
6331: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
6332: END IF;
6333:
6327: /*bug 6682104 setting the token values*/
6328: IF (l_msg_token1 IS NOT NULL) THEN
6329: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
6330: ELSE
6331: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
6332: END IF;
6333:
6334: IF (l_msg_token2 IS NOT NULL) THEN
6335: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
6331: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
6332: END IF;
6333:
6334: IF (l_msg_token2 IS NOT NULL) THEN
6335: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
6336: ELSE
6337: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
6338: END IF;
6339:
6333:
6334: IF (l_msg_token2 IS NOT NULL) THEN
6335: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
6336: ELSE
6337: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
6338: END IF;
6339:
6340: IF (l_msg_token3 IS NOT NULL) THEN
6341: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
6337: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
6338: END IF;
6339:
6340: IF (l_msg_token3 IS NOT NULL) THEN
6341: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
6342: ELSE
6343: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
6344: END IF;
6345: l_message_text := Fnd_Message.get;
6339:
6340: IF (l_msg_token3 IS NOT NULL) THEN
6341: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
6342: ELSE
6343: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
6344: END IF;
6345: l_message_text := Fnd_Message.get;
6346: x_error_code := l_message_text;
6347:
6341: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
6342: ELSE
6343: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
6344: END IF;
6345: l_message_text := Fnd_Message.get;
6346: x_error_code := l_message_text;
6347:
6348: return(FALSE);
6349:
8843:
8844: EXCEPTION
8845: WHEN OTHERS THEN
8846: IF (SQLCODE <> -20001) then
8847: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8848: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8849: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8850: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'distribution Id = '
8851: || X_distribution_Id);
8844: EXCEPTION
8845: WHEN OTHERS THEN
8846: IF (SQLCODE <> -20001) then
8847: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8848: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8849: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8850: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'distribution Id = '
8851: || X_distribution_Id);
8852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8845: WHEN OTHERS THEN
8846: IF (SQLCODE <> -20001) then
8847: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8848: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8849: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8850: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'distribution Id = '
8851: || X_distribution_Id);
8852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8853: END IF;
8846: IF (SQLCODE <> -20001) then
8847: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8848: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8849: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8850: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'distribution Id = '
8851: || X_distribution_Id);
8852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8853: END IF;
8854:
8848: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8849: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8850: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'distribution Id = '
8851: || X_distribution_Id);
8852: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
8853: END IF;
8854:
8855: l_debug_info := 'CALCULATE_VARIANCE - OTHERS exception exists';
8856: x_debug_info := l_debug_info;
8907:
8908: Exception
8909: WHEN OTHERS THEN
8910: If (SQLCODE <> -20001) Then
8911: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8912: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8913: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8914: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8908: Exception
8909: WHEN OTHERS THEN
8910: If (SQLCODE <> -20001) Then
8911: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8912: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8913: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8914: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8916: End If;
8909: WHEN OTHERS THEN
8910: If (SQLCODE <> -20001) Then
8911: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8912: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8913: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8914: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8916: End If;
8917: APP_EXCEPTION.RAISE_EXCEPTION;
8910: If (SQLCODE <> -20001) Then
8911: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8912: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8913: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8914: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8916: End If;
8917: APP_EXCEPTION.RAISE_EXCEPTION;
8918:
8911: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8912: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8913: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8914: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8915: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8916: End If;
8917: APP_EXCEPTION.RAISE_EXCEPTION;
8918:
8919:
8979:
8980: Exception
8981: WHEN OTHERS THEN
8982: If (SQLCODE <> -20001) Then
8983: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8984: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8985: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8986: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8987: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8980: Exception
8981: WHEN OTHERS THEN
8982: If (SQLCODE <> -20001) Then
8983: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8984: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8985: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8986: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8987: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8988: End If;
8981: WHEN OTHERS THEN
8982: If (SQLCODE <> -20001) Then
8983: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8984: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8985: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8986: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8987: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8988: End If;
8989: APP_EXCEPTION.RAISE_EXCEPTION;
8982: If (SQLCODE <> -20001) Then
8983: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8984: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8985: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8986: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8987: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8988: End If;
8989: APP_EXCEPTION.RAISE_EXCEPTION;
8990: END Chrg_Refer_Active_Dist;
8983: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
8984: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
8985: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
8986: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
8987: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
8988: End If;
8989: APP_EXCEPTION.RAISE_EXCEPTION;
8990: END Chrg_Refer_Active_Dist;
8991:
9039:
9040: Exception
9041: WHEN OTHERS THEN
9042: If (SQLCODE <> -20001) Then
9043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9047: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9040: Exception
9041: WHEN OTHERS THEN
9042: If (SQLCODE <> -20001) Then
9043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9047: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9048: End If;
9041: WHEN OTHERS THEN
9042: If (SQLCODE <> -20001) Then
9043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9047: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9048: End If;
9049: APP_EXCEPTION.RAISE_EXCEPTION;
9042: If (SQLCODE <> -20001) Then
9043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9047: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9048: End If;
9049: APP_EXCEPTION.RAISE_EXCEPTION;
9050:
9043: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9044: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9045: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9046: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9047: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9048: End If;
9049: APP_EXCEPTION.RAISE_EXCEPTION;
9050:
9051: END Dist_Refer_Active_Corr_Wrap;
9100:
9101: Exception
9102: WHEN OTHERS THEN
9103: If (SQLCODE <> -20001) Then
9104: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9105: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9106: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9107: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9101: Exception
9102: WHEN OTHERS THEN
9103: If (SQLCODE <> -20001) Then
9104: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9105: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9106: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9107: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9109: End If;
9102: WHEN OTHERS THEN
9103: If (SQLCODE <> -20001) Then
9104: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9105: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9106: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9107: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9109: End If;
9110: APP_EXCEPTION.RAISE_EXCEPTION;
9103: If (SQLCODE <> -20001) Then
9104: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9105: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9106: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9107: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9109: End If;
9110: APP_EXCEPTION.RAISE_EXCEPTION;
9111: END Chrg_Refer_Active_Dist_Wrap;
9104: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9105: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9106: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9107: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Distribution Id = '||P_Invoice_Dist_Id);
9108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
9109: End If;
9110: APP_EXCEPTION.RAISE_EXCEPTION;
9111: END Chrg_Refer_Active_Dist_Wrap;
9112:
9194:
9195: EXCEPTION
9196: WHEN OTHERS THEN
9197: IF (SQLCODE <> -20001) THEN
9198: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9199: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9200: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9201: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
9202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9195: EXCEPTION
9196: WHEN OTHERS THEN
9197: IF (SQLCODE <> -20001) THEN
9198: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9199: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9200: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9201: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
9202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9203: END IF;
9196: WHEN OTHERS THEN
9197: IF (SQLCODE <> -20001) THEN
9198: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9199: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9200: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9201: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
9202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9203: END IF;
9204: APP_EXCEPTION.RAISE_EXCEPTION;
9197: IF (SQLCODE <> -20001) THEN
9198: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9199: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9200: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9201: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
9202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9203: END IF;
9204: APP_EXCEPTION.RAISE_EXCEPTION;
9205:
9198: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9199: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9200: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
9201: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Id = '||P_Invoice_Id);
9202: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9203: END IF;
9204: APP_EXCEPTION.RAISE_EXCEPTION;
9205:
9206: END Make_Distributions_Permanent;
9243:
9244: EXCEPTION
9245: WHEN OTHERS THEN
9246: IF (SQLCODE <> -20001) THEN
9247: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9248: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9249: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Distribution Id = '
9250: ||P_Invoice_Distribution_Id);
9251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9244: EXCEPTION
9245: WHEN OTHERS THEN
9246: IF (SQLCODE <> -20001) THEN
9247: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9248: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9249: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Distribution Id = '
9250: ||P_Invoice_Distribution_Id);
9251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9252: END IF;
9245: WHEN OTHERS THEN
9246: IF (SQLCODE <> -20001) THEN
9247: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9248: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9249: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Distribution Id = '
9250: ||P_Invoice_Distribution_Id);
9251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9252: END IF;
9253: APP_EXCEPTION.RAISE_EXCEPTION;
9247: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
9248: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
9249: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Invoice Distribution Id = '
9250: ||P_Invoice_Distribution_Id);
9251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
9252: END IF;
9253: APP_EXCEPTION.RAISE_EXCEPTION;
9254:
9255: END Associated_Charges;