41: );
42:
43: -- Set record return status.
44:
45: l_PRICE_LIST_rec.return_status := FND_API.G_RET_STS_SUCCESS;
46:
47: --added for moac for inline BSA PL and locked PL --fix for bug 4748511
48: if l_PRICE_LIST_rec.operation in (QP_GLOBALS.G_OPR_CREATE, QP_GLOBALS.G_OPR_UPDATE)
49: --and l_control_rec.called_from_ui = 'N' --this is not true for price locking API call
57: -- Prepare record.
58:
59: IF l_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
60:
61: l_PRICE_LIST_rec.db_flag := FND_API.G_FALSE;
62:
63: -- Set missing old record elements to NULL.
64:
65: l_old_PRICE_LIST_rec :=
68: ELSIF l_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_UPDATE
69: OR l_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_DELETE
70: THEN
71:
72: l_PRICE_LIST_rec.db_flag := FND_API.G_TRUE;
73:
74: -- Query Old if missing
75:
76: IF l_old_PRICE_LIST_rec.list_header_id = FND_API.G_MISS_NUM
72: l_PRICE_LIST_rec.db_flag := FND_API.G_TRUE;
73:
74: -- Query Old if missing
75:
76: IF l_old_PRICE_LIST_rec.list_header_id = FND_API.G_MISS_NUM
77: THEN
78:
79: l_old_PRICE_LIST_rec := QP_Price_List_Util.Query_Row
80: ( p_list_header_id => l_PRICE_LIST_rec.list_header_id
111: IF l_saved_pte_code <> l_pte_code OR
112: l_saved_source_system_code <> l_source_system_code
113: THEN
114:
115: l_return_status := FND_API.G_RET_STS_ERROR;
116: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
117: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
118: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
119: OE_MSG_PUB.Add;
117: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
118: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
119: OE_MSG_PUB.Add;
120:
121: RAISE FND_API.G_EXC_ERROR;
122:
123: END IF;
124: --End of code added for Bug 2444971. Added for Patchset H
125:
134: IF l_control_rec.default_attributes
135: OR l_control_rec.change_attributes
136: THEN
137:
138: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
139:
140: QP_Validate_Price_List.Attributes
141: ( x_return_status => l_return_status
142: , p_PRICE_LIST_rec => l_PRICE_LIST_rec
142: , p_PRICE_LIST_rec => l_PRICE_LIST_rec
143: , p_old_PRICE_LIST_rec => l_old_PRICE_LIST_rec
144: );
145:
146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
143: , p_old_PRICE_LIST_rec => l_old_PRICE_LIST_rec
144: );
145:
146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151:
144: );
145:
146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151:
152: END IF;
145:
146: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151:
152: END IF;
153:
212: );
213:
214: END IF;
215:
216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
213:
214: END IF;
215:
216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221:
214: END IF;
215:
216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221:
222:
215:
216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221:
222:
223: END IF;
230:
231: FND_MESSAGE.SET_NAME('QP', 'QP_CANNOT_DELETE_PRICE_LIST');
232: OE_MSG_PUB.Add;
233:
234: RAISE FND_API.G_EXC_ERROR;
235:
236: /*QP_Price_List_Util.Delete_Row
237: ( p_list_header_id => l_PRICE_LIST_rec.list_header_id
238: );*/
270: x_old_PRICE_LIST_rec := l_old_PRICE_LIST_rec;
271:
272: EXCEPTION
273:
274: WHEN FND_API.G_EXC_ERROR THEN
275:
276: l_PRICE_LIST_rec.return_status := FND_API.G_RET_STS_ERROR;
277: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
278: x_old_PRICE_LIST_rec := l_old_PRICE_LIST_rec;
272: EXCEPTION
273:
274: WHEN FND_API.G_EXC_ERROR THEN
275:
276: l_PRICE_LIST_rec.return_status := FND_API.G_RET_STS_ERROR;
277: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
278: x_old_PRICE_LIST_rec := l_old_PRICE_LIST_rec;
279:
280: -- mkarya If process_price_list has been called from public package, then ONLY call
287: end if;
288:
289: RAISE;
290:
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292:
293: l_PRICE_LIST_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
294: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
295: x_old_PRICE_LIST_rec := l_old_PRICE_LIST_rec;
289: RAISE;
290:
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292:
293: l_PRICE_LIST_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
294: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
295: x_old_PRICE_LIST_rec := l_old_PRICE_LIST_rec;
296:
297: -- mkarya If process_price_list has been called from public package, then ONLY call
314: , 'Price_List'
315: );
316: END IF;
317:
318: l_PRICE_LIST_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
319: x_PRICE_LIST_rec := l_PRICE_LIST_rec;
320: x_old_PRICE_LIST_rec := l_old_PRICE_LIST_rec;
321:
322: -- mkarya If process_price_list has been called from public package, then ONLY call
327: p_entity_id => l_PRICE_LIST_rec.list_header_id,
328: x_return_status => l_return_status );
329: end if;
330:
331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
332:
333: END Price_List;
334:
335: -- Price_List_Lines
388: );
389:
390: -- Set record return status.
391:
392: l_PRICE_LIST_LINE_rec.return_status := FND_API.G_RET_STS_SUCCESS;
393:
394: -- Prepare record.
395:
396: IF l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
394: -- Prepare record.
395:
396: IF l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
397:
398: l_PRICE_LIST_LINE_rec.db_flag := FND_API.G_FALSE;
399:
400: -- Set missing old record elements to NULL.
401:
402: l_old_PRICE_LIST_LINE_rec :=
405: ELSIF l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_UPDATE
406: OR l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_DELETE
407: THEN
408:
409: l_PRICE_LIST_LINE_rec.db_flag := FND_API.G_TRUE;
410:
411: -- Query Old if missing
412:
413: IF l_old_PRICE_LIST_LINE_rec.list_line_id = FND_API.G_MISS_NUM
409: l_PRICE_LIST_LINE_rec.db_flag := FND_API.G_TRUE;
410:
411: -- Query Old if missing
412:
413: IF l_old_PRICE_LIST_LINE_rec.list_line_id = FND_API.G_MISS_NUM
414: THEN
415:
416: l_old_PRICE_LIST_LINE_rec := QP_Price_List_Line_Util.Query_Row
417: ( p_list_line_id => l_PRICE_LIST_LINE_rec.list_line_id
448: IF l_saved_pte_code <> l_pte_code OR
449: l_saved_source_system_code <> l_source_system_code
450: THEN
451:
452: l_return_status := FND_API.G_RET_STS_ERROR;
453: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
454: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
455: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
456: OE_MSG_PUB.Add;
454: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
455: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
456: OE_MSG_PUB.Add;
457:
458: RAISE FND_API.G_EXC_ERROR;
459:
460: END IF;
461: --End of code added for Bug 2444971. Added for Patchset H
462:
471: IF l_control_rec.default_attributes
472: OR l_control_rec.change_attributes
473: THEN
474:
475: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
476:
477: QP_Validate_Price_List_Line.Attributes
478: ( x_return_status => l_return_status
479: , p_PRICE_LIST_LINE_rec => l_PRICE_LIST_LINE_rec
479: , p_PRICE_LIST_LINE_rec => l_PRICE_LIST_LINE_rec
480: , p_old_PRICE_LIST_LINE_rec => l_old_PRICE_LIST_LINE_rec
481: );
482:
483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
480: , p_old_PRICE_LIST_LINE_rec => l_old_PRICE_LIST_LINE_rec
481: );
482:
483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
481: );
482:
483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
489: END IF;
482:
483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
489: END IF;
490:
531: IF l_saved_pte_code <> l_pte_code OR
532: l_saved_source_system_code <> l_source_system_code
533: THEN
534:
535: l_return_status := FND_API.G_RET_STS_ERROR;
536: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
537: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
538: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
539: OE_MSG_PUB.Add;
537: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
538: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
539: OE_MSG_PUB.Add;
540:
541: RAISE FND_API.G_EXC_ERROR;
542:
543: END IF;
544: END IF; --If operation is G_OPR_CREATE
545: --End of code added for Bug 2444971. Added for Patchset H
578: );
579:
580: END IF;
581:
582: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
584: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
579:
580: END IF;
581:
582: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
584: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587:
580: END IF;
581:
582: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
584: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587:
588: END IF;
581:
582: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
584: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587:
588: END IF;
589:
617: QP_Price_List_Line_Util.Insert_Row (l_PRICE_LIST_LINE_rec);
618:
619: IF l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_CREATE
620: AND l_PRICE_LIST_LINE_rec.PRICE_BREAK_HEADER_index IS NOT NULL
621: AND l_PRICE_LIST_LINE_rec.PRICE_BREAK_HEADER_index <> FND_API.G_MISS_NUM
622: AND (l_PRICE_LIST_LINE_rec.from_rltd_modifier_id IS NULL OR
623: l_PRICE_LIST_LINE_rec.from_rltd_modifier_id = FND_API.G_MISS_NUM)
624: THEN
625:
619: IF l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_CREATE
620: AND l_PRICE_LIST_LINE_rec.PRICE_BREAK_HEADER_index IS NOT NULL
621: AND l_PRICE_LIST_LINE_rec.PRICE_BREAK_HEADER_index <> FND_API.G_MISS_NUM
622: AND (l_PRICE_LIST_LINE_rec.from_rltd_modifier_id IS NULL OR
623: l_PRICE_LIST_LINE_rec.from_rltd_modifier_id = FND_API.G_MISS_NUM)
624: THEN
625:
626: IF l_PRICE_LIST_LINE_tbl.EXISTS(l_PRICE_LIST_LINE_rec.PRICE_BREAK_HEADER_index) AND
627: l_PRICE_LIST_LINE_tbl(l_PRICE_LIST_LINE_rec.PRICE_BREAK_HEADER_index).list_line_type_code = 'PBH'
701:
702:
703: EXCEPTION
704:
705: WHEN FND_API.G_EXC_ERROR THEN
706:
707: l_PRICE_LIST_LINE_rec.return_status := FND_API.G_RET_STS_ERROR;
708: l_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
709: l_old_PRICE_LIST_LINE_tbl(I) := l_old_PRICE_LIST_LINE_rec;
703: EXCEPTION
704:
705: WHEN FND_API.G_EXC_ERROR THEN
706:
707: l_PRICE_LIST_LINE_rec.return_status := FND_API.G_RET_STS_ERROR;
708: l_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
709: l_old_PRICE_LIST_LINE_tbl(I) := l_old_PRICE_LIST_LINE_rec;
710:
711: -- mkarya If process_price_list has been called from public package, then ONLY call
721: p_entity_id => l_PRICE_LIST_LINE_rec.list_line_id,
722: x_return_status => l_return_status );
723: end if;
724:
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726:
727: l_PRICE_LIST_LINE_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: l_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
729: l_old_PRICE_LIST_LINE_tbl(I) := l_old_PRICE_LIST_LINE_rec;
723: end if;
724:
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726:
727: l_PRICE_LIST_LINE_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: l_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
729: l_old_PRICE_LIST_LINE_tbl(I) := l_old_PRICE_LIST_LINE_rec;
730:
731: -- mkarya If process_price_list has been called from public package, then ONLY call
741: p_entity_id => l_PRICE_LIST_LINE_rec.list_line_id,
742: x_return_status => l_return_status );
743: end if;
744:
745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
746:
747: WHEN OTHERS THEN
748:
749: l_PRICE_LIST_LINE_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
746:
747: WHEN OTHERS THEN
748:
749: l_PRICE_LIST_LINE_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: l_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
751: l_old_PRICE_LIST_LINE_tbl(I) := l_old_PRICE_LIST_LINE_rec;
752:
753: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
771: p_entity_id => l_PRICE_LIST_LINE_rec.list_line_id,
772: x_return_status => l_return_status );
773: end if;
774:
775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776:
777: END;
778: END LOOP;
779:
783: x_old_PRICE_LIST_LINE_tbl := l_old_PRICE_LIST_LINE_tbl;
784:
785: EXCEPTION
786:
787: WHEN FND_API.G_EXC_ERROR THEN
788:
789: RAISE;
790:
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
787: WHEN FND_API.G_EXC_ERROR THEN
788:
789: RAISE;
790:
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792:
793:
794: RAISE;
795:
803: );
804: END IF;
805:
806:
807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
808:
809: END Price_List_Lines;
810:
811: -- Qualifierss
868: );
869:
870: -- Set record return status.
871:
872: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: -- Prepare record.
875:
876: IF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
874: -- Prepare record.
875:
876: IF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
877:
878: l_QUALIFIERS_rec.db_flag := FND_API.G_FALSE;
879:
880: -- Set missing old record elements to NULL.
881:
882: l_old_QUALIFIERS_rec :=
885: ELSIF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
886: OR l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_DELETE
887: THEN
888:
889: l_QUALIFIERS_rec.db_flag := FND_API.G_TRUE;
890:
891: -- Query Old if missing
892:
893: IF l_old_QUALIFIERS_rec.qualifier_id = FND_API.G_MISS_NUM
889: l_QUALIFIERS_rec.db_flag := FND_API.G_TRUE;
890:
891: -- Query Old if missing
892:
893: IF l_old_QUALIFIERS_rec.qualifier_id = FND_API.G_MISS_NUM
894: THEN
895:
896: l_old_QUALIFIERS_rec := QP_Qualifiers_Util.Query_Row
897: ( p_qualifier_id => l_QUALIFIERS_rec.qualifier_id
931: l_saved_source_system_code <> l_source_system_code)
932: AND l_list_type_code IN ('PRL', 'AGR')
933: THEN
934:
935: l_return_status := FND_API.G_RET_STS_ERROR;
936: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
937: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
938: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
939: OE_MSG_PUB.Add;
937: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
938: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
939: OE_MSG_PUB.Add;
940:
941: RAISE FND_API.G_EXC_ERROR;
942:
943: END IF;
944: --End of code added for Bug 2444971. Added for Patchset H
945:
953: IF l_control_rec.default_attributes
954: OR l_control_rec.change_attributes
955: THEN
956:
957: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
958:
959: QP_Validate_Qualifiers.Attributes
960: ( x_return_status => l_return_status
961: , p_QUALIFIERS_rec => l_QUALIFIERS_rec
961: , p_QUALIFIERS_rec => l_QUALIFIERS_rec
962: , p_old_QUALIFIERS_rec => l_old_QUALIFIERS_rec
963: );
964:
965: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
962: , p_old_QUALIFIERS_rec => l_old_QUALIFIERS_rec
963: );
964:
965: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970:
963: );
964:
965: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970:
971: END IF;
964:
965: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970:
971: END IF;
972:
1017: l_saved_source_system_code <> l_source_system_code)
1018: AND l_list_type_code IN ('PRL', 'AGR')
1019: THEN
1020:
1021: l_return_status := FND_API.G_RET_STS_ERROR;
1022: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
1023: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1024: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1025: OE_MSG_PUB.Add;
1023: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1024: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1025: OE_MSG_PUB.Add;
1026:
1027: RAISE FND_API.G_EXC_ERROR;
1028:
1029: END IF;
1030:
1031: END IF; --operation is G_OPR_CREATE
1065: );
1066:
1067: END IF;
1068:
1069: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1071: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1072: RAISE FND_API.G_EXC_ERROR;
1073: END IF;
1066:
1067: END IF;
1068:
1069: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1071: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1072: RAISE FND_API.G_EXC_ERROR;
1073: END IF;
1074:
1067: END IF;
1068:
1069: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1071: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1072: RAISE FND_API.G_EXC_ERROR;
1073: END IF;
1074:
1075: oe_debug_pub.add('qualifier attr value = '||l_qualifiers_rec.qualifier_attr_value);
1068:
1069: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1071: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1072: RAISE FND_API.G_EXC_ERROR;
1073: END IF;
1074:
1075: oe_debug_pub.add('qualifier attr value = '||l_qualifiers_rec.qualifier_attr_value);
1076: v_install := QP_UTIL.GET_QP_STATUS;
1114: 'QUALIFIER_ATTRIBUTE4') then
1115:
1116: fnd_message.set_name('QP', 'QP_BASIC_MOD_MULT_PLIST');
1117: oe_msg_pub.add;
1118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1119:
1120: else null;
1121: end if;
1122: */
1137:
1138: IF v_count > 0 THEN
1139: fnd_message.set_name('QP', 'QP_SEC_PRL_COUNT');
1140: oe_msg_pub.add;
1141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1142: END IF;
1143: end if; -- l_qualifiers_rec.operation
1144: /* 1606695 */
1145:
1174:
1175: oe_debug_pub.add('1501138 not allow delete qual');
1176: FND_MESSAGE.SET_NAME('QP', 'QP_CANNOT_DELETE_THIS_QUAL');
1177: OE_MSG_PUB.ADD;
1178: RAISE FND_API.G_EXC_ERROR;
1179: ELSE
1180:
1181: QP_Qualifiers_Util.Delete_Row
1182: ( p_qualifier_id => l_QUALIFIERS_rec.qualifier_id
1224:
1225:
1226: EXCEPTION
1227:
1228: WHEN FND_API.G_EXC_ERROR THEN
1229:
1230: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_ERROR;
1231: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1232: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1226: EXCEPTION
1227:
1228: WHEN FND_API.G_EXC_ERROR THEN
1229:
1230: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_ERROR;
1231: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1232: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1233:
1234: -- mkarya If process_price_list has been called from public package, then ONLY call
1249: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
1250: x_return_status => l_return_status );
1251: end if;
1252:
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254:
1255: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1257: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1251: end if;
1252:
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254:
1255: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1257: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1258:
1259: -- mkarya If process_price_list has been called from public package, then ONLY call
1274: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
1275: x_return_status => l_return_status );
1276: end if;
1277:
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1279:
1280: WHEN OTHERS THEN
1281:
1282: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1279:
1280: WHEN OTHERS THEN
1281:
1282: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1284: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1285:
1286: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1309: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
1310: x_return_status => l_return_status );
1311: end if;
1312:
1313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1314:
1315: END;
1316: END LOOP;
1317:
1321: x_old_QUALIFIERS_tbl := l_old_QUALIFIERS_tbl;
1322:
1323: EXCEPTION
1324:
1325: WHEN FND_API.G_EXC_ERROR THEN
1326:
1327: RAISE;
1328:
1329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1325: WHEN FND_API.G_EXC_ERROR THEN
1326:
1327: RAISE;
1328:
1329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1330:
1331:
1332: RAISE;
1333:
1341: );
1342: END IF;
1343:
1344:
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1346:
1347: END Qualifierss;
1348:
1349:
1434: );
1435:
1436: -- Set record return status.
1437:
1438: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1439:
1440: -- Prepare record.
1441:
1442: IF l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
1442: IF l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
1443:
1444: oe_debug_pub.add(' operation is create ');
1445:
1446: l_PRICING_ATTR_rec.db_flag := FND_API.G_FALSE;
1447:
1448: -- Set missing old record elements to NULL.
1449:
1450: l_old_PRICING_ATTR_rec :=
1454: OR l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_DELETE
1455: THEN
1456: oe_debug_pub.add('operation is update');
1457:
1458: l_PRICING_ATTR_rec.db_flag := FND_API.G_TRUE;
1459:
1460: -- Query Old if missing
1461:
1462: IF l_old_PRICING_ATTR_rec.pricing_attribute_id = FND_API.G_MISS_NUM
1458: l_PRICING_ATTR_rec.db_flag := FND_API.G_TRUE;
1459:
1460: -- Query Old if missing
1461:
1462: IF l_old_PRICING_ATTR_rec.pricing_attribute_id = FND_API.G_MISS_NUM
1463: THEN
1464: oe_debug_pub.add('query pricing attributes');
1465:
1466: l_old_PRICING_ATTR_rec := Qp_pll_pricing_attr_Util.Query_Row
1503: IF l_saved_pte_code <> l_pte_code OR
1504: l_saved_source_system_code <> l_source_system_code
1505: THEN
1506:
1507: l_return_status := FND_API.G_RET_STS_ERROR;
1508: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
1509: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1510: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1511: OE_MSG_PUB.Add;
1509: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1510: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1511: OE_MSG_PUB.Add;
1512:
1513: RAISE FND_API.G_EXC_ERROR;
1514:
1515: END IF;
1516: --End of code added for Bug 2444971. Added for Patchset H
1517:
1525: IF l_control_rec.default_attributes
1526: OR l_control_rec.change_attributes
1527: THEN
1528:
1529: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1530:
1531: oe_debug_pub.add('validate the attributes');
1532:
1533: QP_Validate_pll_pricing_attr.Attributes
1535: , p_PRICING_ATTR_rec => l_PRICING_ATTR_rec
1536: , p_old_PRICING_ATTR_rec => l_old_PRICING_ATTR_rec
1537: );
1538:
1539: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1542: RAISE FND_API.G_EXC_ERROR;
1543: END IF;
1536: , p_old_PRICING_ATTR_rec => l_old_PRICING_ATTR_rec
1537: );
1538:
1539: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1542: RAISE FND_API.G_EXC_ERROR;
1543: END IF;
1544:
1537: );
1538:
1539: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1542: RAISE FND_API.G_EXC_ERROR;
1543: END IF;
1544:
1545: END IF;
1538:
1539: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1542: RAISE FND_API.G_EXC_ERROR;
1543: END IF;
1544:
1545: END IF;
1546:
1593: IF l_saved_pte_code <> l_pte_code OR
1594: l_saved_source_system_code <> l_source_system_code
1595: THEN
1596:
1597: l_return_status := FND_API.G_RET_STS_ERROR;
1598: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
1599: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1600: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1601: OE_MSG_PUB.Add;
1599: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1600: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1601: OE_MSG_PUB.Add;
1602:
1603: RAISE FND_API.G_EXC_ERROR;
1604:
1605: END IF;
1606:
1607: END IF; --operation is G_OPR_CREATE
1642: );
1643:
1644: END IF;
1645:
1646: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1649: RAISE FND_API.G_EXC_ERROR;
1650: END IF;
1643:
1644: END IF;
1645:
1646: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1649: RAISE FND_API.G_EXC_ERROR;
1650: END IF;
1651:
1644: END IF;
1645:
1646: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1649: RAISE FND_API.G_EXC_ERROR;
1650: END IF;
1651:
1652: END IF;
1645:
1646: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1649: RAISE FND_API.G_EXC_ERROR;
1650: END IF;
1651:
1652: END IF;
1653:
1709:
1710:
1711: EXCEPTION
1712:
1713: WHEN FND_API.G_EXC_ERROR THEN
1714:
1715: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_ERROR;
1716: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1717: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1711: EXCEPTION
1712:
1713: WHEN FND_API.G_EXC_ERROR THEN
1714:
1715: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_ERROR;
1716: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1717: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1718:
1719: -- mkarya If process_price_list has been called from public package, then ONLY call
1729: p_entity_id => l_PRICING_ATTR_rec.list_line_id,
1730: x_return_status => l_return_status );
1731: end if;
1732:
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734:
1735: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1737: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1731: end if;
1732:
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734:
1735: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1737: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1738:
1739: -- mkarya If process_price_list has been called from public package, then ONLY call
1749: p_entity_id => l_PRICING_ATTR_rec.list_line_id,
1750: x_return_status => l_return_status );
1751: end if;
1752:
1753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1754:
1755: WHEN OTHERS THEN
1756:
1757: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1754:
1755: WHEN OTHERS THEN
1756:
1757: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1758: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1759: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1760:
1761: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1779: p_entity_id => l_PRICING_ATTR_rec.list_line_id,
1780: x_return_status => l_return_status );
1781: end if;
1782:
1783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1784:
1785: END;
1786: END LOOP;
1787:
1793: oe_debug_pub.add('exiting pricing attrs');
1794:
1795: EXCEPTION
1796:
1797: WHEN FND_API.G_EXC_ERROR THEN
1798:
1799: RAISE;
1800:
1801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1797: WHEN FND_API.G_EXC_ERROR THEN
1798:
1799: RAISE;
1800:
1801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1802:
1803:
1804: RAISE;
1805:
1813: );
1814: END IF;
1815:
1816:
1817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1818:
1819: END Pricing_Attrs;
1820:
1821: -- Start of Comments
1835: -- End of Comments
1836:
1837: PROCEDURE Process_Price_List
1838: ( p_api_version_number IN NUMBER
1839: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1840: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1841: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1842: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1843: QP_GLOBALS.G_MISS_CONTROL_REC
1836:
1837: PROCEDURE Process_Price_List
1838: ( p_api_version_number IN NUMBER
1839: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1840: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1841: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1842: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1843: QP_GLOBALS.G_MISS_CONTROL_REC
1844: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1837: PROCEDURE Process_Price_List
1838: ( p_api_version_number IN NUMBER
1839: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1840: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1841: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1842: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1843: QP_GLOBALS.G_MISS_CONTROL_REC
1844: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1845: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1902: oe_debug_pub.add('entering process price list');
1903:
1904: -- Standard call to check for call compatibility
1905:
1906: IF NOT FND_API.Compatible_API_Call
1907: ( l_api_version_number
1908: , p_api_version_number
1909: , l_api_name
1910: , G_PKG_NAME
1910: , G_PKG_NAME
1911: )
1912: THEN
1913: oe_debug_pub.add('in unexpected error 1');
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915: END IF;
1916:
1917:
1918: oe_debug_Pub.add('process_Price_list 1');
1917:
1918: oe_debug_Pub.add('process_Price_list 1');
1919: -- Initialize message list.
1920:
1921: IF FND_API.to_Boolean(p_init_msg_list) THEN
1922: oe_msg_pub.initialize;
1923: END IF;
1924:
1925: /* check for installation status ; if it's basic then this api
1928: l_installed_status := QP_UTIL.get_qp_status;
1929:
1930: IF l_installed_status = 'N' THEN
1931:
1932: l_return_status := FND_API.G_RET_STS_ERROR;
1933: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
1934: OE_MSG_PUB.Add;
1935: RAISE FND_API.G_EXC_ERROR;
1936:
1931:
1932: l_return_status := FND_API.G_RET_STS_ERROR;
1933: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
1934: OE_MSG_PUB.Add;
1935: RAISE FND_API.G_EXC_ERROR;
1936:
1937: END IF;
1938:
1939: -- Init local table variables.
1973: THEN
1974:
1975: QP_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
1976: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST
1977: ,p_delete => FND_API.G_TRUE
1978: ,x_return_status => l_return_status
1979: );
1980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1976: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST
1977: ,p_delete => FND_API.G_TRUE
1978: ,x_return_status => l_return_status
1979: );
1980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1983: RAISE FND_API.G_EXC_ERROR;
1984: END IF;
1977: ,p_delete => FND_API.G_TRUE
1978: ,x_return_status => l_return_status
1979: );
1980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1983: RAISE FND_API.G_EXC_ERROR;
1984: END IF;
1985:
1978: ,x_return_status => l_return_status
1979: );
1980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1983: RAISE FND_API.G_EXC_ERROR;
1984: END IF;
1985:
1986: END IF;
1979: );
1980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1983: RAISE FND_API.G_EXC_ERROR;
1984: END IF;
1985:
1986: END IF;
1987:
1992: l_PRICE_LIST_LINE_rec := l_PRICE_LIST_LINE_tbl(I);
1993:
1994: IF l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_CREATE
1995: AND (l_PRICE_LIST_LINE_rec.list_header_id IS NULL OR
1996: l_PRICE_LIST_LINE_rec.list_header_id = FND_API.G_MISS_NUM)
1997: THEN
1998:
1999: -- Copy parent_id.
2000:
2025: THEN
2026:
2027: QP_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
2028: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST_LINE
2029: ,p_delete => FND_API.G_TRUE
2030: ,x_return_status => l_return_status
2031: );
2032: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2028: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST_LINE
2029: ,p_delete => FND_API.G_TRUE
2030: ,x_return_status => l_return_status
2031: );
2032: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2029: ,p_delete => FND_API.G_TRUE
2030: ,x_return_status => l_return_status
2031: );
2032: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2037:
2030: ,x_return_status => l_return_status
2031: );
2032: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2037:
2038: END IF;
2031: );
2032: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2037:
2038: END IF;
2039:
2044: l_QUALIFIERS_rec := l_QUALIFIERS_tbl(I);
2045:
2046: IF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_CREATE
2047: AND (l_QUALIFIERS_rec.list_header_id IS NULL OR
2048: l_QUALIFIERS_rec.list_header_id = FND_API.G_MISS_NUM)
2049: THEN
2050:
2051: -- Copy parent_id.
2052:
2089: l_PRICING_ATTR_rec := l_PRICING_ATTR_tbl(I);
2090:
2091: IF l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_CREATE
2092: AND (l_PRICING_ATTR_rec.list_line_id IS NULL OR
2093: l_PRICING_ATTR_rec.list_line_id = FND_API.G_MISS_NUM)
2094: THEN
2095:
2096: oe_debug_pub.add('process_Price_List 14');
2097: -- Check If parent exists.
2169: QP_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
2170: x_return_status => l_return_status
2171: );
2172:
2173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2170: x_return_status => l_return_status
2171: );
2172:
2173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2178:
2171: );
2172:
2173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2178:
2179: oe_debug_pub.add('Ren: after processing delayed request');
2172:
2173: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2176: RAISE FND_API.G_EXC_ERROR;
2177: END IF;
2178:
2179: oe_debug_pub.add('Ren: after processing delayed request');
2180:
2204: END IF;
2205:
2206: -- Derive return status.
2207:
2208: x_return_status := FND_API.G_RET_STS_SUCCESS;
2209:
2210: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2211: x_return_status := FND_API.G_RET_STS_ERROR;
2212: END IF;
2206: -- Derive return status.
2207:
2208: x_return_status := FND_API.G_RET_STS_SUCCESS;
2209:
2210: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2211: x_return_status := FND_API.G_RET_STS_ERROR;
2212: END IF;
2213:
2214: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2207:
2208: x_return_status := FND_API.G_RET_STS_SUCCESS;
2209:
2210: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2211: x_return_status := FND_API.G_RET_STS_ERROR;
2212: END IF;
2213:
2214: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2215:
2212: END IF;
2213:
2214: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2215:
2216: IF ( l_PRICE_LIST_LINE_tbl(I).return_status = FND_API.G_RET_STS_ERROR AND
2217: ( l_PRICE_LIST_LINE_rec.list_line_id <> FND_API.G_MISS_NUM OR
2218: l_PRICE_LIST_LINE_rec.list_line_id <> NULL ) ) THEN
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220: END IF;
2213:
2214: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2215:
2216: IF ( l_PRICE_LIST_LINE_tbl(I).return_status = FND_API.G_RET_STS_ERROR AND
2217: ( l_PRICE_LIST_LINE_rec.list_line_id <> FND_API.G_MISS_NUM OR
2218: l_PRICE_LIST_LINE_rec.list_line_id <> NULL ) ) THEN
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220: END IF;
2221:
2215:
2216: IF ( l_PRICE_LIST_LINE_tbl(I).return_status = FND_API.G_RET_STS_ERROR AND
2217: ( l_PRICE_LIST_LINE_rec.list_line_id <> FND_API.G_MISS_NUM OR
2218: l_PRICE_LIST_LINE_rec.list_line_id <> NULL ) ) THEN
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220: END IF;
2221:
2222: END LOOP;
2223:
2222: END LOOP;
2223:
2224: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
2225:
2226: IF l_QUALIFIERS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2227: x_return_status := FND_API.G_RET_STS_ERROR;
2228: END IF;
2229:
2230: END LOOP;
2223:
2224: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
2225:
2226: IF l_QUALIFIERS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2227: x_return_status := FND_API.G_RET_STS_ERROR;
2228: END IF;
2229:
2230: END LOOP;
2231:
2230: END LOOP;
2231:
2232: FOR I IN 1..l_PRICING_ATTR_tbl.COUNT LOOP
2233:
2234: IF l_PRICING_ATTR_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2235: x_return_status := FND_API.G_RET_STS_ERROR;
2236: END IF;
2237:
2238: END LOOP;
2231:
2232: FOR I IN 1..l_PRICING_ATTR_tbl.COUNT LOOP
2233:
2234: IF l_PRICING_ATTR_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2235: x_return_status := FND_API.G_RET_STS_ERROR;
2236: END IF;
2237:
2238: END LOOP;
2239:
2250: IF ( p_control_rec.write_to_db --Bug#3309455
2251: AND x_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_CREATE
2252: AND x_PRICE_LIST_rec.list_source_code = 'BSO'
2253: AND ( x_PRICE_LIST_rec.orig_system_header_ref <> NULL
2254: OR x_PRICE_LIST_rec.orig_system_header_ref <> FND_API.G_MISS_CHAR)
2255: )
2256: THEN
2257: oe_debug_pub.add('inside create qualifier for blanket modifier');
2258:
2278: , p_operation => QP_GLOBALS.G_OPR_CREATE
2279: , x_return_status => l_return_status
2280: );
2281:
2282: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2283: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2285: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2286: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2280: );
2281:
2282: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2283: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2285: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2286: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2287: RAISE FND_API.G_EXC_ERROR;
2288: END IF;
2281:
2282: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2283: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2285: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2286: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2287: RAISE FND_API.G_EXC_ERROR;
2288: END IF;
2289: END IF;
2283: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2285: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2286: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2287: RAISE FND_API.G_EXC_ERROR;
2288: END IF;
2289: END IF;
2290:
2291: END IF;
2294:
2295:
2296: EXCEPTION
2297:
2298: WHEN FND_API.G_EXC_ERROR THEN
2299:
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301:
2302: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2296: EXCEPTION
2297:
2298: WHEN FND_API.G_EXC_ERROR THEN
2299:
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301:
2302: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2303: if p_control_rec.called_from_ui = 'N' then
2304: qp_delayed_requests_pvt.Clear_Request
2311: ( p_count => x_msg_count
2312: , p_data => x_msg_data
2313: );
2314:
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2316:
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2318:
2319: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2313: );
2314:
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2316:
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2318:
2319: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2320: if p_control_rec.called_from_ui = 'N' then
2321: qp_delayed_requests_pvt.Clear_Request
2331:
2332:
2333: WHEN OTHERS THEN
2334:
2335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2336:
2337: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2338: if p_control_rec.called_from_ui = 'N' then
2339: qp_delayed_requests_pvt.Clear_Request
2374: -- End of Comments
2375:
2376: PROCEDURE Lock_Price_List
2377: ( p_api_version_number IN NUMBER
2378: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2379: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2380: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
2381: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2382: , p_PRICE_LIST_rec IN QP_Price_List_PUB.Price_List_Rec_Type :=
2395: )
2396: IS
2397: l_api_version_number CONSTANT NUMBER := 1.0;
2398: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Price_List';
2399: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2400: l_PRICE_LIST_LINE_rec QP_Price_List_PUB.Price_List_Line_Rec_Type;
2401: l_QUALIFIERS_rec Qp_Qualifier_Rules_Pub.Qualifiers_Rec_Type;
2402: l_PRICING_ATTR_rec QP_Price_List_PUB.Pricing_Attr_Rec_Type;
2403: BEGIN
2403: BEGIN
2404:
2405: -- Standard call to check for call compatibility
2406:
2407: IF NOT FND_API.Compatible_API_Call
2408: ( l_api_version_number
2409: , p_api_version_number
2410: , l_api_name
2411: , G_PKG_NAME
2410: , l_api_name
2411: , G_PKG_NAME
2412: )
2413: THEN
2414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2415: END IF;
2416:
2417: -- Initialize message list.
2418:
2415: END IF;
2416:
2417: -- Initialize message list.
2418:
2419: IF FND_API.to_Boolean(p_init_msg_list) THEN
2420: oe_msg_pub.initialize;
2421: END IF;
2422:
2423: -- Set Savepoint
2433: , x_PRICE_LIST_rec => x_PRICE_LIST_rec
2434: , x_return_status => l_return_status
2435: );
2436:
2437: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2439: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2440: RAISE FND_API.G_EXC_ERROR;
2441: END IF;
2434: , x_return_status => l_return_status
2435: );
2436:
2437: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2439: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2440: RAISE FND_API.G_EXC_ERROR;
2441: END IF;
2442:
2435: );
2436:
2437: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2439: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2440: RAISE FND_API.G_EXC_ERROR;
2441: END IF;
2442:
2443:
2436:
2437: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2439: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2440: RAISE FND_API.G_EXC_ERROR;
2441: END IF;
2442:
2443:
2444: END IF;
2454: , x_PRICE_LIST_LINE_rec => l_PRICE_LIST_LINE_rec
2455: , x_return_status => l_return_status
2456: );
2457:
2458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2461: RAISE FND_API.G_EXC_ERROR;
2462: END IF;
2455: , x_return_status => l_return_status
2456: );
2457:
2458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2461: RAISE FND_API.G_EXC_ERROR;
2462: END IF;
2463:
2456: );
2457:
2458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2461: RAISE FND_API.G_EXC_ERROR;
2462: END IF;
2463:
2464: x_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
2457:
2458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2461: RAISE FND_API.G_EXC_ERROR;
2462: END IF;
2463:
2464: x_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
2465:
2479: , x_return_status => l_return_status
2480: );
2481:
2482:
2483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2486: RAISE FND_API.G_EXC_ERROR;
2487: END IF;
2480: );
2481:
2482:
2483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2486: RAISE FND_API.G_EXC_ERROR;
2487: END IF;
2488:
2481:
2482:
2483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2486: RAISE FND_API.G_EXC_ERROR;
2487: END IF;
2488:
2489: x_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
2482:
2483: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2486: RAISE FND_API.G_EXC_ERROR;
2487: END IF;
2488:
2489: x_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
2490:
2503: , x_PRICING_ATTR_rec => l_PRICING_ATTR_rec
2504: , x_return_status => l_return_status
2505: );
2506:
2507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2504: , x_return_status => l_return_status
2505: );
2506:
2507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512:
2505: );
2506:
2507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512:
2513: x_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
2506:
2507: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512:
2513: x_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
2514:
2517: END LOOP;
2518:
2519: -- Set return status
2520:
2521: x_return_status := FND_API.G_RET_STS_SUCCESS;
2522:
2523: -- Get message count and data
2524:
2525: oe_msg_pub.Count_And_Get
2529:
2530:
2531: EXCEPTION
2532:
2533: WHEN FND_API.G_EXC_ERROR THEN
2534:
2535: x_return_status := FND_API.G_RET_STS_ERROR;
2536:
2537: -- Get message count and data
2531: EXCEPTION
2532:
2533: WHEN FND_API.G_EXC_ERROR THEN
2534:
2535: x_return_status := FND_API.G_RET_STS_ERROR;
2536:
2537: -- Get message count and data
2538:
2539: oe_msg_pub.Count_And_Get
2544: -- Rollback
2545:
2546: ROLLBACK TO Lock_Price_List_PVT;
2547:
2548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2549:
2550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2551:
2552: -- Get message count and data
2546: ROLLBACK TO Lock_Price_List_PVT;
2547:
2548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2549:
2550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2551:
2552: -- Get message count and data
2553:
2554: oe_msg_pub.Count_And_Get
2561: ROLLBACK TO Lock_Price_List_PVT;
2562:
2563: WHEN OTHERS THEN
2564:
2565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2566:
2567: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2568: THEN
2569: oe_msg_pub.Add_Exc_Msg
2602: -- End of Comments
2603:
2604: PROCEDURE Get_Price_List
2605: ( p_api_version_number IN NUMBER
2606: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2607: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2608: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
2609: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2610: , p_list_header_id IN NUMBER
2624: BEGIN
2625:
2626: -- Standard call to check for call compatibility
2627:
2628: IF NOT FND_API.Compatible_API_Call
2629: ( l_api_version_number
2630: , p_api_version_number
2631: , l_api_name
2632: , G_PKG_NAME
2631: , l_api_name
2632: , G_PKG_NAME
2633: )
2634: THEN
2635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2636: END IF;
2637:
2638: -- Initialize message list.
2639:
2636: END IF;
2637:
2638: -- Initialize message list.
2639:
2640: IF FND_API.to_Boolean(p_init_msg_list) THEN
2641: oe_msg_pub.initialize;
2642: END IF;
2643:
2644: -- Get PRICE_LIST ( parent = PRICE_LIST )
2690: x_PRICING_ATTR_tbl := l_x_PRICING_ATTR_tbl;
2691:
2692: -- Set return status
2693:
2694: x_return_status := FND_API.G_RET_STS_SUCCESS;
2695:
2696: -- Get message count and data
2697:
2698: oe_msg_pub.Count_And_Get
2702:
2703:
2704: EXCEPTION
2705:
2706: WHEN FND_API.G_EXC_ERROR THEN
2707:
2708: x_return_status := FND_API.G_RET_STS_ERROR;
2709:
2710: -- Get message count and data
2704: EXCEPTION
2705:
2706: WHEN FND_API.G_EXC_ERROR THEN
2707:
2708: x_return_status := FND_API.G_RET_STS_ERROR;
2709:
2710: -- Get message count and data
2711:
2712: oe_msg_pub.Count_And_Get
2713: ( p_count => x_msg_count
2714: , p_data => x_msg_data
2715: );
2716:
2717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2718:
2719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2720:
2721: -- Get message count and data
2715: );
2716:
2717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2718:
2719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2720:
2721: -- Get message count and data
2722:
2723: oe_msg_pub.Count_And_Get
2726: );
2727:
2728: WHEN OTHERS THEN
2729:
2730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2731:
2732: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2733: THEN
2734: oe_msg_pub.Add_Exc_Msg