The following lines contain the word 'select', 'insert', 'update' or 'delete':
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Delete current document terms');
OKC_TERMS_UTIL_PVT.Delete_Doc(
x_return_status => x_return_status,
p_doc_type => p_doc_type,
p_doc_id => p_doc_id
);
Procedure Delete_Doc_Version (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
p_doc_type IN VARCHAR2,
p_doc_id IN NUMBER,
p_version_number IN NUMBER
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Doc_Version';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Delete_Doc_Version');
SAVEPOINT g_Delete_Doc_Version;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Call Private Delete_Doc_Version ');
OKC_TERMS_VERSION_PVT.Delete_Doc_Version(
x_return_status => x_return_status,
p_doc_type => p_doc_type,
p_doc_id => p_doc_id,
p_version_number => p_version_number
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3900: Delete delevirable for the doc version');
OKC_DELIVERABLE_PROCESS_PVT.Delete_Deliverables(
p_api_version => l_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_doc_type => p_doc_type,
p_doc_id => p_doc_id,
p_doc_version => p_version_number,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count,
x_return_status => x_return_status
);
OKC_CONTRACT_DOCS_GRP.Delete_Ver_Attachments(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
p_commit => FND_API.G_FALSE,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count,
p_business_document_type => p_doc_type,
p_business_document_id => p_doc_id,
p_business_document_version=> p_version_number
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Leaving Delete_Doc_Version');
ROLLBACK TO g_Delete_Doc_Version;
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Delete_Doc_Version : OKC_API.G_EXCEPTION_ERROR Exception');
ROLLBACK TO g_Delete_Doc_Version;
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Delete_Doc_Version : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
ROLLBACK TO g_Delete_Doc_Version;
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Delete_Doc_Version because of EXCEPTION: '||sqlerrm);
END Delete_Doc_Version ;