[Home] [Help]
388: p_error_buffer OUT NOCOPY VARCHAR2);
389:
390: g_current_runtime_level NUMBER;
391:
392: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
393: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
394: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
395: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
396: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
389:
390: g_current_runtime_level NUMBER;
391:
392: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
393: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
394: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
395: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
396: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
397:
390: g_current_runtime_level NUMBER;
391:
392: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
393: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
394: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
395: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
396: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
397:
398: ----------------------------------------------------------------------
391:
392: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
393: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
394: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
395: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
396: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
397:
398: ----------------------------------------------------------------------
399: -- PUBLIC PROCEDURE
392: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
393: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
394: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
395: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
396: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
397:
398: ----------------------------------------------------------------------
399: -- PUBLIC PROCEDURE
400: -- init_cec_params
413: p_error_buffer IN OUT NOCOPY VARCHAR2) is
414:
415: begin
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 (+)');
415: begin
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:
582: g_cec_bill_to_site_use_id,
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
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:
782:
783: BEGIN
784:
785:
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',
785:
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:
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,
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 ||
814: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
829: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
851: p_error_buffer);
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;
888:
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;
943: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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;
955:
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;
1014:
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;
1026:
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;
1062:
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:
1102: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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;
1113: END IF;
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;
1133:
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',
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(-)' ||
1143: ', p_return_status = ' || p_return_status ||
1144: ', p_error_buffer = ' || p_error_buffer);
1156: CLOSE get_regime_code_csr;
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:
1254: ORDER BY TAX, PRIORITY;
1255: *************************/
1256:
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(+)');
1256:
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:
1305: ELSE
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;
1364: */
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',
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(-)');
1374: END IF;
1375:
1381: CLOSE get_recovery_templ_csr;
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:
1536: l_rule_geography_type_tbl RULE_GEOGRAPHY_TYPE_TBL;
1537: l_rule_geography_id_tbl RULE_GEOGRAPHY_ID_TBL;
1538: BEGIN
1539:
1540: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1541:
1542: /*Bug fix 4017396*/
1543: IF (g_level_procedure >= g_current_runtime_level ) THEN
1544: FND_LOG.STRING(g_level_procedure,
1540: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
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:
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,
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: ' ||
1573: p_error_buffer);
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;
1586: --
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
1640: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
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;
1651: END IF;
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;
1711: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
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;
1722: END IF;
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;
1790: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
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;
1801: END IF;
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;
1819:
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);
1839: CLOSE get_det_factor_templ_csr_e;
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:
1919: WHERE pr.TAX_RULE_ID = r.TAX_RULE_ID)
1920: ORDER BY PRIORITY;
1921:
1922: BEGIN
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',
1922: BEGIN
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:
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:
1940:
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:
1991: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
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;
2004: IF (get_templ_from_regime_hier_csr%notfound OR p_found) THEN
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;
2023: EXIT WHEN (p_found OR p_return_status = FND_API.G_RET_STS_ERROR);
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);
2039: CLOSE get_templ_from_regime_hier_csr;
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:
2086: l_rule_geography_type ZX_RULES_B.GEOGRAPHY_TYPE%TYPE;
2087: l_rule_geography_id ZX_RULES_B.GEOGRAPHY_ID%TYPE;
2088:
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(+)');
2088:
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:
2099:
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:
2116: l_rule_geography_type := p_rule_geography_type_tbl(i);
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);
2140: 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;
2159:
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:
2220: END IF; --l_valid for check_rule_geography
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:
2231: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
2456:
2457: l_action_rec_tbl ZX_TDS_PROCESS_CEC_PVT.action_rec_tbl_type;
2458:
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(+)');
2458:
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:
2604:
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:
2677:
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;
2708: init_set_condition;
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:
2903: --
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;
2949:
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.');
2966: CLOSE get_condition_group_codes_csr;
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);
2981: IF get_condition_group_codes_csr%ISOPEN THEN
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:
3039: AND (Ignore_Flag <> 'Y' OR IGNORE_FLAG IS NULL);
3040:
3041:
3042: BEGIN
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',
3042: BEGIN
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;
3049:
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;
3095:
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;
3109: -- and there are more conditions to process
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;
3124: 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:
3138: CLOSE get_condition_csr;
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:
3173: IS
3174: i BINARY_INTEGER;
3175:
3176: BEGIN
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',
3176: BEGIN
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:
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,
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 ||
3193: ', p_determining_factor_code: ' || p_determining_factor_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));
3215: g_value_high_tbl(i) := p_value_high;
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
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:
3245: --
3246: PROCEDURE init_set_condition
3247: IS
3248: BEGIN
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',
3248: BEGIN
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:
3266: g_value_low_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:
3274:
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:
3320: l_trx_alphanum_value ZX_CONDITIONS.ALPHANUMERIC_VALUE%TYPE;
3321: l_trx_date_value ZX_CONDITIONS.DATE_VALUE%TYPE;
3322: BEGIN
3323:
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',
3323:
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:
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:
3345:
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:
3368:
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;
3405:
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;
3446:
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;
3472:
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;
3515:
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
3525:
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);
3538: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
3579: l_found_in_cache BOOLEAN;
3580:
3581: BEGIN
3582:
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',
3582:
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:
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;
3671: p_Determining_Factor_Cq_Code,
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:
3828: END IF;
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);
3840: WHEN OTHERS THEN
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:
3879: l_count NUMBER;
3880: l_zone_tbl HZ_GEO_GET_PUB.zone_tbl_type;
3881: BEGIN
3882:
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',
3882:
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:
3893: i := p_condition_index;
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;
3911: p_error_buffer);
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;
3922:
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;
3942: p_return_status,
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;
3955: --
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;
3978: p_return_status,
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;
3989: END IF;
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);
4001: WHEN OTHERS THEN
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:
4033: IS
4034: i BINARY_INTEGER;
4035: BEGIN
4036:
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',
4036:
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:
4056: p_return_status,
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;
4073: p_return_status
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;
4090: p_return_status,
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;
4100:
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:
4108:
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);
4121: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
4150: --l_table_index NUMBER;
4151:
4152: BEGIN
4153:
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',
4153:
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',
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;
4164: p_return_status := FND_API.G_RET_STS_SUCCESS;
4190: --END IF;
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',
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(-)' ||
4200: ', p_return_status = ' || p_return_status ||
4201: ', p_error_buffer = ' || p_error_buffer);
4206: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
4234: --l_table_index NUMBER;
4235:
4236: BEGIN
4237:
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',
4237:
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',
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;
4248:
4274: --END IF;
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',
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(-)' ||
4284: ', p_return_status = ' || p_return_status ||
4285: ', p_error_buffer = ' || p_error_buffer);
4290: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
4319: l_in_cache_flg BOOLEAN := FALSE;
4320:
4321: BEGIN
4322:
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',
4322:
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',
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;
4333: p_return_status := FND_API.G_RET_STS_SUCCESS;
4359: END IF;
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',
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(-)' ||
4369: ', p_return_status = ' || p_return_status ||
4370: ', p_error_buffer = ' || p_error_buffer);
4375: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
4404: l_in_cache_flg BOOLEAN := FALSE;
4405:
4406: BEGIN
4407:
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',
4407:
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',
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;
4418:
4444: END IF;
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',
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(-)' ||
4454: ', p_return_status = ' || p_return_status ||
4455: ', p_error_buffer = ' || p_error_buffer);
4460: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
4491: IS
4492: i BINARY_INTEGER;
4493: BEGIN
4494:
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',
4494:
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:
4515: p_return_status,
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;
4525:
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:
4533:
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);
4546: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
4578: l_in_cache_flg BOOLEAN := FALSE;
4579:
4580: BEGIN
4581:
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',
4581:
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',
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;
4592:
4622: p_trx_alphanumeric_value := l_trx_alphanumeric_value;
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',
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(-)' ||
4632: ', p_return_status = ' || p_return_status ||
4633: ', p_error_buffer = ' || p_error_buffer);
4637: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
4722: WHERE country_code = c_country_code;
4723:
4724: BEGIN
4725:
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',
4725:
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:
4739: l_classification_type := g_determining_factor_code_tbl(i);
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);
4771: p_error_buffer );
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;
4781: RETURN;
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:
4797: l_fsc_cat_rec.condition_subclass := p_Determining_Factor_Cq_Code;
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:
4835: p_error_buffer );
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;
4864: ELSE
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;
4885: l_level_delimiter;
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 ||
4908: p_error_buffer );
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;
4923: FETCH c_country_def_category_set_id into l_country_def_category_set_id;
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:
4941: p_error_buffer );
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;
5006: p_error_buffer );
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;
5027: p_error_buffer );
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:
5068: l_fsc_rec.event_class_code := p_event_class_rec.event_class_code;
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:
5097: ELSE
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;
5163: p_error_buffer );
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;
5196: p_error_buffer );
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;
5208:
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:
5239: l_fsc_rec.event_class_code := p_event_class_rec.event_class_code;
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:
5270: ELSE
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;
5288:
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',
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(-)' ||
5298: ', p_return_status = ' || p_return_status ||
5299: ', p_error_buffer = ' || p_error_buffer);
5324: p_error_buffer );
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;
5336:
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',
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(-)' ||
5346: ', p_return_status = ' || p_return_status ||
5347: ', p_error_buffer = ' || p_error_buffer);
5359: IF c_get_le_ptp_id%NOTFOUND THEN
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;
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
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;
5377:
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:
5413: END IF;
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;
5440: p_error_buffer );
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;
5458: IF c_get_le_ptp_id%NOTFOUND THEN
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;
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
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;
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:
5508: ZX_TDS_CALC_SERVICES_PUB_PKG.g_fsc_tbl(j) := l_fsc_rec;
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;
5526:
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',
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(-)' ||
5536: ', p_return_status = ' || p_return_status ||
5537: ', p_error_buffer = ' || p_error_buffer);
5542: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
5577: l_location_type VARCHAR2(30);
5578: --l_zone_tbl HZ_GEO_GET_PUB.zone_tbl_type;
5579: BEGIN
5580:
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',
5580:
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:
5610: p_return_status,
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:
5641: END IF;
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',
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(-)' ||
5651: ', p_return_status = ' || p_return_status ||
5652: ', p_error_buffer = ' || p_error_buffer);
5656: WHEN OTHERS THEN
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:
5689: l_location_type VARCHAR2(30);
5690: l_msg_count NUMBER;
5691: i BINARY_INTEGER;
5692: BEGIN
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',
5692: BEGIN
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:
5722: p_return_status,
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:
5730:
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:
5753: end if; -- l_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:
5759: 'trx_numeric_value: ' || TO_CHAR(p_trx_numeric_value));
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);
5771: WHEN OTHERS THEN
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:
5806: l_ret_record_level VARCHAR2(30);
5807:
5808: BEGIN
5809:
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',
5809:
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:
5833: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
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);
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,
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;
5846: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5852: 'registration status: ' || p_trx_alphanumeric_value);
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);
5865: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
5901: l_tax_parameter_code ZX_PARAMETERS_B.TAX_PARAMETER_CODE%TYPE;
5902: l_sob_id ZX_CONDITION_GROUPS_B.LEDGER_ID%TYPE;
5903: BEGIN
5904:
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',
5904:
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',
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));
5915: END IF;
5936: p_return_status := FND_API.G_RET_STS_ERROR;
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;
5958: --
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:
6000: l_account_string :=
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:
6013: p_chart_of_accounts_id,
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:
6045:
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;
6066: p_error_buffer);
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);
6079: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
6105: l_delimiter VARCHAR2(1);
6106: l_num_of_segments NUMBER;
6107: BEGIN
6108:
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',
6108:
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:
6131: l_delimiter,
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:
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,
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:
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:
6179: l_item_org_id NUMBER;
6180:
6181: BEGIN
6182:
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',
6182:
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:
6202: p_return_status,
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:
6224: p_return_status,
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:
6245: p_error_buffer );
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:
6256: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
6295: ORGANIZATION_ID = c_item_org_id;
6296:
6297: BEGIN
6298:
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',
6298:
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:
6316: p_error_buffer := 'Invalid Determining Factor code for Product class';
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',
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(-)' ||
6326: ', p_return_status = ' || p_return_status ||
6327: ', p_error_buffer = ' || p_error_buffer);
6332: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
6371: WHERE PARTY_TAX_PROFILE_ID = c_party_tax_profile_id;
6372:
6373: BEGIN
6374:
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',
6374:
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:
6390: p_return_status,
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:
6409: p_error_buffer := 'Invalid Determining Factor code for Party class';
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',
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(-)' ||
6419: ', p_return_status = ' || p_return_status ||
6420: ', p_error_buffer = ' || p_error_buffer);
6426: p_error_buffer :=sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
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;
6456: IS
6457: i BINARY_INTEGER;
6458: BEGIN
6459:
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',
6459:
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:
6496: p_error_buffer := 'Invalid data type';
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:
6504:
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:
6515: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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:
6608: l_service_type_code ZX_RULES_B.service_type_code%TYPE;
6609:
6610: BEGIN
6611:
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',
6611:
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
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',
6622: 'result_id: ' || p_result_id);
6623: END IF;
6624:
6711:
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:
6750:
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;
6813:
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:
6854:
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;
6895: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','The action value for APPLY_EXCEPTION action code'||
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;
6915:
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);
6929: p_error_buffer := SUBSTR(SQLERRM, 1, 80);
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:
6967: l_count NUMBER;
6968: l_fsc_tbl ZX_TCM_CONTROL_PKG.zx_fsc_class_info_cache;
6969: BEGIN
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(+)');
6969: BEGIN
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:
6997: END IF;
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',
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(-)');
7007: END IF;
7008:
7008:
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:
7039: l_count NUMBER;
7040: l_check_condition_group_tbl ZX_TDS_CALC_SERVICES_PUB_PKG.trx_line_cond_grp_eval_tbl;
7041: BEGIN
7042:
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',
7042:
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:
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,
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 ||
7063: p_template_evaluated := FALSE;
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:
7082: l_check_condition_group_tbl(j).tax_event_class_code =
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;
7104:
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:
7112:
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:
7145: l_check_condition_group_rec ZX_TDS_CALC_SERVICES_PUB_PKG.trx_line_cond_grp_eval_rec;
7146:
7147: BEGIN
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(+)');
7147: BEGIN
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:
7166: ZX_TDS_CALC_SERVICES_PUB_PKG.g_check_cond_grp_tbl(i) := l_check_condition_group_rec;
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
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:
7249: );
7250:
7251: BEGIN
7252:
7253: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7254: p_return_status := FND_API.G_RET_STS_SUCCESS;
7255:
7256: --Initialize the return status , p_valid as TRUE
7257: p_valid := TRUE;
7256: --Initialize the return status , p_valid as TRUE
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:
7281: --parameter is not supported by the application; hence return FALSE
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 '
7310: CLOSE chk_taxevnt_parameter_code_csr;
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
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:
7372: l_geography_name VARCHAR2(360);
7373:
7374: BEGIN
7375:
7376: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7377: p_return_status := FND_API.G_RET_STS_SUCCESS;
7378:
7379: --Initialize the return status , p_valid as FALSE
7380: p_valid := FALSE;
7382: --l_count := ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.COUNT;
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:
7397: p_return_status,
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:
7416: IF l_geography_id = p_rule_geography_id then
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:
7426: 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 ||
7444: l_cache_geo_type := ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.geography_type(i);
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) ||
7464: END LOOP;
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
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:
7505: /* Bug 5003413 : Added a delimiter to avoid concatenation of two strings
7506: resulting into same output string */
7507: BEGIN
7508:
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',
7508:
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:
7525: 1,
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:
7536: EXCEPTION
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:
7577: l_count NUMBER;
7578: l_result BOOLEAN;
7579: -- End : Added for Bug#7412888 by ssohal
7580: BEGIN
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',
7580: BEGIN
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',
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 ||
7591: ', p_trx_value: ' || p_trx_value ||
7655: END LOOP;
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));
7689: -- invalid Operator_Code
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
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:
7729: p_condition_value IN ZX_CONDITIONS.NUMERIC_VALUE%TYPE,
7730: p_trx_value IN ZX_CONDITIONS.NUMERIC_VALUE%TYPE)
7731: RETURN BOOLEAN IS
7732: BEGIN
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',
7732: BEGIN
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',
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) ||
7743: ', p_trx_value: ' || to_char(p_trx_value));
7785: -- invalid Operator_Code
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:
7802:
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:
7827: l_condition_value ZX_CONDITIONS.DATE_VALUE%TYPE;
7828: l_trx_value ZX_CONDITIONS.DATE_VALUE%TYPE;
7829: BEGIN
7830:
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',
7830:
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',
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') ||
7841: ', p_trx_value: ' || to_char(p_trx_value, 'DD-MON-YY'));
7884: --
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:
7894: END IF;
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
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: