71: AND price_book_type_code = l_pb_input_header_rec.price_book_type_code;
72: EXCEPTION
73: WHEN OTHERS THEN
74: x_return_status := 'E';
75: FND_MESSAGE.SET_NAME('QP', 'QP_INPUT_REC_NOT_FOUND');
76: l_message_text := FND_MESSAGE.GET;
77: BEGIN
78: SELECT qp_price_book_messages_s.nextval
79: INTO x_price_book_messages_tbl(1).message_id FROM dual;
72: EXCEPTION
73: WHEN OTHERS THEN
74: x_return_status := 'E';
75: FND_MESSAGE.SET_NAME('QP', 'QP_INPUT_REC_NOT_FOUND');
76: l_message_text := FND_MESSAGE.GET;
77: BEGIN
78: SELECT qp_price_book_messages_s.nextval
79: INTO x_price_book_messages_tbl(1).message_id FROM dual;
80: EXCEPTION
140: AND price_book_type_code = 'F';
141: EXCEPTION
142: WHEN OTHERS THEN
143: x_return_status := 'E';
144: FND_MESSAGE.SET_NAME('QP', 'QP_FULL_PRICE_BOOK_MUST_EXIST');
145: l_message_text := FND_MESSAGE.GET;
146: BEGIN
147: SELECT qp_price_book_messages_s.nextval
148: INTO x_price_book_messages_tbl(1).message_id FROM dual;
141: EXCEPTION
142: WHEN OTHERS THEN
143: x_return_status := 'E';
144: FND_MESSAGE.SET_NAME('QP', 'QP_FULL_PRICE_BOOK_MUST_EXIST');
145: l_message_text := FND_MESSAGE.GET;
146: BEGIN
147: SELECT qp_price_book_messages_s.nextval
148: INTO x_price_book_messages_tbl(1).message_id FROM dual;
149: EXCEPTION
192: WHERE pb_input_header_id = l_full_pb_input_header_id;
193: EXCEPTION
194: WHEN OTHERS THEN
195: x_return_status := 'E';
196: FND_MESSAGE.SET_NAME('QP', 'QP_FULL_PRICE_BOOK_MUST_EXIST');
197: l_message_text := FND_MESSAGE.GET;
198: BEGIN
199: SELECT qp_price_book_messages_s.nextval
200: INTO x_price_book_messages_tbl(1).message_id FROM dual;
193: EXCEPTION
194: WHEN OTHERS THEN
195: x_return_status := 'E';
196: FND_MESSAGE.SET_NAME('QP', 'QP_FULL_PRICE_BOOK_MUST_EXIST');
197: l_message_text := FND_MESSAGE.GET;
198: BEGIN
199: SELECT qp_price_book_messages_s.nextval
200: INTO x_price_book_messages_tbl(1).message_id FROM dual;
201: EXCEPTION
511: END IF;--MO_GLOBAL
512:
513: IF p_price_book_type_code IS NULL THEN
514: x_return_status := 'E';
515: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
516: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_TYPE_CODE');
517: l_message_text := FND_MESSAGE.GET;
518: x_query_messages(i) := substr(l_message_text, 1, 240);
519: i := i + 1;
512:
513: IF p_price_book_type_code IS NULL THEN
514: x_return_status := 'E';
515: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
516: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_TYPE_CODE');
517: l_message_text := FND_MESSAGE.GET;
518: x_query_messages(i) := substr(l_message_text, 1, 240);
519: i := i + 1;
520: ELSE
513: IF p_price_book_type_code IS NULL THEN
514: x_return_status := 'E';
515: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
516: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_TYPE_CODE');
517: l_message_text := FND_MESSAGE.GET;
518: x_query_messages(i) := substr(l_message_text, 1, 240);
519: i := i + 1;
520: ELSE
521: IF NOT (p_price_book_type_code = 'F' OR p_price_book_type_code = 'D') THEN
519: i := i + 1;
520: ELSE
521: IF NOT (p_price_book_type_code = 'F' OR p_price_book_type_code = 'D') THEN
522: x_return_status := 'E';
523: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_PARAMETER');
524: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_TYPE_CODE');
525: l_message_text := FND_MESSAGE.GET;
526: x_query_messages(i) := substr(l_message_text, 1, 240);
527: i := i + 1;
520: ELSE
521: IF NOT (p_price_book_type_code = 'F' OR p_price_book_type_code = 'D') THEN
522: x_return_status := 'E';
523: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_PARAMETER');
524: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_TYPE_CODE');
525: l_message_text := FND_MESSAGE.GET;
526: x_query_messages(i) := substr(l_message_text, 1, 240);
527: i := i + 1;
528: END IF;
521: IF NOT (p_price_book_type_code = 'F' OR p_price_book_type_code = 'D') THEN
522: x_return_status := 'E';
523: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_PARAMETER');
524: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_TYPE_CODE');
525: l_message_text := FND_MESSAGE.GET;
526: x_query_messages(i) := substr(l_message_text, 1, 240);
527: i := i + 1;
528: END IF;
529: END IF;
529: END IF;
530:
531: IF p_price_book_name IS NULL THEN
532: x_return_status := 'E';
533: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
534: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_NAME');
535: l_message_text := FND_MESSAGE.GET;
536: x_query_messages(i) := substr(l_message_text, 1, 240);
537: i := i + 1;
530:
531: IF p_price_book_name IS NULL THEN
532: x_return_status := 'E';
533: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
534: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_NAME');
535: l_message_text := FND_MESSAGE.GET;
536: x_query_messages(i) := substr(l_message_text, 1, 240);
537: i := i + 1;
538: END IF;
531: IF p_price_book_name IS NULL THEN
532: x_return_status := 'E';
533: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
534: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_PRICE_BOOK_NAME');
535: l_message_text := FND_MESSAGE.GET;
536: x_query_messages(i) := substr(l_message_text, 1, 240);
537: i := i + 1;
538: END IF;
539:
538: END IF;
539:
540: IF p_customer_id IS NULL THEN
541: x_return_status := 'E';
542: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
543: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_CUSTOMER_ID');
544: l_message_text := FND_MESSAGE.GET;
545: x_query_messages(i) := substr(l_message_text, 1, 240);
546: i := i + 1;
539:
540: IF p_customer_id IS NULL THEN
541: x_return_status := 'E';
542: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
543: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_CUSTOMER_ID');
544: l_message_text := FND_MESSAGE.GET;
545: x_query_messages(i) := substr(l_message_text, 1, 240);
546: i := i + 1;
547: ELSE
540: IF p_customer_id IS NULL THEN
541: x_return_status := 'E';
542: FND_MESSAGE.SET_NAME('QP', 'QP_PARAMETER_REQUIRED');
543: FND_MESSAGE.SET_TOKEN('PARAMETER', 'P_CUSTOMER_ID');
544: l_message_text := FND_MESSAGE.GET;
545: x_query_messages(i) := substr(l_message_text, 1, 240);
546: i := i + 1;
547: ELSE
548: --Check if the user is an external or internal user
595:
596: IF p_customer_id <> l_customer_id AND l_party_id_match <> 'Y'
597: THEN
598: x_return_status := 'E';
599: FND_MESSAGE.SET_NAME('QP', 'QP_CUSTOMER_NOT_MATCHING');
600: l_message_text := FND_MESSAGE.GET;
601: x_query_messages(i) := substr(l_message_text, 1, 240);
602: i := i + 1;
603: END IF;
596: IF p_customer_id <> l_customer_id AND l_party_id_match <> 'Y'
597: THEN
598: x_return_status := 'E';
599: FND_MESSAGE.SET_NAME('QP', 'QP_CUSTOMER_NOT_MATCHING');
600: l_message_text := FND_MESSAGE.GET;
601: x_query_messages(i) := substr(l_message_text, 1, 240);
602: i := i + 1;
603: END IF;
604:
615: END;
616:
617: IF l_count = 0 AND p_customer_id <> -1 THEN -- invalid customer
618: x_return_status := 'E';
619: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_CUSTOMER');
620: l_message_text := FND_MESSAGE.GET;
621: x_query_messages(i) := substr(l_message_text, 1, 240);
622: i := i + 1;
623: END IF;
616:
617: IF l_count = 0 AND p_customer_id <> -1 THEN -- invalid customer
618: x_return_status := 'E';
619: FND_MESSAGE.SET_NAME('QP', 'QP_INVALID_CUSTOMER');
620: l_message_text := FND_MESSAGE.GET;
621: x_query_messages(i) := substr(l_message_text, 1, 240);
622: i := i + 1;
623: END IF;
624:
667: AND customer_id = p_customer_id;
668: EXCEPTION
669: WHEN OTHERS THEN
670: x_return_status := 'E';
671: FND_MESSAGE.SET_NAME('QP', 'QP_PRICE_BOOK_DOES_NOT_EXIST');
672: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_NAME', p_price_book_name);
673: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_TYPE_CODE', p_price_book_type_code);
674: l_message_text := FND_MESSAGE.GET;
675: x_query_messages(i) := substr(l_message_text, 1, 240);
668: EXCEPTION
669: WHEN OTHERS THEN
670: x_return_status := 'E';
671: FND_MESSAGE.SET_NAME('QP', 'QP_PRICE_BOOK_DOES_NOT_EXIST');
672: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_NAME', p_price_book_name);
673: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_TYPE_CODE', p_price_book_type_code);
674: l_message_text := FND_MESSAGE.GET;
675: x_query_messages(i) := substr(l_message_text, 1, 240);
676: RETURN;
669: WHEN OTHERS THEN
670: x_return_status := 'E';
671: FND_MESSAGE.SET_NAME('QP', 'QP_PRICE_BOOK_DOES_NOT_EXIST');
672: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_NAME', p_price_book_name);
673: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_TYPE_CODE', p_price_book_type_code);
674: l_message_text := FND_MESSAGE.GET;
675: x_query_messages(i) := substr(l_message_text, 1, 240);
676: RETURN;
677: END;
670: x_return_status := 'E';
671: FND_MESSAGE.SET_NAME('QP', 'QP_PRICE_BOOK_DOES_NOT_EXIST');
672: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_NAME', p_price_book_name);
673: FND_MESSAGE.SET_TOKEN('PRICE_BOOK_TYPE_CODE', p_price_book_type_code);
674: l_message_text := FND_MESSAGE.GET;
675: x_query_messages(i) := substr(l_message_text, 1, 240);
676: RETURN;
677: END;
678: