35: -- Fetch List price API.
36:
37: PROCEDURE Fetch_List_Price
38: ( p_api_version_number IN NUMBER ,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
41: p_return_status OUT VARCHAR2 ,
42: p_msg_count OUT NUMBER ,
43: p_msg_data OUT VARCHAR2 ,
36:
37: PROCEDURE Fetch_List_Price
38: ( p_api_version_number IN NUMBER ,
39: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
41: p_return_status OUT VARCHAR2 ,
42: p_msg_count OUT NUMBER ,
43: p_msg_data OUT VARCHAR2 ,
44: p_price_list_id IN NUMBER := NULL ,
85: BEGIN
86:
87: -- Standard call to check for call compatibility
88:
89: IF NOT FND_API.Compatible_API_Call
90: ( l_api_version_number,
91: p_api_version_number,
92: l_api_name ,
93: G_PKG_NAME )
91: p_api_version_number,
92: l_api_name ,
93: G_PKG_NAME )
94: THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97:
98: -- Initialize message list if p_init_msg_list is set to TRUE
99:
96: END IF;
97:
98: -- Initialize message list if p_init_msg_list is set to TRUE
99:
100: IF FND_API.to_Boolean(p_init_msg_list) THEN
101:
102: FND_MSG_PUB.initialize;
103:
104: END IF;
104: END IF;
105:
106: -- Initialize p_return_status
107:
108: p_return_status := FND_API.G_RET_STS_SUCCESS;
109:
110: -- Validate Input. Start with mandatory validation.
111:
112: -- Fetch_attempts can not be greater that max attempts allowed
124:
125: -- Validation that can be turned off through the use of
126: -- validation level.
127:
128: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
129:
130: -- Validate :
131: -- price_list_id
132: -- item_id
140:
141: END IF;
142:
143: IF l_validation_error THEN
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146:
147: -- Check required parameters.
148:
378: );
379:
380: END IF;
381:
382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
383:
384: END IF; -- prc_method_code
385:
386: p_price_list_id_out := p_price_list_id ;
418: -- Call Fetch_List_Price using the sec list.
419:
420: Fetch_List_Price
421: ( p_api_version_number ,
422: FND_API.G_FALSE ,
423: FND_API.G_VALID_LEVEL_NONE ,
424: l_return_status ,
425: p_msg_count ,
426: p_msg_data ,
419:
420: Fetch_List_Price
421: ( p_api_version_number ,
422: FND_API.G_FALSE ,
423: FND_API.G_VALID_LEVEL_NONE ,
424: l_return_status ,
425: p_msg_count ,
426: p_msg_data ,
427: l_price_list_id ,
453: p_list_percent ,
454: p_rounding_factor
455: );
456:
457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
458:
459: -- Unexpected error, abort processing
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461:
456:
457: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
458:
459: -- Unexpected error, abort processing
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461:
462: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
463:
464: -- Error, abort processing
458:
459: -- Unexpected error, abort processing
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461:
462: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
463:
464: -- Error, abort processing
465: RAISE FND_API.G_EXC_ERROR;
466:
461:
462: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
463:
464: -- Error, abort processing
465: RAISE FND_API.G_EXC_ERROR;
466:
467: ELSE
468:
469: -- Set p_list_price. We don't receive the
492: );
493:
494: END IF;
495:
496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497:
498: END; -- BEGIN select list price block.
499:
500: -- At this point, All processing is done, and all the secondary
546:
547:
548: EXCEPTION
549:
550: WHEN FND_API.G_EXC_ERROR THEN
551:
552: p_return_status := FND_API.G_RET_STS_ERROR;
553:
554: -- Get message count and if 1, return message data
548: EXCEPTION
549:
550: WHEN FND_API.G_EXC_ERROR THEN
551:
552: p_return_status := FND_API.G_RET_STS_ERROR;
553:
554: -- Get message count and if 1, return message data
555:
556: FND_MSG_PUB.Count_And_Get
561: -- Decement G_Fetch_Level
562:
563: G_Fetch_Level := G_Fetch_Level - 1;
564:
565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
566:
567: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
568:
569: -- Get message count and if 1, return message data
563: G_Fetch_Level := G_Fetch_Level - 1;
564:
565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
566:
567: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
568:
569: -- Get message count and if 1, return message data
570:
571: FND_MSG_PUB.Count_And_Get
578: G_Fetch_Level := G_Fetch_Level - 1;
579:
580: WHEN OTHERS THEN
581:
582: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
583:
584: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
585: FND_MSG_PUB.Add_Exc_Msg
586: ( G_PKG_NAME ,
629: ( G_PKG_NAME ,
630: 'Get_Sec_Price_List - p_price_list_id = '||p_price_list_id
631: );
632:
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634:
635: END Get_Sec_Price_List;
636:
637: FUNCTION Get_Price_List_Name
660: ( G_PKG_NAME ,
661: 'Get_Price_List_Name - p_price_list_id = '||p_price_list_id
662: );
663:
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665:
666: END Get_Price_List_Name;
667:
668: FUNCTION Get_Item_Description
698: 'Get_Item_Description - p_item_id = '||p_item_id||
699: ' org_id ='||l_org_id
700: );
701:
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703:
704: END Get_Item_Description;
705:
706: FUNCTION Get_Unit_Name
729: ( G_PKG_NAME ,
730: 'Get_Unit_Name - p_unit_code = '||p_unit_code
731: );
732:
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734:
735: END Get_Unit_Name;
736:
737: END OE_Price_List_PVT;