701:
702: EXCEPTION
703: WHEN OTHERS THEN
704: IF (SQLCODE <> -20001) THEN
705: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
706: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
707: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
708: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
709: ||', Invoice Id = '||to_char(x_invoice_id)
702: EXCEPTION
703: WHEN OTHERS THEN
704: IF (SQLCODE <> -20001) THEN
705: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
706: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
707: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
708: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
709: ||', Invoice Id = '||to_char(x_invoice_id)
710: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
703: WHEN OTHERS THEN
704: IF (SQLCODE <> -20001) THEN
705: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
706: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
707: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
708: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
709: ||', Invoice Id = '||to_char(x_invoice_id)
710: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
711: ||', Shipment ID = '||to_char(x_po_line_location_id)
704: IF (SQLCODE <> -20001) THEN
705: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
706: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
707: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
708: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
709: ||', Invoice Id = '||to_char(x_invoice_id)
710: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
711: ||', Shipment ID = '||to_char(x_po_line_location_id)
712: ||', Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
716: ||', Freight Amount = '||to_char(x_freight_amount)
717: ||', Freight Description = '||x_freight_description
718: ||', Misc Amount = '||to_char(x_misc_amount)
719: ||', Misc Description = '||x_misc_description);
720: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
721: END IF;
722:
723: --Clean up the PL/SQL table
724: x_dist_tab.delete;
929: p_gl_date => g_accounting_date,
930: p_org_id => g_org_id); /*bug 5174518 */
931:
932: IF (g_accounting_date IS NULL) THEN
933: fnd_message.set_name('SQLAP','AP_DISTS_NO_OPEN_FUT_PERIOD');
934: app_exception.raise_exception;
935: ELSE
936: g_line_accounting_date := g_accounting_date;
937: END IF;
950:
951: EXCEPTION
952: WHEN OTHERS THEN
953: IF (SQLCODE <> -20001) THEN
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
957: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
958: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
951: EXCEPTION
952: WHEN OTHERS THEN
953: IF (SQLCODE <> -20001) THEN
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
957: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
958: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
959: END IF;
952: WHEN OTHERS THEN
953: IF (SQLCODE <> -20001) THEN
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
957: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
958: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
959: END IF;
960: app_exception.raise_exception;
953: IF (SQLCODE <> -20001) THEN
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
957: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
958: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
959: END IF;
960: app_exception.raise_exception;
961:
954: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
955: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
956: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
957: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
958: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
959: END IF;
960: app_exception.raise_exception;
961:
962: END Get_Info;
1583:
1584: EXCEPTION
1585: WHEN OTHERS THEN
1586: IF (SQLCODE <> -20001) THEN
1587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1590: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1591: ||', Match Quantity = '||x_match_quantity
1584: EXCEPTION
1585: WHEN OTHERS THEN
1586: IF (SQLCODE <> -20001) THEN
1587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1590: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1591: ||', Match Quantity = '||x_match_quantity
1592: ||', Match Amount = '||x_match_amount
1585: WHEN OTHERS THEN
1586: IF (SQLCODE <> -20001) THEN
1587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1590: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1591: ||', Match Quantity = '||x_match_quantity
1592: ||', Match Amount = '||x_match_amount
1593: ||', Exchange Rate = '||g_exchange_rate
1586: IF (SQLCODE <> -20001) THEN
1587: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1588: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1589: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1590: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1591: ||', Match Quantity = '||x_match_quantity
1592: ||', Match Amount = '||x_match_amount
1593: ||', Exchange Rate = '||g_exchange_rate
1594: ||', Base Currency = '||g_base_currency_code
1592: ||', Match Amount = '||x_match_amount
1593: ||', Exchange Rate = '||g_exchange_rate
1594: ||', Base Currency = '||g_base_currency_code
1595: );
1596: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1597: END IF;
1598:
1599: --Clean up the PL/SQL table
1600: x_dist_tab.delete;
1724:
1725: EXCEPTION
1726: WHEN OTHERS THEN
1727: IF (SQLCODE <> -20001) THEN
1728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1731: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1732: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1725: EXCEPTION
1726: WHEN OTHERS THEN
1727: IF (SQLCODE <> -20001) THEN
1728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1731: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1732: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1733: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1726: WHEN OTHERS THEN
1727: IF (SQLCODE <> -20001) THEN
1728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1731: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1732: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1733: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1734: ||', Match Quantity = '||to_char(x_match_quantity));
1727: IF (SQLCODE <> -20001) THEN
1728: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1729: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1730: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1731: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1732: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1733: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1734: ||', Match Quantity = '||to_char(x_match_quantity));
1735: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1731: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1732: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1733: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1734: ||', Match Quantity = '||to_char(x_match_quantity));
1735: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1736: END IF;
1737: APP_EXCEPTION.RAISE_EXCEPTION;
1738:
1739: END Get_Total_Proration_Quantity;
2490: g_max_invoice_line_number := g_max_invoice_line_number + 1;
2491:
2492: EXCEPTION WHEN OTHERS THEN
2493: IF (SQLCODE <> -20001) THEN
2494: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2495: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2496: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2497: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2498: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2491:
2492: EXCEPTION WHEN OTHERS THEN
2493: IF (SQLCODE <> -20001) THEN
2494: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2495: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2496: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2497: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2498: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2499: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2492: EXCEPTION WHEN OTHERS THEN
2493: IF (SQLCODE <> -20001) THEN
2494: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2495: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2496: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2497: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2498: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2499: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2500: ||', Project Id = '||to_char(g_project_id)
2493: IF (SQLCODE <> -20001) THEN
2494: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2495: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2496: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2497: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2498: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2499: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2500: ||', Project Id = '||to_char(g_project_id)
2501: ||', Task_Id ='||to_char(g_task_id)
2500: ||', Project Id = '||to_char(g_project_id)
2501: ||', Task_Id ='||to_char(g_task_id)
2502: ||', Expenditure Type ='||g_expenditure_type
2503: ||', Expenditure_Organization_id ='||to_char(g_expenditure_organization_id));
2504: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2505: END IF;
2506: APP_EXCEPTION.RAISE_EXCEPTION;
2507:
2508: END Insert_Invoice_Line;
2916: EXCEPTION
2917: WHEN OTHERS THEN
2918:
2919: IF (SQLCODE <> -20001) THEN
2920: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2921: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2922: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2923: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2924: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2917: WHEN OTHERS THEN
2918:
2919: IF (SQLCODE <> -20001) THEN
2920: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2921: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2922: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2923: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2924: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2925: ||', Invoice Line Number = '||X_Invoice_Line_Number
2918:
2919: IF (SQLCODE <> -20001) THEN
2920: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2921: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2922: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2923: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2924: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2925: ||', Invoice Line Number = '||X_Invoice_Line_Number
2926: ||', Dist_num = '||l_distribution_line_number
2919: IF (SQLCODE <> -20001) THEN
2920: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2921: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2922: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2923: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
2924: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
2925: ||', Invoice Line Number = '||X_Invoice_Line_Number
2926: ||', Dist_num = '||l_distribution_line_number
2927: ||', Allow_PA_Override = '||g_allow_pa_override
2925: ||', Invoice Line Number = '||X_Invoice_Line_Number
2926: ||', Dist_num = '||l_distribution_line_number
2927: ||', Allow_PA_Override = '||g_allow_pa_override
2928: ||', Transfer_Desc_Flag = '||g_Transfer_Flag);
2929: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2930: END IF;
2931:
2932: --Clean up the PL/SQL table
2933: x_dist_tab.delete;
3074:
3075: EXCEPTION
3076: WHEN OTHERS THEN
3077: IF (SQLCODE <> -20001) THEN
3078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3081: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3082: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3075: EXCEPTION
3076: WHEN OTHERS THEN
3077: IF (SQLCODE <> -20001) THEN
3078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3081: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3082: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3083: ||', UOM= '||X_uom_lookup_code);
3076: WHEN OTHERS THEN
3077: IF (SQLCODE <> -20001) THEN
3078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3081: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3082: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3083: ||', UOM= '||X_uom_lookup_code);
3084: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3077: IF (SQLCODE <> -20001) THEN
3078: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3079: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3081: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3082: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3083: ||', UOM= '||X_uom_lookup_code);
3084: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3085: END IF;
3080: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3081: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3082: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3083: ||', UOM= '||X_uom_lookup_code);
3084: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3085: END IF;
3086: APP_EXCEPTION.RAISE_EXCEPTION;
3087:
3088: END Update_PO_Shipments_Dists;
3127:
3128: EXCEPTION
3129: WHEN OTHERS THEN
3130: IF (SQLCODE <> -20001) THEN
3131: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3132: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3133: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3134: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3135: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3128: EXCEPTION
3129: WHEN OTHERS THEN
3130: IF (SQLCODE <> -20001) THEN
3131: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3132: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3133: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3134: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3135: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3136: ||', Match amount = '||to_char(x_match_amount)
3129: WHEN OTHERS THEN
3130: IF (SQLCODE <> -20001) THEN
3131: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3132: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3133: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3134: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3135: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3136: ||', Match amount = '||to_char(x_match_amount)
3137: ||', Match quantity = '||to_char(x_match_quantity)
3130: IF (SQLCODE <> -20001) THEN
3131: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3132: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3133: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3134: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3135: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3136: ||', Match amount = '||to_char(x_match_amount)
3137: ||', Match quantity = '||to_char(x_match_quantity)
3138: ||', PO Uom = '||x_uom_lookup_code);
3135: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3136: ||', Match amount = '||to_char(x_match_amount)
3137: ||', Match quantity = '||to_char(x_match_quantity)
3138: ||', PO Uom = '||x_uom_lookup_code);
3139: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3140: END IF;
3141: APP_EXCEPTION.RAISE_EXCEPTION;
3142:
3143: END Update_RCV_Transaction;
3230:
3231: EXCEPTION
3232: WHEN OTHERS THEN
3233: IF (SQLCODE <> -20001) THEN
3234: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3235: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3236: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3237: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3238: ||', Freight Amount = '||to_char(x_freight_amount)
3231: EXCEPTION
3232: WHEN OTHERS THEN
3233: IF (SQLCODE <> -20001) THEN
3234: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3235: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3236: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3237: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3238: ||', Freight Amount = '||to_char(x_freight_amount)
3239: ||', Freight Description = '||x_freight_description
3232: WHEN OTHERS THEN
3233: IF (SQLCODE <> -20001) THEN
3234: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3235: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3236: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3237: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3238: ||', Freight Amount = '||to_char(x_freight_amount)
3239: ||', Freight Description = '||x_freight_description
3240: ||', Misc Amount = '||to_char(x_misc_amount)
3233: IF (SQLCODE <> -20001) THEN
3234: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3235: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3236: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3237: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3238: ||', Freight Amount = '||to_char(x_freight_amount)
3239: ||', Freight Description = '||x_freight_description
3240: ||', Misc Amount = '||to_char(x_misc_amount)
3241: ||', Misc Description = '||x_misc_description
3247: ||', Base Currency Code = '||g_base_currency_code
3248: ||', Income Tax Region = '||g_income_tax_region
3249: ||', Awt Group Id = '||g_awt_group_id
3250: ||', Transfer Flag = '||g_transfer_flag);
3251: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3252: END IF;
3253: APP_EXCEPTION.RAISE_EXCEPTION;
3254:
3255: END Create_Charge_Lines;
3500:
3501: EXCEPTION
3502: WHEN others then
3503: If (SQLCODE <> -20001) Then
3504: fnd_message.set_name('SQLAP','AP_DEBUG');
3505: fnd_message.set_token('ERROR',SQLERRM);
3506: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3507: fnd_message.set_token('PARAMETERS',
3508: ' invoice_id = '||to_char(x_invoice_id)
3501: EXCEPTION
3502: WHEN others then
3503: If (SQLCODE <> -20001) Then
3504: fnd_message.set_name('SQLAP','AP_DEBUG');
3505: fnd_message.set_token('ERROR',SQLERRM);
3506: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3507: fnd_message.set_token('PARAMETERS',
3508: ' invoice_id = '||to_char(x_invoice_id)
3509: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3502: WHEN others then
3503: If (SQLCODE <> -20001) Then
3504: fnd_message.set_name('SQLAP','AP_DEBUG');
3505: fnd_message.set_token('ERROR',SQLERRM);
3506: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3507: fnd_message.set_token('PARAMETERS',
3508: ' invoice_id = '||to_char(x_invoice_id)
3509: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3510: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3503: If (SQLCODE <> -20001) Then
3504: fnd_message.set_name('SQLAP','AP_DEBUG');
3505: fnd_message.set_token('ERROR',SQLERRM);
3506: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3507: fnd_message.set_token('PARAMETERS',
3508: ' invoice_id = '||to_char(x_invoice_id)
3509: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3510: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3511: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3515: ||', correction amount = '||to_char(x_correction_amount)
3516: ||', correction price = '||to_char(x_correction_price)
3517: ||', po_line_location_id = '||to_char(x_po_line_location_id)
3518: ||', rcv_transaction_id = '||to_char(x_rcv_transaction_id));
3519: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3520: End if;
3521:
3522: --Clean up the PL/SQL table
3523: x_corr_dist_tab.delete;
3812:
3813: EXCEPTION
3814: WHEN others then
3815: If (SQLCODE <> -20001) Then
3816: fnd_message.set_name('SQLAP','AP_DEBUG');
3817: fnd_message.set_token('ERROR',SQLERRM);
3818: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3819: fnd_message.set_token('PARAMETERS',
3820: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3813: EXCEPTION
3814: WHEN others then
3815: If (SQLCODE <> -20001) Then
3816: fnd_message.set_name('SQLAP','AP_DEBUG');
3817: fnd_message.set_token('ERROR',SQLERRM);
3818: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3819: fnd_message.set_token('PARAMETERS',
3820: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3821: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3814: WHEN others then
3815: If (SQLCODE <> -20001) Then
3816: fnd_message.set_name('SQLAP','AP_DEBUG');
3817: fnd_message.set_token('ERROR',SQLERRM);
3818: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3819: fnd_message.set_token('PARAMETERS',
3820: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3821: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3822: ||', correction quantity ='||to_char(x_correction_quantity)
3815: If (SQLCODE <> -20001) Then
3816: fnd_message.set_name('SQLAP','AP_DEBUG');
3817: fnd_message.set_token('ERROR',SQLERRM);
3818: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3819: fnd_message.set_token('PARAMETERS',
3820: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3821: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3822: ||', correction quantity ='||to_char(x_correction_quantity)
3823: ||', correction amount = '||to_char(x_correction_amount)
3821: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3822: ||', correction quantity ='||to_char(x_correction_quantity)
3823: ||', correction amount = '||to_char(x_correction_amount)
3824: ||', correction type = '||x_correction_type);
3825: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3826: End if;
3827:
3828: --Clean up the PL/SQL table
3829: x_corr_dist_tab.delete;
3970:
3971: EXCEPTION
3972: WHEN others then
3973: If (SQLCODE <> -20001) Then
3974: fnd_message.set_name('SQLAP','AP_DEBUG');
3975: fnd_message.set_token('ERROR',SQLERRM);
3976: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3977: fnd_message.set_token('PARAMETERS',
3978: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
3971: EXCEPTION
3972: WHEN others then
3973: If (SQLCODE <> -20001) Then
3974: fnd_message.set_name('SQLAP','AP_DEBUG');
3975: fnd_message.set_token('ERROR',SQLERRM);
3976: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3977: fnd_message.set_token('PARAMETERS',
3978: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
3979: ||', correction_type = '||x_correction_type);
3972: WHEN others then
3973: If (SQLCODE <> -20001) Then
3974: fnd_message.set_name('SQLAP','AP_DEBUG');
3975: fnd_message.set_token('ERROR',SQLERRM);
3976: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3977: fnd_message.set_token('PARAMETERS',
3978: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
3979: ||', correction_type = '||x_correction_type);
3980: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3973: If (SQLCODE <> -20001) Then
3974: fnd_message.set_name('SQLAP','AP_DEBUG');
3975: fnd_message.set_token('ERROR',SQLERRM);
3976: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3977: fnd_message.set_token('PARAMETERS',
3978: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
3979: ||', correction_type = '||x_correction_type);
3980: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3981: End if;
3976: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3977: fnd_message.set_token('PARAMETERS',
3978: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
3979: ||', correction_type = '||x_correction_type);
3980: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3981: End if;
3982: app_exception.raise_exception;
3983:
3984: END Update_Corr_Po_Shipments_Dists;
4329:
4330: EXCEPTION
4331: WHEN others then
4332: If (SQLCODE <> -20001) Then
4333: fnd_message.set_name('SQLAP','AP_DEBUG');
4334: fnd_message.set_token('ERROR',SQLERRM);
4335: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4336: fnd_message.set_token('PARAMETERS',
4337: ' invoice_id = '||to_char(x_invoice_id)
4330: EXCEPTION
4331: WHEN others then
4332: If (SQLCODE <> -20001) Then
4333: fnd_message.set_name('SQLAP','AP_DEBUG');
4334: fnd_message.set_token('ERROR',SQLERRM);
4335: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4336: fnd_message.set_token('PARAMETERS',
4337: ' invoice_id = '||to_char(x_invoice_id)
4338: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4331: WHEN others then
4332: If (SQLCODE <> -20001) Then
4333: fnd_message.set_name('SQLAP','AP_DEBUG');
4334: fnd_message.set_token('ERROR',SQLERRM);
4335: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4336: fnd_message.set_token('PARAMETERS',
4337: ' invoice_id = '||to_char(x_invoice_id)
4338: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4339: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4332: If (SQLCODE <> -20001) Then
4333: fnd_message.set_name('SQLAP','AP_DEBUG');
4334: fnd_message.set_token('ERROR',SQLERRM);
4335: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4336: fnd_message.set_token('PARAMETERS',
4337: ' invoice_id = '||to_char(x_invoice_id)
4338: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4339: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4340: ||', corrected_line_number = '||to_char(x_corrected_line_number)
4342: ||', amount = '||to_char(x_amount)
4343: ||', unit_price = '||to_char(x_unit_price)
4344: ||', correction_type = '||x_correction_type
4345: ||', po_distribution_id = '||to_char(x_po_distribution_id));
4346: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4347: End if;
4348: app_exception.raise_exception;
4349:
4350: END Insert_Corr_Invoice_Line;
4732:
4733: EXCEPTION
4734: WHEN others then
4735: If (SQLCODE <> -20001) Then
4736: fnd_message.set_name('SQLAP','AP_DEBUG');
4737: fnd_message.set_token('ERROR',SQLERRM);
4738: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4739: fnd_message.set_token('PARAMETERS',
4740: ' invoice_id = '||to_char(x_invoice_id)
4733: EXCEPTION
4734: WHEN others then
4735: If (SQLCODE <> -20001) Then
4736: fnd_message.set_name('SQLAP','AP_DEBUG');
4737: fnd_message.set_token('ERROR',SQLERRM);
4738: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4739: fnd_message.set_token('PARAMETERS',
4740: ' invoice_id = '||to_char(x_invoice_id)
4741: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4734: WHEN others then
4735: If (SQLCODE <> -20001) Then
4736: fnd_message.set_name('SQLAP','AP_DEBUG');
4737: fnd_message.set_token('ERROR',SQLERRM);
4738: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4739: fnd_message.set_token('PARAMETERS',
4740: ' invoice_id = '||to_char(x_invoice_id)
4741: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4742: ||', correction_type = '||x_correction_type
4735: If (SQLCODE <> -20001) Then
4736: fnd_message.set_name('SQLAP','AP_DEBUG');
4737: fnd_message.set_token('ERROR',SQLERRM);
4738: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4739: fnd_message.set_token('PARAMETERS',
4740: ' invoice_id = '||to_char(x_invoice_id)
4741: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4742: ||', correction_type = '||x_correction_type
4743: ||', total_amount = '||to_char(x_total_amount));
4740: ' invoice_id = '||to_char(x_invoice_id)
4741: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4742: ||', correction_type = '||x_correction_type
4743: ||', total_amount = '||to_char(x_total_amount));
4744: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4745: End if;
4746:
4747: --Clean up the PL/SQL table
4748: x_corr_dist_tab.delete;