[Home] [Help]
15: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
16: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
17: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
18:
19: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
21: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
16: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
17: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
18:
19: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
21: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
17: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
18:
19: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
21: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
18:
19: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
21: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_ETAX_UTILITY_PKG.';
19: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
21: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_ETAX_UTILITY_PKG.';
27:
20: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
21: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_ETAX_UTILITY_PKG.';
27:
28: -- This record type is used for ap_invoice_distributions_all and ap_self_assessed_tax_dist_all
21: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'AP.PLSQL.AP_ETAX_UTILITY_PKG.';
27:
28: -- This record type is used for ap_invoice_distributions_all and ap_self_assessed_tax_dist_all
29:
167:
168: ------------------------------------------------------------------
169: l_debug_info := 'Found Collection Populated Returning 0 ';
170: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
171: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
172: END IF;
173: ------------------------------------------------------------------
174:
175: l_number := 0;
178:
179: ------------------------------------------------------------------
180: l_debug_info := 'Found Collection Not Populated Returning 1 ';
181: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
182: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
183: END IF;
184: ------------------------------------------------------------------
185:
186: l_number := 1;
250:
251: ------------------------------------------------------------------
252: l_debug_info := 'Step 1: Event Class Code is STANDARD INVOICES '||P_Event_Class_Code;
253: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
254: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
255: END IF;
256: ------------------------------------------------------------------
257:
258:
263:
264: ------------------------------------------------------------------
265: l_debug_info := 'Step 2: Event Class Code is PREPAYMENT INVOICES '||P_Event_Class_Code;
266: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
267: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
268: END IF;
269: ------------------------------------------------------------------
270:
271: ELSIF (P_Invoice_Type_Lookup_Code IN ('EXPENSE REPORT')) THEN
274:
275: ------------------------------------------------------------------
276: l_debug_info := 'Step 3: Event Class Code is EXPENSE REPORTS '||P_Event_Class_Code;
277: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
278: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
279: END IF;
280: ------------------------------------------------------------------
281:
282: ELSE
288: l_debug_info := 'Step 4: Event Class Code is NULL and function '||
289: 'returns FALSE because eTax is not defined to be '||
290: 'called for this Invoice type ';
291: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
292: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
293: END IF;
294: ------------------------------------------------------------------
295:
296: END IF;
370:
371: ------------------------------------------------------------------
372: l_debug_info := 'Step 1: Event Class Code is: '||p_event_class_code;
373: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
374: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
375: END IF;
376: ------------------------------------------------------------------
377:
378: IF ( P_Event_Class_Code = 'STANDARD INVOICES' ) THEN
388:
389: ------------------------------------------------------------------
390: l_debug_info := 'Step 2: Calling mode is: '||p_calling_mode;
391: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
392: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
393: END IF;
394: ------------------------------------------------------------------
395: IF ( p_calling_mode IN
396: ('CALCULATE', 'CALCULATE QUOTE', 'APPLY PREPAY',
457:
458: ------------------------------------------------------------------
459: l_debug_info := 'Step 3: Event Type Code: '||p_event_type_code;
460: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
461: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
462: END IF;
463: ------------------------------------------------------------------
464:
465: RETURN(TRUE);
536: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Corrected_Invoice_Info<-'||
537: P_calling_sequence;
538:
539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
541: END IF;
542:
543: -------------------------------------------------------------------
544: l_debug_info := 'Step 1: Get corrected invoice info';
542:
543: -------------------------------------------------------------------
544: l_debug_info := 'Step 1: Get corrected invoice info';
545: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
547: END IF;
548: -------------------------------------------------------------------
549: IF ( P_Corrected_Invoice_Id IS NOT NULL) THEN
550:
560: END ;
561: -------------------------------------------------------------------
562: l_debug_info := 'Step 1.1: Corrected Inv Id Info '||P_Invoice_Number||' & '||P_Invoice_Date||' & '||l_corrected_invoice_type;
563: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
564: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
565: END IF;
566: -------------------------------------------------------------------
567: --------------------------------------------------------------------------
568: l_debug_info := 'Step 2: Get event class code corrected_invoice_id';
566: -------------------------------------------------------------------
567: --------------------------------------------------------------------------
568: l_debug_info := 'Step 2: Get event class code corrected_invoice_id';
569: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
570: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
571: END IF;
572: --------------------------------------------------------------------------
573: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
574: P_Invoice_Type_Lookup_Code => l_corrected_invoice_type,
657: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Invoice_Info<-' ||
658: P_calling_sequence;
659:
660: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
661: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
662: END IF;
663:
664: -------------------------------------------------------------------
665: l_debug_info := 'Step 1: Get applied prepayment invoice info';
663:
664: -------------------------------------------------------------------
665: l_debug_info := 'Step 1: Get applied prepayment invoice info';
666: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
668: END IF;
669: -------------------------------------------------------------------
670: IF ( P_Prepay_Invoice_Id IS NOT NULL) THEN
671:
681: END ;
682: -------------------------------------------------------------------
683: l_debug_info := 'Step 1.1: Applied prepayment invoice info '||P_Invoice_Number||' & '||P_Invoice_Date||' & '||l_prepay_invoice_type;
684: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
685: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
686: END IF;
687: -------------------------------------------------------------------
688: --------------------------------------------------------------------------
689: l_debug_info := 'Step 2: Get event class code prepay_invoice_id';
687: -------------------------------------------------------------------
688: --------------------------------------------------------------------------
689: l_debug_info := 'Step 2: Get event class code prepay_invoice_id';
690: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
691: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
692: END IF;
693: --------------------------------------------------------------------------
694: IF NOT(AP_ETAX_UTILITY_PKG.Get_Event_Class_Code(
695: P_Invoice_Type_Lookup_Code => l_prepay_invoice_type,
777:
778: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Receipt_Info<-' ||
779: P_calling_sequence;
780: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
782: END IF;
783: -------------------------------------------------------------------
784: l_debug_info := 'Step 1: Get receipt info';
785: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
782: END IF;
783: -------------------------------------------------------------------
784: l_debug_info := 'Step 1: Get receipt info';
785: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
786: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
787: END IF;
788: -------------------------------------------------------------------
789: IF (P_Rcv_Transaction_Id IS NOT NULL) THEN
790:
795:
796: -------------------------------------------------------------------
797: l_debug_info := 'Step 1.1: Receipt info '||P_Transaction_Date||' & '||l_transaction_type;
798: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
799: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
800: END IF;
801: -------------------------------------------------------------------
802:
803: --------------------------------------------------------------------------
802:
803: --------------------------------------------------------------------------
804: l_debug_info := 'Step 2: Call PO API to get additional receipt info';
805: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
806: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
807: END IF;
808: --------------------------------------------------------------------------
809: CST_UTILITY_PUB.Get_Receipt_Event_Info (
810: p_api_version => 1.0 ,
925:
926: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_PO_Info<-' ||
927: P_calling_sequence;
928: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
930: END IF;
931:
932: -------------------------------------------------------------------
933: l_debug_info := 'Step 1: Get PO additional info';
931:
932: -------------------------------------------------------------------
933: l_debug_info := 'Step 1: Get PO additional info';
934: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
935: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
936: END IF;
937: -------------------------------------------------------------------
938:
939: IF ( P_PO_Line_Location_Id IS NOT NULL) THEN
945:
946: -------------------------------------------------------------------
947: l_debug_info := 'Step 1.1: PO additional info '||l_org_Id||' & '||P_PO_Quantity||' & '||P_Po_Header_Id||' &' ||P_Po_header_curr_conv_rate ||' & '||l_po_release_id||' & '||p_uom_code ;
948: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
949: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
950: END IF;
951: -------------------------------------------------------------------
952:
953: ELSIF ( P_PO_Distribution_Id IS NOT NULL) THEN
960:
961: -------------------------------------------------------------------
962: l_debug_info := 'Step 1.1: PO additional info '||l_org_Id||' & '||P_PO_Quantity||' & '||P_PO_Line_Location_Id||' & '||P_Po_Header_Id||' &' ||P_Po_header_curr_conv_rate ||' & '||l_po_release_id||' & '||p_uom_code ;
963: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
964: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
965: END IF;
966: -------------------------------------------------------------------
967:
968:
982:
983: -------------------------------------------------------------------
984: l_debug_info := 'Step 2: Product Org Id '||p_product_org_id;
985: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
986: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
987: END IF;
988: -------------------------------------------------------------------
989:
990: -- Bug 5193570
996:
997: -------------------------------------------------------------------
998: l_debug_info := 'Step 3: p_po_header_id and l_doc_type '||p_po_header_id||' & '||l_doc_type;
999: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1000: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1001: END IF;
1002: -------------------------------------------------------------------
1003:
1004: ELSE
1006:
1007: -------------------------------------------------------------------
1008: l_debug_info := 'Step 3: l_doc_type '||l_doc_type;
1009: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1010: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1011: END IF;
1012: -------------------------------------------------------------------
1013:
1014: END IF;
1033: l_debug_info := 'Step 4: Calling PO API to get PO etax document '||
1034: ' setup info '||l_doc_type||' & '||p_application_id||' & '||p_entity_code||' & '||p_event_class_code;
1035:
1036: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1037: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1038: END IF;
1039: -------------------------------------------------------------------
1040:
1041: RETURN TRUE;
1102: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Awt_Group_Id<-'||
1103: P_calling_sequence;
1104:
1105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
1107: END IF;
1108:
1109:
1110: OPEN prepay_awt_group_id( P_Prepay_Distribution_id);
1115: -------------------------------------------------------------------
1116: l_debug_info := 'Step 1: Get awt_group_id from prepay item line '||l_awt_group_id;
1117:
1118: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1120: END IF;
1121: -------------------------------------------------------------------
1122:
1123: RETURN l_awt_group_id;
1213: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Lines<-'||
1214: P_calling_sequence;
1215:
1216: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1217: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
1218: END IF;
1219:
1220: -------------------------------------------------------------------
1221: l_debug_info := 'Incorrect Summary Tax Line Check';
1219:
1220: -------------------------------------------------------------------
1221: l_debug_info := 'Incorrect Summary Tax Line Check';
1222: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1223: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1224: END IF;
1225: -------------------------------------------------------------------
1226:
1227: BEGIN
1295:
1296: -------------------------------------------------------------------
1297: l_debug_info := 'Invoice Line Number that causes this failure: '||l_invoice_line_number;
1298: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1299: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1300: END IF;
1301:
1302: l_debug_info := 'Summary Tax Line ID for this line: '||l_ap_summary_tax_line_id;
1303: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1300: END IF;
1301:
1302: l_debug_info := 'Summary Tax Line ID for this line: '||l_ap_summary_tax_line_id;
1303: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1305: END IF;
1306: -------------------------------------------------------------------
1307: /* Bug 9777752
1308: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1336:
1337: -------------------------------------------------------------------
1338: l_debug_info := 'Get ap_system_parameters data';
1339: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1340: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1341: END IF;
1342: -------------------------------------------------------------------
1343:
1344: BEGIN
1364:
1365: -------------------------------------------------------------------
1366: l_debug_info := 'Update existing exclusive tax lines';
1367: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1368: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1369: END IF;
1370: -------------------------------------------------------------------
1371: BEGIN
1372: UPDATE ap_invoice_lines_all ail
1446: for manual tax lines and tax only lines so that we do not delete and regenerate the tax lines . */
1447: -------------------------------------------------------------------
1448: l_debug_info := 'Update summary tax line id for manual tax lines';
1449: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1450: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1451: END IF;
1452: -------------------------------------------------------------------
1453: BEGIN
1454:
1511:
1512: -------------------------------------------------------------------
1513: l_debug_info := 'Delete exclusive tax lines if required';
1514: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1515: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1516: END IF;
1517: -------------------------------------------------------------------
1518: BEGIN
1519: DELETE ap_invoice_lines_all ail
1567:
1568: -------------------------------------------------------------------
1569: l_debug_info := 'Get open gl_date';
1570: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1572: END IF;
1573: -------------------------------------------------------------------
1574:
1575: l_period_name := AP_UTILITIES_PKG.get_current_gl_date (P_Invoice_Header_Rec.gl_date, P_Invoice_header_Rec.org_id);
1592:
1593: -------------------------------------------------------------------
1594: l_debug_info := 'Insert exclusive tax lines';
1595: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1597: END IF;
1598: -------------------------------------------------------------------
1599: BEGIN
1600: INSERT INTO ap_invoice_lines_all (
2013:
2014: -------------------------------------------------------------------
2015: l_debug_info := 'Update Inclusive tax amount';
2016: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2017: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2018: END IF;
2019: -------------------------------------------------------------------
2020: BEGIN
2021: --bug 6931461
2055:
2056: --------------------------------------------------
2057: l_debug_info := 'Create Tax Allocations';
2058: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2059: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2060: END IF;
2061: --------------------------------------------------
2062: BEGIN
2063: OPEN c_item_line(P_Invoice_Header_Rec.invoice_id);
2087: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2088: END IF;
2089:
2090: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2091: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,sqlerrm);
2092: END IF;
2093:
2094: IF ( c_item_line%ISOPEN ) THEN
2095: CLOSE c_item_line;
2100:
2101: -------------------------------------------------------------------
2102: l_debug_info := 'Update total_tax_amount and self_assessed tax';
2103: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2104: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2105: END IF;
2106: -------------------------------------------------------------------
2107:
2108: /*Bug 8638881 added CASE in the below SQL to consider the case of invoice includes prepay*/
2172:
2173: -----------------------------------------------------------------
2174: l_debug_info := 'Update tax_already_calculated_flag';
2175: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2176: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2177: END IF;
2178: -----------------------------------------------------------------
2179: BEGIN
2180: UPDATE ap_invoice_lines_all ail
2204:
2205: -----------------------------------------------------------------
2206: l_debug_info := 'Update Invoice Includes Prepay Flag';
2207: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2209: END IF;
2210: -----------------------------------------------------------------
2211:
2212: /*added the case for bug 8638881*/
4071: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions<-'||
4072: P_calling_sequence;
4073:
4074: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4075: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Return_Tax_Distributions(+)');
4076: END IF;
4077:
4078: DELETE FROM AP_Line_Temp_GT;
4079:
4083:
4084: -------------------------------------------------------------------
4085: l_debug_info := 'Get profile option info';
4086: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4087: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
4088: END IF;
4089: -------------------------------------------------------------------
4090:
4091: l_allow_pa_override := FND_PROFILE.VALUE('PA_ALLOW_FLEXBUILDER_OVERRIDES');
4092:
4093: -------------------------------------------------------------------
4094: l_debug_info := 'Get tax distributions for update';
4095: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4096: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
4097: END IF;
4098: -------------------------------------------------------------------
4099: OPEN UPDATE_TAX_DIST;
4100: LOOP
4108: -------------------------------------------------------------------
4109: l_debug_info := 'Tax distributions updated: '||l_inv_dist_upd.count;
4110: -------------------------------------------------------------------
4111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4113: END IF;
4114:
4115: IF (l_inv_dist_upd.COUNT <> 0) THEN
4116:
4122: ||' '||'Excl Tax dist Id: '||l_inv_dist_upd(j).invoice_distribution_id
4123: ||' '||'Detail Tax Dist Id: '||l_inv_dist_upd(j).detail_tax_dist_id;
4124: -------------------------------------------------------------------
4125: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4126: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4127: END IF;
4128:
4129: /*
4130: --bug 10621602 starts
4231: ' Amt: '||l_inv_dist_upd(j).amount||
4232: ' Base Amt: '||l_inv_dist_upd(j).base_amount;
4233:
4234: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4235: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4236: END IF;
4237: -------------------------------------------------------------------
4238:
4239: END LOOP;
4245:
4246: -------------------------------------------------------------------
4247: l_debug_info := 'Get tax variance distributions for update';
4248: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4250: END IF;
4251: -------------------------------------------------------------------
4252:
4253: OPEN UPDATE_TAX_VARIANCES;
4262: -------------------------------------------------------------------
4263: l_debug_info := 'Tax Variance distributions updated: '||l_inv_dist_upd.count;
4264: -------------------------------------------------------------------
4265: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4266: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4267: END IF;
4268:
4269: IF (l_inv_dist_upd.COUNT <> 0) THEN
4270:
4276: ||' '||'Tax Variance dist Id: '||l_inv_dist_upd(j).invoice_distribution_id
4277: ||' '||'Detail Tax Dist Id: '||l_inv_dist_upd(j).detail_tax_dist_id;
4278: -------------------------------------------------------------------
4279: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4280: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4281: END IF;
4282:
4283: /*
4284: --bug 10621602 starts
4382: ' Amt: '||l_inv_dist_upd(j).amount||
4383: ' Base Amt: '||l_inv_dist_upd(j).base_amount;
4384:
4385: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4386: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4387: END IF;
4388: -------------------------------------------------------------------
4389:
4390: END LOOP;
4396:
4397: -------------------------------------------------------------------
4398: l_debug_info := 'Step 5: Get tax distributions for update';
4399: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4400: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4401: END IF;
4402: -------------------------------------------------------------------
4403:
4404: OPEN UPDATE_TAX_SELF;
4413: -------------------------------------------------------------------
4414: l_debug_info := 'Step 5: Self assessed dist updated: '||l_inv_self_upd.COUNT;
4415: -------------------------------------------------------------------
4416: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4417: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4418: END IF;
4419:
4420: IF (l_inv_self_upd.COUNT <> 0) THEN
4421:
4426: ||' '||'Self assessed dist Id: '||l_inv_self_upd(j).invoice_distribution_id
4427: ||' '||'Detail Tax Dist Id: '||l_inv_self_upd(j).detail_tax_dist_id;
4428: -------------------------------------------------------------------
4429: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4430: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4431: END IF;
4432:
4433: UPDATE ap_self_assessed_tax_dist_all
4434: SET accounting_date = l_inv_self_upd(j).accounting_date,
4521: ' Amt: '||l_inv_self_upd(j).amount||
4522: ' Base Amt: '||l_inv_self_upd(j).base_amount;
4523:
4524: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4526: END IF;
4527: -------------------------------------------------------------------
4528:
4529: END LOOP;
4534:
4535: -------------------------------------------------------------------
4536: l_debug_info := 'Step 6: Get tax distributions for insert';
4537: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4539: END IF;
4540: -------------------------------------------------------------------
4541: OPEN INSERT_TAX_DIST;
4542: LOOP
4553: -------------------------------------------------------------------
4554: l_debug_info := 'Tax distributions to insert: '||l_inv_dist_ins.COUNT;
4555: -------------------------------------------------------------------
4556: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4557: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4558: END IF;
4559:
4560: FOR i IN l_inv_dist_ins.FIRST..l_inv_dist_ins.LAST LOOP
4561: l_dist_code_combination_id := NULL; -- bug 9954778
4588: -------------------------------------------------------------------
4589: l_debug_info := 'Parent Line Lookup Code And Retaind Inv Dist Id: '||l_par_line_type_lookup_code||' -- '||l_par_retained_invoice_dist_id;
4590: -------------------------------------------------------------------
4591: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4592: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4593: END IF;
4594:
4595: IF (l_par_line_type_lookup_code = 'RETAINAGE' AND l_par_retained_invoice_dist_id IS NOT NULL) THEN
4596:
4607: -------------------------------------------------------------------
4608: l_debug_info := 'Disc CCID from parent NONREC_TAX: '||l_dist_code_combination_id;
4609: -------------------------------------------------------------------
4610: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4611: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4612: END IF;
4613:
4614: END IF;
4615:
4615:
4616: EXCEPTION WHEN OTHERS THEN
4617:
4618: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'RETURN_TAX_DISTRIBUTIONS','Error while getting ccid for retainge invoice');
4620: END IF;
4621: APP_EXCEPTION.RAISE_EXCEPTION;
4622: END ;
4623:
4630: -------------------------------------------------------------------
4631: l_debug_info := 'PO: Setting Non-Rec tax account same as its parent';
4632: -------------------------------------------------------------------
4633: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4634: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4635: END IF;
4636:
4637: --bug 10621602 changes start
4638:
4678: l_pa_called := 'Y';
4679: p_ccid := l_dist_code_combination_id;
4680: IF( NOT l_pa_success) then
4681: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4682: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error while retriving the ccid from projects');
4683: END IF;
4684:
4685: IF AP_APPROVAL_PKG.G_VALIDATION_REQUEST_ID IS NULL THEN
4686: APP_EXCEPTION.RAISE_EXCEPTION;
4695: IF (l_dist_code_combination_id IS NULL
4696: AND l_inv_dist_ins(i).dist_code_combination_id IS NULL) THEN
4697:
4698: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4699: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'User has not provided a overide account on line');
4700: END IF;
4701:
4702: ELSIF (l_inv_dist_ins(i).dist_code_combination_id IS NOT NULL) then
4703:
4701:
4702: ELSIF (l_inv_dist_ins(i).dist_code_combination_id IS NOT NULL) then
4703:
4704: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4705: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'User has defined a overide account on line');
4706: END IF;
4707:
4708: END IF;
4709:
4709:
4710: ELSIF (l_dist_code_combination_id IS NULL) then
4711:
4712: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4713: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'User has not defined a project account and the Project Override Flag is Not Set');
4714: END IF;
4715:
4716: END IF;
4717:
4726: END IF;
4727:
4728:
4729: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4730: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'before geting ccid from corresponding tax distribution');
4731: END IF;
4732: -- This section to get ccid from corresponding tax distribution if
4733: -- line discard/invoice cancellation or correction
4734: -- quick credit or prepayment application/unapplication
4738: and l_inv_dist_ins(i).parent_dist_parent_reversal_id IS NOT NULL
4739: AND l_inv_dist_ins(i).reversed_tax_dist_id IS NOT NULL)) THEN -- bug 7389822 --Bugg 9034372
4740:
4741: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4742: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'geting ccid for discard, cancellation');
4743: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_cancellation_flag '
4744: ||l_inv_dist_ins(i).parent_dist_cancellation_flag);
4745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
4746: ||p_invoice_header_rec.quick_credit);
4739: AND l_inv_dist_ins(i).reversed_tax_dist_id IS NOT NULL)) THEN -- bug 7389822 --Bugg 9034372
4740:
4741: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4742: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'geting ccid for discard, cancellation');
4743: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_cancellation_flag '
4744: ||l_inv_dist_ins(i).parent_dist_cancellation_flag);
4745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
4746: ||p_invoice_header_rec.quick_credit);
4747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
4741: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4742: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'geting ccid for discard, cancellation');
4743: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_cancellation_flag '
4744: ||l_inv_dist_ins(i).parent_dist_cancellation_flag);
4745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
4746: ||p_invoice_header_rec.quick_credit);
4747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
4748: ||to_char(p_invoice_header_rec.credited_invoice_id));
4749: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_reversal_flag '
4743: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_cancellation_flag '
4744: ||l_inv_dist_ins(i).parent_dist_cancellation_flag);
4745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
4746: ||p_invoice_header_rec.quick_credit);
4747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
4748: ||to_char(p_invoice_header_rec.credited_invoice_id));
4749: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_reversal_flag '
4750: ||l_inv_dist_ins(i).parent_dist_reversal_flag);
4751: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_parent_reversal_id '
4745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
4746: ||p_invoice_header_rec.quick_credit);
4747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
4748: ||to_char(p_invoice_header_rec.credited_invoice_id));
4749: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_reversal_flag '
4750: ||l_inv_dist_ins(i).parent_dist_reversal_flag);
4751: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_parent_reversal_id '
4752: ||to_char(l_inv_dist_ins(i).parent_dist_parent_reversal_id));
4753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).reversed_tax_dist_id '
4747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
4748: ||to_char(p_invoice_header_rec.credited_invoice_id));
4749: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_reversal_flag '
4750: ||l_inv_dist_ins(i).parent_dist_reversal_flag);
4751: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_parent_reversal_id '
4752: ||to_char(l_inv_dist_ins(i).parent_dist_parent_reversal_id));
4753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).reversed_tax_dist_id '
4754: ||to_char(l_inv_dist_ins(i).reversed_tax_dist_id));
4755: END IF;
4749: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_reversal_flag '
4750: ||l_inv_dist_ins(i).parent_dist_reversal_flag);
4751: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).parent_dist_parent_reversal_id '
4752: ||to_char(l_inv_dist_ins(i).parent_dist_parent_reversal_id));
4753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_dist_ins(i).reversed_tax_dist_id '
4754: ||to_char(l_inv_dist_ins(i).reversed_tax_dist_id));
4755: END IF;
4756:
4757: --Bug fix 6653070, bug fix 6687031
4762: AND line_type_lookup_code IN ('REC_TAX', 'NONREC_TAX','TIPV', 'TRV', 'TERV')
4763: AND rownum =1;--Bug7241425
4764:
4765: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4766: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'after geting ccid for discard, cancellation');
4767: END IF;
4768:
4769: --Below ELSIF will execute only during Quick Credit Operation
4770: --Batch Validation and Online Validation have no impact due to
4773: ELSIF (nvl(p_invoice_header_rec.quick_credit,'N') <> 'Y' and -- Bug 9034372
4774: l_inv_dist_ins(i).corrected_invoice_dist_id IS NOT NULL) THEN
4775:
4776: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4777: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' Adjusted Doc Tax Dist Id '||l_inv_dist_ins(i).adjusted_doc_tax_dist_id);
4778: END IF;
4779:
4780: SELECT dist_code_combination_id
4781: INTO l_dist_code_combination_id
4783: WHERE detail_tax_dist_id = l_inv_dist_ins(i).adjusted_doc_tax_dist_id
4784: AND line_type_lookup_code IN ('REC_TAX','NONREC_TAX','TIPV','TRV','TERV')--Bug7241425
4785: AND rownum =1;--Bug7241425
4786: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4787: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'after geting ccid from corresponding tax distribution for correction case');
4788: END IF;
4789:
4790: --BUG 8740802
4791: --ELSIF (l_inv_dist_ins(i).applied_from_tax_dist_id IS NOT NULL) THEN
4805: -------------------------------------------------------------------
4806: l_debug_info := 'Before Getting CCID based on applied from tax dist id '||l_inv_dist_ins(i).applied_from_tax_dist_id;
4807:
4808: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4809: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4810: END IF;
4811: -------------------------------------------------------------------
4812:
4813: BEGIN
4821: -------------------------------------------------------------------
4822: l_debug_info := 'After Getting CCID based on applied from tax dist id';
4823:
4824: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4825: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4826: END IF;
4827: -------------------------------------------------------------------
4828: --It is Expected that no exception will occur.
4829: END IF;
4836: ' l_allow_pa_override: '||l_allow_pa_override||
4837: ' applied_from_tax_dist_id: '||l_inv_dist_ins(i).applied_from_tax_dist_id;
4838: -----------------------------------------------------------
4839: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4840: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4841: END IF;
4842:
4843: /* Bug12728634 starts */
4844: IF ((l_inv_dist_ins(i).line_type_lookup_code = 'REC_TAX' OR
4867: -----------------------------------------------------------
4868: l_debug_info := 'Call zx_api_pub.get_tax_distribution_ccids';
4869: -----------------------------------------------------------
4870: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4871: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4872: END IF;
4873:
4874: zx_api_pub.get_tax_distribution_ccids(
4875: p_api_version => 1.0,
4888: -----------------------------------------------------------
4889: l_debug_info := 'Handle errors returned by API';
4890: -----------------------------------------------------------
4891: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4892: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4893: END IF;
4894:
4895: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
4896: P_All_Error_Messages => P_All_Error_Messages,
4911: NVL(l_dist_code_combination_id, -99) = -99) THEN
4912:
4913: l_debug_info := 'Reassigned the projects account '||p_ccid;
4914: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4915: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4916: END IF;
4917: l_dist_code_combination_id := p_ccid;
4918:
4919: END IF;
4924: as the account is neither entered in the invoice line nor is an expense account set up*/
4925: -----------------------------------------------------------
4926: l_debug_info := 'Check If Tax Only Non Rec Distribution has CCID';
4927: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4928: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4929: END IF;
4930: -----------------------------------------------------------
4931: IF l_dist_ccid_rec.recoverable_flag = 'N' AND
4932: NVL(l_dist_code_combination_id, -99) = -99 THEN
4954: -------------------------------------------------------------------
4955: l_debug_info := 'Insert REC/NONREC distributions';
4956: -------------------------------------------------------------------
4957: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4958: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4959: END IF;
4960:
4961: -- Bug 13821160: Set asset tracking flag of ccid in l_inv_dist_ins(i) for non allocated lines
4962: IF (l_inv_dist_ins(i).charge_applicable_to_dist_id IS NULL) THEN
4985:
4986: -------------------------------------------------------------------
4987: l_debug_info := 'Get Tax Variances';
4988: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4989: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4990: END IF;
4991: ------------------------------------------------------------------
4992: OPEN INSERT_TAX_VARIANCES;
4993: LOOP
5004: FOR i IN l_inv_dist_ins.FIRST..l_inv_dist_ins.LAST LOOP
5005: -------------------------------------------------------------------
5006: l_debug_info := 'CCID From Cursor '||l_inv_dist_ins(i).dist_code_combination_id;
5007: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5008: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5009: END IF;
5010: ------------------------------------------------------------------
5011: l_dist_code_combination_id := l_inv_dist_ins(i).dist_code_combination_id;
5012:
5022: END;
5023: -------------------------------------------------------------------
5024: l_debug_info := 'Get CCID For LCM Enanbled Transaction ';
5025: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5026: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5027: END IF;
5028: ------------------------------------------------------------------
5029: IF(l_lcm_enabled = 'Y') THEN
5030:
5030:
5031: -------------------------------------------------------------------
5032: l_debug_info := 'LCM Enabled '||l_lcm_enabled;
5033: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5034: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5035: END IF;
5036: ------------------------------------------------------------------
5037: -------------------------------------------------------------------
5038: l_debug_info := 'RCV Transaction Id '||L_INV_DIST_INS(i).rcv_transaction_id;
5036: ------------------------------------------------------------------
5037: -------------------------------------------------------------------
5038: l_debug_info := 'RCV Transaction Id '||L_INV_DIST_INS(i).rcv_transaction_id;
5039: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5040: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5041: END IF;
5042: ------------------------------------------------------------------
5043:
5044: l_rcv_transaction_id := L_INV_DIST_INS(i).rcv_transaction_id;
5053: l_dist_code_combination_id := l_tax_variance_account_id;
5054: -------------------------------------------------------------------
5055: l_debug_info := 'CCID For LCM Enanbled Transaction '||l_dist_code_combination_id;
5056: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5057: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5058: END IF;
5059: ------------------------------------------------------------------
5060:
5061: --Bug12896924 START--
5080: -----------------------------------------------------------
5081: l_debug_info := 'Call zx_api_pub.get_tax_distribution_ccids - Tax Variance';
5082: -----------------------------------------------------------
5083: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5084: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5085: END IF;
5086:
5087: zx_api_pub.get_tax_distribution_ccids(
5088: p_api_version => 1.0,
5099:
5100: -------------------------------------------------------------------
5101: l_debug_info := 'Tax Variance CCID ACCRUE ON RECEIPT N '||l_dist_code_combination_id;
5102: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5103: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5104: END IF;
5105: ------------------------------------------------------------------
5106:
5107: IF (l_return_status_service <> 'S') THEN
5108: -----------------------------------------------------------
5109: l_debug_info := 'Handle errors returned by API';
5110: -----------------------------------------------------------
5111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5113: END IF;
5114:
5115: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
5116: P_All_Error_Messages => P_All_Error_Messages,
5140: -------------------------------------------------------------------
5141: l_debug_info := 'Insert Tax Variance Distributions';
5142: -------------------------------------------------------------------
5143: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5144: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5145: END IF;
5146:
5147: ap_etax_utility_pkg.insert_tax_distributions(
5148: p_invoice_header_rec => p_invoice_header_rec,
5161:
5162: -------------------------------------------------------------------
5163: l_debug_info := 'Get self assessed dist for insert';
5164: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5166: END IF;
5167: -------------------------------------------------------------------
5168:
5169: OPEN INSERT_TAX_SELF;
5181: -------------------------------------------------------------------
5182: l_debug_info := 'Insert self assessed tax distributions';
5183: -------------------------------------------------------------------
5184: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5185: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5186: END IF;
5187:
5188: FOR i IN l_inv_self_ins.FIRST..l_inv_self_ins.LAST LOOP
5189: l_dist_code_combination_id := NULL; -- bug 9954778
5192: -------------------------------------------------------------------
5193: l_debug_info := 'Get ccid for self assessed distributions';
5194: -------------------------------------------------------------------
5195: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5196: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5197: END IF;
5198:
5199: IF (l_inv_self_ins(i).line_type_lookup_code = 'NONREC_TAX') THEN
5200:
5208: -------------------------------------------------------------------
5209: l_debug_info := 'PO: Setting Self Assessed Non-Rec tax account same as its parent';
5210: -------------------------------------------------------------------
5211: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5212: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5213: END IF;
5214:
5215: l_dist_code_combination_id := l_inv_self_ins(i).dist_code_combination_id;
5216:
5222: -------------------------------------------------------------------
5223: l_debug_info := 'Setting Self Assessed Non-Rec tax account same as its parent as invoice is PA Related';
5224: -------------------------------------------------------------------
5225: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5226: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5227: END IF;
5228:
5229: l_dist_code_combination_id := l_inv_self_ins(i).dist_code_combination_id;
5230:
5242: and l_inv_self_ins(i).reversed_tax_dist_id IS NOT NULL)) THEN --Bug14401623
5243:
5244:
5245: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'geting ccid for discard, cancellation');
5247: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_cancellation_flag '
5248: ||l_inv_self_ins(i).parent_dist_cancellation_flag);
5249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
5250: ||p_invoice_header_rec.quick_credit);
5243:
5244:
5245: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'geting ccid for discard, cancellation');
5247: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_cancellation_flag '
5248: ||l_inv_self_ins(i).parent_dist_cancellation_flag);
5249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
5250: ||p_invoice_header_rec.quick_credit);
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
5245: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'geting ccid for discard, cancellation');
5247: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_cancellation_flag '
5248: ||l_inv_self_ins(i).parent_dist_cancellation_flag);
5249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
5250: ||p_invoice_header_rec.quick_credit);
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
5252: ||to_char(p_invoice_header_rec.credited_invoice_id));
5253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_reversal_flag '
5247: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_cancellation_flag '
5248: ||l_inv_self_ins(i).parent_dist_cancellation_flag);
5249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
5250: ||p_invoice_header_rec.quick_credit);
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
5252: ||to_char(p_invoice_header_rec.credited_invoice_id));
5253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_reversal_flag '
5254: ||l_inv_self_ins(i).parent_dist_reversal_flag);
5255: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_parent_reversal_id '
5249: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.quick_credit '
5250: ||p_invoice_header_rec.quick_credit);
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
5252: ||to_char(p_invoice_header_rec.credited_invoice_id));
5253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_reversal_flag '
5254: ||l_inv_self_ins(i).parent_dist_reversal_flag);
5255: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_parent_reversal_id '
5256: ||to_char(l_inv_self_ins(i).parent_dist_parent_reversal_id));
5257: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).reversed_tax_dist_id '
5251: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'p_invoice_header_rec.credited_invoice_id '
5252: ||to_char(p_invoice_header_rec.credited_invoice_id));
5253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_reversal_flag '
5254: ||l_inv_self_ins(i).parent_dist_reversal_flag);
5255: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_parent_reversal_id '
5256: ||to_char(l_inv_self_ins(i).parent_dist_parent_reversal_id));
5257: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).reversed_tax_dist_id '
5258: ||to_char(l_inv_self_ins(i).reversed_tax_dist_id));
5259: END IF;
5253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_reversal_flag '
5254: ||l_inv_self_ins(i).parent_dist_reversal_flag);
5255: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).parent_dist_parent_reversal_id '
5256: ||to_char(l_inv_self_ins(i).parent_dist_parent_reversal_id));
5257: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'l_inv_self_ins(i).reversed_tax_dist_id '
5258: ||to_char(l_inv_self_ins(i).reversed_tax_dist_id));
5259: END IF;
5260:
5261: SELECT dist_code_combination_id
5270: -------------------------------------------------------------------
5271: l_debug_info := 'Get CCID From Correction '||l_inv_self_ins(i).adjusted_doc_tax_dist_id;
5272: -------------------------------------------------------------------
5273: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5274: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5275: END IF;
5276:
5277: SELECT dist_code_combination_id
5278: INTO l_dist_code_combination_id
5345: -----------------------------------------------------------
5346: l_debug_info := 'Handle errors returned by API';
5347: -----------------------------------------------------------
5348: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5350: END IF;
5351:
5352: IF NOT(AP_ETAX_UTILITY_PKG.Return_Error_Messages(
5353: P_All_Error_Messages => P_All_Error_Messages,
5365: -------------------------------------------------------------------
5366: l_debug_info := 'Insert self assessed distributions';
5367: -------------------------------------------------------------------
5368: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5369: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5370: END IF;
5371:
5372: BEGIN
5373: INSERT INTO ap_self_assessed_tax_dist_all (
5720: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
5721: END IF;
5722:
5723: IF (G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5724: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5725: END IF;
5726:
5727: APP_EXCEPTION.RAISE_EXCEPTION;
5728: END;
5749: NULL;
5750: END;
5751:
5752: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Frozen Deleted Dist Count: '||sql%rowcount);
5754: END IF;
5755:
5756: IF (l_frozen_tax_del.count > 0) Then --bug10140354
5757:
5771: /* IF l_frozen_tax_dist_id IS NOT NULL THEN
5772: -------------------------------------------------------------------
5773: l_debug_info := 'Froze Dist Deleted: ' ||l_frozen_tax_dist_id;
5774: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5775: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5776: END IF;
5777: l_debug_info := 'Summary Tax Line ID for this Dist: '||l_frozen_summary_tax_line_id;
5778: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5779: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5775: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5776: END IF;
5777: l_debug_info := 'Summary Tax Line ID for this Dist: '||l_frozen_summary_tax_line_id;
5778: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5779: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5780: END IF; */
5781: -------------------------------------------------------------------
5782:
5783: /* Bug 9777752
5806: -------------------------------------------------------------------
5807: l_debug_info := 'Delete tax distributions';
5808: -------------------------------------------------------------------
5809: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5811: END IF;
5812:
5813: DELETE FROM ap_invoice_distributions_all aid
5814: WHERE aid.invoice_distribution_id IN
5848: WHEN NO_DATA_FOUND THEN
5849: NULL;
5850: END;
5851: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5852: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Frozen Deleted Self Assessed Dist Count: '||sql%rowcount);
5853: END IF;
5854:
5855: IF (l_frozen_self_tax_del.count > 0) Then --bug10140354
5856:
5869: /* IF l_frozen_tax_dist_id IS NOT NULL THEN
5870: -------------------------------------------------------------------
5871: l_debug_info := 'Froze Self Assessed Dist Deleted: '||l_frozen_tax_dist_id;
5872: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5873: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5874: END IF;
5875: l_debug_info := 'Summary Tax Line ID for this Dist: '||l_frozen_summary_tax_line_id;
5876: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5877: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5873: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5874: END IF;
5875: l_debug_info := 'Summary Tax Line ID for this Dist: '||l_frozen_summary_tax_line_id;
5876: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5877: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5878: END IF; */
5879: -------------------------------------------------------------------
5880: /* Bug 9777752
5881: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
5901: -------------------------------------------------------------------
5902: l_debug_info := 'Get self assessed distributions to delete';
5903: -------------------------------------------------------------------
5904: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5905: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5906: END IF;
5907:
5908: DELETE FROM ap_self_assessed_tax_dist_all aid
5909: WHERE aid.invoice_distribution_id IN
5928: -------------------------------------------------------------------
5929: l_debug_info := 'Synchronize line numbers for orphan distributions';
5930: -------------------------------------------------------------------
5931: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5932: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
5933: END IF;
5934:
5935: BEGIN -- Bug 9777752
5936: UPDATE ap_invoice_distributions_all aid
5968: END IF ;
5969: END ; -- Bug 9777752
5970:
5971: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5972: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Orphan Distributions updated: '||sql%rowcount);
5973: END IF;
5974:
5975: RETURN TRUE;
5976:
5991: CLOSE insert_tax_dist;
5992: END IF;
5993:
5994: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5995: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5996: END IF;
5997:
5998: --bug10140354
5999: IF AP_APPROVAL_PKG.G_VALIDATION_REQUEST_ID IS NULL THEN
6089: -----------------------------------------------------------------
6090: l_debug_info := 'Step 1: Get rejections from zx_trans_lines_val_errs'||
6091: ' table';
6092: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6093: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6094: END IF;
6095: -----------------------------------------------------------------
6096: BEGIN
6097: OPEN rejections_gt;
6105: -----------------------------------------------------------------
6106: l_debug_info := 'Step 2: Create rejections in the import rejections '||
6107: 'table';
6108: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6109: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6110: END IF;
6111: -----------------------------------------------------------------
6112: IF (rej_lines(i).line_number IS NULL) THEN -- rejection is at invoice level
6113: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
6146:
6147: -----------------------------------------------------------------
6148: l_debug_info := 'Step 3: Loop through lines import pl/sql table';
6149: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6150: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6151: END IF;
6152: -----------------------------------------------------------------
6153: IF (P_Invoice_Lines_Tab.COUNT > 0) THEN
6154: FOR i IN P_Invoice_Lines_Tab.FIRST..P_Invoice_Lines_Tab.LAST LOOP
6156: -------------------------------------------------------------------
6157: l_debug_info := 'Step 4: Get trx and tax line info to update pl/sql '||
6158: 'table';
6159: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6160: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6161: END IF;
6162: -------------------------------------------------------------------
6163: IF (P_Invoice_Lines_Tab(i).line_type_lookup_code <> 'TAX') THEN
6164:
6169: END;
6170: -----------------------------------------------------------------
6171: l_debug_info := 'Step 5: Update non-tax lines in pl/sql table';
6172: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6173: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6174: END IF;
6175: -----------------------------------------------------------------
6176: P_Invoice_Lines_Tab(i).trx_business_category := trans_lines_gt.trx_business_category;
6177: P_Invoice_Lines_Tab(i).primary_intended_use := trans_lines_gt.line_intended_use;
6183: -----------------------------------------------------------------
6184: l_debug_info := 'Step 5.1 Getting INPUT_TAX_CLASSIFICATION_CODE:'
6185: ||trans_lines_gt.INPUT_TAX_CLASSIFICATION_CODE;
6186: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6187: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6188: END IF;
6189: -----------------------------------------------------------------
6190: --Bug12660669 Start: Added source, inv type and line type check
6191: IF (p_invoice_header_rec.source = 'SelfService' AND
6207: -----------------------------------------------------------------
6208: l_debug_info := 'Step 6: Update tax lines in pl/sql table '||P_Invoice_Lines_Tab(i).line_number||
6209: ' Line Type'||P_Invoice_Lines_Tab(i).line_type_lookup_code;
6210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6211: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6212: END IF;
6213: -----------------------------------------------------------------
6214: -----------------------------------------------------------------
6215: l_debug_info := 'Step 6.1: Tax attributes: tax_regime_code'||tax_lines_gt.tax_regime_code||
6218: ' tax_rate_id'||tax_lines_gt.tax_rate_id||
6219: ' tax_rate_code'||tax_lines_gt.tax_rate_code||
6220: ' tax_rate'||tax_lines_gt.tax_rate;
6221: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6222: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6223: END IF;
6224: -----------------------------------------------------------------
6225: --6255826 Added Tax_regime_code and Tax assignments
6226: P_Invoice_Lines_Tab(i).tax_regime_code := tax_lines_gt.tax_regime_code;
6242:
6243: -----------------------------------------------------------------
6244: l_debug_info := 'Step 7: Update tax line if tax only invoice in pl/sql table';
6245: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6247: END IF;
6248: -----------------------------------------------------------------
6249: P_Invoice_Lines_Tab(i).trx_business_category := trans_lines_gt.trx_business_category;
6250: P_Invoice_Lines_Tab(i).primary_intended_use := trans_lines_gt.line_intended_use;
6311: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Return_Tax_Quote<-'||
6312: P_calling_sequence;
6313:
6314: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6315: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6316: END IF;
6317: -------------------------------------------------------------------
6318: l_debug_info := 'Step 1: Get data from zx_detail_tax_lines_gt and '||
6319: 'update amount and base_amount for line(s)';
6317: -------------------------------------------------------------------
6318: l_debug_info := 'Step 1: Get data from zx_detail_tax_lines_gt and '||
6319: 'update amount and base_amount for line(s)';
6320: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6322: END IF;
6323: -------------------------------------------------------------------
6324: BEGIN
6325: UPDATE ap_invoice_lines_all ail
6401:
6402: -------------------------------------------------------------------
6403: l_debug_info := 'Get error message from eTax API';
6404: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6405: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6406: END IF;
6407: -------------------------------------------------------------------
6408:
6409: BEGIN
6415: WHEN OTHERS THEN
6416: -------------------------------------------------------------------
6417: l_debug_info := 'Get error message from stack';
6418: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6419: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6420: END IF;
6421: -------------------------------------------------------------------
6422: IF (NVL(P_Msg_Count, 0) <= 1) THEN
6423: P_Error_Code := P_Msg_Data;
6434: END IF;
6435: END;
6436:
6437: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,p_error_code);
6439: END IF;
6440:
6441: RETURN TRUE;
6442:
6507: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Called_Inv<-'||
6508: P_calling_sequence;
6509:
6510: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6511: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6512: END IF;
6513:
6514: -------------------------------------------------------------------
6515: l_debug_info := 'Step 1: Get tax_already_calculated_flag for any '||
6514: -------------------------------------------------------------------
6515: l_debug_info := 'Step 1: Get tax_already_calculated_flag for any '||
6516: 'taxable line in the invoice';
6517: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6518: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6519: END IF;
6520: -------------------------------------------------------------------
6521: OPEN tax_already_calculated;
6522: FETCH tax_already_calculated
6526: IF (l_tax_already_calculated_flag = 'Y') THEN
6527: -------------------------------------------------------------------
6528: l_debug_info := 'Step 1.1: Tax Already Calculated Flag: '||l_tax_already_calculated_flag;
6529: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6531: END IF;
6532: -------------------------------------------------------------------
6533: RETURN TRUE;
6534:
6595: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Called_Inv<-'||
6596: P_calling_sequence;
6597:
6598: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6599: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6600: END IF;
6601:
6602:
6603: -------------------------------------------------------------------
6603: -------------------------------------------------------------------
6604: l_debug_info := 'Step 1: Get tax_already_calculated_flag for any '||
6605: 'taxable line in the invoice';
6606: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6607: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6608: END IF;
6609: -------------------------------------------------------------------
6610: SELECT 'Y'
6611: INTO l_tax_already_calculated_flag
6618:
6619: -------------------------------------------------------------------
6620: l_debug_info := 'Step 1.1: Tax_already_calculated_flag '||l_tax_already_calculated_flag;
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: -------------------------------------------------------------------
6625:
6626: RETURN(l_tax_already_calculated_flag);
6687: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv<-'||
6688: P_calling_sequence;
6689:
6690: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6691: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
6692: END IF;
6693: -------------------------------------------------------------------
6694: l_debug_info := 'Step 1: Get tax_already_Distributed_flag for any '||
6695: 'taxable line in the invoice';
6693: -------------------------------------------------------------------
6694: l_debug_info := 'Step 1: Get tax_already_Distributed_flag for any '||
6695: 'taxable line in the invoice';
6696: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6697: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6698: END IF;
6699: -------------------------------------------------------------------
6700: OPEN etax_already_distributed;
6701: FETCH etax_already_distributed INTO l_tax_already_distributed_flag;
6712: IF (l_tax_already_distributed_flag = 'Y') THEN
6713: -------------------------------------------------------------------
6714: l_debug_info := 'Step 1.1: Tax_already_Distributed_flag '||l_tax_already_distributed_flag;
6715: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6716: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6717: END IF;
6718: -------------------------------------------------------------------
6719:
6720: RETURN TRUE;
6783:
6784: -------------------------------------------------------------------
6785: l_debug_info := 'Step 1: Get invoice_distribution_id from tax dist id';
6786: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6787: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
6788: END IF;
6789: -------------------------------------------------------------------
6790: OPEN invoice_dist_id;
6791: FETCH invoice_dist_id INTO l_invoice_distribution_id;
7145:
7146: l_curr_calling_sequence := p_calling_sequence ||'->AP_Etax_Utility_Pkg.Is_Tax_Line_Delete_Allowed';
7147:
7148: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7149: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
7150: END IF;
7151:
7152: l_debug_info := 'Open Tax_Distributions Cursor';
7153:
7151:
7152: l_debug_info := 'Open Tax_Distributions Cursor';
7153:
7154: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7155: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7156: END IF;
7157:
7158: OPEN tax_distributions;
7159:
7173:
7174: l_debug_info := 'Tax Line Delete Allowed '||l_tax_line_delete_allowed;
7175:
7176: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7178: END IF;
7179:
7180: IF (l_tax_line_delete_allowed = 'N') THEN
7181: RETURN(FALSE);
7234: BEGIN
7235: ---------------------------------------------------------------
7236: l_debug_info := 'Calling zx_api_pub.set_tax_security_context';
7237: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7238: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
7239: END IF;
7240: ---------------------------------------------------------------
7241:
7242: IF p_org_id IS NOT NULL AND
7315: 'p_line_source '||p_line_source||' '||'p_inv_currency_code '||p_inv_currency_code||' '||
7316: 'p_line_match_type '||p_line_match_type || 'p_trx_line_dist_id ' || p_trx_line_dist_id ||
7317: 'p_ref_per_trx_cur_unit_nrec' || p_ref_per_trx_cur_unit_nrec || ' p_rec_nrec_tax_dist_id ' || p_rec_nrec_tax_dist_id ;
7318:
7319: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7320: END IF;
7321:
7322: --bug 10621602 starts
7323: -- The below formula is only for the distribution related to retainage and retainge release invoice
7330: 'Retained amount ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retained_amount ||
7331: 'Retainage rate ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate ||
7332: 'Quantity_Invoiced' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced;
7333:
7334: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7335:
7336: END IF;
7337:
7338:
7348: '(p_quantity_invoiced * p_ref_doc_unit_price*(1 - AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate/100)))* p_ref_per_trx_cur_unit_nrec ' ||
7349: p_rate_tax_factor || ' *(( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' ) - ' ||
7350: ' ( ' || p_rate_tax_factor || ' * ' || p_ref_doc_unit_price || ' * (1 - ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100))) * ' || p_ref_per_trx_cur_unit_nrec ;
7351:
7352: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7353:
7354: END IF;
7355:
7356:
7356:
7357: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7358:
7359: l_debug_info := 'TIPV for standard invoice having retainage' || p_tax_ipv ;
7360: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7361:
7362: END IF;
7363:
7364: END IF;
7375: ' (AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced * p_ref_doc_unit_price*(AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate/100)))* p_ref_per_trx_cur_unit_nrec ' ||
7376: p_rate_tax_factor || ' *(( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' )- ' ||
7377: ' ( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' * ( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || '/100)))* '|| p_ref_per_trx_cur_unit_nrec ;
7378:
7379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7380:
7381: END IF;
7382:
7383:
7385:
7386: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7387:
7388: l_debug_info := 'TIPV for retainage invoice ' || p_tax_ipv ;
7389: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7390:
7391: END IF;
7392:
7393:
7410:
7411: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7412:
7413: l_debug_info := 'In P_LINE_TYPE = RETROITEM CHECK. TAX IPV IS 0';
7414: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7415:
7416: END IF;
7417: --Bug10416960
7418: ELSIF p_corrected_inv_id IS NULL THEN
7423:
7424: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7425:
7426: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_SERVICE_RECEIPT OR ITEM_TO_SERVICE_PO. HENCE TAX IPV IS 0';
7427: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7428:
7429: END IF;
7430:
7431:
7440: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7441:
7442: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_RECEIPT OR ITEM_TO_PO. HENCE TAX IPV IS '||p_tax_ipv;
7443:
7444: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7445:
7446: l_debug_info := 'p_tax_ipv := p_rate_tax_factor * p_quantity_invoiced * (p_inv_unit_price - p_ref_doc_unit_price) * p_ref_per_unit_nr_amt '||
7447: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * ('||p_inv_unit_price ||' - '||p_ref_doc_unit_price||') * '||
7448: p_ref_per_unit_nr_amt;
7446: l_debug_info := 'p_tax_ipv := p_rate_tax_factor * p_quantity_invoiced * (p_inv_unit_price - p_ref_doc_unit_price) * p_ref_per_unit_nr_amt '||
7447: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * ('||p_inv_unit_price ||' - '||p_ref_doc_unit_price||') * '||
7448: p_ref_per_unit_nr_amt;
7449:
7450: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7451:
7452: END IF;
7453:
7454: END IF;
7462: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7463:
7464: l_debug_info := 'CORRECTED INV ID IS NOT NULL. HENCE TAX IPV IS '||p_tax_ipv;
7465:
7466: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7467:
7468: l_debug_info := 'p_tax_ipv := p_rate_tax_factor * p_quantity_invoiced * p_pc_price_diff * p_ref_per_unit_nr_amt '||
7469: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_pc_price_diff||' * '||
7470: p_ref_per_unit_nr_amt;
7468: l_debug_info := 'p_tax_ipv := p_rate_tax_factor * p_quantity_invoiced * p_pc_price_diff * p_ref_per_unit_nr_amt '||
7469: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_pc_price_diff||' * '||
7470: p_ref_per_unit_nr_amt;
7471:
7472: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7473:
7474: END IF;
7475:
7476:
7485: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7486:
7487: l_debug_info := 'TAX IPV AFTER ROUNDING IS '||p_tax_ipv;
7488:
7489: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7490:
7491: END IF;
7492:
7493:
7553: 'p_line_type '||p_line_type||' '||'p_line_source '||p_line_source||' '||
7554: 'p_inv_currency_code '||p_inv_currency_code||' '||'p_base_currency_code '||p_base_currency_code||' '||
7555: 'p_line_match_type '||p_line_match_type || 'p_trx_line_dist_id ' || p_trx_line_dist_id ||
7556: 'p_ref_per_trx_cur_unit_nrec' || p_ref_per_trx_cur_unit_nrec || ' p_rec_nrec_tax_dist_id ' || p_rec_nrec_tax_dist_id;
7557: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7558: END IF;
7559:
7560: --bug10621602 starts
7561: -- The below formula is only for the distribution related to retainage and retainge release invoice
7568: 'Retained amount ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retained_amount ||
7569: 'Retainage rate ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate ||
7570: 'Quantity_Invoiced' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced;
7571:
7572: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7573:
7574: END IF;
7575:
7576:
7587: p_rate_tax_factor || ' * (( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' ) - ' ||
7588: ' ( ' || p_quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' *(1 - ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100))) * ' ||
7589: p_ref_per_trx_cur_unit_nrec || ' * ' || nvl(p_inv_currency_rate , 1) ;
7590:
7591: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7592:
7593: END IF;
7594:
7595:
7595:
7596: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7597:
7598: l_debug_info := 'TIPV_BASE for standard invoice having retainage' || p_tax_ipv_base ;
7599: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7600:
7601: END IF;
7602:
7603:
7615: p_rate_tax_factor || ' * (( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' ) - ' ||
7616: ' ( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' *( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100))) * ' ||
7617: p_ref_per_trx_cur_unit_nrec || ' * ' || nvl(p_inv_currency_rate , 1) ;
7618:
7619: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7620:
7621: END IF;
7622:
7623:
7623:
7624: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7625:
7626: l_debug_info := 'TIPV_BASE for retainage invoice ' || p_tax_ipv_base ;
7627: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7628:
7629: END IF;
7630:
7631: END IF;
7642:
7643: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7644:
7645: l_debug_info := 'In P_LINE_TYPE = RETROITEM CHECK. TAX IPV BASE IS 0';
7646: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7647:
7648: END IF;
7649:
7650: --Bug10416960
7657:
7658: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7659:
7660: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_SERVICE_RECEIPT OR ITEM_TO_SERVICE_PO. HENCE TAX IPV BASE IS 0';
7661: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7662:
7663: END IF;
7664:
7665: ELSE
7673: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7674:
7675: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_RECEIPT OR ITEM_TO_PO. HENCE TAX IPV BASE IS '||p_tax_ipv_base;
7676:
7677: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7678:
7679: l_debug_info := 'p_tax_ipv_base := p_rate_tax_factor * p_quantity_invoiced * p_inv_currency_rate * (p_inv_unit_price - p_ref_doc_unit_price) * p_ref_per_trx_nrec_amt '||
7680: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_inv_currency_rate||' * ('||p_inv_unit_price ||' - '||p_ref_doc_unit_price||') * '||
7681: p_ref_per_trx_nrec_amt;
7679: l_debug_info := 'p_tax_ipv_base := p_rate_tax_factor * p_quantity_invoiced * p_inv_currency_rate * (p_inv_unit_price - p_ref_doc_unit_price) * p_ref_per_trx_nrec_amt '||
7680: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_inv_currency_rate||' * ('||p_inv_unit_price ||' - '||p_ref_doc_unit_price||') * '||
7681: p_ref_per_trx_nrec_amt;
7682:
7683: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7684:
7685: END IF;
7686:
7687: -- Bug 5528375
7690: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7691:
7692: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_RECEIPT OR ITEM_TO_PO. HENCE l_tax_ipv IS '||l_tax_ipv;
7693:
7694: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7695:
7696: l_debug_info := 'p_tax_ipv_base := p_rate_tax_factor * p_quantity_invoiced * (p_inv_unit_price - p_ref_doc_unit_price) * p_ref_per_trx_nrec_amt '||
7697: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * ('||p_inv_unit_price ||' - '||p_ref_doc_unit_price||') * '||
7698: p_ref_per_trx_nrec_amt;
7696: l_debug_info := 'p_tax_ipv_base := p_rate_tax_factor * p_quantity_invoiced * (p_inv_unit_price - p_ref_doc_unit_price) * p_ref_per_trx_nrec_amt '||
7697: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * ('||p_inv_unit_price ||' - '||p_ref_doc_unit_price||') * '||
7698: p_ref_per_trx_nrec_amt;
7699:
7700: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7701:
7702: END IF;
7703:
7704:
7713: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7714:
7715: l_debug_info := 'CORRECTED INV ID IS NOT NULL. HENCE TAX IPV BASE IS '||p_tax_ipv_base;
7716:
7717: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7718:
7719: l_debug_info := 'p_tax_ipv_base := p_rate_tax_factor * p_quantity_invoiced * p_adj_doc_curr_rate * p_price_diff * p_ref_per_trx_nrec_amt '||
7720: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_adj_doc_curr_rate||' * '|| p_price_diff ||' * '||p_ref_per_trx_nrec_amt;
7721:
7718:
7719: l_debug_info := 'p_tax_ipv_base := p_rate_tax_factor * p_quantity_invoiced * p_adj_doc_curr_rate * p_price_diff * p_ref_per_trx_nrec_amt '||
7720: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_adj_doc_curr_rate||' * '|| p_price_diff ||' * '||p_ref_per_trx_nrec_amt;
7721:
7722: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7723:
7724: END IF;
7725:
7726:
7731: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7732:
7733: l_debug_info := 'CORRECTED INV ID IS NOT NULL. HENCE l_tax_ipv IS '||l_tax_ipv;
7734:
7735: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7736:
7737: l_debug_info := 'l_tax_ipv := p_rate_tax_factor * p_quantity_invoiced * p_price_diff * p_ref_per_trx_nrec_amt '||
7738: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_price_diff||' * '|| p_ref_per_trx_nrec_amt;
7739:
7736:
7737: l_debug_info := 'l_tax_ipv := p_rate_tax_factor * p_quantity_invoiced * p_price_diff * p_ref_per_trx_nrec_amt '||
7738: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_price_diff||' * '|| p_ref_per_trx_nrec_amt;
7739:
7740: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7741:
7742: END IF;
7743:
7744:
7754: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7755:
7756: l_debug_info := 'TAX IPV BASE AFTER ROUNDING IS '||p_tax_ipv_base;
7757:
7758: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7759:
7760: END IF;
7761:
7762:
7769: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7770:
7771: l_debug_info := 'l_tax_ipv AFTER ROUNDING IS '||l_tax_ipv;
7772:
7773: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7774:
7775: END IF;
7776:
7777:
7781: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7782:
7783: l_debug_info := 'l_tax_ipv IS 0 IN ELSE';
7784:
7785: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7786:
7787: END IF;
7788:
7789:
7847: 'p_trx_line_dist_id ' || p_trx_line_dist_id||' '||'p_ref_doc_unit_price'|| p_ref_doc_unit_price||' '||
7848: 'p_ref_per_trx_cur_unit_nrec' || p_ref_per_trx_cur_unit_nrec||' p_rec_nrec_tax_dist_id ' || p_rec_nrec_tax_dist_id||' '||
7849: 'p_unit_price '||p_unit_price; --Bug10416960
7850:
7851: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7852: END IF;
7853:
7854: --bug 10621602 starts
7855: -- The below formula is only for the distribution related to retainage and retainge release invoice
7862: 'Retained amount ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retained_amount ||
7863: 'Retainage rate ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate ||
7864: 'Quantity_Invoiced' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced;
7865:
7866: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7867:
7868: END IF;
7869:
7870:
7877: l_debug_info := ' p_tax_erv := (p_quantity_invoiced * p_ref_doc_unit_price*(1 - AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate/100))* p_ref_per_trx_cur_unit_nrec * ( p_inv_curr_conv_rate - p_ref_doc_curr_conv_rate) ' ||
7878: ' ( ' || p_quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' *(1 - ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100))* ' || p_ref_per_trx_cur_unit_nrec || ' * ( ' || p_inv_curr_conv_rate ||
7879: ' - ' || p_ref_doc_curr_conv_rate || ' ) ' ;
7880:
7881: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7882:
7883: END IF;
7884:
7885:
7885:
7886: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7887:
7888: l_debug_info := 'TERV for standard invoice having retainage' || p_tax_erv ;
7889: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7890:
7891: END IF;
7892:
7893: END IF;
7904: ' * ( p_inv_curr_conv_rate - p_ref_doc_curr_conv_rate) ' ||
7905: ' ( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' * ( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100))* ' ||
7906: p_ref_per_trx_cur_unit_nrec || ' * ( ' || p_inv_curr_conv_rate || ' - ' || p_ref_doc_curr_conv_rate || ' ) ';
7907:
7908: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7909:
7910: END IF;
7911:
7912:
7912:
7913: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7914:
7915: l_debug_info := 'TERV for retainage invoice ' || p_tax_erv ;
7916: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7917:
7918: END IF;
7919:
7920:
7937:
7938: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7939:
7940: l_debug_info := 'In P_LINE_TYPE = RETROITEM CHECK. TAX ERV IS '||p_tax_erv;
7941: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7942:
7943: l_debug_info := 'p_tax_erv := p_quantity_invoiced * p_unit_price * p_ref_per_trx_cur_unit_nrec * (p_inv_curr_conv_rate -
7944: p_ref_doc_curr_conv_rate) '||
7945: p_quantity_invoiced ||' * '||p_unit_price||' * '||p_ref_per_trx_cur_unit_nrec||' * ('||p_inv_curr_conv_rate ||' - '||p_ref_doc_curr_conv_rate||')';
7943: l_debug_info := 'p_tax_erv := p_quantity_invoiced * p_unit_price * p_ref_per_trx_cur_unit_nrec * (p_inv_curr_conv_rate -
7944: p_ref_doc_curr_conv_rate) '||
7945: p_quantity_invoiced ||' * '||p_unit_price||' * '||p_ref_per_trx_cur_unit_nrec||' * ('||p_inv_curr_conv_rate ||' - '||p_ref_doc_curr_conv_rate||')';
7946:
7947: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7948:
7949: END IF;
7950: --Bug10416960
7951: ELSIF p_corrected_inv_id IS NULL THEN
7958:
7959: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7960:
7961: l_debug_info := 'CORRECTED INV ID IS NULL. HENCE TAX ERV IS '||p_tax_erv;
7962: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7963:
7964: l_debug_info := 'p_tax_erv := p_quantity_invoiced * p_ref_doc_per_unit_nrec_amt * (p_inv_curr_conv_rate - nvl(p_app_doc_curr_conv_rate,p_ref_doc_curr_conv_rate)) '||
7965: p_quantity_invoiced ||' * '||p_ref_doc_per_unit_nrec_amt||' * ('||p_inv_curr_conv_rate ||' - NVL('||p_app_doc_curr_conv_rate||' , '||p_ref_doc_curr_conv_rate||')';
7966:
7963:
7964: l_debug_info := 'p_tax_erv := p_quantity_invoiced * p_ref_doc_per_unit_nrec_amt * (p_inv_curr_conv_rate - nvl(p_app_doc_curr_conv_rate,p_ref_doc_curr_conv_rate)) '||
7965: p_quantity_invoiced ||' * '||p_ref_doc_per_unit_nrec_amt||' * ('||p_inv_curr_conv_rate ||' - NVL('||p_app_doc_curr_conv_rate||' , '||p_ref_doc_curr_conv_rate||')';
7966:
7967: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7968:
7969: END IF;
7970:
7971:
7979:
7980: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7981:
7982: l_debug_info := 'CORRECTED INV ID IS NOT NULL. HENCE TAX ERV IS '||p_tax_erv;
7983: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7984:
7985: l_debug_info := 'p_tax_erv := p_quantity_invoiced * p_per_unit_nrec_amt * (p_inv_curr_conv_rate - p_adj_doc_curr_conv_rate) '||
7986: p_quantity_invoiced ||' * '||p_per_unit_nrec_amt||' * ('||p_inv_curr_conv_rate ||' - '||p_adj_doc_curr_conv_rate||')';
7987:
7984:
7985: l_debug_info := 'p_tax_erv := p_quantity_invoiced * p_per_unit_nrec_amt * (p_inv_curr_conv_rate - p_adj_doc_curr_conv_rate) '||
7986: p_quantity_invoiced ||' * '||p_per_unit_nrec_amt||' * ('||p_inv_curr_conv_rate ||' - '||p_adj_doc_curr_conv_rate||')';
7987:
7988: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
7989:
7990: END IF;
7991:
7992:
8002: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8003:
8004: l_debug_info := 'TAX ERV AFTER ROUNDING IS '||p_tax_erv;
8005:
8006: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8007:
8008: END IF;
8009:
8010: END IF;
8067: 'p_pc_price_diff '||p_pc_price_diff||' '||'p_corrected_inv_id '||p_corrected_inv_id||' '||
8068: 'p_line_type '||p_line_type||' '||'p_line_source '||p_line_source||' '||'p_inv_currency_code '||' '||p_inv_currency_code||' '||
8069: 'p_line_match_type '||p_line_match_type||' '||'p_unit_price '||p_unit_price || 'p_trx_line_dist_id ' || p_trx_line_dist_id || 'p_ref_doc_unit_price ' || p_ref_doc_unit_price ||
8070: ' p_rec_nrec_tax_dist_id ' || p_rec_nrec_tax_dist_id;
8071: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8072: END IF;
8073:
8074: --bug 10621602 starts
8075: -- The below formula is only for the distribution related to retainage and retainge release invoice
8084: ' Retainage rate ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate ||
8085: ' Quantity_Invoiced' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced ||
8086: ' Unit_price ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).unit_price;
8087:
8088: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8089:
8090: END IF;
8091:
8092: IF ( AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).RELATED_RETAINAGE_DIST_ID IS NOT NULL) THEN --- Standard invoice with retainage
8100: ' - ((p_quantity_invoiced * p_ref_doc_unit_price*(1 - AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate/100))*p_ref_per_trx_cur_unit_nrec) ' ||
8101: ' (( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' )* ' || p_inv_per_trx_cur_unit_nrec || ' ) ' ||
8102: ' - (( ' || p_quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' *( 1- ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100))* ' || p_ref_per_trx_cur_unit_nrec || ' ) ' ;
8103:
8104: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8105:
8106: END IF;
8107:
8108:
8108:
8109: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8110:
8111: l_debug_info := 'Total Variance for standard invoice having retainage' || p_tax_tv ;
8112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8113:
8114: END IF;
8115:
8116: END IF;
8127: ' ( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' * ' || p_inv_per_trx_cur_unit_nrec || ' ) ' ||
8128: ' - (( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' * ' ||
8129: AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' / 100)* ' || p_ref_per_trx_cur_unit_nrec ;
8130:
8131: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8132:
8133: END IF;
8134:
8135:
8135:
8136: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8137:
8138: l_debug_info := 'Total Variance for retainage invoice' || p_tax_tv ;
8139: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8140:
8141: END IF;
8142:
8143:
8157:
8158: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8159:
8160: l_debug_info := 'In P_LINE_TYPE = RETROITEM AND P_LINE_MATCH_TYPE = PO PRICE ADJUSTMENT CHECK. TAX VARIANCE IS '||p_tax_tv;
8161: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8162:
8163: l_debug_info := 'p_tax_tv := p_quantity_invoiced * p_unit_price * (p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8164: p_quantity_invoiced ||' * '||p_unit_price||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8165:
8162:
8163: l_debug_info := 'p_tax_tv := p_quantity_invoiced * p_unit_price * (p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8164: p_quantity_invoiced ||' * '||p_unit_price||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8165:
8166: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8167:
8168: END IF;
8169: --Bug10416960
8170:
8178:
8179: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8180:
8181: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_SERVICE_RECEIPT OR ITEM_TO_SERVICE_PO. HENCE TAX VARIANCE IS '||p_tax_tv;
8182: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8183:
8184: l_debug_info := 'p_tax_tv := p_quantity_invoiced * p_unit_price * (p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8185: p_quantity_invoiced||' * '||p_unit_price||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8186:
8183:
8184: l_debug_info := 'p_tax_tv := p_quantity_invoiced * p_unit_price * (p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8185: p_quantity_invoiced||' * '||p_unit_price||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8186:
8187: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8188:
8189:
8190: END IF;
8191:
8197:
8198: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8199:
8200: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_RECEIPT OR ITEM_TO_PO. HENCE TAX VARIANCE IS '||p_tax_tv;
8201: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8202:
8203: l_debug_info := 'p_tax_tv := p_quantity_invoiced * (p_inv_per_unit_nrec - p_ref_per_unit_nrec) '||
8204: p_quantity_invoiced||' * ('||p_inv_per_unit_nrec ||' - '||p_ref_per_unit_nrec||')';
8205:
8202:
8203: l_debug_info := 'p_tax_tv := p_quantity_invoiced * (p_inv_per_unit_nrec - p_ref_per_unit_nrec) '||
8204: p_quantity_invoiced||' * ('||p_inv_per_unit_nrec ||' - '||p_ref_per_unit_nrec||')';
8205:
8206: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8207:
8208:
8209: END IF;
8210:
8220:
8221: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8222:
8223: l_debug_info := 'CORRECTED INV ID IS NOT NULL. HENCE TAX VARIANCE IS '||p_tax_tv;
8224: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8225:
8226: l_debug_info := 'p_tax_tv := p_rate_tax_factor * p_quantity_invoiced * p_pc_price_diff * p_inv_per_trx_cur_unit_nrec '||
8227: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_pc_price_diff||' * '||p_inv_per_trx_cur_unit_nrec;
8228: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8224: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8225:
8226: l_debug_info := 'p_tax_tv := p_rate_tax_factor * p_quantity_invoiced * p_pc_price_diff * p_inv_per_trx_cur_unit_nrec '||
8227: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_pc_price_diff||' * '||p_inv_per_trx_cur_unit_nrec;
8228: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8229:
8230:
8231: END IF;
8232:
8240: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8241:
8242: l_debug_info := 'TAX VARIANCE AFTER ROUNDING IS '||p_tax_tv;
8243:
8244: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8245:
8246: END IF;
8247:
8248: END IF;
8308: 'p_pc_price_diff '||p_pc_price_diff||' '||'p_corrected_inv_id '||p_corrected_inv_id||' '||
8309: 'p_line_type '||p_line_type||' '||'p_line_source '||p_line_source||' '||'p_base_currency_code '||' '||p_base_currency_code||' '||
8310: 'p_line_match_type '||p_line_match_type||' '||'p_unit_price '||p_unit_price || 'p_trx_line_dist_id ' || p_trx_line_dist_id || 'p_ref_doc_unit_price ' ||
8311: p_ref_doc_unit_price || ' p_rec_nrec_tax_dist_id ' || p_rec_nrec_tax_dist_id ;
8312: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8313: END IF;
8314:
8315: --bug 10621602 starts
8316: IF AP_ETAX_SERVICES_PKG.ret_dists.exists(p_trx_line_dist_id) THEN
8321: 'Retained amount ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retained_amount ||
8322: 'Retainage rate ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate ||
8323: 'Quantity_Invoiced' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced;
8324:
8325: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8326:
8327: END IF;
8328:
8329:
8339: ' (( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' )* ' || p_inv_per_trx_cur_unit_nrec || ' * ' || nvl(p_inv_curr_rate , 1) || ' ) ' ||
8340: ' - (( ' || p_quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' *(1 - ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100))* ' ||
8341: p_ref_per_trx_cur_unit_nrec || ' * ' || nvl(p_ref_doc_curr_rate , 1) || ' ) ' ;
8342:
8343: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8344:
8345: END IF;
8346:
8347:
8347:
8348: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8349:
8350: l_debug_info := 'Total Variance Base for standard invoice having retainage' || p_tax_tv_base ;
8351: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8352:
8353: END IF;
8354:
8355: END IF;
8367: ' ( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).amount || ' * ' || p_inv_per_trx_cur_unit_nrec || ' * ' || nvl(p_inv_curr_rate , 1) || ' ) ' ||
8368: ' -(( ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).quantity_invoiced || ' * ' || p_ref_doc_unit_price || ' * ' || AP_ETAX_SERVICES_PKG.ret_dists(p_trx_line_dist_id).retainage_rate || ' /100) * ' ||
8369: p_ref_per_trx_cur_unit_nrec || ' * ' || nvl(p_ref_doc_curr_rate , 1) || ' ) ' ;
8370:
8371: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8372:
8373: END IF;
8374:
8375: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8374:
8375: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8376:
8377: l_debug_info := 'Total Variance Base retainage invoice ' || p_tax_tv_base ;
8378: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8379:
8380: END IF;
8381:
8382:
8399:
8400: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8401:
8402: l_debug_info := 'In P_LINE_TYPE = RETROITEM AND P_LINE_MATCH_TYPE = PO PRICE ADJUSTMENT CHECK. TAX VARIANCE BASE IS '||p_tax_tv_base;
8403: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8404:
8405: l_debug_info := 'p_tax_tv_base := p_quantity_invoiced * p_unit_price * p_ref_doc_curr_rate * (p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8406: p_quantity_invoiced ||' * '||p_unit_price||' * '|| p_ref_doc_curr_rate||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8407:
8404:
8405: l_debug_info := 'p_tax_tv_base := p_quantity_invoiced * p_unit_price * p_ref_doc_curr_rate * (p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8406: p_quantity_invoiced ||' * '||p_unit_price||' * '|| p_ref_doc_curr_rate||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8407:
8408: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8409:
8410: END IF;
8411: --Bug10416960
8412: ELSIF p_corrected_inv_id IS NULL THEN
8419:
8420: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8421:
8422: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_RECEIPT OR ITEM_TO_PO. HENCE TAX VARIANCE BASE IS '||p_tax_tv_base;
8423: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8424:
8425: l_debug_info := 'p_tax_tv_base := p_quantity_invoiced *p_unit_price * p_inv_curr_rate *(p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8426: p_quantity_invoiced||' * '||p_unit_price||' * '||p_inv_curr_rate ||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8427:
8424:
8425: l_debug_info := 'p_tax_tv_base := p_quantity_invoiced *p_unit_price * p_inv_curr_rate *(p_inv_per_trx_cur_unit_nrec - p_ref_per_trx_cur_unit_nrec) '||
8426: p_quantity_invoiced||' * '||p_unit_price||' * '||p_inv_curr_rate ||' * ('||p_inv_per_trx_cur_unit_nrec ||' - '||p_ref_per_trx_cur_unit_nrec||')';
8427:
8428: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8429:
8430:
8431: END IF;
8432:
8439:
8440: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8441:
8442: l_debug_info := 'CORRECTED INV ID IS NULL AND MATCH TYPE IS ITEM_TO_RECEIPT OR ITEM_TO_PO. HENCE TAX VARIANCE BASE IS '||p_tax_tv_base;
8443: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8444:
8445: l_debug_info := 'p_tax_tv_base := p_quantity_invoiced * p_inv_curr_rate * (p_inv_per_unit_nrec - p_ref_per_unit_nrec) '||
8446: p_quantity_invoiced||' * '||p_inv_curr_rate||' * ('||p_inv_per_unit_nrec ||' - '||p_ref_per_unit_nrec||')';
8447:
8444:
8445: l_debug_info := 'p_tax_tv_base := p_quantity_invoiced * p_inv_curr_rate * (p_inv_per_unit_nrec - p_ref_per_unit_nrec) '||
8446: p_quantity_invoiced||' * '||p_inv_curr_rate||' * ('||p_inv_per_unit_nrec ||' - '||p_ref_per_unit_nrec||')';
8447:
8448: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8449:
8450:
8451: END IF;
8452:
8461:
8462: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8463:
8464: l_debug_info := 'CORRECTED INV ID IS NOT NULL. HENCE TAX VARIANCE BASE IS '||p_tax_tv_base;
8465: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8466:
8467: l_debug_info := 'p_tax_tv_base := p_rate_tax_factor * p_quantity_invoiced * p_pc_price_diff * p_inv_curr_rate * p_inv_per_trx_cur_unit_nrec '||
8468: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_pc_price_diff||' * '||p_inv_curr_rate||' * '||
8469: p_inv_per_trx_cur_unit_nrec;
8467: l_debug_info := 'p_tax_tv_base := p_rate_tax_factor * p_quantity_invoiced * p_pc_price_diff * p_inv_curr_rate * p_inv_per_trx_cur_unit_nrec '||
8468: p_rate_tax_factor ||' * '||p_quantity_invoiced||' * '||p_pc_price_diff||' * '||p_inv_curr_rate||' * '||
8469: p_inv_per_trx_cur_unit_nrec;
8470:
8471: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8472:
8473:
8474: END IF;
8475:
8482: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8483:
8484: l_debug_info := 'TAX VARIANCE BASE AFTER ROUNDING IS '||p_tax_tv_base;
8485:
8486: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
8487:
8488: END IF;
8489:
8490: END IF;
8559:
8560: --------------------------------------------------
8561: l_debug_info := 'Step 1: Get Taxation Country';
8562: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8563: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8564: END IF;
8565: --------------------------------------------------
8566: IF p_taxation_country IS NOT NULL THEN
8567:
8574:
8575: --------------------------------------------------
8576: l_debug_info := 'Step 2: Get Related Inv Number';
8577: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8578: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8579: END IF;
8580: --------------------------------------------------
8581: IF p_tax_related_inv_id IS NOT NULL THEN
8582:
8589:
8590: --------------------------------------------------
8591: l_debug_info := 'Step 3: Get Document Sub Type';
8592: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8593: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8594: END IF;
8595: --------------------------------------------------
8596: IF p_document_sub_type IS NOT NULL AND
8597: p_taxation_country IS NOT NULL THEN
8716: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Taxable_Line_Attr_Desc<-' ||
8717: p_calling_sequence;
8718:
8719: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
8721: END IF;
8722:
8723: ------------------------------------------------------------------
8724: l_debug_info := 'Step 1: Get Business Category';
8722:
8723: ------------------------------------------------------------------
8724: l_debug_info := 'Step 1: Get Business Category';
8725: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8726: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8727: END IF;
8728: ------------------------------------------------------------------
8729: IF p_trx_bus_category IS NOT NULL THEN
8730:
8738:
8739: ------------------------------------------------------------------
8740: l_debug_info := 'Step 2: Get Fiscal Classification';
8741: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8742: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8743: END IF;
8744: ------------------------------------------------------------------
8745: IF p_prd_fisc_class IS NOT NULL THEN
8746:
8754:
8755: ------------------------------------------------------------------
8756: l_debug_info := 'Step 3: Get User Defined Fiscal Classification';
8757: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8758: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8759: END IF;
8760: ------------------------------------------------------------------
8761: IF p_user_fisc_class IS NOT NULL THEN
8762:
8770:
8771: ------------------------------------------------------------------
8772: l_debug_info := 'Step 4: Get Primary Intended Use';
8773: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8774: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8775: END IF;
8776: ------------------------------------------------------------------
8777: IF p_prim_int_use IS NOT NULL THEN
8778:
8786:
8787: ------------------------------------------------------------------
8788: l_debug_info := 'Step 5: Get Product Type';
8789: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8790: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8791: END IF;
8792: ------------------------------------------------------------------
8793: IF p_product_type IS NOT NULL THEN
8794:
8801:
8802: ------------------------------------------------------------------
8803: l_debug_info := 'Step 5: Get Product Category';
8804: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8805: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8806: END IF;
8807: ------------------------------------------------------------------
8808: IF p_product_category IS NOT NULL THEN
8809:
8908: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Taxable_Line_Attr_Desc<-' ||
8909: p_calling_sequence;
8910:
8911: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
8913: END IF;
8914:
8915: ------------------------------------------------
8916: l_debug_info := 'Step 1: Get Tax Regime';
8914:
8915: ------------------------------------------------
8916: l_debug_info := 'Step 1: Get Tax Regime';
8917: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8918: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8919: END IF;
8920: ------------------------------------------------
8921: IF p_tax_regime_code IS NOT NULL THEN
8922:
8930:
8931: ------------------------------------------------
8932: l_debug_info := 'Step 2: Get Tax';
8933: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8934: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8935: END IF;
8936: ------------------------------------------------
8937: IF p_tax IS NOT NULL THEN
8938:
8946:
8947: ------------------------------------------------
8948: l_debug_info := 'Step 3: Get Tax Jurisdiction';
8949: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8950: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8951: END IF;
8952: ------------------------------------------------
8953: IF p_tax_jurisdiction_code IS NOT NULL THEN
8954:
8963:
8964: ------------------------------------------------
8965: l_debug_info := 'Step 4: Get Tax Status';
8966: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8967: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8968: END IF;
8969: ------------------------------------------------
8970: IF p_tax_status_code IS NOT NULL THEN
8971:
9049:
9050: ------------------------------------------------
9051: l_debug_info := 'Step 1: Get Taxation Country';
9052: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9054: END IF;
9055: ------------------------------------------------
9056: xle_utilities_grp.get_fp_countrycode_ou (
9057: p_api_version => 1.0,
9067:
9068: -------------------------------------------
9069: l_debug_info := 'Step 2: Get Event Class';
9070: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9071: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9072: END IF;
9073: -------------------------------------------
9074: l_success := AP_ETAX_UTILITY_PKG.Get_Event_Class_Code (
9075: p_invoice_type_lookup_code => p_doc_type,
9081:
9082: ----------------------------------------------------
9083: l_debug_info := 'Step 3: Set Tax Security Context';
9084: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9085: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9086: END IF;
9087: ----------------------------------------------------
9088: AP_ETAX_UTILITY_PKG.set_tax_security_context (
9089: p_org_id => p_org_id,
9098:
9099: ------------------------------------------------------------------
9100: l_debug_info := 'Step 4: Get Default Tax Determining Attributes';
9101: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9102: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9103: END IF;
9104: ------------------------------------------------------------------
9105: zx_api_pub.get_default_tax_det_attribs (
9106: p_api_version => 1.0,
9170:
9171: l_curr_calling_sequence := 'Insert_Tax_Distributions <- '||p_calling_sequence;
9172:
9173: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9174: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Insert_Tax_Distributions(+)');
9175: END IF;
9176:
9177: l_debug_info := 'Step 11: Insert new distributions including variances';
9178:
9176:
9177: l_debug_info := 'Step 11: Insert new distributions including variances';
9178:
9179: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9180: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9181: END IF;
9182:
9183: -- bug 7126676
9184: select ap_invoice_distributions_s.NEXTVAL into l_invoice_distribution_id from dual;
9521: p_inv_dist_rec.award_id is not NULL) THEN
9522:
9523: l_debug_info := 'Call the gms_ap_api.CREATE_AWARD_DISTRIBUTIONS from insert_tax_distributions';
9524: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9526: END IF;
9527:
9528: gms_ap_api.CREATE_AWARD_DISTRIBUTIONS(p_inv_dist_rec.invoice_id,
9529: l_dist_line_num,
9534: NULL);
9535:
9536: l_debug_info := 'Return from gms_ap_api.CREATE_AWARD_DISTRIBUTIONS to insert_tax_distributions';
9537: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9539: END IF;
9540:
9541: END IF;
9542: /* bug 10282701 Ends*/
9541: END IF;
9542: /* bug 10282701 Ends*/
9543:
9544: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9545: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_ETAX_UTILITY_PKG.Insert_Tax_Distributions(-)');
9546: END IF;
9547:
9548: -- Following code was introduce because of bug 7126676
9549: -- This code will generate withholding applicability for
9551: IF (AP_EXTENDED_WITHHOLDING_PKG.AP_EXTENDED_WITHHOLDING_ACTIVE) THEN
9552:
9553: l_debug_info := 'Call the Ap_Ext_Withholding_Default from match';
9554: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9555: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9556: END IF;
9557:
9558: Ap_Extended_Withholding_Pkg.Ap_Ext_Withholding_Default
9559: (p_invoice_id => p_inv_dist_rec.invoice_id,
9581: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
9582: END IF;
9583:
9584: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
9585: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
9586: END IF;
9587:
9588: APP_EXCEPTION.RAISE_EXCEPTION;
9589: END;
9622: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Line_Class_Code<-' ||
9623: P_calling_sequence;
9624:
9625: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9626: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
9627: END IF;
9628:
9629: IF (P_Invoice_Type_Lookup_Code IN ('STANDARD','MIXED','ADJUSTMENT',
9630: 'PO PRICE ADJUST','INVOICE REQUEST')) THEN
9686:
9687: l_debug_info := 'Line Class '||P_Line_Class;
9688:
9689: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9690: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9691: END IF;
9692:
9693: RETURN (TRUE);
9694:
9736: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Is_Tax_Already_Dist_Inv<-'||
9737: P_calling_sequence;
9738:
9739: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9740: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
9741: END IF;
9742:
9743: -------------------------------------------------------------------
9744: l_debug_info := 'Step 1: Get tax_already_Distributed_flag for any '||
9743: -------------------------------------------------------------------
9744: l_debug_info := 'Step 1: Get tax_already_Distributed_flag for any '||
9745: 'taxable line in the invoice';
9746: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9748: END IF;
9749: -------------------------------------------------------------------
9750: OPEN etax_already_distributed;
9751: FETCH etax_already_distributed INTO l_tax_already_distributed_flag;
9761:
9762: -------------------------------------------------------------------
9763: l_debug_info := 'Step 1.1: Tax_already_Distributed_flag '||l_tax_already_distributed_flag;
9764: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9765: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9766: END IF;
9767: -------------------------------------------------------------------
9768:
9769: RETURN l_tax_already_distributed_flag;
9843: ' l_uom_conv_rate '||l_uom_conv_rate||
9844: ' l_inv_price '||l_inv_price;
9845:
9846: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9847: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9848: END IF;
9849:
9850: l_inv_price := l_inv_price / l_uom_conv_rate;
9851:
9852: l_debug_info := 'Step 1.1 : Coverted Price '||
9853: ' l_inv_price '||l_inv_price;
9854:
9855: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9856: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9857: END IF;
9858:
9859:
9860: END IF;
9920: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Prepay_Pay_Awt_Group_Id<-'||
9921: P_calling_sequence;
9922:
9923: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9924: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
9925: END IF;
9926:
9927: -------------------------------------------------------------------
9928: l_debug_info := 'Step 1: Get awt_group_id from prepay item line';
9927: -------------------------------------------------------------------
9928: l_debug_info := 'Step 1: Get awt_group_id from prepay item line';
9929:
9930: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9931: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9932: END IF;
9933: -------------------------------------------------------------------
9934: OPEN prepay_pay_awt_group_id( P_Prepay_Distribution_id);
9935: FETCH prepay_pay_awt_group_id
9939: -------------------------------------------------------------------
9940: l_debug_info := 'Awt_group_id from prepay item line '||l_pay_awt_group_id;
9941:
9942: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9943: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9944: END IF;
9945: -------------------------------------------------------------------
9946:
9947: RETURN l_pay_awt_group_id;
10017: P_calling_sequence;
10018:
10019:
10020: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10021: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
10022: END IF;
10023: -------------------------------------------------------------------
10024: l_debug_info := 'Step 0: Invoice Id and Invoice Line Number '||p_invoice_id||' '||p_line_number;
10025: -------------------------------------------------------------------
10023: -------------------------------------------------------------------
10024: l_debug_info := 'Step 0: Invoice Id and Invoice Line Number '||p_invoice_id||' '||p_line_number;
10025: -------------------------------------------------------------------
10026: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10027: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
10028: END IF;
10029:
10030: --1 Posted Dist
10031: -------------------------------------------------------------------
10038: AND invoice_line_number = p_line_number
10039: AND NVL(posted_flag,'N') = 'Y';
10040:
10041: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10042: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Posted_count);
10043: END IF;
10044:
10045: IF l_Posted_count > 0 THEN
10046: RETURN FALSE;
10066: AND (NVL(reversal_flag,'N') <> 'Y');
10067: END IF;
10068:
10069: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10070: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Prepay_line_count||' '||l_Prepay_dist_count);
10071: END IF;
10072:
10073: IF l_Prepay_line_count > 0 OR l_Prepay_dist_count > 0 THEN
10074: RETURN FALSE;
10082: l_debug_info := 'Step 3-7: Check Paid/Upgraded/AWT Calculated/Quick Credit/';
10083: l_debug_info := l_debug_info||' Expense Report/ Applied Credit and';
10084: l_debug_info := l_debug_info||' Debit Memo';
10085: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10086: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
10087: END IF;
10088: ----------------------------------------------------------------------------
10089: SELECT Historical_flag,
10090: Awt_Flag,
10104: AND NVL(reversal_flag,'N') <> 'Y';
10105:
10106: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10107: l_debug_info :='Step 3 : Check Payment Status ';
10108: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Payment_Stat_Flag);
10109: l_debug_info :='Step 4 : Check Upgraded Status ';
10110: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Hist_Flag);
10111: l_debug_info :='Step 5 : Check AWT Computed ';
10112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Awt_Computed);
10106: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10107: l_debug_info :='Step 3 : Check Payment Status ';
10108: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Payment_Stat_Flag);
10109: l_debug_info :='Step 4 : Check Upgraded Status ';
10110: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Hist_Flag);
10111: l_debug_info :='Step 5 : Check AWT Computed ';
10112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Awt_Computed);
10113: l_debug_info :='Step 6 : Check Quick Credit Invoice ';
10114: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_quick_credit);
10108: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Payment_Stat_Flag);
10109: l_debug_info :='Step 4 : Check Upgraded Status ';
10110: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Hist_Flag);
10111: l_debug_info :='Step 5 : Check AWT Computed ';
10112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Awt_Computed);
10113: l_debug_info :='Step 6 : Check Quick Credit Invoice ';
10114: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_quick_credit);
10115: l_debug_info :='Step 7 : Check Invoice Type ';
10116: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Invoice_Type);
10110: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Hist_Flag);
10111: l_debug_info :='Step 5 : Check AWT Computed ';
10112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Awt_Computed);
10113: l_debug_info :='Step 6 : Check Quick Credit Invoice ';
10114: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_quick_credit);
10115: l_debug_info :='Step 7 : Check Invoice Type ';
10116: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Invoice_Type);
10117: END IF;
10118:
10112: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Awt_Computed);
10113: l_debug_info :='Step 6 : Check Quick Credit Invoice ';
10114: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_quick_credit);
10115: l_debug_info :='Step 7 : Check Invoice Type ';
10116: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Invoice_Type);
10117: END IF;
10118:
10119: IF l_Payment_Stat_Flag > 0 OR
10120: NVL(l_Hist_Flag,'N') = 'Y' OR
10133: AND (NVL(discarded_flag,'N') <> 'Y');
10134:
10135: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10136: l_debug_info :='Step 6.1 : Check Applied Debit/Credit Memo Count ';
10137: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_corr_inv_count);
10138: END IF;
10139:
10140: IF l_corr_inv_count > 0 THEN
10141: RETURN FALSE;
10172:
10173:
10174: l_debug_info :='Step 5.1 : Check Non Discarded AWT lines, Non Prorated Manual AWT Lines ';
10175: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10176: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Awt_line_count ||' '||l_manual_Awt_line );
10177: END IF;
10178:
10179: IF l_Awt_line_count > 0 OR l_manual_Awt_line > 0 THEN
10180: RETURN FALSE;
10194: AND invoice_line_number = p_line_number
10195: AND NVL(encumbered_flag,'N') = 'Y';
10196:
10197: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10198: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Encumbered_count);
10199: END IF;
10200:
10201: IF l_Encumbered_count > 0 THEN
10202: RETURN FALSE;
10223: END IF;
10224:
10225:
10226: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10227: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_Po_Dist_id_count);
10228: END IF;
10229:
10230: IF l_Po_Dist_id_count > 0 OR l_Po_line_num_count > 0 THEN
10231: RETURN FALSE;
10283: P_calling_sequence;
10284:
10285:
10286: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10287: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
10288: END IF;
10289: -------------------------------------------------------------------
10290: l_debug_info := 'Step 0: Invoice Id and Invoice Line Number '||p_invoice_id||' '||p_line_number;
10291: -------------------------------------------------------------------
10289: -------------------------------------------------------------------
10290: l_debug_info := 'Step 0: Invoice Id and Invoice Line Number '||p_invoice_id||' '||p_line_number;
10291: -------------------------------------------------------------------
10292: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10293: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
10294: END IF;
10295:
10296: -------------------------------------------------------------------------------
10297: l_debug_info := 'Step 1: Check if Posted or Encumbered Distributions exist : ';
10354: AND ROWNUM = 1 ;
10355: END IF;
10356:
10357: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10358: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_allow_update);
10359: END IF;
10360:
10361: IF l_allow_update > 0 THEN
10362: RETURN FALSE ;
10385: l_dummy VARCHAR2(40);
10386:
10387: BEGIN
10388: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10389: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'TAX_ONLY_LINE_EXIST','Checking if there is tax only line exists');
10390: END IF;
10391:
10392: /* SELECT 'Tax Only Line Exist'
10393: INTO l_dummy
10410: AND NVL(zls.tax_only_line_flag, 'N') = 'Y'
10411: AND rownum = 1;
10412:
10413: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10414: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'TAX_ONLY_LINE_EXIST','l_dummy: '|| NVL(l_dummy, 'No Tax Only Line'));
10415: END IF;
10416:
10417: RETURN (l_dummy IS NOT NULL);
10418:
10418:
10419: EXCEPTION
10420: WHEN OTHERS THEN
10421: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'TAX_ONLY_LINE_EXIST', 'in others: '|| NVL(l_dummy, 'No Tax Only Line'));
10423: END IF;
10424: RETURN FALSE;
10425: END TAX_ONLY_LINE_EXIST;
10426:
10476: l_curr_calling_sequence := 'AP_ETAX_UTILITY_PKG.Get_Default_CCID<-'||
10477: P_calling_sequence;
10478:
10479: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10480: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
10481: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Called with parameters : ' ||
10482: 'p_invoice_id = ' || p_invoice_id ||
10483: ', p_default_dist_ccid = ' || p_default_dist_ccid ||
10484: ', p_match_type = ' || p_match_type ||
10477: P_calling_sequence;
10478:
10479: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10480: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
10481: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'Called with parameters : ' ||
10482: 'p_invoice_id = ' || p_invoice_id ||
10483: ', p_default_dist_ccid = ' || p_default_dist_ccid ||
10484: ', p_match_type = ' || p_match_type ||
10485: ', p_po_line_location_id = ' || p_po_line_location_id ||
10545: AND rownum = 1;
10546:
10547: ELSE
10548: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10549: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10550: 'Default CCID passed from line rather than of PO Distribution');
10551: END IF;
10552: END IF;
10553: END IF;
10553: END IF;
10554: ELSE
10555: l_default_ccid := p_default_dist_ccid ;
10556: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10557: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10558: 'Using the value passed to the API');
10559: END IF;
10560: END IF ;
10561:
10626:
10627: x_derived_ccid := l_default_ccid ;
10628:
10629: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10630: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name, 'x_derived_ccid = ' || l_default_ccid );
10631: END IF ;
10632: EXCEPTION
10633: WHEN OTHERS THEN
10634: IF (SQLCODE <> -20001) THEN
10877: IF (line_rec%NOTFOUND) THEN
10878:
10879: debug_info := 'No Lines Record Fetched For Projects';
10880: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10881: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
10882: END IF;
10883:
10884: CLOSE line_rec;
10885: RAISE NO_DATA_FOUND;
10887: CLOSE line_Rec;
10888:
10889: debug_info := 'Step 3 b - Get the Invoice and Line DFF Info';
10890: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10891: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
10892: END IF;
10893:
10894: BEGIN
10895: SELECT attribute_category,
10929: EXCEPTION
10930: WHEN NO_DATA_FOUND THEN
10931: debug_info := 'Step 3 b - Get the Invoice and Line DFF Info: Failed to fetch Invoice header DFF info.';
10932: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10933: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
10934: END IF;
10935: RETURN(FALSE);
10936: END;
10937: -- need to copy the line attributes to pass to PA APIs irrespective of
10960: -- validation and generation of distributions
10961: --------------------------------------------------------------
10962: debug_info := 'Get system information';
10963: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10964: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
10965: END IF;
10966:
10967: BEGIN
10968: SELECT gsob.chart_of_accounts_id, ap.base_currency_code
10975: EXCEPTION
10976: WHEN NO_DATA_FOUND THEN
10977: Debug_info := 'Get system information: No GL information was found';
10978: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10979: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
10980: END IF;
10981:
10982: RETURN(FALSE);
10983: END;
10987:
10988: --------------------------------------------------------------
10989: debug_info := 'Get invoice level info';
10990: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
10992: END IF;
10993:
10994: BEGIN
10995: SELECT invoice_date, vendor_id , invoice_type_lookup_code , invoice_currency_code ,
11002: EXCEPTION
11003: WHEN NO_DATA_FOUND THEN
11004: debug_info := 'Get invoice level info: No invoice info ';
11005: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11006: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11007: END IF;
11008:
11009: RETURN(FALSE);
11010: END;
11017:
11018: ----------------------------------------------------------------------------
11019: debug_info := 'Get expenditure item date and validate if PA related';
11020: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11021: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11022: END IF;
11023: IF (l_invoice_line_rec.project_id is not null) THEN
11024: IF (l_invoice_line_rec.expenditure_item_date is null) THEN
11025: l_invoice_line_rec.expenditure_item_date :=
11032: l_error_found);
11033: IF (l_error_found = 'Y') THEN
11034: debug_info := 'Get expenditure item date and validate if PA related: cannot read expenditure item date information';
11035: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11036: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11037: END IF;
11038:
11039: RETURN(FALSE);
11040: END IF;
11043: l_pa_allows_overrides := FND_PROFILE.VALUE('PA_ALLOW_FLEXBUILDER_OVERRIDES');
11044:
11045: debug_info := 'PA Override Flag: '||l_pa_allows_overrides;
11046: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11047: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS', debug_info);
11048: END IF;
11049:
11050: -- The Import process should make the call with X_Validate_Info FALSE
11051: -- since The same validation should have been done in the Import Validation
11054: user_id := to_number(FND_PROFILE.VALUE('USER_ID'));
11055:
11056: debug_info := 'User Id is: '||user_id;
11057: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11058: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS', debug_info);
11059: END IF;
11060:
11061: BEGIN
11062: SELECT employee_id
11099: debug_info := 'Emp Id is: '||l_employee_id ||
11100: ' Emp CCID: '||l_employee_ccid||
11101: ' Web Parameter Id: '||l_web_parameter_id;
11102: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11103: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS', debug_info);
11104: END IF;
11105: /* Bug 5102724 */
11106:
11107:
11112: END IF;
11113:
11114: debug_info := 'Sys Link Fn: '||l_sys_link_function;
11115: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11116: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS', debug_info);
11117: END IF;
11118:
11119: debug_info := 'Validate PA related information';
11120: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11117: END IF;
11118:
11119: debug_info := 'Validate PA related information';
11120: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11121: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11122: END IF;
11123:
11124: --Bug15914464: Start
11125: pa_acc_gen_wf_pkg.g_invoice_id := p_invoice_id;
11125: pa_acc_gen_wf_pkg.g_invoice_id := p_invoice_id;
11126:
11127: debug_info := 'Global Invoice id set for projects API :'||pa_acc_gen_wf_pkg.g_invoice_id;
11128: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11129: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11130: END IF;
11131: --Bug15914464: End
11132:
11133: PA_TRANSACTIONS_PUB.VALIDATE_TRANSACTION(
11183: pa_acc_gen_wf_pkg.g_invoice_id := NULL;
11184:
11185: debug_info := 'Global Invoice id nulled out after projects API :'||pa_acc_gen_wf_pkg.g_invoice_id;
11186: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11187: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11188: END IF;
11189:
11190: --Bug15914464: End
11191:
11211: END IF;
11212: --l_message_text := Fnd_Message.get;
11213:
11214: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11215: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,'Error in PA VALIDATE TRANSACTION');
11216: END IF;
11217:
11218: RETURN FALSE;
11219:
11228: -- The account should already be built.
11229: ----------------------------------------------------------------------------
11230: debug_info := 'Obtain account to be used in distribution';
11231: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11232: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11233: END IF;
11234:
11235: IF (nvl(l_invoice_line_rec.line_source, 'OTHERS') <> 'IMPORT') then
11236: --Bug5003249 added condition on invoice type lookup code
11241: -- there is PA_FLEXBUILD
11242:
11243: debug_info := 'Billable Flag To PA FlexBuild '||l_billable_flag; --Bug6523162
11244: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11245: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11246: END IF;
11247:
11248: /*Bug13858818 begin*/
11249: pa_acc_gen_wf_pkg.g_invoice_id := p_invoice_id;
11249: pa_acc_gen_wf_pkg.g_invoice_id := p_invoice_id;
11250:
11251: debug_info := 'Global Invoice id set for projects API :'||pa_acc_gen_wf_pkg.g_invoice_id;
11252: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11254: END IF;
11255: /*Bug13858818 end*/
11256:
11257: IF ( NOT (AP_UTILITIES_PKG.pa_flexbuild(
11283: ))) THEN
11284:
11285: debug_info := debug_info || ': Error encountered in pa_flexbuild';
11286: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11287: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11288: END IF;
11289:
11290: debug_context := current_calling_sequence;
11291: RETURN(FALSE);
11295: pa_acc_gen_wf_pkg.g_invoice_id := NULL;
11296:
11297: debug_info := 'Global Invoice id nulled out after projects API :'||pa_acc_gen_wf_pkg.g_invoice_id;
11298: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11299: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,debug_info);
11300: END IF;
11301: /*Bug13858818 end*/
11302:
11303: IF (l_pa_allows_overrides = 'N') then
11307: l_invoice_line_rec.accounting_date,
11308: current_calling_sequence))) then
11309: --X_error_code := 'AP_INVALID_ACCOUNT';
11310: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,'AP_INVALID_ACCOUNT for PA OVERRIDE FLAG: N');
11312: END IF;
11313:
11314: RETURN(FALSE);
11315:
11333: l_invoice_line_rec.accounting_date,
11334: current_calling_sequence))) then
11335:
11336: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11337: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,'AP_INVALID_ACCOUNT for PA OVERRIDE FLAG: Y');
11338: END IF;
11339:
11340: RETURN(FALSE);
11341: END IF;
11357: NULL,
11358: l_invoice_line_rec.accounting_date))) THEN -- 7531219
11359: -- X_error_code := 'AP_CANNOT_OVERLAY';
11360: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11361: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS' ,'AP_CANNOT_OVERLAY');
11362: END IF;
11363:
11364: RETURN(FALSE);
11365: END IF;
11370: END IF;
11371:
11372: debug_info := 'CCID Return by Projects is ' || l_dist_ccid;
11373: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11374: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'GET_CCID_FROM_PROJECTS', debug_info);
11375: END IF;
11376:
11377: p_ccid := l_dist_ccid;
11378: RETURN(TRUE);
11416: P_calling_sequence;
11417:
11418:
11419: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11420: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_curr_calling_sequence);
11421: END IF;
11422: -------------------------------------------------------------------
11423: l_debug_info := 'Step 0: Invoice Id and Invoice Line Number '||p_invoice_id||' '||p_line_number;
11424: -------------------------------------------------------------------
11422: -------------------------------------------------------------------
11423: l_debug_info := 'Step 0: Invoice Id and Invoice Line Number '||p_invoice_id||' '||p_line_number;
11424: -------------------------------------------------------------------
11425: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11426: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
11427: END IF;
11428:
11429: -------------------------------------------------------------------------------
11430: l_debug_info := 'Step 1: Check if Posted or Encumbered Distributions exist : ';
11439: NVL(AID.encumbered_flag, 'N' ) IN ('Y', 'D', 'W', 'X'))
11440: AND ROWNUM = 1 ;
11441:
11442: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
11443: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info||l_dont_allow_update);
11444: END IF;
11445:
11446: IF l_dont_allow_update > 0 THEN
11447: RETURN TRUE ;