[Home] [Help]
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',
265: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax.BEGIN',
266: 'ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax(+)');
267: END IF;
268:
269: x_return_status := FND_API.G_RET_STS_SUCCESS;
270:
271: -- Bug 3971016: Skip processing tax applicability for line_level_action
272: -- 'RECORD_WITH_NO_TAX'
273: -- Bug 3893366: Skip processing tax applicability for line_level_action
350: p_upg_trx_info_rec => l_upg_trx_info_rec,
351: x_return_status => x_return_status
352: );
353:
354: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
355: IF (g_level_statement >= g_current_runtime_level ) THEN
356: FND_LOG.STRING(g_level_statement,
357: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
358: 'Incorrect return_status after calling ' ||
417: l_tax_determine_date,
418: l_tax_point_date,
419: x_return_status);
420:
421: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
422: IF (g_level_error >= g_current_runtime_level ) THEN
423: FND_LOG.STRING(g_level_error,
424: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
425: 'Incorrect return_status after calling ' ||
499: l_begin_index,
500: l_end_index,
501: x_return_status);
502:
503: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
504:
505: IF (g_level_statement >= g_current_runtime_level ) THEN
506: FND_LOG.STRING(g_level_statement,
507: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
549: p_upg_trx_info_rec => l_upg_trx_info_rec,
550: x_return_status => x_return_status
551: );
552:
553: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
554: IF (g_level_statement >= g_current_runtime_level ) THEN
555: FND_LOG.STRING(g_level_statement,
556: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
557: 'Incorrect return_status after calling ' ||
576: l_begin_index,
577: l_end_index,
578: x_return_status);
579:
580: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
581:
582: IF (g_level_statement >= g_current_runtime_level ) THEN
583: FND_LOG.STRING(g_level_statement,
584: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
609: l_begin_index,
610: l_end_index,
611: x_return_status);
612:
613: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
614: IF (g_level_statement >= g_current_runtime_level ) THEN
615: FND_LOG.STRING(g_level_statement,
616: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
617: 'Incorrect return_status after calling ' ||
664: p_upg_trx_info_rec => l_upg_trx_info_rec,
665: x_return_status => x_return_status
666: );
667:
668: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
669: IF (g_level_statement >= g_current_runtime_level ) THEN
670: FND_LOG.STRING(g_level_statement,
671: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
672: 'Incorrect return_status after calling ' ||
691: l_begin_index,
692: l_end_index,
693: x_return_status);
694:
695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
696:
697: IF (g_level_statement >= g_current_runtime_level ) THEN
698: FND_LOG.STRING(g_level_statement,
699: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
725: l_begin_index,
726: l_end_index,
727: x_return_status);
728:
729: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
730:
731: IF (g_level_statement >= g_current_runtime_level ) THEN
732: FND_LOG.STRING(g_level_statement,
733: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
781: p_upg_trx_info_rec => l_upg_trx_info_rec,
782: x_return_status => x_return_status
783: );
784:
785: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
786: IF (g_level_statement >= g_current_runtime_level ) THEN
787: FND_LOG.STRING(g_level_statement,
788: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
789: 'Incorrect return_status after calling ' ||
808: l_begin_index,
809: l_end_index,
810: x_return_status);
811:
812: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
813:
814: IF (g_level_statement >= g_current_runtime_level ) THEN
815: FND_LOG.STRING(g_level_statement,
816: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
852: l_begin_index,
853: l_end_index,
854: x_return_status);
855:
856: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
857: IF (g_level_statement >= g_current_runtime_level ) THEN
858: FND_LOG.STRING(g_level_statement,
859: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
860: 'Incorrect return_status after calling ' ||
907: p_upg_trx_info_rec => l_upg_trx_info_rec,
908: x_return_status => x_return_status
909: );
910:
911: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
912: IF (g_level_statement >= g_current_runtime_level ) THEN
913: FND_LOG.STRING(g_level_statement,
914: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
915: 'Incorrect return_status after calling ' ||
934: l_begin_index,
935: l_end_index,
936: x_return_status);
937:
938: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
939:
940: IF (g_level_statement >= g_current_runtime_level ) THEN
941: FND_LOG.STRING(g_level_statement,
942: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
973: l_begin_index,
974: l_end_index,
975: x_return_status);
976:
977: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
978: IF (g_level_statement >= g_current_runtime_level ) THEN
979: FND_LOG.STRING(g_level_statement,
980: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
981: 'Incorrect return_status after calling ' ||
1011: l_upg_trx_info_rec.event_class_code;
1012:
1013: IF get_source_doc_info%NOTFOUND THEN
1014: -- need to define new error message code
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1016: IF (g_level_statement >= g_current_runtime_level ) THEN
1017: FND_LOG.STRING(g_level_statement,
1018: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1019: 'No record found in zx_evnt_mappings.' );
1065: p_upg_trx_info_rec => l_upg_trx_info_rec,
1066: x_return_status => x_return_status
1067: );
1068:
1069: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1070: IF (g_level_statement >= g_current_runtime_level ) THEN
1071: FND_LOG.STRING(g_level_statement,
1072: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1073: 'Incorrect return_status after calling ' ||
1092: l_begin_index,
1093: l_end_index,
1094: x_return_status);
1095:
1096: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1097: IF (g_level_statement >= g_current_runtime_level ) THEN
1098: FND_LOG.STRING(g_level_statement,
1099: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1100: 'Incorrect return_status after calling ' ||
1147: l_begin_index,
1148: l_end_index,
1149: x_return_status);
1150:
1151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1152: IF (g_level_error >= g_current_runtime_level ) THEN
1153: FND_LOG.STRING(g_level_error,
1154: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1155: 'Incorrect return_status after calling ' ||
1197: l_begin_index,
1198: l_end_index,
1199: x_return_status );
1200:
1201: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1202: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1203: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1204: FND_LOG.STRING(G_LEVEL_STATEMENT,
1205: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1198: l_end_index,
1199: x_return_status );
1200:
1201: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1202: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1203: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1204: FND_LOG.STRING(G_LEVEL_STATEMENT,
1205: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1206: 'Incorrect return_status after calling ' ||
1233: l_begin_index,
1234: l_end_index,
1235: x_return_status);
1236:
1237: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1238: IF (g_level_statement >= g_current_runtime_level ) THEN
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1241: 'Incorrect return_status after calling ' ||
1270: p_event_class_rec,
1271: x_return_status,
1272: l_error_buffer);
1273:
1274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1275: IF (g_level_error >= g_current_runtime_level ) THEN
1276: FND_LOG.STRING(g_level_error,
1277: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1278: 'Incorrect return_status after calling ' ||
1297: p_trx_line_index,
1298: x_return_status,
1299: l_error_buffer );
1300:
1301: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1302: IF (g_level_error >= g_current_runtime_level ) THEN
1303: FND_LOG.STRING(g_level_error,
1304: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1305: 'Incorrect return_status after calling ' ||
1325: p_trx_line_index,
1326: x_return_status,
1327: l_error_buffer );
1328:
1329: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1330: IF (g_level_error >= g_current_runtime_level ) THEN
1331: FND_LOG.STRING(g_level_error,
1332: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1333: 'Incorrect return_status after calling ' || '
1352: p_trx_line_index,
1353: x_return_status,
1354: l_error_buffer );
1355:
1356: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1357: IF (g_level_error >= g_current_runtime_level ) THEN
1358: FND_LOG.STRING(g_level_error,
1359: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1360: 'Incorrect return_status after calling '||
1378: p_event_class_rec,
1379: x_return_status,
1380: l_error_buffer);
1381:
1382: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1383: RETURN;
1384: END IF;
1385:
1386: -- Call Internal_Flag Service to check mandatory columns, like WHO columns,
1391: l_end_index,
1392: x_return_status,
1393: l_error_buffer);
1394:
1395: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1396: IF (g_level_error >= g_current_runtime_level ) THEN
1397: FND_LOG.STRING(g_level_error,
1398: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1399: 'Incorrect return_status after calling '||
1409: END IF;
1410: END IF; -- begin_index and end_index NOT NULL, call internal services
1411: ELSE -- tax_event_type_code other than 'CREATE','UPDATE','OVERRIDE_TAX'
1412:
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1414: IF (g_level_statement >= g_current_runtime_level ) THEN
1415:
1416: FND_LOG.STRING(g_level_statement,
1417: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax.END',
1473: ELSE
1474: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ctrl_total_line_tx_amt(
1475: p_trx_line_index) <> 0
1476: THEN
1477: x_return_status := FND_API.G_RET_STS_ERROR;
1478: IF (g_level_error >= g_current_runtime_level ) THEN
1479: FND_LOG.STRING(g_level_error,
1480: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1481: 'line level control tax amount is not 0, ' ||
1508: IF ( g_detail_tax_lines_tbl.LAST >= 1000) THEN
1509:
1510: dump_detail_tax_lines_into_gt (x_return_status);
1511:
1512: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1513: IF (g_level_error >= g_current_runtime_level ) THEN
1514: FND_LOG.STRING(g_level_error,
1515: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1516: 'Incorrect return_status after calling ' ||
1534: END IF;
1535:
1536: EXCEPTION
1537: WHEN OTHERS THEN
1538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1539:
1540: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1541: FND_LOG.STRING(g_level_unexpected,
1542: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax',
1565: FND_LOG.STRING(g_level_procedure,
1566: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.overide_detail_tax_lines.BEGIN',
1567: 'ZX_TDS_CALC_SERVICES_PUB_PKG.overide_detail_tax_lines(+)');
1568: END IF;
1569: x_return_status := FND_API.G_RET_STS_SUCCESS;
1570:
1571: IF (ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
1572: p_trx_line_index) = 'OVERRIDE_TAX') THEN
1573:
1574: calculate_tax( p_trx_line_index,
1575: p_event_class_rec,
1576: x_return_status );
1577:
1578: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1579: IF (g_level_error >= g_current_runtime_level ) THEN
1580: FND_LOG.STRING(g_level_error,
1581: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.overide_detail_tax_lines',
1582: 'Incorrect return_status after calling calculate_tax()');
1590: RETURN;
1591: END IF;
1592:
1593: ELSE
1594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1595: IF (g_level_statement >= g_current_runtime_level ) THEN
1596: FND_LOG.STRING(g_level_statement,
1597: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_detail_tax_lines',
1598: 'Tax Event Type Code: '||
1609: END IF;
1610:
1611: EXCEPTION
1612: WHEN OTHERS THEN
1613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1614: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1615: FND_LOG.STRING(g_level_unexpected,
1616: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_detail_tax_lines',
1617: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1639: FND_LOG.STRING(g_level_procedure,
1640: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines.BEGIN',
1641: 'ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines(+)');
1642: END IF;
1643: x_return_status := FND_API.G_RET_STS_SUCCESS;
1644:
1645: IF ( ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
1646: p_trx_line_index) = 'OVERRIDE_TAX') THEN
1647:
1648: calculate_tax( p_trx_line_index,
1649: p_event_class_rec,
1650: x_return_status );
1651:
1652: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1653: IF (g_level_error >= g_current_runtime_level ) THEN
1654: FND_LOG.STRING(g_level_error,
1655: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines',
1656: 'Incorrect return_status after calling calculate_tax()');
1664: RETURN;
1665: END IF;
1666:
1667: ELSE
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1669: IF (g_level_statement >= g_current_runtime_level ) THEN
1670: FND_LOG.STRING(g_level_statement,
1671: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines',
1672: 'Tax Event Type Code: '||
1682: END IF;
1683:
1684: EXCEPTION
1685: WHEN OTHERS THEN
1686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1687: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1688: FND_LOG.STRING(g_level_unexpected,
1689: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.override_summary_tax_lines',
1690: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1714: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination.BEGIN',
1715: 'ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination(+)');
1716: END IF;
1717:
1718: x_return_status := FND_API.G_RET_STS_SUCCESS;
1719:
1720: IF ZX_TDS_CALC_SERVICES_PUB_PKG.g_ctrl_total_line_tx_amt_flg = 'Y' THEN
1721:
1722: -- Prorate tax across tax lines created for the transactrion line
1726: process_taxes_for_xml_inv_line (
1727: -- p_event_class_rec,
1728: x_return_status);
1729:
1730: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1731: IF (g_level_error >= g_current_runtime_level ) THEN
1732: FND_LOG.STRING(g_level_error,
1733: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1734: 'Incorrect return_status after calling '||
1753: process_taxes_for_xml_inv_hdr (
1754: -- p_event_class_rec,
1755: x_return_status);
1756:
1757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1758: IF (g_level_error >= g_current_runtime_level ) THEN
1759: FND_LOG.STRING(g_level_error,
1760: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1761: 'Incorrect return_status after calling '||
1778: p_event_class_rec,
1779: x_return_status,
1780: l_error_buffer);
1781:
1782: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1783: IF (g_level_error >= g_current_runtime_level ) THEN
1784: FND_LOG.STRING(g_level_error,
1785: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1786: 'Incorrect return_status after calling '||
1805: adjust_tax_for_xml_inv_hdr (
1806: -- p_event_class_rec,
1807: x_return_status);
1808:
1809: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1810: IF (g_level_error >= g_current_runtime_level ) THEN
1811: FND_LOG.STRING(g_level_error,
1812: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1813: 'Incorrect return_status after calling '||
1832: adjust_tax_for_xml_inv_line (
1833: -- p_event_class_rec,
1834: x_return_status);
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 '||
1857: ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line (
1858: p_event_class_rec => p_event_class_rec,
1859: x_return_status => x_return_status );
1860:
1861: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1862: IF (g_level_error >= g_current_runtime_level ) THEN
1863: FND_LOG.STRING(g_level_error,
1864: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1865: 'Incorrect return_status after calling '||
1894: p_event_class_rec,
1895: x_return_status,
1896: l_error_buffer);
1897:
1898: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1899: IF (g_level_error >= g_current_runtime_level ) THEN
1900: FND_LOG.STRING(g_level_error,
1901: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1902: 'Incorrect return_status after calling '||
1925: END IF;
1926:
1927: EXCEPTION
1928: WHEN OTHERS THEN
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1931: FND_LOG.STRING(g_level_unexpected,
1932: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.tax_line_determination',
1933: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1955: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines.BEGIN',
1956: 'ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines(+)');
1957: END IF;
1958:
1959: x_return_status := FND_API.G_RET_STS_SUCCESS;
1960:
1961: -- get detail tax lines from imported summary lines
1962: --
1963: ZX_TDS_IMPORT_DOCUMENT_PKG.prorate_imported_sum_tax_lines(
1963: ZX_TDS_IMPORT_DOCUMENT_PKG.prorate_imported_sum_tax_lines(
1964: p_event_class_rec => p_event_class_rec,
1965: x_return_status => x_return_status);
1966:
1967: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1968: IF (g_level_statement >= g_current_runtime_level ) THEN
1969: FND_LOG.STRING(g_level_statement,
1970: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines',
1971: 'Incorrect return_status after calling ' ||
1981: -- zx_detail_tax_lines_gt
1982: --
1983: dump_detail_tax_lines_into_gt (x_return_status);
1984:
1985: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1986: IF (g_level_error >= g_current_runtime_level ) THEN
1987: FND_LOG.STRING(g_level_error,
1988: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines',
1989: 'Incorrect return_status after calling ' ||
2006: END IF;
2007:
2008: EXCEPTION
2009: WHEN OTHERS THEN
2010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2011: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2012: FND_LOG.STRING(g_level_unexpected,
2013: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines',
2014: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2038: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import.BEGIN',
2039: 'ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import(+)');
2040: END IF;
2041:
2042: x_return_status := FND_API.G_RET_STS_SUCCESS;
2043:
2044: -- Bug 3971016: Skip processing tax lines for line_level_action
2045: -- 'RECORD_WITH_NO_TAX'
2046: --
2064: l_tax_determine_date,
2065: l_tax_point_date,
2066: x_return_status );
2067:
2068: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2069: IF (g_level_error >= g_current_runtime_level ) THEN
2070: FND_LOG.STRING(g_level_error,
2071: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import',
2072: 'Incorrect return_status after calling ' ||
2096: l_tax_determine_date,
2097: l_tax_point_date,
2098: x_return_status );
2099:
2100: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2101: IF (g_level_error >= g_current_runtime_level ) THEN
2102: FND_LOG.STRING(g_level_error,
2103: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import',
2104: 'Incorrect return_status after calling ' ||
2113: RETURN;
2114: END IF;
2115:
2116: ELSE
2117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
2118: IF (g_level_error >= g_current_runtime_level ) THEN
2119: FND_LOG.STRING(g_level_error,
2120: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import.END',
2121: 'ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import(-)'||' tax event type'||
2133: END IF;
2134:
2135: EXCEPTION
2136: WHEN OTHERS THEN
2137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2138: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2139: FND_LOG.STRING(g_level_unexpected,
2140: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import',
2141: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2164: FND_LOG.STRING(g_level_procedure,
2165: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
2166: 'ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate(+)');
2167: END IF;
2168: x_return_status := FND_API.G_RET_STS_SUCCESS;
2169:
2170: -- assign p_currency_conversion_rate to a local variable for a IN OUT
2171: -- parameter in the calling procedure. This may be changed later.
2172: --
2181: p_event_class_rec => p_event_class_rec,
2182: p_return_status => x_return_status,
2183: p_error_buffer => l_error_buffer);
2184:
2185: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2186: IF (g_level_error >= g_current_runtime_level ) THEN
2187: FND_LOG.STRING(g_level_error,
2188: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2189: 'Incorrect return_status after calling ' ||
2213: p_currency_conversion_type => p_currency_conversion_type,
2214: p_currency_conversion_date => p_currency_conversion_date,
2215: x_return_status => x_return_status);
2216:
2217: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2218: IF (g_level_error >= g_current_runtime_level ) THEN
2219: FND_LOG.STRING(g_level_error,
2220: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2221: 'Incorrect return_status after calling ' ||
2237: ZX_TRL_PUB_PKG.update_exchange_rate (
2238: p_event_class_rec => p_event_class_rec,
2239: x_return_status => x_return_status);
2240:
2241: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2242: IF (g_level_error >= g_current_runtime_level ) THEN
2243: FND_LOG.STRING(g_level_error,
2244: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2245: 'Incorrect return_status after calling ' ||
2262: END IF;
2263:
2264: EXCEPTION
2265: WHEN OTHERS THEN
2266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2267: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2268: FND_LOG.STRING(g_level_unexpected,
2269: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.update_exchange_rate',
2270: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2296: begin_index := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id.FIRST;
2297:
2298: IF(ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
2299: begin_index) = 'VALIDATE') THEN
2300: x_return_status := FND_API.G_RET_STS_SUCCESS;
2301: ELSE
2302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
2303: IF (g_level_statement >= g_current_runtime_level ) THEN
2304: FND_LOG.STRING(g_level_statement,
2298: IF(ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(
2299: begin_index) = 'VALIDATE') THEN
2300: x_return_status := FND_API.G_RET_STS_SUCCESS;
2301: ELSE
2302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
2303: IF (g_level_statement >= g_current_runtime_level ) THEN
2304: FND_LOG.STRING(g_level_statement,
2305: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.validate_document_for_tax',
2306: 'Tax Event Type Code: '||
2319: END IF;
2320:
2321: EXCEPTION
2322: WHEN OTHERS THEN
2323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2324: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2325: FND_LOG.STRING(g_level_unexpected,
2326: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.validate_document_for_tax',
2327: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2347: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document.BEGIN',
2348: 'ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document(+)');
2349: END IF;
2350:
2351: x_return_status := FND_API.G_RET_STS_SUCCESS;
2352:
2353: --
2354: -- init msg record to be passed back to TSRM
2355: --
2372: --
2373: ZX_TDS_REVERSE_DOCUMENT_PKG.reverse_document ( p_event_class_rec,
2374: x_return_status );
2375:
2376: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2377: IF (g_level_statement >= g_current_runtime_level ) THEN
2378: FND_LOG.STRING(g_level_statement,
2379: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document',
2380: 'Incorrect return_status after calling ' ||
2394: END IF;
2395:
2396: EXCEPTION
2397: WHEN OTHERS THEN
2398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2399:
2400: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2401: FND_LOG.STRING(g_level_unexpected,
2402: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document',
2426: FND_LOG.STRING(g_level_procedure,
2427: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.set_detail_tax_line_def_val.BEGIN',
2428: 'ZX_TDS_CALC_SERVICES_PUB_PKG.set_detail_tax_line_def_val(+)');
2429: END IF;
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2431:
2432: p_detail_tax_lines_rec.tax_amt_included_flag := NVL( p_detail_tax_lines_rec.tax_amt_included_flag, 'N' );
2433: p_detail_tax_lines_rec.compounding_tax_flag := NVL( p_detail_tax_lines_rec.compounding_tax_flag, 'N' );
2434: p_detail_tax_lines_rec.self_assessed_flag := NVL( p_detail_tax_lines_rec.self_assessed_flag, 'N' );
2503: FND_LOG.STRING(g_level_procedure,
2504: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt.BEGIN',
2505: 'ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt(+)');
2506: END IF;
2507: x_return_status := FND_API.G_RET_STS_SUCCESS;
2508:
2509: IF (p_detail_tax_lines_tbl.COUNT = 0) THEN
2510: IF (g_level_statement >= g_current_runtime_level ) THEN
2511: FND_LOG.STRING(g_level_statement,
2522: p_detail_tax_lines_tbl.LAST LOOP
2523: set_detail_tax_line_def_val (
2524: p_detail_tax_lines_tbl(i),
2525: x_return_status );
2526: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2527: RETURN;
2528: END IF;
2529: END LOOP;
2530:
2547: END IF;
2548:
2549: EXCEPTION
2550: WHEN OTHERS THEN
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2553: FND_LOG.STRING(g_level_unexpected,
2554: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt',
2555: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2576: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt.BEGIN',
2577: 'ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt(+)');
2578: END IF;
2579:
2580: x_return_status := FND_API.G_RET_STS_SUCCESS;
2581:
2582: /*
2583: * move to dump_detail_tax_lines_into_gt with 2 parameters
2584: *
2595: dump_detail_tax_lines_into_gt(
2596: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl,
2597: x_return_status );
2598:
2599: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2600: IF (g_level_error >= g_current_runtime_level ) THEN
2601: FND_LOG.STRING(g_level_error,
2602: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt',
2603: 'Incorrect return_status after calling '||
2623: END IF;
2624:
2625: EXCEPTION
2626: WHEN OTHERS THEN
2627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2628: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2629: FND_LOG.STRING(g_level_unexpected,
2630: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt',
2631: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2712: FND_LOG.STRING(g_level_procedure,
2713: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.fetch_detail_tax_lines.BEGIN',
2714: 'ZX_TDS_CALC_SERVICES_PUB_PKG.fetch_detail_tax_lines(+)');
2715: END IF;
2716: x_return_status := FND_API.G_RET_STS_SUCCESS;
2717: l_last_row := 1;
2718:
2719: -- Initialize p_det_tax_line_tbl
2720: g_detail_tax_lines_tbl.delete;
2733: END IF;
2734:
2735: EXCEPTION
2736: WHEN OTHERS THEN
2737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2738: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2739: FND_LOG.STRING(g_level_unexpected,
2740: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.fetch_detail_tax_lines',
2741: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2828: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_line.BEGIN',
2829: 'ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_line(+)');
2830: END IF;
2831:
2832: x_return_status := FND_API.G_RET_STS_SUCCESS;
2833: OPEN get_mismatch_tax_lines_csr;
2834: FETCH get_mismatch_tax_lines_csr INTO l_total_line_tx_amt;
2835:
2836: IF get_mismatch_tax_lines_csr%FOUND THEN
2838:
2839: -- Raise error if ctrl_total_line_tx_amt <> 0.
2840: -- no action is required, if ctrl_total_line_tx_amt is 0,
2841: --
2842: x_return_status := FND_API.G_RET_STS_ERROR;
2843:
2844: IF (g_level_statement >= g_current_runtime_level ) THEN
2845:
2846: FND_LOG.STRING(g_level_statement,
2967: WHEN OTHERS THEN
2968: IF get_total_line_tax_amt_csr%ISOPEN THEN
2969: CLOSE get_total_line_tax_amt_csr;
2970: END IF;
2971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2972: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2973: FND_LOG.STRING(g_level_unexpected,
2974: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_line',
2975: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3061: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr.BEGIN',
3062: 'ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr(+)');
3063: END IF;
3064:
3065: x_return_status := FND_API.G_RET_STS_SUCCESS;
3066:
3067: OPEN get_mismatch_tax_lines_csr;
3068: FETCH get_mismatch_tax_lines_csr INTO l_total_trx_tax_amt;
3069:
3069:
3070: IF get_mismatch_tax_lines_csr%FOUND THEN
3071: CLOSE get_mismatch_tax_lines_csr;
3072:
3073: x_return_status := FND_API.G_RET_STS_ERROR;
3074: IF (g_level_statement >= g_current_runtime_level ) THEN
3075: FND_LOG.STRING(g_level_statement,
3076: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr',
3077: 'The header level control tax amount is not 0, ' ||
3195: WHEN OTHERS THEN
3196: IF get_total_trx_tax_amt_csr%ISOPEN THEN
3197: CLOSE get_total_trx_tax_amt_csr;
3198: END IF;
3199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3200: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3201: FND_LOG.STRING(g_level_unexpected,
3202: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.process_taxes_for_xml_inv_hdr',
3203: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3279: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_line.BEGIN',
3280: 'ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_line(+)');
3281: END IF;
3282:
3283: x_return_status := FND_API.G_RET_STS_SUCCESS;
3284: l_index := 0;
3285:
3286: -- open cursor get_total_line_tax_amt_csr
3287: --
3336: WHEN OTHERS THEN
3337: IF get_total_line_tax_amt_csr%ISOPEN THEN
3338: CLOSE get_total_line_tax_amt_csr;
3339: END IF;
3340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3341: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3342: FND_LOG.STRING(g_level_unexpected,
3343: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_line',
3344: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3404: FND_LOG.STRING(g_level_procedure,
3405: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_hdr.BEGIN',
3406: 'ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_hdr(+)');
3407: END IF;
3408: x_return_status := FND_API.G_RET_STS_SUCCESS;
3409:
3410: -- get l_total_trx_tax_amt for all tax lines of this transaction
3411: --
3412: OPEN get_total_trx_tax_amt_csr ;
3453: WHEN OTHERS THEN
3454: IF get_total_trx_tax_amt_csr%ISOPEN THEN
3455: CLOSE get_total_trx_tax_amt_csr;
3456: END IF;
3457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3458: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3459: FND_LOG.STRING(g_level_unexpected,
3460: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.adjust_tax_for_xml_inv_hdr',
3461: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3517: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line.BEGIN',
3518: 'ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line(+)');
3519: END IF;
3520:
3521: x_return_status := FND_API.G_RET_STS_SUCCESS;
3522: l_tbl_index := 0;
3523:
3524: FOR sum_tax_rec IN get_sum_tax_lines_for_adj_csr LOOP
3525:
3570: END IF;
3571:
3572: EXCEPTION
3573: WHEN OTHERS THEN
3574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3575: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3576: FND_LOG.STRING(g_level_unexpected,
3577: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.match_tax_amt_to_summary_line',
3578: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3598: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_session.BEGIN',
3599: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_session(+)');
3600: END IF;
3601:
3602: x_return_status := FND_API.G_RET_STS_SUCCESS;
3603:
3604: -- init gt tables
3605: DELETE FROM ZX_DETAIL_TAX_LINES_GT;
3606:
3672: END IF;
3673:
3674: EXCEPTION
3675: WHEN OTHERS THEN
3676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3677: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3678: FND_LOG.STRING(g_level_unexpected,
3679: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_session',
3680: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3701: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_header.BEGIN',
3702: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_header(+)');
3703: END IF;
3704:
3705: x_return_status := FND_API.G_RET_STS_SUCCESS;
3706:
3707: -- comment out the following init for bug fix 5417887
3708: -- ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl.DELETE;
3709: ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl.DELETE;
3778: END IF;
3779:
3780: EXCEPTION
3781: WHEN OTHERS THEN
3782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3783: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3784: FND_LOG.STRING(g_level_unexpected,
3785: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_header',
3786: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3807: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_line.BEGIN',
3808: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_line(+)');
3809: END IF;
3810:
3811: x_return_status := FND_API.G_RET_STS_SUCCESS;
3812:
3813: ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl.DELETE;
3814: ZX_TDS_CALC_SERVICES_PUB_PKG.g_tsrm_num_value_tbl.DELETE;
3815: ZX_TDS_CALC_SERVICES_PUB_PKG.g_tsrm_alphanum_value_tbl.DELETE;
3844: END IF;
3845:
3846: EXCEPTION
3847: WHEN OTHERS THEN
3848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3849: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3850: FND_LOG.STRING(g_level_unexpected,
3851: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_line',
3852: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3873: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_line.BEGIN',
3874: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_line(+)');
3875: END IF;
3876:
3877: x_return_status := FND_API.G_RET_STS_SUCCESS;
3878:
3879: ZX_TDS_RULE_BASE_DETM_PVT.g_segment_array.DELETE;
3880:
3881: IF (g_level_procedure >= g_current_runtime_level ) THEN
3888: END IF;
3889:
3890: EXCEPTION
3891: WHEN OTHERS THEN
3892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3893: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3894: FND_LOG.STRING(g_level_unexpected,
3895: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_line',
3896: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3917: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_dist.BEGIN',
3918: 'ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_dist(+)');
3919: END IF;
3920:
3921: x_return_status := FND_API.G_RET_STS_SUCCESS;
3922:
3923: -- init gt tables
3924: DELETE FROM ZX_REC_NREC_DIST_GT;
3925:
3933: END IF;
3934:
3935: EXCEPTION
3936: WHEN OTHERS THEN
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3938: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3939: FND_LOG.STRING(g_level_unexpected,
3940: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.init_for_tax_dist',
3941: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3968: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
3969: 'p_init_level = ' || p_init_level);
3970: END IF;
3971:
3972: x_return_status := FND_API.G_RET_STS_SUCCESS;
3973:
3974: IF p_init_level = 'SESSION' THEN
3975:
3976: init_for_session( x_return_status );
3974: IF p_init_level = 'SESSION' THEN
3975:
3976: init_for_session( x_return_status );
3977:
3978: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3979: IF (g_level_error >= g_current_runtime_level ) THEN
3980: FND_LOG.STRING(g_level_error,
3981: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
3982: 'Incorrect return_status after calling ' ||
3995:
3996: init_for_header( p_event_class_rec,
3997: x_return_status );
3998:
3999: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4000: IF (g_level_error >= g_current_runtime_level ) THEN
4001: FND_LOG.STRING(g_level_error,
4002: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4003: 'Incorrect return_status after calling ' ||
4015:
4016: init_for_line( p_event_class_rec,
4017: x_return_status );
4018:
4019: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4020: IF (g_level_error >= g_current_runtime_level ) THEN
4021: FND_LOG.STRING(g_level_error,
4022: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4023: 'Incorrect return_status after calling ' ||
4036:
4037: init_for_tax_line( p_event_class_rec,
4038: x_return_status );
4039:
4040: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4041: IF (g_level_error >= g_current_runtime_level ) THEN
4042: FND_LOG.STRING(g_level_error,
4043: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4044: 'Incorrect return_status after calling ' ||
4057:
4058: init_for_tax_dist ( p_event_class_rec,
4059: x_return_status );
4060:
4061: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4062: IF (g_level_error >= g_current_runtime_level ) THEN
4063: FND_LOG.STRING(g_level_error,
4064: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4065: 'Incorrect return_status after calling ' ||
4086: END IF;
4087:
4088: EXCEPTION
4089: WHEN OTHERS THEN
4090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4091: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4092: FND_LOG.STRING(g_level_unexpected,
4093: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.initialize',
4094: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4124: '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);
4125: END IF;
4126:
4127:
4128: x_return_status := FND_API.G_RET_STS_SUCCESS;
4129:
4130: -- Check if the tax calculation level from the party site is 'None'
4131: -- If it is 'None', skip the processing taxes for this transaction
4132: -- line get_process_for_appl_flg
4161: END IF;
4162:
4163: EXCEPTION
4164: WHEN OTHERS THEN
4165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4166: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4167: FND_LOG.STRING(g_level_unexpected,
4168: 'ZX.PLSQL.ZX_TDS_CALC_SERVICES_PUB_PKG.get_process_for_appl_flg',
4169: 'No data found: p_tax_prof_id: '||p_tax_prof_id);