2: -- $Header: ECPADVOB.pls 120.2 2005/09/29 11:30:37 arsriniv ship $
3:
4: PROCEDURE create_advice(
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT NOCOPY VARCHAR2,
3:
4: PROCEDURE create_advice(
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT NOCOPY VARCHAR2,
11: p_msg_count OUT NOCOPY NUMBER,
4: PROCEDURE create_advice(
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT NOCOPY VARCHAR2,
11: p_msg_count OUT NOCOPY NUMBER,
12: p_msg_data OUT NOCOPY VARCHAR2,
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT NOCOPY VARCHAR2,
11: p_msg_count OUT NOCOPY NUMBER,
12: p_msg_data OUT NOCOPY VARCHAR2,
13: p_communication_method IN VARCHAR2,
73: SAVEPOINT Create_Advice_PVT;
74:
75: -- Standard call to check for call compatibility.
76:
77: if NOT FND_API.Compatible_API_Call
78: (
79: l_api_version_number,
80: p_api_version_number,
81: l_api_name,
81: l_api_name,
82: G_PKG_NAME
83: )
84: then
85: raise FND_API.G_EXC_UNEXPECTED_ERROR;
86: end if;
87:
88: -- Initialize message list if p_init_msg_list is set to TRUE.
89:
86: end if;
87:
88: -- Initialize message list if p_init_msg_list is set to TRUE.
89:
90: if FND_API.to_Boolean( p_init_msg_list)
91: then
92: FND_MSG_PUB.initialize;
93: end if;
94:
93: end if;
94:
95: -- Initialize API return status to success
96:
97: p_return_status := FND_API.G_RET_STS_SUCCESS;
98:
99:
100: select ece_advo_headers_s.nextval
101: into p_advice_header_id
116: if l_location_code_ext is NULL
117: then
118: fnd_message.set_name('EC','EC_TP_NOT_DEFINED');
119: FND_MSG_PUB.Add;
120: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
121: -- c_error_msg := fnd_message.get;
122: else
123:
124: */
200:
201: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
202: -- the API exception handler.
203:
204: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
205: then
206:
207: -- Unexpected error, abort processing.
208:
205: then
206:
207: -- Unexpected error, abort processing.
208:
209: raise FND_API.G_EXC_UNEXPECTED_ERROR;
210:
211: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
212:
213: -- Error, abort processing
207: -- Unexpected error, abort processing.
208:
209: raise FND_API.G_EXC_UNEXPECTED_ERROR;
210:
211: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
212:
213: -- Error, abort processing
214:
215: raise FND_API.G_EXC_ERROR;
211: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
212:
213: -- Error, abort processing
214:
215: raise FND_API.G_EXC_ERROR;
216:
217: end if;
218:
219: -- Standard check of p_simulate and p_commit parameters
217: end if;
218:
219: -- Standard check of p_simulate and p_commit parameters
220:
221: if FND_API.To_Boolean( p_simulate)
222: then
223: ROLLBACK to Create_Advice_PVT;
224:
225: elsif FND_API.To_Boolean( p_commit)
221: if FND_API.To_Boolean( p_simulate)
222: then
223: ROLLBACK to Create_Advice_PVT;
224:
225: elsif FND_API.To_Boolean( p_commit)
226: then
227: commit work;
228: end if;
229:
239:
240:
241: EXCEPTION
242:
243: WHEN FND_API.G_EXC_ERROR THEN
244:
245: Rollback to Create_Advice_PVT;
246: p_return_status := FND_API.G_RET_STS_ERROR;
247:
242:
243: WHEN FND_API.G_EXC_ERROR THEN
244:
245: Rollback to Create_Advice_PVT;
246: p_return_status := FND_API.G_RET_STS_ERROR;
247:
248: FND_MSG_PUB.Count_And_Get
249: (
250: p_count => p_msg_count,
250: p_count => p_msg_count,
251: p_data => p_msg_data
252: );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255:
256: Rollback to Create_Advice_PVT;
257: p_return_status := FND_API.G_RET_STS_ERROR;
258:
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255:
256: Rollback to Create_Advice_PVT;
257: p_return_status := FND_API.G_RET_STS_ERROR;
258:
259: FND_MSG_PUB.Count_And_Get
260: (
261: p_count => p_msg_count,
264:
265: WHEN OTHERS THEN
266:
267: Rollback to Create_Advice_PVT;
268: p_return_status := FND_API.G_RET_STS_ERROR;
269:
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
290:
291:
292: PROCEDURE create_advice_line(
293: p_api_version_number IN NUMBER,
294: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
295: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
296: p_commit IN VARCHAR2 := FND_API.G_FALSE,
297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
298: p_return_status OUT NOCOPY VARCHAR2,
291:
292: PROCEDURE create_advice_line(
293: p_api_version_number IN NUMBER,
294: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
295: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
296: p_commit IN VARCHAR2 := FND_API.G_FALSE,
297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
298: p_return_status OUT NOCOPY VARCHAR2,
299: p_msg_count OUT NOCOPY NUMBER,
292: PROCEDURE create_advice_line(
293: p_api_version_number IN NUMBER,
294: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
295: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
296: p_commit IN VARCHAR2 := FND_API.G_FALSE,
297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
298: p_return_status OUT NOCOPY VARCHAR2,
299: p_msg_count OUT NOCOPY NUMBER,
300: p_msg_data OUT NOCOPY VARCHAR2,
293: p_api_version_number IN NUMBER,
294: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
295: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
296: p_commit IN VARCHAR2 := FND_API.G_FALSE,
297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
298: p_return_status OUT NOCOPY VARCHAR2,
299: p_msg_count OUT NOCOPY NUMBER,
300: p_msg_data OUT NOCOPY VARCHAR2,
301: p_advice_header_id IN NUMBER,
344: SAVEPOINT Create_Advice_Line_PVT;
345:
346: -- Standard call to check for call compatibility.
347:
348: if NOT FND_API.Compatible_API_Call
349: (
350: l_api_version_number,
351: p_api_version_number,
352: l_api_name,
352: l_api_name,
353: G_PKG_NAME
354: )
355: then
356: raise FND_API.G_EXC_UNEXPECTED_ERROR;
357: end if;
358:
359: -- Initialize message list if p_init_msg_list is set to TRUE.
360:
357: end if;
358:
359: -- Initialize message list if p_init_msg_list is set to TRUE.
360:
361: if FND_API.to_Boolean( p_init_msg_list)
362: then
363: FND_MSG_PUB.initialize;
364: end if;
365:
364: end if;
365:
366: -- Initialize API return status to success
367:
368: p_return_status := FND_API.G_RET_STS_SUCCESS;
369:
370:
371: insert into ECE_ADVO_DETAILS(
372: ADVICE_DETAIL_ID ,
415:
416: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
417: -- the API exception handler.
418:
419: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
420: then
421:
422: -- Unexpected error, abort processing.
423:
420: then
421:
422: -- Unexpected error, abort processing.
423:
424: raise FND_API.G_EXC_UNEXPECTED_ERROR;
425:
426: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
427:
428: -- Error, abort processing
422: -- Unexpected error, abort processing.
423:
424: raise FND_API.G_EXC_UNEXPECTED_ERROR;
425:
426: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
427:
428: -- Error, abort processing
429:
430: raise FND_API.G_EXC_ERROR;
426: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
427:
428: -- Error, abort processing
429:
430: raise FND_API.G_EXC_ERROR;
431:
432: end if;
433:
434: -- Standard check of p_simulate and p_commit parameters
432: end if;
433:
434: -- Standard check of p_simulate and p_commit parameters
435:
436: if FND_API.To_Boolean( p_simulate)
437: then
438: ROLLBACK to Create_Advice_Line_PVT;
439:
440: elsif FND_API.To_Boolean( p_commit)
436: if FND_API.To_Boolean( p_simulate)
437: then
438: ROLLBACK to Create_Advice_Line_PVT;
439:
440: elsif FND_API.To_Boolean( p_commit)
441: then
442: commit work;
443: end if;
444:
453: end if; -- Bug 2593437
454:
455: EXCEPTION
456:
457: WHEN FND_API.G_EXC_ERROR THEN
458:
459: Rollback to Create_Advice_Line_PVT;
460: p_return_status := FND_API.G_RET_STS_ERROR;
461:
456:
457: WHEN FND_API.G_EXC_ERROR THEN
458:
459: Rollback to Create_Advice_Line_PVT;
460: p_return_status := FND_API.G_RET_STS_ERROR;
461:
462: FND_MSG_PUB.Count_And_Get
463: (
464: p_count => p_msg_count,
464: p_count => p_msg_count,
465: p_data => p_msg_data
466: );
467:
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469:
470: Rollback to Create_Advice_Line_PVT;
471: p_return_status := FND_API.G_RET_STS_ERROR;
472:
467:
468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
469:
470: Rollback to Create_Advice_Line_PVT;
471: p_return_status := FND_API.G_RET_STS_ERROR;
472:
473: FND_MSG_PUB.Count_And_Get
474: (
475: p_count => p_msg_count,
478:
479: WHEN OTHERS THEN
480:
481: Rollback to Create_Advice_Line_PVT;
482: p_return_status := FND_API.G_RET_STS_ERROR;
483:
484: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
485: then
486: FND_MSG_PUB.Add_Exc_Msg