773:
774: EXCEPTION
775: WHEN OTHERS THEN
776: IF (SQLCODE <> -20001) THEN
777: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
778: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
779: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
780: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
781: ||', Invoice Id = '||to_char(x_invoice_id)
774: EXCEPTION
775: WHEN OTHERS THEN
776: IF (SQLCODE <> -20001) THEN
777: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
778: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
779: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
780: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
781: ||', Invoice Id = '||to_char(x_invoice_id)
782: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
775: WHEN OTHERS THEN
776: IF (SQLCODE <> -20001) THEN
777: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
778: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
779: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
780: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
781: ||', Invoice Id = '||to_char(x_invoice_id)
782: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
783: ||', Shipment ID = '||to_char(x_po_line_location_id)
776: IF (SQLCODE <> -20001) THEN
777: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
778: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
779: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
780: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match Mode = '||x_match_mode
781: ||', Invoice Id = '||to_char(x_invoice_id)
782: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
783: ||', Shipment ID = '||to_char(x_po_line_location_id)
784: ||', Match amount = '||to_char(x_amount)
789: ||', Freight Amount = '||to_char(x_freight_amount)
790: ||', Freight Description = '||x_freight_description
791: ||', Misc Amount = '||to_char(x_misc_amount)
792: ||', Misc Description = '||x_misc_description);
793: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
794: END IF;
795:
796: --Clean up the PL/SQL table
797: X_DIST_TAB.DELETE;
1025: --any period.
1026:
1027: IF g_recurring_payment_id is null THEN --Bug 7305223
1028: IF (g_accounting_date IS NULL) THEN
1029: fnd_message.set_name('SQLAP','AP_DISTS_NO_OPEN_FUT_PERIOD');
1030: app_exception.raise_exception;
1031: ELSE
1032: g_line_accounting_date := g_accounting_date;
1033: END IF;
1053:
1054: EXCEPTION
1055: WHEN OTHERS THEN
1056: IF (SQLCODE <> -20001) THEN
1057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1058: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1060: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1054: EXCEPTION
1055: WHEN OTHERS THEN
1056: IF (SQLCODE <> -20001) THEN
1057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1058: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1060: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1062: END IF;
1055: WHEN OTHERS THEN
1056: IF (SQLCODE <> -20001) THEN
1057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1058: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1060: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1062: END IF;
1063: app_exception.raise_exception;
1056: IF (SQLCODE <> -20001) THEN
1057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1058: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1060: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1062: END IF;
1063: app_exception.raise_exception;
1064:
1057: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1058: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1059: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1060: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id));
1061: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1062: END IF;
1063: app_exception.raise_exception;
1064:
1065: END Get_Info;
1656: EXCEPTION
1657:
1658: WHEN OTHERS THEN
1659: IF (SQLCODE <> -20001) THEN
1660: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1661: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1662: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1663: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1664: ||', Match_mode = '||X_match_mode
1657:
1658: WHEN OTHERS THEN
1659: IF (SQLCODE <> -20001) THEN
1660: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1661: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1662: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1663: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1664: ||', Match_mode = '||X_match_mode
1665: ||', Match Quantity = '||x_match_quantity
1658: WHEN OTHERS THEN
1659: IF (SQLCODE <> -20001) THEN
1660: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1661: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1662: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1663: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1664: ||', Match_mode = '||X_match_mode
1665: ||', Match Quantity = '||x_match_quantity
1666: ||', Match Amount = '||x_match_amount
1659: IF (SQLCODE <> -20001) THEN
1660: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1661: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1662: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1663: FND_MESSAGE.SET_TOKEN('PARAMETERS','Shipment id '||to_char(x_po_line_location_id)
1664: ||', Match_mode = '||X_match_mode
1665: ||', Match Quantity = '||x_match_quantity
1666: ||', Match Amount = '||x_match_amount
1667: ||', Exchange Rate = '||g_exchange_rate
1666: ||', Match Amount = '||x_match_amount
1667: ||', Exchange Rate = '||g_exchange_rate
1668: ||', Base Currency = '||g_base_currency_code
1669: ||', Overbill = '||X_overbill_flag);
1670: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1671: END IF;
1672: APP_EXCEPTION.RAISE_EXCEPTION;
1673:
1674: END Get_Dist_Proration_Info;
1760:
1761: EXCEPTION
1762: WHEN OTHERS THEN
1763: IF (SQLCODE <> -20001) THEN
1764: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1765: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1766: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1767: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match_mode = '||X_match_mode
1768: ||', Shipment_id = '||TO_CHAR(X_PO_Line_Location_id)
1761: EXCEPTION
1762: WHEN OTHERS THEN
1763: IF (SQLCODE <> -20001) THEN
1764: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1765: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1766: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1767: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match_mode = '||X_match_mode
1768: ||', Shipment_id = '||TO_CHAR(X_PO_Line_Location_id)
1769: ||', Overbill = '||X_overbill_flag);
1762: WHEN OTHERS THEN
1763: IF (SQLCODE <> -20001) THEN
1764: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1765: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1766: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1767: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match_mode = '||X_match_mode
1768: ||', Shipment_id = '||TO_CHAR(X_PO_Line_Location_id)
1769: ||', Overbill = '||X_overbill_flag);
1770: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1763: IF (SQLCODE <> -20001) THEN
1764: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1765: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1766: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1767: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match_mode = '||X_match_mode
1768: ||', Shipment_id = '||TO_CHAR(X_PO_Line_Location_id)
1769: ||', Overbill = '||X_overbill_flag);
1770: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1771: END IF;
1766: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1767: FND_MESSAGE.SET_TOKEN('PARAMETERS','Match_mode = '||X_match_mode
1768: ||', Shipment_id = '||TO_CHAR(X_PO_Line_Location_id)
1769: ||', Overbill = '||X_overbill_flag);
1770: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1771: END IF;
1772: APP_EXCEPTION.RAISE_EXCEPTION;
1773:
1774: END Get_Total_Proration_Quantity;
2568:
2569:
2570: EXCEPTION WHEN OTHERS THEN
2571: IF (SQLCODE <> -20001) THEN
2572: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2573: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2574: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2575: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2576: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2569:
2570: EXCEPTION WHEN OTHERS THEN
2571: IF (SQLCODE <> -20001) THEN
2572: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2573: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2574: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2575: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2576: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2577: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2570: EXCEPTION WHEN OTHERS THEN
2571: IF (SQLCODE <> -20001) THEN
2572: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2573: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2574: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2575: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2576: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2577: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2578: ||', Project Id = '||to_char(g_project_id)
2571: IF (SQLCODE <> -20001) THEN
2572: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2573: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2574: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2575: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice_Id = '||to_char(x_invoice_id)
2576: ||', Invoice Line Number = '||to_char(x_invoice_line_number)
2577: ||', PO Distribution Id = '||to_char(x_po_distribution_id)
2578: ||', Project Id = '||to_char(g_project_id)
2579: ||', Task_Id ='||to_char(g_task_id)
2578: ||', Project Id = '||to_char(g_project_id)
2579: ||', Task_Id ='||to_char(g_task_id)
2580: ||', Expenditure Type ='||g_expenditure_type
2581: ||', Expenditure_Organization_id ='||to_char(g_expenditure_organization_id));
2582: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2583: END IF;
2584: APP_EXCEPTION.RAISE_EXCEPTION;
2585:
2586: END Insert_Invoice_Line;
3021: EXCEPTION
3022: WHEN OTHERS THEN
3023:
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3029: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3022: WHEN OTHERS THEN
3023:
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3029: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3030: ||', Invoice Line Number = '||X_Invoice_Line_Number
3023:
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3029: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3030: ||', Invoice Line Number = '||X_Invoice_Line_Number
3031: ||', Dist_num = '||l_distribution_line_number
3024: IF (SQLCODE <> -20001) THEN
3025: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3026: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3027: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3028: FND_MESSAGE.SET_TOKEN('PARAMETERS','Batch_Id = '||TO_CHAR(g_Batch_Id)
3029: ||', Invoice_id = '||TO_CHAR(X_invoice_id)
3030: ||', Invoice Line Number = '||X_Invoice_Line_Number
3031: ||', Dist_num = '||l_distribution_line_number
3032: ||', Allow_PA_Override = '||g_allow_pa_override
3030: ||', Invoice Line Number = '||X_Invoice_Line_Number
3031: ||', Dist_num = '||l_distribution_line_number
3032: ||', Allow_PA_Override = '||g_allow_pa_override
3033: ||', Transfer_Desc_Flag = '||g_Transfer_Flag);
3034: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3035: END IF;
3036: --Clean up the PL/SQL table
3037: X_DIST_TAB.DELETE;
3038:
3171:
3172: EXCEPTION
3173: WHEN OTHERS THEN
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3179: ||', UOM= '||X_uom_lookup_code);
3172: EXCEPTION
3173: WHEN OTHERS THEN
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3179: ||', UOM= '||X_uom_lookup_code);
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3173: WHEN OTHERS THEN
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3179: ||', UOM= '||X_uom_lookup_code);
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3181: END IF;
3174: IF (SQLCODE <> -20001) THEN
3175: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3179: ||', UOM= '||X_uom_lookup_code);
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3181: END IF;
3182:
3176: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3177: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
3178: FND_MESSAGE.SET_TOKEN('PARAMETERS','PO Distribution Id = '||TO_CHAR(X_Dist_tab(i).po_distribution_id)
3179: ||', UOM= '||X_uom_lookup_code);
3180: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3181: END IF;
3182:
3183: --Clean up the PL/SQL table
3184: 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','Invoice Id = '||to_char(X_Invoice_Id)
3290: ||', Freight Amount = '||to_char(x_freight_amount)
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','Invoice Id = '||to_char(X_Invoice_Id)
3290: ||', Freight Amount = '||to_char(x_freight_amount)
3291: ||', Freight Description = '||x_freight_description
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','Invoice Id = '||to_char(X_Invoice_Id)
3290: ||', Freight Amount = '||to_char(x_freight_amount)
3291: ||', Freight Description = '||x_freight_description
3292: ||', Misc Amount = '||to_char(x_misc_amount)
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','Invoice Id = '||to_char(X_Invoice_Id)
3290: ||', Freight Amount = '||to_char(x_freight_amount)
3291: ||', Freight Description = '||x_freight_description
3292: ||', Misc Amount = '||to_char(x_misc_amount)
3293: ||', Misc Description = '||x_misc_description
3300: ||', Income Tax Region = '||g_income_tax_region
3301: ||', Awt Group Id = '||g_awt_group_id
3302: ||', Transfer Flag = '||g_transfer_flag
3303: ||', Pay Awt Group Id = '||g_pay_awt_group_id); --bug 8222382
3304: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3305: END IF;
3306: APP_EXCEPTION.RAISE_EXCEPTION;
3307:
3308: END Create_Charge_Lines;
3566:
3567: EXCEPTION
3568: WHEN others then
3569: If (SQLCODE <> -20001) Then
3570: fnd_message.set_name('SQLAP','AP_DEBUG');
3571: fnd_message.set_token('ERROR',SQLERRM);
3572: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3573: fnd_message.set_token('PARAMETERS',
3574: ' invoice_id = '||to_char(x_invoice_id)
3567: EXCEPTION
3568: WHEN others then
3569: If (SQLCODE <> -20001) Then
3570: fnd_message.set_name('SQLAP','AP_DEBUG');
3571: fnd_message.set_token('ERROR',SQLERRM);
3572: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3573: fnd_message.set_token('PARAMETERS',
3574: ' invoice_id = '||to_char(x_invoice_id)
3575: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3568: WHEN others then
3569: If (SQLCODE <> -20001) Then
3570: fnd_message.set_name('SQLAP','AP_DEBUG');
3571: fnd_message.set_token('ERROR',SQLERRM);
3572: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3573: fnd_message.set_token('PARAMETERS',
3574: ' invoice_id = '||to_char(x_invoice_id)
3575: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3576: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3569: If (SQLCODE <> -20001) Then
3570: fnd_message.set_name('SQLAP','AP_DEBUG');
3571: fnd_message.set_token('ERROR',SQLERRM);
3572: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3573: fnd_message.set_token('PARAMETERS',
3574: ' invoice_id = '||to_char(x_invoice_id)
3575: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
3576: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3577: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3581: ||', correction amount = '||to_char(x_correction_amount)
3582: ||', correction price = '||to_char(x_correction_price)
3583: ||', final_match_flag = '||x_final_match_flag
3584: ||', po_line_location_id = '||to_char(x_po_line_location_id));
3585: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3586: End if;
3587:
3588: --Clean up the PL/SQL tables
3589: x_corr_dist_tab.delete;
3906:
3907: EXCEPTION
3908: WHEN others then
3909: If (SQLCODE <> -20001) Then
3910: fnd_message.set_name('SQLAP','AP_DEBUG');
3911: fnd_message.set_token('ERROR',SQLERRM);
3912: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3913: fnd_message.set_token('PARAMETERS',
3914: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3907: EXCEPTION
3908: WHEN others then
3909: If (SQLCODE <> -20001) Then
3910: fnd_message.set_name('SQLAP','AP_DEBUG');
3911: fnd_message.set_token('ERROR',SQLERRM);
3912: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3913: fnd_message.set_token('PARAMETERS',
3914: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3915: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3908: WHEN others then
3909: If (SQLCODE <> -20001) Then
3910: fnd_message.set_name('SQLAP','AP_DEBUG');
3911: fnd_message.set_token('ERROR',SQLERRM);
3912: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3913: fnd_message.set_token('PARAMETERS',
3914: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3915: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3916: ||', correction quantity ='||to_char(x_correction_quantity)
3909: If (SQLCODE <> -20001) Then
3910: fnd_message.set_name('SQLAP','AP_DEBUG');
3911: fnd_message.set_token('ERROR',SQLERRM);
3912: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
3913: fnd_message.set_token('PARAMETERS',
3914: ' corrected_invoice_id = '||to_char(x_corrected_invoice_id)
3915: ||', corrected_line_number = '||to_char(x_corrected_line_number)
3916: ||', correction quantity ='||to_char(x_correction_quantity)
3917: ||', correction amount = '||to_char(x_correction_amount)
3916: ||', correction quantity ='||to_char(x_correction_quantity)
3917: ||', correction amount = '||to_char(x_correction_amount)
3918: ||', correction price = '||to_char(x_correction_price)
3919: ||', correction type = '||x_correction_type);
3920: fnd_message.set_token('DEBUG_INFO',l_debug_info);
3921: End if;
3922: --Clean up the PL/SQL tables on error
3923: x_corr_dist_tab.delete;
3924:
4064:
4065: EXCEPTION
4066: WHEN others then
4067: If (SQLCODE <> -20001) Then
4068: fnd_message.set_name('SQLAP','AP_DEBUG');
4069: fnd_message.set_token('ERROR',SQLERRM);
4070: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4071: fnd_message.set_token('PARAMETERS',
4072: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4065: EXCEPTION
4066: WHEN others then
4067: If (SQLCODE <> -20001) Then
4068: fnd_message.set_name('SQLAP','AP_DEBUG');
4069: fnd_message.set_token('ERROR',SQLERRM);
4070: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4071: fnd_message.set_token('PARAMETERS',
4072: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4073: ||', correction_type = '||x_correction_type);
4066: WHEN others then
4067: If (SQLCODE <> -20001) Then
4068: fnd_message.set_name('SQLAP','AP_DEBUG');
4069: fnd_message.set_token('ERROR',SQLERRM);
4070: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4071: fnd_message.set_token('PARAMETERS',
4072: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4073: ||', correction_type = '||x_correction_type);
4074: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4067: If (SQLCODE <> -20001) Then
4068: fnd_message.set_name('SQLAP','AP_DEBUG');
4069: fnd_message.set_token('ERROR',SQLERRM);
4070: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4071: fnd_message.set_token('PARAMETERS',
4072: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4073: ||', correction_type = '||x_correction_type);
4074: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4075: End if;
4070: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4071: fnd_message.set_token('PARAMETERS',
4072: ' po_distribution_id = '||to_char(x_corr_dist_tab(i).po_distribution_id)
4073: ||', correction_type = '||x_correction_type);
4074: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4075: End if;
4076:
4077: app_exception.raise_exception;
4078:
4126:
4127: EXCEPTION
4128: WHEN others then
4129: If (SQLCODE <> -20001) Then
4130: fnd_message.set_name('SQLAP','AP_DEBUG');
4131: fnd_message.set_token('ERROR',SQLERRM);
4132: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4133: fnd_message.set_token('PARAMETERS',
4134: ' po_line_location_id = '||to_char(x_po_line_location_id)
4127: EXCEPTION
4128: WHEN others then
4129: If (SQLCODE <> -20001) Then
4130: fnd_message.set_name('SQLAP','AP_DEBUG');
4131: fnd_message.set_token('ERROR',SQLERRM);
4132: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4133: fnd_message.set_token('PARAMETERS',
4134: ' po_line_location_id = '||to_char(x_po_line_location_id)
4135: ||', quantity = '|| to_char(x_quantity)
4128: WHEN others then
4129: If (SQLCODE <> -20001) Then
4130: fnd_message.set_name('SQLAP','AP_DEBUG');
4131: fnd_message.set_token('ERROR',SQLERRM);
4132: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4133: fnd_message.set_token('PARAMETERS',
4134: ' po_line_location_id = '||to_char(x_po_line_location_id)
4135: ||', quantity = '|| to_char(x_quantity)
4136: ||', amount = '|| to_char(x_amount)
4129: If (SQLCODE <> -20001) Then
4130: fnd_message.set_name('SQLAP','AP_DEBUG');
4131: fnd_message.set_token('ERROR',SQLERRM);
4132: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4133: fnd_message.set_token('PARAMETERS',
4134: ' po_line_location_id = '||to_char(x_po_line_location_id)
4135: ||', quantity = '|| to_char(x_quantity)
4136: ||', amount = '|| to_char(x_amount)
4137: ||', correction_type = '||x_correction_type);
4134: ' po_line_location_id = '||to_char(x_po_line_location_id)
4135: ||', quantity = '|| to_char(x_quantity)
4136: ||', amount = '|| to_char(x_amount)
4137: ||', correction_type = '||x_correction_type);
4138: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4139: End if;
4140: app_exception.raise_exception;
4141:
4142: END Update_Corr_Po_Line_Locations;
4503:
4504: EXCEPTION
4505: WHEN others then
4506: If (SQLCODE <> -20001) Then
4507: fnd_message.set_name('SQLAP','AP_DEBUG');
4508: fnd_message.set_token('ERROR',SQLERRM);
4509: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4510: fnd_message.set_token('PARAMETERS',
4511: ' invoice_id = '||to_char(x_invoice_id)
4504: EXCEPTION
4505: WHEN others then
4506: If (SQLCODE <> -20001) Then
4507: fnd_message.set_name('SQLAP','AP_DEBUG');
4508: fnd_message.set_token('ERROR',SQLERRM);
4509: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4510: fnd_message.set_token('PARAMETERS',
4511: ' invoice_id = '||to_char(x_invoice_id)
4512: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4505: WHEN others then
4506: If (SQLCODE <> -20001) Then
4507: fnd_message.set_name('SQLAP','AP_DEBUG');
4508: fnd_message.set_token('ERROR',SQLERRM);
4509: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4510: fnd_message.set_token('PARAMETERS',
4511: ' invoice_id = '||to_char(x_invoice_id)
4512: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4513: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4506: If (SQLCODE <> -20001) Then
4507: fnd_message.set_name('SQLAP','AP_DEBUG');
4508: fnd_message.set_token('ERROR',SQLERRM);
4509: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4510: fnd_message.set_token('PARAMETERS',
4511: ' invoice_id = '||to_char(x_invoice_id)
4512: ||', invoice_line_number = ' ||to_char(x_invoice_line_number)
4513: ||', corrected_invoice_id = '||to_char(x_corrected_invoice_id)
4514: ||', corrected_line_number = '||to_char(x_corrected_line_number)
4517: ||', unit_price = '||to_char(x_unit_price)
4518: ||', correction_type = '||x_correction_type
4519: ||', final_match_flag = '||x_final_match_flag
4520: ||', po_distribution_id = '||to_char(x_po_distribution_id));
4521: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4522: End if;
4523: app_exception.raise_exception;
4524:
4525:
4922:
4923: EXCEPTION
4924: WHEN others then
4925: If (SQLCODE <> -20001) Then
4926: fnd_message.set_name('SQLAP','AP_DEBUG');
4927: fnd_message.set_token('ERROR',SQLERRM);
4928: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4929: fnd_message.set_token('PARAMETERS',
4930: ' invoice_id = '||to_char(x_invoice_id)
4923: EXCEPTION
4924: WHEN others then
4925: If (SQLCODE <> -20001) Then
4926: fnd_message.set_name('SQLAP','AP_DEBUG');
4927: fnd_message.set_token('ERROR',SQLERRM);
4928: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4929: fnd_message.set_token('PARAMETERS',
4930: ' invoice_id = '||to_char(x_invoice_id)
4931: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4924: WHEN others then
4925: If (SQLCODE <> -20001) Then
4926: fnd_message.set_name('SQLAP','AP_DEBUG');
4927: fnd_message.set_token('ERROR',SQLERRM);
4928: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4929: fnd_message.set_token('PARAMETERS',
4930: ' invoice_id = '||to_char(x_invoice_id)
4931: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4932: ||', correction_type = '||x_correction_type
4925: If (SQLCODE <> -20001) Then
4926: fnd_message.set_name('SQLAP','AP_DEBUG');
4927: fnd_message.set_token('ERROR',SQLERRM);
4928: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
4929: fnd_message.set_token('PARAMETERS',
4930: ' invoice_id = '||to_char(x_invoice_id)
4931: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4932: ||', correction_type = '||x_correction_type
4933: ||', final_match_flag = '||x_final_match_flag
4931: ||', invoice_line_number =' ||to_char(x_invoice_line_number)
4932: ||', correction_type = '||x_correction_type
4933: ||', final_match_flag = '||x_final_match_flag
4934: ||', total_amount = '||to_char(x_total_amount));
4935: fnd_message.set_token('DEBUG_INFO',l_debug_info);
4936: End if;
4937:
4938: --Clean up the PL/SQL tables on error
4939: x_corr_dist_tab.delete;
5026:
5027: EXCEPTION
5028: WHEN others then
5029: If (SQLCODE <> -20001) Then
5030: fnd_message.set_name('SQLAP','AP_DEBUG');
5031: fnd_message.set_token('ERROR',SQLERRM);
5032: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5033: fnd_message.set_token('PARAMETERS',
5034: ' invoice_id = '||to_char(x_invoice_id)
5027: EXCEPTION
5028: WHEN others then
5029: If (SQLCODE <> -20001) Then
5030: fnd_message.set_name('SQLAP','AP_DEBUG');
5031: fnd_message.set_token('ERROR',SQLERRM);
5032: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5033: fnd_message.set_token('PARAMETERS',
5034: ' invoice_id = '||to_char(x_invoice_id)
5035: ||', Po header id = '||to_char(x_po_header_id)
5028: WHEN others then
5029: If (SQLCODE <> -20001) Then
5030: fnd_message.set_name('SQLAP','AP_DEBUG');
5031: fnd_message.set_token('ERROR',SQLERRM);
5032: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5033: fnd_message.set_token('PARAMETERS',
5034: ' invoice_id = '||to_char(x_invoice_id)
5035: ||', Po header id = '||to_char(x_po_header_id)
5036: ||', match option = '||x_match_option
5029: If (SQLCODE <> -20001) Then
5030: fnd_message.set_name('SQLAP','AP_DEBUG');
5031: fnd_message.set_token('ERROR',SQLERRM);
5032: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5033: fnd_message.set_token('PARAMETERS',
5034: ' invoice_id = '||to_char(x_invoice_id)
5035: ||', Po header id = '||to_char(x_po_header_id)
5036: ||', match option = '||x_match_option
5037: ||', invoice_amount = '||to_char(x_invoice_amount));
5034: ' invoice_id = '||to_char(x_invoice_id)
5035: ||', Po header id = '||to_char(x_po_header_id)
5036: ||', match option = '||x_match_option
5037: ||', invoice_amount = '||to_char(x_invoice_amount));
5038: fnd_message.set_token('DEBUG_INFO',l_debug_info);
5039: End if;
5040: --Clean up the PL/SQL tables on error
5041: l_shipment_table.delete;
5042:
5967:
5968: EXCEPTION
5969: WHEN others then
5970: If (SQLCODE <> -20001) Then
5971: fnd_message.set_name('SQLAP','AP_DEBUG');
5972: fnd_message.set_token('ERROR',SQLERRM);
5973: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5974: fnd_message.set_token('PARAMETERS',
5975: ' invoice_id = '||to_char(x_invoice_id)
5968: EXCEPTION
5969: WHEN others then
5970: If (SQLCODE <> -20001) Then
5971: fnd_message.set_name('SQLAP','AP_DEBUG');
5972: fnd_message.set_token('ERROR',SQLERRM);
5973: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5974: fnd_message.set_token('PARAMETERS',
5975: ' invoice_id = '||to_char(x_invoice_id)
5976: ||', Po header id = '||to_char(x_po_header_id)
5969: WHEN others then
5970: If (SQLCODE <> -20001) Then
5971: fnd_message.set_name('SQLAP','AP_DEBUG');
5972: fnd_message.set_token('ERROR',SQLERRM);
5973: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5974: fnd_message.set_token('PARAMETERS',
5975: ' invoice_id = '||to_char(x_invoice_id)
5976: ||', Po header id = '||to_char(x_po_header_id)
5977: ||', match option = '||x_match_option
5970: If (SQLCODE <> -20001) Then
5971: fnd_message.set_name('SQLAP','AP_DEBUG');
5972: fnd_message.set_token('ERROR',SQLERRM);
5973: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
5974: fnd_message.set_token('PARAMETERS',
5975: ' invoice_id = '||to_char(x_invoice_id)
5976: ||', Po header id = '||to_char(x_po_header_id)
5977: ||', match option = '||x_match_option
5978: ||', match_amount = '||to_char(x_match_amount));
5975: ' invoice_id = '||to_char(x_invoice_id)
5976: ||', Po header id = '||to_char(x_po_header_id)
5977: ||', match option = '||x_match_option
5978: ||', match_amount = '||to_char(x_match_amount));
5979: fnd_message.set_token('DEBUG_INFO',l_debug_info);
5980: End if;
5981: --Clean up the PL/SQL tables on error
5982: x_shipment_table.delete;
5983:
6359:
6360: EXCEPTION
6361: WHEN others then
6362: If (SQLCODE <> -20001) Then
6363: fnd_message.set_name('SQLAP','AP_DEBUG');
6364: fnd_message.set_token('ERROR',SQLERRM);
6365: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6366: fnd_message.set_token('PARAMETERS',
6367: ' invoice_id = '||to_char(x_invoice_id)
6360: EXCEPTION
6361: WHEN others then
6362: If (SQLCODE <> -20001) Then
6363: fnd_message.set_name('SQLAP','AP_DEBUG');
6364: fnd_message.set_token('ERROR',SQLERRM);
6365: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6366: fnd_message.set_token('PARAMETERS',
6367: ' invoice_id = '||to_char(x_invoice_id)
6368: ||', match option = '||x_match_option);
6361: WHEN others then
6362: If (SQLCODE <> -20001) Then
6363: fnd_message.set_name('SQLAP','AP_DEBUG');
6364: fnd_message.set_token('ERROR',SQLERRM);
6365: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6366: fnd_message.set_token('PARAMETERS',
6367: ' invoice_id = '||to_char(x_invoice_id)
6368: ||', match option = '||x_match_option);
6369: fnd_message.set_token('DEBUG_INFO',l_debug_info);
6362: If (SQLCODE <> -20001) Then
6363: fnd_message.set_name('SQLAP','AP_DEBUG');
6364: fnd_message.set_token('ERROR',SQLERRM);
6365: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6366: fnd_message.set_token('PARAMETERS',
6367: ' invoice_id = '||to_char(x_invoice_id)
6368: ||', match option = '||x_match_option);
6369: fnd_message.set_token('DEBUG_INFO',l_debug_info);
6370: End if;
6365: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6366: fnd_message.set_token('PARAMETERS',
6367: ' invoice_id = '||to_char(x_invoice_id)
6368: ||', match option = '||x_match_option);
6369: fnd_message.set_token('DEBUG_INFO',l_debug_info);
6370: End if;
6371:
6372: app_exception.raise_exception;
6373:
6457:
6458: EXCEPTION
6459: WHEN others then
6460: If (SQLCODE <> -20001) Then
6461: fnd_message.set_name('SQLAP','AP_DEBUG');
6462: fnd_message.set_token('ERROR',SQLERRM);
6463: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6464: fnd_message.set_token('PARAMETERS',
6465: ' invoice_id = '||to_char(p_invoice_id));
6458: EXCEPTION
6459: WHEN others then
6460: If (SQLCODE <> -20001) Then
6461: fnd_message.set_name('SQLAP','AP_DEBUG');
6462: fnd_message.set_token('ERROR',SQLERRM);
6463: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6464: fnd_message.set_token('PARAMETERS',
6465: ' invoice_id = '||to_char(p_invoice_id));
6466: fnd_message.set_token('DEBUG_INFO',l_debug_info);
6459: WHEN others then
6460: If (SQLCODE <> -20001) Then
6461: fnd_message.set_name('SQLAP','AP_DEBUG');
6462: fnd_message.set_token('ERROR',SQLERRM);
6463: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6464: fnd_message.set_token('PARAMETERS',
6465: ' invoice_id = '||to_char(p_invoice_id));
6466: fnd_message.set_token('DEBUG_INFO',l_debug_info);
6467: End if;
6460: If (SQLCODE <> -20001) Then
6461: fnd_message.set_name('SQLAP','AP_DEBUG');
6462: fnd_message.set_token('ERROR',SQLERRM);
6463: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6464: fnd_message.set_token('PARAMETERS',
6465: ' invoice_id = '||to_char(p_invoice_id));
6466: fnd_message.set_token('DEBUG_INFO',l_debug_info);
6467: End if;
6468:
6462: fnd_message.set_token('ERROR',SQLERRM);
6463: fnd_message.set_token('CALLING_SEQUENCE',current_calling_sequence);
6464: fnd_message.set_token('PARAMETERS',
6465: ' invoice_id = '||to_char(p_invoice_id));
6466: fnd_message.set_token('DEBUG_INFO',l_debug_info);
6467: End if;
6468:
6469: app_exception.raise_exception;
6470:
6536: -- Print reason why flex failed
6537: P_result_ccid := -1;
6538: P_reason_unbuilt_flex := 'INVALID ACCOUNT';
6539:
6540: l_debug_info := 'Charge Account is Invalid -> '||FND_MESSAGE.GET;
6541: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6542: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6543: END IF;
6544:
6554: -- Print reason why flex failed
6555: P_result_ccid := -1;
6556: P_reason_unbuilt_flex := 'INVALID ACCOUNT';
6557:
6558: l_debug_info := 'Overlay Account is Invalid -> '||FND_MESSAGE.GET;
6559: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6560: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6561: END IF;
6562:
6599: -- Store reason why flex failed
6600: P_result_ccid := -1;
6601: P_reason_unbuilt_flex := 'INVALID ACCOUNT';
6602:
6603: l_debug_info := 'Account Based on Overlayed Segments can not be build -> '||FND_MESSAGE.GET;
6604: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6605: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6606: END IF;
6607:
6609:
6610: EXCEPTION
6611: WHEN OTHERS THEN
6612: IF (SQLCODE <> -20001) THEN
6613: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6614: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6615: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6616: FND_MESSAGE.SET_TOKEN('PARAMETERS','Base CCID = '||to_char(p_base_ccid)
6617: ||', Overlay CCID = '||to_char(p_overlay_ccid));
6610: EXCEPTION
6611: WHEN OTHERS THEN
6612: IF (SQLCODE <> -20001) THEN
6613: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6614: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6615: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6616: FND_MESSAGE.SET_TOKEN('PARAMETERS','Base CCID = '||to_char(p_base_ccid)
6617: ||', Overlay CCID = '||to_char(p_overlay_ccid));
6618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6611: WHEN OTHERS THEN
6612: IF (SQLCODE <> -20001) THEN
6613: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6614: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6615: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6616: FND_MESSAGE.SET_TOKEN('PARAMETERS','Base CCID = '||to_char(p_base_ccid)
6617: ||', Overlay CCID = '||to_char(p_overlay_ccid));
6618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6619:
6612: IF (SQLCODE <> -20001) THEN
6613: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
6614: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6615: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6616: FND_MESSAGE.SET_TOKEN('PARAMETERS','Base CCID = '||to_char(p_base_ccid)
6617: ||', Overlay CCID = '||to_char(p_overlay_ccid));
6618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6619:
6620: l_debug_info := 'Exception occured in Building Prepay Account> '||FND_MESSAGE.GET;
6614: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
6615: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
6616: FND_MESSAGE.SET_TOKEN('PARAMETERS','Base CCID = '||to_char(p_base_ccid)
6617: ||', Overlay CCID = '||to_char(p_overlay_ccid));
6618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6619:
6620: l_debug_info := 'Exception occured in Building Prepay Account> '||FND_MESSAGE.GET;
6621: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6622: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6616: FND_MESSAGE.SET_TOKEN('PARAMETERS','Base CCID = '||to_char(p_base_ccid)
6617: ||', Overlay CCID = '||to_char(p_overlay_ccid));
6618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
6619:
6620: l_debug_info := 'Exception occured in Building Prepay Account> '||FND_MESSAGE.GET;
6621: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6622: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6623: END IF;
6624: END IF;