[Home] [Help]
158: | DATE Author Action
159: | 07-OCT-2003 SYIDNER Created
160: | 29-DEC-2003 SYIDNER Use of new function to validate if tax was
161: | already calculated for the invoice. Function
162: | created in the ap_etax_utility_pkg.
163: | 28-JAN-2004 SYIDNER Included handling for tax-only invoices and
164: | Manual import from Invoice workbench
165: |
166: *============================================================================*/
315: -------------------------------------------------------------------
316: l_debug_info := 'Is tax already called invoice level';
317: Print(l_api_name,l_debug_info);
318: -------------------------------------------------------------------
319: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Calc_Inv(
320: P_Invoice_Id => p_invoice_id,
321: P_Calling_Sequence => l_curr_calling_sequence)) THEN
322:
323: l_tax_already_calculated := 'Y';
532: -------------------------------------------------------------------
533: l_debug_info := 'Is tax already called invoice level';
534: Print(l_api_name,l_debug_info);
535: -------------------------------------------------------------------
536: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Calc_Inv(
537: P_Invoice_Id => l_inv_header_rec.invoice_id,
538: P_Calling_Sequence => l_curr_calling_sequence)) THEN
539: l_tax_already_calculated := 'Y';
540: ELSE
783: Print(l_api_name,l_debug_info);
784: -----------------------------------------------------------------
785: l_return_status := FALSE;
786:
787: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
788: P_All_Error_Messages => P_All_Error_Messages,
789: P_Msg_Count => l_msg_count,
790: P_Msg_Data => l_msg_data,
791: P_Error_Code => P_Error_Code,
1013:
1014: -------------------------------------------------------------------
1015: l_debug_info := 'Step 4: Get event class code';
1016: -------------------------------------------------------------------
1017: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
1018: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
1019: P_Event_Class_Code => l_event_class_code,
1020: P_error_code => p_error_code,
1021: P_calling_sequence => l_curr_calling_sequence)) THEN
1027: -------------------------------------------------------------------
1028: l_debug_info := 'Step 5: Get event type code';
1029: -------------------------------------------------------------------
1030: IF (l_return_status = TRUE) THEN
1031: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
1032: P_Event_Class_Code => l_event_class_code,
1033: P_Calling_Mode => P_Calling_Mode,
1034: P_eTax_Already_called_flag => NULL,
1035: P_Event_Type_Code => l_event_type_Code,
1079: l_debug_info := 'Step 9: Handle errors returned by API';
1080: -----------------------------------------------------------------
1081: l_return_status := FALSE;
1082:
1083: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
1084: P_All_Error_Messages => P_All_Error_Messages,
1085: P_Msg_Count => l_msg_count,
1086: P_Msg_Data => l_msg_data,
1087: P_Error_Code => P_Error_Code,
1136: | DATE Author Action
1137: | 07-OCT-2003 SYIDNER Created
1138: | 29-DEC-2003 SYIDNER Use of new function to validate if tax was
1139: | already distributed for the invoice. Function
1140: | created in the ap_etax_utility_pkg.
1141: |
1142: *============================================================================*/
1143:
1144: FUNCTION Distribute(
1303: -------------------------------------------------------------------
1304: l_debug_info := 'Is tax already distributed for invoice';
1305: Print(l_api_name,l_debug_info);
1306: -------------------------------------------------------------------
1307: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv(
1308: P_Invoice_Id => p_invoice_id,
1309: P_Calling_Sequence => l_curr_calling_sequence)) THEN
1310:
1311: l_tax_already_distributed := 'Y';
1603: -----------------------------------------------------------------
1604: l_debug_info := 'Handle errors returned by API';
1605: Print(l_api_name,l_debug_info);
1606: -----------------------------------------------------------------
1607: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
1608: P_All_Error_Messages => P_All_Error_Messages,
1609: P_Msg_Count => l_msg_count,
1610: P_Msg_Data => l_msg_data,
1611: P_Error_Code => P_Error_Code,
1798: l_debug_info := 'Step 6: Handle errors returned by API';
1799: -----------------------------------------------------------------
1800: print(l_api_name,l_debug_info); --bug 6321366
1801:
1802: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
1803: P_All_Error_Messages => P_All_Error_Messages,
1804: P_Msg_Count => l_msg_count,
1805: P_Msg_Data => l_msg_data,
1806: P_Error_Code => P_Error_Code,
1945: -------------------------------------------------------------------
1946: l_debug_info := 'Step 6: Get event class code';
1947: -------------------------------------------------------------------
1948:
1949: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
1950: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
1951: P_Event_Class_Code => l_event_class_code,
1952: P_error_code => p_error_code,
1953: P_calling_sequence => l_curr_calling_sequence)) THEN
1960: l_debug_info := 'Step 7: Get event type code';
1961: -------------------------------------------------------------------
1962:
1963: IF (l_return_status = TRUE) THEN
1964: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
1965: P_Event_Class_Code => l_event_class_code,
1966: P_Calling_Mode => P_Calling_Mode,
1967: P_eTax_Already_called_flag => NULL,
1968: P_Event_Type_Code => l_event_type_Code,
2010: l_debug_info := 'Step 11: Handle errors returned by API';
2011: -----------------------------------------------------------------
2012: l_return_status := FALSE;
2013:
2014: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
2015: P_All_Error_Messages => P_All_Error_Messages,
2016: P_Msg_Count => l_msg_count,
2017: P_Msg_Data => l_msg_data,
2018: P_Error_Code => P_Error_Code,
2148: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2149: END IF;
2150: -------------------------------------------------------------------
2151:
2152: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
2153: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
2154: P_Event_Class_Code => l_event_class_code_crediting,
2155: P_error_code => P_error_code,
2156: P_calling_sequence => l_curr_calling_sequence)) THEN
2165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2166: END IF;
2167: -------------------------------------------------------------------
2168: IF (l_return_status = TRUE) THEN
2169: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
2170: P_Invoice_Type_Lookup_Code => l_credited_inv_rec.invoice_type_lookup_code,
2171: P_Event_Class_Code => l_event_class_code_credited,
2172: P_error_code => P_error_code,
2173: P_calling_sequence => l_curr_calling_sequence)) THEN
2339: -------------------------------------------------------------------
2340: l_debug_info := 'Is tax already distributed for invoice';
2341: Print(l_api_name,l_debug_info);
2342: -------------------------------------------------------------------
2343: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv(
2344: P_Invoice_Id => p_invoice_id,
2345: P_Calling_Sequence => l_curr_calling_sequence)) THEN
2346:
2347: l_tax_already_distributed := 'Y';
2385: END IF;
2386: -----------------------------------------------------------------
2387: l_return_status := FALSE;
2388:
2389: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
2390: P_All_Error_Messages => P_All_Error_Messages,
2391: P_Msg_Count => l_msg_count,
2392: P_Msg_Data => l_msg_data,
2393: P_Error_Code => P_Error_Code,
2772: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2773: END IF;
2774: -----------------------------------------------------------------
2775:
2776: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
2777: P_All_Error_Messages => P_All_Error_Messages,
2778: P_Msg_Count => l_msg_count,
2779: P_Msg_Data => l_msg_data,
2780: P_Error_Code => P_Error_Code,
2937: -------------------------------------------------------------------
2938: l_debug_info := 'Step 2: Get event class code';
2939: -------------------------------------------------------------------
2940:
2941: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
2942: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
2943: P_Event_Class_Code => l_event_class_code,
2944: P_error_code => P_error_code,
2945: P_calling_sequence => l_curr_calling_sequence)) THEN
2951: -------------------------------------------------------------------
2952: l_debug_info := 'Step 3: Get event type code';
2953: -------------------------------------------------------------------
2954: IF (l_return_status = TRUE) THEN
2955: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
2956: P_Event_Class_Code => l_event_class_code,
2957: P_Calling_Mode => P_Calling_Mode,
2958: P_eTax_Already_called_flag => NULL,
2959: P_Event_Type_Code => l_Event_Type_Code,
3060: -- Debug messages added for 6321366
3061: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3062: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
3063: END IF;
3064: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
3065: P_All_Error_Messages => P_All_Error_Messages,
3066: P_Msg_Count => l_msg_count,
3067: P_Msg_Data => l_msg_data,
3068: P_Error_Code => P_Error_Code,
3208: l_debug_info := 'Step 2: Get event type code';
3209: -------------------------------------------------------------------
3210:
3211: IF (l_return_status = TRUE) THEN
3212: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
3213: P_Event_Class_Code => P_event_class_code,
3214: P_Calling_Mode => P_Calling_Mode,
3215: P_eTax_Already_called_flag => 'Y',
3216: P_Event_Type_Code => l_Event_Type_Code,
3426: -----------------------------------------------------------------
3427: l_debug_info := 'Step 20: Handle errors returned by API';
3428: -----------------------------------------------------------------
3429:
3430: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
3431: P_All_Error_Messages => P_All_Error_Messages,
3432: P_Msg_Count => l_msg_count,
3433: P_Msg_Data => l_msg_data,
3434: P_Error_Code => P_Error_Code,
3590: l_debug_info := 'Step 2: Get event type code';
3591: -------------------------------------------------------------------
3592:
3593: IF (l_return_status = TRUE) THEN
3594: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
3595: P_Event_Class_Code => P_event_class_code,
3596: P_Calling_Mode => P_Calling_Mode,
3597: P_eTax_Already_called_flag => 'Y',
3598: P_Event_Type_Code => l_Event_Type_Code,
3859: -----------------------------------------------------------------
3860: l_debug_info := 'Step 20: Handle errors returned by API';
3861: -----------------------------------------------------------------
3862:
3863: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
3864: P_All_Error_Messages => P_All_Error_Messages,
3865: P_Msg_Count => l_msg_count,
3866: P_Msg_Data => l_msg_data,
3867: P_Error_Code => P_Error_Code,
4056: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4057: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
4058: END IF;
4059:
4060: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
4061: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
4062: P_Event_Class_Code => l_event_class_code,
4063: P_error_code => P_error_code,
4064: P_calling_sequence => l_curr_calling_sequence)) THEN
4074: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
4075: END IF;
4076:
4077: IF (l_return_status = TRUE) THEN
4078: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
4079: P_Event_Class_Code => l_event_class_code,
4080: P_Calling_Mode => P_Calling_Mode,
4081: P_eTax_Already_called_flag => NULL,
4082: P_Event_Type_Code => l_Event_Type_Code,
4136: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4137: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
4138: END IF;
4139:
4140: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4141: P_All_Error_Messages => P_All_Error_Messages,
4142: P_Msg_Count => l_msg_count,
4143: P_Msg_Data => l_msg_data,
4144: P_Error_Code => P_Error_Code,
4215: -- Debug messages added for 6321366
4216: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4217: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
4218: END IF;
4219: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4220: P_All_Error_Messages => P_All_Error_Messages,
4221: P_Msg_Count => l_msg_count,
4222: P_Msg_Data => l_msg_data,
4223: P_Error_Code => P_Error_Code,
4329: -------------------------------------------------------------------
4330: l_debug_info := 'Step 2: Get event class code';
4331: -------------------------------------------------------------------
4332:
4333: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
4334: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
4335: P_Event_Class_Code => l_event_class_code,
4336: P_error_code => P_error_code,
4337: P_calling_sequence => l_curr_calling_sequence)) THEN
4343: -------------------------------------------------------------------
4344: l_debug_info := 'Step 3: Get event type code';
4345: -------------------------------------------------------------------
4346: IF (l_return_status = TRUE) THEN
4347: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
4348: P_Event_Class_Code => l_event_class_code,
4349: P_Calling_Mode => P_Calling_Mode,
4350: P_eTax_Already_called_flag => NULL,
4351: P_Event_Type_Code => l_Event_Type_Code,
4417: -----------------------------------------------------------------
4418: l_debug_info := 'Step 8: Handle errors returned by API';
4419: -----------------------------------------------------------------
4420:
4421: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4422: P_All_Error_Messages => P_All_Error_Messages,
4423: P_Msg_Count => l_msg_count,
4424: P_Msg_Data => l_msg_data,
4425: P_Error_Code => P_Error_Code,
4521: -------------------------------------------------------------------
4522: l_debug_info := 'Step 2: Get event class code';
4523: -------------------------------------------------------------------
4524:
4525: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
4526: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
4527: P_Event_Class_Code => l_event_class_code,
4528: P_error_code => P_error_code,
4529: P_calling_sequence => l_curr_calling_sequence)) THEN
4535: -------------------------------------------------------------------
4536: l_debug_info := 'Step 3: Get event type code';
4537: -------------------------------------------------------------------
4538: IF (l_return_status = TRUE) THEN
4539: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
4540: P_Event_Class_Code => l_event_class_code,
4541: P_Calling_Mode => P_Calling_Mode,
4542: P_eTax_Already_called_flag => NULL,
4543: P_Event_Type_Code => l_Event_Type_Code,
4586: -----------------------------------------------------------------
4587: l_debug_info := 'Step 8: Handle errors returned by API';
4588: -----------------------------------------------------------------
4589:
4590: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4591: P_All_Error_Messages => P_All_Error_Messages,
4592: P_Msg_Count => l_msg_count,
4593: P_Msg_Data => l_msg_data,
4594: P_Error_Code => P_Error_Code,
4712: -------------------------------------------------------------------
4713: l_debug_info := 'Step 2: Get event class code';
4714: -------------------------------------------------------------------
4715:
4716: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
4717: P_Invoice_Type_Lookup_Code => l_inv_header_rec.invoice_type_lookup_code,
4718: P_Event_Class_Code => l_event_class_code,
4719: P_error_code => P_error_code,
4720: P_calling_sequence => l_curr_calling_sequence)) THEN
4726: -------------------------------------------------------------------
4727: l_debug_info := 'Step 3: Get event type code';
4728: -------------------------------------------------------------------
4729: IF (l_return_status = TRUE) THEN
4730: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
4731: P_Event_Class_Code => l_event_class_code,
4732: P_Calling_Mode => P_Calling_Mode,
4733: P_eTax_Already_called_flag => NULL,
4734: P_Event_Type_Code => l_Event_Type_Code,
4898: -----------------------------------------------------------------
4899: l_debug_info := 'Step 8: Handle errors returned by API';
4900: -----------------------------------------------------------------
4901:
4902: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4903: P_All_Error_Messages => P_All_Error_Messages,
4904: P_Msg_Count => l_msg_count,
4905: P_Msg_Data => l_msg_data,
4906: P_Error_Code => P_Error_Code,
5023: IF (l_return_status_service = 'S') THEN
5024: -----------------------------------------------------------------
5025: l_debug_info := 'Step 4: Handle return of tax lines';
5026: -----------------------------------------------------------------
5027: IF NOT (AP_ETAX_UTILITY_PKG.Return_Default_Import(
5028: P_Invoice_Header_Rec => P_Invoice_Rec,
5029: P_Invoice_Lines_Tab => p_invoice_lines_tab,
5030: P_All_Error_Messages => 'N',
5031: P_Error_Code => P_Error_Code,
5047: l_debug_info := 'Step 5: Handle errors returned by API';
5048: -----------------------------------------------------------------
5049: l_return_status := FALSE;
5050:
5051: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
5052: P_All_Error_Messages => P_All_Error_Messages,
5053: P_Msg_Count => l_msg_count,
5054: P_Msg_Data => l_msg_data,
5055: P_Error_Code => P_Error_Code,
5158: -------------------------------------------------------------------
5159: l_debug_info := 'Step 1: Get event class code';
5160: -------------------------------------------------------------------
5161:
5162: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
5163: P_Invoice_Type_Lookup_Code => P_Invoice_Header_Rec.invoice_type_lookup_code,
5164: P_Event_Class_Code => P_event_class_code,
5165: P_error_code => P_error_code,
5166: P_calling_sequence => l_curr_calling_sequence)) THEN
5173: l_debug_info := 'Step 2: Get event type code';
5174: -------------------------------------------------------------------
5175:
5176: IF (l_return_status = TRUE) THEN
5177: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
5178: P_Event_Class_Code => P_event_class_code,
5179: P_Calling_Mode => P_Calling_Mode,
5180: P_eTax_Already_called_flag => P_eTax_Already_called_flag,
5181: P_Event_Type_Code => P_Event_Type_Code,
5214:
5215: --------------------------------------------------------------------------
5216: l_debug_info := 'Step 5: Get event class code for tax_related_invoice_id';
5217: --------------------------------------------------------------------------
5218: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
5219: P_Invoice_Type_Lookup_Code => l_related_inv_type,
5220: P_Event_Class_Code => l_related_event_class_code,
5221: P_error_code => P_error_code,
5222: P_calling_sequence => l_curr_calling_sequence)) THEN
5554: -------------------------------------------------------------------
5555: l_debug_info := 'Step 1: Get event class code';
5556: -------------------------------------------------------------------
5557:
5558: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
5559: P_Invoice_Type_Lookup_Code => P_Invoice_Header_Rec.invoice_type_lookup_code,
5560: P_Event_Class_Code => P_event_class_code,
5561: P_error_code => P_error_code,
5562: P_calling_sequence => l_curr_calling_sequence)) THEN
5571: -- Since this procedure will be called only from the import program
5572: -- it is the first time eTax is call so the etax_already_called_flag is N
5573:
5574: IF (l_return_status = TRUE) THEN
5575: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
5576: P_Event_Class_Code => P_event_class_code,
5577: P_Calling_Mode => P_Calling_Mode,
5578: P_eTax_Already_called_flag => 'N',
5579: P_Event_Type_Code => P_Event_Type_Code,
5615:
5616: --------------------------------------------------------------------------
5617: l_debug_info := 'Step 5: Get event class code for tax_related_invoice_id';
5618: --------------------------------------------------------------------------
5619: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
5620: P_Invoice_Type_Lookup_Code => l_related_inv_type,
5621: P_Event_Class_Code => l_related_event_class_code,
5622: P_error_code => P_error_code,
5623: P_calling_sequence => l_curr_calling_sequence)) THEN
6087: -------------------------------------------------------------------
6088:
6089: IF ( l_inv_line_list(i).po_line_location_id IS NOT NULL) THEN
6090:
6091: IF NOT (AP_ETAX_UTILITY_PKG.Get_PO_Info(
6092: P_Po_Line_Location_Id => l_inv_line_list(i).po_line_location_id,
6093: P_PO_Distribution_Id => null,
6094: P_Application_Id => l_ref_doc_application_id,
6095: P_Entity_code => l_ref_doc_entity_code,
6124: l_debug_info := 'Get Additional receipt matched info ';
6125: -------------------------------------------------------------------
6126: IF ( l_return_status = TRUE AND
6127: l_inv_line_list(i).rcv_transaction_id IS NOT NULL) THEN
6128: IF NOT (AP_ETAX_UTILITY_PKG.Get_Receipt_Info(
6129: P_Rcv_Transaction_Id => l_inv_line_list(i).rcv_transaction_id,
6130: P_Application_Id => l_applied_to_application_id,
6131: P_Entity_code => l_applied_to_entity_code,
6132: P_Event_Class_Code => l_applied_to_event_class_code,
6150: IF (l_return_status = TRUE) THEN
6151: IF (l_inv_line_list(i).prepay_invoice_id IS NOT NULL AND
6152: l_inv_line_list(i).prepay_line_number IS NOT NULL) THEN
6153:
6154: IF NOT (AP_ETAX_UTILITY_PKG.Get_Prepay_Invoice_Info(
6155: P_Prepay_Invoice_Id => l_inv_line_list(i).prepay_invoice_id,
6156: P_Prepay_Line_Number => l_inv_line_list(i).prepay_line_number,
6157: P_Application_Id => l_prepay_doc_application_id,
6158: P_Entity_code => l_prepay_doc_entity_code,
6170: l_applied_from_trx_level_type := 'LINE';
6171:
6172: ELSIF p_calling_mode = 'RECOUPMENT' THEN
6173:
6174: IF NOT (AP_ETAX_UTILITY_PKG.Get_Prepay_Invoice_Info(
6175: P_Prepay_Invoice_Id => l_inv_line_list(i).invoice_id,
6176: P_Prepay_Line_Number => l_inv_line_list(i).line_number,
6177: P_Application_Id => l_prepay_doc_application_id,
6178: P_Entity_code => l_prepay_doc_entity_code,
6208: IF ( l_return_status = TRUE AND
6209: l_inv_line_list(i).corrected_inv_id IS NOT NULL AND
6210: l_inv_line_list(i).corrected_line_number IS NOT NULL) THEN
6211:
6212: IF NOT (AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info(
6213: P_Corrected_Invoice_Id => l_inv_line_list(i).corrected_inv_id,
6214: P_Corrected_Line_Number => l_inv_line_list(i).corrected_line_number,
6215: P_Application_Id => l_adj_doc_application_id,
6216: P_Entity_code => l_adj_doc_entity_code,
6294: -------------------------------------------------------------------
6295:
6296: IF (l_return_status = TRUE) THEN
6297:
6298: IF NOT (AP_ETAX_UTILITY_PKG.Get_Line_Class(
6299: P_Invoice_Type_Lookup_Code => P_Invoice_Header_Rec.invoice_type_lookup_code,
6300: P_Inv_Line_Type => l_inv_line_list(i).line_type_lookup_code,
6301: P_Line_Location_Id => l_inv_line_list(i).po_line_location_id,
6302: P_Line_Class => l_line_class,
6880: -- modified because the po_distribution_id is not provided
6881:
6882: l_po_line_location_id := P_Inv_Line_List(i).po_line_location_id;
6883:
6884: IF NOT (AP_ETAX_UTILITY_PKG.Get_PO_Info(
6885: P_Po_Line_Location_Id => l_po_line_location_id,
6886: P_PO_Distribution_Id => null,
6887: P_Application_Id => l_ref_doc_application_id,
6888: P_Entity_code => l_ref_doc_entity_code,
6917: -------------------------------------------------------------------
6918: IF ( l_return_status = TRUE AND
6919: P_Inv_Line_List(i).rcv_transaction_id IS NOT NULL) THEN
6920:
6921: IF NOT (AP_ETAX_UTILITY_PKG.Get_Receipt_Info(
6922: P_Rcv_Transaction_Id => P_Inv_Line_List(i).rcv_transaction_id,
6923: P_Application_Id => l_applied_to_application_id,
6924: P_Entity_code => l_applied_to_entity_code,
6925: P_Event_Class_Code => l_applied_to_event_class_code,
6942: IF ( l_return_status = TRUE AND
6943: P_Inv_Line_List(i).corrected_inv_id IS NOT NULL AND
6944: P_Inv_Line_list(i).price_correct_inv_line_num IS NOT NULL) THEN
6945:
6946: IF NOT (AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info(
6947: P_Corrected_Invoice_Id => P_Inv_Line_List(i).corrected_inv_id,
6948: P_Corrected_Line_Number => P_Inv_Line_List(i).price_correct_inv_line_num,
6949: P_Application_Id => l_adj_doc_application_id,
6950: P_Entity_code => l_adj_doc_entity_code,
7029: l_debug_info := 'Step 10.1: Get line_class';
7030: -------------------------------------------------------------------
7031: IF (l_return_status = TRUE) THEN
7032:
7033: IF NOT (AP_ETAX_UTILITY_PKG.Get_Line_Class(
7034: P_Invoice_Type_Lookup_Code => p_invoice_header_rec.invoice_type_lookup_code,
7035: P_Inv_Line_Type => p_inv_line_list(i).line_type_lookup_code,
7036: P_Line_Location_Id => p_inv_line_list(i).po_line_location_id,
7037: P_Line_Class => l_line_class,
7476: -- parameter is IN/OUT. However, in this case it will not be
7477: -- modified because the po_distribution_id is not provided
7478: l_po_line_location_id := P_Inv_Line_List(i).po_line_location_id;
7479:
7480: IF NOT (AP_ETAX_UTILITY_PKG.Get_PO_Info(
7481: P_Po_Line_Location_Id => l_po_line_location_id,
7482: P_PO_Distribution_Id => null,
7483: P_Application_Id => l_ref_doc_application_id,
7484: P_Entity_code => l_ref_doc_entity_code,
7512: l_debug_info := 'Step 6: Get Additional receipt matched info ';
7513: -------------------------------------------------------------------
7514: IF ( l_return_status = TRUE AND
7515: P_Inv_Line_List(i).rcv_transaction_id IS NOT NULL) THEN
7516: IF NOT (AP_ETAX_UTILITY_PKG.Get_Receipt_Info(
7517: P_Rcv_Transaction_Id => P_Inv_Line_List(i).rcv_transaction_id,
7518: P_Application_Id => l_applied_to_application_id,
7519: P_Entity_code => l_applied_to_entity_code,
7520: P_Event_Class_Code => l_applied_to_event_class_code,
7537:
7538: IF ( l_return_status = TRUE AND
7539: P_Inv_Line_List(i).corrected_inv_id IS NOT NULL AND
7540: P_Inv_Line_list(i).price_correct_inv_line_num IS NOT NULL) THEN
7541: IF NOT (AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info(
7542: P_Corrected_Invoice_Id => P_Inv_Line_List(i).corrected_inv_id,
7543: P_Corrected_Line_Number => P_Inv_Line_List(i).price_correct_inv_line_num,
7544: P_Application_Id => l_adj_doc_application_id,
7545: P_Entity_code => l_adj_doc_entity_code,
8215: -- parameter is IN/OUT. However, in this case it will not be
8216: -- modified because the po_distribution_id is not provided
8217: l_po_line_location_id := l_Inv_tax_List(i).po_line_location_id;
8218:
8219: IF NOT (AP_ETAX_UTILITY_PKG.Get_PO_Info(
8220: P_Po_Line_Location_Id => l_po_line_location_id,
8221: P_PO_Distribution_Id => null,
8222: P_Application_Id => l_ref_doc_application_id,
8223: P_Entity_code => l_ref_doc_entity_code,
8254: END IF;
8255: -------------------------------------------------------------------
8256: IF ( l_return_status = TRUE AND
8257: l_Inv_tax_List(i).rcv_transaction_id IS NOT NULL) THEN
8258: IF NOT (AP_ETAX_UTILITY_PKG.Get_Receipt_Info(
8259: P_Rcv_Transaction_Id => l_Inv_tax_List(i).rcv_transaction_id,
8260: P_Application_Id => l_applied_to_application_id,
8261: P_Entity_code => l_applied_to_entity_code,
8262: P_Event_Class_Code => l_applied_to_event_class_code,
8281: -------------------------------------------------------------------
8282: IF ( l_return_status = TRUE AND
8283: l_Inv_tax_List(i).corrected_inv_id IS NOT NULL AND
8284: l_Inv_tax_list(i).corrected_line_number IS NOT NULL) THEN
8285: IF NOT (AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info(
8286: P_Corrected_Invoice_Id => l_Inv_tax_List(i).corrected_inv_id,
8287: P_Corrected_Line_Number => l_Inv_tax_List(i).corrected_line_number,
8288: P_Application_Id => l_adj_doc_application_id,
8289: P_Entity_code => l_adj_doc_entity_code,
8759: END IF;
8760: -------------------------------------------------------------------
8761: IF ( l_inv_dist_list(i).po_distribution_id IS NOT NULL) THEN
8762:
8763: IF NOT (AP_ETAX_UTILITY_PKG.Get_PO_Info(
8764: P_Po_Line_Location_Id => l_po_line_location_id,
8765: P_Po_Distribution_Id => l_inv_dist_list(i).po_distribution_id,
8766: P_Application_Id => l_ref_doc_application_id,
8767: P_Entity_code => l_ref_doc_entity_code,
8837: Into l_adj_doc_trx_id, l_adj_doc_line_id
8838: From ap_invoice_distributions_all
8839: Where invoice_distribution_id = l_inv_dist_list(i).corrected_invoice_dist_id;
8840:
8841: IF NOT (AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info(
8842: P_Corrected_Invoice_Id => l_inv_line_list(i).corrected_inv_id,
8843: P_Corrected_Line_Number => l_inv_line_list(i).corrected_line_number,
8844: P_Application_Id => l_adj_doc_application_id,
8845: P_Entity_code => l_adj_doc_entity_code,
8876: INTO l_applied_from_trx_id, l_applied_from_line_id
8877: FROM ap_invoice_distributions_all
8878: WHERE invoice_distribution_id = l_inv_dist_list(i).prepay_distribution_id;
8879:
8880: IF NOT (AP_ETAX_UTILITY_PKG.Get_Prepay_Invoice_Info(
8881: P_Prepay_Invoice_Id => l_applied_from_trx_id,
8882: P_Prepay_Line_Number => l_applied_from_line_id,
8883: P_Application_Id => l_prepay_doc_application_id,
8884: P_Entity_code => l_prepay_doc_entity_code,
9128: 'APPLY PREPAY', 'UNAPPLY PREPAY')) THEN
9129: -------------------------------------------------------------------
9130: l_debug_info := 'Step 2: Calling Return_Tax_Lines ';
9131: -------------------------------------------------------------------
9132: IF NOT (AP_ETAX_UTILITY_PKG.Return_Tax_Lines(
9133: P_Invoice_Header_Rec => P_invoice_header_rec,
9134: P_Error_Code => P_Error_Code,
9135: P_Calling_Sequence => l_curr_calling_sequence)) THEN
9136:
9143: tax only invoices. */
9144: -------------------------------------------------------------------
9145: l_debug_info := 'Step 3: Calling Return_Tax_Distributions ';
9146: -------------------------------------------------------------------
9147: IF NOT (AP_ETAX_UTILITY_PKG.Return_Tax_Distributions(
9148: P_Invoice_Header_Rec => P_invoice_header_rec,
9149: P_All_Error_Messages => P_All_Error_Messages,
9150: P_Error_Code => P_Error_Code,
9151: P_Calling_Sequence => l_curr_calling_sequence)) THEN
9156: ELSIF (P_Calling_Mode = 'CALCULATE QUOTE') THEN
9157: -------------------------------------------------------------------
9158: l_debug_info := 'Step 4: Calling Return_Tax_Quote ';
9159: -------------------------------------------------------------------
9160: IF NOT (AP_ETAX_UTILITY_PKG.Return_Tax_Quote(
9161: P_Invoice_Header_Rec => P_invoice_header_rec,
9162: P_Error_Code => P_Error_Code,
9163: P_Calling_Sequence => l_curr_calling_sequence)) THEN
9164:
9170: -------------------------------------------------------------------
9171: l_debug_info := 'Step 5: Calling Return_Tax_Lines for '||
9172: 'REVERSE INVOICE';
9173: -------------------------------------------------------------------
9174: IF NOT (AP_ETAX_UTILITY_PKG.Return_Tax_Lines(
9175: P_Invoice_Header_Rec => P_invoice_header_rec,
9176: P_Error_Code => P_Error_Code,
9177: P_Calling_Sequence => l_curr_calling_sequence)) THEN
9178:
9182: -------------------------------------------------------------------
9183: l_debug_info := 'Step 6: Calling Return_Tax_Distributions for '||
9184: 'REVERSE INVOICE';
9185: -------------------------------------------------------------------
9186: IF NOT (AP_ETAX_UTILITY_PKG.Return_Tax_Distributions(
9187: P_Invoice_Header_Rec => P_invoice_header_rec,
9188: P_All_Error_Messages => P_All_Error_Messages,
9189: P_Error_Code => P_Error_Code,
9190: P_Calling_Sequence => l_curr_calling_sequence)) THEN
9325: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9326: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9327: END IF;
9328: -------------------------------------------------------------------
9329: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Calc_Inv(
9330: P_Invoice_Id => p_invoice_header_rec.invoice_id,
9331: P_Calling_Sequence => l_curr_calling_sequence)) THEN
9332:
9333: l_tax_already_calculated := 'Y';
9401: IF ( P_Invoice_Lines_Rec.po_line_location_id IS NOT NULL) THEN
9402:
9403: l_po_line_location_id := P_Invoice_Lines_Rec.po_line_location_id;
9404:
9405: IF NOT (AP_ETAX_UTILITY_PKG.Get_PO_Info(
9406: P_Po_Line_Location_Id => l_po_line_location_id,
9407: P_PO_Distribution_Id => null,
9408: P_Application_Id => l_ref_doc_application_id,
9409: P_Entity_code => l_ref_doc_entity_code,
10204: 'N' accrual_posted_flag,
10205: 'U' assets_addition_flag,
10206: 'N' assets_tracking_flag,
10207: 'N' cash_posted_flag,
10208: AP_ETAX_UTILITY_PKG.Get_Max_Dist_Num_Self(
10209: p_invoice_id,
10210: tax_dist.invoice_line_number)+1
10211: distribution_line_number,
10212: tax_dist.dist_code_combination_id dist_code_combination_id,
10421: 'N' accrual_posted_flag,
10422: 'U' assets_addition_flag,
10423: 'N' assets_tracking_flag,
10424: 'N' cash_posted_flag,
10425: AP_ETAX_UTILITY_PKG.Get_Max_Dist_Num_Self(
10426: p_invoice_id,
10427: tax_dist.invoice_line_number)+1
10428: distribution_line_number,
10429: tax_dist.dist_code_combination_id dist_code_combination_id,
10820: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10821: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, l_debug_info);
10822: END IF;
10823:
10824: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
10825: P_All_Error_Messages => 'N',
10826: P_Msg_Count => l_msg_count,
10827: P_Msg_Data => l_msg_data,
10828: P_Error_Code => l_Error_Code,
12385: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12386: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
12387: END IF;
12388: -------------------------------------------------------------------
12389: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Calc_Inv(
12390: P_Invoice_Id => p_invoice_id,
12391: P_Calling_Sequence => l_curr_calling_sequence)) THEN
12392:
12393: l_tax_already_calculated := 'Y';
12527: -----------------------------------------------------------------
12528:
12529: l_return_status := FALSE;
12530:
12531: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
12532: P_All_Error_Messages => P_All_Error_Messages,
12533: P_Msg_Count => l_msg_count,
12534: P_Msg_Data => l_msg_data,
12535: P_Error_Code => P_Error_Code,
12647:
12648: -------------------------------------------------------------------
12649: l_debug_info := 'Step 3: Get event class code';
12650: -------------------------------------------------------------------
12651: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
12652: P_Invoice_Type_Lookup_Code => l_invoice_header_rec.invoice_type_lookup_code,
12653: P_Event_Class_Code => l_event_class_code,
12654: P_error_code => l_error_code,
12655: P_calling_sequence => l_curr_calling_sequence)) THEN
12658:
12659: -------------------------------------------------------------------
12660: l_debug_info := 'Step 4: Is tax already called invoice level?';
12661: -------------------------------------------------------------------
12662: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Calc_Inv(
12663: P_Invoice_Id => p_invoice_id,
12664: P_Calling_Sequence => l_curr_calling_sequence)) THEN
12665: l_tax_already_calculated := 'Y';
12666: ELSE
12670: -------------------------------------------------------------------
12671: l_debug_info := 'Step 5: Get event type code';
12672: -------------------------------------------------------------------
12673: IF (l_return_status = TRUE) THEN
12674: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Type_Code(
12675: P_Event_Class_Code => l_event_class_code,
12676: P_Calling_Mode => 'DISTRIBUTE',
12677: P_eTax_Already_called_flag => l_tax_already_calculated,
12678: P_Event_Type_Code => l_event_type_code,
12988: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12989: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
12990: END IF;
12991: -----------------------------------------------------------------
12992: IF (AP_ETAX_UTILITY_PKG.Is_Tax_Already_Calc_Inv(
12993: P_Invoice_Id => p_invoice_id,
12994: P_Calling_Sequence => l_curr_calling_sequence)) THEN
12995:
12996: l_tax_already_calculated := 'Y';
13097: END IF;
13098: -----------------------------------------------------------------
13099: l_return_status := FALSE;
13100:
13101: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
13102: P_All_Error_Messages => P_All_Error_Messages,
13103: P_Msg_Count => l_msg_count,
13104: P_Msg_Data => l_msg_data,
13105: P_Error_Code => P_Error_Code,
13249: IF (p_rct_match_tax_list(i).po_line_location_id IS NOT NULL) THEN
13250:
13251: l_po_line_location_id := p_rct_match_tax_list(i).po_line_location_id;
13252:
13253: IF NOT (AP_ETAX_UTILITY_PKG.Get_PO_Info(
13254: P_Po_Line_Location_Id => l_po_line_location_id,
13255: P_PO_Distribution_Id => null,
13256: P_Application_Id => l_ref_doc_application_id,
13257: P_Entity_code => l_ref_doc_entity_code,
13289: END IF;
13290: -------------------------------------------------------------------
13291: IF ( l_return_status = TRUE AND
13292: p_rct_match_tax_list(i).rcv_transaction_id IS NOT NULL) THEN
13293: IF NOT (AP_ETAX_UTILITY_PKG.Get_Receipt_Info(
13294: P_Rcv_Transaction_Id => p_rct_match_tax_list(i).rcv_transaction_id,
13295: P_Application_Id => l_applied_to_application_id,
13296: P_Entity_code => l_applied_to_entity_code,
13297: P_Event_Class_Code => l_applied_to_event_class_code,
13341: END IF; */
13342:
13343: IF (l_return_status = TRUE) THEN
13344:
13345: IF NOT (AP_ETAX_UTILITY_PKG.Get_Line_Class(
13346: P_Invoice_Type_Lookup_Code => P_Invoice_Header_Rec.invoice_type_lookup_code,
13347: P_Inv_Line_Type => p_rct_match_tax_list(i).line_type_lookup_code,
13348: P_Line_Location_Id => p_rct_match_tax_list(i).po_line_location_id,
13349: P_Line_Class => l_line_class,
14225: l_api_name CONSTANT VARCHAR2(100) := 'RETURN_TAX_LINES';
14226:
14227: BEGIN
14228:
14229: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Lines<-'||
14230: P_calling_sequence;
14231:
14232: -------------------------------------------------------------------
14233: l_debug_info := 'Step 1: Get ap_system_parameters data';