[Home] [Help]
1: package body ZX_TDS_RULE_BASE_DETM_PVT as
2: /* $Header: zxdirulenginpvtb.pls 120.124.12010000.3 2008/11/17 23:42:56 tsen ship $ */
3:
4:
5: PROCEDURE get_tsrm_parameter_value(
416:
417: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
418: IF (g_level_procedure >= g_current_runtime_level ) THEN
419: FND_LOG.STRING(g_level_procedure,
420: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.BEGIN',
421: 'ZX_TDS_RULE_BASE_DETM_PVT: init_cec_params (+)');
422: END IF;
423:
424: p_return_status := FND_API.G_RET_STS_SUCCESS;
417: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
418: IF (g_level_procedure >= g_current_runtime_level ) THEN
419: FND_LOG.STRING(g_level_procedure,
420: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.BEGIN',
421: 'ZX_TDS_RULE_BASE_DETM_PVT: init_cec_params (+)');
422: END IF;
423:
424: p_return_status := FND_API.G_RET_STS_SUCCESS;
425:
583: p_return_status);
584:
585: IF (g_level_procedure >= g_current_runtime_level ) THEN
586: FND_LOG.STRING(g_level_procedure,
587: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.END',
588: 'ZX_TDS_RULE_BASE_DETM_PVT: init_cec_params (-)');
589: END IF;
590: EXCEPTION
591: WHEN OTHERS THEN
584:
585: IF (g_level_procedure >= g_current_runtime_level ) THEN
586: FND_LOG.STRING(g_level_procedure,
587: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_cec_params.END',
588: 'ZX_TDS_RULE_BASE_DETM_PVT: init_cec_params (-)');
589: END IF;
590: EXCEPTION
591: WHEN OTHERS THEN
592: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
594:
595: IF (g_level_unexpected >= g_current_runtime_level ) THEN
596: FND_LOG.STRING(g_level_unexpected,
597: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.END',
598: p_error_buffer);
599: END IF;
600:
601: END init_cec_params;
786: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
787:
788: IF (g_level_procedure >= g_current_runtime_level ) THEN
789: FND_LOG.STRING(g_level_procedure,
790: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.BEGIN',
791: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(+)');
792: END IF;
793:
794: IF (g_level_statement >= g_current_runtime_level ) THEN
787:
788: IF (g_level_procedure >= g_current_runtime_level ) THEN
789: FND_LOG.STRING(g_level_procedure,
790: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.BEGIN',
791: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(+)');
792: END IF;
793:
794: IF (g_level_statement >= g_current_runtime_level ) THEN
795: FND_LOG.STRING(g_level_statement,
792: END IF;
793:
794: IF (g_level_statement >= g_current_runtime_level ) THEN
795: FND_LOG.STRING(g_level_statement,
796: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
797: 'p_service_type_code: ' || p_service_type_code ||
798: ', p_tax_id: ' || to_char(p_tax_id)||
799: ', p_tax_status_code: ' || p_tax_status_code ||
800: ', p_recovery_type_code: ' || p_recovery_type_code ||
815: p_error_buffer := 'Tax status code can not be null for Rate Determination';
816:
817: IF (g_level_error >= g_current_runtime_level ) THEN
818: FND_LOG.STRING(g_level_error,
819: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
820: 'p_return_status = ' || p_return_status ||
821: ', p_error_buffer = ' || p_error_buffer);
822: END IF;
823:
830: p_error_buffer := 'Recovery type can not be null for DET_RECOVERY_RATE';
831:
832: IF (g_level_error >= g_current_runtime_level ) THEN
833: FND_LOG.STRING(g_level_error,
834: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
835: 'p_return_status = ' || p_return_status ||
836: ', p_error_buffer = ' || p_error_buffer);
837: END IF;
838:
852:
853: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
854: IF (g_level_statement >= g_current_runtime_level ) THEN
855: FND_LOG.STRING(g_level_statement,
856: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
857: 'p_return_status = ' || p_return_status ||
858: ', p_error_buffer = ' || p_error_buffer);
859: END IF;
860: RETURN;
889: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_found)THEN
890: -- return to caller if error occurs or success with a result
891: IF (g_level_error >= g_current_runtime_level ) THEN
892: FND_LOG.STRING(g_level_error,
893: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
894: 'Incorrect return_status after call process_rule_code() OR l_found is true.'||
895: ', return_status: '|| p_return_status);
896: END IF;
897:
944: CLOSE get_det_factor_templ_csr_a;
945:
946: IF (g_level_error >= g_current_runtime_level ) THEN
947: FND_LOG.STRING(g_level_error,
948: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
949: 'Incorrect return_status after call proc_det_factor_templ().' ||
950: ', return_status: '|| p_return_status);
951: END IF;
952:
956: IF (get_det_factor_templ_csr_a%notfound OR l_found) THEN
957:
958: IF (g_level_statement >= g_current_runtime_level ) THEN
959: FND_LOG.STRING(g_level_statement,
960: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
961: 'get_det_factor_templ_csr row count '
962: ||to_char(get_det_factor_templ_csr_a%rowcount));
963: END IF;
964: CLOSE get_det_factor_templ_csr_a;
1015: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1016: CLOSE get_det_factor_templ_csr_b;
1017: IF (g_level_error >= g_current_runtime_level ) THEN
1018: FND_LOG.STRING(g_level_error,
1019: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1020: 'Incorrect return_status after call proc_det_factor_templ().' ||
1021: ', return_status: '|| p_return_status);
1022: END IF;
1023:
1027: IF (get_det_factor_templ_csr_b%notfound OR l_found) THEN
1028:
1029: IF (g_level_statement >= g_current_runtime_level ) THEN
1030: FND_LOG.STRING(g_level_statement,
1031: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1032: 'get_det_factor_templ_csr row count '
1033: ||to_char(get_det_factor_templ_csr_b%rowcount));
1034: END IF;
1035: CLOSE get_det_factor_templ_csr_b;
1063: /* Bug 4017396 - included the check for p_return_status*/
1064: IF ( p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1065: IF (g_level_error >= g_current_runtime_level ) THEN
1066: FND_LOG.STRING(g_level_error,
1067: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1068: 'p_return_status = ' || p_return_status ||
1069: ', p_error_buffer = ' || p_error_buffer);
1070:
1071: END IF;
1103: CLOSE get_regime_code_csr;
1104:
1105: IF (g_level_error >= g_current_runtime_level ) THEN
1106: FND_LOG.STRING(g_level_error,
1107: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1108: 'Incorrect return_status after call get_rule_from_regime_hier().'||
1109: ', return_status: '|| p_return_status);
1110: END IF;
1111:
1114: IF (get_regime_code_csr%notfound OR l_found) THEN
1115:
1116: IF (g_level_statement >= g_current_runtime_level ) THEN
1117: FND_LOG.STRING(g_level_statement,
1118: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1119: 'get_regime_code_csr row count '||
1120: to_char(get_regime_code_csr%rowcount));
1121: END IF;
1122: CLOSE get_regime_code_csr;
1134: */
1135:
1136: IF (g_level_procedure >= g_current_runtime_level ) THEN
1137: FND_LOG.STRING(g_level_procedure,
1138: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1139: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1140: FND_LOG.STRING(g_level_procedure,
1141: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.END',
1142: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(-)' ||
1137: FND_LOG.STRING(g_level_procedure,
1138: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1139: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1140: FND_LOG.STRING(g_level_procedure,
1141: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.END',
1142: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(-)' ||
1143: ', p_return_status = ' || p_return_status ||
1144: ', p_error_buffer = ' || p_error_buffer);
1145: END IF;
1138: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1139: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1140: FND_LOG.STRING(g_level_procedure,
1141: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process.END',
1142: 'ZX_TDS_RULE_BASE_DETM_PVT: rule_base_process(-)' ||
1143: ', p_return_status = ' || p_return_status ||
1144: ', p_error_buffer = ' || p_error_buffer);
1145: END IF;
1146:
1157: END IF;
1158:
1159: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1160: FND_LOG.STRING(g_level_unexpected,
1161: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
1162: p_error_buffer);
1163: END IF;
1164:
1165: END rule_base_process;
1257: BEGIN
1258: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1259: IF (g_level_procedure >= g_current_runtime_level ) THEN
1260: FND_LOG.STRING(g_level_procedure,
1261: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.BEGIN',
1262: 'ZX_TDS_RULE_BASE_DETM_PVT: process_rule_code(+)');
1263: END IF;
1264:
1265: p_return_status := FND_API.G_RET_STS_SUCCESS;
1258: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1259: IF (g_level_procedure >= g_current_runtime_level ) THEN
1260: FND_LOG.STRING(g_level_procedure,
1261: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.BEGIN',
1262: 'ZX_TDS_RULE_BASE_DETM_PVT: process_rule_code(+)');
1263: END IF;
1264:
1265: p_return_status := FND_API.G_RET_STS_SUCCESS;
1266:
1306: p_return_status := FND_API.G_RET_STS_ERROR;
1307: p_error_buffer := 'Invalid service type code for the tax rule code';
1308: IF (g_level_error >= g_current_runtime_level ) THEN
1309: FND_LOG.STRING(g_level_error,
1310: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1311: 'p_return_status = ' || p_return_status ||
1312: ', p_error_buffer = ' || p_error_buffer);
1313: END IF;
1314: RETURN;
1365: -- EXIT WHEN (p_found OR p_return_status <> FND_API.G_RET_STS_SUCCESS);
1366: END IF;
1367: IF (g_level_procedure >= g_current_runtime_level ) THEN
1368: FND_LOG.STRING(g_level_procedure,
1369: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1370: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1371: FND_LOG.STRING(g_level_procedure,
1372: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.END',
1373: 'ZX_TDS_RULE_BASE_DETM_PVT: process_rule_code(-)');
1368: FND_LOG.STRING(g_level_procedure,
1369: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1370: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1371: FND_LOG.STRING(g_level_procedure,
1372: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.END',
1373: 'ZX_TDS_RULE_BASE_DETM_PVT: process_rule_code(-)');
1374: END IF;
1375:
1376: EXCEPTION
1369: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1370: 'alphanumeric_result: ' || p_zx_result_rec.alphanumeric_result);
1371: FND_LOG.STRING(g_level_procedure,
1372: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code.END',
1373: 'ZX_TDS_RULE_BASE_DETM_PVT: process_rule_code(-)');
1374: END IF;
1375:
1376: EXCEPTION
1377: WHEN OTHERS THEN
1382: END IF;
1383:
1384: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1385: FND_LOG.STRING(g_level_unexpected,
1386: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_rule_code',
1387: p_error_buffer);
1388: END IF;
1389:
1390: END process_rule_code;
1541:
1542: /*Bug fix 4017396*/
1543: IF (g_level_procedure >= g_current_runtime_level ) THEN
1544: FND_LOG.STRING(g_level_procedure,
1545: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ.BEGIN',
1546: 'ZX_TDS_RULE_BASE_DETM_PVT: fetch_proc_det_factor_templ(+)');
1547: END IF;
1548:
1549: IF (g_level_statement >= g_current_runtime_level ) THEN
1542: /*Bug fix 4017396*/
1543: IF (g_level_procedure >= g_current_runtime_level ) THEN
1544: FND_LOG.STRING(g_level_procedure,
1545: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ.BEGIN',
1546: 'ZX_TDS_RULE_BASE_DETM_PVT: fetch_proc_det_factor_templ(+)');
1547: END IF;
1548:
1549: IF (g_level_statement >= g_current_runtime_level ) THEN
1550: FND_LOG.STRING(g_level_statement,
1547: END IF;
1548:
1549: IF (g_level_statement >= g_current_runtime_level ) THEN
1550: FND_LOG.STRING(g_level_statement,
1551: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1552: 'source_event_class_mapping_id : ' ||
1553: TO_CHAR(p_event_class_rec.source_event_class_mapping_id) ||
1554: ', source_tax_event_class_code: ' ||
1555: p_event_class_rec.source_tax_event_class_code ||
1574:
1575: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1576: IF (g_level_error >= g_current_runtime_level ) THEN
1577: FND_LOG.STRING(g_level_error,
1578: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1579: 'Incorrect return_status after call get_tsrm_alphanum_value().'||
1580: ', Return_status: '|| p_return_status);
1581: END IF;
1582: RETURN;
1587: IF l_source_event_class_code = 'INTERCOMPANY_TRX' THEN
1588:
1589: IF (g_level_statement >= g_current_runtime_level ) THEN
1590: FND_LOG.STRING(g_level_statement,
1591: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1592: 'for intercompany trx, skip rules for the source event class and source tax event class');
1593: END IF;
1594: ELSE
1595:
1641: CLOSE get_det_factor_templ_csr_c;
1642:
1643: IF (g_level_error >= g_current_runtime_level ) THEN
1644: FND_LOG.STRING(g_level_error,
1645: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1646: 'Incorrect return_status after call proc_det_factor_templ().'||
1647: ', Return_status: '|| p_return_status);
1648: END IF;
1649:
1652:
1653: IF (get_det_factor_templ_csr_c%NOTFOUND OR p_found) THEN
1654: IF (g_level_statement >= g_current_runtime_level ) THEN
1655: FND_LOG.STRING(g_level_statement,
1656: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1657: 'get_det_factor_templ_csr_c row count ' ||
1658: TO_CHAR(get_det_factor_templ_csr_c%rowcount));
1659: END IF;
1660: CLOSE get_det_factor_templ_csr_c;
1712: CLOSE get_det_factor_templ_csr_d;
1713:
1714: IF (g_level_error >= g_current_runtime_level ) THEN
1715: FND_LOG.STRING(g_level_error,
1716: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1717: 'Incorrect return_status after call proc_det_factor_templ().'||
1718: ', Return_status: '|| p_return_status);
1719: END IF;
1720:
1723:
1724: IF (get_det_factor_templ_csr_d%NOTFOUND OR p_found) THEN
1725: IF (g_level_statement >= g_current_runtime_level ) THEN
1726: FND_LOG.STRING(g_level_statement,
1727: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1728: 'get_det_factor_templ_csr_d row count ' ||
1729: TO_CHAR(get_det_factor_templ_csr_d%rowcount));
1730: END IF;
1731: CLOSE get_det_factor_templ_csr_d;
1791: CLOSE get_det_factor_templ_csr_e;
1792:
1793: IF (g_level_error >= g_current_runtime_level ) THEN
1794: FND_LOG.STRING(g_level_error,
1795: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1796: 'Incorrect return_status after call proc_det_factor_templ().'||
1797: ', Return_status: '|| p_return_status);
1798: END IF;
1799:
1802:
1803: IF (get_det_factor_templ_csr_e%NOTFOUND OR p_found) THEN
1804: IF (g_level_statement >= g_current_runtime_level ) THEN
1805: FND_LOG.STRING(g_level_statement,
1806: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1807: 'get_det_factor_templ_csr_e row count ' ||
1808: TO_CHAR(get_det_factor_templ_csr_e%rowcount));
1809: END IF;
1810: CLOSE get_det_factor_templ_csr_e;
1820: END IF; -- process of current event mapping and tax event class code
1821:
1822: IF (g_level_procedure >= g_current_runtime_level ) THEN
1823: FND_LOG.STRING(g_level_procedure,
1824: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ.END',
1825: 'ZX_TDS_RULE_BASE_DETM_PVT: fetch_proc_det_factor_templ(-)' ||
1826: ', p_return_status = ' || p_return_status ||
1827: ', p_error_buffer = ' || p_error_buffer);
1828: END IF;
1821:
1822: IF (g_level_procedure >= g_current_runtime_level ) THEN
1823: FND_LOG.STRING(g_level_procedure,
1824: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ.END',
1825: 'ZX_TDS_RULE_BASE_DETM_PVT: fetch_proc_det_factor_templ(-)' ||
1826: ', p_return_status = ' || p_return_status ||
1827: ', p_error_buffer = ' || p_error_buffer);
1828: END IF;
1829:
1840: END IF;
1841:
1842: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1843: FND_LOG.STRING(g_level_unexpected,
1844: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1845: p_error_buffer);
1846: END IF;
1847:
1848: END FETCH_PROC_DET_FACTOR_TEMPL;
1923: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1924:
1925: IF (g_level_procedure >= g_current_runtime_level ) THEN
1926: FND_LOG.STRING(g_level_procedure,
1927: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier.BEGIN',
1928: 'ZX_TDS_RULE_BASE_DETM_PVT: get_rule_from_regime_hier(+)');
1929: END IF;
1930:
1931: p_return_status := FND_API.G_RET_STS_SUCCESS;
1924:
1925: IF (g_level_procedure >= g_current_runtime_level ) THEN
1926: FND_LOG.STRING(g_level_procedure,
1927: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier.BEGIN',
1928: 'ZX_TDS_RULE_BASE_DETM_PVT: get_rule_from_regime_hier(+)');
1929: END IF;
1930:
1931: p_return_status := FND_API.G_RET_STS_SUCCESS;
1932:
1933: l_count := p_parent_regime_cd_tbl.count;
1934:
1935: IF (g_level_statement >= g_current_runtime_level ) THEN
1936: FND_LOG.STRING(g_level_statement,
1937: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier',
1938: 'parent regime count: ' || to_char(l_count));
1939: END IF;
1940:
1941: FOR i IN 1.. l_count LOOP
1941: FOR i IN 1.. l_count LOOP
1942:
1943: IF (g_level_statement >= g_current_runtime_level ) THEN
1944: FND_LOG.STRING(g_level_statement,
1945: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier',
1946: 'parent regime: ' || p_parent_regime_cd_tbl(i));
1947: END IF;
1948:
1949: --
1992: CLOSE get_templ_from_regime_hier_csr;
1993:
1994: IF (g_level_error >= g_current_runtime_level ) THEN
1995: FND_LOG.STRING(g_level_error,
1996: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
1997: 'Incorrect return_status after call proc_det_factor_templ().'||
1998: ', Return_status: '|| p_return_status);
1999: END IF;
2000:
2005: CLOSE get_templ_from_regime_hier_csr;
2006:
2007: IF (g_level_error >= g_current_runtime_level ) THEN
2008: FND_LOG.STRING(g_level_error,
2009: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.fetch_proc_det_factor_templ',
2010: 'Incorrect return_status after call proc_det_factor_templ().' ||
2011: ', Return_status: '|| p_return_status);
2012: END IF;
2013:
2024: END LOOP;
2025:
2026: IF (g_level_procedure >= g_current_runtime_level ) THEN
2027: FND_LOG.STRING(g_level_procedure,
2028: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier.END',
2029: 'ZX_TDS_RULE_BASE_DETM_PVT: get_rule_from_regime_hier(-)' ||
2030: ', p_return_status = ' || p_return_status ||
2031: ', p_error_buffer = ' || p_error_buffer);
2032: END IF;
2025:
2026: IF (g_level_procedure >= g_current_runtime_level ) THEN
2027: FND_LOG.STRING(g_level_procedure,
2028: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier.END',
2029: 'ZX_TDS_RULE_BASE_DETM_PVT: get_rule_from_regime_hier(-)' ||
2030: ', p_return_status = ' || p_return_status ||
2031: ', p_error_buffer = ' || p_error_buffer);
2032: END IF;
2033:
2040: END IF;
2041:
2042: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2043: FND_LOG.STRING(g_level_unexpected,
2044: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_rule_from_regime_hier',
2045: p_error_buffer);
2046: END IF;
2047:
2048: END get_rule_from_regime_hier;
2089: BEGIN
2090: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2091: IF (g_level_procedure >= g_current_runtime_level ) THEN
2092: FND_LOG.STRING(g_level_procedure,
2093: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ.BEGIN',
2094: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_det_factor_templ(+)');
2095: END IF;
2096:
2097: p_return_status := FND_API.G_RET_STS_SUCCESS;
2090: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2091: IF (g_level_procedure >= g_current_runtime_level ) THEN
2092: FND_LOG.STRING(g_level_procedure,
2093: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ.BEGIN',
2094: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_det_factor_templ(+)');
2095: END IF;
2096:
2097: p_return_status := FND_API.G_RET_STS_SUCCESS;
2098: l_valid := TRUE;
2100: l_count := p_det_factor_templ_cd_tbl.count;
2101:
2102: IF (g_level_statement >= g_current_runtime_level ) THEN
2103: FND_LOG.STRING(g_level_statement,
2104: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2105: 'determining factor template count: ' || to_char(l_count));
2106: END IF;
2107:
2108:
2117: l_rule_geography_id := p_rule_geography_id_tbl(i);
2118:
2119: IF (g_level_statement >= g_current_runtime_level ) THEN
2120: FND_LOG.STRING(g_level_statement,
2121: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2122: 'l_rule_det_factor_cq: '||l_rule_det_factor_cq ||
2123: ', l_rule_geography_type: '||l_rule_geography_type ||
2124: ', l_rule_geography_id:'||l_rule_geography_id);
2125: END IF;
2141:
2142: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2143: IF g_level_error >= g_current_runtime_level THEN
2144: FND_LOG.STRING(g_level_error,
2145: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2146: ' check_rule_geography returned Error');
2147: END IF;
2148: RETURN;
2149: END IF;
2160: l_det_factor_templ_code := p_det_factor_templ_cd_tbl(i);
2161:
2162: IF (g_level_statement >= g_current_runtime_level ) THEN
2163: FND_LOG.STRING(g_level_statement,
2164: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2165: 'l_det_factor_templ_code: '||l_det_factor_templ_code);
2166: END IF;
2167:
2168:
2221: END LOOP;
2222:
2223: IF (g_level_procedure >= g_current_runtime_level ) THEN
2224: FND_LOG.STRING(g_level_procedure,
2225: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ.END',
2226: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_det_factor_templ(-)');
2227: END IF;
2228:
2229: EXCEPTION
2222:
2223: IF (g_level_procedure >= g_current_runtime_level ) THEN
2224: FND_LOG.STRING(g_level_procedure,
2225: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ.END',
2226: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_det_factor_templ(-)');
2227: END IF;
2228:
2229: EXCEPTION
2230: WHEN OTHERS THEN
2232: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2233:
2234: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2235: FND_LOG.STRING(g_level_unexpected,
2236: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_det_factor_templ',
2237: p_error_buffer);
2238: END IF;
2239:
2240: END proc_det_factor_templ;
2459: BEGIN
2460: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2461: IF (g_level_procedure >= g_current_runtime_level ) THEN
2462: FND_LOG.STRING(g_level_procedure,
2463: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ.BEGIN',
2464: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_condition_group_per_templ(+)');
2465: END IF;
2466:
2467: p_return_status := FND_API.G_RET_STS_SUCCESS;
2460: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2461: IF (g_level_procedure >= g_current_runtime_level ) THEN
2462: FND_LOG.STRING(g_level_procedure,
2463: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ.BEGIN',
2464: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_condition_group_per_templ(+)');
2465: END IF;
2466:
2467: p_return_status := FND_API.G_RET_STS_SUCCESS;
2468: l_constraint_result := FALSE;
2605: l_counter := l_condition_group_code_tbl.count;
2606:
2607: IF (g_level_statement >= g_current_runtime_level ) THEN
2608: FND_LOG.STRING(g_level_statement,
2609: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2610: 'condition group count: ' || to_char(l_counter));
2611: END IF;
2612:
2613: FOR j IN 1..l_counter LOOP
2678: if upper(l_action_rec_tbl(i).action_code) in ('ERROR_MESSAGE','SYSTEM_ERROR') then
2679: p_return_status := FND_API.G_RET_STS_ERROR;
2680: IF (g_level_error >= g_current_runtime_level ) THEN
2681: FND_LOG.STRING(g_level_error,
2682: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2683: 'Action_code is ERROR_MESSAGE or SYSTEM_ERROR');
2684: END IF;
2685: app_exception.raise_exception;
2686: elsif upper(l_action_rec_tbl(i).action_code) = 'DO_NOT_USE_THIS_TAX_GROUP' then
2709:
2710: -- check if there are too many conditions.
2711: IF (g_level_statement >= g_current_runtime_level ) THEN
2712: FND_LOG.STRING(g_level_statement,
2713: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2714: 'more_than10 ? ' ||l_more_than10_tbl(j));
2715: END IF;
2716:
2717: IF (l_more_than10_tbl(j) = 'Y') THEN
2904: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2905: CLOSE get_condition_group_codes_csr;
2906: IF (g_level_error >= g_current_runtime_level ) THEN
2907: FND_LOG.STRING(g_level_error,
2908: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2909: 'Incorrect return_status after calling process_set_condition() ' ||
2910: ', p_return_status = ' || p_return_status);
2911: END IF;
2912:
2950: IF (get_condition_group_codes_csr%notfound OR p_result) THEN
2951: CLOSE get_condition_group_codes_csr;
2952: IF (g_level_statement >= g_current_runtime_level ) THEN
2953: FND_LOG.STRING(g_level_statement,
2954: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2955: 'No condition group found for the determing factor template: ' ||
2956: p_det_factor_templ_code ||
2957: ', or condition group evaluated to be true.');
2958: END IF;
2967: END IF;
2968:
2969: IF (g_level_procedure >= g_current_runtime_level ) THEN
2970: FND_LOG.STRING(g_level_procedure,
2971: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ.END',
2972: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_condition_group_per_templ(-)' ||
2973: ', p_return_status = ' || p_return_status ||
2974: ', p_error_buffer = ' || p_error_buffer);
2975: END IF;
2968:
2969: IF (g_level_procedure >= g_current_runtime_level ) THEN
2970: FND_LOG.STRING(g_level_procedure,
2971: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ.END',
2972: 'ZX_TDS_RULE_BASE_DETM_PVT: proc_condition_group_per_templ(-)' ||
2973: ', p_return_status = ' || p_return_status ||
2974: ', p_error_buffer = ' || p_error_buffer);
2975: END IF;
2976:
2982: CLOSE get_condition_group_codes_csr;
2983: END IF;
2984: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2985: FND_LOG.STRING(g_level_unexpected,
2986: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.proc_condition_group_per_templ',
2987: p_error_buffer);
2988: END IF;
2989:
2990: END proc_condition_group_per_templ;
3043: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3044:
3045: IF (g_level_procedure >= g_current_runtime_level ) THEN
3046: FND_LOG.STRING(g_level_procedure,
3047: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition.BEGIN',
3048: 'ZX_TDS_RULE_BASE_DETM_PVT: get_and_process_condition(+)');
3049:
3050: END IF;
3051:
3044:
3045: IF (g_level_procedure >= g_current_runtime_level ) THEN
3046: FND_LOG.STRING(g_level_procedure,
3047: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition.BEGIN',
3048: 'ZX_TDS_RULE_BASE_DETM_PVT: get_and_process_condition(+)');
3049:
3050: END IF;
3051:
3052: IF (g_level_statement >= g_current_runtime_level ) THEN
3050: END IF;
3051:
3052: IF (g_level_statement >= g_current_runtime_level ) THEN
3053: FND_LOG.STRING(g_level_statement,
3054: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3055: 'p_condition_group_code: ' || p_condition_group_code);
3056:
3057: END IF;
3058:
3096: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3097: CLOSE get_condition_csr;
3098: IF (g_level_error >= g_current_runtime_level ) THEN
3099: FND_LOG.STRING(g_level_error,
3100: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3101: 'conditions count: ' ||
3102: to_char(get_condition_csr%ROWCOUNT));
3103: END IF;
3104: RETURN;
3110: --
3111: IF (get_condition_csr%notfound OR NOT p_result) THEN
3112: IF (g_level_statement >= g_current_runtime_level ) THEN
3113: FND_LOG.STRING(g_level_statement,
3114: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3115: 'conditions count:' ||
3116: to_char(get_condition_csr%ROWCOUNT));
3117: END IF;
3118: CLOSE get_condition_csr;
3125: END IF;
3126:
3127: IF (g_level_procedure >= g_current_runtime_level ) THEN
3128: FND_LOG.STRING(g_level_procedure,
3129: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition.END',
3130: 'ZX_TDS_RULE_BASE_DETM_PVT: get_and_process_condition(-)');
3131: END IF;
3132:
3133: EXCEPTION
3126:
3127: IF (g_level_procedure >= g_current_runtime_level ) THEN
3128: FND_LOG.STRING(g_level_procedure,
3129: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition.END',
3130: 'ZX_TDS_RULE_BASE_DETM_PVT: get_and_process_condition(-)');
3131: END IF;
3132:
3133: EXCEPTION
3134: WHEN OTHERS THEN
3139: END IF;
3140:
3141: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3142: FND_LOG.STRING(g_level_unexpected,
3143: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_and_process_condition',
3144: p_error_buffer);
3145: END IF;
3146:
3147: END get_and_process_condition;
3177: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3178:
3179: IF (g_level_statement >= g_current_runtime_level ) THEN
3180: FND_LOG.STRING(g_level_statement,
3181: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info.BEGIN',
3182: 'ZX_TDS_RULE_BASE_DETM_PVT: get_set_info(+)');
3183: END IF;
3184:
3185: IF (g_level_statement >= g_current_runtime_level ) THEN
3178:
3179: IF (g_level_statement >= g_current_runtime_level ) THEN
3180: FND_LOG.STRING(g_level_statement,
3181: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info.BEGIN',
3182: 'ZX_TDS_RULE_BASE_DETM_PVT: get_set_info(+)');
3183: END IF;
3184:
3185: IF (g_level_statement >= g_current_runtime_level ) THEN
3186: FND_LOG.STRING(g_level_statement,
3183: END IF;
3184:
3185: IF (g_level_statement >= g_current_runtime_level ) THEN
3186: FND_LOG.STRING(g_level_statement,
3187: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info',
3188: 'p_index: ' || to_char(p_index) ||
3189: ', p_Det_Factor_Class_Code: ' || p_Det_Factor_Class_Code ||
3190: ', p_Determining_Factor_Cq_Code: ' || p_determining_factor_cq_code ||
3191: ', p_tax_parameter_code: ' || p_tax_parameter_code ||
3194: ', p_Operator_Code: ' || p_operator_code ||
3195: ', p_numeric_value: ' ||to_char(p_numeric_value) ||
3196: ', p_date_value: ' || to_char(p_date_value,'DD-MON-YY') );
3197: FND_LOG.STRING(g_level_statement,
3198: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info',
3199: 'p_alphanum_value: ' || p_alphanum_value ||
3200: ', p_value_low:' || to_char(p_value_low) ||
3201: ', p_value_high:' || to_char(p_value_high));
3202: END IF;
3216:
3217:
3218: IF (g_level_statement >= g_current_runtime_level ) THEN
3219: FND_LOG.STRING(g_level_statement,
3220: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info.END',
3221: 'ZX_TDS_RULE_BASE_DETM_PVT: get_set_info(-)');
3222: END IF;
3223:
3224: EXCEPTION
3217:
3218: IF (g_level_statement >= g_current_runtime_level ) THEN
3219: FND_LOG.STRING(g_level_statement,
3220: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_set_info.END',
3221: 'ZX_TDS_RULE_BASE_DETM_PVT: get_set_info(-)');
3222: END IF;
3223:
3224: EXCEPTION
3225: WHEN OTHERS THEN
3225: WHEN OTHERS THEN
3226:
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.get_set_info',
3230: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3231: END IF;
3232:
3233: END get_set_info;
3249: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3250:
3251: IF (g_level_statement >= g_current_runtime_level ) THEN
3252: FND_LOG.STRING(g_level_statement,
3253: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition.BEGIN',
3254: 'ZX_TDS_RULE_BASE_DETM_PVT: init_set_condition(+)');
3255: END IF;
3256:
3257: g_determining_factor_class_tbl.DELETE;
3250:
3251: IF (g_level_statement >= g_current_runtime_level ) THEN
3252: FND_LOG.STRING(g_level_statement,
3253: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition.BEGIN',
3254: 'ZX_TDS_RULE_BASE_DETM_PVT: init_set_condition(+)');
3255: END IF;
3256:
3257: g_determining_factor_class_tbl.DELETE;
3258: g_determining_factor_cq_tbl.DELETE;
3267: g_value_high_tbl.DELETE;
3268:
3269: IF (g_level_statement >= g_current_runtime_level ) THEN
3270: FND_LOG.STRING(g_level_statement,
3271: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition.END',
3272: 'ZX_TDS_RULE_BASE_DETM_PVT: init_set_condition(-)');
3273: END IF;
3274:
3275: EXCEPTION
3268:
3269: IF (g_level_statement >= g_current_runtime_level ) THEN
3270: FND_LOG.STRING(g_level_statement,
3271: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition.END',
3272: 'ZX_TDS_RULE_BASE_DETM_PVT: init_set_condition(-)');
3273: END IF;
3274:
3275: EXCEPTION
3276: WHEN OTHERS THEN
3275: EXCEPTION
3276: WHEN OTHERS THEN
3277: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3278: FND_LOG.STRING(g_level_unexpected,
3279: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.init_set_condition',
3280: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3281: END IF;
3282:
3283: END init_set_condition;
3324: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3325:
3326: IF (g_level_procedure >= g_current_runtime_level ) THEN
3327: FND_LOG.STRING(g_level_procedure,
3328: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition.BEGIN',
3329: 'ZX_TDS_RULE_BASE_DETM_PVT: process_set_condition(+)');
3330: END IF;
3331:
3332: p_return_status := FND_API.G_RET_STS_SUCCESS;
3325:
3326: IF (g_level_procedure >= g_current_runtime_level ) THEN
3327: FND_LOG.STRING(g_level_procedure,
3328: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition.BEGIN',
3329: 'ZX_TDS_RULE_BASE_DETM_PVT: process_set_condition(+)');
3330: END IF;
3331:
3332: p_return_status := FND_API.G_RET_STS_SUCCESS;
3333:
3334: l_count := g_determining_factor_code_tbl.count;
3335:
3336: IF (g_level_statement >= g_current_runtime_level ) THEN
3337: FND_LOG.STRING(g_level_statement,
3338: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3339: 'There are '||to_char(l_count)||' conditions');
3340: END IF;
3341:
3342: -- get the transaction value.
3346: l_Determining_Factor_Cq_Code := g_determining_factor_cq_tbl(k);
3347:
3348: IF (g_level_statement >= g_current_runtime_level ) THEN
3349: FND_LOG.STRING(g_level_statement,
3350: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3351: 'Determining_Factor_Cq_Code: ' || l_Determining_Factor_Cq_Code);
3352: END IF;
3353:
3354: IF g_determining_factor_class_tbl(k) = 'USER_DEFINED_GEOGRAPHY' THEN
3369: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3370:
3371: IF (g_level_error >= g_current_runtime_level ) THEN
3372: FND_LOG.STRING(g_level_error,
3373: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3374: 'Incorrect return_status after calling evaluate_trx_value_tbl(),'||
3375: ' did not get trx value');
3376: END IF;
3377:
3406: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3407:
3408: IF (g_level_error >= g_current_runtime_level ) THEN
3409: FND_LOG.STRING(g_level_error,
3410: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3411: 'Incorrect return_status after calling get_trx_value(),'||
3412: ' did not get trx value');
3413: END IF;
3414:
3447: l_Determining_Factor_Cq_Code := g_alphanum_value_tbl(k);
3448:
3449: IF (g_level_statement >= g_current_runtime_level ) THEN
3450: FND_LOG.STRING(g_level_statement,
3451: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3452: 'calling get_trx_value for CQ case' ||
3453: ', Determining_Factor_Cq_Code: ' || l_Determining_Factor_Cq_Code);
3454: END IF;
3455:
3473: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3474:
3475: IF (g_level_error >= g_current_runtime_level ) THEN
3476: FND_LOG.STRING(g_level_error,
3477: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3478: 'Incorrect return_status after calling get_trx_value(),' ||
3479: ' did not get trx value for CQ case ');
3480: END IF;
3481:
3516: -- If the result is false, the whole condition is false.
3517: IF ((NOT p_result) OR (p_result IS NULL))THEN
3518: IF (g_level_statement >= g_current_runtime_level ) THEN
3519: FND_LOG.STRING(g_level_statement,
3520: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3521: 'condition is false');
3522: END IF;
3523: EXIT; -- out of the condition loop
3524: END IF;
3526: END LOOP; -- condition_counter k;
3527:
3528: IF (g_level_procedure >= g_current_runtime_level ) THEN
3529: FND_LOG.STRING(g_level_procedure,
3530: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition.END',
3531: 'ZX_TDS_RULE_BASE_DETM_PVT: process_set_condition(-)' ||
3532: ', p_return_status = ' || p_return_status ||
3533: ', p_error_buffer = ' || p_error_buffer);
3534: END IF;
3527:
3528: IF (g_level_procedure >= g_current_runtime_level ) THEN
3529: FND_LOG.STRING(g_level_procedure,
3530: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition.END',
3531: 'ZX_TDS_RULE_BASE_DETM_PVT: process_set_condition(-)' ||
3532: ', p_return_status = ' || p_return_status ||
3533: ', p_error_buffer = ' || p_error_buffer);
3534: END IF;
3535:
3539: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3540:
3541: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3542: FND_LOG.STRING(g_level_unexpected,
3543: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_set_condition',
3544: p_error_buffer);
3545: END IF;
3546:
3547: END process_set_condition;
3583: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3584:
3585: IF (g_level_procedure >= g_current_runtime_level ) THEN
3586: FND_LOG.STRING(g_level_procedure,
3587: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value.BEGIN',
3588: 'ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value(+)');
3589: END IF;
3590:
3591: p_return_status := FND_API.G_RET_STS_SUCCESS;
3584:
3585: IF (g_level_procedure >= g_current_runtime_level ) THEN
3586: FND_LOG.STRING(g_level_procedure,
3587: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value.BEGIN',
3588: 'ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value(+)');
3589: END IF;
3590:
3591: p_return_status := FND_API.G_RET_STS_SUCCESS;
3592:
3593: i := p_condition_index;
3594:
3595: IF (g_level_statement >= g_current_runtime_level ) THEN
3596: FND_LOG.STRING(g_level_statement,
3597: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value',
3598: 'p_condition_index: '|| to_char(p_condition_index) ||
3599: ', g_determining_factor_class_tbl: ' || g_determining_factor_class_tbl(i));
3600: END IF;
3601:
3672: g_alphanum_value_tbl(i));
3673:
3674: IF (g_level_statement >= g_current_runtime_level ) THEN
3675: FND_LOG.STRING(g_level_statement,
3676: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value',
3677: 'cache index: ' || to_char(j));
3678: END IF;
3679:
3680: -- bug 6763074: comment out the code lines for caching because it seems
3829: END IF;
3830:
3831: IF (g_level_procedure >= g_current_runtime_level ) THEN
3832: FND_LOG.STRING(g_level_procedure,
3833: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value.END',
3834: 'ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value(-)' ||
3835: ', p_return_status = ' || p_return_status ||
3836: ', p_error_buffer = ' || p_error_buffer);
3837: END IF;
3830:
3831: IF (g_level_procedure >= g_current_runtime_level ) THEN
3832: FND_LOG.STRING(g_level_procedure,
3833: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value.END',
3834: 'ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value(-)' ||
3835: ', p_return_status = ' || p_return_status ||
3836: ', p_error_buffer = ' || p_error_buffer);
3837: END IF;
3838:
3841: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3842: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3843: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3844: FND_LOG.STRING(g_level_unexpected,
3845: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value',
3846: p_error_buffer);
3847: END IF;
3848:
3849: END get_trx_value;
3883: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3884:
3885: IF (g_level_procedure >= g_current_runtime_level ) THEN
3886: FND_LOG.STRING(g_level_procedure,
3887: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl.BEGIN',
3888: 'ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl(+)');
3889: END IF;
3890:
3891: p_return_status := FND_API.G_RET_STS_SUCCESS;
3884:
3885: IF (g_level_procedure >= g_current_runtime_level ) THEN
3886: FND_LOG.STRING(g_level_procedure,
3887: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl.BEGIN',
3888: 'ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl(+)');
3889: END IF;
3890:
3891: p_return_status := FND_API.G_RET_STS_SUCCESS;
3892:
3894: p_result := FALSE;
3895:
3896: IF (g_level_statement >= g_current_runtime_level ) THEN
3897: FND_LOG.STRING(g_level_statement,
3898: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
3899: 'p_condition_index: '|| to_char(p_condition_index) ||
3900: ', g_determining_factor_class_tbl: ' || g_determining_factor_class_tbl(i));
3901: END IF;
3902:
3912:
3913: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3914: IF (g_level_error >= g_current_runtime_level ) THEN
3915: FND_LOG.STRING(g_level_error,
3916: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
3917: 'Incorrect return_status after calling get_geography_info()' ||
3918: ', return_status: '|| p_return_status);
3919: END IF;
3920: RETURN;
3923: l_count := l_zone_tbl.COUNT;
3924:
3925: IF (g_level_statement >= g_current_runtime_level ) THEN
3926: FND_LOG.STRING(g_level_statement,
3927: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
3928: 'Number of rows in Zone table : ' ||
3929: TO_CHAR(l_count));
3930: END IF;
3931:
3943: p_error_buffer);
3944: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3945: IF (g_level_error >= g_current_runtime_level ) THEN
3946: FND_LOG.STRING(g_level_error,
3947: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
3948: 'Incorrect return_status after calling evaluate_condition()' ||
3949: ', return_status '|| p_return_status );
3950: END IF;
3951:
3956: -- loop until a match is found
3957: --
3958: IF (g_level_statement >= g_current_runtime_level ) THEN
3959: FND_LOG.STRING(g_level_statement,
3960: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
3961: 'Found a matched condition.' );
3962: END IF;
3963: EXIT;
3964: END IF;
3979: p_error_buffer);
3980: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3981: IF (g_level_error >= g_current_runtime_level ) THEN
3982: FND_LOG.STRING(g_level_error,
3983: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
3984: 'Incorrect return_status after calling evaluate_condition()' ||
3985: ', return_status '|| p_return_status );
3986: END IF;
3987: RETURN;
3990: END IF;
3991:
3992: IF (g_level_procedure >= g_current_runtime_level ) THEN
3993: FND_LOG.STRING(g_level_procedure,
3994: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl.END',
3995: 'ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl(-)' ||
3996: ', p_return_status = ' || p_return_status ||
3997: ', p_error_buffer = ' || p_error_buffer);
3998: END IF;
3991:
3992: IF (g_level_procedure >= g_current_runtime_level ) THEN
3993: FND_LOG.STRING(g_level_procedure,
3994: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl.END',
3995: 'ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl(-)' ||
3996: ', p_return_status = ' || p_return_status ||
3997: ', p_error_buffer = ' || p_error_buffer);
3998: END IF;
3999:
4002: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4003: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4004: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4005: FND_LOG.STRING(g_level_unexpected,
4006: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_trx_value_tbl',
4007: p_error_buffer);
4008: END IF;
4009:
4010: END evaluate_trx_value_tbl;
4037: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4038:
4039: IF (g_level_statement >= g_current_runtime_level ) THEN
4040: FND_LOG.STRING(g_level_statement,
4041: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value.BEGIN',
4042: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_parameter_value(+)');
4043: END IF;
4044:
4045: p_return_status := FND_API.G_RET_STS_SUCCESS;
4038:
4039: IF (g_level_statement >= g_current_runtime_level ) THEN
4040: FND_LOG.STRING(g_level_statement,
4041: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value.BEGIN',
4042: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_parameter_value(+)');
4043: END IF;
4044:
4045: p_return_status := FND_API.G_RET_STS_SUCCESS;
4046:
4057: p_error_buffer);
4058:
4059: IF (g_level_statement >= g_current_runtime_level ) THEN
4060: FND_LOG.STRING(g_level_statement,
4061: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4062: 'parameter code: ' || g_tax_parameter_code_tbl(i) ||
4063: ', p_numeric_value: ' || p_numeric_value );
4064: END IF;
4065:
4074: );
4075:
4076: IF (g_level_statement >= g_current_runtime_level ) THEN
4077: FND_LOG.STRING(g_level_statement,
4078: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4079: 'parameter code: ' || g_tax_parameter_code_tbl(i) ||
4080: ', trx_date value: ' || to_char(p_date_value, 'DD-MON-YY'));
4081: END IF;
4082:
4091: p_error_buffer);
4092:
4093: IF (g_level_statement >= g_current_runtime_level ) THEN
4094: FND_LOG.STRING(g_level_statement,
4095: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4096: 'parameter code: ' || g_tax_parameter_code_tbl(i) ||
4097: ', p_alphanum_value: ' || p_alphanum_value );
4098: END IF;
4099: ELSE
4101: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: p_error_buffer := 'Invalid data type';
4103: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4104: FND_LOG.STRING(g_level_unexpected,
4105: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4106: 'Invalid data type, data type must be ALPHANUMERIC, NUMERIC, DATE');
4107: END IF;
4108:
4109: END IF;
4109: END IF;
4110:
4111: IF (g_level_statement >= g_current_runtime_level ) THEN
4112: FND_LOG.STRING(g_level_statement,
4113: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value.END',
4114: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_parameter_value(-)' ||
4115: ', p_return_status = ' || p_return_status ||
4116: ', p_error_buffer = ' || p_error_buffer);
4117: END IF;
4110:
4111: IF (g_level_statement >= g_current_runtime_level ) THEN
4112: FND_LOG.STRING(g_level_statement,
4113: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value.END',
4114: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_parameter_value(-)' ||
4115: ', p_return_status = ' || p_return_status ||
4116: ', p_error_buffer = ' || p_error_buffer);
4117: END IF;
4118:
4122: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4123:
4124: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4125: FND_LOG.STRING(g_level_unexpected,
4126: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_parameter_value',
4127: p_error_buffer);
4128: END IF;
4129:
4130: END get_tsrm_parameter_value;
4154: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4155:
4156: IF (g_level_statement >= g_current_runtime_level ) THEN
4157: FND_LOG.STRING(g_level_statement,
4158: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.BEGIN',
4159: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(+)');
4160: FND_LOG.STRING(g_level_statement ,
4161: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4162: 'p_parameter_code: ' || p_parameter_code );
4155:
4156: IF (g_level_statement >= g_current_runtime_level ) THEN
4157: FND_LOG.STRING(g_level_statement,
4158: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.BEGIN',
4159: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(+)');
4160: FND_LOG.STRING(g_level_statement ,
4161: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4162: 'p_parameter_code: ' || p_parameter_code );
4163: END IF;
4157: FND_LOG.STRING(g_level_statement,
4158: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.BEGIN',
4159: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(+)');
4160: FND_LOG.STRING(g_level_statement ,
4161: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4162: 'p_parameter_code: ' || p_parameter_code );
4163: END IF;
4164: p_return_status := FND_API.G_RET_STS_SUCCESS;
4165:
4191: --END IF;
4192:
4193: IF (g_level_statement >= g_current_runtime_level ) THEN
4194: FND_LOG.STRING(g_level_statement,
4195: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4196: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4197: FND_LOG.STRING(g_level_statement,
4198: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.END',
4199: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(-)' ||
4194: FND_LOG.STRING(g_level_statement,
4195: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4196: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4197: FND_LOG.STRING(g_level_statement,
4198: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.END',
4199: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(-)' ||
4200: ', p_return_status = ' || p_return_status ||
4201: ', p_error_buffer = ' || p_error_buffer);
4202: END IF;
4195: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4196: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4197: FND_LOG.STRING(g_level_statement,
4198: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value.END',
4199: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_num_value(-)' ||
4200: ', p_return_status = ' || p_return_status ||
4201: ', p_error_buffer = ' || p_error_buffer);
4202: END IF;
4203:
4207: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4208:
4209: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4210: FND_LOG.STRING(g_level_unexpected,
4211: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_num_value',
4212: p_error_buffer);
4213: END IF;
4214:
4215: END get_tsrm_num_value;
4238: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4239:
4240: IF (g_level_statement >= g_current_runtime_level ) THEN
4241: FND_LOG.STRING(g_level_statement,
4242: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.BEGIN',
4243: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(+)');
4244: FND_LOG.STRING(g_level_statement,
4245: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4246: 'p_parameter_code: ' || p_parameter_code );
4239:
4240: IF (g_level_statement >= g_current_runtime_level ) THEN
4241: FND_LOG.STRING(g_level_statement,
4242: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.BEGIN',
4243: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(+)');
4244: FND_LOG.STRING(g_level_statement,
4245: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4246: 'p_parameter_code: ' || p_parameter_code );
4247: END IF;
4241: FND_LOG.STRING(g_level_statement,
4242: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.BEGIN',
4243: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(+)');
4244: FND_LOG.STRING(g_level_statement,
4245: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4246: 'p_parameter_code: ' || p_parameter_code );
4247: END IF;
4248:
4249: p_return_status := FND_API.G_RET_STS_SUCCESS;
4275: --END IF;
4276:
4277: IF (g_level_statement >= g_current_runtime_level ) THEN
4278: FND_LOG.STRING(g_level_statement,
4279: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4280: 'trx_char_value: ' || p_trx_alphanumeric_value);
4281: FND_LOG.STRING(g_level_statement,
4282: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.END',
4283: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(-)' ||
4278: FND_LOG.STRING(g_level_statement,
4279: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4280: 'trx_char_value: ' || p_trx_alphanumeric_value);
4281: FND_LOG.STRING(g_level_statement,
4282: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.END',
4283: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(-)' ||
4284: ', p_return_status = ' || p_return_status ||
4285: ', p_error_buffer = ' || p_error_buffer);
4286: END IF;
4279: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4280: 'trx_char_value: ' || p_trx_alphanumeric_value);
4281: FND_LOG.STRING(g_level_statement,
4282: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value.END',
4283: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tsrm_alphanum_value(-)' ||
4284: ', p_return_status = ' || p_return_status ||
4285: ', p_error_buffer = ' || p_error_buffer);
4286: END IF;
4287:
4291: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4292:
4293: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4294: FND_LOG.STRING(g_level_unexpected,
4295: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tsrm_alphanum_value',
4296: p_error_buffer);
4297: END IF;
4298:
4299: END get_tsrm_alphanum_value;
4323: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4324:
4325: IF (g_level_statement >= g_current_runtime_level ) THEN
4326: FND_LOG.STRING(g_level_statement,
4327: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.BEGIN',
4328: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(+)');
4329: FND_LOG.STRING(g_level_statement ,
4330: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4331: 'p_parameter_code: ' || p_parameter_code );
4324:
4325: IF (g_level_statement >= g_current_runtime_level ) THEN
4326: FND_LOG.STRING(g_level_statement,
4327: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.BEGIN',
4328: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(+)');
4329: FND_LOG.STRING(g_level_statement ,
4330: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4331: 'p_parameter_code: ' || p_parameter_code );
4332: END IF;
4326: FND_LOG.STRING(g_level_statement,
4327: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.BEGIN',
4328: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(+)');
4329: FND_LOG.STRING(g_level_statement ,
4330: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4331: 'p_parameter_code: ' || p_parameter_code );
4332: END IF;
4333: p_return_status := FND_API.G_RET_STS_SUCCESS;
4334:
4360: END IF;
4361:
4362: IF (g_level_statement >= g_current_runtime_level ) THEN
4363: FND_LOG.STRING(g_level_statement,
4364: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4365: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4366: FND_LOG.STRING(g_level_statement,
4367: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.END',
4368: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(-)' ||
4363: FND_LOG.STRING(g_level_statement,
4364: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4365: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4366: FND_LOG.STRING(g_level_statement,
4367: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.END',
4368: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(-)' ||
4369: ', p_return_status = ' || p_return_status ||
4370: ', p_error_buffer = ' || p_error_buffer);
4371: END IF;
4364: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4365: 'trx_num_value: ' || to_char(p_trx_numeric_value));
4366: FND_LOG.STRING(g_level_statement,
4367: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value.END',
4368: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_num_value(-)' ||
4369: ', p_return_status = ' || p_return_status ||
4370: ', p_error_buffer = ' || p_error_buffer);
4371: END IF;
4372:
4376: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4377:
4378: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4379: FND_LOG.STRING(g_level_unexpected,
4380: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_num_value',
4381: p_error_buffer);
4382: END IF;
4383:
4384: END get_account_num_value;
4408: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4409:
4410: IF (g_level_statement >= g_current_runtime_level ) THEN
4411: FND_LOG.STRING(g_level_statement,
4412: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.BEGIN',
4413: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(+)');
4414: FND_LOG.STRING(g_level_statement,
4415: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4416: 'p_parameter_code: ' || p_parameter_code );
4409:
4410: IF (g_level_statement >= g_current_runtime_level ) THEN
4411: FND_LOG.STRING(g_level_statement,
4412: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.BEGIN',
4413: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(+)');
4414: FND_LOG.STRING(g_level_statement,
4415: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4416: 'p_parameter_code: ' || p_parameter_code );
4417: END IF;
4411: FND_LOG.STRING(g_level_statement,
4412: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.BEGIN',
4413: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(+)');
4414: FND_LOG.STRING(g_level_statement,
4415: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4416: 'p_parameter_code: ' || p_parameter_code );
4417: END IF;
4418:
4419: p_return_status := FND_API.G_RET_STS_SUCCESS;
4445: END IF;
4446:
4447: IF (g_level_statement >= g_current_runtime_level ) THEN
4448: FND_LOG.STRING(g_level_statement,
4449: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4450: 'trx_char_value: ' || p_trx_alphanumeric_value);
4451: FND_LOG.STRING(g_level_statement,
4452: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.END',
4453: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(-)' ||
4448: FND_LOG.STRING(g_level_statement,
4449: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4450: 'trx_char_value: ' || p_trx_alphanumeric_value);
4451: FND_LOG.STRING(g_level_statement,
4452: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.END',
4453: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(-)' ||
4454: ', p_return_status = ' || p_return_status ||
4455: ', p_error_buffer = ' || p_error_buffer);
4456: END IF;
4449: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4450: 'trx_char_value: ' || p_trx_alphanumeric_value);
4451: FND_LOG.STRING(g_level_statement,
4452: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value.END',
4453: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_alphanum_value(-)' ||
4454: ', p_return_status = ' || p_return_status ||
4455: ', p_error_buffer = ' || p_error_buffer);
4456: END IF;
4457:
4461: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4462:
4463: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4464: FND_LOG.STRING(g_level_unexpected,
4465: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_alphanum_value',
4466: p_error_buffer);
4467: END IF;
4468:
4469: END get_account_alphanum_value;
4495: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4496:
4497: IF (g_level_statement >= g_current_runtime_level ) THEN
4498: FND_LOG.STRING(g_level_statement,
4499: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value.BEGIN',
4500: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_type_value(+)');
4501: END IF;
4502:
4503: p_return_status := FND_API.G_RET_STS_SUCCESS;
4496:
4497: IF (g_level_statement >= g_current_runtime_level ) THEN
4498: FND_LOG.STRING(g_level_statement,
4499: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value.BEGIN',
4500: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_type_value(+)');
4501: END IF;
4502:
4503: p_return_status := FND_API.G_RET_STS_SUCCESS;
4504:
4516: p_error_buffer);
4517:
4518: IF (g_level_statement >= g_current_runtime_level ) THEN
4519: FND_LOG.STRING(g_level_statement,
4520: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value',
4521: 'parameter code: ' || g_determining_factor_code_tbl(i) ||
4522: ', p_alphanum_value: ' || p_alphanum_value );
4523: END IF;
4524: ELSE
4526: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4527: p_error_buffer := 'Invalid data type';
4528: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4529: FND_LOG.STRING(g_level_unexpected,
4530: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value',
4531: 'Invalid data type, data type must be ALPHANUMERIC');
4532: END IF;
4533:
4534: 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_user_item_type_value.END',
4539: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_type_value(-)' ||
4540: ', p_return_status = ' || p_return_status ||
4541: ', p_error_buffer = ' || p_error_buffer);
4542: 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_user_item_type_value.END',
4539: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_type_value(-)' ||
4540: ', p_return_status = ' || p_return_status ||
4541: ', p_error_buffer = ' || p_error_buffer);
4542: END IF;
4543:
4547: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4548:
4549: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4550: FND_LOG.STRING(g_level_unexpected,
4551: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_type_value',
4552: p_error_buffer);
4553: END IF;
4554:
4555: END get_user_item_type_value;
4582: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4583:
4584: IF (g_level_statement >= g_current_runtime_level ) THEN
4585: FND_LOG.STRING(g_level_statement,
4586: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.BEGIN',
4587: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(+)');
4588: FND_LOG.STRING(g_level_statement,
4589: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4590: 'p_parameter_code: ' || p_parameter_code );
4583:
4584: IF (g_level_statement >= g_current_runtime_level ) THEN
4585: FND_LOG.STRING(g_level_statement,
4586: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.BEGIN',
4587: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(+)');
4588: FND_LOG.STRING(g_level_statement,
4589: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4590: 'p_parameter_code: ' || p_parameter_code );
4591: END IF;
4585: FND_LOG.STRING(g_level_statement,
4586: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.BEGIN',
4587: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(+)');
4588: FND_LOG.STRING(g_level_statement,
4589: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4590: 'p_parameter_code: ' || p_parameter_code );
4591: END IF;
4592:
4593: p_return_status := FND_API.G_RET_STS_SUCCESS;
4623: END IF;
4624:
4625: IF (g_level_statement >= g_current_runtime_level ) THEN
4626: FND_LOG.STRING(g_level_statement,
4627: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4628: 'trx_char_value: ' || p_trx_alphanumeric_value);
4629: FND_LOG.STRING(g_level_statement,
4630: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.END',
4631: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(-)' ||
4626: FND_LOG.STRING(g_level_statement,
4627: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4628: 'trx_char_value: ' || p_trx_alphanumeric_value);
4629: FND_LOG.STRING(g_level_statement,
4630: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.END',
4631: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(-)' ||
4632: ', p_return_status = ' || p_return_status ||
4633: ', p_error_buffer = ' || p_error_buffer);
4634: END IF;
4627: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4628: 'trx_char_value: ' || p_trx_alphanumeric_value);
4629: FND_LOG.STRING(g_level_statement,
4630: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value.END',
4631: 'ZX_TDS_RULE_BASE_DETM_PVT: get_user_item_alphanum_value(-)' ||
4632: ', p_return_status = ' || p_return_status ||
4633: ', p_error_buffer = ' || p_error_buffer);
4634: END IF;
4635: EXCEPTION
4638: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4639:
4640: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4641: FND_LOG.STRING(g_level_unexpected,
4642: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_user_item_alphanum_value',
4643: p_error_buffer);
4644: END IF;
4645:
4646: END get_user_item_alphanum_value;
4726: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4727:
4728: IF (g_level_procedure >= g_current_runtime_level ) THEN
4729: FND_LOG.STRING(g_level_procedure,
4730: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.BEGIN',
4731: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(+)');
4732: END IF;
4733:
4734: p_return_status := FND_API.G_RET_STS_SUCCESS;
4727:
4728: IF (g_level_procedure >= g_current_runtime_level ) THEN
4729: FND_LOG.STRING(g_level_procedure,
4730: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.BEGIN',
4731: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(+)');
4732: END IF;
4733:
4734: p_return_status := FND_API.G_RET_STS_SUCCESS;
4735:
4740: l_condition_value := g_alphanum_value_tbl(i);
4741:
4742: IF (g_level_statement >= g_current_runtime_level ) THEN
4743: FND_LOG.STRING(g_level_statement,
4744: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4745: 'l_classification_category: ' || l_classification_category ||
4746: ', l_classification_type: '|| l_classification_type ||
4747: ', l_condition_value: ' || l_condition_value);
4748: END IF;
4772:
4773: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4774: IF (g_level_error >= g_current_runtime_level ) THEN
4775: FND_LOG.STRING(g_level_error,
4776: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4777: 'Incorrect return_status after calling get_tsrm_alphanum_value()' ||
4778: ', return_status: ' || p_return_status);
4779: END IF;
4780:
4782: END IF;
4783:
4784: IF (g_level_statement >= g_current_runtime_level ) THEN
4785: FND_LOG.STRING(g_level_statement,
4786: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4787: 'l_prod_trx_parm_value: ' || l_prod_trx_parm_value);
4788: END IF;
4789:
4790: --
4798:
4799:
4800: IF (g_level_statement >= g_current_runtime_level ) THEN
4801: FND_LOG.STRING(g_level_statement,
4802: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4803: 'calling ZX_TCM_CONTROL_PKG.GET_PROD_TRX_CATE_VALUE');
4804: END IF;
4805:
4806:
4836:
4837: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4838: IF (g_level_error >= g_current_runtime_level ) THEN
4839: FND_LOG.STRING(g_level_error,
4840: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4841: 'Incorrect return_status after calling get_tsrm_alphanum_value()' ||
4842: ', return_status: ' || p_return_status);
4843: END IF;
4844: RETURN;
4865: -- Bugfix 4882676: ignore error even if fc not found
4866: p_return_status := FND_API.G_RET_STS_SUCCESS;
4867: IF (g_level_statement >= g_current_runtime_level ) THEN
4868: FND_LOG.STRING(g_level_statement,
4869: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4870: 'ignore error even if fc not found ' );
4871: END IF;
4872: END IF;
4873:
4886: CLOSE c_fc_base_category_set;
4887:
4888: IF (g_level_statement >= g_current_runtime_level ) THEN
4889: FND_LOG.STRING(g_level_statement,
4890: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4891: 'l_fc_base_category_set_id: '||l_fc_base_category_set_id ||
4892: ', l_fc_level: '||l_fc_level ||
4893: ', l_level_start_position: '||l_level_start_position ||
4894: ', l_level_num_characters: '||l_level_num_characters ||
4909:
4910: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4911: IF (g_level_error >= g_current_runtime_level ) THEN
4912: FND_LOG.STRING(g_level_error,
4913: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4914: 'Called get_tsrm_num_value to get DEFAULT_TAXATION_COUNTRY' ||
4915: ', return_status: ' || p_return_status);
4916: END IF;
4917:
4924: CLOSE c_country_def_category_set_id;
4925:
4926: IF (g_level_statement >= g_current_runtime_level ) THEN
4927: FND_LOG.STRING(g_level_statement,
4928: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4929: 'l_country_def_category_set_id: '||l_country_def_category_set_id );
4930: END IF;
4931:
4932: l_parameter_code := 'PRODUCT_FISC_CLASSIFICATION';
4942:
4943: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4944: IF (g_level_error >= g_current_runtime_level ) THEN
4945: FND_LOG.STRING(g_level_error,
4946: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
4947: 'Called get_tsrm_num_value to get PRODUCT_FISC_CLASSIFICATION' ||
4948: ', return_status: ' || p_return_status);
4949: END IF;
4950:
5007:
5008: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5009: IF (g_level_error >= g_current_runtime_level ) THEN
5010: FND_LOG.STRING(g_level_error,
5011: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5012: 'Called get_tsrm_num_value to get PRODUCT_ID' ||
5013: ', return_status: ' || p_return_status);
5014: END IF;
5015:
5028:
5029: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5030: IF (g_level_error >= g_current_runtime_level ) THEN
5031: FND_LOG.STRING(g_level_error,
5032: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5033: 'Called get_tsrm_num_value to get PRODUCT_ORG_ID' ||
5034: ', return_status: ' || p_return_status);
5035: END IF;
5036: RETURN;
5037: END IF;
5038:
5039: IF (g_level_statement >= g_current_runtime_level ) THEN
5040: FND_LOG.STRING(g_level_statement,
5041: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5042: 'item_org_id: ' || to_char(l_item_org_id));
5043: END IF;
5044:
5045:
5069: l_fsc_rec.condition_value := l_condition_value;
5070:
5071: IF (g_level_statement >= g_current_runtime_level ) THEN
5072: FND_LOG.STRING(g_level_statement,
5073: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5074: 'calling ZX_TCM_CONTROL_PKG.GET_FISCAL_CLASSIFICATION');
5075: END IF;
5076:
5077: --Bug Fix 4774215
5098: -- Bugfix 4882676: ignore error even if fc not found
5099: p_return_status := FND_API.G_RET_STS_SUCCESS;
5100: IF (g_level_statement >= g_current_runtime_level ) THEN
5101: FND_LOG.STRING(g_level_statement,
5102: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5103: 'ignore error even if fc not found ' );
5104: END IF;
5105: END IF;
5106:
5164:
5165: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5166: IF (g_level_error >= g_current_runtime_level ) THEN
5167: FND_LOG.STRING(g_level_error,
5168: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5169: 'Incorrect return_status after calling get_tsrm_num_value' ||
5170: ', return_status: ' || p_return_status);
5171: END IF;
5172:
5197:
5198: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5199: IF (g_level_error >= g_current_runtime_level ) THEN
5200: FND_LOG.STRING(g_level_error,
5201: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5202: 'Incorrect return_status after calling get_tsrm_num_value' ||
5203: ', return_status: ' || p_return_status);
5204: END IF;
5205:
5209: END IF; -- End of check for classification category and classified entity id
5210:
5211: IF (g_level_statement >= g_current_runtime_level ) THEN
5212: FND_LOG.STRING(g_level_statement,
5213: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5214: 'classified_entity_id: ' || to_char(l_classified_entity_id));
5215: END IF;
5216:
5217: --
5240: l_fsc_rec.condition_value := l_condition_value;
5241:
5242: IF (g_level_statement >= g_current_runtime_level ) THEN
5243: FND_LOG.STRING(g_level_statement,
5244: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5245: 'calling ZX_TCM_CONTROL_PKG.GET_FISCAL_CLASSIFICATION');
5246: END IF;
5247:
5248: --Bug Fix 4774215
5271: -- Bugfix 4882676: ignore error even if fc not found
5272: p_return_status := FND_API.G_RET_STS_SUCCESS;
5273: IF (g_level_statement >= g_current_runtime_level ) THEN
5274: FND_LOG.STRING(g_level_statement,
5275: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5276: 'ignore error even if fc not found ' );
5277: END IF;
5278: END IF;
5279:
5289: IF l_third_party_flag = 'Y' THEN
5290: p_trx_alphanumeric_value := NULL;
5291: IF (g_level_procedure >= g_current_runtime_level ) THEN
5292: FND_LOG.STRING(g_level_procedure,
5293: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5294: 'fsc_code: ' || p_trx_alphanumeric_value);
5295: FND_LOG.STRING(g_level_procedure,
5296: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5297: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5292: FND_LOG.STRING(g_level_procedure,
5293: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5294: 'fsc_code: ' || p_trx_alphanumeric_value);
5295: FND_LOG.STRING(g_level_procedure,
5296: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5297: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5298: ', p_return_status = ' || p_return_status ||
5299: ', p_error_buffer = ' || p_error_buffer);
5300: END IF;
5293: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5294: 'fsc_code: ' || p_trx_alphanumeric_value);
5295: FND_LOG.STRING(g_level_procedure,
5296: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5297: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5298: ', p_return_status = ' || p_return_status ||
5299: ', p_error_buffer = ' || p_error_buffer);
5300: END IF;
5301: RETURN;
5325:
5326: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5327: IF (g_level_error >= g_current_runtime_level ) THEN
5328: FND_LOG.STRING(g_level_error,
5329: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5330: 'Incorrect return_status after calling get_tsrm_num_value' ||
5331: ', return_status: ' || p_return_status);
5332: END IF;
5333:
5337: IF l_classified_entity_id IS NULL AND NOT l_first_party_flag THEN
5338: p_trx_alphanumeric_value := NULL;
5339: IF (g_level_procedure >= g_current_runtime_level ) THEN
5340: FND_LOG.STRING(g_level_procedure,
5341: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5342: 'fsc_code: ' || p_trx_alphanumeric_value);
5343: FND_LOG.STRING(g_level_procedure,
5344: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5345: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5340: FND_LOG.STRING(g_level_procedure,
5341: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5342: 'fsc_code: ' || p_trx_alphanumeric_value);
5343: FND_LOG.STRING(g_level_procedure,
5344: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5345: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5346: ', p_return_status = ' || p_return_status ||
5347: ', p_error_buffer = ' || p_error_buffer);
5348: END IF;
5341: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5342: 'fsc_code: ' || p_trx_alphanumeric_value);
5343: FND_LOG.STRING(g_level_procedure,
5344: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5345: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5346: ', p_return_status = ' || p_return_status ||
5347: ', p_error_buffer = ' || p_error_buffer);
5348: END IF;
5349: RETURN;
5360: CLOSE c_get_le_ptp_id;
5361: p_trx_alphanumeric_value := NULL;
5362: IF (g_level_statement >= g_current_runtime_level ) THEN
5363: FND_LOG.STRING(g_level_statement,
5364: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5365: 'Legal Entity PTP Not Found; l_le_id' ||
5366: to_char(l_le_id));
5367: END IF;
5368: IF (g_level_procedure >= g_current_runtime_level ) THEN
5366: to_char(l_le_id));
5367: END IF;
5368: IF (g_level_procedure >= g_current_runtime_level ) THEN
5369: FND_LOG.STRING(g_level_procedure,
5370: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5371: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)');
5372: END IF;
5373: RETURN;
5374: ELSE
5367: END IF;
5368: IF (g_level_procedure >= g_current_runtime_level ) THEN
5369: FND_LOG.STRING(g_level_procedure,
5370: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5371: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)');
5372: END IF;
5373: RETURN;
5374: ELSE
5375: CLOSE c_get_le_ptp_id;
5378: END IF;
5379:
5380: IF (g_level_statement >= g_current_runtime_level ) THEN
5381: FND_LOG.STRING(g_level_statement,
5382: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5383: 'classified_entity_id: ' || to_char(l_classified_entity_id));
5384: END IF;
5385:
5386: --
5414: ELSE
5415: p_return_status := FND_API.G_RET_STS_SUCCESS;
5416: IF (g_level_statement >= g_current_runtime_level ) THEN
5417: FND_LOG.STRING(g_level_statement,
5418: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5419: 'ignore error even if fc not found for LE' );
5420: END IF;
5421: END IF;
5422:
5441:
5442: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5443: IF (g_level_error >= g_current_runtime_level ) THEN
5444: FND_LOG.STRING(g_level_error,
5445: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5446: 'Incorrect return_status after calling get_tsrm_num_value for LE' ||
5447: ', return_status: ' || p_return_status);
5448: END IF;
5449:
5459: CLOSE c_get_le_ptp_id;
5460: p_trx_alphanumeric_value := NULL;
5461: IF (g_level_statement >= g_current_runtime_level ) THEN
5462: FND_LOG.STRING(g_level_statement,
5463: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5464: 'Legal Entity PTP Not Found; l_le_id' ||
5465: to_char(l_le_id));
5466: END IF;
5467: IF (g_level_procedure >= g_current_runtime_level ) THEN
5465: to_char(l_le_id));
5466: END IF;
5467: IF (g_level_procedure >= g_current_runtime_level ) THEN
5468: FND_LOG.STRING(g_level_procedure,
5469: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5470: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)');
5471: END IF;
5472: RETURN;
5473: ELSE
5466: END IF;
5467: IF (g_level_procedure >= g_current_runtime_level ) THEN
5468: FND_LOG.STRING(g_level_procedure,
5469: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5470: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)');
5471: END IF;
5472: RETURN;
5473: ELSE
5474: CLOSE c_get_le_ptp_id;
5475: END IF;
5476:
5477: IF (g_level_statement >= g_current_runtime_level ) THEN
5478: FND_LOG.STRING(g_level_statement,
5479: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5480: 'classified_entity_id ' || to_char(l_classified_entity_id));
5481: END IF;
5482:
5483: --
5509: ELSE
5510: p_return_status := FND_API.G_RET_STS_SUCCESS;
5511: IF (g_level_statement >= g_current_runtime_level ) THEN
5512: FND_LOG.STRING(g_level_statement,
5513: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5514: 'ignore error even if fc not found for LE' );
5515: END IF;
5516: END IF;
5517:
5527: END IF; -- End of check for party classification
5528:
5529: IF (g_level_procedure >= g_current_runtime_level ) THEN
5530: FND_LOG.STRING(g_level_procedure,
5531: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5532: 'fsc_code: ' || p_trx_alphanumeric_value);
5533: FND_LOG.STRING(g_level_procedure,
5534: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5535: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5530: FND_LOG.STRING(g_level_procedure,
5531: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5532: 'fsc_code: ' || p_trx_alphanumeric_value);
5533: FND_LOG.STRING(g_level_procedure,
5534: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5535: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5536: ', p_return_status = ' || p_return_status ||
5537: ', p_error_buffer = ' || p_error_buffer);
5538: END IF;
5531: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5532: 'fsc_code: ' || p_trx_alphanumeric_value);
5533: FND_LOG.STRING(g_level_procedure,
5534: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc.END',
5535: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fc(-)' ||
5536: ', p_return_status = ' || p_return_status ||
5537: ', p_error_buffer = ' || p_error_buffer);
5538: END IF;
5539:
5543: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5544:
5545: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5546: FND_LOG.STRING(g_level_unexpected,
5547: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fc',
5548: p_error_buffer);
5549: END IF;
5550:
5551: END get_fc;
5581: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5582:
5583: IF (g_level_procedure >= g_current_runtime_level ) THEN
5584: FND_LOG.STRING(g_level_procedure,
5585: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.BEGIN',
5586: 'ZX_TDS_RULE_BASE_DETM_PVT: get_geography_info(+)');
5587: END IF;
5588:
5589: p_return_status := FND_API.G_RET_STS_SUCCESS;
5582:
5583: IF (g_level_procedure >= g_current_runtime_level ) THEN
5584: FND_LOG.STRING(g_level_procedure,
5585: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.BEGIN',
5586: 'ZX_TDS_RULE_BASE_DETM_PVT: get_geography_info(+)');
5587: END IF;
5588:
5589: p_return_status := FND_API.G_RET_STS_SUCCESS;
5590:
5611: p_error_buffer);
5612:
5613: IF (g_level_statement >= g_current_runtime_level ) THEN
5614: FND_LOG.STRING(g_level_statement,
5615: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
5616: 'location_id: ' || to_char(l_location_id));
5617: END IF;
5618:
5619: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
5642: END IF;
5643:
5644: IF (g_level_procedure >= g_current_runtime_level ) THEN
5645: -- FND_LOG.STRING(g_level_procedure,
5646: -- 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
5647: -- 'trx_alphanumeric_value: ' || p_trx_alphanumeric_value);
5648: FND_LOG.STRING(g_level_procedure,
5649: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.END',
5650: 'ZX_TDS_RULE_BASE_DETM_PVT: get_geography_info(-)' ||
5645: -- FND_LOG.STRING(g_level_procedure,
5646: -- 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
5647: -- 'trx_alphanumeric_value: ' || p_trx_alphanumeric_value);
5648: FND_LOG.STRING(g_level_procedure,
5649: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.END',
5650: 'ZX_TDS_RULE_BASE_DETM_PVT: get_geography_info(-)' ||
5651: ', p_return_status = ' || p_return_status ||
5652: ', p_error_buffer = ' || p_error_buffer);
5653: END IF;
5646: -- 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
5647: -- 'trx_alphanumeric_value: ' || p_trx_alphanumeric_value);
5648: FND_LOG.STRING(g_level_procedure,
5649: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info.END',
5650: 'ZX_TDS_RULE_BASE_DETM_PVT: get_geography_info(-)' ||
5651: ', p_return_status = ' || p_return_status ||
5652: ', p_error_buffer = ' || p_error_buffer);
5653: END IF;
5654:
5657: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5658: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5659: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5660: FND_LOG.STRING(g_level_unexpected,
5661: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_geography_info',
5662: p_error_buffer);
5663: END IF;
5664:
5665: END get_geography_info;
5693: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5694:
5695: IF (g_level_procedure >= g_current_runtime_level ) THEN
5696: FND_LOG.STRING(g_level_procedure,
5697: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info.BEGIN',
5698: 'ZX_TDS_RULE_BASE_DETM_PVT: get_master_geography_info(+)');
5699: END IF;
5700:
5701: p_return_status := FND_API.G_RET_STS_SUCCESS;
5694:
5695: IF (g_level_procedure >= g_current_runtime_level ) THEN
5696: FND_LOG.STRING(g_level_procedure,
5697: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info.BEGIN',
5698: 'ZX_TDS_RULE_BASE_DETM_PVT: get_master_geography_info(+)');
5699: END IF;
5700:
5701: p_return_status := FND_API.G_RET_STS_SUCCESS;
5702:
5723: p_error_buffer);
5724:
5725: IF (g_level_statement >= g_current_runtime_level ) THEN
5726: FND_LOG.STRING(g_level_statement,
5727: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
5728: 'location_id: ' || to_char(l_location_id));
5729: END IF;
5730:
5731: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
5731: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
5732:
5733: IF (g_level_statement >= g_current_runtime_level ) THEN
5734: FND_LOG.STRING(g_level_statement,
5735: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
5736: 'l_location_type: ' || l_location_type);
5737: END IF;
5738:
5739: -- Bugfix 4926074: call get_master_geography API only if the location_id is not null
5754: END IF;
5755:
5756: IF (g_level_statement >= g_current_runtime_level ) THEN
5757: FND_LOG.STRING(g_level_statement,
5758: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
5759: 'trx_numeric_value: ' || TO_CHAR(p_trx_numeric_value));
5760: END IF;
5761:
5762: IF (g_level_procedure >= g_current_runtime_level ) THEN
5760: END IF;
5761:
5762: IF (g_level_procedure >= g_current_runtime_level ) THEN
5763: FND_LOG.STRING(g_level_procedure,
5764: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info.END',
5765: 'ZX_TDS_RULE_BASE_DETM_PVT: get_master_geography_info(-)' ||
5766: ', p_return_status = ' || p_return_status ||
5767: ', p_error_buffer = ' || p_error_buffer);
5768: END IF;
5761:
5762: IF (g_level_procedure >= g_current_runtime_level ) THEN
5763: FND_LOG.STRING(g_level_procedure,
5764: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info.END',
5765: 'ZX_TDS_RULE_BASE_DETM_PVT: get_master_geography_info(-)' ||
5766: ', p_return_status = ' || p_return_status ||
5767: ', p_error_buffer = ' || p_error_buffer);
5768: END IF;
5769:
5772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5773: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5774: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5775: FND_LOG.STRING(g_level_unexpected,
5776: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_master_geography_info',
5777: p_error_buffer);
5778: END IF;
5779:
5780: END get_master_geography_info;
5810: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5811:
5812: IF (g_level_procedure >= g_current_runtime_level ) THEN
5813: FND_LOG.STRING(g_level_procedure,
5814: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.BEGIN',
5815: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(+)');
5816: END IF;
5817:
5818: p_return_status := FND_API.G_RET_STS_SUCCESS;
5811:
5812: IF (g_level_procedure >= g_current_runtime_level ) THEN
5813: FND_LOG.STRING(g_level_procedure,
5814: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.BEGIN',
5815: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(+)');
5816: END IF;
5817:
5818: p_return_status := FND_API.G_RET_STS_SUCCESS;
5819:
5834: p_trx_alphanumeric_value := l_registration_rec.registration_status_code;
5835: ELSE
5836: IF (g_level_error >= g_current_runtime_level ) THEN
5837: FND_LOG.STRING(g_level_error,
5838: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status',
5839: 'Incorrect status returned after calling '||
5840: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_registration_info'||
5841: ', p_return_status = ' || p_return_status);
5842: FND_LOG.STRING(g_level_error,
5839: 'Incorrect status returned after calling '||
5840: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_registration_info'||
5841: ', p_return_status = ' || p_return_status);
5842: FND_LOG.STRING(g_level_error,
5843: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.END',
5844: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(-)');
5845: END IF;
5846: p_return_status := FND_API.G_RET_STS_SUCCESS;
5847: END IF;
5840: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_registration_info'||
5841: ', p_return_status = ' || p_return_status);
5842: FND_LOG.STRING(g_level_error,
5843: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.END',
5844: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(-)');
5845: END IF;
5846: p_return_status := FND_API.G_RET_STS_SUCCESS;
5847: END IF;
5848:
5847: END IF;
5848:
5849: IF (g_level_statement >= g_current_runtime_level ) THEN
5850: FND_LOG.STRING(g_level_statement,
5851: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status',
5852: 'registration status: ' || p_trx_alphanumeric_value);
5853: END IF;
5854:
5855: IF (g_level_procedure >= g_current_runtime_level ) THEN
5853: END IF;
5854:
5855: IF (g_level_procedure >= g_current_runtime_level ) THEN
5856: FND_LOG.STRING(g_level_procedure,
5857: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.END',
5858: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(-)' ||
5859: ', p_return_status = ' || p_return_status ||
5860: ', p_error_buffer = ' || p_error_buffer);
5861: END IF;
5854:
5855: IF (g_level_procedure >= g_current_runtime_level ) THEN
5856: FND_LOG.STRING(g_level_procedure,
5857: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status.END',
5858: 'ZX_TDS_RULE_BASE_DETM_PVT: get_registration_status(-)' ||
5859: ', p_return_status = ' || p_return_status ||
5860: ', p_error_buffer = ' || p_error_buffer);
5861: END IF;
5862:
5866: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5867:
5868: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5869: FND_LOG.STRING(g_level_unexpected,
5870: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_registration_status',
5871: p_error_buffer);
5872: END IF;
5873:
5874: END get_registration_status;
5905: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5906:
5907: IF (g_level_statement >= g_current_runtime_level ) THEN
5908: FND_LOG.STRING(g_level_statement,
5909: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.BEGIN',
5910: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(+)');
5911: FND_LOG.STRING(g_level_statement,
5912: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
5913: 'sob id: ' || to_char(p_sob_id) ||
5906:
5907: IF (g_level_statement >= g_current_runtime_level ) THEN
5908: FND_LOG.STRING(g_level_statement,
5909: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.BEGIN',
5910: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(+)');
5911: FND_LOG.STRING(g_level_statement,
5912: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
5913: 'sob id: ' || to_char(p_sob_id) ||
5914: ', chart of acct id: ' || to_char(p_chart_of_accounts_id));
5908: FND_LOG.STRING(g_level_statement,
5909: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.BEGIN',
5910: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(+)');
5911: FND_LOG.STRING(g_level_statement,
5912: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
5913: 'sob id: ' || to_char(p_sob_id) ||
5914: ', chart of acct id: ' || to_char(p_chart_of_accounts_id));
5915: END IF;
5916:
5937: p_error_buffer := 'LEDGER ID does not match with one from condition group';
5938:
5939: IF (g_level_statement >= g_current_runtime_level ) THEN
5940: FND_LOG.STRING(g_level_statement,
5941: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
5942: 'p_return_status = ' || p_return_status ||
5943: ', p_error_buffer = ' || p_error_buffer);
5944: END IF;
5945:
5959: -- segment array for this account has been obtained before
5960: --
5961: IF (g_level_statement >= g_current_runtime_level ) THEN
5962: FND_LOG.STRING(g_level_statement,
5963: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
5964: 'segment array has been obtained before');
5965: END IF;
5966:
5967: RETURN;
6001: zx_global_structures_pkg.g_ccid_acct_string_info_tbl(l_ccid).ACCOUNT_STRING;
6002:
6003: IF (g_level_statement >= g_current_runtime_level ) THEN
6004: FND_LOG.STRING(g_level_statement,
6005: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6006: 'Acct string found in cache: ' || l_account_string);
6007: END IF;
6008:
6009: ELSE
6014: l_ccid);
6015:
6016: IF (g_level_statement >= g_current_runtime_level ) THEN
6017: FND_LOG.STRING(g_level_statement,
6018: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6019: 'acct string derived by calling flexfield API: ' || l_account_string);
6020: END IF;
6021:
6022: zx_global_structures_pkg.g_ccid_acct_string_info_tbl(l_ccid).CCID := l_ccid;
6046: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6047:
6048: IF (g_level_statement >= g_current_runtime_level ) THEN
6049: FND_LOG.STRING(g_level_statement,
6050: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6051: 'p_return_status = ' || p_return_status ||
6052: ', p_error_buffer = ' || p_error_buffer);
6053: END IF;
6054:
6067: END IF;
6068:
6069: IF (g_level_statement >= g_current_runtime_level ) THEN
6070: FND_LOG.STRING(g_level_statement,
6071: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.END',
6072: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(-)' ||
6073: ', p_return_status = ' || p_return_status ||
6074: ', p_error_buffer = ' || p_error_buffer);
6075: END IF;
6068:
6069: IF (g_level_statement >= g_current_runtime_level ) THEN
6070: FND_LOG.STRING(g_level_statement,
6071: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info.END',
6072: 'ZX_TDS_RULE_BASE_DETM_PVT: get_account_flexfield_info(-)' ||
6073: ', p_return_status = ' || p_return_status ||
6074: ', p_error_buffer = ' || p_error_buffer);
6075: END IF;
6076:
6080: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6081:
6082: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6083: FND_LOG.STRING(g_level_unexpected,
6084: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_account_flexfield_info',
6085: p_error_buffer);
6086: END IF;
6087:
6088: END get_account_flexfield_info;
6109: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6110:
6111: IF (g_level_statement >= g_current_runtime_level ) THEN
6112: FND_LOG.STRING(g_level_statement,
6113: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string.BEGIN',
6114: 'ZX_TDS_RULE_BASE_DETM_PVT: process_segment_string(+)');
6115: END IF;
6116:
6117: p_return_status := FND_API.G_RET_STS_SUCCESS;
6110:
6111: IF (g_level_statement >= g_current_runtime_level ) THEN
6112: FND_LOG.STRING(g_level_statement,
6113: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string.BEGIN',
6114: 'ZX_TDS_RULE_BASE_DETM_PVT: process_segment_string(+)');
6115: END IF;
6116:
6117: p_return_status := FND_API.G_RET_STS_SUCCESS;
6118:
6132: g_segment_array);
6133:
6134: IF (g_level_statement >= g_current_runtime_level ) THEN
6135: FND_LOG.STRING(g_level_statement,
6136: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string',
6137: 'l_delimiter: ' || l_delimiter ||
6138: ', l_num_of_segments: ' || to_char(l_num_of_segments));
6139:
6140: FND_LOG.STRING(g_level_statement,
6137: 'l_delimiter: ' || l_delimiter ||
6138: ', l_num_of_segments: ' || to_char(l_num_of_segments));
6139:
6140: FND_LOG.STRING(g_level_statement,
6141: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string.END',
6142: 'ZX_TDS_RULE_BASE_DETM_PVT: process_segment_string(-)');
6143: END IF;
6144:
6145: EXCEPTION
6138: ', l_num_of_segments: ' || to_char(l_num_of_segments));
6139:
6140: FND_LOG.STRING(g_level_statement,
6141: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string.END',
6142: 'ZX_TDS_RULE_BASE_DETM_PVT: process_segment_string(-)');
6143: END IF;
6144:
6145: EXCEPTION
6146: WHEN OTHERS THEN
6147: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6148: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6149: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6150: FND_LOG.STRING(g_level_unexpected,
6151: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.process_segment_string',
6152: p_error_buffer);
6153: END IF;
6154:
6155: END process_segment_string;
6183: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6184:
6185: IF (g_level_statement >= g_current_runtime_level ) THEN
6186: FND_LOG.STRING(g_level_statement,
6187: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info.BEGIN',
6188: 'ZX_TDS_RULE_BASE_DETM_PVT: get_product_tax_info (+)');
6189: END IF;
6190:
6191: p_return_status := FND_API.G_RET_STS_SUCCESS;
6184:
6185: IF (g_level_statement >= g_current_runtime_level ) THEN
6186: FND_LOG.STRING(g_level_statement,
6187: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info.BEGIN',
6188: 'ZX_TDS_RULE_BASE_DETM_PVT: get_product_tax_info (+)');
6189: END IF;
6190:
6191: p_return_status := FND_API.G_RET_STS_SUCCESS;
6192:
6203: p_error_buffer );
6204:
6205: IF (g_level_statement >= g_current_runtime_level ) THEN
6206: FND_LOG.STRING(g_level_statement,
6207: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info',
6208: 'product id: ' || to_char(l_product_id));
6209: END IF;
6210:
6211: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6225: p_error_buffer );
6226:
6227: IF (g_level_statement >= g_current_runtime_level ) THEN
6228: FND_LOG.STRING(g_level_statement,
6229: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info',
6230: 'item_org_id: ' || to_char(l_item_org_id));
6231: END IF;
6232:
6233: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6246:
6247:
6248: IF (g_level_statement >= g_current_runtime_level ) THEN
6249: FND_LOG.STRING(g_level_statement,
6250: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info.END',
6251: 'ZX_TDS_RULE_BASE_DETM_PVT: get_product_tax_info (-)');
6252: END IF;
6253:
6254: EXCEPTION
6247:
6248: IF (g_level_statement >= g_current_runtime_level ) THEN
6249: FND_LOG.STRING(g_level_statement,
6250: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info.END',
6251: 'ZX_TDS_RULE_BASE_DETM_PVT: get_product_tax_info (-)');
6252: END IF;
6253:
6254: EXCEPTION
6255: WHEN OTHERS THEN
6257: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6258:
6259: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6260: FND_LOG.STRING(g_level_unexpected,
6261: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_product_tax_info',
6262: p_error_buffer);
6263: END IF;
6264:
6265: END get_product_tax_info;
6299: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6300:
6301: IF (g_level_statement >= g_current_runtime_level ) THEN
6302: FND_LOG.STRING(g_level_statement,
6303: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.BEGIN',
6304: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tax_info_from_item(+)');
6305: END IF;
6306:
6307: p_return_status := FND_API.G_RET_STS_SUCCESS;
6300:
6301: IF (g_level_statement >= g_current_runtime_level ) THEN
6302: FND_LOG.STRING(g_level_statement,
6303: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.BEGIN',
6304: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tax_info_from_item(+)');
6305: END IF;
6306:
6307: p_return_status := FND_API.G_RET_STS_SUCCESS;
6308:
6317: END IF;
6318:
6319: IF (g_level_statement >= g_current_runtime_level ) THEN
6320: FND_LOG.STRING(g_level_statement,
6321: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item',
6322: 'trx value:' || p_trx_alphanumeric_value);
6323: FND_LOG.STRING(g_level_statement,
6324: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.END',
6325: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tax_info_from_item(-)' ||
6320: FND_LOG.STRING(g_level_statement,
6321: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item',
6322: 'trx value:' || p_trx_alphanumeric_value);
6323: FND_LOG.STRING(g_level_statement,
6324: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.END',
6325: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tax_info_from_item(-)' ||
6326: ', p_return_status = ' || p_return_status ||
6327: ', p_error_buffer = ' || p_error_buffer);
6328: END IF;
6321: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item',
6322: 'trx value:' || p_trx_alphanumeric_value);
6323: FND_LOG.STRING(g_level_statement,
6324: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item.END',
6325: 'ZX_TDS_RULE_BASE_DETM_PVT: get_tax_info_from_item(-)' ||
6326: ', p_return_status = ' || p_return_status ||
6327: ', p_error_buffer = ' || p_error_buffer);
6328: END IF;
6329:
6333: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6334:
6335: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6336: FND_LOG.STRING(g_level_unexpected,
6337: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_tax_info_from_item',
6338: p_error_buffer);
6339: END IF;
6340:
6341: END get_tax_info_from_item;
6375: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6376:
6377: IF (g_level_statement >= g_current_runtime_level ) THEN
6378: FND_LOG.STRING(g_level_statement,
6379: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.BEGIN',
6380: 'ZX_TDS_RULE_BASE_DETM_PVT: get_party_tax_info(+)');
6381: END IF;
6382:
6383: p_return_status := FND_API.G_RET_STS_SUCCESS;
6376:
6377: IF (g_level_statement >= g_current_runtime_level ) THEN
6378: FND_LOG.STRING(g_level_statement,
6379: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.BEGIN',
6380: 'ZX_TDS_RULE_BASE_DETM_PVT: get_party_tax_info(+)');
6381: END IF;
6382:
6383: p_return_status := FND_API.G_RET_STS_SUCCESS;
6384:
6391: p_error_buffer);
6392:
6393: IF (g_level_statement >= g_current_runtime_level ) THEN
6394: FND_LOG.STRING(g_level_statement,
6395: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info',
6396: 'l_tax_profile_id: ' || to_char(l_tax_profile_id));
6397: END IF;
6398:
6399: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6410: END IF;
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_party_tax_info',
6415: 'tax classification: ' || p_trx_alphanumeric_value);
6416: FND_LOG.STRING(g_level_statement,
6417: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.END',
6418: 'ZX_TDS_RULE_BASE_DETM_PVT: get_party_tax_info(-)' ||
6413: FND_LOG.STRING(g_level_statement,
6414: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info',
6415: 'tax classification: ' || p_trx_alphanumeric_value);
6416: FND_LOG.STRING(g_level_statement,
6417: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.END',
6418: 'ZX_TDS_RULE_BASE_DETM_PVT: get_party_tax_info(-)' ||
6419: ', p_return_status = ' || p_return_status ||
6420: ', p_error_buffer = ' || p_error_buffer);
6421: END IF;
6414: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info',
6415: 'tax classification: ' || p_trx_alphanumeric_value);
6416: FND_LOG.STRING(g_level_statement,
6417: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_party_tax_info.END',
6418: 'ZX_TDS_RULE_BASE_DETM_PVT: get_party_tax_info(-)' ||
6419: ', p_return_status = ' || p_return_status ||
6420: ', p_error_buffer = ' || p_error_buffer);
6421: END IF;
6422:
6427:
6428: CLOSE get_tax_classification_csr;
6429: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6430: FND_LOG.STRING(g_level_unexpected,
6431: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.',
6432: p_error_buffer);
6433: END IF;
6434: END get_party_tax_info;
6435: */
6460: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6461:
6462: IF (g_level_procedure >= g_current_runtime_level ) THEN
6463: FND_LOG.STRING(g_level_procedure,
6464: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition.BEGIN',
6465: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_condition(+)');
6466: END IF;
6467:
6468: p_return_status := FND_API.G_RET_STS_SUCCESS;
6461:
6462: IF (g_level_procedure >= g_current_runtime_level ) THEN
6463: FND_LOG.STRING(g_level_procedure,
6464: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition.BEGIN',
6465: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_condition(+)');
6466: END IF;
6467:
6468: p_return_status := FND_API.G_RET_STS_SUCCESS;
6469:
6497: p_result := FALSE;
6498:
6499: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6500: FND_LOG.STRING(g_level_unexpected,
6501: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition',
6502: 'Invalid data type');
6503: END IF;
6504:
6505: END IF;
6505: END IF;
6506:
6507: IF (g_level_procedure >= g_current_runtime_level ) THEN
6508: FND_LOG.STRING(g_level_procedure,
6509: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition.END',
6510: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_condition(-)');
6511: END IF;
6512:
6513: EXCEPTION
6506:
6507: IF (g_level_procedure >= g_current_runtime_level ) THEN
6508: FND_LOG.STRING(g_level_procedure,
6509: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition.END',
6510: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_condition(-)');
6511: END IF;
6512:
6513: EXCEPTION
6514: WHEN OTHERS THEN
6516: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6517:
6518: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6519: FND_LOG.STRING(g_level_unexpected,
6520: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_condition',
6521: p_error_buffer);
6522: END IF;
6523:
6524: END evaluate_condition;
6612: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6613:
6614: IF (g_level_procedure >= g_current_runtime_level ) THEN
6615: FND_LOG.STRING(g_level_procedure,
6616: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result.BEGIN',
6617: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(+)');
6618: END IF;
6619: IF (g_level_statement >= g_current_runtime_level ) THEN
6620: FND_LOG.STRING(g_level_statement,
6613:
6614: IF (g_level_procedure >= g_current_runtime_level ) THEN
6615: FND_LOG.STRING(g_level_procedure,
6616: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result.BEGIN',
6617: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(+)');
6618: END IF;
6619: IF (g_level_statement >= g_current_runtime_level ) THEN
6620: FND_LOG.STRING(g_level_statement,
6621: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6617: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(+)');
6618: END IF;
6619: IF (g_level_statement >= g_current_runtime_level ) THEN
6620: FND_LOG.STRING(g_level_statement,
6621: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6622: 'result_id: ' || p_result_id);
6623: END IF;
6624:
6625: p_return_status := FND_API.G_RET_STS_SUCCESS;
6712: if upper(l_action_rec_tbl(i).action_code) in ('ERROR_MESSAGE','SYSTEM_ERROR') then
6713: p_return_status := FND_API.G_RET_STS_ERROR;
6714: IF (g_level_error >= g_current_runtime_level ) THEN
6715: FND_LOG.STRING(g_level_error,
6716: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6717: 'Action_code is ERROR_MESSAGE,SYSTEM_ERROR');
6718: END IF;
6719:
6720: app_exception.raise_exception;
6751: p_return_status := FND_API.G_RET_STS_ERROR;
6752: p_error_buffer := SUBSTR(SQLERRM, 1, 80);
6753: IF (g_level_error >= g_current_runtime_level ) THEN
6754: FND_LOG.STRING(g_level_error,
6755: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6756: 'Cannot set the tax rate code to '||l_override_tax_rate_code ||
6757: ', ERROR: '|| p_error_buffer);
6758: END IF;
6759:
6814: if upper(l_action_rec_tbl(i).action_code) in ('ERROR_MESSAGE','SYSTEM_ERROR') then
6815: p_return_status := FND_API.G_RET_STS_ERROR;
6816: IF (g_level_error >= g_current_runtime_level ) THEN
6817: FND_LOG.STRING(g_level_error,
6818: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6819: 'Action_code is ERROR_MESSAGE,SYSTEM_ERROR');
6820: END IF;
6821:
6822: app_exception.raise_exception;
6855: p_return_status := FND_API.G_RET_STS_ERROR;
6856: p_error_buffer := SUBSTR(SQLERRM, 1, 80);
6857: IF (g_level_error >= g_current_runtime_level ) THEN
6858: FND_LOG.STRING(g_level_error,
6859: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6860: 'Cannot set the tax rate code to '||l_override_tax_rate_code ||
6861: ', ERROR: '||p_error_buffer);
6862: END IF;
6863: IF select_tax_status_rate_code%isopen then
6896: 'does not contain number');
6897: FND_MSG_PUB.Add;
6898: IF (g_level_error >= g_current_runtime_level ) THEN
6899: FND_LOG.STRING(g_level_error,
6900: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6901: 'The action value for APPLY_EXCEPTION action code '||
6902: 'does not contain number');
6903: END IF;
6904: app_exception.raise_exception;
6916: CLOSE get_tax_result_csr;
6917:
6918: IF (g_level_procedure >= g_current_runtime_level ) THEN
6919: FND_LOG.STRING(g_level_procedure,
6920: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result.END',
6921: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(-)' ||
6922: ', p_return_status = ' || p_return_status ||
6923: ', p_error_buffer = ' || p_error_buffer);
6924: END IF;
6917:
6918: IF (g_level_procedure >= g_current_runtime_level ) THEN
6919: FND_LOG.STRING(g_level_procedure,
6920: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result.END',
6921: 'ZX_TDS_RULE_BASE_DETM_PVT: get_result(-)' ||
6922: ', p_return_status = ' || p_return_status ||
6923: ', p_error_buffer = ' || p_error_buffer);
6924: END IF;
6925:
6930: CLOSE get_tax_result_csr;
6931:
6932: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6933: FND_LOG.STRING(g_level_unexpected,
6934: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_result',
6935: p_error_buffer);
6936: END IF;
6937:
6938: END get_result;
6970:
6971: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6972: IF (g_level_statement >= g_current_runtime_level ) THEN
6973: FND_LOG.STRING(g_level_statement,
6974: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.BEGIN',
6975: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fsc_code(+)');
6976: END IF;
6977:
6978: p_found := FALSE;
6971: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6972: IF (g_level_statement >= g_current_runtime_level ) THEN
6973: FND_LOG.STRING(g_level_statement,
6974: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.BEGIN',
6975: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fsc_code(+)');
6976: END IF;
6977:
6978: p_found := FALSE;
6979: l_fsc_tbl := ZX_TDS_CALC_SERVICES_PUB_PKG.g_fsc_tbl;
6998: END LOOP;
6999:
7000: IF (g_level_statement >= g_current_runtime_level ) THEN
7001: FND_LOG.STRING(g_level_statement,
7002: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code',
7003: 'trx_alpha_value: ' || p_trx_alphanumeric_value);
7004: FND_LOG.STRING(g_level_statement,
7005: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.END',
7006: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fsc_code(-)');
7001: FND_LOG.STRING(g_level_statement,
7002: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code',
7003: 'trx_alpha_value: ' || p_trx_alphanumeric_value);
7004: FND_LOG.STRING(g_level_statement,
7005: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.END',
7006: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fsc_code(-)');
7007: END IF;
7008:
7009: EXCEPTION
7002: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code',
7003: 'trx_alpha_value: ' || p_trx_alphanumeric_value);
7004: FND_LOG.STRING(g_level_statement,
7005: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code.END',
7006: 'ZX_TDS_RULE_BASE_DETM_PVT: get_fsc_code(-)');
7007: END IF;
7008:
7009: EXCEPTION
7010: WHEN OTHERS THEN
7009: EXCEPTION
7010: WHEN OTHERS THEN
7011: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7012: FND_LOG.STRING(g_level_unexpected,
7013: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_fsc_code',
7014: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7015: END IF;
7016:
7017: END get_fsc_code;
7043: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7044:
7045: IF (g_level_procedure >= g_current_runtime_level ) THEN
7046: FND_LOG.STRING(g_level_procedure,
7047: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result.BEGIN',
7048: 'ZX_TDS_RULE_BASE_DETM_PVT: check_condition_group_result(+)');
7049: END IF;
7050:
7051: IF (g_level_statement >= g_current_runtime_level ) THEN
7044:
7045: IF (g_level_procedure >= g_current_runtime_level ) THEN
7046: FND_LOG.STRING(g_level_procedure,
7047: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result.BEGIN',
7048: 'ZX_TDS_RULE_BASE_DETM_PVT: check_condition_group_result(+)');
7049: END IF;
7050:
7051: IF (g_level_statement >= g_current_runtime_level ) THEN
7052: FND_LOG.STRING(g_level_statement,
7049: END IF;
7050:
7051: IF (g_level_statement >= g_current_runtime_level ) THEN
7052: FND_LOG.STRING(g_level_statement,
7053: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7054: 'det_factor_templ_code: ' || p_det_factor_templ_code ||
7055: ', condition group code: ' || p_condition_group_code ||
7056: ', trx_line_index: ' || p_trx_line_index ||
7057: ', application_Id: ' || to_char(p_event_class_rec.application_Id) ||
7064: p_result := FALSE;
7065:
7066: IF (g_level_statement >= g_current_runtime_level ) THEN
7067: FND_LOG.STRING(g_level_statement,
7068: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7069: 'Results in condition_group tbl: ' || to_char(l_count));
7070: END IF;
7071:
7072:
7083: p_event_class_rec.tax_event_class_code) THEN
7084:
7085: IF (g_level_statement >= g_current_runtime_level ) THEN
7086: FND_LOG.STRING(g_level_statement,
7087: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7088: l_check_condition_group_tbl(j).condition_group_code ||
7089: ' was evaluated before');
7090: END IF;
7091:
7105: END LOOP;
7106:
7107: IF (g_level_procedure >= g_current_runtime_level ) THEN
7108: FND_LOG.STRING(g_level_procedure,
7109: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result.END',
7110: 'ZX_TDS_RULE_BASE_DETM_PVT: check_condition_group_result(-)');
7111: END IF;
7112:
7113: EXCEPTION
7106:
7107: IF (g_level_procedure >= g_current_runtime_level ) THEN
7108: FND_LOG.STRING(g_level_procedure,
7109: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result.END',
7110: 'ZX_TDS_RULE_BASE_DETM_PVT: check_condition_group_result(-)');
7111: END IF;
7112:
7113: EXCEPTION
7114: WHEN OTHERS THEN
7113: EXCEPTION
7114: WHEN OTHERS THEN
7115: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7116: FND_LOG.STRING(g_level_unexpected,
7117: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_condition_group_result',
7118: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7119: END IF;
7120:
7121: END check_condition_group_result;
7148:
7149: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7150: IF (g_level_procedure >= g_current_runtime_level ) THEN
7151: FND_LOG.STRING(g_level_procedure,
7152: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result.BEGIN',
7153: 'ZX_TDS_RULE_BASE_DETM_PVT: insert_condition_group_result(+)');
7154: END IF;
7155:
7156: i := ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl.count + 1;
7149: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7150: IF (g_level_procedure >= g_current_runtime_level ) THEN
7151: FND_LOG.STRING(g_level_procedure,
7152: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result.BEGIN',
7153: 'ZX_TDS_RULE_BASE_DETM_PVT: insert_condition_group_result(+)');
7154: END IF;
7155:
7156: i := ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl.count + 1;
7157:
7167:
7168:
7169: IF (g_level_procedure >= g_current_runtime_level ) THEN
7170: FND_LOG.STRING(g_level_procedure,
7171: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result.END',
7172: 'ZX_TDS_RULE_BASE_DETM_PVT: insert_condition_group_result(-)');
7173: END IF;
7174:
7175: EXCEPTION
7168:
7169: IF (g_level_procedure >= g_current_runtime_level ) THEN
7170: FND_LOG.STRING(g_level_procedure,
7171: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result.END',
7172: 'ZX_TDS_RULE_BASE_DETM_PVT: insert_condition_group_result(-)');
7173: END IF;
7174:
7175: EXCEPTION
7176: WHEN OTHERS THEN
7176: WHEN OTHERS THEN
7177:
7178: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7179: FND_LOG.STRING(g_level_unexpected,
7180: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.insert_condition_group_result',
7181: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7182: END IF;
7183:
7184: END insert_condition_group_result;
7257: p_valid := TRUE;
7258:
7259: IF (g_level_procedure >= g_current_runtime_level ) THEN
7260: FND_LOG.STRING(g_level_procedure,
7261: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter.BEGIN',
7262: 'ZX_TDS_RULE_BASE_DETM_PVT: check_templ_tax_parameter(+)');
7263: END IF;
7264:
7265: l_tbl_index := dbms_utility.get_hash_value(p_det_factor_templ_code||to_char(p_event_class_rec.event_class_mapping_id), 1, 8192);
7258:
7259: IF (g_level_procedure >= g_current_runtime_level ) THEN
7260: FND_LOG.STRING(g_level_procedure,
7261: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter.BEGIN',
7262: 'ZX_TDS_RULE_BASE_DETM_PVT: check_templ_tax_parameter(+)');
7263: END IF;
7264:
7265: l_tbl_index := dbms_utility.get_hash_value(p_det_factor_templ_code||to_char(p_event_class_rec.event_class_mapping_id), 1, 8192);
7266:
7282: --
7283: IF (chk_taxevnt_parameter_code_csr%found) THEN
7284: IF (g_level_statement >= g_current_runtime_level ) THEN
7285: FND_LOG.STRING(g_level_statement,
7286: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter',
7287: 'chk_taxevnt_parameter_code_csr row count '
7288: ||to_char(chk_taxevnt_parameter_code_csr%rowcount) ||
7289: ', Parameter ' || l_evnt_cls_parameter_code || ' FOUND for Template '
7290: ||p_det_factor_templ_code);
7311: END IF;
7312:
7313: IF (g_level_procedure >= g_current_runtime_level ) THEN
7314: FND_LOG.STRING(g_level_procedure,
7315: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter.END',
7316: 'ZX_TDS_RULE_BASE_DETM_PVT: check_templ_tax_parameter(-)');
7317: END IF;
7318: EXCEPTION
7319: WHEN OTHERS THEN
7312:
7313: IF (g_level_procedure >= g_current_runtime_level ) THEN
7314: FND_LOG.STRING(g_level_procedure,
7315: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter.END',
7316: 'ZX_TDS_RULE_BASE_DETM_PVT: check_templ_tax_parameter(-)');
7317: END IF;
7318: EXCEPTION
7319: WHEN OTHERS THEN
7320: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7321: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7322:
7323: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7324: FND_LOG.STRING(g_level_unexpected,
7325: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_templ_tax_parameter',
7326: p_error_buffer);
7327: END IF;
7328:
7329: END check_templ_tax_parameter;
7383:
7384:
7385: IF (g_level_procedure >= g_current_runtime_level ) THEN
7386: FND_LOG.STRING(g_level_procedure,
7387: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography.BEGIN',
7388: 'ZX_TDS_RULE_BASE_DETM_PVT: check_rule_geography(+)');
7389: END IF;
7390:
7391:
7384:
7385: IF (g_level_procedure >= g_current_runtime_level ) THEN
7386: FND_LOG.STRING(g_level_procedure,
7387: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography.BEGIN',
7388: 'ZX_TDS_RULE_BASE_DETM_PVT: check_rule_geography(+)');
7389: END IF;
7390:
7391:
7392: get_tsrm_num_value(
7398: p_error_buffer);
7399:
7400: IF (g_level_statement >= g_current_runtime_level ) THEN
7401: FND_LOG.STRING(g_level_statement,
7402: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7403: p_rule_det_factor_cq || '_' || 'LOCATION_ID = '||to_char(l_location_id));
7404: END IF;
7405:
7406: ZX_TCM_GEO_JUR_PKG.get_master_geography
7417: p_valid:=TRUE;
7418:
7419: IF (g_level_statement >= g_current_runtime_level ) THEN
7420: FND_LOG.STRING(g_level_statement,
7421: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7422: 'p_valid = TRUE ');
7423: END IF;
7424:
7425: END IF;
7427:
7428:
7429: IF (g_level_statement >= g_current_runtime_level ) THEN
7430: FND_LOG.STRING(g_level_statement,
7431: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7432: 'p_rule_geography_id=' || to_char(p_rule_geography_id)||
7433: ', l_geography_id=' || to_char(l_geography_id) ||
7434: ', l_geography_code=' || l_geography_code ||
7435: ', l_geography_name=' || l_geography_name );
7445: l_cache_geo_id := ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.geography_id(i);
7446:
7447: IF (g_level_statement >= g_current_runtime_level ) THEN
7448: FND_LOG.STRING(g_level_statement,
7449: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7450: 'l_cache_evt_cls_map_id=' || to_char(l_cache_evt_cls_map_id) ||
7451: ', l_cache_trx_id=' || to_char(l_cache_trx_id) ||
7452: ', l_cache_trx_line_id=' || to_char(l_cache_trx_line_id) ||
7453: ', l_cache_loc_type=' || l_cache_loc_type ||
7465: */
7466:
7467: IF (g_level_procedure >= g_current_runtime_level ) THEN
7468: FND_LOG.STRING(g_level_procedure,
7469: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography.END',
7470: 'ZX_TDS_RULE_BASE_DETM_PVT: check_rule_geography(-)');
7471: END IF;
7472: EXCEPTION
7473: WHEN OTHERS THEN
7466:
7467: IF (g_level_procedure >= g_current_runtime_level ) THEN
7468: FND_LOG.STRING(g_level_procedure,
7469: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography.END',
7470: 'ZX_TDS_RULE_BASE_DETM_PVT: check_rule_geography(-)');
7471: END IF;
7472: EXCEPTION
7473: WHEN OTHERS THEN
7474: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7475: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7476:
7477: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7478: FND_LOG.STRING(g_level_unexpected,
7479: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.check_rule_geography',
7480: p_error_buffer);
7481: END IF;
7482:
7483: END check_rule_geography;
7509: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7510:
7511: IF (g_level_statement >= g_current_runtime_level ) THEN
7512: FND_LOG.STRING(g_level_statement,
7513: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index.BEGIN',
7514: 'ZX_TDS_RULE_BASE_DETM_PVT: get_trx_value_index(+)');
7515: END IF;
7516:
7517: l_count := ZX_TDS_CALC_SERVICES_PUB_PKG.g_trx_alphanum_value_tbl.COUNT;
7510:
7511: IF (g_level_statement >= g_current_runtime_level ) THEN
7512: FND_LOG.STRING(g_level_statement,
7513: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index.BEGIN',
7514: 'ZX_TDS_RULE_BASE_DETM_PVT: get_trx_value_index(+)');
7515: END IF;
7516:
7517: l_count := ZX_TDS_CALC_SERVICES_PUB_PKG.g_trx_alphanum_value_tbl.COUNT;
7518:
7526: 8192);
7527:
7528: IF (g_level_statement >= g_current_runtime_level ) THEN
7529: FND_LOG.STRING(g_level_statement,
7530: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index.END',
7531: 'ZX_TDS_RULE_BASE_DETM_PVT: get_trx_value_index(-)');
7532: END IF;
7533:
7534: RETURN l_tbl_index;
7527:
7528: IF (g_level_statement >= g_current_runtime_level ) THEN
7529: FND_LOG.STRING(g_level_statement,
7530: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index.END',
7531: 'ZX_TDS_RULE_BASE_DETM_PVT: get_trx_value_index(-)');
7532: END IF;
7533:
7534: RETURN l_tbl_index;
7535:
7537: WHEN OTHERS THEN
7538:
7539: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7540: FND_LOG.STRING(g_level_unexpected,
7541: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.get_trx_value_index',
7542: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7543: END IF;
7544:
7545: END get_trx_value_index;
7581: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7582:
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.evaluate_alphanum_condition.BEGIN',
7586: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(+)');
7587: FND_LOG.STRING(g_level_statement,
7588: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition',
7589: 'p_Operator_Code: ' || p_operator_code ||
7582:
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.evaluate_alphanum_condition.BEGIN',
7586: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(+)');
7587: FND_LOG.STRING(g_level_statement,
7588: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition',
7589: 'p_Operator_Code: ' || p_operator_code ||
7590: ', p_condition_value:' || p_condition_value ||
7584: FND_LOG.STRING(g_level_statement,
7585: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.BEGIN',
7586: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(+)');
7587: FND_LOG.STRING(g_level_statement,
7588: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition',
7589: 'p_Operator_Code: ' || p_operator_code ||
7590: ', p_condition_value:' || p_condition_value ||
7591: ', p_trx_value: ' || p_trx_value ||
7592: ', p_value_low: ' || p_value_low ||
7656:
7657: FOR i IN 1..trx_acc.LAST LOOP
7658: IF (g_level_statement >= g_current_runtime_level ) THEN
7659: FND_LOG.STRING(g_level_statement,
7660: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.BEGIN',
7661: 'TRX-ACC-SEG-' ||i||' = '||trx_acc(i)||', '||
7662: 'ACC-LOW-SEG-' ||i||' = '||acc_low(i)||', '||
7663: 'ACC-HIGH-SEG-'||i||' = '||acc_high(i));
7664: END IF;
7690: --
7691:
7692: IF (g_level_statement >= g_current_runtime_level ) THEN
7693: FND_LOG.STRING(g_level_statement,
7694: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition',
7695: 'Invalid Operator_Code for alphanumeric data type');
7696: END IF;
7697:
7698: RETURN FALSE;
7699: END IF;
7700:
7701: IF (g_level_statement >= g_current_runtime_level ) THEN
7702: FND_LOG.STRING(g_level_statement,
7703: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.END',
7704: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(-)');
7705: END IF;
7706:
7707: EXCEPTION
7700:
7701: IF (g_level_statement >= g_current_runtime_level ) THEN
7702: FND_LOG.STRING(g_level_statement,
7703: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_alphanum_condition.END',
7704: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_alphanum_condition(-)');
7705: END IF;
7706:
7707: EXCEPTION
7708: WHEN OTHERS THEN
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.evaluate_alphanum_condition',
7713: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7714: END IF;
7715:
7716: END evaluate_alphanum_condition;
7733: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7734:
7735: IF (g_level_statement >= g_current_runtime_level ) THEN
7736: FND_LOG.STRING(g_level_statement,
7737: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.BEGIN',
7738: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(+)');
7739: FND_LOG.STRING(g_level_statement,
7740: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
7741: 'p_Operator_Code: ' || p_operator_code ||
7734:
7735: IF (g_level_statement >= g_current_runtime_level ) THEN
7736: FND_LOG.STRING(g_level_statement,
7737: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.BEGIN',
7738: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(+)');
7739: FND_LOG.STRING(g_level_statement,
7740: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
7741: 'p_Operator_Code: ' || p_operator_code ||
7742: ', p_condition_value: ' || to_char(p_condition_value) ||
7736: FND_LOG.STRING(g_level_statement,
7737: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.BEGIN',
7738: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(+)');
7739: FND_LOG.STRING(g_level_statement,
7740: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
7741: 'p_Operator_Code: ' || p_operator_code ||
7742: ', p_condition_value: ' || to_char(p_condition_value) ||
7743: ', p_trx_value: ' || to_char(p_trx_value));
7744: END IF;
7786: --
7787:
7788: IF (g_level_statement >= g_current_runtime_level ) THEN
7789: FND_LOG.STRING(g_level_statement,
7790: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
7791: 'Invalid Operator_Code for numeric data type');
7792: END IF;
7793:
7794: RETURN FALSE;
7795: END IF;
7796:
7797: IF (g_level_statement >= g_current_runtime_level ) THEN
7798: FND_LOG.STRING(g_level_statement,
7799: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.END',
7800: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(-)');
7801: END IF;
7802:
7803: EXCEPTION
7796:
7797: IF (g_level_statement >= g_current_runtime_level ) THEN
7798: FND_LOG.STRING(g_level_statement,
7799: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition.END',
7800: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_numeric_condition(-)');
7801: END IF;
7802:
7803: EXCEPTION
7804: WHEN OTHERS THEN
7803: EXCEPTION
7804: WHEN OTHERS THEN
7805: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7806: FND_LOG.STRING(g_level_unexpected,
7807: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_numeric_condition',
7808: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7809: END IF;
7810:
7811: END evaluate_numeric_condition;
7831: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7832:
7833: IF (g_level_statement >= g_current_runtime_level ) THEN
7834: FND_LOG.STRING(g_level_statement,
7835: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.BEGIN',
7836: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(+)');
7837: FND_LOG.STRING(g_level_statement,
7838: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
7839: 'p_Operator_Code: ' || p_operator_code ||
7832:
7833: IF (g_level_statement >= g_current_runtime_level ) THEN
7834: FND_LOG.STRING(g_level_statement,
7835: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.BEGIN',
7836: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(+)');
7837: FND_LOG.STRING(g_level_statement,
7838: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
7839: 'p_Operator_Code: ' || p_operator_code ||
7840: ', p_condition_value: ' || to_char(p_condition_value, 'DD-MON-YY') ||
7834: FND_LOG.STRING(g_level_statement,
7835: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.BEGIN',
7836: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(+)');
7837: FND_LOG.STRING(g_level_statement,
7838: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
7839: 'p_Operator_Code: ' || p_operator_code ||
7840: ', p_condition_value: ' || to_char(p_condition_value, 'DD-MON-YY') ||
7841: ', p_trx_value: ' || to_char(p_trx_value, 'DD-MON-YY'));
7842: END IF;
7885: -- invalid Operator_Code
7886: --
7887: IF (g_level_statement >= g_current_runtime_level ) THEN
7888: FND_LOG.STRING(g_level_statement,
7889: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
7890: 'Invalid Operator_Code for date data type');
7891: END IF;
7892:
7893: RETURN FALSE;
7895:
7896:
7897: IF (g_level_statement >= g_current_runtime_level ) THEN
7898: FND_LOG.STRING(g_level_statement,
7899: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.END',
7900: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(-)');
7901: END IF;
7902:
7903: EXCEPTION
7896:
7897: IF (g_level_statement >= g_current_runtime_level ) THEN
7898: FND_LOG.STRING(g_level_statement,
7899: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition.END',
7900: 'ZX_TDS_RULE_BASE_DETM_PVT: evaluate_date_condition(-)');
7901: END IF;
7902:
7903: EXCEPTION
7904: WHEN OTHERS THEN
7904: WHEN OTHERS THEN
7905:
7906: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7907: FND_LOG.STRING(g_level_unexpected,
7908: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.evaluate_date_condition',
7909: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
7910: END IF;
7911:
7912: END evaluate_date_condition;
8013: Return(FALSE);
8014:
8015: END evaluate_if_first_party;
8016:
8017: END ZX_TDS_RULE_BASE_DETM_PVT;
8018: