58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: IF FND_API.to_Boolean( p_init_msg_list ) THEN
62: FND_MSG_PUB.initialize;
63: END IF;
64: -- Initialize API return status to success
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66: -- API body
75: WHEN no_data_found THEN
76: NULL;
77: END;
78: IF l_temp = 1 THEN
79: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
80: THEN
81: FND_MESSAGE.SET_NAME ('CN','CN_ALREADY_EXISTS');
82: FND_MSG_PUB.Add;
83: END IF;
78: IF l_temp = 1 THEN
79: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
80: THEN
81: FND_MESSAGE.SET_NAME ('CN','CN_ALREADY_EXISTS');
82: FND_MSG_PUB.Add;
83: END IF;
84: RAISE FND_API.G_EXC_ERROR ;
85: END IF;
86:
102: IF FND_API.To_Boolean( p_commit ) THEN
103: COMMIT WORK;
104: END IF;
105: -- Standard call to get message count and if count is 1, get message info.
106: FND_MSG_PUB.Count_And_Get(
107: p_count => x_msg_count ,
108: p_data => x_msg_data ,
109: p_encoded => FND_API.G_FALSE
110: );
112: EXCEPTION
113: WHEN FND_API.G_EXC_ERROR THEN
114: ROLLBACK TO Create_Imp_header ;
115: x_return_status := FND_API.G_RET_STS_ERROR ;
116: FND_MSG_PUB.Count_And_Get(
117: p_count => x_msg_count ,
118: p_data => x_msg_data ,
119: p_encoded => FND_API.G_FALSE
120: );
121:
122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
123: ROLLBACK TO Create_Imp_header ;
124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
125: FND_MSG_PUB.Count_And_Get(
126: p_count => x_msg_count ,
127: p_data => x_msg_data ,
128: p_encoded => FND_API.G_FALSE
129: );
130:
131: WHEN OTHERS THEN
132: ROLLBACK TO Create_Imp_header ;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
134: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
135: THEN
136: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
137: END IF;
138: FND_MSG_PUB.Count_And_Get
132: ROLLBACK TO Create_Imp_header ;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
134: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
135: THEN
136: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
137: END IF;
138: FND_MSG_PUB.Count_And_Get
139: (
140: p_count => x_msg_count ,
134: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
135: THEN
136: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
137: END IF;
138: FND_MSG_PUB.Count_And_Get
139: (
140: p_count => x_msg_count ,
141: p_data => x_msg_data ,
142: p_encoded => FND_API.G_FALSE
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197: -- Initialize message list if p_init_msg_list is set to TRUE.
198: IF FND_API.to_Boolean( p_init_msg_list ) THEN
199: FND_MSG_PUB.initialize;
200: END IF;
201: -- Initialize API return status to success
202: x_return_status := FND_API.G_RET_STS_SUCCESS;
203: -- API body
215: WHEN no_data_found THEN
216: NULL;
217: END;
218: IF l_temp = 1 THEN
219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
220: THEN
221: FND_MESSAGE.SET_NAME ('CN','CN_ALREADY_EXISTS');
222: FND_MSG_PUB.Add;
223: END IF;
218: IF l_temp = 1 THEN
219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
220: THEN
221: FND_MESSAGE.SET_NAME ('CN','CN_ALREADY_EXISTS');
222: FND_MSG_PUB.Add;
223: END IF;
224: RAISE FND_API.G_EXC_ERROR ;
225: END IF;
226:
232: WHERE imp_header_id = p_imp_header.imp_header_id
233: FOR UPDATE OF imp_header_id NOWAIT ;
234: EXCEPTION
235: WHEN no_data_found THEN
236: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
237: THEN
238: FND_MESSAGE.SET_NAME ('CN','CN_REC_NOT_EXISTS');
239: FND_MSG_PUB.Add;
240: END IF;
235: WHEN no_data_found THEN
236: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
237: THEN
238: FND_MESSAGE.SET_NAME ('CN','CN_REC_NOT_EXISTS');
239: FND_MSG_PUB.Add;
240: END IF;
241: RAISE FND_API.G_EXC_ERROR ;
242: END ;
243:
243:
244: -- check locking mechanism
245: IF p_imp_header.object_version_number >
246: p_imp_header.object_version_number THEN
247: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
248: THEN
249: FND_MESSAGE.SET_NAME ('CN' , 'CN_RECORD_CHANGED');
250: FND_MSG_PUB.Add;
251: END IF;
246: p_imp_header.object_version_number THEN
247: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
248: THEN
249: FND_MESSAGE.SET_NAME ('CN' , 'CN_RECORD_CHANGED');
250: FND_MSG_PUB.Add;
251: END IF;
252: RAISE FND_API.G_EXC_ERROR ;
253: END IF;
254:
262: IF FND_API.To_Boolean( p_commit ) THEN
263: COMMIT WORK;
264: END IF;
265: -- Standard call to get message count and if count is 1, get message info.
266: FND_MSG_PUB.Count_And_Get(
267: p_count => x_msg_count ,
268: p_data => x_msg_data ,
269: p_encoded => FND_API.G_FALSE
270: );
272: EXCEPTION
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO Update_Imp_header ;
275: x_return_status := FND_API.G_RET_STS_ERROR ;
276: FND_MSG_PUB.Count_And_Get(
277: p_count => x_msg_count ,
278: p_data => x_msg_data ,
279: p_encoded => FND_API.G_FALSE
280: );
281:
282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283: ROLLBACK TO Update_Imp_header ;
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
285: FND_MSG_PUB.Count_And_Get(
286: p_count => x_msg_count ,
287: p_data => x_msg_data ,
288: p_encoded => FND_API.G_FALSE
289: );
290:
291: WHEN OTHERS THEN
292: ROLLBACK TO Update_Imp_header ;
293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
294: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
295: THEN
296: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
297: END IF;
298: FND_MSG_PUB.Count_And_Get
292: ROLLBACK TO Update_Imp_header ;
293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
294: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
295: THEN
296: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
297: END IF;
298: FND_MSG_PUB.Count_And_Get
299: (
300: p_count => x_msg_count ,
294: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
295: THEN
296: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
297: END IF;
298: FND_MSG_PUB.Count_And_Get
299: (
300: p_count => x_msg_count ,
301: p_data => x_msg_data ,
302: p_encoded => FND_API.G_FALSE
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367: -- Initialize message list if p_init_msg_list is set to TRUE.
368: IF FND_API.to_Boolean( p_init_msg_list ) THEN
369: FND_MSG_PUB.initialize;
370: END IF;
371: -- Initialize API return status to success
372: x_return_status := FND_API.G_RET_STS_SUCCESS;
373: -- API body
381: WHERE imp_header_id = p_imp_header.imp_header_id
382: ;
383: EXCEPTION
384: WHEN no_data_found THEN
385: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
386: THEN
387: FND_MESSAGE.SET_NAME ('CN','CN_REC_NOT_EXISTS');
388: FND_MSG_PUB.Add;
389: END IF;
384: WHEN no_data_found THEN
385: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
386: THEN
387: FND_MESSAGE.SET_NAME ('CN','CN_REC_NOT_EXISTS');
388: FND_MSG_PUB.Add;
389: END IF;
390: RAISE FND_API.G_EXC_ERROR ;
391: END;
392:
392:
393: -- check locking mechanism
394: IF l_imp_header.object_version_number >
395: p_imp_header.object_version_number THEN
396: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
397: THEN
398: FND_MESSAGE.SET_NAME ('CN' , 'CN_RECORD_CHANGED');
399: FND_MSG_PUB.Add;
400: END IF;
395: p_imp_header.object_version_number THEN
396: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
397: THEN
398: FND_MESSAGE.SET_NAME ('CN' , 'CN_RECORD_CHANGED');
399: FND_MSG_PUB.Add;
400: END IF;
401: RAISE FND_API.G_EXC_ERROR ;
402: END IF;
403:
466: IF FND_API.To_Boolean( p_commit ) THEN
467: COMMIT WORK;
468: END IF;
469: -- Standard call to get message count and if count is 1, get message info.
470: FND_MSG_PUB.Count_And_Get(
471: p_count => x_msg_count ,
472: p_data => x_msg_data ,
473: p_encoded => FND_API.G_FALSE
474: );
476: EXCEPTION
477: WHEN FND_API.G_EXC_ERROR THEN
478: ROLLBACK TO Delete_Imp_header ;
479: x_return_status := FND_API.G_RET_STS_ERROR ;
480: FND_MSG_PUB.Count_And_Get(
481: p_count => x_msg_count ,
482: p_data => x_msg_data ,
483: p_encoded => FND_API.G_FALSE
484: );
485:
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: ROLLBACK TO Delete_Imp_header ;
488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
489: FND_MSG_PUB.Count_And_Get(
490: p_count => x_msg_count ,
491: p_data => x_msg_data ,
492: p_encoded => FND_API.G_FALSE
493: );
494:
495: WHEN OTHERS THEN
496: ROLLBACK TO Delete_Imp_header ;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
499: THEN
500: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
501: END IF;
502: FND_MSG_PUB.Count_And_Get
496: ROLLBACK TO Delete_Imp_header ;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
499: THEN
500: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
501: END IF;
502: FND_MSG_PUB.Count_And_Get
503: (
504: p_count => x_msg_count ,
498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
499: THEN
500: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
501: END IF;
502: FND_MSG_PUB.Count_And_Get
503: (
504: p_count => x_msg_count ,
505: p_data => x_msg_data ,
506: p_encoded => FND_API.G_FALSE