1: package body OKC_DELETE_CONTRACT_PUB as
2: /* $Header: OKCPDELB.pls 120.0 2005/05/26 09:42:45 appldev noship $ */
3: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4:
5: PROCEDURE delete_contract(
93:
94: IF p_chrv_tbl.COUNT > 0 THEN
95: i := p_chrv_tbl.FIRST;
96: LOOP
97: OKC_DELETE_CONTRACT_PUB.Delete_Contract(
98: p_api_version => p_api_version,
99: p_init_msg_list => p_init_msg_list,
100: x_return_status => l_return_status,
101: x_msg_count => x_msg_count,
149: p_token2_value => sqlerrm);
150: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
151: END Delete_Contract;
152:
153: END OKC_DELETE_CONTRACT_PUB;