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:
1777: END IF;
1778:
1779: l_progress := '010';
1780: --Standard call to check for call compatibility
1781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1783: END IF;
1784:
1785: x_return_status := FND_API.G_RET_STS_SUCCESS;
1778:
1779: l_progress := '010';
1780: --Standard call to check for call compatibility
1781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1783: END IF;
1784:
1785: x_return_status := FND_API.G_RET_STS_SUCCESS;
1786:
1781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1783: END IF;
1784:
1785: x_return_status := FND_API.G_RET_STS_SUCCESS;
1786:
1787: if ((p_doc_type = 'PO') OR (p_doc_type = 'PA')) THEN
1788:
1789: l_progress := '015';
1998: END IF;
1999: END IF;
2000:
2001: EXCEPTION
2002: WHEN FND_API.G_EXC_ERROR THEN
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2006: WHEN OTHERS THEN
1999: END IF;
2000:
2001: EXCEPTION
2002: WHEN FND_API.G_EXC_ERROR THEN
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2006: WHEN OTHERS THEN
2007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2000:
2001: EXCEPTION
2002: WHEN FND_API.G_EXC_ERROR THEN
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2006: WHEN OTHERS THEN
2007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2008: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2001: EXCEPTION
2002: WHEN FND_API.G_EXC_ERROR THEN
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2006: WHEN OTHERS THEN
2007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2008: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2009:
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2006: WHEN OTHERS THEN
2007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2008: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2009:
2010: END Compare;
2011: --
2112: x_token_value_tbl := PO_TBL_VARCHAR2000();
2113: x_token_value_tbl.EXTEND(5);
2114:
2115:
2116: x_return_status := FND_API.G_RET_STS_SUCCESS;
2117: x_msg_name:=NULL;
2118:
2119: BEGIN
2120:
2376: PO_DEBUG.debug_var(d_module, l_progress, 'Setting x_msg as Null','');
2377: END IF;
2378:
2379: WHEN OTHERS THEN
2380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2381: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2382:
2383: END;
2384:
2382:
2383: END;
2384:
2385: WHEN OTHERS THEN
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2388: END;
2389:
2390: EXCEPTION
2387: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2388: END;
2389:
2390: EXCEPTION
2391: WHEN FND_API.G_EXC_ERROR THEN
2392: x_return_status := FND_API.G_RET_STS_ERROR;
2393: x_msg_name :=sqlerrm;
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_name :=sqlerrm;
2388: END;
2389:
2390: EXCEPTION
2391: WHEN FND_API.G_EXC_ERROR THEN
2392: x_return_status := FND_API.G_RET_STS_ERROR;
2393: x_msg_name :=sqlerrm;
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_name :=sqlerrm;
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2390: EXCEPTION
2391: WHEN FND_API.G_EXC_ERROR THEN
2392: x_return_status := FND_API.G_RET_STS_ERROR;
2393: x_msg_name :=sqlerrm;
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_name :=sqlerrm;
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: WHEN OTHERS THEN
2398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392: x_return_status := FND_API.G_RET_STS_ERROR;
2393: x_msg_name :=sqlerrm;
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_name :=sqlerrm;
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: WHEN OTHERS THEN
2398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2399: x_msg_name :=sqlerrm;
2400: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_msg_name :=sqlerrm;
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: WHEN OTHERS THEN
2398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2399: x_msg_name :=sqlerrm;
2400: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
2401:
2402: END CHECK_REV_DIFF;