91: FND_LOG.STRING(g_level_procedure,
92: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.get_tax_regimes.BEGIN',
93: 'ZX_TDS_CALC_SERVICES_PUB_PKG.get_tax_regimes(+)');
94: END IF;
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96:
97: -- Bug fix 3365220, 3426155, skip get_applicable_regimes for
98: -- the following cases
99: -- 1) applied_from_application_id is not null
176: -- End: Bug 4959835
177:
178: END IF;
179:
180: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
181: IF (g_level_error >= g_current_runtime_level ) THEN
182: FND_LOG.STRING(g_level_error,
183: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.get_tax_regimes',
184: 'Incorrect return_status after calling ' ||
206: IF get_template_usage_csr%ISOPEN THEN
207: CLOSE get_template_usage_csr;
208: END IF;
209: -- End: Bug 4959835
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211:
212: IF (g_level_unexpected >= g_current_runtime_level ) THEN
213: FND_LOG.STRING(g_level_unexpected,
214: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.get_tax_regimes',
266: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax.BEGIN',
267: 'ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax(+)');
268: END IF;
269:
270: x_return_status := FND_API.G_RET_STS_SUCCESS;
271:
272: -- Bug 3971016: Skip processing tax applicability for line_level_action
273: -- 'RECORD_WITH_NO_TAX'
274: -- Bug 3893366: Skip processing tax applicability for line_level_action
352: p_upg_trx_info_rec => l_upg_trx_info_rec,
353: x_return_status => x_return_status
354: );
355:
356: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
357: IF (g_level_statement >= g_current_runtime_level ) THEN
358: FND_LOG.STRING(g_level_statement,
359: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
360: 'Incorrect return_status after calling ' ||
419: l_tax_determine_date,
420: l_tax_point_date,
421: x_return_status);
422:
423: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
424: IF (g_level_error >= g_current_runtime_level ) THEN
425: FND_LOG.STRING(g_level_error,
426: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
427: 'Incorrect return_status after calling ' ||
501: l_begin_index,
502: l_end_index,
503: x_return_status);
504:
505: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
506:
507: IF (g_level_statement >= g_current_runtime_level ) THEN
508: FND_LOG.STRING(g_level_statement,
509: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
551: p_upg_trx_info_rec => l_upg_trx_info_rec,
552: x_return_status => x_return_status
553: );
554:
555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
556: IF (g_level_statement >= g_current_runtime_level ) THEN
557: FND_LOG.STRING(g_level_statement,
558: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
559: 'Incorrect return_status after calling ' ||
578: l_begin_index,
579: l_end_index,
580: x_return_status);
581:
582: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
583:
584: IF (g_level_statement >= g_current_runtime_level ) THEN
585: FND_LOG.STRING(g_level_statement,
586: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
611: l_begin_index,
612: l_end_index,
613: x_return_status);
614:
615: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
616: IF (g_level_statement >= g_current_runtime_level ) THEN
617: FND_LOG.STRING(g_level_statement,
618: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
619: 'Incorrect return_status after calling ' ||
666: p_upg_trx_info_rec => l_upg_trx_info_rec,
667: x_return_status => x_return_status
668: );
669:
670: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
671: IF (g_level_statement >= g_current_runtime_level ) THEN
672: FND_LOG.STRING(g_level_statement,
673: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
674: 'Incorrect return_status after calling ' ||
693: l_begin_index,
694: l_end_index,
695: x_return_status);
696:
697: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
698:
699: IF (g_level_statement >= g_current_runtime_level ) THEN
700: FND_LOG.STRING(g_level_statement,
701: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
727: l_begin_index,
728: l_end_index,
729: x_return_status);
730:
731: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
732:
733: IF (g_level_statement >= g_current_runtime_level ) THEN
734: FND_LOG.STRING(g_level_statement,
735: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
783: p_upg_trx_info_rec => l_upg_trx_info_rec,
784: x_return_status => x_return_status
785: );
786:
787: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
788: IF (g_level_statement >= g_current_runtime_level ) THEN
789: FND_LOG.STRING(g_level_statement,
790: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
791: 'Incorrect return_status after calling ' ||
810: l_begin_index,
811: l_end_index,
812: x_return_status);
813:
814: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
815:
816: IF (g_level_statement >= g_current_runtime_level ) THEN
817: FND_LOG.STRING(g_level_statement,
818: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
861: l_begin_index,
862: l_end_index,
863: x_return_status);
864:
865: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
866: IF (g_level_statement >= g_current_runtime_level ) THEN
867: FND_LOG.STRING(g_level_statement,
868: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
869: 'Incorrect return_status after calling ' ||
916: p_upg_trx_info_rec => l_upg_trx_info_rec,
917: x_return_status => x_return_status
918: );
919:
920: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
921: IF (g_level_statement >= g_current_runtime_level ) THEN
922: FND_LOG.STRING(g_level_statement,
923: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
924: 'Incorrect return_status after calling ' ||
943: l_begin_index,
944: l_end_index,
945: x_return_status);
946:
947: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
948:
949: IF (g_level_statement >= g_current_runtime_level ) THEN
950: FND_LOG.STRING(g_level_statement,
951: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
982: l_begin_index,
983: l_end_index,
984: x_return_status);
985:
986: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
987: IF (g_level_statement >= g_current_runtime_level ) THEN
988: FND_LOG.STRING(g_level_statement,
989: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
990: 'Incorrect return_status after calling ' ||
1020: l_upg_trx_info_rec.event_class_code;
1021:
1022: IF get_source_doc_info%NOTFOUND THEN
1023: -- need to define new error message code
1024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1025: IF (g_level_statement >= g_current_runtime_level ) THEN
1026: FND_LOG.STRING(g_level_statement,
1027: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1028: 'No record found in zx_evnt_mappings.' );
1100: p_upg_trx_info_rec => l_upg_trx_info_rec,
1101: x_return_status => x_return_status
1102: ); */
1103:
1104: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1105: IF (g_level_statement >= g_current_runtime_level ) THEN
1106: FND_LOG.STRING(g_level_statement,
1107: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1108: 'Incorrect return_status after calling ' ||
1127: l_begin_index,
1128: l_end_index,
1129: x_return_status);
1130:
1131: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1132: IF (g_level_statement >= g_current_runtime_level ) THEN
1133: FND_LOG.STRING(g_level_statement,
1134: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1135: 'Incorrect return_status after calling ' ||
1190: l_begin_index,
1191: l_end_index,
1192: x_return_status);
1193:
1194: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1195: IF (g_level_error >= g_current_runtime_level ) THEN
1196: FND_LOG.STRING(g_level_error,
1197: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1198: 'Incorrect return_status after calling ' ||
1240: l_begin_index,
1241: l_end_index,
1242: x_return_status );
1243:
1244: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1245: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1246: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1247: FND_LOG.STRING(G_LEVEL_STATEMENT,
1248: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1241: l_end_index,
1242: x_return_status );
1243:
1244: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1245: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1246: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1247: FND_LOG.STRING(G_LEVEL_STATEMENT,
1248: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1249: 'Incorrect return_status after calling ' ||
1276: l_begin_index,
1277: l_end_index,
1278: x_return_status);
1279:
1280: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1281: IF (g_level_statement >= g_current_runtime_level ) THEN
1282: FND_LOG.STRING(g_level_statement,
1283: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1284: 'Incorrect return_status after calling ' ||
1313: p_event_class_rec,
1314: x_return_status,
1315: l_error_buffer);
1316:
1317: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1318: IF (g_level_error >= g_current_runtime_level ) THEN
1319: FND_LOG.STRING(g_level_error,
1320: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1321: 'Incorrect return_status after calling ' ||
1340: p_trx_line_index,
1341: x_return_status,
1342: l_error_buffer );
1343:
1344: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1345: IF (g_level_error >= g_current_runtime_level ) THEN
1346: FND_LOG.STRING(g_level_error,
1347: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1348: 'Incorrect return_status after calling ' ||
1368: p_trx_line_index,
1369: x_return_status,
1370: l_error_buffer );
1371:
1372: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1373: IF (g_level_error >= g_current_runtime_level ) THEN
1374: FND_LOG.STRING(g_level_error,
1375: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1376: 'Incorrect return_status after calling ' || '
1395: p_trx_line_index,
1396: x_return_status,
1397: l_error_buffer );
1398:
1399: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1400: IF (g_level_error >= g_current_runtime_level ) THEN
1401: FND_LOG.STRING(g_level_error,
1402: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1403: 'Incorrect return_status after calling '||
1421: p_event_class_rec,
1422: x_return_status,
1423: l_error_buffer);
1424:
1425: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1426: RETURN;
1427: END IF;
1428:
1429: -- Call Internal_Flag Service to check mandatory columns, like WHO columns,
1434: l_end_index,
1435: x_return_status,
1436: l_error_buffer);
1437:
1438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1439: IF (g_level_error >= g_current_runtime_level ) THEN
1440: FND_LOG.STRING(g_level_error,
1441: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1442: 'Incorrect return_status after calling '||
1452: END IF;
1453: END IF; -- begin_index and end_index NOT NULL, call internal services
1454: ELSE -- tax_event_type_code other than 'CREATE','UPDATE','OVERRIDE_TAX'
1455:
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1457: IF (g_level_statement >= g_current_runtime_level ) THEN
1458:
1459: FND_LOG.STRING(g_level_statement,
1460: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax.END',
1527: ELSE
1528: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ctrl_total_line_tx_amt(
1529: p_trx_line_index) <> 0
1530: THEN
1531: x_return_status := FND_API.G_RET_STS_ERROR;
1532: IF (g_level_error >= g_current_runtime_level ) THEN
1533: FND_LOG.STRING(g_level_error,
1534: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1535: 'line level control tax amount is not 0, ' ||
1562: IF ( g_detail_tax_lines_tbl.LAST >= 1000) THEN
1563:
1564: dump_detail_tax_lines_into_gt (x_return_status);
1565:
1566: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1567: IF (g_level_error >= g_current_runtime_level ) THEN
1568: FND_LOG.STRING(g_level_error,
1569: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1570: 'Incorrect return_status after calling ' ||
1588: END IF;
1589:
1590: EXCEPTION
1591: WHEN OTHERS THEN
1592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1593:
1594: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1595: FND_LOG.STRING(g_level_unexpected,
1596: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1619: FND_LOG.STRING(g_level_procedure,
1620: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.overide_detail_tax_lines.BEGIN',
1621: 'ZX_TDS_CALC_SERVICES_PUB_PKG.overide_detail_tax_lines(+)');
1622: END IF;
1623: x_return_status := FND_API.G_RET_STS_SUCCESS;
1624:
1625: IF (ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
1626: p_trx_line_index) = 'OVERRIDE_TAX') THEN
1627:
1628: calculate_tax( p_trx_line_index,
1629: p_event_class_rec,
1630: x_return_status );
1631:
1632: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1633: IF (g_level_error >= g_current_runtime_level ) THEN
1634: FND_LOG.STRING(g_level_error,
1635: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.overide_detail_tax_lines',
1636: 'Incorrect return_status after calling calculate_tax()');
1644: RETURN;
1645: END IF;
1646:
1647: ELSE
1648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1649: IF (g_level_statement >= g_current_runtime_level ) THEN
1650: FND_LOG.STRING(g_level_statement,
1651: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_detail_tax_lines',
1652: 'Tax Event Type Code: '||
1663: END IF;
1664:
1665: EXCEPTION
1666: WHEN OTHERS THEN
1667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1668: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1669: FND_LOG.STRING(g_level_unexpected,
1670: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_detail_tax_lines',
1671: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1693: FND_LOG.STRING(g_level_procedure,
1694: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines.BEGIN',
1695: 'ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines(+)');
1696: END IF;
1697: x_return_status := FND_API.G_RET_STS_SUCCESS;
1698:
1699: IF ( ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
1700: p_trx_line_index) = 'OVERRIDE_TAX') THEN
1701:
1702: calculate_tax( p_trx_line_index,
1703: p_event_class_rec,
1704: x_return_status );
1705:
1706: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1707: IF (g_level_error >= g_current_runtime_level ) THEN
1708: FND_LOG.STRING(g_level_error,
1709: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines',
1710: 'Incorrect return_status after calling calculate_tax()');
1718: RETURN;
1719: END IF;
1720:
1721: ELSE
1722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1723: IF (g_level_statement >= g_current_runtime_level ) THEN
1724: FND_LOG.STRING(g_level_statement,
1725: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines',
1726: 'Tax Event Type Code: '||
1736: END IF;
1737:
1738: EXCEPTION
1739: WHEN OTHERS THEN
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1742: FND_LOG.STRING(g_level_unexpected,
1743: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines',
1744: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1768: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination.BEGIN',
1769: 'ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination(+)');
1770: END IF;
1771:
1772: x_return_status := FND_API.G_RET_STS_SUCCESS;
1773:
1774: IF ZX_TDS_CALC_SERVICES_PUB_PKG.g_ctrl_total_line_tx_amt_flg = 'Y' THEN
1775:
1776: -- Prorate tax across tax lines created for the transactrion line
1780: process_taxes_for_xml_inv_line (
1781: -- p_event_class_rec,
1782: x_return_status);
1783:
1784: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1785: IF (g_level_error >= g_current_runtime_level ) THEN
1786: FND_LOG.STRING(g_level_error,
1787: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1788: 'Incorrect return_status after calling '||
1807: process_taxes_for_xml_inv_hdr (
1808: -- p_event_class_rec,
1809: x_return_status);
1810:
1811: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1812: IF (g_level_error >= g_current_runtime_level ) THEN
1813: FND_LOG.STRING(g_level_error,
1814: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1815: 'Incorrect return_status after calling '||
1832: p_event_class_rec,
1833: x_return_status,
1834: l_error_buffer);
1835:
1836: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1837: IF (g_level_error >= g_current_runtime_level ) THEN
1838: FND_LOG.STRING(g_level_error,
1839: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1840: 'Incorrect return_status after calling '||
1859: adjust_tax_for_xml_inv_hdr (
1860: -- p_event_class_rec,
1861: x_return_status);
1862:
1863: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1864: IF (g_level_error >= g_current_runtime_level ) THEN
1865: FND_LOG.STRING(g_level_error,
1866: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1867: 'Incorrect return_status after calling '||
1886: adjust_tax_for_xml_inv_line (
1887: -- p_event_class_rec,
1888: x_return_status);
1889:
1890: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1891: IF (g_level_error >= g_current_runtime_level ) THEN
1892: FND_LOG.STRING(g_level_error,
1893: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1894: 'Incorrect return_status after calling '||
1911: -- ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line (
1912: -- p_event_class_rec => p_event_class_rec,
1913: -- x_return_status => x_return_status );
1914:
1915: -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1916: -- IF (g_level_error >= g_current_runtime_level ) THEN
1917: -- FND_LOG.STRING(g_level_error,
1918: -- 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1919: -- 'Incorrect return_status after calling '||
1948: p_event_class_rec,
1949: x_return_status,
1950: l_error_buffer);
1951:
1952: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1953: IF (g_level_error >= g_current_runtime_level ) THEN
1954: FND_LOG.STRING(g_level_error,
1955: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1956: 'Incorrect return_status after calling '||
1979: END IF;
1980:
1981: EXCEPTION
1982: WHEN OTHERS THEN
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1984: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1985: FND_LOG.STRING(g_level_unexpected,
1986: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1987: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2009: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines.BEGIN',
2010: 'ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines(+)');
2011: END IF;
2012:
2013: x_return_status := FND_API.G_RET_STS_SUCCESS;
2014:
2015: -- get detail tax lines from imported summary lines
2016: --
2017: ZX_TDS_IMPORT_DOCUMENT_PKG.prorate_imported_sum_tax_lines(
2017: ZX_TDS_IMPORT_DOCUMENT_PKG.prorate_imported_sum_tax_lines(
2018: p_event_class_rec => p_event_class_rec,
2019: x_return_status => x_return_status);
2020:
2021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2022: IF (g_level_statement >= g_current_runtime_level ) THEN
2023: FND_LOG.STRING(g_level_statement,
2024: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines',
2025: 'Incorrect return_status after calling ' ||
2035: -- zx_detail_tax_lines_gt
2036: --
2037: dump_detail_tax_lines_into_gt (x_return_status);
2038:
2039: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2040: IF (g_level_error >= g_current_runtime_level ) THEN
2041: FND_LOG.STRING(g_level_error,
2042: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines',
2043: 'Incorrect return_status after calling ' ||
2060: END IF;
2061:
2062: EXCEPTION
2063: WHEN OTHERS THEN
2064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2065: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2066: FND_LOG.STRING(g_level_unexpected,
2067: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines',
2068: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2092: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import.BEGIN',
2093: 'ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import(+)');
2094: END IF;
2095:
2096: x_return_status := FND_API.G_RET_STS_SUCCESS;
2097:
2098: -- Bug 3971016: Skip processing tax lines for line_level_action
2099: -- 'RECORD_WITH_NO_TAX'
2100: --
2118: l_tax_determine_date,
2119: l_tax_point_date,
2120: x_return_status );
2121:
2122: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2123: IF (g_level_error >= g_current_runtime_level ) THEN
2124: FND_LOG.STRING(g_level_error,
2125: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import',
2126: 'Incorrect return_status after calling ' ||
2150: l_tax_determine_date,
2151: l_tax_point_date,
2152: x_return_status );
2153:
2154: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2155: IF (g_level_error >= g_current_runtime_level ) THEN
2156: FND_LOG.STRING(g_level_error,
2157: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import',
2158: 'Incorrect return_status after calling ' ||
2167: RETURN;
2168: END IF;
2169:
2170: ELSE
2171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
2172: IF (g_level_error >= g_current_runtime_level ) THEN
2173: FND_LOG.STRING(g_level_error,
2174: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import.END',
2175: 'ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import(-)'||' tax event type'||
2187: END IF;
2188:
2189: EXCEPTION
2190: WHEN OTHERS THEN
2191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2192: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2193: FND_LOG.STRING(g_level_unexpected,
2194: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import',
2195: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2218: FND_LOG.STRING(g_level_procedure,
2219: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
2220: 'ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate(+)');
2221: END IF;
2222: x_return_status := FND_API.G_RET_STS_SUCCESS;
2223:
2224: -- assign p_currency_conversion_rate to a local variable for a IN OUT
2225: -- parameter in the calling procedure. This may be changed later.
2226: --
2235: p_event_class_rec => p_event_class_rec,
2236: p_return_status => x_return_status,
2237: p_error_buffer => l_error_buffer);
2238:
2239: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2240: IF (g_level_error >= g_current_runtime_level ) THEN
2241: FND_LOG.STRING(g_level_error,
2242: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2243: 'Incorrect return_status after calling ' ||
2267: p_currency_conversion_type => p_currency_conversion_type,
2268: p_currency_conversion_date => p_currency_conversion_date,
2269: x_return_status => x_return_status);
2270:
2271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2272: IF (g_level_error >= g_current_runtime_level ) THEN
2273: FND_LOG.STRING(g_level_error,
2274: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2275: 'Incorrect return_status after calling ' ||
2291: ZX_TRL_PUB_PKG.update_exchange_rate (
2292: p_event_class_rec => p_event_class_rec,
2293: x_return_status => x_return_status);
2294:
2295: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2296: IF (g_level_error >= g_current_runtime_level ) THEN
2297: FND_LOG.STRING(g_level_error,
2298: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2299: 'Incorrect return_status after calling ' ||
2316: END IF;
2317:
2318: EXCEPTION
2319: WHEN OTHERS THEN
2320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2321: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2322: FND_LOG.STRING(g_level_unexpected,
2323: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2324: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2350: begin_index := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id.FIRST;
2351:
2352: IF(ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
2353: begin_index) = 'VALIDATE') THEN
2354: x_return_status := FND_API.G_RET_STS_SUCCESS;
2355: ELSE
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
2357: IF (g_level_statement >= g_current_runtime_level ) THEN
2358: FND_LOG.STRING(g_level_statement,
2352: IF(ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
2353: begin_index) = 'VALIDATE') THEN
2354: x_return_status := FND_API.G_RET_STS_SUCCESS;
2355: ELSE
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
2357: IF (g_level_statement >= g_current_runtime_level ) THEN
2358: FND_LOG.STRING(g_level_statement,
2359: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.validate_document_for_tax',
2360: 'Tax Event Type Code: '||
2373: END IF;
2374:
2375: EXCEPTION
2376: WHEN OTHERS THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2379: FND_LOG.STRING(g_level_unexpected,
2380: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.validate_document_for_tax',
2381: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2401: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document.BEGIN',
2402: 'ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document(+)');
2403: END IF;
2404:
2405: x_return_status := FND_API.G_RET_STS_SUCCESS;
2406:
2407: --
2408: -- init msg record to be passed back to TSRM
2409: --
2426: --
2427: ZX_TDS_REVERSE_DOCUMENT_PKG.reverse_document ( p_event_class_rec,
2428: x_return_status );
2429:
2430: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2431: IF (g_level_statement >= g_current_runtime_level ) THEN
2432: FND_LOG.STRING(g_level_statement,
2433: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document',
2434: 'Incorrect return_status after calling ' ||
2448: END IF;
2449:
2450: EXCEPTION
2451: WHEN OTHERS THEN
2452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453:
2454: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2455: FND_LOG.STRING(g_level_unexpected,
2456: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document',
2480: FND_LOG.STRING(g_level_procedure,
2481: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.set_detail_tax_line_def_val.BEGIN',
2482: 'ZX_TDS_CALC_SERVICES_PUB_PKG.set_detail_tax_line_def_val(+)');
2483: END IF;
2484: x_return_status := FND_API.G_RET_STS_SUCCESS;
2485:
2486: p_detail_tax_lines_rec.tax_amt_included_flag := NVL( p_detail_tax_lines_rec.tax_amt_included_flag, 'N' );
2487: p_detail_tax_lines_rec.compounding_tax_flag := NVL( p_detail_tax_lines_rec.compounding_tax_flag, 'N' );
2488: p_detail_tax_lines_rec.self_assessed_flag := NVL( p_detail_tax_lines_rec.self_assessed_flag, 'N' );
2565: FND_LOG.STRING(g_level_procedure,
2566: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt.BEGIN',
2567: 'ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt(+)');
2568: END IF;
2569: x_return_status := FND_API.G_RET_STS_SUCCESS;
2570:
2571: IF (p_detail_tax_lines_tbl.COUNT = 0) THEN
2572: IF (g_level_statement >= g_current_runtime_level ) THEN
2573: FND_LOG.STRING(g_level_statement,
2584: p_detail_tax_lines_tbl.LAST LOOP
2585: set_detail_tax_line_def_val (
2586: p_detail_tax_lines_tbl(i),
2587: x_return_status );
2588: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2589: RETURN;
2590: END IF;
2591: END LOOP;
2592:
2609: END IF;
2610:
2611: EXCEPTION
2612: WHEN OTHERS THEN
2613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2614: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2615: FND_LOG.STRING(g_level_unexpected,
2616: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt',
2617: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2638: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt.BEGIN',
2639: 'ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt(+)');
2640: END IF;
2641:
2642: x_return_status := FND_API.G_RET_STS_SUCCESS;
2643:
2644: /*
2645: * move to dump_detail_tax_lines_into_gt with 2 parameters
2646: *
2657: dump_detail_tax_lines_into_gt(
2658: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl,
2659: x_return_status );
2660:
2661: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2662: IF (g_level_error >= g_current_runtime_level ) THEN
2663: FND_LOG.STRING(g_level_error,
2664: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt',
2665: 'Incorrect return_status after calling '||
2685: END IF;
2686:
2687: EXCEPTION
2688: WHEN OTHERS THEN
2689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2690: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2691: FND_LOG.STRING(g_level_unexpected,
2692: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt',
2693: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2774: FND_LOG.STRING(g_level_procedure,
2775: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.fetch_detail_tax_lines.BEGIN',
2776: 'ZX_TDS_CALC_SERVICES_PUB_PKG.fetch_detail_tax_lines(+)');
2777: END IF;
2778: x_return_status := FND_API.G_RET_STS_SUCCESS;
2779: l_last_row := 1;
2780:
2781: -- Initialize p_det_tax_line_tbl
2782: g_detail_tax_lines_tbl.delete;
2795: END IF;
2796:
2797: EXCEPTION
2798: WHEN OTHERS THEN
2799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2800: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2801: FND_LOG.STRING(g_level_unexpected,
2802: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.fetch_detail_tax_lines',
2803: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2899: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_line.BEGIN',
2900: 'ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_line(+)');
2901: END IF;
2902:
2903: x_return_status := FND_API.G_RET_STS_SUCCESS;
2904:
2905: OPEN get_mismatch_tax_lines_csr;
2906: LOOP
2907: FETCH get_mismatch_tax_lines_csr BULK COLLECT INTO
2913: l_total_line_tx_amt_tbl
2914: LIMIT G_LINES_PER_FETCH;
2915:
2916: IF l_trx_id_tbl.COUNT > 0 THEN
2917: --x_return_status := FND_API.G_RET_STS_ERROR;
2918:
2919: FOR i IN l_trx_id_tbl.FIRST .. l_trx_id_tbl.LAST LOOP
2920: IF (g_level_statement >= g_current_runtime_level ) THEN
2921: FND_LOG.STRING(g_level_statement,
2953: CLOSE get_mismatch_tax_lines_csr;
2954:
2955: --Commented for Bug#13893772
2956: -- If Return status is error then return
2957: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2958: -- IF (g_level_statement >= g_current_runtime_level ) THEN
2959: -- FND_LOG.STRING(g_level_statement,
2960: -- 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_line',
2961: -- 'RETURN_STATUS = ' || x_return_status);
3074: WHEN OTHERS THEN
3075: IF get_total_line_tax_amt_csr%ISOPEN THEN
3076: CLOSE get_total_line_tax_amt_csr;
3077: END IF;
3078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3079: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3080: FND_LOG.STRING(g_level_unexpected,
3081: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_line',
3082: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3174: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr.BEGIN',
3175: 'ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr(+)');
3176: END IF;
3177:
3178: x_return_status := FND_API.G_RET_STS_SUCCESS;
3179:
3180: OPEN get_mismatch_tax_lines_csr;
3181: LOOP
3182: FETCH get_mismatch_tax_lines_csr BULK COLLECT INTO
3187: l_total_trx_tax_amt_tbl
3188: LIMIT G_LINES_PER_FETCH;
3189:
3190: IF l_trx_id_tbl.COUNT > 0 THEN
3191: --x_return_status := FND_API.G_RET_STS_ERROR;
3192:
3193: FOR i IN l_trx_id_tbl.FIRST .. l_trx_id_tbl.LAST LOOP
3194: IF (g_level_statement >= g_current_runtime_level ) THEN
3195: FND_LOG.STRING(g_level_statement,
3225: CLOSE get_mismatch_tax_lines_csr;
3226:
3227: --Commented for Bug#13893772
3228: -- If Return status is error then return
3229: --IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3230: -- IF (g_level_statement >= g_current_runtime_level ) THEN
3231: -- FND_LOG.STRING(g_level_statement,
3232: -- 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr',
3233: -- 'RETURN_STATUS = ' || x_return_status);
3346: WHEN OTHERS THEN
3347: IF get_total_trx_tax_amt_csr%ISOPEN THEN
3348: CLOSE get_total_trx_tax_amt_csr;
3349: END IF;
3350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3351: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3352: FND_LOG.STRING(g_level_unexpected,
3353: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr',
3354: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3436: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_line.BEGIN',
3437: 'ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_line(+)');
3438: END IF;
3439:
3440: x_return_status := FND_API.G_RET_STS_SUCCESS;
3441: l_index := 0;
3442:
3443: -- open cursor get_total_line_tax_amt_csr
3444: --
3550: WHEN OTHERS THEN
3551: IF get_total_line_tax_amt_csr%ISOPEN THEN
3552: CLOSE get_total_line_tax_amt_csr;
3553: END IF;
3554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3555: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3556: FND_LOG.STRING(g_level_unexpected,
3557: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_line',
3558: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3624: FND_LOG.STRING(g_level_procedure,
3625: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_hdr.BEGIN',
3626: 'ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_hdr(+)');
3627: END IF;
3628: x_return_status := FND_API.G_RET_STS_SUCCESS;
3629:
3630: -- get l_total_trx_tax_amt for all tax lines of this transaction
3631: --
3632: OPEN get_total_trx_tax_amt_csr ;
3730: WHEN OTHERS THEN
3731: IF get_total_trx_tax_amt_csr%ISOPEN THEN
3732: CLOSE get_total_trx_tax_amt_csr;
3733: END IF;
3734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3735: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3736: FND_LOG.STRING(g_level_unexpected,
3737: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_hdr',
3738: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3794: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line.BEGIN',
3795: 'ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line(+)');
3796: END IF;
3797:
3798: x_return_status := FND_API.G_RET_STS_SUCCESS;
3799: l_tbl_index := 0;
3800:
3801: FOR sum_tax_rec IN get_sum_tax_lines_for_adj_csr LOOP
3802:
3847: END IF;
3848:
3849: EXCEPTION
3850: WHEN OTHERS THEN
3851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3852: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3853: FND_LOG.STRING(g_level_unexpected,
3854: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line',
3855: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3875: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_session.BEGIN',
3876: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_session(+)');
3877: END IF;
3878:
3879: x_return_status := FND_API.G_RET_STS_SUCCESS;
3880:
3881: -- init gt tables
3882: DELETE FROM ZX_DETAIL_TAX_LINES_GT;
3883:
3962: END IF;
3963:
3964: EXCEPTION
3965: WHEN OTHERS THEN
3966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3967: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3968: FND_LOG.STRING(g_level_unexpected,
3969: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_session',
3970: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3991: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_header.BEGIN',
3992: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_header(+)');
3993: END IF;
3994:
3995: x_return_status := FND_API.G_RET_STS_SUCCESS;
3996:
3997: -- comment out the following init for bug fix 5417887
3998: -- ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl.DELETE;
3999: ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl.DELETE;
4073: END IF;
4074:
4075: EXCEPTION
4076: WHEN OTHERS THEN
4077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4078: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4079: FND_LOG.STRING(g_level_unexpected,
4080: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_header',
4081: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4102: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_line.BEGIN',
4103: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_line(+)');
4104: END IF;
4105:
4106: x_return_status := FND_API.G_RET_STS_SUCCESS;
4107:
4108: ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl.DELETE;
4109: ZX_TDS_CALC_SERVICES_PUB_PKG.g_tsrm_num_value_tbl.DELETE;
4110: ZX_TDS_CALC_SERVICES_PUB_PKG.g_tsrm_alphanum_value_tbl.DELETE;
4139: END IF;
4140:
4141: EXCEPTION
4142: WHEN OTHERS THEN
4143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4144: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4145: FND_LOG.STRING(g_level_unexpected,
4146: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_line',
4147: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4168: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_line.BEGIN',
4169: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_line(+)');
4170: END IF;
4171:
4172: x_return_status := FND_API.G_RET_STS_SUCCESS;
4173:
4174: ZX_TDS_RULE_BASE_DETM_PVT.g_segment_array.DELETE;
4175:
4176: IF (g_level_procedure >= g_current_runtime_level ) THEN
4183: END IF;
4184:
4185: EXCEPTION
4186: WHEN OTHERS THEN
4187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4188: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4189: FND_LOG.STRING(g_level_unexpected,
4190: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_line',
4191: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4212: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_dist.BEGIN',
4213: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_dist(+)');
4214: END IF;
4215:
4216: x_return_status := FND_API.G_RET_STS_SUCCESS;
4217:
4218: -- init gt tables
4219: DELETE FROM ZX_REC_NREC_DIST_GT;
4220:
4228: END IF;
4229:
4230: EXCEPTION
4231: WHEN OTHERS THEN
4232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4233: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4234: FND_LOG.STRING(g_level_unexpected,
4235: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_dist',
4236: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4263: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4264: 'p_init_level = ' || p_init_level);
4265: END IF;
4266:
4267: x_return_status := FND_API.G_RET_STS_SUCCESS;
4268:
4269: IF p_init_level = 'SESSION' THEN
4270:
4271: init_for_session( x_return_status );
4269: IF p_init_level = 'SESSION' THEN
4270:
4271: init_for_session( x_return_status );
4272:
4273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4274: IF (g_level_error >= g_current_runtime_level ) THEN
4275: FND_LOG.STRING(g_level_error,
4276: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4277: 'Incorrect return_status after calling ' ||
4290:
4291: init_for_header( p_event_class_rec,
4292: x_return_status );
4293:
4294: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4295: IF (g_level_error >= g_current_runtime_level ) THEN
4296: FND_LOG.STRING(g_level_error,
4297: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4298: 'Incorrect return_status after calling ' ||
4310:
4311: init_for_line( p_event_class_rec,
4312: x_return_status );
4313:
4314: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4315: IF (g_level_error >= g_current_runtime_level ) THEN
4316: FND_LOG.STRING(g_level_error,
4317: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4318: 'Incorrect return_status after calling ' ||
4331:
4332: init_for_tax_line( p_event_class_rec,
4333: x_return_status );
4334:
4335: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4336: IF (g_level_error >= g_current_runtime_level ) THEN
4337: FND_LOG.STRING(g_level_error,
4338: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4339: 'Incorrect return_status after calling ' ||
4352:
4353: init_for_tax_dist ( p_event_class_rec,
4354: x_return_status );
4355:
4356: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4357: IF (g_level_error >= g_current_runtime_level ) THEN
4358: FND_LOG.STRING(g_level_error,
4359: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4360: 'Incorrect return_status after calling ' ||
4381: END IF;
4382:
4383: EXCEPTION
4384: WHEN OTHERS THEN
4385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4386: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4387: FND_LOG.STRING(g_level_unexpected,
4388: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4389: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4419: 'ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg set for supplier site is ' ||ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg);
4420: END IF;
4421:
4422:
4423: x_return_status := FND_API.G_RET_STS_SUCCESS;
4424:
4425: -- Check if the tax calculation level from the party site is 'None'
4426: -- If it is 'None', skip the processing taxes for this transaction
4427: -- line get_process_for_appl_flg
4456: END IF;
4457:
4458: EXCEPTION
4459: WHEN OTHERS THEN
4460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4461: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4462: FND_LOG.STRING(g_level_unexpected,
4463: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.get_process_for_appl_flg',
4464: 'No data found: p_tax_prof_id: '||p_tax_prof_id);