53: -- End of Comments
54:
55: PROCEDURE Process_Price_List
56: ( p_api_version_number IN NUMBER
57: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
58: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
59: , p_commit IN VARCHAR2 := FND_API.G_FALSE
60: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
61: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
54:
55: PROCEDURE Process_Price_List
56: ( p_api_version_number IN NUMBER
57: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
58: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
59: , p_commit IN VARCHAR2 := FND_API.G_FALSE
60: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
61: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
62: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
55: PROCEDURE Process_Price_List
56: ( p_api_version_number IN NUMBER
57: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
58: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
59: , p_commit IN VARCHAR2 := FND_API.G_FALSE
60: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
61: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
62: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
63: , p_PRICE_LIST_rec IN Price_List_Rec_Type :=
112: oe_debug_pub.add('G_CHECK_DUP_PRICELIST_LINES: '||QP_GLOBALS.G_CHECK_DUP_PRICELIST_LINES);
113:
114: -- Standard call to check for call compatibility
115:
116: IF NOT FND_API.Compatible_API_Call
117: ( l_api_version_number
118: , p_api_version_number
119: , l_api_name
120: , G_PKG_NAME
119: , l_api_name
120: , G_PKG_NAME
121: )
122: THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
126: /* check for installation status ; if it's basic then this api
127: is not available */
147:
148: IF p_PRICE_LIST_rec.rounding_factor IS NULL THEN
149: FND_MESSAGE.SET_NAME('QP','SO_PR_NO_ROUNDING_FACTOR');
150: OE_MSG_PUB.Add;
151: RAISE FND_API.G_EXC_ERROR;
152: END IF;
153:
154: -- bug#3599792 / bug#3957078 / bug4261021
155: IF p_PRICE_LIST_LINE_tbl.COUNT <> 0 THEN
153:
154: -- bug#3599792 / bug#3957078 / bug4261021
155: IF p_PRICE_LIST_LINE_tbl.COUNT <> 0 THEN
156: IF p_PRICE_LIST_LINE_tbl(1).list_header_id IS NOT NULL AND
157: p_PRICE_LIST_LINE_tbl(1).list_header_id <> FND_API.G_MISS_NUM THEN
158: BEGIN
159: select list_source_code into l_list_source_code
160: from qp_list_headers_b
161: where list_header_id = p_PRICE_LIST_LINE_tbl(1).list_header_id;
162: EXCEPTION
163: WHEN OTHERS THEN
164: oe_debug_pub.add('PRICELIST LINE list_header_id : '||p_PRICE_LIST_LINE_tbl(1).list_header_id);
165: IF p_PRICE_LIST_rec.list_source_code IS NOT NULL
166: AND p_PRICE_LIST_rec.list_source_code <> FND_API.G_MISS_CHAR
167: THEN
168: l_list_source_code := p_PRICE_LIST_rec.list_source_code;
169: END IF;
170: END;
168: l_list_source_code := p_PRICE_LIST_rec.list_source_code;
169: END IF;
170: END;
171: ELSIF p_PRICE_LIST_LINE_tbl(1).list_line_id IS NOT NULL AND
172: p_PRICE_LIST_LINE_tbl(1).list_line_id <> FND_API.G_MISS_NUM THEN
173: BEGIN
174: select list_source_code into l_list_source_code
175: from qp_list_headers_b
176: where list_header_id = (select list_header_id from qp_list_lines
178: EXCEPTION
179: WHEN OTHERS THEN
180: oe_debug_pub.add('PRICELIST LINE list_line_id : '|| p_PRICE_LIST_LINE_tbl(1).list_line_id);
181: IF p_PRICE_LIST_rec.list_source_code IS NOT NULL
182: AND p_PRICE_LIST_rec.list_source_code <> FND_API.G_MISS_CHAR
183: THEN
184: l_list_source_code := p_PRICE_LIST_rec.list_source_code;
185: END IF;
186: END;
185: END IF;
186: END;
187: ELSE
188: IF p_PRICE_LIST_rec.list_source_code IS NOT NULL
189: AND p_PRICE_LIST_rec.list_source_code <> FND_API.G_MISS_CHAR
190: THEN
191: l_list_source_code := p_PRICE_LIST_rec.list_source_code;
192: END IF;
193: END IF;
192: END IF;
193: END IF;
194: ELSE
195: IF p_PRICE_LIST_rec.list_source_code IS NOT NULL
196: AND p_PRICE_LIST_rec.list_source_code <> FND_API.G_MISS_CHAR
197: THEN
198: l_list_source_code := p_PRICE_LIST_rec.list_source_code;
199: END IF;
200: END IF;
205: AND nvl(l_list_source_code,'NULL') = QP_GLOBALS.G_ENTITY_BSO -- bug#3599792
206: THEN --bug#3385041
207: NULL;
208: ELSE
209: l_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
211: OE_MSG_PUB.Add;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
208: ELSE
209: l_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
211: OE_MSG_PUB.Add;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214:
215: END IF;
216:
232: , x_QUALIFIERS_tbl => l_QUALIFIERS_tbl
233: , x_PRICING_ATTR_tbl => l_PRICING_ATTR_tbl
234: );
235:
236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
233: , x_PRICING_ATTR_tbl => l_PRICING_ATTR_tbl
234: );
235:
236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241:
234: );
235:
236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241:
242:
235:
236: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241:
242:
243: --bug#5154678 Continuous Price Break Changes
263:
264: QP_LIST_HEADERS_PVT.Process_Price_List
265: ( p_api_version_number => 1.0
266: , p_init_msg_list => p_init_msg_list
267: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
268: , p_commit => p_commit
269: , x_return_status => x_return_status
270: , x_msg_count => x_msg_count
271: , x_msg_data => x_msg_data
289: x_PRICING_ATTR_tbl := l_PRICING_ATTR_tbl;
290:
291: -- If p_return_values is TRUE then convert Ids to Values.
292:
293: IF FND_API.to_Boolean(p_return_values) THEN
294:
295: Id_To_Value
296: ( p_PRICE_LIST_rec => l_PRICE_LIST_rec
297: , p_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
311: END IF;
312:
313: EXCEPTION
314:
315: WHEN FND_API.G_EXC_ERROR THEN
316:
317: x_return_status := FND_API.G_RET_STS_ERROR;
318:
319: -- Get message count and data
313: EXCEPTION
314:
315: WHEN FND_API.G_EXC_ERROR THEN
316:
317: x_return_status := FND_API.G_RET_STS_ERROR;
318:
319: -- Get message count and data
320:
321: oe_msg_pub.Count_And_Get
327: If l_control_rec.called_from_ui='N' THEN
328: Rollback TO PPL;
329: END IF;
330:
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332:
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334:
335: -- Get message count and data
329: END IF;
330:
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332:
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
334:
335: -- Get message count and data
336:
337: oe_msg_pub.Count_And_Get
345: END IF;
346:
347: WHEN OTHERS THEN
348:
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
350:
351: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
352: THEN
353: oe_msg_pub.Add_Exc_Msg
387: -- End of Comments
388:
389: PROCEDURE Lock_Price_List
390: ( p_api_version_number IN NUMBER
391: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
392: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
393: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
394: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
395: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
388:
389: PROCEDURE Lock_Price_List
390: ( p_api_version_number IN NUMBER
391: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
392: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
393: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
394: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
395: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
396: , p_PRICE_LIST_rec IN Price_List_Rec_Type :=
435: BEGIN
436:
437: -- Standard call to check for call compatibility
438:
439: IF NOT FND_API.Compatible_API_Call
440: ( l_api_version_number
441: , p_api_version_number
442: , l_api_name
443: , G_PKG_NAME
442: , l_api_name
443: , G_PKG_NAME
444: )
445: THEN
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448:
449:
450: --added for moac
473: , x_QUALIFIERS_tbl => l_QUALIFIERS_tbl
474: , x_PRICING_ATTR_tbl => l_PRICING_ATTR_tbl
475: );
476:
477: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
474: , x_PRICING_ATTR_tbl => l_PRICING_ATTR_tbl
475: );
476:
477: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482:
475: );
476:
477: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482:
483:
476:
477: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482:
483:
484: -- Call QP_LIST_HEADERS_PVT.Lock_Price_List
512: x_PRICING_ATTR_tbl := l_PRICING_ATTR_tbl;
513:
514: -- If p_return_values is TRUE then convert Ids to Values.
515:
516: IF FND_API.to_Boolean(p_return_values) THEN
517:
518: Id_To_Value
519: ( p_PRICE_LIST_rec => l_PRICE_LIST_rec
520: , p_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
529: END IF;
530:
531: EXCEPTION
532:
533: WHEN FND_API.G_EXC_ERROR THEN
534:
535: x_return_status := FND_API.G_RET_STS_ERROR;
536:
537: -- Get message count and data
531: EXCEPTION
532:
533: WHEN FND_API.G_EXC_ERROR THEN
534:
535: x_return_status := FND_API.G_RET_STS_ERROR;
536:
537: -- Get message count and data
538:
539: oe_msg_pub.Count_And_Get
540: ( p_count => x_msg_count
541: , p_data => x_msg_data
542: );
543:
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545:
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
547:
548: -- Get message count and data
542: );
543:
544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
545:
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
547:
548: -- Get message count and data
549:
550: oe_msg_pub.Count_And_Get
553: );
554:
555: WHEN OTHERS THEN
556:
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
558:
559: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
560: THEN
561: oe_msg_pub.Add_Exc_Msg
590: -- End of Comments
591:
592: PROCEDURE Get_Price_List
593: ( p_api_version_number IN NUMBER
594: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
595: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
596: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
597: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
598: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
591:
592: PROCEDURE Get_Price_List
593: ( p_api_version_number IN NUMBER
594: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
595: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
596: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
597: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
598: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
599: , p_list_header_id IN NUMBER :=
596: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
597: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
598: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
599: , p_list_header_id IN NUMBER :=
600: FND_API.G_MISS_NUM
601: , p_list_header IN VARCHAR2 :=
602: FND_API.G_MISS_CHAR
603: , x_PRICE_LIST_rec OUT NOCOPY /* file.sql.39 change */ Price_List_Rec_Type
604: , x_PRICE_LIST_val_rec OUT NOCOPY /* file.sql.39 change */ Price_List_Val_Rec_Type
598: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
599: , p_list_header_id IN NUMBER :=
600: FND_API.G_MISS_NUM
601: , p_list_header IN VARCHAR2 :=
602: FND_API.G_MISS_CHAR
603: , x_PRICE_LIST_rec OUT NOCOPY /* file.sql.39 change */ Price_List_Rec_Type
604: , x_PRICE_LIST_val_rec OUT NOCOPY /* file.sql.39 change */ Price_List_Val_Rec_Type
605: , x_PRICE_LIST_LINE_tbl OUT NOCOPY /* file.sql.39 change */ Price_List_Line_Tbl_Type
606: , x_PRICE_LIST_LINE_val_tbl OUT NOCOPY /* file.sql.39 change */ Price_List_Line_Val_Tbl_Type
620: BEGIN
621:
622: -- Standard call to check for call compatibility
623:
624: IF NOT FND_API.Compatible_API_Call
625: ( l_api_version_number
626: , p_api_version_number
627: , l_api_name
628: , G_PKG_NAME
627: , l_api_name
628: , G_PKG_NAME
629: )
630: THEN
631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
632: END IF;
633:
634:
635: --added for moac
642:
643:
644: -- Standard check for Val/ID conversion
645:
646: IF p_list_header = FND_API.G_MISS_CHAR
647: THEN
648:
649: l_list_header_id := p_list_header_id;
650:
647: THEN
648:
649: l_list_header_id := p_list_header_id;
650:
651: ELSIF p_list_header_id <> FND_API.G_MISS_NUM THEN
652:
653: l_list_header_id := p_list_header_id;
654:
655: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_SUCCESS)
668: l_list_header_id := QP_Value_To_Id.list_header
669: ( p_list_header => p_list_header
670: );
671:
672: IF l_list_header_id = FND_API.G_MISS_NUM THEN
673: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
674: THEN
675:
676: FND_MESSAGE.SET_NAME('QP','Invalid Business Object Value');
679:
680: END IF;
681: END IF;
682:
683: RAISE FND_API.G_EXC_ERROR;
684:
685: END IF;
686:
687:
708: x_PRICING_ATTR_tbl := l_PRICING_ATTR_tbl;
709:
710: -- If p_return_values is TRUE then convert Ids to Values.
711:
712: IF FND_API.TO_BOOLEAN(p_return_values) THEN
713:
714: Id_To_Value
715: ( p_PRICE_LIST_rec => l_PRICE_LIST_rec
716: , p_PRICE_LIST_LINE_tbl => l_PRICE_LIST_LINE_tbl
725: END IF;
726:
727: -- Set return status
728:
729: x_return_status := FND_API.G_RET_STS_SUCCESS;
730:
731: -- Get message count and data
732:
733: oe_msg_pub.Count_And_Get
737:
738:
739: EXCEPTION
740:
741: WHEN FND_API.G_EXC_ERROR THEN
742:
743: x_return_status := FND_API.G_RET_STS_ERROR;
744:
745: -- Get message count and data
739: EXCEPTION
740:
741: WHEN FND_API.G_EXC_ERROR THEN
742:
743: x_return_status := FND_API.G_RET_STS_ERROR;
744:
745: -- Get message count and data
746:
747: oe_msg_pub.Count_And_Get
748: ( p_count => x_msg_count
749: , p_data => x_msg_data
750: );
751:
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753:
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
755:
756: -- Get message count and data
750: );
751:
752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
753:
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
755:
756: -- Get message count and data
757:
758: oe_msg_pub.Count_And_Get
761: );
762:
763: WHEN OTHERS THEN
764:
765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
766:
767: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
768: THEN
769: oe_msg_pub.Add_Exc_Msg
833: , 'Id_To_Value'
834: );
835: END IF;
836:
837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
838:
839: END Id_To_Value;
840:
841: -- Procedure Value_To_Id
864: BEGIN
865:
866: -- Init x_return_status.
867:
868: x_return_status := FND_API.G_RET_STS_SUCCESS;
869:
870: -- Convert PRICE_LIST
871:
872: l_PRICE_LIST_rec := QP_Price_List_Util.Get_Ids
875: );
876:
877: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
878:
879: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
880: x_return_status := FND_API.G_RET_STS_ERROR;
881: END IF;
882:
883: -- Convert PRICE_LIST_LINE
876:
877: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
878:
879: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
880: x_return_status := FND_API.G_RET_STS_ERROR;
881: END IF;
882:
883: -- Convert PRICE_LIST_LINE
884:
894: );
895:
896: x_PRICE_LIST_LINE_tbl(l_index) := l_PRICE_LIST_LINE_rec;
897:
898: IF l_PRICE_LIST_LINE_rec.return_status = FND_API.G_RET_STS_ERROR THEN
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: END IF;
901:
902: l_index := p_PRICE_LIST_LINE_val_tbl.NEXT(l_index);
895:
896: x_PRICE_LIST_LINE_tbl(l_index) := l_PRICE_LIST_LINE_rec;
897:
898: IF l_PRICE_LIST_LINE_rec.return_status = FND_API.G_RET_STS_ERROR THEN
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: END IF;
901:
902: l_index := p_PRICE_LIST_LINE_val_tbl.NEXT(l_index);
903:
918: );
919:
920: x_QUALIFIERS_tbl(l_index) := l_QUALIFIERS_rec;
921:
922: IF l_QUALIFIERS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: END IF;
925:
926: l_index := p_QUALIFIERS_val_tbl.NEXT(l_index);
919:
920: x_QUALIFIERS_tbl(l_index) := l_QUALIFIERS_rec;
921:
922: IF l_QUALIFIERS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: END IF;
925:
926: l_index := p_QUALIFIERS_val_tbl.NEXT(l_index);
927:
942: );
943:
944: x_PRICING_ATTR_tbl(l_index) := l_PRICING_ATTR_rec;
945:
946: IF l_PRICING_ATTR_rec.return_status = FND_API.G_RET_STS_ERROR THEN
947: x_return_status := FND_API.G_RET_STS_ERROR;
948: END IF;
949:
950: l_index := p_PRICING_ATTR_val_tbl.NEXT(l_index);
943:
944: x_PRICING_ATTR_tbl(l_index) := l_PRICING_ATTR_rec;
945:
946: IF l_PRICING_ATTR_rec.return_status = FND_API.G_RET_STS_ERROR THEN
947: x_return_status := FND_API.G_RET_STS_ERROR;
948: END IF;
949:
950: l_index := p_PRICING_ATTR_val_tbl.NEXT(l_index);
951:
962: , 'Value_To_Id'
963: );
964: END IF;
965:
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967:
968: END Value_To_Id;
969:
970: END QP_Price_List_PUB;