790:
791: EXCEPTION
792: WHEN OTHERS THEN
793: IF (SQLCODE <> -20001) THEN
794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
797: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
798: ||', Invoice Id = '||to_char(x_invoice_id)
791: EXCEPTION
792: WHEN OTHERS THEN
793: IF (SQLCODE <> -20001) THEN
794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
797: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
798: ||', Invoice Id = '||to_char(x_invoice_id)
799: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
792: WHEN OTHERS THEN
793: IF (SQLCODE <> -20001) THEN
794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
797: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
798: ||', Invoice Id = '||to_char(x_invoice_id)
799: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
800: ||', Shipment ID = '||to_char(x_po_line_location_id)
793: IF (SQLCODE <> -20001) THEN
794: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
795: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
796: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
797: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
798: ||', Invoice Id = '||to_char(x_invoice_id)
799: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
800: ||', Shipment ID = '||to_char(x_po_line_location_id)
801: ||', Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
805: ||', Freight Amount = '||to_char(x_freight_amount)
806: ||', Freight Description = '||x_freight_description
807: ||', Misc Amount = '||to_char(x_misc_amount)
808: ||', Misc Description = '||x_misc_description);
809: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
810: END IF;
811:
812: --Clean up the PL/SQL table
813: x_dist_tab.delete;
1028:
1029: g_accounting_date := l_accounting_date; /* Bug#8714506 */
1030:
1031: IF (g_accounting_date IS NULL) THEN
1032: fnd_message.set_name('SQLAP','AP_DISTS_NO_OPEN_FUT_PERIOD');
1033: app_exception.raise_exception;
1034: ELSE
1035: g_line_accounting_date := g_accounting_date;
1036: END IF;
1049:
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: IF (SQLCODE <> -20001) THEN
1053: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1054: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1055: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1056: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1057: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: IF (SQLCODE <> -20001) THEN
1053: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1054: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1055: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1056: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1057: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1058: END IF;
1051: WHEN OTHERS THEN
1052: IF (SQLCODE <> -20001) THEN
1053: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1054: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1055: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1056: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1057: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1058: END IF;
1059: app_exception.raise_exception;
1052: IF (SQLCODE <> -20001) THEN
1053: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1054: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1055: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1056: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1057: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1058: END IF;
1059: app_exception.raise_exception;
1060:
1053: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1054: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1055: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1056: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1057: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1058: END IF;
1059: app_exception.raise_exception;
1060:
1061: END Get_Info;
1725:
1726: EXCEPTION
1727: WHEN OTHERS THEN
1728: IF (SQLCODE <> -20001) THEN
1729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1732: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1733: ||', Match Quantity = '||x_match_quantity
1726: EXCEPTION
1727: WHEN OTHERS THEN
1728: IF (SQLCODE <> -20001) THEN
1729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1732: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1733: ||', Match Quantity = '||x_match_quantity
1734: ||', Match Amount = '||x_match_amount
1727: WHEN OTHERS THEN
1728: IF (SQLCODE <> -20001) THEN
1729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1732: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1733: ||', Match Quantity = '||x_match_quantity
1734: ||', Match Amount = '||x_match_amount
1735: ||', Exchange Rate = '||g_exchange_rate
1728: IF (SQLCODE <> -20001) THEN
1729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1732: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1733: ||', Match Quantity = '||x_match_quantity
1734: ||', Match Amount = '||x_match_amount
1735: ||', Exchange Rate = '||g_exchange_rate
1736: ||', Base Currency = '||g_base_currency_code
1734: ||', Match Amount = '||x_match_amount
1735: ||', Exchange Rate = '||g_exchange_rate
1736: ||', Base Currency = '||g_base_currency_code
1737: );
1738: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1739: END IF;
1740:
1741: --Clean up the PL/SQL table
1742: x_dist_tab.delete;
1866:
1867: EXCEPTION
1868: WHEN OTHERS THEN
1869: IF (SQLCODE <> -20001) THEN
1870: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1871: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1872: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1873: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1874: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1867: EXCEPTION
1868: WHEN OTHERS THEN
1869: IF (SQLCODE <> -20001) THEN
1870: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1871: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1872: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1873: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1874: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1875: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1868: WHEN OTHERS THEN
1869: IF (SQLCODE <> -20001) THEN
1870: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1871: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1872: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1873: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1874: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1875: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1876: ||', Match Quantity = '||to_char(x_match_quantity));
1869: IF (SQLCODE <> -20001) THEN
1870: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1871: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1872: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1873: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1874: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1875: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1876: ||', Match Quantity = '||to_char(x_match_quantity));
1877: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1873: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Option = '||g_match_option
1874: ||', Shipment_id = '||to_char(X_PO_Line_Location_id)
1875: ||', Rcv Transaction Id = '||to_char(x_rcv_transaction_id)
1876: ||', Match Quantity = '||to_char(x_match_quantity));
1877: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1878: END IF;
1879: APP_EXCEPTION.RAISE_EXCEPTION;
1880:
1881: END Get_Total_Proration_Quantity;
2668: g_max_invoice_line_number := g_max_invoice_line_number + 1;
2669:
2670: EXCEPTION WHEN OTHERS THEN
2671: IF (SQLCODE <> -20001) THEN
2672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2675: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2676: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2669:
2670: EXCEPTION WHEN OTHERS THEN
2671: IF (SQLCODE <> -20001) THEN
2672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2675: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2676: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2677: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2670: EXCEPTION WHEN OTHERS THEN
2671: IF (SQLCODE <> -20001) THEN
2672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2675: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2676: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2677: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2678: ||', Project Id = '||to_char(g_project_id)
2671: IF (SQLCODE <> -20001) THEN
2672: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2673: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2674: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2675: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2676: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2677: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2678: ||', Project Id = '||to_char(g_project_id)
2679: ||', Task_Id ='||to_char(g_task_id)
2678: ||', Project Id = '||to_char(g_project_id)
2679: ||', Task_Id ='||to_char(g_task_id)
2680: ||', Expenditure Type ='||g_expenditure_type
2681: ||', Expenditure_Organization_id ='||to_char(g_expenditure_organization_id));
2682: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2683: END IF;
2684: APP_EXCEPTION.RAISE_EXCEPTION;
2685:
2686: END Insert_Invoice_Line;
3124: EXCEPTION
3125: WHEN OTHERS THEN
3126:
3127: IF (SQLCODE <> -20001) THEN
3128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3129: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3131: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3132: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3125: WHEN OTHERS THEN
3126:
3127: IF (SQLCODE <> -20001) THEN
3128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3129: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3131: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3132: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3133: ||', Invoice Line Number = '||X_Invoice_Line_Number
3126:
3127: IF (SQLCODE <> -20001) THEN
3128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3129: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3131: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3132: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3133: ||', Invoice Line Number = '||X_Invoice_Line_Number
3134: ||', Dist_num = '||l_distribution_line_number
3127: IF (SQLCODE <> -20001) THEN
3128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3129: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3131: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3132: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3133: ||', Invoice Line Number = '||X_Invoice_Line_Number
3134: ||', Dist_num = '||l_distribution_line_number
3135: ||', Allow_PA_Override = '||g_allow_pa_override
3133: ||', Invoice Line Number = '||X_Invoice_Line_Number
3134: ||', Dist_num = '||l_distribution_line_number
3135: ||', Allow_PA_Override = '||g_allow_pa_override
3136: ||', Transfer_Desc_Flag = '||g_Transfer_Flag);
3137: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3138: END IF;
3139:
3140: --Clean up the PL/SQL table
3141: x_dist_tab.delete;
3282:
3283: EXCEPTION
3284: WHEN OTHERS THEN
3285: IF (SQLCODE <> -20001) THEN
3286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3290: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3283: EXCEPTION
3284: WHEN OTHERS THEN
3285: IF (SQLCODE <> -20001) THEN
3286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3290: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3291: ||', UOM= '||X_uom_lookup_code);
3284: WHEN OTHERS THEN
3285: IF (SQLCODE <> -20001) THEN
3286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3290: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3291: ||', UOM= '||X_uom_lookup_code);
3292: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3285: IF (SQLCODE <> -20001) THEN
3286: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3287: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3290: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3291: ||', UOM= '||X_uom_lookup_code);
3292: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3293: END IF;
3288: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3289: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3290: 'PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3291: ||', UOM= '||X_uom_lookup_code);
3292: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3293: END IF;
3294: APP_EXCEPTION.RAISE_EXCEPTION;
3295:
3296: END Update_PO_Shipments_Dists;
3335:
3336: EXCEPTION
3337: WHEN OTHERS THEN
3338: IF (SQLCODE <> -20001) THEN
3339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3342: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3343: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3336: EXCEPTION
3337: WHEN OTHERS THEN
3338: IF (SQLCODE <> -20001) THEN
3339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3342: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3343: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3344: ||', Match amount = '||to_char(x_match_amount)
3337: WHEN OTHERS THEN
3338: IF (SQLCODE <> -20001) THEN
3339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3342: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3343: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3344: ||', Match amount = '||to_char(x_match_amount)
3345: ||', Match quantity = '||to_char(x_match_quantity)
3338: IF (SQLCODE <> -20001) THEN
3339: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3340: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3341: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3342: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3343: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3344: ||', Match amount = '||to_char(x_match_amount)
3345: ||', Match quantity = '||to_char(x_match_quantity)
3346: ||', PO Uom = '||x_uom_lookup_code);
3343: 'Rcv Transaction ID = '||TO_CHAR(X_Rcv_Transaction_id)
3344: ||', Match amount = '||to_char(x_match_amount)
3345: ||', Match quantity = '||to_char(x_match_quantity)
3346: ||', PO Uom = '||x_uom_lookup_code);
3347: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3348: END IF;
3349: APP_EXCEPTION.RAISE_EXCEPTION;
3350:
3351: END Update_RCV_Transaction;
3438:
3439: EXCEPTION
3440: WHEN OTHERS THEN
3441: IF (SQLCODE <> -20001) THEN
3442: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3443: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3444: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3445: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3446: ||', Freight Amount = '||to_char(x_freight_amount)
3439: EXCEPTION
3440: WHEN OTHERS THEN
3441: IF (SQLCODE <> -20001) THEN
3442: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3443: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3444: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3445: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3446: ||', Freight Amount = '||to_char(x_freight_amount)
3447: ||', Freight Description = '||x_freight_description
3440: WHEN OTHERS THEN
3441: IF (SQLCODE <> -20001) THEN
3442: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3443: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3444: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3445: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3446: ||', Freight Amount = '||to_char(x_freight_amount)
3447: ||', Freight Description = '||x_freight_description
3448: ||', Misc Amount = '||to_char(x_misc_amount)
3441: IF (SQLCODE <> -20001) THEN
3442: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3443: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3444: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3445: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_Id)
3446: ||', Freight Amount = '||to_char(x_freight_amount)
3447: ||', Freight Description = '||x_freight_description
3448: ||', Misc Amount = '||to_char(x_misc_amount)
3449: ||', Misc Description = '||x_misc_description
3456: ||', Income Tax Region = '||g_income_tax_region
3457: ||', Awt Group Id = '||g_awt_group_id
3458: ||', Transfer Flag = '||g_transfer_flag
3459: ||', Pay Awt Group Id = '||g_pay_awt_group_id);
3460: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3461: END IF;
3462: APP_EXCEPTION.RAISE_EXCEPTION;
3463:
3464: END Create_Charge_Lines;
3709:
3710: EXCEPTION
3711: WHEN others then
3712: If (SQLCODE <> -20001) Then
3713: fnd_message.set_name('SQLAP','AP_DEBUG');
3714: fnd_message.set_token('ERROR',SQLERRM);
3715: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3716: fnd_message.set_token('PARAMETERS',
3717: ' invoice_id = '||to_char(x_invoice_id)
3710: EXCEPTION
3711: WHEN others then
3712: If (SQLCODE <> -20001) Then
3713: fnd_message.set_name('SQLAP','AP_DEBUG');
3714: fnd_message.set_token('ERROR',SQLERRM);
3715: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3716: fnd_message.set_token('PARAMETERS',
3717: ' invoice_id = '||to_char(x_invoice_id)
3718: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3711: WHEN others then
3712: If (SQLCODE <> -20001) Then
3713: fnd_message.set_name('SQLAP','AP_DEBUG');
3714: fnd_message.set_token('ERROR',SQLERRM);
3715: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3716: fnd_message.set_token('PARAMETERS',
3717: ' invoice_id = '||to_char(x_invoice_id)
3718: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3719: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3712: If (SQLCODE <> -20001) Then
3713: fnd_message.set_name('SQLAP','AP_DEBUG');
3714: fnd_message.set_token('ERROR',SQLERRM);
3715: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3716: fnd_message.set_token('PARAMETERS',
3717: ' invoice_id = '||to_char(x_invoice_id)
3718: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3719: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3720: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3724: ||', correction amount = '||to_char(x_correction_amount)
3725: ||', correction price = '||to_char(x_correction_price)
3726: ||', po_line_location_id = '||to_char(x_po_line_location_id)
3727: ||', rcv_transaction_id = '||to_char(x_rcv_transaction_id));
3728: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3729: End if;
3730:
3731: --Clean up the PL/SQL table
3732: x_corr_dist_tab.delete;
4031:
4032: EXCEPTION
4033: WHEN others then
4034: If (SQLCODE <> -20001) Then
4035: fnd_message.set_name('SQLAP','AP_DEBUG');
4036: fnd_message.set_token('ERROR',SQLERRM);
4037: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4038: fnd_message.set_token('PARAMETERS',
4039: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4032: EXCEPTION
4033: WHEN others then
4034: If (SQLCODE <> -20001) Then
4035: fnd_message.set_name('SQLAP','AP_DEBUG');
4036: fnd_message.set_token('ERROR',SQLERRM);
4037: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4038: fnd_message.set_token('PARAMETERS',
4039: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4040: ||', corrected_line_number = '||to_char(x_corrected_line_number)
4033: WHEN others then
4034: If (SQLCODE <> -20001) Then
4035: fnd_message.set_name('SQLAP','AP_DEBUG');
4036: fnd_message.set_token('ERROR',SQLERRM);
4037: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4038: fnd_message.set_token('PARAMETERS',
4039: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4040: ||', corrected_line_number = '||to_char(x_corrected_line_number)
4041: ||', correction quantity ='||to_char(x_correction_quantity)
4034: If (SQLCODE <> -20001) Then
4035: fnd_message.set_name('SQLAP','AP_DEBUG');
4036: fnd_message.set_token('ERROR',SQLERRM);
4037: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4038: fnd_message.set_token('PARAMETERS',
4039: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4040: ||', corrected_line_number = '||to_char(x_corrected_line_number)
4041: ||', correction quantity ='||to_char(x_correction_quantity)
4042: ||', correction amount = '||to_char(x_correction_amount)
4040: ||', corrected_line_number = '||to_char(x_corrected_line_number)
4041: ||', correction quantity ='||to_char(x_correction_quantity)
4042: ||', correction amount = '||to_char(x_correction_amount)
4043: ||', correction type = '||x_correction_type);
4044: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4045: End if;
4046:
4047: --Clean up the PL/SQL table
4048: x_corr_dist_tab.delete;
4189:
4190: EXCEPTION
4191: WHEN others then
4192: If (SQLCODE <> -20001) Then
4193: fnd_message.set_name('SQLAP','AP_DEBUG');
4194: fnd_message.set_token('ERROR',SQLERRM);
4195: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4196: fnd_message.set_token('PARAMETERS',
4197: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4190: EXCEPTION
4191: WHEN others then
4192: If (SQLCODE <> -20001) Then
4193: fnd_message.set_name('SQLAP','AP_DEBUG');
4194: fnd_message.set_token('ERROR',SQLERRM);
4195: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4196: fnd_message.set_token('PARAMETERS',
4197: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4198: ||', correction_type = '||x_correction_type);
4191: WHEN others then
4192: If (SQLCODE <> -20001) Then
4193: fnd_message.set_name('SQLAP','AP_DEBUG');
4194: fnd_message.set_token('ERROR',SQLERRM);
4195: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4196: fnd_message.set_token('PARAMETERS',
4197: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4198: ||', correction_type = '||x_correction_type);
4199: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4192: If (SQLCODE <> -20001) Then
4193: fnd_message.set_name('SQLAP','AP_DEBUG');
4194: fnd_message.set_token('ERROR',SQLERRM);
4195: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4196: fnd_message.set_token('PARAMETERS',
4197: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4198: ||', correction_type = '||x_correction_type);
4199: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4200: End if;
4195: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4196: fnd_message.set_token('PARAMETERS',
4197: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4198: ||', correction_type = '||x_correction_type);
4199: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4200: End if;
4201: app_exception.raise_exception;
4202:
4203: END Update_Corr_Po_Shipments_Dists;
4552:
4553: EXCEPTION
4554: WHEN others then
4555: If (SQLCODE <> -20001) Then
4556: fnd_message.set_name('SQLAP','AP_DEBUG');
4557: fnd_message.set_token('ERROR',SQLERRM);
4558: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4559: fnd_message.set_token('PARAMETERS',
4560: ' invoice_id = '||to_char(x_invoice_id)
4553: EXCEPTION
4554: WHEN others then
4555: If (SQLCODE <> -20001) Then
4556: fnd_message.set_name('SQLAP','AP_DEBUG');
4557: fnd_message.set_token('ERROR',SQLERRM);
4558: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4559: fnd_message.set_token('PARAMETERS',
4560: ' invoice_id = '||to_char(x_invoice_id)
4561: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4554: WHEN others then
4555: If (SQLCODE <> -20001) Then
4556: fnd_message.set_name('SQLAP','AP_DEBUG');
4557: fnd_message.set_token('ERROR',SQLERRM);
4558: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4559: fnd_message.set_token('PARAMETERS',
4560: ' invoice_id = '||to_char(x_invoice_id)
4561: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4562: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4555: If (SQLCODE <> -20001) Then
4556: fnd_message.set_name('SQLAP','AP_DEBUG');
4557: fnd_message.set_token('ERROR',SQLERRM);
4558: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4559: fnd_message.set_token('PARAMETERS',
4560: ' invoice_id = '||to_char(x_invoice_id)
4561: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4562: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4563: ||', corrected_line_number = '||to_char(x_corrected_line_number)
4565: ||', amount = '||to_char(x_amount)
4566: ||', unit_price = '||to_char(x_unit_price)
4567: ||', correction_type = '||x_correction_type
4568: ||', po_distribution_id = '||to_char(x_po_distribution_id));
4569: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4570: End if;
4571: app_exception.raise_exception;
4572:
4573: END Insert_Corr_Invoice_Line;
4959:
4960: EXCEPTION
4961: WHEN others then
4962: If (SQLCODE <> -20001) Then
4963: fnd_message.set_name('SQLAP','AP_DEBUG');
4964: fnd_message.set_token('ERROR',SQLERRM);
4965: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4966: fnd_message.set_token('PARAMETERS',
4967: ' invoice_id = '||to_char(x_invoice_id)
4960: EXCEPTION
4961: WHEN others then
4962: If (SQLCODE <> -20001) Then
4963: fnd_message.set_name('SQLAP','AP_DEBUG');
4964: fnd_message.set_token('ERROR',SQLERRM);
4965: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4966: fnd_message.set_token('PARAMETERS',
4967: ' invoice_id = '||to_char(x_invoice_id)
4968: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4961: WHEN others then
4962: If (SQLCODE <> -20001) Then
4963: fnd_message.set_name('SQLAP','AP_DEBUG');
4964: fnd_message.set_token('ERROR',SQLERRM);
4965: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4966: fnd_message.set_token('PARAMETERS',
4967: ' invoice_id = '||to_char(x_invoice_id)
4968: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4969: ||', correction_type = '||x_correction_type
4962: If (SQLCODE <> -20001) Then
4963: fnd_message.set_name('SQLAP','AP_DEBUG');
4964: fnd_message.set_token('ERROR',SQLERRM);
4965: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4966: fnd_message.set_token('PARAMETERS',
4967: ' invoice_id = '||to_char(x_invoice_id)
4968: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4969: ||', correction_type = '||x_correction_type
4970: ||', total_amount = '||to_char(x_total_amount));
4967: ' invoice_id = '||to_char(x_invoice_id)
4968: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4969: ||', correction_type = '||x_correction_type
4970: ||', total_amount = '||to_char(x_total_amount));
4971: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4972: End if;
4973:
4974: --Clean up the PL/SQL table
4975: x_corr_dist_tab.delete;