194: SAVEPOINT cn_obj_tables ;
195: --+
196: -- Standard call to check for call compatibility.
197: --+
198: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
199: p_api_version ,
200: l_api_name ,
201: G_PKG_NAME )
202: THEN
199: p_api_version ,
200: l_api_name ,
201: G_PKG_NAME )
202: THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205: --+
206: -- Initialize message list if p_init_msg_list is set to TRUE.
207: -- +
204: END IF;
205: --+
206: -- Initialize message list if p_init_msg_list is set to TRUE.
207: -- +
208: IF FND_API.to_Boolean( p_init_msg_list ) THEN
209: FND_MSG_PUB.initialize;
210: END IF;
211: -- +
212: -- Initialize API return status to success
210: END IF;
211: -- +
212: -- Initialize API return status to success
213: -- +
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
215: x_loading_status := 'CN_INSERTED';
216: -- +
217: --+
218: -- +
228: -- +
229: -- Standard Check to p_commit
230: --+
231:
232: IF( FND_API.to_boolean(p_commit)) THEN
233: COMMIT WORK;
234: END IF ;
235:
236: -- +
239: FND_MSG_PUB.count_and_get
240: (
241: p_count => x_msg_count ,
242: p_data => x_msg_data ,
243: p_encoded => FND_API.G_FALSE
244: );
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
243: p_encoded => FND_API.G_FALSE
244: );
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO cn_obj_tables ;
249: x_return_status := FND_API.G_RET_STS_ERROR ;
250: FND_MSG_PUB.Count_And_Get
251: (
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO cn_obj_tables ;
249: x_return_status := FND_API.G_RET_STS_ERROR ;
250: FND_MSG_PUB.Count_And_Get
251: (
252: p_count => x_msg_count ,
253: p_data => x_msg_data ,
250: FND_MSG_PUB.Count_And_Get
251: (
252: p_count => x_msg_count ,
253: p_data => x_msg_data ,
254: p_encoded => FND_API.G_FALSE
255: );
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: ROLLBACK TO cn_obj_tables ;
258: x_loading_status := 'UNEXPECTED_ERR';
252: p_count => x_msg_count ,
253: p_data => x_msg_data ,
254: p_encoded => FND_API.G_FALSE
255: );
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: ROLLBACK TO cn_obj_tables ;
258: x_loading_status := 'UNEXPECTED_ERR';
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: FND_MSG_PUB.Count_And_Get
255: );
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: ROLLBACK TO cn_obj_tables ;
258: x_loading_status := 'UNEXPECTED_ERR';
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: FND_MSG_PUB.Count_And_Get
261: (
262: p_count => x_msg_count ,
263: p_data => x_msg_data ,
260: FND_MSG_PUB.Count_And_Get
261: (
262: p_count => x_msg_count ,
263: p_data => x_msg_data ,
264: p_encoded => FND_API.G_FALSE
265: );
266: WHEN OTHERS THEN
267: ROLLBACK TO cn_obj_tables ;
268: x_loading_status := 'UNEXPECTED_ERR';
265: );
266: WHEN OTHERS THEN
267: ROLLBACK TO cn_obj_tables ;
268: x_loading_status := 'UNEXPECTED_ERR';
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
270: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
271: THEN
272: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
273: END IF;
274: FND_MSG_PUB.Count_And_Get
275: (
276: p_count => x_msg_count ,
277: p_data => x_msg_data ,
278: p_encoded => FND_API.G_FALSE
279: );
280:
281: END create_tables;
282: --