11: G_REQUEST_ID NUMBER := FND_GLOBAL.Conc_Request_Id;
12:
13: PROCEDURE Create_WebSwitch(
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
16: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
17: p_validation_level IN NUMBER DEFAULT
18: FND_API.G_VALID_LEVEL_FULL,
19: x_return_status OUT VARCHAR2,
12:
13: PROCEDURE Create_WebSwitch(
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
16: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
17: p_validation_level IN NUMBER DEFAULT
18: FND_API.G_VALID_LEVEL_FULL,
19: x_return_status OUT VARCHAR2,
20: x_msg_count OUT NUMBER,
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
16: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
17: p_validation_level IN NUMBER DEFAULT
18: FND_API.G_VALID_LEVEL_FULL,
19: x_return_status OUT VARCHAR2,
20: x_msg_count OUT NUMBER,
21: x_msg_data OUT VARCHAR2,
22: p_cgi_switch_rec IN cgi_switch_rec_type,
44: -- Standard begin of API savepoint
45: SAVEPOINT Create_WebSwitch_PUB;
46:
47: -- Standard call to check for call compatibility.
48: IF NOT FND_API.Compatible_API_Call (l_api_version,
49: p_api_version,
50: l_api_name,
51: G_PKG_NAME)
52: THEN
49: p_api_version,
50: l_api_name,
51: G_PKG_NAME)
52: THEN
53: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
54: END IF;
55:
56: -- Check p_init_msg_list
57: IF FND_API.to_Boolean( p_init_msg_list ) THEN
53: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
54: END IF;
55:
56: -- Check p_init_msg_list
57: IF FND_API.to_Boolean( p_init_msg_list ) THEN
58: FND_MSG_PUB.initialize;
59: END IF;
60:
61: -- Implementation of User Hooks
74: x_msg_data => l_msg_data,
75: p_cgi_switch_rec => l_cgi_switch_rec,
76: p_switch_data_rec => l_switch_data_rec);
77:
78: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
79: RAISE FND_API.G_EXC_ERROR;
80: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
75: p_cgi_switch_rec => l_cgi_switch_rec,
76: p_switch_data_rec => l_switch_data_rec);
77:
78: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
79: RAISE FND_API.G_EXC_ERROR;
80: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83: END IF;
76: p_switch_data_rec => l_switch_data_rec);
77:
78: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
79: RAISE FND_API.G_EXC_ERROR;
80: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83: END IF;
84:
77:
78: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
79: RAISE FND_API.G_EXC_ERROR;
80: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83: END IF;
84:
85:
92: x_msg_data => l_msg_data,
93: p_cgi_switch_rec => l_cgi_switch_rec,
94: p_switch_data_rec => l_switch_data_rec);
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
93: p_cgi_switch_rec => l_cgi_switch_rec,
94: p_switch_data_rec => l_switch_data_rec);
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101: END IF;
94: p_switch_data_rec => l_switch_data_rec);
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101: END IF;
102:
95:
96: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
97: RAISE FND_API.G_EXC_ERROR;
98: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101: END IF;
102:
103: -- Initialize API return status to success
100: END IF;
101: END IF;
102:
103: -- Initialize API return status to success
104: x_return_status := FND_API.G_RET_STS_SUCCESS;
105:
106: -- API body
107: OPEN c1;
108: FETCH c1 INTO l_dummy;
261:
262:
263: -- Success Message
264: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
265: x_return_status = FND_API.G_RET_STS_SUCCESS
266: THEN
267: FND_MESSAGE.Set_Name('ast', 'API_SUCCESS');
268: FND_MESSAGE.Set_Token('ROW', 'ast_QUERY_STRING', TRUE);
269: FND_MSG_PUB.Add;
278: x_msg_count => l_msg_count,
279: x_msg_data => l_msg_data,
280: p_cgi_switch_rec => l_cgi_switch_rec,
281: p_switch_data_rec => l_switch_data_rec);
282: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
283: RAISE FND_API.G_EXC_ERROR;
284: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
279: x_msg_data => l_msg_data,
280: p_cgi_switch_rec => l_cgi_switch_rec,
281: p_switch_data_rec => l_switch_data_rec);
282: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
283: RAISE FND_API.G_EXC_ERROR;
284: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
280: p_cgi_switch_rec => l_cgi_switch_rec,
281: p_switch_data_rec => l_switch_data_rec);
282: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
283: RAISE FND_API.G_EXC_ERROR;
284: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
288: END IF;
281: p_switch_data_rec => l_switch_data_rec);
282: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
283: RAISE FND_API.G_EXC_ERROR;
284: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: END IF;
287:
288: END IF;
289:
295: x_msg_count => l_msg_count,
296: x_msg_data => l_msg_data,
297: p_cgi_switch_rec => l_cgi_switch_rec,
298: p_switch_data_rec => l_switch_data_rec);
299: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
296: x_msg_data => l_msg_data,
297: p_cgi_switch_rec => l_cgi_switch_rec,
298: p_switch_data_rec => l_switch_data_rec);
299: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
304: END IF;
297: p_cgi_switch_rec => l_cgi_switch_rec,
298: p_switch_data_rec => l_switch_data_rec);
299: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
304: END IF;
305:
298: p_switch_data_rec => l_switch_data_rec);
299: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
300: RAISE FND_API.G_EXC_ERROR;
301: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
304: END IF;
305:
306: -- Standard check of p_commit.
303: END IF;
304: END IF;
305:
306: -- Standard check of p_commit.
307: IF FND_API.To_Boolean ( p_commit ) THEN
308: COMMIT WORK;
309: END IF;
310:
311: -- Debug Message
324: -- Normal API Exception handling, IF exception occurs outside of phone processing loop
325: --
326: EXCEPTION
327:
328: WHEN FND_API.G_EXC_ERROR THEN
329:
330: ROLLBACK TO Create_WebSwitch_PUB;
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332:
327:
328: WHEN FND_API.G_EXC_ERROR THEN
329:
330: ROLLBACK TO Create_WebSwitch_PUB;
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332:
333: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
334: p_data => x_msg_data );
335:
332:
333: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
334: p_data => x_msg_data );
335:
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337:
338: ROLLBACK TO Create_WebSwitch_PUB;
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
340:
335:
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337:
338: ROLLBACK TO Create_WebSwitch_PUB;
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
340:
341: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
342: p_data => x_msg_data );
343:
343:
344: WHEN OTHERS THEN
345:
346: ROLLBACK TO Create_WebSwitch_PUB;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
348:
349: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
350: THEN
351: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
357: END;
358:
359: PROCEDURE Update_WebSwitch(
360: p_api_version IN NUMBER,
361: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
362: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
363: p_validation_level IN NUMBER DEFAULT
364: FND_API.G_VALID_LEVEL_FULL,
365: x_return_status OUT VARCHAR2,
358:
359: PROCEDURE Update_WebSwitch(
360: p_api_version IN NUMBER,
361: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
362: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
363: p_validation_level IN NUMBER DEFAULT
364: FND_API.G_VALID_LEVEL_FULL,
365: x_return_status OUT VARCHAR2,
366: x_msg_count OUT NUMBER,
360: p_api_version IN NUMBER,
361: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
362: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
363: p_validation_level IN NUMBER DEFAULT
364: FND_API.G_VALID_LEVEL_FULL,
365: x_return_status OUT VARCHAR2,
366: x_msg_count OUT NUMBER,
367: x_msg_data OUT VARCHAR2,
368: p_cgi_switch_rec IN cgi_switch_rec_type,
382: -- Standard begin of API savepoint
383: SAVEPOINT Update_WebSwitch_PVT;
384:
385: -- Standard call to check for call compatibility.
386: IF NOT FND_API.Compatible_API_Call (l_api_version,
387: p_api_version,
388: l_api_name,
389: G_PKG_NAME)
390: THEN
387: p_api_version,
388: l_api_name,
389: G_PKG_NAME)
390: THEN
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: END IF;
393:
394: -- Check p_init_msg_list
395: IF FND_API.to_Boolean( p_init_msg_list ) THEN
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: END IF;
393:
394: -- Check p_init_msg_list
395: IF FND_API.to_Boolean( p_init_msg_list ) THEN
396: FND_MSG_PUB.initialize;
397: END IF;
398:
399: -- Implementation of User Hooks
412: x_msg_data => l_msg_data,
413: p_cgi_switch_rec => l_cgi_switch_rec,
414: p_switch_data_rec => l_switch_data_rec);
415:
416: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
413: p_cgi_switch_rec => l_cgi_switch_rec,
414: p_switch_data_rec => l_switch_data_rec);
415:
416: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421: END IF;
414: p_switch_data_rec => l_switch_data_rec);
415:
416: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421: END IF;
422:
415:
416: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421: END IF;
422:
423:
430: x_msg_data => l_msg_data,
431: p_cgi_switch_rec => l_cgi_switch_rec,
432: p_switch_data_rec => l_switch_data_rec);
433:
434: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
435: RAISE FND_API.G_EXC_ERROR;
436: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
431: p_cgi_switch_rec => l_cgi_switch_rec,
432: p_switch_data_rec => l_switch_data_rec);
433:
434: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
435: RAISE FND_API.G_EXC_ERROR;
436: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439: END IF;
432: p_switch_data_rec => l_switch_data_rec);
433:
434: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
435: RAISE FND_API.G_EXC_ERROR;
436: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439: END IF;
440:
433:
434: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
435: RAISE FND_API.G_EXC_ERROR;
436: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: END IF;
439: END IF;
440:
441:
439: END IF;
440:
441:
442: -- Initialize API return status to success
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
444:
445: -- API body
446: UPDATE ast_cgi_switches
447: SET
517:
518:
519: -- Success Message
520: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
521: x_return_status = FND_API.G_RET_STS_SUCCESS
522: THEN
523: FND_MESSAGE.Set_Name('ast', 'API_SUCCESS');
524: FND_MESSAGE.Set_Token('ROW', 'ast_QUERY_STRING', TRUE);
525: FND_MSG_PUB.Add;
535: x_msg_count => l_msg_count,
536: x_msg_data => l_msg_data,
537: p_cgi_switch_rec => l_cgi_switch_rec,
538: p_switch_data_rec => l_switch_data_rec);
539: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
536: x_msg_data => l_msg_data,
537: p_cgi_switch_rec => l_cgi_switch_rec,
538: p_switch_data_rec => l_switch_data_rec);
539: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
544:
537: p_cgi_switch_rec => l_cgi_switch_rec,
538: p_switch_data_rec => l_switch_data_rec);
539: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
544:
545: END IF;
538: p_switch_data_rec => l_switch_data_rec);
539: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
540: RAISE FND_API.G_EXC_ERROR;
541: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: END IF;
544:
545: END IF;
546:
552: x_msg_count => l_msg_count,
553: x_msg_data => l_msg_data,
554: p_cgi_switch_rec => l_cgi_switch_rec,
555: p_switch_data_rec => l_switch_data_rec);
556: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
557: RAISE FND_API.G_EXC_ERROR;
558: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
560: END IF;
553: x_msg_data => l_msg_data,
554: p_cgi_switch_rec => l_cgi_switch_rec,
555: p_switch_data_rec => l_switch_data_rec);
556: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
557: RAISE FND_API.G_EXC_ERROR;
558: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561: END IF;
554: p_cgi_switch_rec => l_cgi_switch_rec,
555: p_switch_data_rec => l_switch_data_rec);
556: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
557: RAISE FND_API.G_EXC_ERROR;
558: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561: END IF;
562:
555: p_switch_data_rec => l_switch_data_rec);
556: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
557: RAISE FND_API.G_EXC_ERROR;
558: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561: END IF;
562:
563: -- Standard check of p_commit.
560: END IF;
561: END IF;
562:
563: -- Standard check of p_commit.
564: IF FND_API.To_Boolean ( p_commit ) THEN
565: COMMIT WORK;
566: END IF;
567:
568: -- Debug Message
581: -- Normal API Exception handling, IF exception occurs outside of phone processing loop
582: --
583: EXCEPTION
584:
585: WHEN FND_API.G_EXC_ERROR THEN
586:
587: ROLLBACK TO Update_WebSwitch_PVT;
588: x_return_status := FND_API.G_RET_STS_ERROR ;
589:
584:
585: WHEN FND_API.G_EXC_ERROR THEN
586:
587: ROLLBACK TO Update_WebSwitch_PVT;
588: x_return_status := FND_API.G_RET_STS_ERROR ;
589:
590: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
591: p_data => x_msg_data );
592:
589:
590: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
591: p_data => x_msg_data );
592:
593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
594:
595: ROLLBACK TO Update_WebSwitch_PVT;
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
597:
592:
593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
594:
595: ROLLBACK TO Update_WebSwitch_PVT;
596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
597:
598: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
599: p_data => x_msg_data );
600:
600:
601: WHEN OTHERS THEN
602:
603: ROLLBACK TO Update_WebSwitch_PVT;
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
605:
606: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
607: THEN
608: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
613:
614: END;
615:
616: PROCEDURE Lock_WebSwitch( p_api_version IN NUMBER,
617: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
618: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
619: p_validation_level IN NUMBER DEFAULT
620: FND_API.G_VALID_LEVEL_FULL,
621: x_return_status OUT VARCHAR2,
614: END;
615:
616: PROCEDURE Lock_WebSwitch( p_api_version IN NUMBER,
617: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
618: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
619: p_validation_level IN NUMBER DEFAULT
620: FND_API.G_VALID_LEVEL_FULL,
621: x_return_status OUT VARCHAR2,
622: x_msg_count OUT NUMBER,
616: PROCEDURE Lock_WebSwitch( p_api_version IN NUMBER,
617: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
618: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
619: p_validation_level IN NUMBER DEFAULT
620: FND_API.G_VALID_LEVEL_FULL,
621: x_return_status OUT VARCHAR2,
622: x_msg_count OUT NUMBER,
623: x_msg_data OUT VARCHAR2,
624: p_cgi_switch_rec IN cgi_switch_rec_type,
638: begin
639: -- Standard begin of API savepoint
640: SAVEPOINT Lock_WebSwitch_PVT;
641: -- Standard call to check for call compatibility.
642: IF NOT FND_API.Compatible_API_Call (l_api_version,
643: p_api_version,
644: l_api_name,
645: G_PKG_NAME)
646: THEN
643: p_api_version,
644: l_api_name,
645: G_PKG_NAME)
646: THEN
647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648: END IF;
649:
650: -- Check p_init_msg_list
651: IF FND_API.to_Boolean( p_init_msg_list ) THEN
647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648: END IF;
649:
650: -- Check p_init_msg_list
651: IF FND_API.to_Boolean( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
653: END IF;
654:
655: -- Implementation of User Hooks
668: x_msg_data => l_msg_data,
669: p_cgi_switch_rec => l_cgi_switch_rec,
670: p_switch_data_rec => l_switch_data_rec);
671:
672: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: END IF;
669: p_cgi_switch_rec => l_cgi_switch_rec,
670: p_switch_data_rec => l_switch_data_rec);
671:
672: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: END IF;
677: END IF;
670: p_switch_data_rec => l_switch_data_rec);
671:
672: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: END IF;
677: END IF;
678:
671:
672: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
673: RAISE FND_API.G_EXC_ERROR;
674: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
676: END IF;
677: END IF;
678:
679:
685: x_msg_count => l_msg_count,
686: x_msg_data => l_msg_data,
687: p_cgi_switch_rec => l_cgi_switch_rec,
688: p_switch_data_rec => l_switch_data_rec);
689: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
686: x_msg_data => l_msg_data,
687: p_cgi_switch_rec => l_cgi_switch_rec,
688: p_switch_data_rec => l_switch_data_rec);
689: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694: END IF;
687: p_cgi_switch_rec => l_cgi_switch_rec,
688: p_switch_data_rec => l_switch_data_rec);
689: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694: END IF;
695:
688: p_switch_data_rec => l_switch_data_rec);
689: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
690: RAISE FND_API.G_EXC_ERROR;
691: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694: END IF;
695:
696: -- Initialize API return status to success
693: END IF;
694: END IF;
695:
696: -- Initialize API return status to success
697: x_return_status := FND_API.G_RET_STS_SUCCESS;
698:
699: -- API body
700: DECLARE
701: v_dummy CHAR(1);
740: x_msg_data => l_msg_data,
741: p_cgi_switch_rec => l_cgi_switch_rec,
742: p_switch_data_rec => l_switch_data_rec);
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
745: RAISE FND_API.G_EXC_ERROR;
746: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: END IF;
741: p_cgi_switch_rec => l_cgi_switch_rec,
742: p_switch_data_rec => l_switch_data_rec);
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
745: RAISE FND_API.G_EXC_ERROR;
746: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: END IF;
749:
742: p_switch_data_rec => l_switch_data_rec);
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
745: RAISE FND_API.G_EXC_ERROR;
746: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: END IF;
749:
750: END IF;
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
745: RAISE FND_API.G_EXC_ERROR;
746: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748: END IF;
749:
750: END IF;
751:
758: x_msg_data => l_msg_data,
759: p_cgi_switch_rec => l_cgi_switch_rec,
760: p_switch_data_rec => l_switch_data_rec);
761:
762: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
763: RAISE FND_API.G_EXC_ERROR;
764: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
759: p_cgi_switch_rec => l_cgi_switch_rec,
760: p_switch_data_rec => l_switch_data_rec);
761:
762: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
763: RAISE FND_API.G_EXC_ERROR;
764: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767: END IF;
760: p_switch_data_rec => l_switch_data_rec);
761:
762: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
763: RAISE FND_API.G_EXC_ERROR;
764: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767: END IF;
768:
761:
762: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
763: RAISE FND_API.G_EXC_ERROR;
764: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767: END IF;
768:
769: -- Success Message
767: END IF;
768:
769: -- Success Message
770: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
771: x_return_status = FND_API.G_RET_STS_SUCCESS
772: THEN
773: FND_MESSAGE.Set_Name('ast', 'API_SUCCESS');
774: FND_MESSAGE.Set_Token('ROW', 'ast_QUERY_STRING', TRUE);
775: FND_MSG_PUB.Add;
778:
779:
780:
781: -- Standard check of p_commit.
782: IF FND_API.To_Boolean ( p_commit ) THEN
783: COMMIT WORK;
784: END IF;
785:
786: -- Debug Message
799: -- Normal API Exception handling, IF exception occurs outside of phone processing loop
800: --
801: EXCEPTION
802:
803: WHEN FND_API.G_EXC_ERROR THEN
804:
805: ROLLBACK TO Lock_WebSwitch_PVT;
806: x_return_status := FND_API.G_RET_STS_ERROR ;
807:
802:
803: WHEN FND_API.G_EXC_ERROR THEN
804:
805: ROLLBACK TO Lock_WebSwitch_PVT;
806: x_return_status := FND_API.G_RET_STS_ERROR ;
807:
808: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
809: p_data => x_msg_data );
810:
807:
808: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
809: p_data => x_msg_data );
810:
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812:
813: ROLLBACK TO Lock_WebSwitch_PVT;
814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
815:
810:
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812:
813: ROLLBACK TO Lock_WebSwitch_PVT;
814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
815:
816: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
817: p_data => x_msg_data );
818:
818:
819: WHEN OTHERS THEN
820:
821: ROLLBACK TO Lock_WebSwitch_PVT;
822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
823:
824: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
825: THEN
826: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
832: END;
833:
834: PROCEDURE Delete_WebSwitch(
835: p_api_version IN NUMBER,
836: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
837: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
838: p_validation_level IN NUMBER DEFAULT
839: FND_API.G_VALID_LEVEL_FULL,
840: x_return_status OUT VARCHAR2,
833:
834: PROCEDURE Delete_WebSwitch(
835: p_api_version IN NUMBER,
836: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
837: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
838: p_validation_level IN NUMBER DEFAULT
839: FND_API.G_VALID_LEVEL_FULL,
840: x_return_status OUT VARCHAR2,
841: x_msg_count OUT NUMBER,
835: p_api_version IN NUMBER,
836: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
837: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
838: p_validation_level IN NUMBER DEFAULT
839: FND_API.G_VALID_LEVEL_FULL,
840: x_return_status OUT VARCHAR2,
841: x_msg_count OUT NUMBER,
842: x_msg_data OUT VARCHAR2,
843: p_cgi_switch_rec IN cgi_switch_rec_type,
858: -- Standard begin of API savepoint
859: SAVEPOINT Delete_WebSwitch_PUB;
860:
861: -- Standard call to check for call compatibility.
862: IF NOT FND_API.Compatible_API_Call (l_api_version,
863: p_api_version,
864: l_api_name,
865: G_PKG_NAME)
866: THEN
863: p_api_version,
864: l_api_name,
865: G_PKG_NAME)
866: THEN
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END IF;
869: -- Check p_init_msg_list
870: IF FND_API.to_Boolean( p_init_msg_list ) THEN
871: FND_MSG_PUB.initialize;
866: THEN
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END IF;
869: -- Check p_init_msg_list
870: IF FND_API.to_Boolean( p_init_msg_list ) THEN
871: FND_MSG_PUB.initialize;
872: END IF;
873:
874: -- Implementation of User Hooks
887: x_msg_data => l_msg_data,
888: p_cgi_switch_rec => l_cgi_switch_rec,
889: p_switch_data_rec => l_switch_data_rec);
890:
891: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
895: END IF;
888: p_cgi_switch_rec => l_cgi_switch_rec,
889: p_switch_data_rec => l_switch_data_rec);
890:
891: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
895: END IF;
896: END IF;
889: p_switch_data_rec => l_switch_data_rec);
890:
891: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
895: END IF;
896: END IF;
897:
890:
891: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
892: RAISE FND_API.G_EXC_ERROR;
893: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
895: END IF;
896: END IF;
897:
898:
904: x_msg_count => l_msg_count,
905: x_msg_data => l_msg_data,
906: p_cgi_switch_rec => l_cgi_switch_rec,
907: p_switch_data_rec => l_switch_data_rec);
908: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
909: RAISE FND_API.G_EXC_ERROR;
910: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
905: x_msg_data => l_msg_data,
906: p_cgi_switch_rec => l_cgi_switch_rec,
907: p_switch_data_rec => l_switch_data_rec);
908: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
909: RAISE FND_API.G_EXC_ERROR;
910: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: END IF;
906: p_cgi_switch_rec => l_cgi_switch_rec,
907: p_switch_data_rec => l_switch_data_rec);
908: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
909: RAISE FND_API.G_EXC_ERROR;
910: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: END IF;
914:
907: p_switch_data_rec => l_switch_data_rec);
908: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
909: RAISE FND_API.G_EXC_ERROR;
910: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: END IF;
914:
915: -- Initialize API return status to success
912: END IF;
913: END IF;
914:
915: -- Initialize API return status to success
916: x_return_status := FND_API.G_RET_STS_SUCCESS;
917:
918: -- API body
919: IF p_switch_data_rec.switch_data_id IS NOT NULL THEN
920: DELETE FROM ast_switch_data
939:
940:
941: -- Success Message
942: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) and
943: x_return_status = FND_API.G_RET_STS_SUCCESS
944: THEN
945: FND_MESSAGE.Set_Name('ast', 'API_SUCCESS');
946: FND_MESSAGE.Set_Token('ROW', 'ast_QUERY_STRING', TRUE);
947: FND_MSG_PUB.Add;
956: x_msg_count => l_msg_count,
957: x_msg_data => l_msg_data,
958: p_cgi_switch_rec => l_cgi_switch_rec,
959: p_switch_data_rec => l_switch_data_rec);
960: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
964: END IF;
957: x_msg_data => l_msg_data,
958: p_cgi_switch_rec => l_cgi_switch_rec,
959: p_switch_data_rec => l_switch_data_rec);
960: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
964: END IF;
965:
958: p_cgi_switch_rec => l_cgi_switch_rec,
959: p_switch_data_rec => l_switch_data_rec);
960: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
964: END IF;
965:
966: END IF;
959: p_switch_data_rec => l_switch_data_rec);
960: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
961: RAISE FND_API.G_EXC_ERROR;
962: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
964: END IF;
965:
966: END IF;
967:
973: x_msg_count => l_msg_count,
974: x_msg_data => l_msg_data,
975: p_cgi_switch_rec => l_cgi_switch_rec,
976: p_switch_data_rec => l_switch_data_rec);
977: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
978: RAISE FND_API.G_EXC_ERROR;
979: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
981: END IF;
974: x_msg_data => l_msg_data,
975: p_cgi_switch_rec => l_cgi_switch_rec,
976: p_switch_data_rec => l_switch_data_rec);
977: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
978: RAISE FND_API.G_EXC_ERROR;
979: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
981: END IF;
982: END IF;
975: p_cgi_switch_rec => l_cgi_switch_rec,
976: p_switch_data_rec => l_switch_data_rec);
977: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
978: RAISE FND_API.G_EXC_ERROR;
979: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
981: END IF;
982: END IF;
983:
976: p_switch_data_rec => l_switch_data_rec);
977: IF (l_return_status = FND_API.G_RET_STS_ERROR ) THEN
978: RAISE FND_API.G_EXC_ERROR;
979: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
981: END IF;
982: END IF;
983:
984: -- Standard check of p_commit.
981: END IF;
982: END IF;
983:
984: -- Standard check of p_commit.
985: IF FND_API.To_Boolean ( p_commit ) THEN
986: COMMIT WORK;
987: END IF;
988:
989: -- Debug Message
1002: -- Normal API Exception handling, IF exception occurs outside of phone processing loop
1003: --
1004: EXCEPTION
1005:
1006: WHEN FND_API.G_EXC_ERROR THEN
1007:
1008: ROLLBACK TO Delete_WebSwitch_PUB;
1009: x_return_status := FND_API.G_RET_STS_ERROR ;
1010:
1005:
1006: WHEN FND_API.G_EXC_ERROR THEN
1007:
1008: ROLLBACK TO Delete_WebSwitch_PUB;
1009: x_return_status := FND_API.G_RET_STS_ERROR ;
1010:
1011: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1012: p_data => x_msg_data );
1013:
1010:
1011: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1012: p_data => x_msg_data );
1013:
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015:
1016: ROLLBACK TO Delete_WebSwitch_PUB;
1017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1018:
1013:
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015:
1016: ROLLBACK TO Delete_WebSwitch_PUB;
1017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1018:
1019: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1020: p_data => x_msg_data );
1021:
1021:
1022: WHEN OTHERS THEN
1023:
1024: ROLLBACK TO Delete_WebSwitch_PUB;
1025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1026:
1027: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1028: THEN
1029: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);