[Home] [Help]
380: p_error_buffer OUT NOCOPY VARCHAR2);
381:
382: g_current_runtime_level NUMBER;
383:
384: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
385: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
386: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
387: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
388: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
381:
382: g_current_runtime_level NUMBER;
383:
384: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
385: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
386: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
387: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
388: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
389:
382: g_current_runtime_level NUMBER;
383:
384: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
385: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
386: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
387: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
388: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
389:
390: G_FSC_TBL_INSERT_POINTER NUMBER := 0;
383:
384: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
385: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
386: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
387: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
388: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
389:
390: G_FSC_TBL_INSERT_POINTER NUMBER := 0;
391: G_FSC_TBL_MAX_SIZE CONSTANT NUMBER := 2048;
384: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
385: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
386: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
387: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
388: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
389:
390: G_FSC_TBL_INSERT_POINTER NUMBER := 0;
391: G_FSC_TBL_MAX_SIZE CONSTANT NUMBER := 2048;
392:
439: p_error_buffer IN OUT NOCOPY VARCHAR2) is
440:
441: begin
442:
443: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
444: IF (g_level_procedure >= g_current_runtime_level ) THEN
445: FND_LOG.STRING(g_level_procedure,
446: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.BEGIN',
447: 'ZX_TDS_RULE_BASE_DETM_PVT: init_cec_params (+)');
441: begin
442:
443: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
444: IF (g_level_procedure >= g_current_runtime_level ) THEN
445: FND_LOG.STRING(g_level_procedure,
446: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.BEGIN',
447: 'ZX_TDS_RULE_BASE_DETM_PVT: init_cec_params (+)');
448: END IF;
449:
618: END IF;
619: END IF;
620:
621: IF (g_level_procedure >= g_current_runtime_level ) THEN
622: FND_LOG.STRING(g_level_procedure,
623: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.END',
624: 'ZX_TDS_RULE_BASE_DETM_PVT: init_cec_params (-)');
625: END IF;
626: EXCEPTION
628: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
629: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
630:
631: IF (g_level_unexpected >= g_current_runtime_level ) THEN
632: FND_LOG.STRING(g_level_unexpected,
633: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.END',
634: p_error_buffer);
635: END IF;
636:
836: ORDER BY PARENT_REG_LEVEL;
837:
838: BEGIN
839:
840: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
841:
842: IF (g_level_procedure >= g_current_runtime_level ) THEN
843: FND_LOG.STRING(g_level_procedure,
844: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.BEGIN',
839:
840: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
841:
842: IF (g_level_procedure >= g_current_runtime_level ) THEN
843: FND_LOG.STRING(g_level_procedure,
844: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.BEGIN',
845: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(+)');
846: IF (g_level_statement >= g_current_runtime_level ) THEN
847: FND_LOG.STRING(g_level_statement,
843: FND_LOG.STRING(g_level_procedure,
844: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.BEGIN',
845: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(+)');
846: IF (g_level_statement >= g_current_runtime_level ) THEN
847: FND_LOG.STRING(g_level_statement,
848: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
849: 'p_service_type_code: ' || p_service_type_code ||
850: ', p_tax_id: ' || to_char(p_tax_id)||
851: ', p_tax_status_code: ' || p_tax_status_code ||
867: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
868: p_error_buffer := 'Tax status code can not be null for Rate Determination';
869:
870: IF (g_level_error >= g_current_runtime_level ) THEN
871: FND_LOG.STRING(g_level_error,
872: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
873: 'p_return_status = ' || p_return_status ||
874: ', p_error_buffer = ' || p_error_buffer);
875: END IF;
882: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
883: p_error_buffer := 'Recovery type can not be null for DET_RECOVERY_RATE';
884:
885: IF (g_level_error >= g_current_runtime_level ) THEN
886: FND_LOG.STRING(g_level_error,
887: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
888: 'p_return_status = ' || p_return_status ||
889: ', p_error_buffer = ' || p_error_buffer);
890: END IF;
904: p_error_buffer);
905:
906: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
907: IF (g_level_statement >= g_current_runtime_level ) THEN
908: FND_LOG.STRING(g_level_statement,
909: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
910: 'p_return_status = ' || p_return_status ||
911: ', p_error_buffer = ' || p_error_buffer);
912: END IF;
941:
942: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_found)THEN
943: -- return to caller if error occurs or success with a result
944: IF (g_level_error >= g_current_runtime_level ) THEN
945: FND_LOG.STRING(g_level_error,
946: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
947: 'Incorrect return_status after call process_rule_code() OR l_found is true.'||
948: ', return_status: '|| p_return_status);
949: END IF;
963: p_error_buffer);
964:
965: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
966: IF (g_level_error >= g_current_runtime_level ) THEN
967: FND_LOG.STRING(g_level_error,
968: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
969: 'Incorrect return_status after call get_tsrm_alphanum_value().'||
970: ', Return_status: '|| p_return_status);
971: END IF;
1029: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1030: CLOSE get_det_factor_templ_csr_a;
1031:
1032: IF (g_level_error >= g_current_runtime_level ) THEN
1033: FND_LOG.STRING(g_level_error,
1034: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1035: 'Incorrect return_status after call proc_det_factor_templ().' ||
1036: ', return_status: '|| p_return_status);
1037: END IF;
1041:
1042: IF (get_det_factor_templ_csr_a%notfound OR l_found) THEN
1043:
1044: IF (g_level_statement >= g_current_runtime_level ) THEN
1045: FND_LOG.STRING(g_level_statement,
1046: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1047: 'get_det_factor_templ_csr row count for Intercompany '
1048: ||to_char(get_det_factor_templ_csr_a%rowcount));
1049: END IF;
1099: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1100: CLOSE get_det_factor_templ_csr_a;
1101:
1102: IF (g_level_error >= g_current_runtime_level ) THEN
1103: FND_LOG.STRING(g_level_error,
1104: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1105: 'Incorrect return_status after call proc_det_factor_templ().' ||
1106: ', return_status: '|| p_return_status);
1107: END IF;
1111:
1112: IF (get_det_factor_templ_csr_a%notfound OR l_found) THEN
1113:
1114: IF (g_level_statement >= g_current_runtime_level ) THEN
1115: FND_LOG.STRING(g_level_statement,
1116: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1117: 'get_det_factor_templ_csr row count for tax event class code '
1118: ||to_char(get_det_factor_templ_csr_a%rowcount));
1119: END IF;
1180:
1181: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1182: CLOSE get_det_factor_templ_csr_b;
1183: IF (g_level_error >= g_current_runtime_level ) THEN
1184: FND_LOG.STRING(g_level_error,
1185: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1186: 'Incorrect return_status after call proc_det_factor_templ().' ||
1187: ', return_status: '|| p_return_status);
1188: END IF;
1192:
1193: IF (get_det_factor_templ_csr_b%notfound OR l_found) THEN
1194:
1195: IF (g_level_statement >= g_current_runtime_level ) THEN
1196: FND_LOG.STRING(g_level_statement,
1197: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1198: 'get_det_factor_templ_csr row count for Intercompany'
1199: ||to_char(get_det_factor_templ_csr_b%rowcount));
1200: END IF;
1250:
1251: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1252: CLOSE get_det_factor_templ_csr_b;
1253: IF (g_level_error >= g_current_runtime_level ) THEN
1254: FND_LOG.STRING(g_level_error,
1255: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1256: 'Incorrect return_status after call proc_det_factor_templ().' ||
1257: ', return_status: '|| p_return_status);
1258: END IF;
1263:
1264: IF (get_det_factor_templ_csr_b%notfound OR l_found) THEN
1265:
1266: IF (g_level_statement >= g_current_runtime_level ) THEN
1267: FND_LOG.STRING(g_level_statement,
1268: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1269: 'get_det_factor_templ_csr row count for tax event class code '
1270: ||to_char(get_det_factor_templ_csr_b%rowcount));
1271: END IF;
1302:
1303: /* Bug 4017396 - included the check for p_return_status*/
1304: IF ( p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1305: IF (g_level_error >= g_current_runtime_level ) THEN
1306: FND_LOG.STRING(g_level_error,
1307: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1308: 'p_return_status = ' || p_return_status ||
1309: ', p_error_buffer = ' || p_error_buffer);
1310:
1342: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1343: CLOSE get_regime_code_csr;
1344:
1345: IF (g_level_error >= g_current_runtime_level ) THEN
1346: FND_LOG.STRING(g_level_error,
1347: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1348: 'Incorrect return_status after call get_rule_from_regime_hier().'||
1349: ', return_status: '|| p_return_status);
1350: END IF;
1353: END IF;
1354: IF (get_regime_code_csr%notfound OR l_found) THEN
1355:
1356: IF (g_level_statement >= g_current_runtime_level ) THEN
1357: FND_LOG.STRING(g_level_statement,
1358: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1359: 'get_regime_code_csr row count '||
1360: to_char(get_regime_code_csr%rowcount));
1361: END IF;
1373:
1374: */
1375:
1376: IF (g_level_procedure >= g_current_runtime_level ) THEN
1377: FND_LOG.STRING(g_level_procedure,
1378: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1379: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1380: FND_LOG.STRING(g_level_procedure,
1381: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.END',
1376: IF (g_level_procedure >= g_current_runtime_level ) THEN
1377: FND_LOG.STRING(g_level_procedure,
1378: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1379: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1380: FND_LOG.STRING(g_level_procedure,
1381: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.END',
1382: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(-)' ||
1383: ', p_return_status = ' || p_return_status ||
1384: ', p_error_buffer = ' || p_error_buffer);
1396: CLOSE get_regime_code_csr;
1397: END IF;
1398:
1399: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1400: FND_LOG.STRING(g_level_unexpected,
1401: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1402: p_error_buffer);
1403: END IF;
1404:
1502:
1503: BEGIN
1504:
1505: IF (g_level_procedure >= g_current_runtime_level ) THEN
1506: FND_LOG.STRING(g_level_procedure,
1507: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.BEGIN',
1508: 'ZX_TDS_RULE_BASE_DETM_PVT: process_rule_code(+)');
1509: END IF;
1510:
1553: ELSE
1554: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555: p_error_buffer := 'Invalid service type code for the tax rule code';
1556: IF (g_level_error >= g_current_runtime_level ) THEN
1557: FND_LOG.STRING(g_level_error,
1558: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1559: 'p_return_status = ' || p_return_status ||
1560: ', p_error_buffer = ' || p_error_buffer);
1561: END IF;
1612: */
1613: -- EXIT WHEN (p_found OR p_return_status <> FND_API.G_RET_STS_SUCCESS);
1614: END IF;
1615: IF (g_level_procedure >= g_current_runtime_level ) THEN
1616: FND_LOG.STRING(g_level_procedure,
1617: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1618: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1619: FND_LOG.STRING(g_level_procedure,
1620: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.END',
1615: IF (g_level_procedure >= g_current_runtime_level ) THEN
1616: FND_LOG.STRING(g_level_procedure,
1617: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1618: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1619: FND_LOG.STRING(g_level_procedure,
1620: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.END',
1621: 'ZX_TDS_RULE_BASE_DETM_PVT: process_rule_code(-)');
1622: END IF;
1623:
1629: CLOSE get_recovery_templ_csr;
1630: END IF;
1631:
1632: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1633: FND_LOG.STRING(g_level_unexpected,
1634: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1635: p_error_buffer);
1636: END IF;
1637:
1792: BEGIN
1793:
1794: /*Bug fix 4017396*/
1795: IF (g_level_procedure >= g_current_runtime_level ) THEN
1796: FND_LOG.STRING(g_level_procedure,
1797: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ.BEGIN',
1798: 'ZX_TDS_RULE_BASE_DETM_PVT: fetch_proc_det_factor_templ(+)');
1799: IF (g_level_statement >= g_current_runtime_level ) THEN
1800: FND_LOG.STRING(g_level_statement,
1796: FND_LOG.STRING(g_level_procedure,
1797: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ.BEGIN',
1798: 'ZX_TDS_RULE_BASE_DETM_PVT: fetch_proc_det_factor_templ(+)');
1799: IF (g_level_statement >= g_current_runtime_level ) THEN
1800: FND_LOG.STRING(g_level_statement,
1801: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1802: 'source_event_class_mapping_id : ' ||
1803: TO_CHAR(p_event_class_rec.source_event_class_mapping_id) ||
1804: ', source_tax_event_class_code: ' ||
1824: p_error_buffer);
1825:
1826: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1827: IF (g_level_error >= g_current_runtime_level ) THEN
1828: FND_LOG.STRING(g_level_error,
1829: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1830: 'Incorrect return_status after call get_tsrm_alphanum_value().'||
1831: ', Return_status: '|| p_return_status);
1832: END IF;
1837: --
1838: IF l_source_event_class_code = 'INTERCOMPANY_TRX' THEN
1839:
1840: IF (g_level_statement >= g_current_runtime_level ) THEN
1841: FND_LOG.STRING(g_level_statement,
1842: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1843: 'for intercompany trx, skip rules for the source event class and source tax event class');
1844: END IF;
1845: ELSE
1891: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1892: CLOSE get_det_factor_templ_csr_c;
1893:
1894: IF (g_level_error >= g_current_runtime_level ) THEN
1895: FND_LOG.STRING(g_level_error,
1896: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1897: 'Incorrect return_status after call proc_det_factor_templ().'||
1898: ', Return_status: '|| p_return_status);
1899: END IF;
1902: END IF;
1903:
1904: IF (get_det_factor_templ_csr_c%NOTFOUND OR p_found) THEN
1905: IF (g_level_statement >= g_current_runtime_level ) THEN
1906: FND_LOG.STRING(g_level_statement,
1907: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1908: 'get_det_factor_templ_csr_c row count ' ||
1909: TO_CHAR(get_det_factor_templ_csr_c%rowcount));
1910: END IF;
1962: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1963: CLOSE get_det_factor_templ_csr_d;
1964:
1965: IF (g_level_error >= g_current_runtime_level ) THEN
1966: FND_LOG.STRING(g_level_error,
1967: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1968: 'Incorrect return_status after call proc_det_factor_templ().'||
1969: ', Return_status: '|| p_return_status);
1970: END IF;
1973: END IF;
1974:
1975: IF (get_det_factor_templ_csr_d%NOTFOUND OR p_found) THEN
1976: IF (g_level_statement >= g_current_runtime_level ) THEN
1977: FND_LOG.STRING(g_level_statement,
1978: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1979: 'get_det_factor_templ_csr_d row count ' ||
1980: TO_CHAR(get_det_factor_templ_csr_d%rowcount));
1981: END IF;
2051: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2052: CLOSE get_det_factor_templ_csr_e;
2053:
2054: IF (g_level_error >= g_current_runtime_level ) THEN
2055: FND_LOG.STRING(g_level_error,
2056: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2057: 'Incorrect return_status after call proc_det_factor_templ().'||
2058: ', Return_status: '|| p_return_status);
2059: END IF;
2062: END IF;
2063:
2064: IF (get_det_factor_templ_csr_e%NOTFOUND OR p_found) THEN
2065: IF (g_level_statement >= g_current_runtime_level ) THEN
2066: FND_LOG.STRING(g_level_statement,
2067: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2068: 'get_det_factor_templ_csr_e row count for Intercompany' ||
2069: TO_CHAR(get_det_factor_templ_csr_e%rowcount));
2070: END IF;
2120: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2121: CLOSE get_det_factor_templ_csr_e;
2122:
2123: IF (g_level_error >= g_current_runtime_level ) THEN
2124: FND_LOG.STRING(g_level_error,
2125: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2126: 'Incorrect return_status after call proc_det_factor_templ().'||
2127: ', Return_status: '|| p_return_status);
2128: END IF;
2131: END IF;
2132:
2133: IF (get_det_factor_templ_csr_e%NOTFOUND OR p_found) THEN
2134: IF (g_level_statement >= g_current_runtime_level ) THEN
2135: FND_LOG.STRING(g_level_statement,
2136: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2137: 'get_det_factor_templ_csr_e row count for tax event class code' ||
2138: TO_CHAR(get_det_factor_templ_csr_e%rowcount));
2139: END IF;
2152:
2153: END IF; -- process of current event mapping and tax event class code
2154:
2155: IF (g_level_procedure >= g_current_runtime_level ) THEN
2156: FND_LOG.STRING(g_level_procedure,
2157: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ.END',
2158: 'ZX_TDS_RULE_BASE_DETM_PVT: fetch_proc_det_factor_templ(-)' ||
2159: ', p_return_status = ' || p_return_status ||
2160: ', p_error_buffer = ' || p_error_buffer);
2172: CLOSE get_det_factor_templ_csr_e;
2173: END IF;
2174:
2175: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2176: FND_LOG.STRING(g_level_unexpected,
2177: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2178: p_error_buffer);
2179: END IF;
2180:
2257:
2258: BEGIN
2259:
2260: IF (g_level_procedure >= g_current_runtime_level ) THEN
2261: FND_LOG.STRING(g_level_procedure,
2262: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier.BEGIN',
2263: 'ZX_TDS_RULE_BASE_DETM_PVT: get_rule_from_regime_hier(+)');
2264: END IF;
2265:
2267:
2268: l_count := p_parent_regime_cd_tbl.count;
2269:
2270: IF (g_level_statement >= g_current_runtime_level ) THEN
2271: FND_LOG.STRING(g_level_statement,
2272: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier',
2273: 'parent regime count: ' || to_char(l_count));
2274: END IF;
2275:
2275:
2276: FOR i IN 1.. l_count LOOP
2277:
2278: IF (g_level_statement >= g_current_runtime_level ) THEN
2279: FND_LOG.STRING(g_level_statement,
2280: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier',
2281: 'parent regime: ' || p_parent_regime_cd_tbl(i));
2282: END IF;
2283:
2326: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2327: CLOSE get_templ_from_regime_hier_csr;
2328:
2329: IF (g_level_error >= g_current_runtime_level ) THEN
2330: FND_LOG.STRING(g_level_error,
2331: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2332: 'Incorrect return_status after call proc_det_factor_templ().'||
2333: ', Return_status: '|| p_return_status);
2334: END IF;
2339: IF (get_templ_from_regime_hier_csr%notfound OR p_found) THEN
2340: CLOSE get_templ_from_regime_hier_csr;
2341:
2342: IF (g_level_error >= g_current_runtime_level ) THEN
2343: FND_LOG.STRING(g_level_error,
2344: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2345: 'Incorrect return_status after call proc_det_factor_templ().' ||
2346: ', Return_status: '|| p_return_status);
2347: END IF;
2358: EXIT WHEN (p_found OR p_return_status = FND_API.G_RET_STS_ERROR);
2359: END LOOP;
2360:
2361: IF (g_level_procedure >= g_current_runtime_level ) THEN
2362: FND_LOG.STRING(g_level_procedure,
2363: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier.END',
2364: 'ZX_TDS_RULE_BASE_DETM_PVT: get_rule_from_regime_hier(-)' ||
2365: ', p_return_status = ' || p_return_status ||
2366: ', p_error_buffer = ' || p_error_buffer);
2374: CLOSE get_templ_from_regime_hier_csr;
2375: END IF;
2376:
2377: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2378: FND_LOG.STRING(g_level_unexpected,
2379: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier',
2380: p_error_buffer);
2381: END IF;
2382:
2423:
2424: BEGIN
2425:
2426: IF (g_level_procedure >= g_current_runtime_level ) THEN
2427: FND_LOG.STRING(g_level_procedure,
2428: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ.BEGIN',
2429: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_det_factor_templ(+)');
2430: END IF;
2431:
2434:
2435: l_count := p_det_factor_templ_cd_tbl.count;
2436:
2437: IF (g_level_statement >= g_current_runtime_level ) THEN
2438: FND_LOG.STRING(g_level_statement,
2439: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2440: 'determining factor template count: ' || to_char(l_count));
2441: END IF;
2442:
2451: l_rule_geography_type := p_rule_geography_type_tbl(i);
2452: l_rule_geography_id := p_rule_geography_id_tbl(i);
2453:
2454: IF (g_level_statement >= g_current_runtime_level ) THEN
2455: FND_LOG.STRING(g_level_statement,
2456: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2457: 'l_rule_det_factor_cq: '||l_rule_det_factor_cq ||
2458: ', l_rule_geography_type: '||l_rule_geography_type ||
2459: ', l_rule_geography_id:'||l_rule_geography_id);
2475: END IF;
2476:
2477: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2478: IF g_level_error >= g_current_runtime_level THEN
2479: FND_LOG.STRING(g_level_error,
2480: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2481: ' check_rule_geography returned Error');
2482: END IF;
2483: RETURN;
2494:
2495: l_det_factor_templ_code := p_det_factor_templ_cd_tbl(i);
2496:
2497: IF (g_level_statement >= g_current_runtime_level ) THEN
2498: FND_LOG.STRING(g_level_statement,
2499: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2500: 'l_det_factor_templ_code: '||l_det_factor_templ_code);
2501: END IF;
2502:
2555: END IF; --l_valid for check_rule_geography
2556: END LOOP;
2557:
2558: IF (g_level_procedure >= g_current_runtime_level ) THEN
2559: FND_LOG.STRING(g_level_procedure,
2560: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ.END',
2561: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_det_factor_templ(-)');
2562: END IF;
2563:
2566: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2567: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2568:
2569: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2570: FND_LOG.STRING(g_level_unexpected,
2571: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2572: p_error_buffer);
2573: END IF;
2574:
2799:
2800: BEGIN
2801:
2802: IF (g_level_procedure >= g_current_runtime_level ) THEN
2803: FND_LOG.STRING(g_level_procedure,
2804: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ.BEGIN',
2805: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_condition_group_per_templ(+)');
2806: END IF;
2807:
2826: ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).tax_rule_id = p_tax_rule_id AND
2827: NVL(ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).det_factor_templ_code, FND_API.G_MISS_CHAR) = NVL(p_det_factor_templ_code, FND_API.G_MISS_CHAR) AND
2828: NVL(ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).tax_status_code, FND_API.G_MISS_CHAR) = NVL(p_tax_status_code, FND_API.G_MISS_CHAR) THEN
2829: IF (g_level_statement >= g_current_runtime_level ) THEN
2830: FND_LOG.STRING(g_level_statement,
2831: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2832: 'Condition Information found in cache...' || hash_val);
2833: END IF;
2834: l_counter := ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).condition_info_rec_tbl.count;
2833: END IF;
2834: l_counter := ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).condition_info_rec_tbl.count;
2835: ELSE
2836: IF (g_level_statement >= g_current_runtime_level ) THEN
2837: FND_LOG.STRING(g_level_statement,
2838: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2839: 'Condition Information not found in cache...' || hash_val);
2840: END IF;
2841: ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).tax_rule_id := p_tax_rule_id;
2971: --l_counter := l_condition_group_code_tbl.count;
2972: l_counter := ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).condition_info_rec_tbl.count;
2973:
2974: IF (g_level_statement >= g_current_runtime_level ) THEN
2975: FND_LOG.STRING(g_level_statement,
2976: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2977: 'condition group count: ' || to_char(l_counter));
2978: END IF;
2979: END IF; --bug#8551677 cache check
3052: FND_MESSAGE.SET_TOKEN('ACTION_CODE', l_action_rec_tbl(i).action_code );
3053: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
3054:
3055: IF (g_level_error >= g_current_runtime_level ) THEN
3056: FND_LOG.STRING(g_level_error,
3057: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
3058: 'Action_code is ERROR_MESSAGE or SYSTEM_ERROR');
3059: END IF;
3060: app_exception.raise_exception;
3083: init_set_condition;
3084:
3085: -- check if there are too many conditions.
3086: IF (g_level_statement >= g_current_runtime_level ) THEN
3087: FND_LOG.STRING(g_level_statement,
3088: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
3089: 'more_than10 ? ' ||ZX_GLOBAL_STRUCTURES_PKG.g_rule_info_tbl(hash_val).condition_info_rec_tbl(j).more_than10);
3090: END IF;
3091:
3140: --
3141: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3142: CLOSE get_condition_group_codes_csr;
3143: IF (g_level_error >= g_current_runtime_level ) THEN
3144: FND_LOG.STRING(g_level_error,
3145: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
3146: 'Incorrect return_status after calling process_set_condition() ' ||
3147: ', p_return_status = ' || p_return_status);
3148: END IF;
3190: IF get_condition_group_codes_csr%ISOPEN THEN
3191: CLOSE get_condition_group_codes_csr;
3192: END IF;
3193: IF (g_level_statement >= g_current_runtime_level ) THEN
3194: FND_LOG.STRING(g_level_statement,
3195: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
3196: 'No condition group found for the determing factor template: ' ||
3197: p_det_factor_templ_code ||
3198: ', or condition group evaluated to be true.');
3209: CLOSE get_condition_group_codes_csr;
3210: END IF;
3211:
3212: IF (g_level_procedure >= g_current_runtime_level ) THEN
3213: FND_LOG.STRING(g_level_procedure,
3214: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ.END',
3215: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_condition_group_per_templ(-)' ||
3216: ', p_return_status = ' || p_return_status ||
3217: ', p_error_buffer = ' || p_error_buffer);
3224: IF get_condition_group_codes_csr%ISOPEN THEN
3225: CLOSE get_condition_group_codes_csr;
3226: END IF;
3227: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3228: FND_LOG.STRING(g_level_unexpected,
3229: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
3230: p_error_buffer);
3231: END IF;
3232:
3284:
3285: BEGIN
3286:
3287: IF (g_level_procedure >= g_current_runtime_level ) THEN
3288: FND_LOG.STRING(g_level_procedure,
3289: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition.BEGIN',
3290: 'ZX_TDS_RULE_BASE_DETM_PVT: get_and_process_condition(+)');
3291:
3292: IF (g_level_statement >= g_current_runtime_level ) THEN
3289: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition.BEGIN',
3290: 'ZX_TDS_RULE_BASE_DETM_PVT: get_and_process_condition(+)');
3291:
3292: IF (g_level_statement >= g_current_runtime_level ) THEN
3293: FND_LOG.STRING(g_level_statement,
3294: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3295: 'p_condition_group_code: ' || p_condition_group_code);
3296:
3297: END IF;
3336:
3337: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3338: CLOSE get_condition_csr;
3339: IF (g_level_error >= g_current_runtime_level ) THEN
3340: FND_LOG.STRING(g_level_error,
3341: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3342: 'conditions count: ' ||
3343: to_char(get_condition_csr%ROWCOUNT));
3344: END IF;
3350: -- and there are more conditions to process
3351: --
3352: IF (get_condition_csr%notfound OR NOT p_result) THEN
3353: IF (g_level_statement >= g_current_runtime_level ) THEN
3354: FND_LOG.STRING(g_level_statement,
3355: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3356: 'conditions count:' ||
3357: to_char(get_condition_csr%ROWCOUNT));
3358: END IF;
3365: CLOSE get_condition_csr;
3366: END IF;
3367:
3368: IF (g_level_procedure >= g_current_runtime_level ) THEN
3369: FND_LOG.STRING(g_level_procedure,
3370: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition.END',
3371: 'ZX_TDS_RULE_BASE_DETM_PVT: get_and_process_condition(-)');
3372: END IF;
3373:
3379: CLOSE get_condition_csr;
3380: END IF;
3381:
3382: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3383: FND_LOG.STRING(g_level_unexpected,
3384: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3385: p_error_buffer);
3386: END IF;
3387:
3403:
3404: BEGIN
3405:
3406: IF (g_level_procedure >= g_current_runtime_level ) THEN
3407: FND_LOG.STRING(g_level_procedure,
3408: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info.BEGIN',
3409: 'ZX_TDS_RULE_BASE_DETM_PVT: get_set_info(+)');
3410: IF (g_level_statement >= g_current_runtime_level ) THEN
3411: FND_LOG.STRING(g_level_statement,
3407: FND_LOG.STRING(g_level_procedure,
3408: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info.BEGIN',
3409: 'ZX_TDS_RULE_BASE_DETM_PVT: get_set_info(+)');
3410: IF (g_level_statement >= g_current_runtime_level ) THEN
3411: FND_LOG.STRING(g_level_statement,
3412: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info',
3413: 'p_hash_val: ' || p_hash_val ||
3414: ', p_rec_pointer: ' || p_rec_pointer);
3415: END IF;
3554: END IF;
3555: END IF;
3556:
3557: IF (g_level_procedure >= g_current_runtime_level ) THEN
3558: FND_LOG.STRING(g_level_procedure,
3559: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info.END',
3560: 'ZX_TDS_RULE_BASE_DETM_PVT: get_set_info(-)');
3561: END IF;
3562:
3563: EXCEPTION
3564: WHEN OTHERS THEN
3565:
3566: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3567: FND_LOG.STRING(g_level_unexpected,
3568: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info',
3569: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3570: END IF;
3571:
3586: IS
3587: BEGIN
3588:
3589: IF (g_level_procedure >= g_current_runtime_level ) THEN
3590: FND_LOG.STRING(g_level_procedure,
3591: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition.BEGIN',
3592: 'ZX_TDS_RULE_BASE_DETM_PVT: init_set_condition(+)');
3593: END IF;
3594:
3604: g_value_low_tbl.DELETE;
3605: g_value_high_tbl.DELETE;
3606:
3607: IF (g_level_procedure >= g_current_runtime_level ) THEN
3608: FND_LOG.STRING(g_level_procedure,
3609: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition.END',
3610: 'ZX_TDS_RULE_BASE_DETM_PVT: init_set_condition(-)');
3611: END IF;
3612:
3612:
3613: EXCEPTION
3614: WHEN OTHERS THEN
3615: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3616: FND_LOG.STRING(g_level_unexpected,
3617: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition',
3618: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3619: END IF;
3620:
3669:
3670: BEGIN
3671:
3672: IF (g_level_procedure >= g_current_runtime_level ) THEN
3673: FND_LOG.STRING(g_level_procedure,
3674: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition.BEGIN',
3675: 'ZX_TDS_RULE_BASE_DETM_PVT: process_set_condition(+)');
3676: END IF;
3677:
3679:
3680: l_count := g_determining_factor_code_tbl.count;
3681:
3682: IF (g_level_statement >= g_current_runtime_level ) THEN
3683: FND_LOG.STRING(g_level_statement,
3684: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3685: 'There are '||to_char(l_count)||' conditions');
3686: END IF;
3687:
3691:
3692: l_Determining_Factor_Cq_Code := g_determining_factor_cq_tbl(k);
3693:
3694: IF (g_level_statement >= g_current_runtime_level ) THEN
3695: FND_LOG.STRING(g_level_statement,
3696: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3697: 'Determining_Factor_Cq_Code: ' || l_Determining_Factor_Cq_Code);
3698: END IF;
3699:
3714:
3715: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3716:
3717: IF (g_level_error >= g_current_runtime_level ) THEN
3718: FND_LOG.STRING(g_level_error,
3719: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3720: 'Incorrect return_status after calling evaluate_trx_value_tbl(),'||
3721: ' did not get trx value');
3722: END IF;
3751:
3752: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3753:
3754: IF (g_level_error >= g_current_runtime_level ) THEN
3755: FND_LOG.STRING(g_level_error,
3756: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3757: 'Incorrect return_status after calling get_trx_value(),'||
3758: ' did not get trx value');
3759: END IF;
3795:
3796: l_Determining_Factor_Cq_Code := g_alphanum_value_tbl(k);
3797:
3798: IF (g_level_statement >= g_current_runtime_level ) THEN
3799: FND_LOG.STRING(g_level_statement,
3800: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3801: 'calling get_trx_value for CQ case' ||
3802: ', Determining_Factor_Cq_Code: ' || l_Determining_Factor_Cq_Code);
3803: END IF;
3821:
3822: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3823:
3824: IF (g_level_error >= g_current_runtime_level ) THEN
3825: FND_LOG.STRING(g_level_error,
3826: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3827: 'Incorrect return_status after calling get_trx_value(),' ||
3828: ' did not get trx value for CQ case ');
3829: END IF;
3864:
3865: -- If the result is false, the whole condition is false.
3866: IF ((NOT p_result) OR (p_result IS NULL))THEN
3867: IF (g_level_statement >= g_current_runtime_level ) THEN
3868: FND_LOG.STRING(g_level_statement,
3869: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3870: 'condition is false');
3871: END IF;
3872: EXIT; -- out of the condition loop
3874:
3875: END LOOP; -- condition_counter k;
3876:
3877: IF (g_level_procedure >= g_current_runtime_level ) THEN
3878: FND_LOG.STRING(g_level_procedure,
3879: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition.END',
3880: 'ZX_TDS_RULE_BASE_DETM_PVT: process_set_condition(-)' ||
3881: ', p_return_status = ' || p_return_status ||
3882: ', p_error_buffer = ' || p_error_buffer);
3887: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3888: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3889:
3890: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3891: FND_LOG.STRING(g_level_unexpected,
3892: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3893: p_error_buffer);
3894: END IF;
3895:
3929:
3930: BEGIN
3931:
3932: IF (g_level_procedure >= g_current_runtime_level ) THEN
3933: FND_LOG.STRING(g_level_procedure,
3934: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value.BEGIN',
3935: 'ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value(+)');
3936: END IF;
3937:
3939:
3940: i := p_condition_index;
3941:
3942: IF (g_level_statement >= g_current_runtime_level ) THEN
3943: FND_LOG.STRING(g_level_statement,
3944: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value',
3945: 'p_condition_index: '|| to_char(p_condition_index) ||
3946: ', g_determining_factor_class_tbl: ' || g_determining_factor_class_tbl(i));
3947: END IF;
4018: p_Determining_Factor_Cq_Code,
4019: g_alphanum_value_tbl(i));
4020:
4021: IF (g_level_statement >= g_current_runtime_level ) THEN
4022: FND_LOG.STRING(g_level_statement,
4023: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value',
4024: 'cache index: ' || to_char(j));
4025: END IF;
4026:
4175: END IF;
4176: END IF;
4177:
4178: IF (g_level_procedure >= g_current_runtime_level ) THEN
4179: FND_LOG.STRING(g_level_procedure,
4180: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value.END',
4181: 'ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value(-)' ||
4182: ', p_return_status = ' || p_return_status ||
4183: ', p_error_buffer = ' || p_error_buffer);
4187: WHEN OTHERS THEN
4188: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4189: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4190: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4191: FND_LOG.STRING(g_level_unexpected,
4192: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value',
4193: p_error_buffer);
4194: END IF;
4195:
4227: l_zone_tbl HZ_GEO_GET_PUB.zone_tbl_type;
4228: BEGIN
4229:
4230: IF (g_level_procedure >= g_current_runtime_level ) THEN
4231: FND_LOG.STRING(g_level_procedure,
4232: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl.BEGIN',
4233: 'ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl(+)');
4234: END IF;
4235:
4238: i := p_condition_index;
4239: p_result := FALSE;
4240:
4241: IF (g_level_statement >= g_current_runtime_level ) THEN
4242: FND_LOG.STRING(g_level_statement,
4243: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4244: 'p_condition_index: '|| to_char(p_condition_index) ||
4245: ', g_determining_factor_class_tbl: ' || g_determining_factor_class_tbl(i));
4246: END IF;
4256: p_error_buffer);
4257:
4258: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4259: IF (g_level_error >= g_current_runtime_level ) THEN
4260: FND_LOG.STRING(g_level_error,
4261: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4262: 'Incorrect return_status after calling get_geography_info()' ||
4263: ', return_status: '|| p_return_status);
4264: END IF;
4267:
4268: l_count := l_zone_tbl.COUNT;
4269:
4270: IF (g_level_statement >= g_current_runtime_level ) THEN
4271: FND_LOG.STRING(g_level_statement,
4272: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4273: 'Number of rows in Zone table : ' ||
4274: TO_CHAR(l_count));
4275: END IF;
4287: p_return_status,
4288: p_error_buffer);
4289: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4290: IF (g_level_error >= g_current_runtime_level ) THEN
4291: FND_LOG.STRING(g_level_error,
4292: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4293: 'Incorrect return_status after calling evaluate_condition()' ||
4294: ', return_status '|| p_return_status );
4295: END IF;
4300: --
4301: -- loop until a match is found
4302: --
4303: IF (g_level_statement >= g_current_runtime_level ) THEN
4304: FND_LOG.STRING(g_level_statement,
4305: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4306: 'Found a matched condition.' );
4307: END IF;
4308: EXIT;
4323: p_return_status,
4324: p_error_buffer);
4325: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4326: IF (g_level_error >= g_current_runtime_level ) THEN
4327: FND_LOG.STRING(g_level_error,
4328: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4329: 'Incorrect return_status after calling evaluate_condition()' ||
4330: ', return_status '|| p_return_status );
4331: END IF;
4334: END IF;
4335: END IF;
4336:
4337: IF (g_level_procedure >= g_current_runtime_level ) THEN
4338: FND_LOG.STRING(g_level_procedure,
4339: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl.END',
4340: 'ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl(-)' ||
4341: ', p_return_status = ' || p_return_status ||
4342: ', p_error_buffer = ' || p_error_buffer);
4346: WHEN OTHERS THEN
4347: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4348: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4349: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4350: FND_LOG.STRING(g_level_unexpected,
4351: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4352: p_error_buffer);
4353: END IF;
4354:
4379: i BINARY_INTEGER;
4380: BEGIN
4381:
4382: IF (g_level_procedure >= g_current_runtime_level ) THEN
4383: FND_LOG.STRING(g_level_procedure,
4384: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value.BEGIN',
4385: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_parameter_value(+)');
4386: END IF;
4387:
4399: p_return_status,
4400: p_error_buffer);
4401:
4402: IF (g_level_statement >= g_current_runtime_level ) THEN
4403: FND_LOG.STRING(g_level_statement,
4404: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4405: 'parameter code: ' || g_tax_parameter_code_tbl(i) ||
4406: ', p_numeric_value: ' || p_numeric_value );
4407: END IF;
4416: p_return_status
4417: );
4418:
4419: IF (g_level_statement >= g_current_runtime_level ) THEN
4420: FND_LOG.STRING(g_level_statement,
4421: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4422: 'parameter code: ' || g_tax_parameter_code_tbl(i) ||
4423: ', trx_date value: ' || to_char(p_date_value, 'DD-MON-YY'));
4424: END IF;
4433: p_return_status,
4434: p_error_buffer);
4435:
4436: IF (g_level_statement >= g_current_runtime_level ) THEN
4437: FND_LOG.STRING(g_level_statement,
4438: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4439: 'parameter code: ' || g_tax_parameter_code_tbl(i) ||
4440: ', p_alphanum_value: ' || p_alphanum_value );
4441: END IF;
4443:
4444: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4445: p_error_buffer := 'Invalid data type';
4446: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4447: FND_LOG.STRING(g_level_unexpected,
4448: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4449: 'Invalid data type, data type must be ALPHANUMERIC, NUMERIC, DATE');
4450: END IF;
4451:
4451:
4452: END IF;
4453:
4454: IF (g_level_procedure >= g_current_runtime_level ) THEN
4455: FND_LOG.STRING(g_level_procedure,
4456: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value.END',
4457: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_parameter_value(-)' ||
4458: ', p_return_status = ' || p_return_status ||
4459: ', p_error_buffer = ' || p_error_buffer);
4464: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4465: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4466:
4467: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4468: FND_LOG.STRING(g_level_unexpected,
4469: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4470: p_error_buffer);
4471: END IF;
4472:
4493: --l_table_index NUMBER;
4494:
4495: BEGIN
4496:
4497: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4498:
4499: IF (g_level_statement >= g_current_runtime_level ) THEN
4500: FND_LOG.STRING(g_level_statement,
4501: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.BEGIN',
4496:
4497: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4498:
4499: IF (g_level_statement >= g_current_runtime_level ) THEN
4500: FND_LOG.STRING(g_level_statement,
4501: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.BEGIN',
4502: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(+)');
4503: FND_LOG.STRING(g_level_statement ,
4504: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4499: IF (g_level_statement >= g_current_runtime_level ) THEN
4500: FND_LOG.STRING(g_level_statement,
4501: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.BEGIN',
4502: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(+)');
4503: FND_LOG.STRING(g_level_statement ,
4504: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4505: 'p_parameter_code: ' || p_parameter_code );
4506: END IF;
4507: p_return_status := FND_API.G_RET_STS_SUCCESS;
4533: --END IF;
4534: --END IF;
4535:
4536: IF (g_level_statement >= g_current_runtime_level ) THEN
4537: FND_LOG.STRING(g_level_statement,
4538: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4539: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4540: FND_LOG.STRING(g_level_statement,
4541: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.END',
4536: IF (g_level_statement >= g_current_runtime_level ) THEN
4537: FND_LOG.STRING(g_level_statement,
4538: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4539: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4540: FND_LOG.STRING(g_level_statement,
4541: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.END',
4542: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(-)' ||
4543: ', p_return_status = ' || p_return_status ||
4544: ', p_error_buffer = ' || p_error_buffer);
4549: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4550: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4551:
4552: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4553: FND_LOG.STRING(g_level_unexpected,
4554: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4555: p_error_buffer);
4556: END IF;
4557:
4577: --l_table_index NUMBER;
4578:
4579: BEGIN
4580:
4581: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4582:
4583: IF (g_level_statement >= g_current_runtime_level ) THEN
4584: FND_LOG.STRING(g_level_statement,
4585: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.BEGIN',
4580:
4581: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4582:
4583: IF (g_level_statement >= g_current_runtime_level ) THEN
4584: FND_LOG.STRING(g_level_statement,
4585: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.BEGIN',
4586: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(+)');
4587: FND_LOG.STRING(g_level_statement,
4588: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4583: IF (g_level_statement >= g_current_runtime_level ) THEN
4584: FND_LOG.STRING(g_level_statement,
4585: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.BEGIN',
4586: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(+)');
4587: FND_LOG.STRING(g_level_statement,
4588: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4589: 'p_parameter_code: ' || p_parameter_code );
4590: END IF;
4591:
4617: --END IF;
4618: --END IF;
4619:
4620: IF (g_level_statement >= g_current_runtime_level ) THEN
4621: FND_LOG.STRING(g_level_statement,
4622: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4623: 'trx_char_value: ' || p_trx_alphanumeric_value);
4624: FND_LOG.STRING(g_level_statement,
4625: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.END',
4620: IF (g_level_statement >= g_current_runtime_level ) THEN
4621: FND_LOG.STRING(g_level_statement,
4622: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4623: 'trx_char_value: ' || p_trx_alphanumeric_value);
4624: FND_LOG.STRING(g_level_statement,
4625: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.END',
4626: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(-)' ||
4627: ', p_return_status = ' || p_return_status ||
4628: ', p_error_buffer = ' || p_error_buffer);
4633: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4634: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4635:
4636: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4637: FND_LOG.STRING(g_level_unexpected,
4638: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4639: p_error_buffer);
4640: END IF;
4641:
4663:
4664: BEGIN
4665:
4666: IF (g_level_procedure >= g_current_runtime_level ) THEN
4667: FND_LOG.STRING(g_level_procedure,
4668: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.BEGIN',
4669: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(+)');
4670: IF (g_level_statement >= g_current_runtime_level ) THEN
4671: FND_LOG.STRING(g_level_statement ,
4667: FND_LOG.STRING(g_level_procedure,
4668: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.BEGIN',
4669: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(+)');
4670: IF (g_level_statement >= g_current_runtime_level ) THEN
4671: FND_LOG.STRING(g_level_statement ,
4672: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4673: 'p_parameter_code: ' || p_parameter_code );
4674: END IF;
4675: END IF;
4702: END IF;
4703: END IF;
4704:
4705: IF (g_level_procedure >= g_current_runtime_level ) THEN
4706: FND_LOG.STRING(g_level_procedure,
4707: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4708: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4709: FND_LOG.STRING(g_level_procedure,
4710: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.END',
4705: IF (g_level_procedure >= g_current_runtime_level ) THEN
4706: FND_LOG.STRING(g_level_procedure,
4707: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4708: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4709: FND_LOG.STRING(g_level_procedure,
4710: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.END',
4711: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(-)' ||
4712: ', p_return_status = ' || p_return_status ||
4713: ', p_error_buffer = ' || p_error_buffer);
4718: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4719: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4720:
4721: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4722: FND_LOG.STRING(g_level_unexpected,
4723: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4724: p_error_buffer);
4725: END IF;
4726:
4748:
4749: BEGIN
4750:
4751: IF (g_level_procedure >= g_current_runtime_level ) THEN
4752: FND_LOG.STRING(g_level_procedure,
4753: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.BEGIN',
4754: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(+)');
4755: IF (g_level_statement >= g_current_runtime_level ) THEN
4756: FND_LOG.STRING(g_level_statement,
4752: FND_LOG.STRING(g_level_procedure,
4753: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.BEGIN',
4754: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(+)');
4755: IF (g_level_statement >= g_current_runtime_level ) THEN
4756: FND_LOG.STRING(g_level_statement,
4757: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4758: 'p_parameter_code: ' || p_parameter_code );
4759: END IF;
4760: END IF;
4787: END IF;
4788: END IF;
4789:
4790: IF (g_level_procedure >= g_current_runtime_level ) THEN
4791: FND_LOG.STRING(g_level_procedure,
4792: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4793: 'trx_char_value: ' || p_trx_alphanumeric_value);
4794: FND_LOG.STRING(g_level_procedure,
4795: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.END',
4790: IF (g_level_procedure >= g_current_runtime_level ) THEN
4791: FND_LOG.STRING(g_level_procedure,
4792: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4793: 'trx_char_value: ' || p_trx_alphanumeric_value);
4794: FND_LOG.STRING(g_level_procedure,
4795: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.END',
4796: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(-)' ||
4797: ', p_return_status = ' || p_return_status ||
4798: ', p_error_buffer = ' || p_error_buffer);
4803: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4804: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4805:
4806: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4807: FND_LOG.STRING(g_level_unexpected,
4808: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4809: p_error_buffer);
4810: END IF;
4811:
4835: i BINARY_INTEGER;
4836: BEGIN
4837:
4838: IF (g_level_procedure >= g_current_runtime_level ) THEN
4839: FND_LOG.STRING(g_level_procedure,
4840: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value.BEGIN',
4841: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_type_value(+)');
4842: END IF;
4843:
4856: p_return_status,
4857: p_error_buffer);
4858:
4859: IF (g_level_statement >= g_current_runtime_level ) THEN
4860: FND_LOG.STRING(g_level_statement,
4861: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value',
4862: 'parameter code: ' || g_determining_factor_code_tbl(i) ||
4863: ', p_alphanum_value: ' || p_alphanum_value );
4864: END IF;
4866:
4867: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4868: p_error_buffer := 'Invalid data type';
4869: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4870: FND_LOG.STRING(g_level_unexpected,
4871: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value',
4872: 'Invalid data type, data type must be ALPHANUMERIC');
4873: END IF;
4874:
4874:
4875: END IF;
4876:
4877: IF (g_level_procedure >= g_current_runtime_level ) THEN
4878: FND_LOG.STRING(g_level_procedure,
4879: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value.END',
4880: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_type_value(-)' ||
4881: ', p_return_status = ' || p_return_status ||
4882: ', p_error_buffer = ' || p_error_buffer);
4887: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4888: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4889:
4890: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4891: FND_LOG.STRING(g_level_unexpected,
4892: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value',
4893: p_error_buffer);
4894: END IF;
4895:
4920:
4921: BEGIN
4922:
4923: IF (g_level_procedure >= g_current_runtime_level ) THEN
4924: FND_LOG.STRING(g_level_procedure,
4925: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.BEGIN',
4926: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(+)');
4927: IF (g_level_statement >= g_current_runtime_level ) THEN
4928: FND_LOG.STRING(g_level_statement,
4924: FND_LOG.STRING(g_level_procedure,
4925: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.BEGIN',
4926: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(+)');
4927: IF (g_level_statement >= g_current_runtime_level ) THEN
4928: FND_LOG.STRING(g_level_statement,
4929: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4930: 'p_parameter_code: ' || p_parameter_code );
4931: END IF;
4932: END IF;
4963: p_trx_alphanumeric_value := l_trx_alphanumeric_value;
4964: END IF;
4965:
4966: IF (g_level_procedure >= g_current_runtime_level ) THEN
4967: FND_LOG.STRING(g_level_procedure,
4968: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4969: 'trx_char_value: ' || p_trx_alphanumeric_value);
4970: FND_LOG.STRING(g_level_procedure,
4971: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.END',
4966: IF (g_level_procedure >= g_current_runtime_level ) THEN
4967: FND_LOG.STRING(g_level_procedure,
4968: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4969: 'trx_char_value: ' || p_trx_alphanumeric_value);
4970: FND_LOG.STRING(g_level_procedure,
4971: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.END',
4972: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(-)' ||
4973: ', p_return_status = ' || p_return_status ||
4974: ', p_error_buffer = ' || p_error_buffer);
4978: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4979: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4980:
4981: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4982: FND_LOG.STRING(g_level_unexpected,
4983: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4984: p_error_buffer);
4985: END IF;
4986:
5067:
5068: BEGIN
5069:
5070: IF (g_level_procedure >= g_current_runtime_level ) THEN
5071: FND_LOG.STRING(g_level_procedure,
5072: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.BEGIN',
5073: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(+)');
5074: END IF;
5075:
5081: l_classification_type := g_determining_factor_code_tbl(i);
5082: l_condition_value := g_alphanum_value_tbl(i);
5083:
5084: IF (g_level_statement >= g_current_runtime_level ) THEN
5085: FND_LOG.STRING(g_level_statement,
5086: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5087: 'l_classification_category: ' || l_classification_category ||
5088: ', l_classification_type: '|| l_classification_type ||
5089: ', l_condition_value: ' || l_condition_value);
5113: p_error_buffer );
5114:
5115: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5116: IF (g_level_error >= g_current_runtime_level ) THEN
5117: FND_LOG.STRING(g_level_error,
5118: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5119: 'Incorrect return_status after calling get_tsrm_alphanum_value()' ||
5120: ', return_status: ' || p_return_status);
5121: END IF;
5123: RETURN;
5124: END IF;
5125:
5126: IF (g_level_statement >= g_current_runtime_level ) THEN
5127: FND_LOG.STRING(g_level_statement,
5128: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5129: 'l_prod_trx_parm_value: ' || l_prod_trx_parm_value);
5130: END IF;
5131:
5139: l_fsc_cat_rec.condition_subclass := p_Determining_Factor_Cq_Code;
5140:
5141:
5142: IF (g_level_statement >= g_current_runtime_level ) THEN
5143: FND_LOG.STRING(g_level_statement,
5144: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5145: 'calling ZX_TCM_CONTROL_PKG.GET_PROD_TRX_CATE_VALUE');
5146: END IF;
5147:
5180: p_error_buffer );
5181:
5182: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5183: IF (g_level_error >= g_current_runtime_level ) THEN
5184: FND_LOG.STRING(g_level_error,
5185: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5186: 'Incorrect return_status after calling get_tsrm_alphanum_value()' ||
5187: ', return_status: ' || p_return_status);
5188: END IF;
5210: ELSE
5211: -- Bugfix 4882676: ignore error even if fc not found
5212: p_return_status := FND_API.G_RET_STS_SUCCESS;
5213: IF (g_level_statement >= g_current_runtime_level ) THEN
5214: FND_LOG.STRING(g_level_statement,
5215: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5216: 'ignore error even if fc not found ' );
5217: END IF;
5218: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR|| FND_API.G_MISS_CHAR;
5235: l_level_delimiter;
5236: CLOSE c_fc_base_category_set;
5237:
5238: IF (g_level_statement >= g_current_runtime_level ) THEN
5239: FND_LOG.STRING(g_level_statement,
5240: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5241: 'l_fc_base_category_set_id: '||l_fc_base_category_set_id ||
5242: ', l_fc_level: '||l_fc_level ||
5243: ', l_level_start_position: '||l_level_start_position ||
5258: p_error_buffer );
5259:
5260: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5261: IF (g_level_error >= g_current_runtime_level ) THEN
5262: FND_LOG.STRING(g_level_error,
5263: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5264: 'Called get_tsrm_alphanum_value to get DEFAULT_TAXATION_COUNTRY' ||
5265: ', return_status: ' || p_return_status);
5266: END IF;
5273: FETCH c_country_def_category_set_id into l_country_def_category_set_id;
5274: CLOSE c_country_def_category_set_id;
5275:
5276: IF (g_level_statement >= g_current_runtime_level ) THEN
5277: FND_LOG.STRING(g_level_statement,
5278: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5279: 'l_country_def_category_set_id: '||l_country_def_category_set_id );
5280: END IF;
5281:
5291: p_error_buffer );
5292:
5293: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5294: IF (g_level_error >= g_current_runtime_level ) THEN
5295: FND_LOG.STRING(g_level_error,
5296: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5297: 'Called get_tsrm_alphanum_value to get PRODUCT_FISC_CLASSIFICATION' ||
5298: ', return_status: ' || p_return_status);
5299: END IF;
5356: p_error_buffer );
5357:
5358: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5359: IF (g_level_error >= g_current_runtime_level ) THEN
5360: FND_LOG.STRING(g_level_error,
5361: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5362: 'Called get_tsrm_num_value to get PRODUCT_ID' ||
5363: ', return_status: ' || p_return_status);
5364: END IF;
5373: ELSIF p_event_class_rec.prod_family_grp_code = 'P2P' THEN
5374: l_parameter_code := 'SHIP_TO_PARTY_ID';
5375: ELSE
5376: IF (g_level_error >= g_current_runtime_level ) THEN
5377: FND_LOG.STRING(g_level_error,
5378: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5379: 'Invalid prod_family_grp_code');
5380: END IF;
5381: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR|| FND_API.G_MISS_CHAR;
5391: p_error_buffer );
5392:
5393: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5394: IF (g_level_error >= g_current_runtime_level ) THEN
5395: FND_LOG.STRING(g_level_error,
5396: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5397: 'Called get_tsrm_num_value to get ' ||l_parameter_code|| ', return_status: ' || p_return_status);
5398: END IF;
5399: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR|| FND_API.G_MISS_CHAR;
5400: RETURN;
5401: END IF;
5402:
5403: IF (g_level_statement >= g_current_runtime_level ) THEN
5404: FND_LOG.STRING(g_level_statement,
5405: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5406: 'item_org_id: ' || to_char(l_item_org_id));
5407: END IF;
5408:
5418: p_error_buffer );
5419:
5420: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5421: IF (g_level_error >= g_current_runtime_level ) THEN
5422: FND_LOG.STRING(g_level_error,
5423: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5424: 'Called get_tsrm_num_value to get PRODUCT_ORG_ID' ||
5425: ', return_status: ' || p_return_status);
5426: END IF;
5428: RETURN;
5429: END IF;
5430:
5431: IF (g_level_statement >= g_current_runtime_level ) THEN
5432: FND_LOG.STRING(g_level_statement,
5433: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5434: 'product_org_id: ' || to_char(l_product_org_id));
5435: END IF;
5436:
5462: l_fsc_rec.event_class_code := p_event_class_rec.event_class_code;
5463: l_fsc_rec.condition_value := l_condition_value;
5464:
5465: IF (g_level_statement >= g_current_runtime_level ) THEN
5466: FND_LOG.STRING(g_level_statement,
5467: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5468: 'calling ZX_TCM_CONTROL_PKG.GET_FISCAL_CLASSIFICATION');
5469: END IF;
5470:
5500: (p_trx_alphanumeric_value IS NULL
5501: or p_trx_alphanumeric_value = FND_API.G_MISS_CHAR)
5502: ) THEN
5503: IF (g_level_statement >= g_current_runtime_level ) THEN
5504: FND_LOG.STRING(g_level_statement,
5505: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5506: 'PFC Not found for item org id. Fetching PFC for Product Org Id...' );
5507: END IF;
5508:
5531: l_fsc_rec.event_class_code := p_event_class_rec.event_class_code;
5532: l_fsc_rec.condition_value := l_condition_value;
5533:
5534: IF (g_level_statement >= g_current_runtime_level ) THEN
5535: FND_LOG.STRING(g_level_statement,
5536: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5537: 'calling ZX_TCM_CONTROL_PKG.GET_FISCAL_CLASSIFICATION');
5538: END IF;
5539:
5550: l_fsc_rec.fsc_code := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5551: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5552: p_return_status := FND_API.G_RET_STS_SUCCESS;
5553: IF (g_level_statement >= g_current_runtime_level ) THEN
5554: FND_LOG.STRING(g_level_statement,
5555: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5556: 'PFC not found for Product Org Id. Ignore error...' );
5557: END IF;
5558: END IF;
5615: p_error_buffer );
5616:
5617: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5618: IF (g_level_error >= g_current_runtime_level ) THEN
5619: FND_LOG.STRING(g_level_error,
5620: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5621: 'Incorrect return_status after calling get_tsrm_num_value' ||
5622: ', return_status: ' || p_return_status);
5623: END IF;
5648: p_error_buffer );
5649:
5650: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5651: IF (g_level_error >= g_current_runtime_level ) THEN
5652: FND_LOG.STRING(g_level_error,
5653: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5654: 'Incorrect return_status after calling get_tsrm_num_value' ||
5655: ', return_status: ' || p_return_status);
5656: END IF;
5660:
5661: END IF; -- End of check for classification category and classified entity id
5662:
5663: IF (g_level_statement >= g_current_runtime_level ) THEN
5664: FND_LOG.STRING(g_level_statement,
5665: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5666: 'classified_entity_id: ' || to_char(l_classified_entity_id));
5667: END IF;
5668:
5693: l_fsc_rec.event_class_code := p_event_class_rec.event_class_code;
5694: l_fsc_rec.condition_value := l_condition_value;
5695:
5696: IF (g_level_statement >= g_current_runtime_level ) THEN
5697: FND_LOG.STRING(g_level_statement,
5698: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5699: 'calling ZX_TCM_CONTROL_PKG.GET_FISCAL_CLASSIFICATION');
5700: END IF;
5701:
5721: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5722: l_fsc_rec.fsc_code := p_trx_alphanumeric_value;
5723: p_return_status := FND_API.G_RET_STS_SUCCESS;
5724: IF (g_level_statement >= g_current_runtime_level ) THEN
5725: FND_LOG.STRING(g_level_statement,
5726: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5727: 'ignore error even if fc not found ' );
5728: END IF;
5729: END IF;
5737:
5738: IF l_third_party_flag = 'Y' THEN
5739: p_trx_alphanumeric_value := nvl(l_fsc_rec.fsc_code,FND_API.G_MISS_CHAR);
5740: IF (g_level_procedure >= g_current_runtime_level ) THEN
5741: FND_LOG.STRING(g_level_procedure,
5742: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5743: 'fsc_code: ' || p_trx_alphanumeric_value);
5744: FND_LOG.STRING(g_level_procedure,
5745: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5740: IF (g_level_procedure >= g_current_runtime_level ) THEN
5741: FND_LOG.STRING(g_level_procedure,
5742: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5743: 'fsc_code: ' || p_trx_alphanumeric_value);
5744: FND_LOG.STRING(g_level_procedure,
5745: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5746: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5747: ', p_return_status = ' || p_return_status ||
5748: ', p_error_buffer = ' || p_error_buffer);
5773: p_error_buffer );
5774:
5775: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5776: IF (g_level_error >= g_current_runtime_level ) THEN
5777: FND_LOG.STRING(g_level_error,
5778: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5779: 'Incorrect return_status after calling get_tsrm_num_value' ||
5780: ', return_status: ' || p_return_status);
5781: END IF;
5785:
5786: IF l_classified_entity_id IS NULL AND NOT l_first_party_flag THEN
5787: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR;
5788: IF (g_level_procedure >= g_current_runtime_level ) THEN
5789: FND_LOG.STRING(g_level_procedure,
5790: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5791: 'fsc_code: ' || p_trx_alphanumeric_value);
5792: FND_LOG.STRING(g_level_procedure,
5793: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5788: IF (g_level_procedure >= g_current_runtime_level ) THEN
5789: FND_LOG.STRING(g_level_procedure,
5790: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5791: 'fsc_code: ' || p_trx_alphanumeric_value);
5792: FND_LOG.STRING(g_level_procedure,
5793: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5794: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5795: ', p_return_status = ' || p_return_status ||
5796: ', p_error_buffer = ' || p_error_buffer);
5808: IF c_get_le_ptp_id%NOTFOUND THEN
5809: CLOSE c_get_le_ptp_id;
5810: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5811: IF (g_level_statement >= g_current_runtime_level ) THEN
5812: FND_LOG.STRING(g_level_statement,
5813: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5814: 'Legal Entity PTP Not Found; l_le_id' ||
5815: to_char(l_le_id));
5816: END IF;
5814: 'Legal Entity PTP Not Found; l_le_id' ||
5815: to_char(l_le_id));
5816: END IF;
5817: IF (g_level_procedure >= g_current_runtime_level ) THEN
5818: FND_LOG.STRING(g_level_procedure,
5819: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5820: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)');
5821: END IF;
5822: RETURN;
5826:
5827: END IF;
5828:
5829: IF (g_level_statement >= g_current_runtime_level ) THEN
5830: FND_LOG.STRING(g_level_statement,
5831: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5832: 'classified_entity_id: ' || to_char(l_classified_entity_id));
5833: END IF;
5834:
5864: l_fsc_rec.fsc_code := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5865: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5866: p_return_status := FND_API.G_RET_STS_SUCCESS;
5867: IF (g_level_statement >= g_current_runtime_level ) THEN
5868: FND_LOG.STRING(g_level_statement,
5869: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5870: 'ignore error even if fc not found for LE' );
5871: END IF;
5872: END IF;
5890: p_error_buffer );
5891:
5892: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5893: IF (g_level_error >= g_current_runtime_level ) THEN
5894: FND_LOG.STRING(g_level_error,
5895: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5896: 'Incorrect return_status after calling get_tsrm_num_value for LE' ||
5897: ', return_status: ' || p_return_status);
5898: END IF;
5908: IF c_get_le_ptp_id%NOTFOUND THEN
5909: CLOSE c_get_le_ptp_id;
5910: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5911: IF (g_level_statement >= g_current_runtime_level ) THEN
5912: FND_LOG.STRING(g_level_statement,
5913: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5914: 'Legal Entity PTP Not Found; l_le_id' ||
5915: to_char(l_le_id));
5916: END IF;
5914: 'Legal Entity PTP Not Found; l_le_id' ||
5915: to_char(l_le_id));
5916: END IF;
5917: IF (g_level_procedure >= g_current_runtime_level ) THEN
5918: FND_LOG.STRING(g_level_procedure,
5919: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5920: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)');
5921: END IF;
5922: RETURN;
5924: CLOSE c_get_le_ptp_id;
5925: END IF;
5926:
5927: IF (g_level_statement >= g_current_runtime_level ) THEN
5928: FND_LOG.STRING(g_level_statement,
5929: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5930: 'classified_entity_id ' || to_char(l_classified_entity_id));
5931: END IF;
5932:
5962: p_trx_alphanumeric_value := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5963: l_fsc_rec.fsc_code := FND_API.G_MISS_CHAR||FND_API.G_MISS_CHAR;
5964: p_return_status := FND_API.G_RET_STS_SUCCESS;
5965: IF (g_level_statement >= g_current_runtime_level ) THEN
5966: FND_LOG.STRING(g_level_statement,
5967: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5968: 'ignore error even if fc not found for LE' );
5969: END IF;
5970: END IF;
5973: END IF; -- End for getting LE FC
5974: END IF; -- End of check for party classification
5975:
5976: IF (g_level_procedure >= g_current_runtime_level ) THEN
5977: FND_LOG.STRING(g_level_procedure,
5978: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5979: 'fsc_code: ' || nvL(p_trx_alphanumeric_value,'XXXX'));
5980: FND_LOG.STRING(g_level_procedure,
5981: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5976: IF (g_level_procedure >= g_current_runtime_level ) THEN
5977: FND_LOG.STRING(g_level_procedure,
5978: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5979: 'fsc_code: ' || nvL(p_trx_alphanumeric_value,'XXXX'));
5980: FND_LOG.STRING(g_level_procedure,
5981: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5982: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5983: ', p_return_status = ' || p_return_status ||
5984: ', p_error_buffer = ' || p_error_buffer);
5989: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5990: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5991:
5992: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5993: FND_LOG.STRING(g_level_unexpected,
5994: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5995: p_error_buffer);
5996: END IF;
5997:
6025: --l_zone_tbl HZ_GEO_GET_PUB.zone_tbl_type;
6026: BEGIN
6027:
6028: IF (g_level_procedure >= g_current_runtime_level ) THEN
6029: FND_LOG.STRING(g_level_procedure,
6030: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.BEGIN',
6031: 'ZX_TDS_RULE_BASE_DETM_PVT: get_geography_info(+)');
6032: END IF;
6033:
6055: p_return_status,
6056: p_error_buffer);
6057:
6058: IF (g_level_statement >= g_current_runtime_level ) THEN
6059: FND_LOG.STRING(g_level_statement,
6060: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
6061: 'location_id: ' || to_char(l_location_id));
6062: END IF;
6063:
6093: END IF;
6094: END IF;
6095:
6096: IF (g_level_procedure >= g_current_runtime_level ) THEN
6097: -- FND_LOG.STRING(g_level_procedure,
6098: -- 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
6099: -- 'trx_alphanumeric_value: ' || p_trx_alphanumeric_value);
6100: FND_LOG.STRING(g_level_procedure,
6101: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.END',
6096: IF (g_level_procedure >= g_current_runtime_level ) THEN
6097: -- FND_LOG.STRING(g_level_procedure,
6098: -- 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
6099: -- 'trx_alphanumeric_value: ' || p_trx_alphanumeric_value);
6100: FND_LOG.STRING(g_level_procedure,
6101: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.END',
6102: 'ZX_TDS_RULE_BASE_DETM_PVT: get_geography_info(-)' ||
6103: ', p_return_status = ' || p_return_status ||
6104: ', p_error_buffer = ' || p_error_buffer);
6108: WHEN OTHERS THEN
6109: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6110: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6111: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6112: FND_LOG.STRING(g_level_unexpected,
6113: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
6114: p_error_buffer);
6115: END IF;
6116:
6143: i BINARY_INTEGER;
6144: BEGIN
6145:
6146: IF (g_level_procedure >= g_current_runtime_level ) THEN
6147: FND_LOG.STRING(g_level_procedure,
6148: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info.BEGIN',
6149: 'ZX_TDS_RULE_BASE_DETM_PVT: get_master_geography_info(+)');
6150: END IF;
6151:
6173: p_return_status,
6174: p_error_buffer);
6175:
6176: IF (g_level_statement >= g_current_runtime_level ) THEN
6177: FND_LOG.STRING(g_level_statement,
6178: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
6179: 'location_id: ' || to_char(l_location_id));
6180: END IF;
6181:
6181:
6182: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
6183:
6184: IF (g_level_statement >= g_current_runtime_level ) THEN
6185: FND_LOG.STRING(g_level_statement,
6186: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
6187: 'l_location_type: ' || l_location_type);
6188: END IF;
6189:
6204: end if; -- l_location_id is not null
6205: END IF;
6206:
6207: IF (g_level_statement >= g_current_runtime_level ) THEN
6208: FND_LOG.STRING(g_level_statement,
6209: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
6210: 'trx_numeric_value: ' || TO_CHAR(p_trx_numeric_value));
6211: END IF;
6212:
6210: 'trx_numeric_value: ' || TO_CHAR(p_trx_numeric_value));
6211: END IF;
6212:
6213: IF (g_level_procedure >= g_current_runtime_level ) THEN
6214: FND_LOG.STRING(g_level_procedure,
6215: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info.END',
6216: 'ZX_TDS_RULE_BASE_DETM_PVT: get_master_geography_info(-)' ||
6217: ', p_return_status = ' || p_return_status ||
6218: ', p_error_buffer = ' || p_error_buffer);
6222: WHEN OTHERS THEN
6223: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6224: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6225: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6226: FND_LOG.STRING(g_level_unexpected,
6227: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
6228: p_error_buffer);
6229: END IF;
6230:
6258:
6259: BEGIN
6260:
6261: IF (g_level_procedure >= g_current_runtime_level ) THEN
6262: FND_LOG.STRING(g_level_procedure,
6263: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.BEGIN',
6264: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(+)');
6265: END IF;
6266:
6284: --p_trx_alphanumeric_value := NVL(l_registration_rec.registration_status_code, 'NOT REGISTERED');
6285: p_trx_alphanumeric_value := NVL(l_registration_rec.registration_status_code, FND_API.G_MISS_CHAR);
6286: ELSE
6287: IF (g_level_error >= g_current_runtime_level ) THEN
6288: FND_LOG.STRING(g_level_error,
6289: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status',
6290: 'Incorrect status returned after calling '||
6291: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_registration_info'||
6292: ', p_return_status = ' || p_return_status);
6289: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status',
6290: 'Incorrect status returned after calling '||
6291: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_registration_info'||
6292: ', p_return_status = ' || p_return_status);
6293: FND_LOG.STRING(g_level_error,
6294: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.END',
6295: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(-)');
6296: END IF;
6297: p_return_status := FND_API.G_RET_STS_SUCCESS;
6297: p_return_status := FND_API.G_RET_STS_SUCCESS;
6298: END IF;
6299:
6300: IF (g_level_statement >= g_current_runtime_level ) THEN
6301: FND_LOG.STRING(g_level_statement,
6302: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status',
6303: 'registration status: ' || p_trx_alphanumeric_value);
6304: END IF;
6305:
6303: 'registration status: ' || p_trx_alphanumeric_value);
6304: END IF;
6305:
6306: IF (g_level_procedure >= g_current_runtime_level ) THEN
6307: FND_LOG.STRING(g_level_procedure,
6308: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.END',
6309: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(-)' ||
6310: ', p_return_status = ' || p_return_status ||
6311: ', p_error_buffer = ' || p_error_buffer);
6316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6317: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6318:
6319: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6320: FND_LOG.STRING(g_level_unexpected,
6321: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status',
6322: p_error_buffer);
6323: END IF;
6324:
6353: l_sob_id ZX_CONDITION_GROUPS_B.LEDGER_ID%TYPE;
6354: BEGIN
6355:
6356: IF (g_level_procedure >= g_current_runtime_level ) THEN
6357: FND_LOG.STRING(g_level_procedure,
6358: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.BEGIN',
6359: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(+)');
6360: IF (g_level_statement >= g_current_runtime_level ) THEN
6361: FND_LOG.STRING(g_level_statement,
6357: FND_LOG.STRING(g_level_procedure,
6358: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.BEGIN',
6359: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(+)');
6360: IF (g_level_statement >= g_current_runtime_level ) THEN
6361: FND_LOG.STRING(g_level_statement,
6362: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6363: 'sob id: ' || to_char(p_sob_id) ||
6364: ', chart of acct id: ' || to_char(p_chart_of_accounts_id));
6365: END IF;
6387: p_return_status := FND_API.G_RET_STS_ERROR;
6388: p_error_buffer := 'LEDGER ID does not match with one from condition group';
6389:
6390: IF (g_level_statement >= g_current_runtime_level ) THEN
6391: FND_LOG.STRING(g_level_statement,
6392: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6393: 'p_return_status = ' || p_return_status ||
6394: ', p_error_buffer = ' || p_error_buffer);
6395: END IF;
6409: --
6410: -- segment array for this account has been obtained before
6411: --
6412: IF (g_level_statement >= g_current_runtime_level ) THEN
6413: FND_LOG.STRING(g_level_statement,
6414: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6415: 'segment array has been obtained before');
6416: END IF;
6417:
6451: l_account_string :=
6452: zx_global_structures_pkg.g_ccid_acct_string_info_tbl(l_ccid).ACCOUNT_STRING;
6453:
6454: IF (g_level_statement >= g_current_runtime_level ) THEN
6455: FND_LOG.STRING(g_level_statement,
6456: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6457: 'Acct string found in cache: ' || l_account_string);
6458: END IF;
6459:
6464: p_chart_of_accounts_id,
6465: l_ccid);
6466:
6467: IF (g_level_statement >= g_current_runtime_level ) THEN
6468: FND_LOG.STRING(g_level_statement,
6469: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6470: 'acct string derived by calling flexfield API: ' || l_account_string);
6471: END IF;
6472:
6496:
6497: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6498:
6499: IF (g_level_statement >= g_current_runtime_level ) THEN
6500: FND_LOG.STRING(g_level_statement,
6501: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6502: 'p_return_status = ' || p_return_status ||
6503: ', p_error_buffer = ' || p_error_buffer);
6504: END IF;
6521: END IF;
6522: END IF;
6523:
6524: IF (g_level_procedure >= g_current_runtime_level ) THEN
6525: FND_LOG.STRING(g_level_procedure,
6526: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.END',
6527: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(-)' ||
6528: ', p_return_status = ' || p_return_status ||
6529: ', p_error_buffer = ' || p_error_buffer);
6534: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6535: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6536:
6537: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6538: FND_LOG.STRING(g_level_unexpected,
6539: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6540: p_error_buffer);
6541: END IF;
6542:
6561: l_num_of_segments NUMBER;
6562: BEGIN
6563:
6564: IF (g_level_procedure >= g_current_runtime_level ) THEN
6565: FND_LOG.STRING(g_level_procedure,
6566: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string.BEGIN',
6567: 'ZX_TDS_RULE_BASE_DETM_PVT: process_segment_string(+)');
6568: END IF;
6569:
6584: l_delimiter,
6585: g_segment_array);
6586:
6587: IF (g_level_procedure >= g_current_runtime_level ) THEN
6588: FND_LOG.STRING(g_level_procedure,
6589: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string',
6590: 'l_delimiter: ' || l_delimiter ||
6591: ', l_num_of_segments: ' || to_char(l_num_of_segments));
6592:
6589: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string',
6590: 'l_delimiter: ' || l_delimiter ||
6591: ', l_num_of_segments: ' || to_char(l_num_of_segments));
6592:
6593: FND_LOG.STRING(g_level_procedure,
6594: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string.END',
6595: 'ZX_TDS_RULE_BASE_DETM_PVT: process_segment_string(-)');
6596: END IF;
6597:
6599: WHEN OTHERS THEN
6600: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6601: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6602: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6603: FND_LOG.STRING(g_level_unexpected,
6604: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string',
6605: p_error_buffer);
6606: END IF;
6607:
6632: l_item_org_id NUMBER;
6633:
6634: BEGIN
6635:
6636: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6637:
6638: IF (g_level_statement >= g_current_runtime_level ) THEN
6639: FND_LOG.STRING(g_level_statement,
6640: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info.BEGIN',
6635:
6636: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6637:
6638: IF (g_level_statement >= g_current_runtime_level ) THEN
6639: FND_LOG.STRING(g_level_statement,
6640: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info.BEGIN',
6641: 'ZX_TDS_RULE_BASE_DETM_PVT: get_product_tax_info (+)');
6642: END IF;
6643:
6655: p_return_status,
6656: p_error_buffer );
6657:
6658: IF (g_level_statement >= g_current_runtime_level ) THEN
6659: FND_LOG.STRING(g_level_statement,
6660: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info',
6661: 'product id: ' || to_char(l_product_id));
6662: END IF;
6663:
6677: p_return_status,
6678: p_error_buffer );
6679:
6680: IF (g_level_statement >= g_current_runtime_level ) THEN
6681: FND_LOG.STRING(g_level_statement,
6682: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info',
6683: 'item_org_id: ' || to_char(l_item_org_id));
6684: END IF;
6685:
6698: p_error_buffer );
6699:
6700:
6701: IF (g_level_statement >= g_current_runtime_level ) THEN
6702: FND_LOG.STRING(g_level_statement,
6703: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info.END',
6704: 'ZX_TDS_RULE_BASE_DETM_PVT: get_product_tax_info (-)');
6705: END IF;
6706:
6709: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6710: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6711:
6712: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6713: FND_LOG.STRING(g_level_unexpected,
6714: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info',
6715: p_error_buffer);
6716: END IF;
6717:
6749:
6750: BEGIN
6751:
6752: IF (g_level_statement >= g_current_runtime_level ) THEN
6753: FND_LOG.STRING(g_level_statement,
6754: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.BEGIN',
6755: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tax_info_from_item(+)');
6756: END IF;
6757:
6767: p_error_buffer := 'Invalid Determining Factor code for Product class';
6768: END IF;
6769:
6770: IF (g_level_statement >= g_current_runtime_level ) THEN
6771: FND_LOG.STRING(g_level_statement,
6772: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item',
6773: 'trx value:' || p_trx_alphanumeric_value);
6774: FND_LOG.STRING(g_level_statement,
6775: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.END',
6770: IF (g_level_statement >= g_current_runtime_level ) THEN
6771: FND_LOG.STRING(g_level_statement,
6772: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item',
6773: 'trx value:' || p_trx_alphanumeric_value);
6774: FND_LOG.STRING(g_level_statement,
6775: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.END',
6776: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tax_info_from_item(-)' ||
6777: ', p_return_status = ' || p_return_status ||
6778: ', p_error_buffer = ' || p_error_buffer);
6783: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6784: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6785:
6786: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6787: FND_LOG.STRING(g_level_unexpected,
6788: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item',
6789: p_error_buffer);
6790: END IF;
6791:
6823:
6824: BEGIN
6825:
6826: IF (g_level_statement >= g_current_runtime_level ) THEN
6827: FND_LOG.STRING(g_level_statement,
6828: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.BEGIN',
6829: 'ZX_TDS_RULE_BASE_DETM_PVT: get_party_tax_info(+)');
6830: END IF;
6831:
6839: p_return_status,
6840: p_error_buffer);
6841:
6842: IF (g_level_statement >= g_current_runtime_level ) THEN
6843: FND_LOG.STRING(g_level_statement,
6844: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info',
6845: 'l_tax_profile_id: ' || to_char(l_tax_profile_id));
6846: END IF;
6847:
6858: p_error_buffer := 'Invalid Determining Factor code for Party class';
6859: END IF;
6860:
6861: IF (g_level_statement >= g_current_runtime_level ) THEN
6862: FND_LOG.STRING(g_level_statement,
6863: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info',
6864: 'tax classification: ' || p_trx_alphanumeric_value);
6865: FND_LOG.STRING(g_level_statement,
6866: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.END',
6861: IF (g_level_statement >= g_current_runtime_level ) THEN
6862: FND_LOG.STRING(g_level_statement,
6863: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info',
6864: 'tax classification: ' || p_trx_alphanumeric_value);
6865: FND_LOG.STRING(g_level_statement,
6866: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.END',
6867: 'ZX_TDS_RULE_BASE_DETM_PVT: get_party_tax_info(-)' ||
6868: ', p_return_status = ' || p_return_status ||
6869: ', p_error_buffer = ' || p_error_buffer);
6875: p_error_buffer :=sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6876:
6877: CLOSE get_tax_classification_csr;
6878: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6879: FND_LOG.STRING(g_level_unexpected,
6880: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.',
6881: p_error_buffer);
6882: END IF;
6883: END get_party_tax_info;
6905: IS
6906: i BINARY_INTEGER;
6907: BEGIN
6908:
6909: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6910:
6911: IF (g_level_procedure >= g_current_runtime_level ) THEN
6912: FND_LOG.STRING(g_level_procedure,
6913: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition.BEGIN',
6908:
6909: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6910:
6911: IF (g_level_procedure >= g_current_runtime_level ) THEN
6912: FND_LOG.STRING(g_level_procedure,
6913: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition.BEGIN',
6914: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_condition(+)');
6915: END IF;
6916:
6945: p_error_buffer := 'Invalid data type';
6946: p_result := FALSE;
6947:
6948: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6949: FND_LOG.STRING(g_level_unexpected,
6950: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition',
6951: 'Invalid data type');
6952: END IF;
6953:
6953:
6954: END IF;
6955:
6956: IF (g_level_procedure >= g_current_runtime_level ) THEN
6957: FND_LOG.STRING(g_level_procedure,
6958: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition.END',
6959: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_condition(-)');
6960: END IF;
6961:
6964: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6965: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6966:
6967: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6968: FND_LOG.STRING(g_level_unexpected,
6969: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition',
6970: p_error_buffer);
6971: END IF;
6972:
7058:
7059: BEGIN
7060:
7061: IF (g_level_procedure >= g_current_runtime_level ) THEN
7062: FND_LOG.STRING(g_level_procedure,
7063: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result.BEGIN',
7064: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(+)');
7065: IF (g_level_statement >= g_current_runtime_level ) THEN
7066: FND_LOG.STRING(g_level_statement,
7062: FND_LOG.STRING(g_level_procedure,
7063: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result.BEGIN',
7064: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(+)');
7065: IF (g_level_statement >= g_current_runtime_level ) THEN
7066: FND_LOG.STRING(g_level_statement,
7067: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
7068: 'result_id: ' || p_result_id);
7069: END IF;
7070: END IF;
7165: FND_MESSAGE.SET_TOKEN('ACTION_CODE', l_action_rec_tbl(i).action_code );
7166: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
7167:
7168: IF (g_level_error >= g_current_runtime_level ) THEN
7169: FND_LOG.STRING(g_level_error,
7170: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
7171: 'Action_code is ERROR_MESSAGE,SYSTEM_ERROR');
7172: END IF;
7173:
7204:
7205: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7206: p_error_buffer := SUBSTR(SQLERRM, 1, 80);
7207: IF (g_level_error >= g_current_runtime_level ) THEN
7208: FND_LOG.STRING(g_level_error,
7209: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
7210: 'Cannot set the tax rate code to '||l_override_tax_rate_code ||
7211: ', ERROR: '|| p_error_buffer);
7212: END IF;
7274: FND_MESSAGE.SET_TOKEN('ACTION_CODE', l_action_rec_tbl(i).action_code );
7275: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
7276:
7277: IF (g_level_error >= g_current_runtime_level ) THEN
7278: FND_LOG.STRING(g_level_error,
7279: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
7280: 'Action_code is ERROR_MESSAGE,SYSTEM_ERROR');
7281: END IF;
7282:
7315:
7316: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7317: p_error_buffer := SUBSTR(SQLERRM, 1, 80);
7318: IF (g_level_error >= g_current_runtime_level ) THEN
7319: FND_LOG.STRING(g_level_error,
7320: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
7321: 'Cannot set the tax rate code to '||l_override_tax_rate_code ||
7322: ', ERROR: '||p_error_buffer);
7323: END IF;
7356: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','The action value for APPLY_EXCEPTION action code'||
7357: 'does not contain number');
7358: FND_MSG_PUB.Add;
7359: IF (g_level_error >= g_current_runtime_level ) THEN
7360: FND_LOG.STRING(g_level_error,
7361: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
7362: 'The action value for APPLY_EXCEPTION action code '||
7363: 'does not contain number');
7364: END IF;
7376:
7377: CLOSE get_tax_result_csr;
7378:
7379: IF (g_level_procedure >= g_current_runtime_level ) THEN
7380: FND_LOG.STRING(g_level_procedure,
7381: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result.END',
7382: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(-)' ||
7383: ', p_return_status = ' || p_return_status ||
7384: ', p_error_buffer = ' || p_error_buffer);
7390: p_error_buffer := SUBSTR(SQLERRM, 1, 80);
7391: CLOSE get_tax_result_csr;
7392:
7393: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7394: FND_LOG.STRING(g_level_unexpected,
7395: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
7396: p_error_buffer);
7397: END IF;
7398:
7431: l_search_pointer NUMBER;
7432: BEGIN
7433:
7434: IF (g_level_procedure >= g_current_runtime_level ) THEN
7435: FND_LOG.STRING(g_level_procedure,
7436: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.BEGIN',
7437: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fsc_code(+)');
7438: END IF;
7439:
7533: END IF; -- NOT p_found
7534: END IF; -- G_FSC_TBL_INSERT_POINTER = 0
7535:
7536: IF (g_level_procedure >= g_current_runtime_level ) THEN
7537: FND_LOG.STRING(g_level_procedure,
7538: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code',
7539: 'trx_alpha_value: ' || p_trx_alphanumeric_value);
7540: FND_LOG.STRING(g_level_procedure,
7541: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.END',
7536: IF (g_level_procedure >= g_current_runtime_level ) THEN
7537: FND_LOG.STRING(g_level_procedure,
7538: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code',
7539: 'trx_alpha_value: ' || p_trx_alphanumeric_value);
7540: FND_LOG.STRING(g_level_procedure,
7541: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.END',
7542: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fsc_code(-)');
7543: END IF;
7544:
7544:
7545: EXCEPTION
7546: WHEN OTHERS THEN
7547: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7548: FND_LOG.STRING(g_level_unexpected,
7549: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code',
7550: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7551: END IF;
7552:
7576: l_check_condition_group_tbl ZX_TDS_CALC_SERVICES_PUB_PKG.trx_line_cond_grp_eval_tbl;
7577: BEGIN
7578:
7579: IF (g_level_procedure >= g_current_runtime_level ) THEN
7580: FND_LOG.STRING(g_level_procedure,
7581: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result.BEGIN',
7582: 'ZX_TDS_RULE_BASE_DETM_PVT: check_condition_group_result(+)');
7583: IF (g_level_statement >= g_current_runtime_level ) THEN
7584: FND_LOG.STRING(g_level_statement,
7580: FND_LOG.STRING(g_level_procedure,
7581: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result.BEGIN',
7582: 'ZX_TDS_RULE_BASE_DETM_PVT: check_condition_group_result(+)');
7583: IF (g_level_statement >= g_current_runtime_level ) THEN
7584: FND_LOG.STRING(g_level_statement,
7585: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7586: 'det_factor_templ_code: ' || p_det_factor_templ_code ||
7587: ', condition group code: ' || p_condition_group_code ||
7588: ', trx_line_index: ' || p_trx_line_index ||
7596: p_template_evaluated := FALSE;
7597: p_result := FALSE;
7598:
7599: IF (g_level_statement >= g_current_runtime_level ) THEN
7600: FND_LOG.STRING(g_level_statement,
7601: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7602: 'Results in condition_group tbl: ' || to_char(l_count));
7603: END IF;
7604:
7615: l_check_condition_group_tbl(j).tax_event_class_code =
7616: p_event_class_rec.tax_event_class_code) THEN
7617:
7618: IF (g_level_statement >= g_current_runtime_level ) THEN
7619: FND_LOG.STRING(g_level_statement,
7620: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7621: l_check_condition_group_tbl(j).condition_group_code ||
7622: ' was evaluated before');
7623: END IF;
7637:
7638: END LOOP;
7639:
7640: IF (g_level_procedure >= g_current_runtime_level ) THEN
7641: FND_LOG.STRING(g_level_procedure,
7642: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result.END',
7643: 'ZX_TDS_RULE_BASE_DETM_PVT: check_condition_group_result(-)');
7644: END IF;
7645:
7645:
7646: EXCEPTION
7647: WHEN OTHERS THEN
7648: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7649: FND_LOG.STRING(g_level_unexpected,
7650: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7651: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7652: END IF;
7653:
7679:
7680: BEGIN
7681:
7682: IF (g_level_procedure >= g_current_runtime_level ) THEN
7683: FND_LOG.STRING(g_level_procedure,
7684: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result.BEGIN',
7685: 'ZX_TDS_RULE_BASE_DETM_PVT: insert_condition_group_result(+)');
7686: END IF;
7687:
7698: ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl(i) := l_check_condition_group_rec;
7699:
7700:
7701: IF (g_level_procedure >= g_current_runtime_level ) THEN
7702: FND_LOG.STRING(g_level_procedure,
7703: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result.END',
7704: 'ZX_TDS_RULE_BASE_DETM_PVT: insert_condition_group_result(-)');
7705: END IF;
7706:
7707: EXCEPTION
7708: WHEN OTHERS THEN
7709:
7710: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7711: FND_LOG.STRING(g_level_unexpected,
7712: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result',
7713: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7714: END IF;
7715:
7782:
7783: BEGIN
7784:
7785: IF (g_level_procedure >= g_current_runtime_level ) THEN
7786: FND_LOG.STRING(g_level_procedure,
7787: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter.BEGIN',
7788: 'ZX_TDS_RULE_BASE_DETM_PVT: check_templ_tax_parameter(+)');
7789: END IF;
7790:
7813: --parameter is not supported by the application; hence return FALSE
7814: --
7815: IF (chk_taxevnt_parameter_code_csr%found) THEN
7816: IF (g_level_statement >= g_current_runtime_level ) THEN
7817: FND_LOG.STRING(g_level_statement,
7818: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter',
7819: 'chk_taxevnt_parameter_code_csr row count '
7820: ||to_char(chk_taxevnt_parameter_code_csr%rowcount) ||
7821: ', Parameter ' || l_evnt_cls_parameter_code || ' FOUND for Template '
7842: CLOSE chk_taxevnt_parameter_code_csr;
7843: END IF;
7844:
7845: IF (g_level_procedure >= g_current_runtime_level ) THEN
7846: FND_LOG.STRING(g_level_procedure,
7847: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter.END',
7848: 'ZX_TDS_RULE_BASE_DETM_PVT: check_templ_tax_parameter(-)');
7849: END IF;
7850: EXCEPTION
7852: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7853: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7854:
7855: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7856: FND_LOG.STRING(g_level_unexpected,
7857: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter',
7858: p_error_buffer);
7859: END IF;
7860:
7905:
7906: BEGIN
7907:
7908: IF (g_level_procedure >= g_current_runtime_level ) THEN
7909: FND_LOG.STRING(g_level_procedure,
7910: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography.BEGIN',
7911: 'ZX_TDS_RULE_BASE_DETM_PVT: check_rule_geography(+)');
7912: END IF;
7913:
7926: p_return_status,
7927: p_error_buffer);
7928:
7929: IF (g_level_statement >= g_current_runtime_level ) THEN
7930: FND_LOG.STRING(g_level_statement,
7931: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7932: p_rule_det_factor_cq || '_' || 'LOCATION_ID = '||to_char(l_location_id));
7933: END IF;
7934:
7945: IF l_geography_id = p_rule_geography_id then
7946: p_valid:=TRUE;
7947:
7948: IF (g_level_statement >= g_current_runtime_level ) THEN
7949: FND_LOG.STRING(g_level_statement,
7950: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7951: 'p_valid = TRUE ');
7952: END IF;
7953:
7955: END IF;
7956:
7957:
7958: IF (g_level_statement >= g_current_runtime_level ) THEN
7959: FND_LOG.STRING(g_level_statement,
7960: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7961: 'p_rule_geography_id=' || to_char(p_rule_geography_id)||
7962: ', l_geography_id=' || to_char(l_geography_id) ||
7963: ', l_geography_code=' || l_geography_code ||
7973: l_cache_geo_type := ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.geography_type(i);
7974: l_cache_geo_id := ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.geography_id(i);
7975:
7976: IF (g_level_statement >= g_current_runtime_level ) THEN
7977: FND_LOG.STRING(g_level_statement,
7978: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7979: 'l_cache_evt_cls_map_id=' || to_char(l_cache_evt_cls_map_id) ||
7980: ', l_cache_trx_id=' || to_char(l_cache_trx_id) ||
7981: ', l_cache_trx_line_id=' || to_char(l_cache_trx_line_id) ||
7993: END LOOP;
7994: */
7995:
7996: IF (g_level_procedure >= g_current_runtime_level ) THEN
7997: FND_LOG.STRING(g_level_procedure,
7998: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography.END',
7999: 'ZX_TDS_RULE_BASE_DETM_PVT: check_rule_geography(-)');
8000: END IF;
8001: EXCEPTION
8003: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8004: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
8005:
8006: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8007: FND_LOG.STRING(g_level_unexpected,
8008: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
8009: p_error_buffer);
8010: END IF;
8011:
8034: /* Bug 5003413 : Added a delimiter to avoid concatenation of two strings
8035: resulting into same output string */
8036: BEGIN
8037:
8038: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8039:
8040: IF (g_level_statement >= g_current_runtime_level ) THEN
8041: FND_LOG.STRING(g_level_statement,
8042: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index.BEGIN',
8037:
8038: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8039:
8040: IF (g_level_statement >= g_current_runtime_level ) THEN
8041: FND_LOG.STRING(g_level_statement,
8042: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index.BEGIN',
8043: 'ZX_TDS_RULE_BASE_DETM_PVT: get_trx_value_index(+)');
8044: END IF;
8045:
8054: 1,
8055: 8192);
8056:
8057: IF (g_level_statement >= g_current_runtime_level ) THEN
8058: FND_LOG.STRING(g_level_statement,
8059: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index.END',
8060: 'ZX_TDS_RULE_BASE_DETM_PVT: get_trx_value_index(-)');
8061: END IF;
8062:
8065: EXCEPTION
8066: WHEN OTHERS THEN
8067:
8068: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8069: FND_LOG.STRING(g_level_unexpected,
8070: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index',
8071: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
8072: END IF;
8073:
8106:
8107: BEGIN
8108:
8109: IF (g_level_procedure >= g_current_runtime_level ) THEN
8110: FND_LOG.STRING(g_level_procedure,
8111: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.BEGIN',
8112: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(+)');
8113: IF (g_level_statement >= g_current_runtime_level ) THEN
8114: FND_LOG.STRING(g_level_statement,
8110: FND_LOG.STRING(g_level_procedure,
8111: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.BEGIN',
8112: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(+)');
8113: IF (g_level_statement >= g_current_runtime_level ) THEN
8114: FND_LOG.STRING(g_level_statement,
8115: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition',
8116: 'p_Operator_Code: ' || p_operator_code ||
8117: ', p_condition_value:' || p_condition_value ||
8118: ', p_trx_value: ' || p_trx_value ||
8187:
8188: FOR i IN REVERSE 1 .. l_num_segments_trx LOOP
8189: l_result := TRUE;
8190: IF (g_level_statement >= g_current_runtime_level ) THEN
8191: FND_LOG.STRING(g_level_statement,
8192: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.BEGIN',
8193: 'TRX-ACC-SEG-' ||i||' = '|| l_segments_trx(i)||', '||
8194: 'ACC-LOW-SEG-' ||i||' = '|| l_segments_low(i)||', '||
8195: 'ACC-HIGH-SEG-'||i||' = '|| l_segments_high(i));
8234: -- invalid Operator_Code
8235: --
8236:
8237: IF (g_level_statement >= g_current_runtime_level ) THEN
8238: FND_LOG.STRING(g_level_statement,
8239: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition',
8240: 'Invalid Operator_Code for alphanumeric data type');
8241: END IF;
8242:
8243: RETURN FALSE;
8244: END IF;
8245:
8246: IF (g_level_procedure >= g_current_runtime_level ) THEN
8247: FND_LOG.STRING(g_level_procedure,
8248: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.END',
8249: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(-)');
8250: END IF;
8251:
8252: EXCEPTION
8253: WHEN OTHERS THEN
8254:
8255: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8256: FND_LOG.STRING(g_level_unexpected,
8257: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition',
8258: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
8259: END IF;
8260:
8276: RETURN BOOLEAN IS
8277: BEGIN
8278:
8279: IF (g_level_procedure >= g_current_runtime_level ) THEN
8280: FND_LOG.STRING(g_level_procedure,
8281: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.BEGIN',
8282: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(+)');
8283: IF (g_level_statement >= g_current_runtime_level ) THEN
8284: FND_LOG.STRING(g_level_statement,
8280: FND_LOG.STRING(g_level_procedure,
8281: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.BEGIN',
8282: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(+)');
8283: IF (g_level_statement >= g_current_runtime_level ) THEN
8284: FND_LOG.STRING(g_level_statement,
8285: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
8286: 'p_Operator_Code: ' || p_operator_code ||
8287: ', p_condition_value: ' || to_char(p_condition_value) ||
8288: ', p_trx_value: ' || to_char(p_trx_value));
8348: -- invalid Operator_Code
8349: --
8350:
8351: IF (g_level_procedure >= g_current_runtime_level ) THEN
8352: FND_LOG.STRING(g_level_procedure,
8353: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
8354: 'Invalid Operator_Code for numeric data type');
8355: END IF;
8356:
8357: RETURN FALSE;
8358: END IF;
8359:
8360: IF (g_level_procedure >= g_current_runtime_level ) THEN
8361: FND_LOG.STRING(g_level_procedure,
8362: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.END',
8363: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(-)');
8364: END IF;
8365:
8365:
8366: EXCEPTION
8367: WHEN OTHERS THEN
8368: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8369: FND_LOG.STRING(g_level_unexpected,
8370: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
8371: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
8372: END IF;
8373:
8391: l_trx_value ZX_CONDITIONS.DATE_VALUE%TYPE;
8392: BEGIN
8393:
8394: IF (g_level_procedure >= g_current_runtime_level ) THEN
8395: FND_LOG.STRING(g_level_procedure,
8396: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.BEGIN',
8397: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(+)');
8398: IF (g_level_statement >= g_current_runtime_level ) THEN
8399: FND_LOG.STRING(g_level_statement,
8395: FND_LOG.STRING(g_level_procedure,
8396: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.BEGIN',
8397: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(+)');
8398: IF (g_level_statement >= g_current_runtime_level ) THEN
8399: FND_LOG.STRING(g_level_statement,
8400: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
8401: 'p_Operator_Code: ' || p_operator_code ||
8402: ', p_condition_value: ' || to_char(p_condition_value, 'DD-MON-YY') ||
8403: ', p_trx_value: ' || to_char(p_trx_value, 'DD-MON-YY'));
8465: --
8466: -- invalid Operator_Code
8467: --
8468: IF (g_level_procedure >= g_current_runtime_level ) THEN
8469: FND_LOG.STRING(g_level_procedure,
8470: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
8471: 'Invalid Operator_Code for date data type');
8472: END IF;
8473:
8475: END IF;
8476:
8477:
8478: IF (g_level_procedure >= g_current_runtime_level ) THEN
8479: FND_LOG.STRING(g_level_procedure,
8480: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.END',
8481: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(-)');
8482: END IF;
8483:
8484: EXCEPTION
8485: WHEN OTHERS THEN
8486:
8487: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8488: FND_LOG.STRING(g_level_unexpected,
8489: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
8490: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
8491: END IF;
8492: