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
1219:
1220:
1221: EXCEPTION
1222:
1223: WHEN FND_API.G_EXC_ERROR THEN
1224:
1225: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_ERROR;
1226: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1227: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1221: EXCEPTION
1222:
1223: WHEN FND_API.G_EXC_ERROR THEN
1224:
1225: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_ERROR;
1226: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1227: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1228:
1229: -- mkarya If process_price_list has been called from public package, then ONLY call
1244: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
1245: x_return_status => l_return_status );
1246: end if;
1247:
1248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1249:
1250: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1251: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1252: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1246: end if;
1247:
1248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1249:
1250: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1251: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1252: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1253:
1254: -- mkarya If process_price_list has been called from public package, then ONLY call
1269: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
1270: x_return_status => l_return_status );
1271: end if;
1272:
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1274:
1275: WHEN OTHERS THEN
1276:
1277: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1274:
1275: WHEN OTHERS THEN
1276:
1277: l_QUALIFIERS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1278: l_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
1279: l_old_QUALIFIERS_tbl(I) := l_old_QUALIFIERS_rec;
1280:
1281: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1304: p_entity_id => l_QUALIFIERS_rec.qualifier_id,
1305: x_return_status => l_return_status );
1306: end if;
1307:
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309:
1310: END;
1311: END LOOP;
1312:
1316: x_old_QUALIFIERS_tbl := l_old_QUALIFIERS_tbl;
1317:
1318: EXCEPTION
1319:
1320: WHEN FND_API.G_EXC_ERROR THEN
1321:
1322: RAISE;
1323:
1324: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1320: WHEN FND_API.G_EXC_ERROR THEN
1321:
1322: RAISE;
1323:
1324: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1325:
1326:
1327: RAISE;
1328:
1336: );
1337: END IF;
1338:
1339:
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341:
1342: END Qualifierss;
1343:
1344:
1429: );
1430:
1431: -- Set record return status.
1432:
1433: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1434:
1435: -- Prepare record.
1436:
1437: IF l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
1437: IF l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_CREATE THEN
1438:
1439: oe_debug_pub.add(' operation is create ');
1440:
1441: l_PRICING_ATTR_rec.db_flag := FND_API.G_FALSE;
1442:
1443: -- Set missing old record elements to NULL.
1444:
1445: l_old_PRICING_ATTR_rec :=
1449: OR l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_DELETE
1450: THEN
1451: oe_debug_pub.add('operation is update');
1452:
1453: l_PRICING_ATTR_rec.db_flag := FND_API.G_TRUE;
1454:
1455: -- Query Old if missing
1456:
1457: IF l_old_PRICING_ATTR_rec.pricing_attribute_id = FND_API.G_MISS_NUM
1453: l_PRICING_ATTR_rec.db_flag := FND_API.G_TRUE;
1454:
1455: -- Query Old if missing
1456:
1457: IF l_old_PRICING_ATTR_rec.pricing_attribute_id = FND_API.G_MISS_NUM
1458: THEN
1459: oe_debug_pub.add('query pricing attributes');
1460:
1461: l_old_PRICING_ATTR_rec := Qp_pll_pricing_attr_Util.Query_Row
1498: IF l_saved_pte_code <> l_pte_code OR
1499: l_saved_source_system_code <> l_source_system_code
1500: THEN
1501:
1502: l_return_status := FND_API.G_RET_STS_ERROR;
1503: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
1504: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1505: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1506: OE_MSG_PUB.Add;
1504: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1505: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1506: OE_MSG_PUB.Add;
1507:
1508: RAISE FND_API.G_EXC_ERROR;
1509:
1510: END IF;
1511: --End of code added for Bug 2444971. Added for Patchset H
1512:
1520: IF l_control_rec.default_attributes
1521: OR l_control_rec.change_attributes
1522: THEN
1523:
1524: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1525:
1526: oe_debug_pub.add('validate the attributes');
1527:
1528: QP_Validate_pll_pricing_attr.Attributes
1530: , p_PRICING_ATTR_rec => l_PRICING_ATTR_rec
1531: , p_old_PRICING_ATTR_rec => l_old_PRICING_ATTR_rec
1532: );
1533:
1534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1536: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1537: RAISE FND_API.G_EXC_ERROR;
1538: END IF;
1531: , p_old_PRICING_ATTR_rec => l_old_PRICING_ATTR_rec
1532: );
1533:
1534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1536: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1537: RAISE FND_API.G_EXC_ERROR;
1538: END IF;
1539:
1532: );
1533:
1534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1536: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1537: RAISE FND_API.G_EXC_ERROR;
1538: END IF;
1539:
1540: END IF;
1533:
1534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1536: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1537: RAISE FND_API.G_EXC_ERROR;
1538: END IF;
1539:
1540: END IF;
1541:
1588: IF l_saved_pte_code <> l_pte_code OR
1589: l_saved_source_system_code <> l_source_system_code
1590: THEN
1591:
1592: l_return_status := FND_API.G_RET_STS_ERROR;
1593: FND_MESSAGE.SET_NAME('QP', 'QP_PTE_SS_CODE_MISMATCH');
1594: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1595: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1596: OE_MSG_PUB.Add;
1594: FND_MESSAGE.SET_TOKEN('SOURCE_SYSTEM',l_saved_source_system_code);
1595: FND_MESSAGE.SET_TOKEN('PTE_CODE',l_saved_pte_code);
1596: OE_MSG_PUB.Add;
1597:
1598: RAISE FND_API.G_EXC_ERROR;
1599:
1600: END IF;
1601:
1602: END IF; --operation is G_OPR_CREATE
1637: );
1638:
1639: END IF;
1640:
1641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1638:
1639: END IF;
1640:
1641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1646:
1639: END IF;
1640:
1641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1646:
1647: END IF;
1640:
1641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1646:
1647: END IF;
1648:
1704:
1705:
1706: EXCEPTION
1707:
1708: WHEN FND_API.G_EXC_ERROR THEN
1709:
1710: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_ERROR;
1711: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1712: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1706: EXCEPTION
1707:
1708: WHEN FND_API.G_EXC_ERROR THEN
1709:
1710: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_ERROR;
1711: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1712: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1713:
1714: -- mkarya If process_price_list has been called from public package, then ONLY call
1724: p_entity_id => l_PRICING_ATTR_rec.list_line_id,
1725: x_return_status => l_return_status );
1726: end if;
1727:
1728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1729:
1730: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1731: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1732: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1726: end if;
1727:
1728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1729:
1730: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1731: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1732: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1733:
1734: -- mkarya If process_price_list has been called from public package, then ONLY call
1744: p_entity_id => l_PRICING_ATTR_rec.list_line_id,
1745: x_return_status => l_return_status );
1746: end if;
1747:
1748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1749:
1750: WHEN OTHERS THEN
1751:
1752: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1749:
1750: WHEN OTHERS THEN
1751:
1752: l_PRICING_ATTR_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: l_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
1754: l_old_PRICING_ATTR_tbl(I) := l_old_PRICING_ATTR_rec;
1755:
1756: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1774: p_entity_id => l_PRICING_ATTR_rec.list_line_id,
1775: x_return_status => l_return_status );
1776: end if;
1777:
1778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1779:
1780: END;
1781: END LOOP;
1782:
1788: oe_debug_pub.add('exiting pricing attrs');
1789:
1790: EXCEPTION
1791:
1792: WHEN FND_API.G_EXC_ERROR THEN
1793:
1794: RAISE;
1795:
1796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792: WHEN FND_API.G_EXC_ERROR THEN
1793:
1794: RAISE;
1795:
1796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1797:
1798:
1799: RAISE;
1800:
1808: );
1809: END IF;
1810:
1811:
1812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1813:
1814: END Pricing_Attrs;
1815:
1816: -- Start of Comments
1830: -- End of Comments
1831:
1832: PROCEDURE Process_Price_List
1833: ( p_api_version_number IN NUMBER
1834: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1835: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1836: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1837: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1838: QP_GLOBALS.G_MISS_CONTROL_REC
1831:
1832: PROCEDURE Process_Price_List
1833: ( p_api_version_number IN NUMBER
1834: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1835: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1836: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1837: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1838: QP_GLOBALS.G_MISS_CONTROL_REC
1839: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1832: PROCEDURE Process_Price_List
1833: ( p_api_version_number IN NUMBER
1834: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1835: , p_commit IN VARCHAR2 := FND_API.G_FALSE
1836: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1837: , p_control_rec IN QP_GLOBALS.Control_Rec_Type :=
1838: QP_GLOBALS.G_MISS_CONTROL_REC
1839: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1840: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
1897: oe_debug_pub.add('entering process price list');
1898:
1899: -- Standard call to check for call compatibility
1900:
1901: IF NOT FND_API.Compatible_API_Call
1902: ( l_api_version_number
1903: , p_api_version_number
1904: , l_api_name
1905: , G_PKG_NAME
1905: , G_PKG_NAME
1906: )
1907: THEN
1908: oe_debug_pub.add('in unexpected error 1');
1909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1910: END IF;
1911:
1912:
1913: oe_debug_Pub.add('process_Price_list 1');
1912:
1913: oe_debug_Pub.add('process_Price_list 1');
1914: -- Initialize message list.
1915:
1916: IF FND_API.to_Boolean(p_init_msg_list) THEN
1917: oe_msg_pub.initialize;
1918: END IF;
1919:
1920: /* check for installation status ; if it's basic then this api
1923: l_installed_status := QP_UTIL.get_qp_status;
1924:
1925: IF l_installed_status = 'N' THEN
1926:
1927: l_return_status := FND_API.G_RET_STS_ERROR;
1928: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
1929: OE_MSG_PUB.Add;
1930: RAISE FND_API.G_EXC_ERROR;
1931:
1926:
1927: l_return_status := FND_API.G_RET_STS_ERROR;
1928: FND_MESSAGE.SET_NAME('QP', 'QP_BASIC_PRICING_UNAVAILABLE');
1929: OE_MSG_PUB.Add;
1930: RAISE FND_API.G_EXC_ERROR;
1931:
1932: END IF;
1933:
1934: -- Init local table variables.
1968: THEN
1969:
1970: QP_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
1971: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST
1972: ,p_delete => FND_API.G_TRUE
1973: ,x_return_status => l_return_status
1974: );
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1971: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST
1972: ,p_delete => FND_API.G_TRUE
1973: ,x_return_status => l_return_status
1974: );
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1978: RAISE FND_API.G_EXC_ERROR;
1979: END IF;
1972: ,p_delete => FND_API.G_TRUE
1973: ,x_return_status => l_return_status
1974: );
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1978: RAISE FND_API.G_EXC_ERROR;
1979: END IF;
1980:
1973: ,x_return_status => l_return_status
1974: );
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1978: RAISE FND_API.G_EXC_ERROR;
1979: END IF;
1980:
1981: END IF;
1974: );
1975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1978: RAISE FND_API.G_EXC_ERROR;
1979: END IF;
1980:
1981: END IF;
1982:
1987: l_PRICE_LIST_LINE_rec := l_PRICE_LIST_LINE_tbl(I);
1988:
1989: IF l_PRICE_LIST_LINE_rec.operation = QP_GLOBALS.G_OPR_CREATE
1990: AND (l_PRICE_LIST_LINE_rec.list_header_id IS NULL OR
1991: l_PRICE_LIST_LINE_rec.list_header_id = FND_API.G_MISS_NUM)
1992: THEN
1993:
1994: -- Copy parent_id.
1995:
2020: THEN
2021:
2022: QP_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
2023: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST_LINE
2024: ,p_delete => FND_API.G_TRUE
2025: ,x_return_status => l_return_status
2026: );
2027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2023: (p_entity_code => QP_GLOBALS.G_ENTITY_PRICE_LIST_LINE
2024: ,p_delete => FND_API.G_TRUE
2025: ,x_return_status => l_return_status
2026: );
2027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2030: RAISE FND_API.G_EXC_ERROR;
2031: END IF;
2024: ,p_delete => FND_API.G_TRUE
2025: ,x_return_status => l_return_status
2026: );
2027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2030: RAISE FND_API.G_EXC_ERROR;
2031: END IF;
2032:
2025: ,x_return_status => l_return_status
2026: );
2027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2030: RAISE FND_API.G_EXC_ERROR;
2031: END IF;
2032:
2033: END IF;
2026: );
2027: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2030: RAISE FND_API.G_EXC_ERROR;
2031: END IF;
2032:
2033: END IF;
2034:
2039: l_QUALIFIERS_rec := l_QUALIFIERS_tbl(I);
2040:
2041: IF l_QUALIFIERS_rec.operation = QP_GLOBALS.G_OPR_CREATE
2042: AND (l_QUALIFIERS_rec.list_header_id IS NULL OR
2043: l_QUALIFIERS_rec.list_header_id = FND_API.G_MISS_NUM)
2044: THEN
2045:
2046: -- Copy parent_id.
2047:
2084: l_PRICING_ATTR_rec := l_PRICING_ATTR_tbl(I);
2085:
2086: IF l_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_CREATE
2087: AND (l_PRICING_ATTR_rec.list_line_id IS NULL OR
2088: l_PRICING_ATTR_rec.list_line_id = FND_API.G_MISS_NUM)
2089: THEN
2090:
2091: oe_debug_pub.add('process_Price_List 14');
2092: -- Check If parent exists.
2164: QP_DELAYED_REQUESTS_PVT.Process_Delayed_Requests(
2165: x_return_status => l_return_status
2166: );
2167:
2168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2171: RAISE FND_API.G_EXC_ERROR;
2172: END IF;
2165: x_return_status => l_return_status
2166: );
2167:
2168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2171: RAISE FND_API.G_EXC_ERROR;
2172: END IF;
2173:
2166: );
2167:
2168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2171: RAISE FND_API.G_EXC_ERROR;
2172: END IF;
2173:
2174: oe_debug_pub.add('Ren: after processing delayed request');
2167:
2168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2171: RAISE FND_API.G_EXC_ERROR;
2172: END IF;
2173:
2174: oe_debug_pub.add('Ren: after processing delayed request');
2175:
2199: END IF;
2200:
2201: -- Derive return status.
2202:
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204:
2205: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: END IF;
2201: -- Derive return status.
2202:
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204:
2205: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: END IF;
2208:
2209: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2202:
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204:
2205: IF l_PRICE_LIST_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: END IF;
2208:
2209: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2210:
2207: END IF;
2208:
2209: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2210:
2211: IF ( l_PRICE_LIST_LINE_tbl(I).return_status = FND_API.G_RET_STS_ERROR AND
2212: ( l_PRICE_LIST_LINE_rec.list_line_id <> FND_API.G_MISS_NUM OR
2213: l_PRICE_LIST_LINE_rec.list_line_id <> NULL ) ) THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR;
2215: END IF;
2208:
2209: FOR I IN 1..l_PRICE_LIST_LINE_tbl.COUNT LOOP
2210:
2211: IF ( l_PRICE_LIST_LINE_tbl(I).return_status = FND_API.G_RET_STS_ERROR AND
2212: ( l_PRICE_LIST_LINE_rec.list_line_id <> FND_API.G_MISS_NUM OR
2213: l_PRICE_LIST_LINE_rec.list_line_id <> NULL ) ) THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR;
2215: END IF;
2216:
2210:
2211: IF ( l_PRICE_LIST_LINE_tbl(I).return_status = FND_API.G_RET_STS_ERROR AND
2212: ( l_PRICE_LIST_LINE_rec.list_line_id <> FND_API.G_MISS_NUM OR
2213: l_PRICE_LIST_LINE_rec.list_line_id <> NULL ) ) THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR;
2215: END IF;
2216:
2217: END LOOP;
2218:
2217: END LOOP;
2218:
2219: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
2220:
2221: IF l_QUALIFIERS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223: END IF;
2224:
2225: END LOOP;
2218:
2219: FOR I IN 1..l_QUALIFIERS_tbl.COUNT LOOP
2220:
2221: IF l_QUALIFIERS_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223: END IF;
2224:
2225: END LOOP;
2226:
2225: END LOOP;
2226:
2227: FOR I IN 1..l_PRICING_ATTR_tbl.COUNT LOOP
2228:
2229: IF l_PRICING_ATTR_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2230: x_return_status := FND_API.G_RET_STS_ERROR;
2231: END IF;
2232:
2233: END LOOP;
2226:
2227: FOR I IN 1..l_PRICING_ATTR_tbl.COUNT LOOP
2228:
2229: IF l_PRICING_ATTR_tbl(I).return_status = FND_API.G_RET_STS_ERROR THEN
2230: x_return_status := FND_API.G_RET_STS_ERROR;
2231: END IF;
2232:
2233: END LOOP;
2234:
2245: IF ( p_control_rec.write_to_db --Bug#3309455
2246: AND x_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_CREATE
2247: AND x_PRICE_LIST_rec.list_source_code = 'BSO'
2248: AND ( x_PRICE_LIST_rec.orig_system_header_ref <> NULL
2249: OR x_PRICE_LIST_rec.orig_system_header_ref <> FND_API.G_MISS_CHAR)
2250: )
2251: THEN
2252: oe_debug_pub.add('inside create qualifier for blanket modifier');
2253:
2273: , p_operation => QP_GLOBALS.G_OPR_CREATE
2274: , x_return_status => l_return_status
2275: );
2276:
2277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2280: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2281: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2275: );
2276:
2277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2280: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2281: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2276:
2277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2280: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2281: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2284: END IF;
2278: oe_debug_pub.add('Unexp Error while creating blanket qualifier');
2279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2280: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2281: oe_debug_pub.add('Exp Error while creating blanket qualifier');
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2284: END IF;
2285:
2286: END IF;
2289:
2290:
2291: EXCEPTION
2292:
2293: WHEN FND_API.G_EXC_ERROR THEN
2294:
2295: x_return_status := FND_API.G_RET_STS_ERROR;
2296:
2297: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2291: EXCEPTION
2292:
2293: WHEN FND_API.G_EXC_ERROR THEN
2294:
2295: x_return_status := FND_API.G_RET_STS_ERROR;
2296:
2297: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2298: if p_control_rec.called_from_ui = 'N' then
2299: qp_delayed_requests_pvt.Clear_Request
2306: ( p_count => x_msg_count
2307: , p_data => x_msg_data
2308: );
2309:
2310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2311:
2312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2313:
2314: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2308: );
2309:
2310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2311:
2312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2313:
2314: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2315: if p_control_rec.called_from_ui = 'N' then
2316: qp_delayed_requests_pvt.Clear_Request
2326:
2327:
2328: WHEN OTHERS THEN
2329:
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2331:
2332: -- mkarya If process_price_list has been called from public package, then ONLY call clear_request
2333: if p_control_rec.called_from_ui = 'N' then
2334: qp_delayed_requests_pvt.Clear_Request
2369: -- End of Comments
2370:
2371: PROCEDURE Lock_Price_List
2372: ( p_api_version_number IN NUMBER
2373: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2374: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2375: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
2376: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2377: , p_PRICE_LIST_rec IN QP_Price_List_PUB.Price_List_Rec_Type :=
2390: )
2391: IS
2392: l_api_version_number CONSTANT NUMBER := 1.0;
2393: l_api_name CONSTANT VARCHAR2(30):= 'Lock_Price_List';
2394: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2395: l_PRICE_LIST_LINE_rec QP_Price_List_PUB.Price_List_Line_Rec_Type;
2396: l_QUALIFIERS_rec Qp_Qualifier_Rules_Pub.Qualifiers_Rec_Type;
2397: l_PRICING_ATTR_rec QP_Price_List_PUB.Pricing_Attr_Rec_Type;
2398: BEGIN
2398: BEGIN
2399:
2400: -- Standard call to check for call compatibility
2401:
2402: IF NOT FND_API.Compatible_API_Call
2403: ( l_api_version_number
2404: , p_api_version_number
2405: , l_api_name
2406: , G_PKG_NAME
2405: , l_api_name
2406: , G_PKG_NAME
2407: )
2408: THEN
2409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2410: END IF;
2411:
2412: -- Initialize message list.
2413:
2410: END IF;
2411:
2412: -- Initialize message list.
2413:
2414: IF FND_API.to_Boolean(p_init_msg_list) THEN
2415: oe_msg_pub.initialize;
2416: END IF;
2417:
2418: -- Set Savepoint
2428: , x_PRICE_LIST_rec => x_PRICE_LIST_rec
2429: , x_return_status => l_return_status
2430: );
2431:
2432: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2435: RAISE FND_API.G_EXC_ERROR;
2436: END IF;
2429: , x_return_status => l_return_status
2430: );
2431:
2432: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2435: RAISE FND_API.G_EXC_ERROR;
2436: END IF;
2437:
2430: );
2431:
2432: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2435: RAISE FND_API.G_EXC_ERROR;
2436: END IF;
2437:
2438:
2431:
2432: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2435: RAISE FND_API.G_EXC_ERROR;
2436: END IF;
2437:
2438:
2439: END IF;
2449: , x_PRICE_LIST_LINE_rec => l_PRICE_LIST_LINE_rec
2450: , x_return_status => l_return_status
2451: );
2452:
2453: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2456: RAISE FND_API.G_EXC_ERROR;
2457: END IF;
2450: , x_return_status => l_return_status
2451: );
2452:
2453: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2456: RAISE FND_API.G_EXC_ERROR;
2457: END IF;
2458:
2451: );
2452:
2453: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2456: RAISE FND_API.G_EXC_ERROR;
2457: END IF;
2458:
2459: x_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
2452:
2453: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2456: RAISE FND_API.G_EXC_ERROR;
2457: END IF;
2458:
2459: x_PRICE_LIST_LINE_tbl(I) := l_PRICE_LIST_LINE_rec;
2460:
2474: , x_return_status => l_return_status
2475: );
2476:
2477:
2478: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF;
2475: );
2476:
2477:
2478: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF;
2483:
2476:
2477:
2478: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF;
2483:
2484: x_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
2477:
2478: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF;
2483:
2484: x_QUALIFIERS_tbl(I) := l_QUALIFIERS_rec;
2485:
2498: , x_PRICING_ATTR_rec => l_PRICING_ATTR_rec
2499: , x_return_status => l_return_status
2500: );
2501:
2502: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: RAISE FND_API.G_EXC_ERROR;
2506: END IF;
2499: , x_return_status => l_return_status
2500: );
2501:
2502: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: RAISE FND_API.G_EXC_ERROR;
2506: END IF;
2507:
2500: );
2501:
2502: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: RAISE FND_API.G_EXC_ERROR;
2506: END IF;
2507:
2508: x_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
2501:
2502: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: RAISE FND_API.G_EXC_ERROR;
2506: END IF;
2507:
2508: x_PRICING_ATTR_tbl(I) := l_PRICING_ATTR_rec;
2509:
2512: END LOOP;
2513:
2514: -- Set return status
2515:
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517:
2518: -- Get message count and data
2519:
2520: oe_msg_pub.Count_And_Get
2524:
2525:
2526: EXCEPTION
2527:
2528: WHEN FND_API.G_EXC_ERROR THEN
2529:
2530: x_return_status := FND_API.G_RET_STS_ERROR;
2531:
2532: -- Get message count and data
2526: EXCEPTION
2527:
2528: WHEN FND_API.G_EXC_ERROR THEN
2529:
2530: x_return_status := FND_API.G_RET_STS_ERROR;
2531:
2532: -- Get message count and data
2533:
2534: oe_msg_pub.Count_And_Get
2539: -- Rollback
2540:
2541: ROLLBACK TO Lock_Price_List_PVT;
2542:
2543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2544:
2545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2546:
2547: -- Get message count and data
2541: ROLLBACK TO Lock_Price_List_PVT;
2542:
2543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2544:
2545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2546:
2547: -- Get message count and data
2548:
2549: oe_msg_pub.Count_And_Get
2556: ROLLBACK TO Lock_Price_List_PVT;
2557:
2558: WHEN OTHERS THEN
2559:
2560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2561:
2562: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2563: THEN
2564: oe_msg_pub.Add_Exc_Msg
2597: -- End of Comments
2598:
2599: PROCEDURE Get_Price_List
2600: ( p_api_version_number IN NUMBER
2601: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2602: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2603: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
2604: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2605: , p_list_header_id IN NUMBER
2619: BEGIN
2620:
2621: -- Standard call to check for call compatibility
2622:
2623: IF NOT FND_API.Compatible_API_Call
2624: ( l_api_version_number
2625: , p_api_version_number
2626: , l_api_name
2627: , G_PKG_NAME
2626: , l_api_name
2627: , G_PKG_NAME
2628: )
2629: THEN
2630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2631: END IF;
2632:
2633: -- Initialize message list.
2634:
2631: END IF;
2632:
2633: -- Initialize message list.
2634:
2635: IF FND_API.to_Boolean(p_init_msg_list) THEN
2636: oe_msg_pub.initialize;
2637: END IF;
2638:
2639: -- Get PRICE_LIST ( parent = PRICE_LIST )
2685: x_PRICING_ATTR_tbl := l_x_PRICING_ATTR_tbl;
2686:
2687: -- Set return status
2688:
2689: x_return_status := FND_API.G_RET_STS_SUCCESS;
2690:
2691: -- Get message count and data
2692:
2693: oe_msg_pub.Count_And_Get
2697:
2698:
2699: EXCEPTION
2700:
2701: WHEN FND_API.G_EXC_ERROR THEN
2702:
2703: x_return_status := FND_API.G_RET_STS_ERROR;
2704:
2705: -- Get message count and data
2699: EXCEPTION
2700:
2701: WHEN FND_API.G_EXC_ERROR THEN
2702:
2703: x_return_status := FND_API.G_RET_STS_ERROR;
2704:
2705: -- Get message count and data
2706:
2707: oe_msg_pub.Count_And_Get
2708: ( p_count => x_msg_count
2709: , p_data => x_msg_data
2710: );
2711:
2712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2713:
2714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2715:
2716: -- Get message count and data
2710: );
2711:
2712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2713:
2714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2715:
2716: -- Get message count and data
2717:
2718: oe_msg_pub.Count_And_Get
2721: );
2722:
2723: WHEN OTHERS THEN
2724:
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2726:
2727: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2728: THEN
2729: oe_msg_pub.Add_Exc_Msg