43: -- End of Comments
44:
45: PROCEDURE Process_Price_List
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT VARCHAR2
51: , x_msg_count OUT NUMBER
44:
45: PROCEDURE Process_Price_List
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT VARCHAR2
51: , x_msg_count OUT NUMBER
52: , x_msg_data OUT VARCHAR2
45: PROCEDURE Process_Price_List
46: ( p_api_version_number IN NUMBER
47: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
48: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
49: , p_commit IN VARCHAR2 := FND_API.G_FALSE
50: , x_return_status OUT VARCHAR2
51: , x_msg_count OUT NUMBER
52: , x_msg_data OUT VARCHAR2
53: , p_PRICE_LIST_rec IN Price_List_Rec_Type :=
73: BEGIN
74:
75: -- Standard call to check for call compatibility
76:
77: IF NOT FND_API.Compatible_API_Call
78: ( l_api_version_number
79: , p_api_version_number
80: , l_api_name
81: , G_PKG_NAME
80: , l_api_name
81: , G_PKG_NAME
82: )
83: THEN
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: END IF;
86:
87: -- Perform Value to Id conversion
88:
95: , x_PRICE_LIST_rec => l_PRICE_LIST_rec
96: , x_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
97: );
98:
99: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
96: , x_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
97: );
98:
99: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
97: );
98:
99: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
105:
98:
99: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
105:
106: -- Call qp_price_list_pvt.Process_Price_List
107:
108: qp_price_list_pvt.Process_Price_List
109: ( p_api_version_number => 1.0
110: , p_init_msg_list => p_init_msg_list
111: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
112: , p_commit => p_commit
113: , x_return_status => x_return_status
114: , x_msg_count => x_msg_count
115: , x_msg_data => x_msg_data
126: x_PRICE_LIST_LINE_tbl := l_PRICE_LIST_LINE_tbl;
127:
128: -- If p_return_values is TRUE then convert Ids to Values.
129:
130: IF FND_API.to_Boolean(p_return_values) THEN
131:
132: Id_To_Value
133: ( p_PRICE_LIST_rec => l_PRICE_LIST_rec
134: , p_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
139: END IF;
140:
141: EXCEPTION
142:
143: WHEN FND_API.G_EXC_ERROR THEN
144:
145: x_return_status := FND_API.G_RET_STS_ERROR;
146:
147: -- Get message count and data
141: EXCEPTION
142:
143: WHEN FND_API.G_EXC_ERROR THEN
144:
145: x_return_status := FND_API.G_RET_STS_ERROR;
146:
147: -- Get message count and data
148:
149: OE_MSG_PUB.Count_And_Get
150: ( p_count => x_msg_count
151: , p_data => x_msg_data
152: );
153:
154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155:
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
157:
158: -- Get message count and data
152: );
153:
154: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155:
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
157:
158: -- Get message count and data
159:
160: OE_MSG_PUB.Count_And_Get
163: );
164:
165: WHEN OTHERS THEN
166:
167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
168:
169: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
170: THEN
171: OE_MSG_PUB.Add_Exc_Msg
200: -- End of Comments
201:
202: PROCEDURE Lock_Price_List
203: ( p_api_version_number IN NUMBER
204: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
205: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
206: , x_return_status OUT VARCHAR2
207: , x_msg_count OUT NUMBER
208: , x_msg_data OUT VARCHAR2
201:
202: PROCEDURE Lock_Price_List
203: ( p_api_version_number IN NUMBER
204: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
205: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
206: , x_return_status OUT VARCHAR2
207: , x_msg_count OUT NUMBER
208: , x_msg_data OUT VARCHAR2
209: , p_PRICE_LIST_rec IN Price_List_Rec_Type :=
228: BEGIN
229:
230: -- Standard call to check for call compatibility
231:
232: IF NOT FND_API.Compatible_API_Call
233: ( l_api_version_number
234: , p_api_version_number
235: , l_api_name
236: , G_PKG_NAME
235: , l_api_name
236: , G_PKG_NAME
237: )
238: THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: -- Perform Value to Id conversion
243:
250: , x_PRICE_LIST_rec => l_PRICE_LIST_rec
251: , x_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
252: );
253:
254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
251: , x_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
252: );
253:
254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259:
252: );
253:
254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259:
260:
253:
254: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
256: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
257: RAISE FND_API.G_EXC_ERROR;
258: END IF;
259:
260:
261: -- Call qp_price_list_pvt.Lock_Price_List
278: x_PRICE_LIST_LINE_tbl := l_PRICE_LIST_LINE_tbl;
279:
280: -- If p_return_values is TRUE then convert Ids to Values.
281:
282: IF FND_API.to_Boolean(p_return_values) THEN
283:
284: Id_To_Value
285: ( p_PRICE_LIST_rec => l_PRICE_LIST_rec
286: , p_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
291: END IF;
292:
293: EXCEPTION
294:
295: WHEN FND_API.G_EXC_ERROR THEN
296:
297: x_return_status := FND_API.G_RET_STS_ERROR;
298:
299: -- Get message count and data
293: EXCEPTION
294:
295: WHEN FND_API.G_EXC_ERROR THEN
296:
297: x_return_status := FND_API.G_RET_STS_ERROR;
298:
299: -- Get message count and data
300:
301: OE_MSG_PUB.Count_And_Get
302: ( p_count => x_msg_count
303: , p_data => x_msg_data
304: );
305:
306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
307:
308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
309:
310: -- Get message count and data
304: );
305:
306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
307:
308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
309:
310: -- Get message count and data
311:
312: OE_MSG_PUB.Count_And_Get
315: );
316:
317: WHEN OTHERS THEN
318:
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
320:
321: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
322: THEN
323: OE_MSG_PUB.Add_Exc_Msg
352: -- End of Comments
353:
354: PROCEDURE Get_Price_List
355: ( p_api_version_number IN NUMBER
356: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
357: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
358: , x_return_status OUT VARCHAR2
359: , x_msg_count OUT NUMBER
360: , x_msg_data OUT VARCHAR2
353:
354: PROCEDURE Get_Price_List
355: ( p_api_version_number IN NUMBER
356: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
357: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
358: , x_return_status OUT VARCHAR2
359: , x_msg_count OUT NUMBER
360: , x_msg_data OUT VARCHAR2
361: , p_name IN VARCHAR2 :=
358: , x_return_status OUT VARCHAR2
359: , x_msg_count OUT NUMBER
360: , x_msg_data OUT VARCHAR2
361: , p_name IN VARCHAR2 :=
362: FND_API.G_MISS_CHAR
363: , p_price_list_id IN NUMBER :=
364: FND_API.G_MISS_NUM
365: , p_price_list IN VARCHAR2 :=
366: FND_API.G_MISS_CHAR
360: , x_msg_data OUT VARCHAR2
361: , p_name IN VARCHAR2 :=
362: FND_API.G_MISS_CHAR
363: , p_price_list_id IN NUMBER :=
364: FND_API.G_MISS_NUM
365: , p_price_list IN VARCHAR2 :=
366: FND_API.G_MISS_CHAR
367: , x_PRICE_LIST_rec OUT Price_List_Rec_Type
368: , x_PRICE_LIST_val_rec OUT Price_List_Val_Rec_Type
362: FND_API.G_MISS_CHAR
363: , p_price_list_id IN NUMBER :=
364: FND_API.G_MISS_NUM
365: , p_price_list IN VARCHAR2 :=
366: FND_API.G_MISS_CHAR
367: , x_PRICE_LIST_rec OUT Price_List_Rec_Type
368: , x_PRICE_LIST_val_rec OUT Price_List_Val_Rec_Type
369: , x_PRICE_LIST_LINE_tbl OUT Price_List_Line_Tbl_Type
370: , x_PRICE_LIST_LINE_val_tbl OUT Price_List_Line_Val_Tbl_Type
379: BEGIN
380:
381: -- Standard call to check for call compatibility
382:
383: IF NOT FND_API.Compatible_API_Call
384: ( l_api_version_number
385: , p_api_version_number
386: , l_api_name
387: , G_PKG_NAME
386: , l_api_name
387: , G_PKG_NAME
388: )
389: THEN
390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
393: -- Standard check for Val/ID conversion
394:
391: END IF;
392:
393: -- Standard check for Val/ID conversion
394:
395: IF p_price_list = FND_API.G_MISS_CHAR
396: THEN
397:
398: l_price_list_id := p_price_list_id;
399:
396: THEN
397:
398: l_price_list_id := p_price_list_id;
399:
400: ELSIF p_price_list_id <> FND_API.G_MISS_NUM THEN
401:
402: l_price_list_id := p_price_list_id;
403:
404: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
417: l_price_list_id := OE_Value_To_Id.price_list
418: ( p_price_list => p_price_list
419: );
420:
421: IF l_price_list_id = FND_API.G_MISS_NUM THEN
422: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
423: THEN
424:
425: FND_MESSAGE.SET_NAME('OE','Invalid Business Object Value');
428:
429: END IF;
430: END IF;
431:
432: RAISE FND_API.G_EXC_ERROR;
433:
434: END IF;
435:
436:
454: x_PRICE_LIST_LINE_tbl := l_PRICE_LIST_LINE_tbl;
455:
456: -- If p_return_values is TRUE then convert Ids to Values.
457:
458: IF FND_API.TO_BOOLEAN(p_return_values) THEN
459:
460: Id_To_Value
461: ( p_PRICE_LIST_rec => l_PRICE_LIST_rec
462: , p_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
467: END IF;
468:
469: -- Set return status
470:
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
472:
473: -- Get message count and data
474:
475: OE_MSG_PUB.Count_And_Get
479:
480:
481: EXCEPTION
482:
483: WHEN FND_API.G_EXC_ERROR THEN
484:
485: x_return_status := FND_API.G_RET_STS_ERROR;
486:
487: -- Get message count and data
481: EXCEPTION
482:
483: WHEN FND_API.G_EXC_ERROR THEN
484:
485: x_return_status := FND_API.G_RET_STS_ERROR;
486:
487: -- Get message count and data
488:
489: OE_MSG_PUB.Count_And_Get
490: ( p_count => x_msg_count
491: , p_data => x_msg_data
492: );
493:
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495:
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
497:
498: -- Get message count and data
492: );
493:
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495:
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
497:
498: -- Get message count and data
499:
500: OE_MSG_PUB.Count_And_Get
503: );
504:
505: WHEN OTHERS THEN
506:
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
508:
509: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
510: THEN
511: OE_MSG_PUB.Add_Exc_Msg
556: , 'Id_To_Value'
557: );
558: END IF;
559:
560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
561:
562: END Id_To_Value;
563:
564: -- Procedure Value_To_Id
579: BEGIN
580:
581: -- Init x_return_status.
582:
583: x_return_status := FND_API.G_RET_STS_SUCCESS;
584:
585: -- Convert PRICE_LIST
586:
587: l_PRICE_LIST_rec := OE_Price_List_Util.Get_Ids
590: );
591:
592: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
593:
594: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
595: x_return_status := FND_API.G_RET_STS_ERROR;
596: END IF;
597:
598: -- Convert PRICE_LIST_LINE
591:
592: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
593:
594: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
595: x_return_status := FND_API.G_RET_STS_ERROR;
596: END IF;
597:
598: -- Convert PRICE_LIST_LINE
599:
609: );
610:
611: x_PRICE_LIST_LINE_tbl(l_index) := l_PRICE_LIST_LINE_rec;
612:
613: IF l_PRICE_LIST_LINE_rec.return_status = FND_API.G_RET_STS_ERROR THEN
614: x_return_status := FND_API.G_RET_STS_ERROR;
615: END IF;
616:
617: l_index := p_PRICE_LIST_LINE_val_tbl.NEXT(l_index);
610:
611: x_PRICE_LIST_LINE_tbl(l_index) := l_PRICE_LIST_LINE_rec;
612:
613: IF l_PRICE_LIST_LINE_rec.return_status = FND_API.G_RET_STS_ERROR THEN
614: x_return_status := FND_API.G_RET_STS_ERROR;
615: END IF;
616:
617: l_index := p_PRICE_LIST_LINE_val_tbl.NEXT(l_index);
618:
629: , 'Value_To_Id'
630: );
631: END IF;
632:
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634:
635: END Value_To_Id;
636:
637: END OE_Price_List_PUB;