[Home] [Help]
148: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.GET_TAX_RATE.BEGIN',
149: 'ZX_TDS_RATE_DETM_PKG: GET_TAX_RATE(+)');
150: END IF;
151:
152: p_return_status:= FND_API.G_RET_STS_SUCCESS;
153:
154: -- begin to get tax rate name, if available
155:
156: IF p_begin_index IS NULL or p_end_index IS NULL THEN
153:
154: -- begin to get tax rate name, if available
155:
156: IF p_begin_index IS NULL or p_end_index IS NULL THEN
157: p_return_status:= FND_API.G_RET_STS_UNEXP_ERROR; -- 8568734
158: IF (g_level_error >= g_current_runtime_level ) THEN
159:
160: FND_LOG.STRING(g_level_error,
161: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
231: IF ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).last_manual_entry =
232: 'TAX_AMOUNT' AND
233: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).tax_rate IS NULL
234: THEN
235: p_return_status:= FND_API.G_RET_STS_UNEXP_ERROR; -- 8568734
236: p_error_buffer :=
237: 'Tax Rate must be entered when last manual entry is Tax Amount';
238: IF (g_level_error >= g_current_runtime_level ) THEN
239: FND_LOG.STRING(g_level_error,
317: p_return_status,
318: p_error_buffer);
319: END IF;
320:
321: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
322: IF (g_level_error >= g_current_runtime_level ) THEN
323: FND_LOG.STRING(g_level_error,
324: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
325: 'Incorrect return_status after calling get_tax_rate proc.');
380: p_tax_class => l_tax_class,
381: p_tax_rate_code => l_offset_tax_rate_code,
382: x_return_status => p_return_status,
383: x_error_buffer => p_error_buffer);
384: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
385: IF (g_level_statement >= g_current_runtime_level ) THEN
386: FND_LOG.STRING(g_level_statement,
387: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
388: 'Offset tax not found, reset the return status and continue the process');
386: FND_LOG.STRING(g_level_statement,
387: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
388: 'Offset tax not found, reset the return status and continue the process');
389: END IF;
390: p_return_status := FND_API.G_RET_STS_SUCCESS;
391: ELSE -- p_return_status = FND_API.G_RET_STS_SUCCESS
392: l_reg_party_type:= p_event_class_rec.Offset_Tax_Basis_Code || '_TAX_PROF_ID';
393: -- Bug 7208618
394: --
387: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
388: 'Offset tax not found, reset the return status and continue the process');
389: END IF;
390: p_return_status := FND_API.G_RET_STS_SUCCESS;
391: ELSE -- p_return_status = FND_API.G_RET_STS_SUCCESS
392: l_reg_party_type:= p_event_class_rec.Offset_Tax_Basis_Code || '_TAX_PROF_ID';
393: -- Bug 7208618
394: --
395: l_account_type_code := p_event_class_rec.sup_cust_acct_type;
407: l_account_site_id,
408: p_return_status,
409: p_error_buffer);
410:
411: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
412: IF (g_level_error >= g_current_runtime_level ) THEN
413: FND_LOG.STRING(g_level_error,
414: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
415: 'Incorrect return_status after calling ' ||
435: l_account_id,
436: p_return_status,
437: p_error_buffer);
438:
439: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
440: IF (g_level_error >= g_current_runtime_level ) THEN
441: FND_LOG.STRING(g_level_error,
442: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
443: 'Incorrect return_status after calling ' ||
480: l_account_id,
481: p_return_status,
482: p_error_buffer);
483:
484: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
485: IF (g_level_error >= g_current_runtime_level ) THEN
486: FND_LOG.STRING(g_level_error,
487: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
488: 'Incorrect return_status after calling ' ||
551: END IF;
552: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).Offset_Flag := 'N';
553: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).offset_tax_rate_code := NULL;
554: END IF; -- l_offset_tax_appl
555: END IF; --p_return_status <> FND_API.G_RET_STS_SUCCESS
556:
557: ELSE -- l_offset_tax_rate_code is NULL
558: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).Offset_Flag := 'N';
559: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).offset_tax_rate_code := l_offset_tax_rate_code;
707: -- in the cache; Even when the user enters a manual tax line with status info.
708: -- the tax status determination will populate the Tax Status cache for that Status
709: -- hence if tax status info is not found in the cache, it is an error.
710:
711: p_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
712: p_error_buffer := 'The Tax Status information could not be located in cache.';
713:
714: IF (g_level_error >= g_current_runtime_level ) THEN
715: FND_LOG.STRING(g_level_error,
746: l_zx_result_rec,
747: p_return_status,
748: p_error_buffer);
749:
750: IF p_return_status IN ( FND_API.G_RET_STS_ERROR, FND_API.G_RET_STS_UNEXP_ERROR)
751: THEN
752: -- error is raised in rule based evaluation. Abort processing.
753: IF (g_level_error >= g_current_runtime_level ) THEN
754: FND_LOG.STRING(g_level_error,
793: x_tax_rate_rec => l_tax_rate_rec,
794: x_return_status => p_return_status
795: );
796:
797: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
798: IF (g_level_error >= g_current_runtime_level ) THEN
799: FND_LOG.STRING(g_level_error,
800: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
801: 'Incorrect return_status after calling ' ||
862: IF l_Rate_Type_Code = 'SLABBED' THEN
863:
864: -- slabbed rate not supported in phase 1a;
865: -- UI need to take care of not to allow slabbed tax defined.
866: p_return_status:= FND_API.G_RET_STS_UNEXP_ERROR; -- 8568734
867: p_error_buffer := 'Slabbed rates are not supported in phase 1a ';
868: IF (g_level_error >= g_current_runtime_level ) THEN
869: FND_LOG.STRING(g_level_error,
870: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
887: IF l_uom_code <>
888: ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.uom_code(p_structure_index)
889: THEN
890: -- Raise error;
891: p_return_status:= FND_API.G_RET_STS_ERROR;
892: p_error_buffer := 'UOM_CODE on the transaction does not match the '||
893: ' UOM_CODE on the rate ';
894:
895: IF (g_level_error >= g_current_runtime_level ) THEN
928: 'tax rate code: ' ||l_tax_rate_code ||' tax_rate = ' || l_tax_rate);
929: END IF;
930:
931: ELSE -- if l_tax_rate_code is NULL
932: p_return_status:= FND_API.G_RET_STS_ERROR; -- error
933:
934: IF (g_level_error>= g_current_runtime_level ) THEN
935: FND_LOG.STRING(g_level_error,
936: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
959: IF l_tax_rate IS NULL THEN
960: -- rate_code found from the zx_rates_b table, but no
961: -- rate associated with the rate_code
962:
963: p_return_status:= FND_API.G_RET_STS_ERROR; -- error
964:
965: IF (g_level_error>= g_current_runtime_level ) THEN
966: FND_LOG.STRING(g_level_error,
967: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1018: x_return_status => p_return_status,
1019: x_error_buffer => p_error_buffer
1020: );
1021:
1022: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1023: p_error_buffer := 'Need to create Offset Tax. But offset tax is not valid'; -- will be replaced with coded message
1024:
1025: IF g_level_error >= g_current_runtime_level THEN
1026: FND_LOG.STRING(g_level_error,
1061: x_return_status => p_return_status,
1062: x_error_buffer => p_error_buffer
1063: );
1064:
1065: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1066:
1067: IF (g_level_statement >= g_current_runtime_level ) THEN
1068: FND_LOG.STRING(g_level_statement,
1069: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1068: FND_LOG.STRING(g_level_statement,
1069: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1070: 'Offset tax not found, reset the return status and continue the process');
1071: END IF;
1072: p_return_status := FND_API.G_RET_STS_SUCCESS;
1073:
1074: ELSE -- p_return_status = FND_API.G_RET_STS_SUCCESS
1075:
1076: l_reg_party_type:= p_event_class_rec.Offset_Tax_Basis_Code || '_TAX_PROF_ID';
1070: 'Offset tax not found, reset the return status and continue the process');
1071: END IF;
1072: p_return_status := FND_API.G_RET_STS_SUCCESS;
1073:
1074: ELSE -- p_return_status = FND_API.G_RET_STS_SUCCESS
1075:
1076: l_reg_party_type:= p_event_class_rec.Offset_Tax_Basis_Code || '_TAX_PROF_ID';
1077:
1078: -- Bug 7208618
1095: l_account_site_id,
1096: p_return_status,
1097: p_error_buffer);
1098:
1099: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1100: IF (g_level_error >= g_current_runtime_level ) THEN
1101: FND_LOG.STRING(g_level_error,
1102: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1103: 'Incorrect return_status after calling ' ||
1124: l_account_id,
1125: p_return_status,
1126: p_error_buffer);
1127:
1128: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1129: IF (g_level_error >= g_current_runtime_level ) THEN
1130: FND_LOG.STRING(g_level_error,
1131: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1132: 'Incorrect return_status after calling ' ||
1171: l_account_id,
1172: p_return_status,
1173: p_error_buffer);
1174:
1175: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1176: IF (g_level_error >= g_current_runtime_level ) THEN
1177: FND_LOG.STRING(g_level_error,
1178: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1179: 'Incorrect return_status after calling ' ||
1242: -- l_zx_result_rec,
1243: -- p_return_status,
1244: -- p_error_buffer);
1245: --
1246: --IF p_return_status in (FND_API.G_RET_STS_ERROR, FND_API.G_RET_STS_UNEXP_ERROR)
1247: --THEN
1248: -- -- Error is raised in rule based evaluation. Abort processing.
1249: -- --
1250: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1251: -- FND_LOG.STRING(g_level_statement,
1252: -- 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1253: -- 'Rule Based engine returned error. Aborting... ');
1254: -- END IF;
1255: -- p_return_status:= FND_API.G_RET_STS_ERROR;
1256: -- p_error_buffer := 'Rule Based engine returned error during offset tax determination ';
1257: --
1258: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1259: -- FND_LOG.STRING(g_level_statement,
1344: IF l_tax_rate <> l_numeric_result THEN
1345:
1346: -- Raise error
1347: --
1348: p_return_status:= FND_API.G_RET_STS_ERROR;
1349: p_error_buffer := 'Different Exception rate is specified for non-adhoc tax.';
1350:
1351: -- Bug 8568734: add a new message
1352: FND_MESSAGE.SET_NAME('ZX','ZX_EXCEPTION_RATE');
1416: x_exception_rec => l_exception_rec,
1417: x_return_status => p_return_status
1418: );
1419:
1420: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1421: IF (g_level_error >= g_current_runtime_level ) THEN
1422: FND_LOG.STRING(g_level_error,
1423: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1424: 'Incorrect return_status after calling ' ||
1547: p_event_class_rec => p_event_class_rec,
1548: x_return_status => p_return_status,
1549: x_exemption_rec => l_exemption_rec);
1550:
1551: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1552: IF (g_level_error >= g_current_runtime_level ) THEN
1553: FND_LOG.STRING(g_level_error,
1554: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1555: 'Incorrect return_status after calling ' ||
1686: -- Tax Status Determination must always populate the Tax Status Information
1687: -- in the cache; Hence if tax status info is not found in the cache,
1688: -- it is an error.
1689:
1690: p_return_status:= FND_API.G_RET_STS_ERROR;
1691: p_error_buffer := 'The Tax Status information could not be located in cache.';
1692: IF (g_level_error >= g_current_runtime_level ) THEN
1693: FND_LOG.STRING(g_level_error,
1694: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.get_tax_rate',
1712:
1713: IF l_adhoc_tax_rate_flg <> 'Y'
1714: AND ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).last_manual_entry = 'TAX_RATE' THEN
1715:
1716: p_return_status:= FND_API.G_RET_STS_ERROR;
1717: p_error_buffer := 'You cannot specify a rate percentage on a tax which '||
1718: ' is not ad-hoc';
1719: IF (g_level_error >= g_current_runtime_level ) THEN
1720: FND_LOG.STRING(g_level_error,
1740: THEN
1741: NULL;
1742:
1743: else
1744: p_return_status:= FND_API.G_RET_STS_ERROR;
1745: p_error_buffer := 'The rate is not valid for the tax determination date'||
1746: to_char(ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).tax_determine_date);
1747: IF (g_level_error >= g_current_runtime_level ) THEN
1748: FND_LOG.STRING(g_level_error,
1784: END IF;
1785:
1786: EXCEPTION
1787: WHEN OTHERS THEN
1788: p_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1789: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1790:
1791: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1792: FND_LOG.STRING(g_level_unexpected,
1900: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.validate_offset_tax.BEGIN',
1901: 'ZX_TDS_RATE_DETM_PKG: validate_offset_tax(+)');
1902: END IF;
1903:
1904: x_return_status := FND_API.G_RET_STS_SUCCESS;
1905:
1906: ZX_TDS_UTILITIES_PKG.get_tax_cache_info(
1907: p_tax_regime_code,
1908: p_tax,
1910: l_offset_tax_rec,
1911: x_return_status,
1912: x_error_buffer);
1913:
1914: IF NVL(x_return_status, FND_API.G_RET_STS_UNEXP_ERROR) <> FND_API.G_RET_STS_SUCCESS THEN
1915: IF (g_level_error >= g_current_runtime_level ) THEN
1916: FND_LOG.STRING(g_level_error,
1917: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.validate_offset_tax',
1918: 'Incorrect return status after calling ZX_TDS_UTILITIES_PKG.get_tax_cache_info');
1931: l_offet_tax_status_rec,
1932: x_return_status,
1933: x_error_buffer);
1934:
1935: IF NVL(x_return_status, FND_API.G_RET_STS_UNEXP_ERROR) <> FND_API.G_RET_STS_SUCCESS THEN
1936: IF (g_level_error >= g_current_runtime_level ) THEN
1937: FND_LOG.STRING(g_level_error,
1938: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.validate_offset_tax',
1939: 'Incorrect return status after calling ZX_TDS_UTILITIES_PKG.get_tax_status_cache_info');
1952: p_tax_determine_date);
1953:
1954: FETCH get_offset_info_csr INTO l_tax_rate_id;
1955: IF get_offset_info_csr%NOTFOUND THEN
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957: x_error_buffer := 'No data found for the specified tax rate '; -- will replace with coded message
1958: IF (g_level_error >= g_current_runtime_level ) THEN
1959: FND_LOG.STRING(g_level_error,
1960: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.validate_offset_tax',
1975: l_offset_tax_rate_rec,
1976: x_return_status,
1977: x_error_buffer);
1978:
1979: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1980: l_tax_rate_id := l_offset_tax_rate_rec.tax_rate_id;
1981:
1982: ELSE
1983: IF (g_level_error >= g_current_runtime_level ) THEN
1998: 'ZX_TDS_RATE_DETM_PKG: validate_offset_tax(-)');
1999: END IF;
2000: EXCEPTION
2001: WHEN OTHERS THEN
2002: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2003:
2004: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2005: FND_LOG.STRING(g_level_unexpected,
2006: 'ZX.PLSQL.ZX_TDS_RATE_DETM_PKG.validate_offset_tax',