The following lines contain the word 'select', 'insert', 'update' or 'delete':
| P_Line_Number_To_Delete - required when calling mode is MARK TAX LINES DELETED
| P_Interface_Invoice_Id - invoice id in the ap_invoices_interface table.
| this parameter is used only while calling the
| API to calculate tax from the import program
| P_All_Error_Messages - Determine if the calling point wants the returning
| of all or only 1 error message. Calling point will
| pass Y in the case they want to handle the return of
| more than one message from the FND message pile. N
| if they just want 1 message to be returned.
| P_error_code - Error code to be returned
| P_calling_sequence - Calling sequence
|
| MODIFICATION HISTORY
| DATE Author Action
| 07-OCT-2003 SYIDNER Created
| 05-NOV-2003 SYIDNER Included new P_Line_Number_To_Delete and
| P_All_Error_Messages parameters
| 05-MAR-2004 SYIDNER Included P_Line_Number as a new parameter
|
*============================================================================*/
FUNCTION Calling_eTax(
P_Invoice_id IN NUMBER,
P_Line_Number IN NUMBER DEFAULT NULL,
P_Calling_Mode IN VARCHAR2,
P_Override_Status IN VARCHAR2 DEFAULT NULL,
P_Line_Number_To_Delete IN NUMBER DEFAULT NULL,
P_Interface_Invoice_Id IN NUMBER DEFAULT NULL,
P_Event_Id IN NUMBER DEFAULT NULL,
P_All_Error_Messages IN VARCHAR2,
P_error_code OUT NOCOPY VARCHAR2,
P_Calling_Sequence IN VARCHAR2) RETURN BOOLEAN
IS
l_debug_info VARCHAR2(240);
l_debug_info := 'Step 2: Calling AP_ETAX_SERVICES_PKG.Global_Document_Update';
IF NOT (AP_ETAX_SERVICES_PKG.Global_Document_Update(
P_Invoice_id => P_Invoice_Id,
P_Line_Number => P_Line_Number,
P_Calling_Mode => P_Calling_Mode,
P_All_Error_Messages => P_All_Error_Messages,
P_Error_Code => P_Error_Code,
P_Calling_Sequence => l_curr_calling_sequence)) THEN
l_return_status := FALSE;
IF NOT (AP_ETAX_SERVICES_PKG.Global_Document_Update(
P_Invoice_id => P_Invoice_Id,
P_Calling_Mode => P_Calling_Mode,
P_All_Error_Messages => P_All_Error_Messages,
P_Error_Code => P_Error_Code,
P_Calling_Sequence => l_curr_calling_sequence)) THEN
l_return_status := FALSE;
ELSIF (P_Calling_Mode = 'MARK TAX LINES DELETED') THEN
-------------------------------------------------------------------
l_debug_info := 'Step 2: Calling AP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted';
IF NOT (AP_ETAX_SERVICES_PKG.Mark_Tax_Lines_Deleted(
P_Invoice_id => P_Invoice_Id,
P_Calling_Mode => P_Calling_Mode,
P_Line_Number_To_Delete => P_Line_Number_To_Delete,
P_All_Error_Messages => P_All_Error_Messages,
P_Error_Code => P_Error_Code,
P_Calling_Sequence => l_curr_calling_sequence)) THEN
l_return_status := FALSE;
ELSIF (P_Calling_Mode = 'DELETE_TAX_DIST') THEN
-------------------------------------------------------------------
l_debug_info := 'Step 2: Calling AP_ETAX_SERVICES_PKG.Delete_Tax_Distributions';
IF NOT (AP_ETAX_SERVICES_PKG.Delete_Tax_Distributions
(p_invoice_id => P_Invoice_Id,
p_calling_mode => P_Calling_Mode,
p_all_error_messages => P_All_Error_Messages,
p_error_code => P_Error_Code,
p_calling_sequence => l_curr_calling_sequence)) THEN
l_return_status := FALSE;
' P_Line_Number_To_Delete = '||P_Line_Number_To_Delete||
' P_All_Error_Messages = '||P_All_Error_Messages||
' P_Error_Code = '||P_Error_Code||
' P_Calling_Sequence = '||P_Calling_Sequence);
| based on the parameters. A psuedo-line is inserted into the GTT and
| removed after the tax amount is calculated.
|
| PARAMETERS
| P_Invoice_header_rec - Invoice header info
| P_Invoice_Lines_Rec - Invoice lines info
| P_Calling_Mode - Calling mode. (CALCULATE_QUOTE)
| P_All_Error_Messages - Should API return 1 error message or allow
| calling point to get them from message stack
| P_error_code - Error code to be returned
| P_calling_sequence - Calling sequence
|
| MODIFICATION HISTORY
| DATE Author Action
| 13-AUG-2003 Sanjay Created
*============================================================================*/
FUNCTION Calculate_Quote(
P_Calling_Mode IN VARCHAR2,
P_All_Error_Messages IN VARCHAR2,
P_Invoice_Header_Rec IN ap_invoices_all%ROWTYPE DEFAULT NULL,
P_Invoice_Lines_Rec IN ap_invoice_lines_all%ROWTYPE DEFAULT NULL,
P_Tax_Amount OUT NOCOPY NUMBER,
P_Tax_Amt_Included OUT NOCOPY VARCHAR2,
P_error_code OUT NOCOPY VARCHAR2,
P_Calling_Sequence IN VARCHAR2) RETURN BOOLEAN IS
l_curr_calling_sequence VARCHAR2(4000);
| x_Line_Number_To_Delete - required when calling mode is MARK TAX LINES DELETED
| x_Interface_Invoice_Id - invoice id in the ap_invoices_interface table.
| this parameter is used only while calling the
| API to calculate tax from the import program
| x_All_Error_Messages - Determine if the calling point wants the returning
| of all or only 1 error message. Calling point will
| pass Y in the case they want to handle the return of
| more than one message from the FND message pile. N
| if they just want 1 message to be returned.
| x_event_id - used by OVERRIDE TAX
| x_error_code - Error code to be returned
| x_calling_sequence - Calling sequence
|
*============================================================================*/
FUNCTION callETax(
x_Invoice_id IN NUMBER,
x_Line_Number IN NUMBER DEFAULT NULL,
x_Calling_Mode IN VARCHAR2,
x_Override_Status IN VARCHAR2 DEFAULT NULL,
x_Line_Number_To_Delete IN NUMBER DEFAULT NULL,
x_Interface_Invoice_Id IN NUMBER DEFAULT NULL,
x_Event_Id IN NUMBER DEFAULT NULL,
x_All_Error_Messages IN VARCHAR2,
x_error_code OUT NOCOPY VARCHAR2,
x_Calling_Sequence IN VARCHAR2) RETURN NUMBER
IS
l_debug_info VARCHAR2(240);
p_line_number_to_delete => x_line_number_to_delete,
p_Interface_Invoice_Id => x_interface_invoice_id,
P_Event_Id => x_event_id,
p_all_error_messages => x_all_error_messages,
p_error_code => x_error_code,
p_calling_sequence => l_curr_calling_sequence)) THEN
RETURN 1; -- failed
' x_Line_Number_To_Delete = '||x_Line_Number_To_Delete||
' x_All_Error_Messages = '||x_All_Error_Messages||
' x_Error_Code = '||x_Error_Code||
' x_Calling_Sequence = '||x_Calling_Sequence);