56: --
57: -- Initialize the message table if requested.
58: --
59: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63: --
64: -- Set API return status to success
106: --
107: -- Standard call to get message count and if count is 1, get message
108: -- info
109: --
110: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
111: , p_data => x_msg_data );
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_ERROR THEN
113: EXCEPTION
114: WHEN FND_API.G_EXC_ERROR THEN
115: ROLLBACK TO version_contract_pub;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
118: , p_data => x_msg_data );
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: ROLLBACK TO version_contract_pub;
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: ROLLBACK TO version_contract_pub;
122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
124: , p_data => x_msg_data );
125:
126: WHEN OTHERS THEN
127: ROLLBACK TO version_contract_pub;
125:
126: WHEN OTHERS THEN
127: ROLLBACK TO version_contract_pub;
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
130: FND_MSG_PUB.add_exc_msg
131: ( p_pkg_name => G_PKG_NAME
132: , p_procedure_name => l_api_name );
133:
126: WHEN OTHERS THEN
127: ROLLBACK TO version_contract_pub;
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
130: FND_MSG_PUB.add_exc_msg
131: ( p_pkg_name => G_PKG_NAME
132: , p_procedure_name => l_api_name );
133:
134: END IF;
131: ( p_pkg_name => G_PKG_NAME
132: , p_procedure_name => l_api_name );
133:
134: END IF;
135: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
136: , p_data => x_msg_data );
137:
138: END version_contract;
139:
192: --
193: -- Initialize the message table if requested.
194: --
195: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
196: FND_MSG_PUB.initialize;
197: END IF;
198:
199: --
200: -- Set API return status to success
237: --
238: -- Standard call to get message count and if count is 1, get message
239: -- info
240: --
241: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
242: , p_data => x_msg_data );
243:
244: EXCEPTION
245: WHEN FND_API.G_EXC_ERROR THEN
244: EXCEPTION
245: WHEN FND_API.G_EXC_ERROR THEN
246: ROLLBACK TO rstr_contract_version_pub;
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
249: , p_data => x_msg_data );
250:
251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
252: ROLLBACK TO rstr_contract_version_pub;
250:
251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
252: ROLLBACK TO rstr_contract_version_pub;
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
255: , p_data => x_msg_data );
256:
257: WHEN OTHERS THEN
258: ROLLBACK TO rstr_contract_version_pub;
256:
257: WHEN OTHERS THEN
258: ROLLBACK TO rstr_contract_version_pub;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
261: FND_MSG_PUB.add_exc_msg
262: ( p_pkg_name => G_PKG_NAME
263: , p_procedure_name => l_api_name );
264:
257: WHEN OTHERS THEN
258: ROLLBACK TO rstr_contract_version_pub;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
261: FND_MSG_PUB.add_exc_msg
262: ( p_pkg_name => G_PKG_NAME
263: , p_procedure_name => l_api_name );
264:
265: END IF;
262: ( p_pkg_name => G_PKG_NAME
263: , p_procedure_name => l_api_name );
264:
265: END IF;
266: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
267: , p_data => x_msg_data );
268:
269: END restore_contract_version;
270: