643:
644: EXCEPTION
645: WHEN OTHERS THEN
646: IF (SQLCODE <> -20001) THEN
647: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
648: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
649: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
650: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
651: ||', Invoice Id = '||to_char(x_invoice_id)
644: EXCEPTION
645: WHEN OTHERS THEN
646: IF (SQLCODE <> -20001) THEN
647: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
648: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
649: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
650: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
651: ||', Invoice Id = '||to_char(x_invoice_id)
652: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
645: WHEN OTHERS THEN
646: IF (SQLCODE <> -20001) THEN
647: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
648: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
649: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
650: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
651: ||', Invoice Id = '||to_char(x_invoice_id)
652: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
653: ||', Shipment ID = '||to_char(x_po_line_location_id)
646: IF (SQLCODE <> -20001) THEN
647: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
648: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
649: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
650: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
651: ||', Invoice Id = '||to_char(x_invoice_id)
652: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
653: ||', Shipment ID = '||to_char(x_po_line_location_id)
654: ||', Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
658: ||', Freight Amount = '||to_char(x_freight_amount)
659: ||', Freight Description = '||x_freight_description
660: ||', Misc Amount = '||to_char(x_misc_amount)
661: ||', Misc Description = '||x_misc_description);
662: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
663: END IF;
664:
665: --Clean up the PL/SQL table
666: x_dist_tab.delete;
858: p_gl_date => g_accounting_date,
859: p_org_id => g_org_id);
860:
861: IF (g_accounting_date IS NULL) THEN
862: fnd_message.set_name('SQLAP','AP_DISTS_NO_OPEN_FUT_PERIOD');
863: app_exception.raise_exception;
864: ELSE
865: g_line_accounting_date := g_accounting_date;
866: END IF;
878:
879: EXCEPTION
880: WHEN OTHERS THEN
881: IF (SQLCODE <> -20001) THEN
882: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
883: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
884: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
885: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
886: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
879: EXCEPTION
880: WHEN OTHERS THEN
881: IF (SQLCODE <> -20001) THEN
882: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
883: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
884: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
885: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
886: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
887: END IF;
880: WHEN OTHERS THEN
881: IF (SQLCODE <> -20001) THEN
882: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
883: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
884: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
885: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
886: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
887: END IF;
888: app_exception.raise_exception;
881: IF (SQLCODE <> -20001) THEN
882: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
883: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
884: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
885: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
886: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
887: END IF;
888: app_exception.raise_exception;
889:
882: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
883: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
884: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
885: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
886: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
887: END IF;
888: app_exception.raise_exception;
889:
890: END Get_Info;
1454: EXCEPTION
1455:
1456: WHEN OTHERS THEN
1457: IF (SQLCODE <> -20001) THEN
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1462: ||', Match_mode = '||X_match_mode
1455:
1456: WHEN OTHERS THEN
1457: IF (SQLCODE <> -20001) THEN
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1462: ||', Match_mode = '||X_match_mode
1463: ||', Match Quantity = '||x_match_quantity
1456: WHEN OTHERS THEN
1457: IF (SQLCODE <> -20001) THEN
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1462: ||', Match_mode = '||X_match_mode
1463: ||', Match Quantity = '||x_match_quantity
1464: ||', Match Amount = '||x_match_amount
1457: IF (SQLCODE <> -20001) THEN
1458: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1459: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1460: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1461: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1462: ||', Match_mode = '||X_match_mode
1463: ||', Match Quantity = '||x_match_quantity
1464: ||', Match Amount = '||x_match_amount
1465: ||', Exchange Rate = '||g_exchange_rate
1463: ||', Match Quantity = '||x_match_quantity
1464: ||', Match Amount = '||x_match_amount
1465: ||', Exchange Rate = '||g_exchange_rate
1466: ||', Base Currency = '||g_base_currency_code);
1467: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1468: END IF;
1469: APP_EXCEPTION.RAISE_EXCEPTION;
1470: END Get_Dist_Proration_Info;
1471:
1576:
1577: EXCEPTION
1578: WHEN OTHERS THEN
1579: IF (SQLCODE <> -20001) THEN
1580: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1581: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1582: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1583: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1584: ' X_Rcv_Transaction_Id = '||TO_CHAR(X_Rcv_Transaction_id)
1577: EXCEPTION
1578: WHEN OTHERS THEN
1579: IF (SQLCODE <> -20001) THEN
1580: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1581: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1582: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1583: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1584: ' X_Rcv_Transaction_Id = '||TO_CHAR(X_Rcv_Transaction_id)
1585: ||', X_Match_Amount = '||X_Match_amount);
1578: WHEN OTHERS THEN
1579: IF (SQLCODE <> -20001) THEN
1580: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1581: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1582: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1583: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1584: ' X_Rcv_Transaction_Id = '||TO_CHAR(X_Rcv_Transaction_id)
1585: ||', X_Match_Amount = '||X_Match_amount);
1586: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1579: IF (SQLCODE <> -20001) THEN
1580: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1581: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1582: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1583: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1584: ' X_Rcv_Transaction_Id = '||TO_CHAR(X_Rcv_Transaction_id)
1585: ||', X_Match_Amount = '||X_Match_amount);
1586: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1587: END IF;
1582: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1583: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1584: ' X_Rcv_Transaction_Id = '||TO_CHAR(X_Rcv_Transaction_id)
1585: ||', X_Match_Amount = '||X_Match_amount);
1586: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1587: END IF;
1588: APP_EXCEPTION.RAISE_EXCEPTION;
1589:
1590: END Get_Total_Proration_Amount;
1722:
1723: EXCEPTION
1724: WHEN OTHERS THEN
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id));
1730: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1723: EXCEPTION
1724: WHEN OTHERS THEN
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id));
1730: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1731: END IF;
1724: WHEN OTHERS THEN
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id));
1730: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1731: END IF;
1732:
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id));
1730: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1731: END IF;
1732:
1733: --Clean up the PL/SQL table
1726: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id));
1730: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1731: END IF;
1732:
1733: --Clean up the PL/SQL table
1734: X_DIST_TAB.DELETE;
1766:
1767: EXCEPTION
1768: WHEN OTHERS THEN
1769: IF (SQLCODE <> -20001) THEN
1770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1772: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1774: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
1767: EXCEPTION
1768: WHEN OTHERS THEN
1769: IF (SQLCODE <> -20001) THEN
1770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1772: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1774: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
1775: ||', Match amount = '||to_char(x_match_amount)
1768: WHEN OTHERS THEN
1769: IF (SQLCODE <> -20001) THEN
1770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1772: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1774: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
1775: ||', Match amount = '||to_char(x_match_amount)
1776: ||', PO Uom = '||x_uom_lookup_code);
1769: IF (SQLCODE <> -20001) THEN
1770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1772: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1774: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
1775: ||', Match amount = '||to_char(x_match_amount)
1776: ||', PO Uom = '||x_uom_lookup_code);
1777: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1774: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
1775: ||', Match amount = '||to_char(x_match_amount)
1776: ||', PO Uom = '||x_uom_lookup_code);
1777: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1778: END IF;
1779: APP_EXCEPTION.RAISE_EXCEPTION;
1780:
1781: END Update_RCV_Transaction;
2442: g_max_invoice_line_number := g_max_invoice_line_number + 1;
2443:
2444: EXCEPTION WHEN OTHERS THEN
2445: IF (SQLCODE <> -20001) THEN
2446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2449: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2450: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2443:
2444: EXCEPTION WHEN OTHERS THEN
2445: IF (SQLCODE <> -20001) THEN
2446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2449: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2450: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2451: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2444: EXCEPTION WHEN OTHERS THEN
2445: IF (SQLCODE <> -20001) THEN
2446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2449: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2450: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2451: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2452: ||', Project Id = '||to_char(g_project_id)
2445: IF (SQLCODE <> -20001) THEN
2446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2449: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2450: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2451: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2452: ||', Project Id = '||to_char(g_project_id)
2453: ||', Task_Id ='||to_char(g_task_id)
2452: ||', Project Id = '||to_char(g_project_id)
2453: ||', Task_Id ='||to_char(g_task_id)
2454: ||', Expenditure Type ='||g_expenditure_type
2455: ||', Expenditure_Organization_id ='||to_char(g_expenditure_organization_id));
2456: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2457: END IF;
2458: APP_EXCEPTION.RAISE_EXCEPTION;
2459:
2460: END Insert_Invoice_Line;
2853: EXCEPTION
2854: WHEN OTHERS THEN
2855:
2856: IF (SQLCODE <> -20001) THEN
2857: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2858: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2860: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2861: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2854: WHEN OTHERS THEN
2855:
2856: IF (SQLCODE <> -20001) THEN
2857: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2858: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2860: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2861: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2862: ||', Invoice Line Number = '||X_Invoice_Line_Number
2855:
2856: IF (SQLCODE <> -20001) THEN
2857: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2858: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2860: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2861: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2862: ||', Invoice Line Number = '||X_Invoice_Line_Number
2863: ||', Dist_num = '||l_distribution_line_number
2856: IF (SQLCODE <> -20001) THEN
2857: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2858: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2859: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2860: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2861: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2862: ||', Invoice Line Number = '||X_Invoice_Line_Number
2863: ||', Dist_num = '||l_distribution_line_number
2864: ||', Allow_PA_Override = '||g_allow_pa_override
2862: ||', Invoice Line Number = '||X_Invoice_Line_Number
2863: ||', Dist_num = '||l_distribution_line_number
2864: ||', Allow_PA_Override = '||g_allow_pa_override
2865: ||', Transfer_Desc_Flag = '||g_Transfer_Flag);
2866: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2867: END IF;
2868: --Clean up the PL/SQL table
2869: X_DIST_TAB.DELETE;
2870:
2949:
2950: EXCEPTION
2951: WHEN OTHERS THEN
2952: IF (SQLCODE <> -20001) THEN
2953: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2954: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2955: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2956: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
2957: ||', Freight Amount = '||to_char(x_freight_amount)
2950: EXCEPTION
2951: WHEN OTHERS THEN
2952: IF (SQLCODE <> -20001) THEN
2953: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2954: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2955: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2956: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
2957: ||', Freight Amount = '||to_char(x_freight_amount)
2958: ||', Freight Description = '||x_freight_description
2951: WHEN OTHERS THEN
2952: IF (SQLCODE <> -20001) THEN
2953: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2954: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2955: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2956: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
2957: ||', Freight Amount = '||to_char(x_freight_amount)
2958: ||', Freight Description = '||x_freight_description
2959: ||', Misc Amount = '||to_char(x_misc_amount)
2952: IF (SQLCODE <> -20001) THEN
2953: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2954: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2955: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2956: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
2957: ||', Freight Amount = '||to_char(x_freight_amount)
2958: ||', Freight Description = '||x_freight_description
2959: ||', Misc Amount = '||to_char(x_misc_amount)
2960: ||', Misc Description = '||x_misc_description
2958: ||', Freight Description = '||x_freight_description
2959: ||', Misc Amount = '||to_char(x_misc_amount)
2960: ||', Misc Description = '||x_misc_description
2961: ||', Item Line Number = '||TO_CHAR(X_Item_Line_Number));
2962: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2963: END IF;
2964: APP_EXCEPTION.RAISE_EXCEPTION;
2965:
2966: END Create_Charge_Lines;
3172:
3173: EXCEPTION
3174: WHEN others then
3175: If (SQLCODE <> -20001) Then
3176: fnd_message.set_name('SQLAP','AP_DEBUG');
3177: fnd_message.set_token('ERROR',SQLERRM);
3178: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3179: fnd_message.set_token('PARAMETERS',
3180: ' invoice_id = '||to_char(x_invoice_id)
3173: EXCEPTION
3174: WHEN others then
3175: If (SQLCODE <> -20001) Then
3176: fnd_message.set_name('SQLAP','AP_DEBUG');
3177: fnd_message.set_token('ERROR',SQLERRM);
3178: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3179: fnd_message.set_token('PARAMETERS',
3180: ' invoice_id = '||to_char(x_invoice_id)
3181: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3174: WHEN others then
3175: If (SQLCODE <> -20001) Then
3176: fnd_message.set_name('SQLAP','AP_DEBUG');
3177: fnd_message.set_token('ERROR',SQLERRM);
3178: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3179: fnd_message.set_token('PARAMETERS',
3180: ' invoice_id = '||to_char(x_invoice_id)
3181: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3182: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3175: If (SQLCODE <> -20001) Then
3176: fnd_message.set_name('SQLAP','AP_DEBUG');
3177: fnd_message.set_token('ERROR',SQLERRM);
3178: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3179: fnd_message.set_token('PARAMETERS',
3180: ' invoice_id = '||to_char(x_invoice_id)
3181: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3182: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3183: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3184: ||', match_mode = '||x_match_mode
3185: ||', correction amount = '||to_char(x_correction_amount)
3186: ||', po_line_location_id = '||to_char(x_po_line_location_id)
3187: ||', rcv_transaction_id = '||to_char(x_rcv_transaction_id));
3188: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3189: End if;
3190:
3191: --Clean up the PL/SQL table
3192: x_corr_dist_tab.delete;
3353:
3354: EXCEPTION
3355: WHEN others then
3356: If (SQLCODE <> -20001) Then
3357: fnd_message.set_name('SQLAP','AP_DEBUG');
3358: fnd_message.set_token('ERROR',SQLERRM);
3359: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3360: fnd_message.set_token('PARAMETERS',
3361: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3354: EXCEPTION
3355: WHEN others then
3356: If (SQLCODE <> -20001) Then
3357: fnd_message.set_name('SQLAP','AP_DEBUG');
3358: fnd_message.set_token('ERROR',SQLERRM);
3359: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3360: fnd_message.set_token('PARAMETERS',
3361: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3362: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3355: WHEN others then
3356: If (SQLCODE <> -20001) Then
3357: fnd_message.set_name('SQLAP','AP_DEBUG');
3358: fnd_message.set_token('ERROR',SQLERRM);
3359: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3360: fnd_message.set_token('PARAMETERS',
3361: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3362: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3363: ||', correction amount = '||to_char(x_correction_amount));
3356: If (SQLCODE <> -20001) Then
3357: fnd_message.set_name('SQLAP','AP_DEBUG');
3358: fnd_message.set_token('ERROR',SQLERRM);
3359: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3360: fnd_message.set_token('PARAMETERS',
3361: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3362: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3363: ||', correction amount = '||to_char(x_correction_amount));
3364: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3360: fnd_message.set_token('PARAMETERS',
3361: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3362: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3363: ||', correction amount = '||to_char(x_correction_amount));
3364: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3365: End if;
3366: --Clean up the PL/SQL tables on error
3367: x_corr_dist_tab.delete;
3368:
3461:
3462: EXCEPTION
3463: WHEN others then
3464: If (SQLCODE <> -20001) Then
3465: fnd_message.set_name('SQLAP','AP_DEBUG');
3466: fnd_message.set_token('ERROR',SQLERRM);
3467: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3468: fnd_message.set_token('PARAMETERS',
3469: ' po_line_location_id = '||to_char(x_po_line_location_id));
3462: EXCEPTION
3463: WHEN others then
3464: If (SQLCODE <> -20001) Then
3465: fnd_message.set_name('SQLAP','AP_DEBUG');
3466: fnd_message.set_token('ERROR',SQLERRM);
3467: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3468: fnd_message.set_token('PARAMETERS',
3469: ' po_line_location_id = '||to_char(x_po_line_location_id));
3470: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3463: WHEN others then
3464: If (SQLCODE <> -20001) Then
3465: fnd_message.set_name('SQLAP','AP_DEBUG');
3466: fnd_message.set_token('ERROR',SQLERRM);
3467: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3468: fnd_message.set_token('PARAMETERS',
3469: ' po_line_location_id = '||to_char(x_po_line_location_id));
3470: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3471: End if;
3464: If (SQLCODE <> -20001) Then
3465: fnd_message.set_name('SQLAP','AP_DEBUG');
3466: fnd_message.set_token('ERROR',SQLERRM);
3467: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3468: fnd_message.set_token('PARAMETERS',
3469: ' po_line_location_id = '||to_char(x_po_line_location_id));
3470: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3471: End if;
3472:
3466: fnd_message.set_token('ERROR',SQLERRM);
3467: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3468: fnd_message.set_token('PARAMETERS',
3469: ' po_line_location_id = '||to_char(x_po_line_location_id));
3470: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3471: End if;
3472:
3473: app_exception.raise_exception;
3474:
3816:
3817: EXCEPTION
3818: WHEN others then
3819: If (SQLCODE <> -20001) Then
3820: fnd_message.set_name('SQLAP','AP_DEBUG');
3821: fnd_message.set_token('ERROR',SQLERRM);
3822: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3823: fnd_message.set_token('PARAMETERS',
3824: ' invoice_id = '||to_char(x_invoice_id)
3817: EXCEPTION
3818: WHEN others then
3819: If (SQLCODE <> -20001) Then
3820: fnd_message.set_name('SQLAP','AP_DEBUG');
3821: fnd_message.set_token('ERROR',SQLERRM);
3822: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3823: fnd_message.set_token('PARAMETERS',
3824: ' invoice_id = '||to_char(x_invoice_id)
3825: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3818: WHEN others then
3819: If (SQLCODE <> -20001) Then
3820: fnd_message.set_name('SQLAP','AP_DEBUG');
3821: fnd_message.set_token('ERROR',SQLERRM);
3822: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3823: fnd_message.set_token('PARAMETERS',
3824: ' invoice_id = '||to_char(x_invoice_id)
3825: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3826: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3819: If (SQLCODE <> -20001) Then
3820: fnd_message.set_name('SQLAP','AP_DEBUG');
3821: fnd_message.set_token('ERROR',SQLERRM);
3822: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3823: fnd_message.set_token('PARAMETERS',
3824: ' invoice_id = '||to_char(x_invoice_id)
3825: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3826: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3827: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3826: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3827: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3828: ||', amount = '||to_char(x_amount)
3829: ||', po_distribution_id = '||to_char(x_po_distribution_id));
3830: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3831: End if;
3832: app_exception.raise_exception;
3833:
3834: END Insert_Corr_Invoice_Line;
4213:
4214: EXCEPTION
4215: WHEN others then
4216: If (SQLCODE <> -20001) Then
4217: fnd_message.set_name('SQLAP','AP_DEBUG');
4218: fnd_message.set_token('ERROR',SQLERRM);
4219: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4220: fnd_message.set_token('PARAMETERS',
4221: ' invoice_id = '||to_char(x_invoice_id)
4214: EXCEPTION
4215: WHEN others then
4216: If (SQLCODE <> -20001) Then
4217: fnd_message.set_name('SQLAP','AP_DEBUG');
4218: fnd_message.set_token('ERROR',SQLERRM);
4219: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4220: fnd_message.set_token('PARAMETERS',
4221: ' invoice_id = '||to_char(x_invoice_id)
4222: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4215: WHEN others then
4216: If (SQLCODE <> -20001) Then
4217: fnd_message.set_name('SQLAP','AP_DEBUG');
4218: fnd_message.set_token('ERROR',SQLERRM);
4219: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4220: fnd_message.set_token('PARAMETERS',
4221: ' invoice_id = '||to_char(x_invoice_id)
4222: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4223: ||', total_amount = '||to_char(x_total_amount));
4216: If (SQLCODE <> -20001) Then
4217: fnd_message.set_name('SQLAP','AP_DEBUG');
4218: fnd_message.set_token('ERROR',SQLERRM);
4219: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4220: fnd_message.set_token('PARAMETERS',
4221: ' invoice_id = '||to_char(x_invoice_id)
4222: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4223: ||', total_amount = '||to_char(x_total_amount));
4224: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4220: fnd_message.set_token('PARAMETERS',
4221: ' invoice_id = '||to_char(x_invoice_id)
4222: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4223: ||', total_amount = '||to_char(x_total_amount));
4224: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4225: End if;
4226:
4227: END Insert_Corr_Invoice_Dists;
4228: