127: /* Raise error if Rounding factor is NULL.Code added to fix bug # 1641559 */
128:
129: IF p_PRICE_LIST_rec.rounding_factor IS NULL THEN
130: FND_MESSAGE.SET_NAME('QP','SO_PR_NO_ROUNDING_FACTOR');
131: OE_MSG_PUB.Add;
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134:
135:
220: x_return_status := FND_API.G_RET_STS_ERROR;
221:
222: -- Get message count and data
223:
224: oe_msg_pub.Count_And_Get
225: ( p_count => x_msg_count
226: , p_data => x_msg_data
227: );
228:
231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
232:
233: -- Get message count and data
234:
235: oe_msg_pub.Count_And_Get
236: ( p_count => x_msg_count
237: , p_data => x_msg_data
238: );
239:
240: WHEN OTHERS THEN
241:
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
243:
244: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
245: THEN
246: oe_msg_pub.Add_Exc_Msg
247: ( G_PKG_NAME
248: , 'Process_Price_List'
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
243:
244: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
245: THEN
246: oe_msg_pub.Add_Exc_Msg
247: ( G_PKG_NAME
248: , 'Process_Price_List'
249: );
250: END IF;
250: END IF;
251:
252: -- Get message count and data
253:
254: oe_msg_pub.Count_And_Get
255: ( p_count => x_msg_count
256: , p_data => x_msg_data
257: );
258:
410: x_return_status := FND_API.G_RET_STS_ERROR;
411:
412: -- Get message count and data
413:
414: oe_msg_pub.Count_And_Get
415: ( p_count => x_msg_count
416: , p_data => x_msg_data
417: );
418:
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
422:
423: -- Get message count and data
424:
425: oe_msg_pub.Count_And_Get
426: ( p_count => x_msg_count
427: , p_data => x_msg_data
428: );
429:
430: WHEN OTHERS THEN
431:
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433:
434: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
435: THEN
436: oe_msg_pub.Add_Exc_Msg
437: ( G_PKG_NAME
438: , 'Lock_Price_List'
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
433:
434: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
435: THEN
436: oe_msg_pub.Add_Exc_Msg
437: ( G_PKG_NAME
438: , 'Lock_Price_List'
439: );
440: END IF;
440: END IF;
441:
442: -- Get message count and data
443:
444: oe_msg_pub.Count_And_Get
445: ( p_count => x_msg_count
446: , p_data => x_msg_data
447: );
448:
516: ELSIF p_list_header_id <> FND_API.G_MISS_NUM THEN
517:
518: l_list_header_id := p_list_header_id;
519:
520: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_SUCCESS)
521: THEN
522:
523: FND_MESSAGE.SET_NAME('QP','FND_BOTH_VAL_AND_ID_EXIST');
524: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','list_header');
521: THEN
522:
523: FND_MESSAGE.SET_NAME('QP','FND_BOTH_VAL_AND_ID_EXIST');
524: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','list_header');
525: oe_msg_pub.Add;
526:
527: END IF;
528:
529: ELSE
534: ( p_list_header => p_list_header
535: );
536:
537: IF l_list_header_id = FND_API.G_MISS_NUM THEN
538: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
539: THEN
540:
541: FND_MESSAGE.SET_NAME('QP','Invalid Business Object Value');
542: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','list_header');
539: THEN
540:
541: FND_MESSAGE.SET_NAME('QP','Invalid Business Object Value');
542: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','list_header');
543: oe_msg_pub.Add;
544:
545: END IF;
546: END IF;
547:
594: x_return_status := FND_API.G_RET_STS_SUCCESS;
595:
596: -- Get message count and data
597:
598: oe_msg_pub.Count_And_Get
599: ( p_count => x_msg_count
600: , p_data => x_msg_data
601: );
602:
608: x_return_status := FND_API.G_RET_STS_ERROR;
609:
610: -- Get message count and data
611:
612: oe_msg_pub.Count_And_Get
613: ( p_count => x_msg_count
614: , p_data => x_msg_data
615: );
616:
619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
620:
621: -- Get message count and data
622:
623: oe_msg_pub.Count_And_Get
624: ( p_count => x_msg_count
625: , p_data => x_msg_data
626: );
627:
628: WHEN OTHERS THEN
629:
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
631:
632: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
633: THEN
634: oe_msg_pub.Add_Exc_Msg
635: ( G_PKG_NAME
636: , 'Get_Price_List'
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
631:
632: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
633: THEN
634: oe_msg_pub.Add_Exc_Msg
635: ( G_PKG_NAME
636: , 'Get_Price_List'
637: );
638: END IF;
638: END IF;
639:
640: -- Get message count and data
641:
642: oe_msg_pub.Count_And_Get
643: ( p_count => x_msg_count
644: , p_data => x_msg_data
645: );
646:
690: EXCEPTION
691:
692: WHEN OTHERS THEN
693:
694: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
695: THEN
696: oe_msg_pub.Add_Exc_Msg
697: ( G_PKG_NAME
698: , 'Id_To_Value'
692: WHEN OTHERS THEN
693:
694: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
695: THEN
696: oe_msg_pub.Add_Exc_Msg
697: ( G_PKG_NAME
698: , 'Id_To_Value'
699: );
700: END IF;
819: EXCEPTION
820:
821: WHEN OTHERS THEN
822:
823: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
824: THEN
825: oe_msg_pub.Add_Exc_Msg
826: ( G_PKG_NAME
827: , 'Value_To_Id'
821: WHEN OTHERS THEN
822:
823: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
824: THEN
825: oe_msg_pub.Add_Exc_Msg
826: ( G_PKG_NAME
827: , 'Value_To_Id'
828: );
829: END IF;