59:
60: l_progress := '000';
61: -- Standard call to check for call compatibility
62:
63: IF (NOT FND_API.Compatible_API_Call(l_api_version
64: ,p_api_version
65: ,l_api_name
66: ,G_PKG_NAME))
67: THEN
64: ,p_api_version
65: ,l_api_name
66: ,G_PKG_NAME))
67: THEN
68: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
70:
71: -- Initialize API return status to success
72:
69: END IF;
70:
71: -- Initialize API return status to success
72:
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: /* Check the required fields */
76: If ((p_doc_type is NULL) OR(p_doc_subtype is NULL) OR
77: (p_doc_id IS NULL)) THEN
195:
196: -- Calls Contracts API to clear Amendment related columns
197: OKC_TERMS_VERSION_GRP.clear_amendment(
198: p_api_version => 1.0,
199: p_init_msg_list => FND_API.G_FALSE,
200: p_commit => FND_API.G_FALSE,
201: x_return_status => l_return_status,
202: x_msg_data => l_msg_data,
203: x_msg_count => l_msg_count,
196: -- Calls Contracts API to clear Amendment related columns
197: OKC_TERMS_VERSION_GRP.clear_amendment(
198: p_api_version => 1.0,
199: p_init_msg_list => FND_API.G_FALSE,
200: p_commit => FND_API.G_FALSE,
201: x_return_status => l_return_status,
202: x_msg_data => l_msg_data,
203: x_msg_count => l_msg_count,
204: p_doc_type => (l_doc_type ||'_'||p_doc_subtype),
209: -- Bug 3616320 END
210: end if;
211:
212: EXCEPTION
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215:
216: when others then
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210: end if;
211:
212: EXCEPTION
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215:
216: when others then
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
218: PO_MESSAGE_S.SQL_ERROR(routine => 'Check_New_Revision',
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
215:
216: when others then
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
218: PO_MESSAGE_S.SQL_ERROR(routine => 'Check_New_Revision',
219: location => l_progress,
220: error_code => SQLCODE);
221:
1715: END IF;
1716:
1717: l_progress := '010';
1718: --Standard call to check for call compatibility
1719: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1720: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1721: END IF;
1722:
1723: x_return_status := FND_API.G_RET_STS_SUCCESS;
1716:
1717: l_progress := '010';
1718: --Standard call to check for call compatibility
1719: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1720: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1721: END IF;
1722:
1723: x_return_status := FND_API.G_RET_STS_SUCCESS;
1724:
1719: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1720: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1721: END IF;
1722:
1723: x_return_status := FND_API.G_RET_STS_SUCCESS;
1724:
1725: if ((p_doc_type = 'PO') OR (p_doc_type = 'PA')) THEN
1726:
1727: l_progress := '015';
1936: END IF;
1937: END IF;
1938:
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: WHEN OTHERS THEN
1937: END IF;
1938:
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: WHEN OTHERS THEN
1945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1938:
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: WHEN OTHERS THEN
1945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1946: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: WHEN OTHERS THEN
1945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1946: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1947:
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: WHEN OTHERS THEN
1945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1946: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
1947:
1948: END Compare;
1949: --