43: -- End of Comments
44:
45: PROCEDURE Process_Qualifier_Rules
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 NOCOPY /* file.sql.39 change */ VARCHAR2
51: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
44:
45: PROCEDURE Process_Qualifier_Rules
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 NOCOPY /* file.sql.39 change */ VARCHAR2
51: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
52: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
45: PROCEDURE Process_Qualifier_Rules
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 NOCOPY /* file.sql.39 change */ VARCHAR2
51: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
52: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
53: , p_QUALIFIER_RULES_rec IN Qualifier_Rules_Rec_Type :=
83:
84:
85: -- Standard call to check for call compatibility
86:
87: IF NOT FND_API.Compatible_API_Call
88: ( l_api_version_number
89: , p_api_version_number
90: , l_api_name
91: , G_PKG_NAME
90: , l_api_name
91: , G_PKG_NAME
92: )
93: THEN
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: --bug#3385041 begin
98: begin
111: IF l_qp_status = 'S'
112: AND nvl(l_list_source_code,'NULL') <> QP_GLOBALS.G_ENTITY_BSO --Bug3385041
113: THEN -- Public API unavailable for Basic Pricing
114:
115: l_return_status := FND_API.G_RET_STS_ERROR;
116: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
117: OE_MSG_PUB.Add;
118: RAISE FND_API.G_EXC_ERROR;
119:
114:
115: l_return_status := FND_API.G_RET_STS_ERROR;
116: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
117: OE_MSG_PUB.Add;
118: RAISE FND_API.G_EXC_ERROR;
119:
120: END IF;
121:
122:
131: , x_QUALIFIER_RULES_rec => l_QUALIFIER_RULES_rec
132: , x_QUALIFIERS_tbl => l_QUALIFIERS_tbl
133: );
134:
135: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
138: RAISE FND_API.G_EXC_ERROR;
139: END IF;
132: , x_QUALIFIERS_tbl => l_QUALIFIERS_tbl
133: );
134:
135: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
138: RAISE FND_API.G_EXC_ERROR;
139: END IF;
140:
133: );
134:
135: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
138: RAISE FND_API.G_EXC_ERROR;
139: END IF;
140:
141:
134:
135: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
137: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
138: RAISE FND_API.G_EXC_ERROR;
139: END IF;
140:
141:
142: -- Call QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
148: l_p_QUALIFIERS_tbl := l_QUALIFIERS_tbl;
149: QP_Qualifier_Rules_PVT.Process_Qualifier_Rules
150: ( p_api_version_number => 1.0
151: , p_init_msg_list => p_init_msg_list
152: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
153: , p_commit => p_commit
154: , x_return_status => x_return_status
155: , x_msg_count => x_msg_count
156: , x_msg_data => x_msg_data
167: x_QUALIFIERS_tbl := l_QUALIFIERS_tbl;
168:
169: -- If p_return_values is TRUE then convert Ids to Values.
170:
171: IF FND_API.to_Boolean(p_return_values) THEN
172:
173: Id_To_Value
174: ( p_QUALIFIER_RULES_rec => l_QUALIFIER_RULES_rec
175: , p_QUALIFIERS_tbl => l_QUALIFIERS_tbl
186: --5345652
187:
188: EXCEPTION
189:
190: WHEN FND_API.G_EXC_ERROR THEN
191:
192: x_return_status := FND_API.G_RET_STS_ERROR;
193:
194: -- Get message count and data
188: EXCEPTION
189:
190: WHEN FND_API.G_EXC_ERROR THEN
191:
192: x_return_status := FND_API.G_RET_STS_ERROR;
193:
194: -- Get message count and data
195:
196: OE_MSG_PUB.Count_And_Get
203: Rollback TO QP_PQR;
204: END IF;
205: --5345652
206:
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208:
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210:
211: -- Get message count and data
205: --5345652
206:
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208:
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210:
211: -- Get message count and data
212:
213: OE_MSG_PUB.Count_And_Get
222: --5345652
223:
224: WHEN OTHERS THEN
225:
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227:
228: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
229: THEN
230: OE_MSG_PUB.Add_Exc_Msg
265: -- End of Comments
266:
267: PROCEDURE Lock_Qualifier_Rules
268: ( p_api_version_number IN NUMBER
269: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
270: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
271: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
272: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
273: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
266:
267: PROCEDURE Lock_Qualifier_Rules
268: ( p_api_version_number IN NUMBER
269: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
270: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
271: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
272: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
273: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
274: , p_QUALIFIER_RULES_rec IN Qualifier_Rules_Rec_Type :=
295: BEGIN
296:
297: -- Standard call to check for call compatibility
298:
299: IF NOT FND_API.Compatible_API_Call
300: ( l_api_version_number
301: , p_api_version_number
302: , l_api_name
303: , G_PKG_NAME
302: , l_api_name
303: , G_PKG_NAME
304: )
305: THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: -- Perform Value to Id conversion
310:
317: , x_QUALIFIER_RULES_rec => l_QUALIFIER_RULES_rec
318: , x_QUALIFIERS_tbl => l_QUALIFIERS_tbl
319: );
320:
321: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
318: , x_QUALIFIERS_tbl => l_QUALIFIERS_tbl
319: );
320:
321: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326:
319: );
320:
321: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326:
327:
320:
321: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326:
327:
328: -- Call QP_Qualifier_Rules_PVT.Lock_Qualifier_Rules
346: x_QUALIFIERS_tbl := l_QUALIFIERS_tbl;
347:
348: -- If p_return_values is TRUE then convert Ids to Values.
349:
350: IF FND_API.to_Boolean(p_return_values) THEN
351:
352: Id_To_Value
353: ( p_QUALIFIER_RULES_rec => l_QUALIFIER_RULES_rec
354: , p_QUALIFIERS_tbl => l_QUALIFIERS_tbl
359: END IF;
360:
361: EXCEPTION
362:
363: WHEN FND_API.G_EXC_ERROR THEN
364:
365: x_return_status := FND_API.G_RET_STS_ERROR;
366:
367: -- Get message count and data
361: EXCEPTION
362:
363: WHEN FND_API.G_EXC_ERROR THEN
364:
365: x_return_status := FND_API.G_RET_STS_ERROR;
366:
367: -- Get message count and data
368:
369: OE_MSG_PUB.Count_And_Get
370: ( p_count => x_msg_count
371: , p_data => x_msg_data
372: );
373:
374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
375:
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
377:
378: -- Get message count and data
372: );
373:
374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
375:
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
377:
378: -- Get message count and data
379:
380: OE_MSG_PUB.Count_And_Get
383: );
384:
385: WHEN OTHERS THEN
386:
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
388:
389: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
390: THEN
391: OE_MSG_PUB.Add_Exc_Msg
420: -- End of Comments
421:
422: PROCEDURE Get_Qualifier_Rules
423: ( p_api_version_number IN NUMBER
424: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
425: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
426: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
427: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
428: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
421:
422: PROCEDURE Get_Qualifier_Rules
423: ( p_api_version_number IN NUMBER
424: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
425: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
426: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
427: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
428: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
429: , p_qualifier_rule_id IN NUMBER :=
426: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
427: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
428: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
429: , p_qualifier_rule_id IN NUMBER :=
430: FND_API.G_MISS_NUM
431: , p_qualifier_rule IN VARCHAR2 :=
432: FND_API.G_MISS_CHAR
433: , x_QUALIFIER_RULES_rec OUT NOCOPY /* file.sql.39 change */ Qualifier_Rules_Rec_Type
434: , x_QUALIFIER_RULES_val_rec OUT NOCOPY /* file.sql.39 change */ Qualifier_Rules_Val_Rec_Type
428: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
429: , p_qualifier_rule_id IN NUMBER :=
430: FND_API.G_MISS_NUM
431: , p_qualifier_rule IN VARCHAR2 :=
432: FND_API.G_MISS_CHAR
433: , x_QUALIFIER_RULES_rec OUT NOCOPY /* file.sql.39 change */ Qualifier_Rules_Rec_Type
434: , x_QUALIFIER_RULES_val_rec OUT NOCOPY /* file.sql.39 change */ Qualifier_Rules_Val_Rec_Type
435: , x_QUALIFIERS_tbl OUT NOCOPY /* file.sql.39 change */ Qualifiers_Tbl_Type
436: , x_QUALIFIERS_val_tbl OUT NOCOPY /* file.sql.39 change */ Qualifiers_Val_Tbl_Type
444: BEGIN
445:
446: -- Standard call to check for call compatibility
447:
448: IF NOT FND_API.Compatible_API_Call
449: ( l_api_version_number
450: , p_api_version_number
451: , l_api_name
452: , G_PKG_NAME
451: , l_api_name
452: , G_PKG_NAME
453: )
454: THEN
455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456: END IF;
457:
458: -- Standard check for Val/ID conversion
459:
456: END IF;
457:
458: -- Standard check for Val/ID conversion
459:
460: IF p_qualifier_rule = FND_API.G_MISS_CHAR
461: THEN
462:
463: l_qualifier_rule_id := p_qualifier_rule_id;
464:
461: THEN
462:
463: l_qualifier_rule_id := p_qualifier_rule_id;
464:
465: ELSIF p_qualifier_rule_id <> FND_API.G_MISS_NUM THEN
466:
467: l_qualifier_rule_id := p_qualifier_rule_id;
468:
469: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
486:
487: --dbms_output.put_line('after convertid'||l_qualifier_rule_id);
488: --dbms_output.put_line('qualifier rule id is miss num');
489:
490: IF l_qualifier_rule_id = FND_API.G_MISS_NUM THEN
491: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
492: THEN
493:
494: FND_MESSAGE.SET_NAME('QP','Invalid Business Object Value');
500:
501: --commented by svdeshmu
502: --With this uncommented , after QP_Value_to_id ,exeception is raised.
503:
504: RAISE FND_API.G_EXC_ERROR;
505:
506: END IF;
507:
508:
528: x_QUALIFIERS_tbl := l_QUALIFIERS_tbl;
529:
530: -- If p_return_values is TRUE then convert Ids to Values.
531:
532: IF FND_API.TO_BOOLEAN(p_return_values) THEN
533:
534: Id_To_Value
535: ( p_QUALIFIER_RULES_rec => l_QUALIFIER_RULES_rec
536: , p_QUALIFIERS_tbl => l_QUALIFIERS_tbl
541: END IF;
542:
543: -- Set return status
544:
545: x_return_status := FND_API.G_RET_STS_SUCCESS;
546:
547: -- Get message count and data
548:
549: OE_MSG_PUB.Count_And_Get
553:
554:
555: EXCEPTION
556:
557: WHEN FND_API.G_EXC_ERROR THEN
558:
559: --dbms_output.put_line('calling get qualifiers g_exe_error');
560: x_return_status := FND_API.G_RET_STS_ERROR;
561:
556:
557: WHEN FND_API.G_EXC_ERROR THEN
558:
559: --dbms_output.put_line('calling get qualifiers g_exe_error');
560: x_return_status := FND_API.G_RET_STS_ERROR;
561:
562: -- Get message count and data
563:
564: OE_MSG_PUB.Count_And_Get
565: ( p_count => x_msg_count
566: , p_data => x_msg_data
567: );
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570: --dbms_output.put_line('calling get qualifiers unexpected error');
571:
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
573:
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570: --dbms_output.put_line('calling get qualifiers unexpected error');
571:
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
573:
574: -- Get message count and data
575:
576: OE_MSG_PUB.Count_And_Get
580:
581: WHEN OTHERS THEN
582: --dbms_output.put_line('calling get qualifiers other');
583:
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585:
586: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
587: THEN
588: OE_MSG_PUB.Add_Exc_Msg
601: END Get_Qualifier_Rules;
602:
603: PROCEDURE Copy_Qualifier_Rule
604: ( p_api_version_number IN NUMBER
605: , p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE
606: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
607: , p_commit IN VARCHAR2 := FND_API.G_FALSE
608: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
609: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
602:
603: PROCEDURE Copy_Qualifier_Rule
604: ( p_api_version_number IN NUMBER
605: , p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE
606: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
607: , p_commit IN VARCHAR2 := FND_API.G_FALSE
608: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
609: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
610: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
603: PROCEDURE Copy_Qualifier_Rule
604: ( p_api_version_number IN NUMBER
605: , p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE
606: , p_return_values IN VARCHAR2 := FND_API.G_FALSE
607: , p_commit IN VARCHAR2 := FND_API.G_FALSE
608: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
609: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
610: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
611: , p_qualifier_rule_id IN NUMBER :=
608: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
609: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
610: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
611: , p_qualifier_rule_id IN NUMBER :=
612: FND_API.G_MISS_NUM
613: , p_qualifier_rule IN VARCHAR2 :=
614: FND_API.G_MISS_CHAR
615: , p_to_qualifier_rule IN VARCHAR2
616: , p_to_description IN VARCHAR2 :=FND_API.G_MISS_CHAR
610: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
611: , p_qualifier_rule_id IN NUMBER :=
612: FND_API.G_MISS_NUM
613: , p_qualifier_rule IN VARCHAR2 :=
614: FND_API.G_MISS_CHAR
615: , p_to_qualifier_rule IN VARCHAR2
616: , p_to_description IN VARCHAR2 :=FND_API.G_MISS_CHAR
617: , x_qualifier_rule_id OUT NOCOPY /* file.sql.39 change */ NUMBER) IS
618:
612: FND_API.G_MISS_NUM
613: , p_qualifier_rule IN VARCHAR2 :=
614: FND_API.G_MISS_CHAR
615: , p_to_qualifier_rule IN VARCHAR2
616: , p_to_description IN VARCHAR2 :=FND_API.G_MISS_CHAR
617: , x_qualifier_rule_id OUT NOCOPY /* file.sql.39 change */ NUMBER) IS
618:
619:
620: l_api_version_number CONSTANT NUMBER := 1.0;
625:
626:
627: -- Standard call to check for call compatibility
628:
629: IF NOT FND_API.Compatible_API_Call
630: ( l_api_version_number
631: , p_api_version_number
632: , l_api_name
633: , G_PKG_NAME
632: , l_api_name
633: , G_PKG_NAME
634: )
635: THEN
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: END IF;
638:
639: -- Standard check for Val/ID conversion
640:
637: END IF;
638:
639: -- Standard check for Val/ID conversion
640:
641: IF p_qualifier_rule = FND_API.G_MISS_CHAR
642: THEN
643:
644: l_qualifier_rule_id := p_qualifier_rule_id;
645:
642: THEN
643:
644: l_qualifier_rule_id := p_qualifier_rule_id;
645:
646: ELSIF p_qualifier_rule_id <> FND_API.G_MISS_NUM THEN
647:
648: l_qualifier_rule_id := p_qualifier_rule_id;
649:
650: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
667:
668: --dbms_output.put_line('after convertid'||l_qualifier_rule_id);
669: --dbms_output.put_line('qualifier rule id is miss num');
670:
671: IF l_qualifier_rule_id = FND_API.G_MISS_NUM THEN
672: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
673: THEN
674:
675: FND_MESSAGE.SET_NAME('QP','Invalid Business Object Value');
681:
682: --commented by svdeshmu
683: --With this uncommented , after QP_Value_to_id ,exeception is raised.
684:
685: --RAISE FND_API.G_EXC_ERROR;
686: END IF;
687:
688:
689: -- Call QP_Qualifier_Rules_PVT.Copy_Qualifier_Rules
715: x_qualifier_rule_id := l_qualifier_rule_id;
716:
717: /*-- If p_return_values is TRUE then convert Ids to Values.
718:
719: IF FND_API.TO_BOOLEAN(p_return_values) THEN
720:
721: Id_To_Value
722: ( p_QUALIFIER_RULES_rec => l_QUALIFIER_RULES_rec
723: , p_QUALIFIERS_tbl => l_QUALIFIERS_tbl
728: END IF;*/
729:
730: -- Set return status
731:
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733:
734: -- Get message count and data
735:
736: OE_MSG_PUB.Count_And_Get
740:
741:
742: EXCEPTION
743:
744: WHEN FND_API.G_EXC_ERROR THEN
745:
746: --dbms_output.put_line('calling get qualifiers g_exe_error');
747: x_return_status := FND_API.G_RET_STS_ERROR;
748:
743:
744: WHEN FND_API.G_EXC_ERROR THEN
745:
746: --dbms_output.put_line('calling get qualifiers g_exe_error');
747: x_return_status := FND_API.G_RET_STS_ERROR;
748:
749: -- Get message count and data
750:
751: OE_MSG_PUB.Count_And_Get
752: ( p_count => x_msg_count
753: , p_data => x_msg_data
754: );
755:
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: --dbms_output.put_line('calling get qualifiers unexpected error');
758:
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
760:
755:
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: --dbms_output.put_line('calling get qualifiers unexpected error');
758:
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
760:
761: -- Get message count and data
762:
763: OE_MSG_PUB.Count_And_Get
768:
769: WHEN OTHERS THEN
770: --dbms_output.put_line('calling get qualifiers other');
771:
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
773:
774: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
775: THEN
776: OE_MSG_PUB.Add_Exc_Msg
829: , 'Id_To_Value'
830: );
831: END IF;
832:
833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
834:
835: END Id_To_Value;
836:
837: -- Procedure Value_To_Id
852: BEGIN
853:
854: -- Init x_return_status.
855:
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857:
858: -- Convert QUALIFIER_RULES
859:
860: l_QUALIFIER_RULES_rec := QP_Qualifier_Rules_Util.Get_Ids
863: );
864:
865: x_QUALIFIER_RULES_rec := l_QUALIFIER_RULES_rec;
866:
867: IF l_QUALIFIER_RULES_rec.return_status = FND_API.G_RET_STS_ERROR THEN
868: x_return_status := FND_API.G_RET_STS_ERROR;
869: END IF;
870:
871: -- Convert QUALIFIERS
864:
865: x_QUALIFIER_RULES_rec := l_QUALIFIER_RULES_rec;
866:
867: IF l_QUALIFIER_RULES_rec.return_status = FND_API.G_RET_STS_ERROR THEN
868: x_return_status := FND_API.G_RET_STS_ERROR;
869: END IF;
870:
871: -- Convert QUALIFIERS
872:
883: );
884:
885: x_QUALIFIERS_tbl(l_index) := l_QUALIFIERS_rec;
886:
887: IF l_QUALIFIERS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: END IF;
890:
891: l_index := p_QUALIFIERS_val_tbl.NEXT(l_index);
884:
885: x_QUALIFIERS_tbl(l_index) := l_QUALIFIERS_rec;
886:
887: IF l_QUALIFIERS_rec.return_status = FND_API.G_RET_STS_ERROR THEN
888: x_return_status := FND_API.G_RET_STS_ERROR;
889: END IF;
890:
891: l_index := p_QUALIFIERS_val_tbl.NEXT(l_index);
892:
903: , 'Value_To_Id'
904: );
905: END IF;
906:
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908:
909: END Value_To_Id;
910:
911: END QP_Qualifier_Rules_PUB;