1: PACKAGE BODY ZX_TCM_PTP_PKG AS
2: /* $Header: zxcptpb.pls 120.43 2009/06/12 00:06:09 hongliu ship $ */
3:
4: -- Logging Infra
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_TCM_PTP_PKG';
1: PACKAGE BODY ZX_TCM_PTP_PKG AS
2: /* $Header: zxcptpb.pls 120.43 2009/06/12 00:06:09 hongliu ship $ */
3:
4: -- Logging Infra
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_TCM_PTP_PKG';
6: G_CURRENT_RUNTIME_LEVEL NUMBER;
7: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_TCM_PTP_PKG';
14:
15: TYPE l_ptp_id_rec_type IS RECORD(
16: le_id NUMBER,
17: party_type_code VARCHAR2(240),
1647:
1648: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1649: l_log_msg := 'Party Tax Profile Id info for party_id: '||to_char(p_party_id)||' and party_type_code '
1650: ||p_party_type_code||' found in cache at index: '||to_char(l_tbl_index);
1651: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1652: END IF;
1653:
1654: X_TBL_INDEX := l_tbl_index;
1655: RETURN;
1693:
1694: EXCEPTION
1695: WHEN no_data_found then
1696: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1697: l_log_msg := 'No Data found in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO. Still returning with success';
1698: FND_LOG.STRING(G_LEVEL_PROCEDURE,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1699: END IF;
1700: X_TBL_INDEX := NULL;
1701: WHEN others then
1694: EXCEPTION
1695: WHEN no_data_found then
1696: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1697: l_log_msg := 'No Data found in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO. Still returning with success';
1698: FND_LOG.STRING(G_LEVEL_PROCEDURE,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1699: END IF;
1700: X_TBL_INDEX := NULL;
1701: WHEN others then
1702: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1699: END IF;
1700: X_TBL_INDEX := NULL;
1701: WHEN others then
1702: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1703: l_log_msg := 'Unexpected error in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO: '||SQLCODE||' ; '||SQLERRM;
1704: FND_LOG.STRING(G_LEVEL_UNEXPECTED,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1705: END IF;
1706:
1707: END GET_PARTY_TAX_PROF_INFO;
1700: X_TBL_INDEX := NULL;
1701: WHEN others then
1702: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1703: l_log_msg := 'Unexpected error in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO: '||SQLCODE||' ; '||SQLERRM;
1704: FND_LOG.STRING(G_LEVEL_UNEXPECTED,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1705: END IF;
1706:
1707: END GET_PARTY_TAX_PROF_INFO;
1708:
1752: THEN
1753:
1754: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1755: l_log_msg := 'Party Tax Profile Id info found in cache ';
1756: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1757: END IF;
1758:
1759: X_TBL_INDEX := p_party_tax_profile_id;
1760: RETURN;
1800: EXCEPTION
1801:
1802: WHEN no_data_found then
1803: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1804: l_log_msg := 'No Data found in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO. Still returning with success';
1805: FND_LOG.STRING(G_LEVEL_PROCEDURE,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1806: END IF;
1807: X_TBL_INDEX := NULL;
1808:
1801:
1802: WHEN no_data_found then
1803: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1804: l_log_msg := 'No Data found in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO. Still returning with success';
1805: FND_LOG.STRING(G_LEVEL_PROCEDURE,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1806: END IF;
1807: X_TBL_INDEX := NULL;
1808:
1809: WHEN others then
1807: X_TBL_INDEX := NULL;
1808:
1809: WHEN others then
1810: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1811: l_log_msg := 'Unexpected error in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO: '||SQLCODE||' ; '||SQLERRM;
1812: FND_LOG.STRING(G_LEVEL_UNEXPECTED,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1813: END IF;
1814:
1815: END GET_PARTY_TAX_PROF_INFO;
1808:
1809: WHEN others then
1810: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1811: l_log_msg := 'Unexpected error in ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO: '||SQLCODE||' ; '||SQLERRM;
1812: FND_LOG.STRING(G_LEVEL_UNEXPECTED,'ZX_TCM_PTP_PKG.GET_PARTY_TAX_PROF_INFO', l_log_msg);
1813: END IF;
1814:
1815: END GET_PARTY_TAX_PROF_INFO;
1816:
1814:
1815: END GET_PARTY_TAX_PROF_INFO;
1816:
1817:
1818: END ZX_TCM_PTP_PKG;