[Home] [Help]
108: END OF PROCESSING FOR QTK or OTK pricing information creation
109: **************************************************************/
110:
111: TYPE price_adjustments_rec_type IS RECORD (
112: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
113: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
114: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
115: INDEX BY BINARY_INTEGER;
116: g_price_adjustments_tab price_adjustments_tbl_type;
109: **************************************************************/
110:
111: TYPE price_adjustments_rec_type IS RECORD (
112: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
113: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
114: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
115: INDEX BY BINARY_INTEGER;
116: g_price_adjustments_tab price_adjustments_tbl_type;
117: -- used to store the old (ASO or ONT) pat_id's along with
155: FROM okx_quote_headers_v
156: WHERE id1 = c_q_id;
157:
158: -- used for including in error messages
159: l_order_number VARCHAR2(120) := OKC_API.G_MISS_CHAR;
160: l_quote_number VARCHAR2(120) := OKC_API.G_MISS_CHAR;
161:
162:
163: -----------------------------------------------------------------------------
156: WHERE id1 = c_q_id;
157:
158: -- used for including in error messages
159: l_order_number VARCHAR2(120) := OKC_API.G_MISS_CHAR;
160: l_quote_number VARCHAR2(120) := OKC_API.G_MISS_CHAR;
161:
162:
163: -----------------------------------------------------------------------------
164: -- Procedure: print_error
204: okc_util.print_trace(1, '>START - OKC_OC_INT_PRICING_PVT.CLEANUP - Initialize global PL/SQL Tables');
205: okc_util.print_trace(1, ' ');
206: END IF;
207:
208: x_return_status := OKC_API.G_RET_STS_SUCCESS;
209:
210: IF (l_debug = 'Y') THEN
211: okc_util.print_trace(2, 'Cleaning up plsql tables');
212: END IF;
234: okc_util.print_trace(1, '
236: EXCEPTION
237: WHEN OTHERS THEN
238: OKC_API.set_message(G_APP_NAME,
239: G_UNEXPECTED_ERROR,
240: G_SQLCODE_TOKEN,
241: SQLCODE,
242: G_SQLERRM_TOKEN,
240: G_SQLCODE_TOKEN,
241: SQLCODE,
242: G_SQLERRM_TOKEN,
243: SQLERRM);
244: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
245: END cleanup;
246:
247:
248: /************************************************************************
275: l_api_version NUMBER := 1;
276: lx_msg_count NUMBER;
277: lx_msg_data VARCHAR2(2000);
278:
279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
280:
281: BEGIN
282: x_return_status := l_return_status;
283:
291: OKC_UTIL.print_trace(1, ' ');
292: END IF;
293:
294: cleanup(x_return_status => l_return_status);
295: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
296: RAISE G_EXCEPTION_HALT_VALIDATION;
297: ELSE
298: x_return_status := l_return_status;
299: END IF;
360: END IF;
361: IF g_pavv_tab.FIRST IS NOT NULL THEN
362: OKC_PRICE_ADJUSTMENT_PUB.create_price_att_value(
363: p_api_version => l_api_version,
364: p_init_msg_list => OKC_API.G_FALSE,
365: x_return_status => l_return_status,
366: x_msg_count => lx_msg_count,
367: x_msg_data => lx_msg_data,
368: ----p_pavv_rec => l_pavv_rec,
369: ----x_pavv_rec => x_pavv_rec);
370: p_pavv_tbl => g_pavv_tab, --IN: ASO or ONT
371: x_pavv_tbl => lx_pavv_tab); --OUT: OKC
372:
373: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
374: -- get quote or order number to display in error message
375: IF p_qhr_id IS NOT NULL THEN
376: BEGIN
377: OPEN c_qnumber(p_qhr_id);
394:
395: -- put error message on stack
396: --Price Attributes information from ASO or ONT table was not
397: -- created in OKC.
398: IF p_q_flag = OKC_API.G_TRUE THEN
399: OKC_API.set_message(p_app_name => G_APP_NAME,
400: p_msg_name => 'OKC_Q2K_NOPRIATTR',
401: p_token1 => 'QNUMBER',
402: p_token1_value => l_quote_number);
395: -- put error message on stack
396: --Price Attributes information from ASO or ONT table was not
397: -- created in OKC.
398: IF p_q_flag = OKC_API.G_TRUE THEN
399: OKC_API.set_message(p_app_name => G_APP_NAME,
400: p_msg_name => 'OKC_Q2K_NOPRIATTR',
401: p_token1 => 'QNUMBER',
402: p_token1_value => l_quote_number);
403: ELSIF p_o_flag = OKC_API.G_TRUE THEN
399: OKC_API.set_message(p_app_name => G_APP_NAME,
400: p_msg_name => 'OKC_Q2K_NOPRIATTR',
401: p_token1 => 'QNUMBER',
402: p_token1_value => l_quote_number);
403: ELSIF p_o_flag = OKC_API.G_TRUE THEN
404: OKC_API.set_message(p_app_name => G_APP_NAME,
405: p_msg_name => 'OKC_Q2K_NOPRIATTR_ORD',
406: p_token1 => 'ONUMBER',
407: p_token1_value => l_order_number);
400: p_msg_name => 'OKC_Q2K_NOPRIATTR',
401: p_token1 => 'QNUMBER',
402: p_token1_value => l_quote_number);
403: ELSIF p_o_flag = OKC_API.G_TRUE THEN
404: OKC_API.set_message(p_app_name => G_APP_NAME,
405: p_msg_name => 'OKC_Q2K_NOPRIATTR_ORD',
406: p_token1 => 'ONUMBER',
407: p_token1_value => l_order_number);
408: END IF;
407: p_token1_value => l_order_number);
408: END IF;
409: print_error(2);
410:
411: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
412: ----x_return_status := l_return_status;
413: ----RAISE G_EXCEPTION_HALT_VALIDATION;
414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
410:
411: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
412: ----x_return_status := l_return_status;
413: ----RAISE G_EXCEPTION_HALT_VALIDATION;
414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
416: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
417: ELSE
418: x_return_status := l_return_status;
411: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
412: ----x_return_status := l_return_status;
413: ----RAISE G_EXCEPTION_HALT_VALIDATION;
414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
416: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
417: ELSE
418: x_return_status := l_return_status;
419: END IF;
412: ----x_return_status := l_return_status;
413: ----RAISE G_EXCEPTION_HALT_VALIDATION;
414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
416: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
417: ELSE
418: x_return_status := l_return_status;
419: END IF;
420: END IF;
484: END IF;
485: IF g_patv_tab.FIRST IS NOT NULL THEN
486: OKC_PRICE_ADJUSTMENT_PUB.create_price_adjustment(
487: p_api_version => l_api_version,
488: p_init_msg_list => OKC_API.G_FALSE,
489: x_return_status => l_return_status,
490: x_msg_count => lx_msg_count,
491: x_msg_data => lx_msg_data,
492: ----p_patv_rec => l_patv_rec,
493: ----x_patv_rec => x_patv_rec);
494: p_patv_tbl => g_patv_tab, --IN: ASO or ONT
495: x_patv_tbl => lx_patv_tab); --OUT: OKC
496:
497: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
498: -- get quote or order number to display in error message
499: IF p_qhr_id IS NOT NULL THEN
500: BEGIN
501: OPEN c_qnumber(p_qhr_id);
518:
519: -- put error message on stack
520: --Price Adjustments information from ASO or ONT table was not
521: -- created in OKC.
522: IF p_q_flag = OKC_API.G_TRUE THEN
523: OKC_API.set_message(p_app_name => G_APP_NAME,
524: p_msg_name => 'OKC_Q2K_NOPRIADJ',
525: p_token1 => 'QNUMBER',
526: p_token1_value => l_quote_number);
519: -- put error message on stack
520: --Price Adjustments information from ASO or ONT table was not
521: -- created in OKC.
522: IF p_q_flag = OKC_API.G_TRUE THEN
523: OKC_API.set_message(p_app_name => G_APP_NAME,
524: p_msg_name => 'OKC_Q2K_NOPRIADJ',
525: p_token1 => 'QNUMBER',
526: p_token1_value => l_quote_number);
527: ELSIF p_o_flag = OKC_API.G_TRUE THEN
523: OKC_API.set_message(p_app_name => G_APP_NAME,
524: p_msg_name => 'OKC_Q2K_NOPRIADJ',
525: p_token1 => 'QNUMBER',
526: p_token1_value => l_quote_number);
527: ELSIF p_o_flag = OKC_API.G_TRUE THEN
528: OKC_API.set_message(p_app_name => G_APP_NAME,
529: p_msg_name => 'OKC_Q2K_NOPRIADJ_ORD',
530: p_token1 => 'ONUMBER',
531: p_token1_value => l_order_number);
524: p_msg_name => 'OKC_Q2K_NOPRIADJ',
525: p_token1 => 'QNUMBER',
526: p_token1_value => l_quote_number);
527: ELSIF p_o_flag = OKC_API.G_TRUE THEN
528: OKC_API.set_message(p_app_name => G_APP_NAME,
529: p_msg_name => 'OKC_Q2K_NOPRIADJ_ORD',
530: p_token1 => 'ONUMBER',
531: p_token1_value => l_order_number);
532: END IF;
532: END IF;
533: print_error(2);
534:
535:
536: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
537: ----x_return_status := l_return_status;
538: ----RAISE G_EXCEPTION_HALT_VALIDATION;
539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
535:
536: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
537: ----x_return_status := l_return_status;
538: ----RAISE G_EXCEPTION_HALT_VALIDATION;
539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
541: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
542: ELSE
543: x_return_status := l_return_status;
536: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
537: ----x_return_status := l_return_status;
538: ----RAISE G_EXCEPTION_HALT_VALIDATION;
539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
541: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
542: ELSE
543: x_return_status := l_return_status;
544: END IF;
537: ----x_return_status := l_return_status;
538: ----RAISE G_EXCEPTION_HALT_VALIDATION;
539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
541: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
542: ELSE
543: x_return_status := l_return_status;
544: END IF;
545: END IF;
596: IF g_paav_tab.FIRST IS NOT NULL THEN
597: --now put the price adjustment attributes in OKC
598: OKC_PRICE_ADJUSTMENT_PUB.create_price_adj_attrib(
599: p_api_version => l_api_version,
600: p_init_msg_list => OKC_API.G_FALSE,
601: x_return_status => l_return_status,
602: x_msg_count => lx_msg_count,
603: x_msg_data => lx_msg_data,
604: ----p_paav_rec => l_paav_rec,
606: p_paav_tbl => g_paav_tab,
607: x_paav_tbl => lx_paav_tab);
608: END IF;
609:
610: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
611: -- get quote or order number to display in error message
612: IF p_qhr_id IS NOT NULL THEN
613: BEGIN
614: OPEN c_qnumber(p_qhr_id);
631:
632: --put error message on stack
633: --Price Adjustments Attributes information from ASO or ONT table
634: --was not created in OKC.
635: IF p_q_flag = OKC_API.G_TRUE THEN
636: OKC_API.set_message(p_app_name => G_APP_NAME,
637: p_msg_name => 'OKC_Q2K_NOPRIADJATTR',
638: p_token1 => 'QNUMBER',
639: p_token1_value => l_quote_number);
632: --put error message on stack
633: --Price Adjustments Attributes information from ASO or ONT table
634: --was not created in OKC.
635: IF p_q_flag = OKC_API.G_TRUE THEN
636: OKC_API.set_message(p_app_name => G_APP_NAME,
637: p_msg_name => 'OKC_Q2K_NOPRIADJATTR',
638: p_token1 => 'QNUMBER',
639: p_token1_value => l_quote_number);
640: ELSIF p_o_flag = OKC_API.G_TRUE THEN
636: OKC_API.set_message(p_app_name => G_APP_NAME,
637: p_msg_name => 'OKC_Q2K_NOPRIADJATTR',
638: p_token1 => 'QNUMBER',
639: p_token1_value => l_quote_number);
640: ELSIF p_o_flag = OKC_API.G_TRUE THEN
641: OKC_API.set_message(p_app_name => G_APP_NAME,
642: p_msg_name => 'OKC_Q2K_NOPRIADJATTR_ORD',
643: p_token1 => 'ONUMBER',
644: p_token1_value => l_order_number);
637: p_msg_name => 'OKC_Q2K_NOPRIADJATTR',
638: p_token1 => 'QNUMBER',
639: p_token1_value => l_quote_number);
640: ELSIF p_o_flag = OKC_API.G_TRUE THEN
641: OKC_API.set_message(p_app_name => G_APP_NAME,
642: p_msg_name => 'OKC_Q2K_NOPRIADJATTR_ORD',
643: p_token1 => 'ONUMBER',
644: p_token1_value => l_order_number);
645: END IF;
644: p_token1_value => l_order_number);
645: END IF;
646: print_error(2);
647:
648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
649: ----x_return_status := l_return_status;
650: ----RAISE G_EXCEPTION_HALT_VALIDATION;
651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
647:
648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
649: ----x_return_status := l_return_status;
650: ----RAISE G_EXCEPTION_HALT_VALIDATION;
651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: ELSE
655: x_return_status := l_return_status;
648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
649: ----x_return_status := l_return_status;
650: ----RAISE G_EXCEPTION_HALT_VALIDATION;
651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: ELSE
655: x_return_status := l_return_status;
656: END IF;
649: ----x_return_status := l_return_status;
650: ----RAISE G_EXCEPTION_HALT_VALIDATION;
651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
653: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
654: ELSE
655: x_return_status := l_return_status;
656: END IF;
657: END IF;
697: IF g_pacv_tab.FIRST IS NOT NULL THEN
698: --now put the price adjustment relationships in OKC
699: OKC_PRICE_ADJUSTMENT_PUB.create_price_adj_assoc(
700: p_api_version => l_api_version,
701: p_init_msg_list => OKC_API.G_FALSE,
702: x_return_status => l_return_status,
703: x_msg_count => lx_msg_count,
704: x_msg_data => lx_msg_data,
705: p_pacv_tbl => g_pacv_tab,
710: OKC_UTIL.print_trace(2, ' >Call to OKC_PRICE_ADJUSTMENT_PUB.create_price_adj_assoc finished successfully');
711: END IF;
712:
713:
714: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
715: -- get quote or order number to display in error message
716: IF p_qhr_id IS NOT NULL THEN
717: BEGIN
718: OPEN c_qnumber(p_qhr_id);
735:
736: --put error message on stack
737: --Price Adjustment Relationship information from ASO or ONT table
738: --was not created in OKC.
739: IF p_q_flag = OKC_API.G_TRUE THEN
740: OKC_API.set_message(p_app_name => G_APP_NAME,
741: p_msg_name => 'OKC_Q2K_NOPRIADJREL',
742: p_token1 => 'QNUMBER',
743: p_token1_value => l_quote_number);
736: --put error message on stack
737: --Price Adjustment Relationship information from ASO or ONT table
738: --was not created in OKC.
739: IF p_q_flag = OKC_API.G_TRUE THEN
740: OKC_API.set_message(p_app_name => G_APP_NAME,
741: p_msg_name => 'OKC_Q2K_NOPRIADJREL',
742: p_token1 => 'QNUMBER',
743: p_token1_value => l_quote_number);
744: ELSIF p_o_flag = OKC_API.G_TRUE THEN
740: OKC_API.set_message(p_app_name => G_APP_NAME,
741: p_msg_name => 'OKC_Q2K_NOPRIADJREL',
742: p_token1 => 'QNUMBER',
743: p_token1_value => l_quote_number);
744: ELSIF p_o_flag = OKC_API.G_TRUE THEN
745: OKC_API.set_message(p_app_name => G_APP_NAME,
746: p_msg_name => 'OKC_Q2K_NOPRIADJREL_ORD',
747: p_token1 => 'ONUMBER',
748: p_token1_value => l_order_number);
741: p_msg_name => 'OKC_Q2K_NOPRIADJREL',
742: p_token1 => 'QNUMBER',
743: p_token1_value => l_quote_number);
744: ELSIF p_o_flag = OKC_API.G_TRUE THEN
745: OKC_API.set_message(p_app_name => G_APP_NAME,
746: p_msg_name => 'OKC_Q2K_NOPRIADJREL_ORD',
747: p_token1 => 'ONUMBER',
748: p_token1_value => l_order_number);
749: END IF;
748: p_token1_value => l_order_number);
749: END IF;
750: print_error(2);
751:
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: ----x_return_status := l_return_status;
754: ----RAISE G_EXCEPTION_HALT_VALIDATION;
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
751:
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: ----x_return_status := l_return_status;
754: ----RAISE G_EXCEPTION_HALT_VALIDATION;
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
758: ELSE
759: x_return_status := l_return_status;
752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: ----x_return_status := l_return_status;
754: ----RAISE G_EXCEPTION_HALT_VALIDATION;
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
758: ELSE
759: x_return_status := l_return_status;
760: END IF;
753: ----x_return_status := l_return_status;
754: ----RAISE G_EXCEPTION_HALT_VALIDATION;
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
758: ELSE
759: x_return_status := l_return_status;
760: END IF;
761: END IF;
772: END IF;
773:
774:
775: EXCEPTION
776: WHEN OKC_API.G_EXCEPTION_ERROR THEN
777: -- store SQL error message on message stack for caller
778: OKC_API.set_message(G_APP_NAME, G_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
779: print_error(1);
780:
774:
775: EXCEPTION
776: WHEN OKC_API.G_EXCEPTION_ERROR THEN
777: -- store SQL error message on message stack for caller
778: OKC_API.set_message(G_APP_NAME, G_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
779: print_error(1);
780:
781: -- notify caller of an error
782: x_return_status := OKC_API.G_RET_STS_ERROR;
778: OKC_API.set_message(G_APP_NAME, G_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
779: print_error(1);
780:
781: -- notify caller of an error
782: x_return_status := OKC_API.G_RET_STS_ERROR;
783:
784:
785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
786: -- store SQL error message on message stack for caller
781: -- notify caller of an error
782: x_return_status := OKC_API.G_RET_STS_ERROR;
783:
784:
785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
786: -- store SQL error message on message stack for caller
787: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
788: print_error(1);
789:
783:
784:
785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
786: -- store SQL error message on message stack for caller
787: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
788: print_error(1);
789:
790: -- notify caller of an UNEXPECTED error
791: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
787: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
788: print_error(1);
789:
790: -- notify caller of an UNEXPECTED error
791: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
792:
793:
794: WHEN OTHERS THEN
795: -- store SQL error message on message stack for caller
792:
793:
794: WHEN OTHERS THEN
795: -- store SQL error message on message stack for caller
796: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
797: print_error(1);
798:
799: -- notify caller of an UNEXPECTED error
800: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
796: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
797: print_error(1);
798:
799: -- notify caller of an UNEXPECTED error
800: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
801:
802: END create_k_pricing;
803:
804:
830:
831: --get all the price attributes for the quote header (or order header)
832: --for processing at the header level
833: --and store them in global PL/SQL table g_pavv_tab
834: IF p_q_flag = OKC_API.G_TRUE AND p_qhr_id IS NOT NULL AND p_qhr_id <> OKC_API.G_MISS_NUM AND
835: p_line_inf_tab.FIRST IS NULL
836: THEN
837: IF (l_debug = 'Y') THEN
838: OKC_UTIL.print_trace(3, 'Calling get_pavv_tab with p_chr_id and p_qhr_id/p_ohr_id for processing at header level');
845:
846: IF (l_debug = 'Y') THEN
847: OKC_UTIL.print_trace(3, 'Call to get_pavv_tab finished successfully');
848: END IF;
849: ELSIF p_o_flag = OKC_API.G_TRUE AND p_ohr_id IS NOT NULL AND p_ohr_id <> OKC_API.G_MISS_NUM AND
850: p_line_inf_tab.FIRST IS NULL
851: THEN
852: IF (l_debug = 'Y') THEN
853: OKC_UTIL.print_trace(3, 'Calling get_pavv_tab with p_chr_id and p_qhr_id/p_ohr_id for processing at header level');
874: END IF;
875:
876: i := p_line_inf_tab.FIRST;
877: WHILE i IS NOT NULL LOOP
878: IF p_q_flag = OKC_API.G_TRUE AND p_qhr_id IS NOT NULL AND p_qhr_id <> OKC_API.G_MISS_NUM AND
879: NVL(p_line_inf_tab(i).line_type,OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
880:
881: -- get PRICE ATTRIBUTES information from ASO tables
882: -- get_pavv_tab stores it's output in g_pavv_tab
875:
876: i := p_line_inf_tab.FIRST;
877: WHILE i IS NOT NULL LOOP
878: IF p_q_flag = OKC_API.G_TRUE AND p_qhr_id IS NOT NULL AND p_qhr_id <> OKC_API.G_MISS_NUM AND
879: NVL(p_line_inf_tab(i).line_type,OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
880:
881: -- get PRICE ATTRIBUTES information from ASO tables
882: -- get_pavv_tab stores it's output in g_pavv_tab
883: get_pavv_tab(p_chr_id => p_chr_id,
885: p_qhr_id => p_qhr_id,
886: p_cle_id => p_line_inf_tab(i).cle_id,
887: p_qle_id => p_line_inf_tab(i).object1_id1
888: );
889: ELSIF p_o_flag = OKC_API.G_TRUE AND p_ohr_id IS NOT NULL AND p_ohr_id <> OKC_API.G_MISS_NUM AND
890: NVL(p_line_inf_tab(i).line_type,OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
891: -- get PRICE ATTRIBUTES information from ONT tables
892: -- get_pavv_tab stores it's output in g_pavv_tab
893: get_pavv_tab(p_chr_id => p_chr_id,
886: p_cle_id => p_line_inf_tab(i).cle_id,
887: p_qle_id => p_line_inf_tab(i).object1_id1
888: );
889: ELSIF p_o_flag = OKC_API.G_TRUE AND p_ohr_id IS NOT NULL AND p_ohr_id <> OKC_API.G_MISS_NUM AND
890: NVL(p_line_inf_tab(i).line_type,OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
891: -- get PRICE ATTRIBUTES information from ONT tables
892: -- get_pavv_tab stores it's output in g_pavv_tab
893: get_pavv_tab(p_chr_id => p_chr_id,
894: p_o_flag => p_o_flag,
913: IF (l_debug = 'Y') THEN
914: OKC_UTIL.print_trace(3,SQLERRM);
915: END IF;
916: -- Bug#2320635
917: OKC_API.set_message(G_APP_NAME,
918: G_UNEXPECTED_ERROR,
919: G_SQLCODE_TOKEN,
920: SQLCODE,
921: G_SQLERRM_TOKEN,
919: G_SQLCODE_TOKEN,
920: SQLCODE,
921: G_SQLERRM_TOKEN,
922: SQLERRM);
923: RAISE OKC_API.G_EXCEPTION_ERROR;
924: END get_price_attr;
925:
926:
927: --------------------------------------------------------------------------
950:
951: --get all the price adjustments for the quote header (or order header)
952: --for processing at the header level
953: --and store them in global PL/SQL table g_patv_tab
954: IF p_q_flag = OKC_API.G_TRUE AND p_qhr_id IS NOT NULL AND p_qhr_id <> OKC_API.G_MISS_NUM AND
955: p_line_inf_tab.FIRST IS NULL
956: THEN
957: IF (l_debug = 'Y') THEN
958: OKC_UTIL.print_trace(3, 'Calling get_patv_tab with p_chr_id and p_qhr_id/p_ohr_id for processing at header level');
965: IF (l_debug = 'Y') THEN
966: OKC_UTIL.print_trace(3, 'Call to get_patv_tab finished successfully');
967: END IF;
968:
969: ELSIF p_o_flag = OKC_API.G_TRUE AND p_ohr_id IS NOT NULL AND p_ohr_id <> OKC_API.G_MISS_NUM AND
970: p_line_inf_tab.FIRST IS NULL
971: THEN
972: IF (l_debug = 'Y') THEN
973: OKC_UTIL.print_trace(3, 'Calling get_patv_tab with p_chr_id and p_qhr_id/p_ohr_id for processing at header level');
993: END IF;
994:
995: i := p_line_inf_tab.FIRST;
996: WHILE i IS NOT NULL LOOP
997: IF p_q_flag = OKC_API.G_TRUE AND p_qhr_id IS NOT NULL AND p_qhr_id <> OKC_API.G_MISS_NUM AND
998: NVL(p_line_inf_tab(i).line_type, OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
999: -- get PRICE ADJUSTMENTS information from ASO tables
1000: --get_patv_tab stores it's output in g_patv_tab
1001: get_patv_tab(p_chr_id => p_chr_id,
994:
995: i := p_line_inf_tab.FIRST;
996: WHILE i IS NOT NULL LOOP
997: IF p_q_flag = OKC_API.G_TRUE AND p_qhr_id IS NOT NULL AND p_qhr_id <> OKC_API.G_MISS_NUM AND
998: NVL(p_line_inf_tab(i).line_type, OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
999: -- get PRICE ADJUSTMENTS information from ASO tables
1000: --get_patv_tab stores it's output in g_patv_tab
1001: get_patv_tab(p_chr_id => p_chr_id,
1002: p_q_flag => p_q_flag,
1003: p_qhr_id => p_qhr_id,
1004: p_cle_id => p_line_inf_tab(i).cle_id,
1005: p_qle_id => p_line_inf_tab(i).object1_id1
1006: );
1007: ELSIF p_o_flag = OKC_API.G_TRUE AND p_ohr_id IS NOT NULL AND p_ohr_id <> OKC_API.G_MISS_NUM AND
1008: NVL(p_line_inf_tab(i).line_type, OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
1009: --get PRICE ADJUSTMENTS information from ONT tables
1010: --get_patv_tab stores it's output in g_patv_tab
1011: get_patv_tab(p_chr_id => p_chr_id,
1004: p_cle_id => p_line_inf_tab(i).cle_id,
1005: p_qle_id => p_line_inf_tab(i).object1_id1
1006: );
1007: ELSIF p_o_flag = OKC_API.G_TRUE AND p_ohr_id IS NOT NULL AND p_ohr_id <> OKC_API.G_MISS_NUM AND
1008: NVL(p_line_inf_tab(i).line_type, OKC_API.G_MISS_CHAR) <> OKC_OC_INT_CONFIG_PVT.G_MODEL_LINE THEN
1009: --get PRICE ADJUSTMENTS information from ONT tables
1010: --get_patv_tab stores it's output in g_patv_tab
1011: get_patv_tab(p_chr_id => p_chr_id,
1012: p_o_flag => p_o_flag,
1031: IF (l_debug = 'Y') THEN
1032: OKC_UTIL.print_trace(3,SQLERRM);
1033: END IF;
1034: -- Bug#2320635
1035: OKC_API.set_message(G_APP_NAME,
1036: G_UNEXPECTED_ERROR,
1037: G_SQLCODE_TOKEN,
1038: SQLCODE,
1039: G_SQLERRM_TOKEN,
1037: G_SQLCODE_TOKEN,
1038: SQLCODE,
1039: G_SQLERRM_TOKEN,
1040: SQLERRM);
1041: RAISE OKC_API.G_EXCEPTION_ERROR;
1042:
1043: END get_price_adj;
1044: ---------------------------------------------------------------------------
1045:
1060: i BINARY_INTEGER;
1061:
1062: x_pacv_tbl OKC_PRICE_ADJUSTMENT_PUB.pacv_tbl_type;
1063:
1064: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1065: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
1066:
1067: BEGIN
1068:
1061:
1062: x_pacv_tbl OKC_PRICE_ADJUSTMENT_PUB.pacv_tbl_type;
1063:
1064: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1065: l_new_pat_id NUMBER := OKC_API.G_MISS_NUM;
1066:
1067: BEGIN
1068:
1069: IF (l_debug = 'Y') THEN
1102: IF (l_debug = 'Y') THEN
1103: OKC_UTIL.print_trace(3,SQLERRM);
1104: END IF;
1105: -- Bug#2320635
1106: OKC_API.set_message(G_APP_NAME,
1107: G_UNEXPECTED_ERROR,
1108: G_SQLCODE_TOKEN,
1109: SQLCODE,
1110: G_SQLERRM_TOKEN,
1108: G_SQLCODE_TOKEN,
1109: SQLCODE,
1110: G_SQLERRM_TOKEN,
1111: SQLERRM);
1112: RAISE OKC_API.G_EXCEPTION_ERROR;
1113: END get_price_adj_rltship;
1114:
1115: ----------------------------------------------------------------
1116: --put PRICE ADJUSTMENT ATTRIBUTES FROM ASO or ONT into OKC
1159: IF (l_debug = 'Y') THEN
1160: OKC_UTIL.print_trace(3,SQLERRM);
1161: END IF;
1162: -- Bug#2320635
1163: OKC_API.set_message(G_APP_NAME,
1164: G_UNEXPECTED_ERROR,
1165: G_SQLCODE_TOKEN,
1166: SQLCODE,
1167: G_SQLERRM_TOKEN,
1165: G_SQLCODE_TOKEN,
1166: SQLCODE,
1167: G_SQLERRM_TOKEN,
1168: SQLERRM);
1169: RAISE OKC_API.G_EXCEPTION_ERROR;
1170: END get_price_adj_attr;
1171:
1172:
1173: ----------------------------------------------------------------------------
1269: pa.rebate_transaction_type_code rebate_transaction_type_code
1270: FROM okx_qte_prc_adjmnts_v pa,
1271: qp_list_lines ql,
1272: qp_list_headers_b qh
1273: WHERE cp_q_flag = OKC_API.G_TRUE
1274: AND pa.quote_header_id = cp_qhr_id
1275: AND pa.modifier_line_type_code <> 'FREIGHT_CHARGE' -- Bug 2054770
1276: AND ((cp_qle_id = OKC_API.G_MISS_NUM AND pa.quote_line_id IS NULL) OR
1277: (cp_qle_id <> OKC_API.G_MISS_NUM AND pa.quote_line_id = cp_qle_id))
1272: qp_list_headers_b qh
1273: WHERE cp_q_flag = OKC_API.G_TRUE
1274: AND pa.quote_header_id = cp_qhr_id
1275: AND pa.modifier_line_type_code <> 'FREIGHT_CHARGE' -- Bug 2054770
1276: AND ((cp_qle_id = OKC_API.G_MISS_NUM AND pa.quote_line_id IS NULL) OR
1277: (cp_qle_id <> OKC_API.G_MISS_NUM AND pa.quote_line_id = cp_qle_id))
1278: AND pa.modifier_header_id = qh.list_header_id
1279: AND pa.modifier_line_id = ql.list_line_id
1280: AND ( pa.applied_flag IS NULL OR pa.applied_flag = 'Y' ) -- Bug 2801279
1273: WHERE cp_q_flag = OKC_API.G_TRUE
1274: AND pa.quote_header_id = cp_qhr_id
1275: AND pa.modifier_line_type_code <> 'FREIGHT_CHARGE' -- Bug 2054770
1276: AND ((cp_qle_id = OKC_API.G_MISS_NUM AND pa.quote_line_id IS NULL) OR
1277: (cp_qle_id <> OKC_API.G_MISS_NUM AND pa.quote_line_id = cp_qle_id))
1278: AND pa.modifier_header_id = qh.list_header_id
1279: AND pa.modifier_line_id = ql.list_line_id
1280: AND ( pa.applied_flag IS NULL OR pa.applied_flag = 'Y' ) -- Bug 2801279
1281:
1339: pa.rebate_transaction_type_code
1340: FROM okx_ord_prc_adjmnts_v pa,
1341: qp_list_lines ql,
1342: qp_list_headers_b qh
1343: WHERE cp_o_flag = OKC_API.G_TRUE
1344: AND pa.header_id = cp_ohr_id
1345: AND pa.list_line_type_code <> 'FREIGHT_CHARGE' -- Bug 2054770
1346: AND ((cp_ole_id = OKC_API.G_MISS_NUM AND pa.line_id IS NULL) OR
1347: (cp_ole_id <> OKC_API.G_MISS_NUM AND pa.line_id = cp_ole_id))
1342: qp_list_headers_b qh
1343: WHERE cp_o_flag = OKC_API.G_TRUE
1344: AND pa.header_id = cp_ohr_id
1345: AND pa.list_line_type_code <> 'FREIGHT_CHARGE' -- Bug 2054770
1346: AND ((cp_ole_id = OKC_API.G_MISS_NUM AND pa.line_id IS NULL) OR
1347: (cp_ole_id <> OKC_API.G_MISS_NUM AND pa.line_id = cp_ole_id))
1348: AND pa.list_header_id = qh.list_header_id
1349: AND pa.list_line_id = ql.list_line_id ;
1350:
1343: WHERE cp_o_flag = OKC_API.G_TRUE
1344: AND pa.header_id = cp_ohr_id
1345: AND pa.list_line_type_code <> 'FREIGHT_CHARGE' -- Bug 2054770
1346: AND ((cp_ole_id = OKC_API.G_MISS_NUM AND pa.line_id IS NULL) OR
1347: (cp_ole_id <> OKC_API.G_MISS_NUM AND pa.line_id = cp_ole_id))
1348: AND pa.list_header_id = qh.list_header_id
1349: AND pa.list_line_id = ql.list_line_id ;
1350:
1351: l_source_patv_rec c_source_patv_rec%ROWTYPE;
1360: OKC_UTIL.print_trace(4, 'Order Id - '|| p_ohr_id);
1361: OKC_UTIL.print_trace(4, 'Order Line Id - '|| p_ole_id);
1362: END IF;
1363:
1364: IF (p_q_flag = OKC_API.G_TRUE AND
1365: p_qhr_id IS NOT NULL AND
1366: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1367: IF (l_debug = 'Y') THEN
1368: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1362: END IF;
1363:
1364: IF (p_q_flag = OKC_API.G_TRUE AND
1365: p_qhr_id IS NOT NULL AND
1366: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1367: IF (l_debug = 'Y') THEN
1368: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1369: END IF;
1370: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1366: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1367: IF (l_debug = 'Y') THEN
1368: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1369: END IF;
1370: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1371: p_ohr_id IS NOT NULL AND
1372: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
1373: IF (l_debug = 'Y') THEN
1374: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
1368: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1369: END IF;
1370: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1371: p_ohr_id IS NOT NULL AND
1372: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
1373: IF (l_debug = 'Y') THEN
1374: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
1375: END IF;
1376: END IF;
1468:
1469:
1470: ------IF l_no_data_found THEN
1471: ------- OKC_UTIL.print_trace(4, 'END --> get_patv_tab: returned error- ');
1472: -------- RAISE OKC_API.G_EXCEPTION_ERROR;
1473: ------ELSE
1474: IF (l_debug = 'Y') THEN
1475: OKC_UTIL.print_trace(4, 'Output: PL/SQL global table- g_patv_tab');
1476: OKC_UTIL.print_trace(4, 'END --> get_patv_tab- ');
1482: IF (l_debug = 'Y') THEN
1483: OKC_UTIL.print_trace(4,SQLERRM);
1484: END IF;
1485: -- Bug#2320635
1486: OKC_API.set_message(G_APP_NAME,
1487: G_UNEXPECTED_ERROR,
1488: G_SQLCODE_TOKEN,
1489: SQLCODE,
1490: G_SQLERRM_TOKEN,
1491: SQLERRM);
1492: IF c_source_patv_rec%ISOPEN THEN
1493: CLOSE c_source_patv_rec;
1494: END IF;
1495: RAISE OKC_API.G_EXCEPTION_ERROR;
1496: END get_patv_tab;
1497:
1498: ---------------------------------------------------------------
1499: -- PROCEDURE to get PRICE ADJUSTMENT RELATIONSHIP information
1536: rltd_price_adj_id,
1537: quote_line_id source_line_id,
1538: object_version_number
1539: FROM okx_qte_prc_adj_rlshp_v
1540: WHERE cp_q_flag = OKC_API.G_TRUE
1541: AND price_adjustment_id = cp_old_pat_id
1542:
1543: UNION ALL
1544:
1548: rltd_price_adj_id,
1549: line_id source_line_id,
1550: TO_NUMBER(NULL) ----object_version_number --not in order table
1551: FROM okx_ord_prc_adj_rlshp_v
1552: WHERE cp_o_flag = OKC_API.G_TRUE
1553: AND price_adjustment_id = cp_old_pat_id;
1554:
1555: l_source_pacv_rec c_source_pacv_rec%ROWTYPE;
1556:
1568: OKC_UTIL.print_trace(4, 'p_line_inf_tab: PL/SQL global table of contract lines against related quote or order lines');
1569: END IF;
1570:
1571:
1572: IF (p_q_flag = OKC_API.G_TRUE AND
1573: p_qhr_id IS NOT NULL AND
1574: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1575: IF (l_debug = 'Y') THEN
1576: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1570:
1571:
1572: IF (p_q_flag = OKC_API.G_TRUE AND
1573: p_qhr_id IS NOT NULL AND
1574: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1575: IF (l_debug = 'Y') THEN
1576: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1577: END IF;
1578: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1574: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1575: IF (l_debug = 'Y') THEN
1576: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1577: END IF;
1578: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1579: p_ohr_id IS NOT NULL AND
1580: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
1581: IF (l_debug = 'Y') THEN
1582: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
1576: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1577: END IF;
1578: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1579: p_ohr_id IS NOT NULL AND
1580: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
1581: IF (l_debug = 'Y') THEN
1582: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
1583: END IF;
1584: END IF;
1651:
1652:
1653: --------IF l_no_data_found THEN
1654: ------OKC_UTIL.print_trace(4, 'END --> get_pacv_tab: returned error- ');
1655: ------ RAISE OKC_API.G_EXCEPTION_ERROR;
1656: --------ELSE
1657: IF (l_debug = 'Y') THEN
1658: OKC_UTIL.print_trace(4, 'Output: PL/SQL global table- g_pacv_tab');
1659: OKC_UTIL.print_trace(4, 'END --> get_pacv_tab- ');
1666: IF (l_debug = 'Y') THEN
1667: OKC_UTIL.print_trace(4,SQLERRM);
1668: END IF;
1669: -- Bug#2320635
1670: OKC_API.set_message(G_APP_NAME,
1671: G_UNEXPECTED_ERROR,
1672: G_SQLCODE_TOKEN,
1673: SQLCODE,
1674: G_SQLERRM_TOKEN,
1675: SQLERRM);
1676: IF c_source_pacv_rec%ISOPEN THEN
1677: CLOSE c_source_pacv_rec;
1678: END IF;
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END get_pacv_tab;
1681:
1682:
1683: -----------------------------------------------------------------------------
1714: pricing_attr_value_to,
1715: comparison_operator,
1716: object_version_number
1717: FROM okx_qte_prc_adj_atrbs_v
1718: WHERE cp_q_flag = OKC_API.G_TRUE
1719: AND price_adjustment_id = cp_old_pat_id
1720:
1721: UNION ALL
1722:
1729: pricing_attr_value_to,
1730: comparison_operator,
1731: TO_NUMBER(NULL) ---object_version_number not in order table
1732: FROM okx_ord_prc_adj_atrbs_v
1733: WHERE cp_o_flag = OKC_API.G_TRUE
1734: AND price_adjustment_id = cp_old_pat_id;
1735:
1736: l_source_paav_rec c_source_paav_rec%ROWTYPE;
1737:
1745: OKC_UTIL.print_trace(4, 'Order Id - '|| p_ohr_id);
1746: END IF;
1747:
1748:
1749: IF (p_q_flag = OKC_API.G_TRUE AND
1750: p_qhr_id IS NOT NULL AND
1751: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1752: IF (l_debug = 'Y') THEN
1753: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1747:
1748:
1749: IF (p_q_flag = OKC_API.G_TRUE AND
1750: p_qhr_id IS NOT NULL AND
1751: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1752: IF (l_debug = 'Y') THEN
1753: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1754: END IF;
1755: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1751: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
1752: IF (l_debug = 'Y') THEN
1753: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1754: END IF;
1755: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1756: p_ohr_id IS NOT NULL AND
1757: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
1758: IF (l_debug = 'Y') THEN
1759: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
1753: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
1754: END IF;
1755: ELSIF (p_o_flag = OKC_API.G_TRUE AND
1756: p_ohr_id IS NOT NULL AND
1757: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
1758: IF (l_debug = 'Y') THEN
1759: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
1760: END IF;
1761: END IF;
1774: -- we don't need to enter the ID because
1775: -- it is automatically generated
1776: g_paav_tab(i).PAT_ID := p_new_pat_id;
1777:
1778: IF l_source_paav_rec.flex_title IS NULL OR l_source_paav_rec.flex_title = OKC_API.G_MISS_CHAR THEN
1779: g_paav_tab(i).FLEX_TITLE := 'QP_ATTR_DEFNS_PRICING';
1780: ELSE
1781: g_paav_tab(i).FLEX_TITLE := l_source_paav_rec.flex_title;
1782: END IF;
1801:
1802:
1803: -----------IF l_no_data_found THEN
1804: ---------OKC_UTIL.print_trace(4, 'END --> get_paav_tab: returned error- ');
1805: ---------- RAISE OKC_API.G_EXCEPTION_ERROR;
1806: ----------ELSE
1807: IF (l_debug = 'Y') THEN
1808: OKC_UTIL.print_trace(4, 'Output: PL/SQL global table- g_paav_tab');
1809: OKC_UTIL.print_trace(4, 'END --> get_paav_tab- ');
1816: IF (l_debug = 'Y') THEN
1817: OKC_UTIL.print_trace(4,SQLERRM);
1818: END IF;
1819: -- Bug#2320635
1820: OKC_API.set_message(G_APP_NAME,
1821: G_UNEXPECTED_ERROR,
1822: G_SQLCODE_TOKEN,
1823: SQLCODE,
1824: G_SQLERRM_TOKEN,
1825: SQLERRM);
1826: IF c_source_paav_rec%ISOPEN THEN
1827: CLOSE c_source_paav_rec;
1828: END IF;
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END get_paav_tab;
1831:
1832:
1833: ----------------------------------------------------------------------
1992: attribute14,
1993: attribute15,
1994: object_version_number
1995: FROM okx_qte_prc_atrbs_v
1996: WHERE cp_q_flag = OKC_API.G_TRUE
1997: AND quote_header_id = cp_qhr_id
1998: AND ((cp_qle_id = OKC_API.G_MISS_NUM AND quote_line_id IS NULL) OR
1999: (cp_qle_id <> OKC_API.G_MISS_NUM AND quote_line_id = cp_qle_id))
2000:
1994: object_version_number
1995: FROM okx_qte_prc_atrbs_v
1996: WHERE cp_q_flag = OKC_API.G_TRUE
1997: AND quote_header_id = cp_qhr_id
1998: AND ((cp_qle_id = OKC_API.G_MISS_NUM AND quote_line_id IS NULL) OR
1999: (cp_qle_id <> OKC_API.G_MISS_NUM AND quote_line_id = cp_qle_id))
2000:
2001: UNION ALL
2002:
1995: FROM okx_qte_prc_atrbs_v
1996: WHERE cp_q_flag = OKC_API.G_TRUE
1997: AND quote_header_id = cp_qhr_id
1998: AND ((cp_qle_id = OKC_API.G_MISS_NUM AND quote_line_id IS NULL) OR
1999: (cp_qle_id <> OKC_API.G_MISS_NUM AND quote_line_id = cp_qle_id))
2000:
2001: UNION ALL
2002:
2003: -- second query to get okx_ord_prc_atrbs_v information
2122: attribute14,
2123: attribute15,
2124: TO_NUMBER(NULL) --object_version_number not present in order table
2125: FROM okx_ord_prc_atrbs_v
2126: WHERE cp_o_flag = OKC_API.G_TRUE
2127: AND header_id = cp_ohr_id
2128: AND ((cp_ole_id = OKC_API.G_MISS_NUM AND line_id IS NULL) OR
2129: (cp_ole_id <> OKC_API.G_MISS_NUM AND line_id = cp_ole_id));
2130:
2124: TO_NUMBER(NULL) --object_version_number not present in order table
2125: FROM okx_ord_prc_atrbs_v
2126: WHERE cp_o_flag = OKC_API.G_TRUE
2127: AND header_id = cp_ohr_id
2128: AND ((cp_ole_id = OKC_API.G_MISS_NUM AND line_id IS NULL) OR
2129: (cp_ole_id <> OKC_API.G_MISS_NUM AND line_id = cp_ole_id));
2130:
2131: l_source_pavv_rec c_source_pavv_rec%ROWTYPE;
2132:
2125: FROM okx_ord_prc_atrbs_v
2126: WHERE cp_o_flag = OKC_API.G_TRUE
2127: AND header_id = cp_ohr_id
2128: AND ((cp_ole_id = OKC_API.G_MISS_NUM AND line_id IS NULL) OR
2129: (cp_ole_id <> OKC_API.G_MISS_NUM AND line_id = cp_ole_id));
2130:
2131: l_source_pavv_rec c_source_pavv_rec%ROWTYPE;
2132:
2133: BEGIN
2142: OKC_UTIL.print_trace(4, 'Order Line Id - '|| p_ole_id);
2143: END IF;
2144:
2145:
2146: IF (p_q_flag = OKC_API.G_TRUE AND
2147: p_qhr_id IS NOT NULL AND
2148: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
2149: IF (l_debug = 'Y') THEN
2150: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
2144:
2145:
2146: IF (p_q_flag = OKC_API.G_TRUE AND
2147: p_qhr_id IS NOT NULL AND
2148: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
2149: IF (l_debug = 'Y') THEN
2150: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
2151: END IF;
2152: ELSIF (p_o_flag = OKC_API.G_TRUE AND
2148: p_qhr_id <> OKC_API.G_MISS_NUM) THEN
2149: IF (l_debug = 'Y') THEN
2150: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
2151: END IF;
2152: ELSIF (p_o_flag = OKC_API.G_TRUE AND
2153: p_ohr_id IS NOT NULL AND
2154: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
2155: IF (l_debug = 'Y') THEN
2156: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
2150: OKC_UTIL.print_trace(4, 'Processing quote pricing information for Quote Id - '|| p_qhr_id);
2151: END IF;
2152: ELSIF (p_o_flag = OKC_API.G_TRUE AND
2153: p_ohr_id IS NOT NULL AND
2154: p_ohr_id <> OKC_API.G_MISS_NUM) THEN
2155: IF (l_debug = 'Y') THEN
2156: OKC_UTIL.print_trace(4, 'Processing order pricing information for Order Id - '|| p_ohr_id);
2157: END IF;
2158: END IF;
2182: IF l_source_pavv_rec.source_line_id IS NOT NULL THEN --quote or order
2183: g_pavv_tab(i).CLE_ID := p_cle_id;
2184: END IF;
2185:
2186: IF l_source_pavv_rec.flex_title IS NULL OR l_source_pavv_rec.flex_title = OKC_API.G_MISS_CHAR THEN
2187: IF l_source_pavv_rec.pricing_context IS NOT NULL OR l_source_pavv_rec.pricing_context <> OKC_API.G_MISS_CHAR THEN
2188: g_pavv_tab(i).FLEX_TITLE := 'QP_ATTR_DEFNS_PRICING';
2189: END IF;
2190: IF l_source_pavv_rec.CONTEXT IS NOT NULL OR l_source_pavv_rec.CONTEXT <> OKC_API.G_MISS_CHAR THEN
2183: g_pavv_tab(i).CLE_ID := p_cle_id;
2184: END IF;
2185:
2186: IF l_source_pavv_rec.flex_title IS NULL OR l_source_pavv_rec.flex_title = OKC_API.G_MISS_CHAR THEN
2187: IF l_source_pavv_rec.pricing_context IS NOT NULL OR l_source_pavv_rec.pricing_context <> OKC_API.G_MISS_CHAR THEN
2188: g_pavv_tab(i).FLEX_TITLE := 'QP_ATTR_DEFNS_PRICING';
2189: END IF;
2190: IF l_source_pavv_rec.CONTEXT IS NOT NULL OR l_source_pavv_rec.CONTEXT <> OKC_API.G_MISS_CHAR THEN
2191: g_pavv_tab(i).FLEX_TITLE := 'QP_ATTR_DEFNS_QUALIFIER';
2186: IF l_source_pavv_rec.flex_title IS NULL OR l_source_pavv_rec.flex_title = OKC_API.G_MISS_CHAR THEN
2187: IF l_source_pavv_rec.pricing_context IS NOT NULL OR l_source_pavv_rec.pricing_context <> OKC_API.G_MISS_CHAR THEN
2188: g_pavv_tab(i).FLEX_TITLE := 'QP_ATTR_DEFNS_PRICING';
2189: END IF;
2190: IF l_source_pavv_rec.CONTEXT IS NOT NULL OR l_source_pavv_rec.CONTEXT <> OKC_API.G_MISS_CHAR THEN
2191: g_pavv_tab(i).FLEX_TITLE := 'QP_ATTR_DEFNS_QUALIFIER';
2192: END IF;
2193: ELSE
2194: g_pavv_tab(i).FLEX_TITLE := l_source_pavv_rec.flex_title;
2322:
2323:
2324: --IF l_no_data_found THEN
2325: -- OKC_UTIL.print_trace(4, 'END --> get_pavv_tab: returned error- ');
2326: -- RAISE OKC_API.G_EXCEPTION_ERROR;
2327: --ELSE
2328: IF (l_debug = 'Y') THEN
2329: OKC_UTIL.print_trace(4, 'Output: PL/SQL global table- g_pavv_tab');
2330: OKC_UTIL.print_trace(4, 'END --> get_pavv_tab- ');
2336: IF (l_debug = 'Y') THEN
2337: OKC_UTIL.print_trace(4,SQLERRM);
2338: END IF;
2339: -- Bug#2320635
2340: OKC_API.set_message(G_APP_NAME,
2341: G_UNEXPECTED_ERROR,
2342: G_SQLCODE_TOKEN,
2343: SQLCODE,
2344: G_SQLERRM_TOKEN,
2345: SQLERRM);
2346: IF c_source_pavv_rec%ISOPEN THEN
2347: CLOSE c_source_pavv_rec;
2348: END IF;
2349: RAISE OKC_API.G_EXCEPTION_ERROR;
2350: END get_pavv_tab;
2351: ----------------------------------------------------------------------------
2352: /************************************************************************
2353: ************************************************************************
2395: qpadj.PRICE_ADJUSTMENT_ID -- quote(header or line) price adj ID
2396: FROM
2397: OKX_QTE_PRC_ADJMNTS_V qpadj
2398: WHERE
2399: b_q_flag = OKC_API.G_TRUE
2400: AND qpadj.quote_header_id = b_qh_id
2401: AND ((b_ql_id IS NULL AND qpadj.quote_line_id IS NULL) OR
2402: (b_ql_id IS NOT NULL AND qpadj.quote_line_id=b_ql_id))
2403:
2407: PRICE_ADJUSTMENT_ID -- quote(header or line) price adj ID
2408: FROM
2409: OKX_ORD_PRC_ADJMNTS_V opadj
2410: WHERE
2411: b_o_flag = OKC_API.G_TRUE
2412: AND opadj.header_id = b_oh_id
2413: AND ((b_ol_id IS NULL AND opadj.line_id IS NULL) OR
2414: (b_ol_id IS NOT NULL AND opadj.line_id=b_ol_id));
2415:
2487: FROM
2488: OKC_PRICE_ADJUSTMENTS kpadj,
2489: OKX_QTE_PRC_ADJMNTS_V qpadj
2490: WHERE
2491: b_q_flag = OKC_API.g_true
2492: AND (kpadj.chr_id = b_kh_id)
2493: AND ((b_kl_id IS NULL and kpadj.cle_id IS NULL ) OR (b_kl_id IS NOT NULL AND kpadj.cle_id = b_kl_id))
2494: --
2495: AND (qpadj.quote_header_id(+) = b_qh_id)
2567: FROM
2568: OKC_PRICE_ADJUSTMENTS kpadj,
2569: OKX_ORD_PRC_ADJMNTS_V opadj
2570: WHERE
2571: b_o_flag = OKC_API.g_true
2572: AND (kpadj.chr_id = b_kh_id)
2573: AND ((b_kl_id IS NULL and kpadj.cle_id IS NULL ) OR (b_kl_id IS NOT NULL AND kpadj.cle_id = b_kl_id))
2574: --
2575: AND (opadj.header_id(+) = b_oh_id)
2591:
2592: -- Variables
2593: --
2594: l_prec_okc_price_adj_id okc_price_adjustments.id%TYPE ;
2595: l_prec_prc_adj_procesd VARCHAR2(1) := OKC_API.G_FALSE;
2596: g_miss_price_adj_rec c_k_price_adj%ROWTYPE;
2597: l_prec_price_adj_rec c_k_price_adj%ROWTYPE := g_miss_price_adj_rec;
2598: l_price_adj_insert VARCHAR2(1) := OKC_API.G_TRUE;
2599:
2594: l_prec_okc_price_adj_id okc_price_adjustments.id%TYPE ;
2595: l_prec_prc_adj_procesd VARCHAR2(1) := OKC_API.G_FALSE;
2596: g_miss_price_adj_rec c_k_price_adj%ROWTYPE;
2597: l_prec_price_adj_rec c_k_price_adj%ROWTYPE := g_miss_price_adj_rec;
2598: l_price_adj_insert VARCHAR2(1) := OKC_API.G_TRUE;
2599:
2600: l_price_adj_rec ASO_QUOTE_PUB.price_adj_rec_type;
2601: l_price_adj_tab ASO_QUOTE_PUB.price_adj_tbl_type;
2602: l_k_tmp_price_adj_tab k_price_adj_tab_type;
2666: -----------------------------------------------------------------------------------------------
2667: FOR price_adj_rec IN c_k_price_adj(p_chr_id, p_cle_id,
2668: p_q_flag,p_qhr_id ,p_qle_id,
2669: p_o_flag,p_ohr_id,p_ole_id) LOOP
2670: l_price_adj_insert := OKC_API.G_TRUE;
2671:
2672: IF price_adj_rec.operation_code = g_aso_op_code_create THEN
2673:
2674: IF (l_debug = 'Y') THEN
2739: -- related quote line has to be created
2740: l_price_adj_rec.quote_header_id := p_nqhr_id;
2741: l_price_adj_rec.qte_line_index := p_nqle_idx;
2742: END IF;
2743: l_price_adj_rec.price_adjustment_id := OKC_API.G_MISS_NUM;
2744: END IF;
2745:
2746: IF price_adj_rec.operation_code = g_aso_op_code_update THEN
2747: IF (l_debug = 'Y') THEN
2756: IF l_price_adj_tab(i).price_adjustment_id = price_adj_rec.price_adjustment_id THEN
2757: IF (l_debug = 'Y') THEN
2758: okc_util.print_trace(1,'step 1-3 related quote price adjustment is already planned to be updated');
2759: END IF;
2760: l_price_adj_insert := OKC_API.G_FALSE;
2761: exit;
2762: END IF;
2763: END LOOP;
2764: END IF;
2766: -- current contract price adjustment matches with multiple quote price adjustments
2767: -- and will be disregarded if already processed or if related quote price adjustment is
2768: -- not already planned to be updated in the l_price_adj_tab variable.
2769: --
2770: IF l_prec_prc_adj_procesd = OKC_API.G_TRUE THEN
2771: l_price_adj_insert := OKC_API.G_FALSE;
2772: l_prec_prc_adj_procesd := OKC_API.G_FALSE;
2773: ELSE
2774: IF l_price_adj_tab.first IS NOT NULL THEN
2767: -- and will be disregarded if already processed or if related quote price adjustment is
2768: -- not already planned to be updated in the l_price_adj_tab variable.
2769: --
2770: IF l_prec_prc_adj_procesd = OKC_API.G_TRUE THEN
2771: l_price_adj_insert := OKC_API.G_FALSE;
2772: l_prec_prc_adj_procesd := OKC_API.G_FALSE;
2773: ELSE
2774: IF l_price_adj_tab.first IS NOT NULL THEN
2775: FOR i IN l_price_adj_tab.first..l_price_adj_tab.last LOOP
2768: -- not already planned to be updated in the l_price_adj_tab variable.
2769: --
2770: IF l_prec_prc_adj_procesd = OKC_API.G_TRUE THEN
2771: l_price_adj_insert := OKC_API.G_FALSE;
2772: l_prec_prc_adj_procesd := OKC_API.G_FALSE;
2773: ELSE
2774: IF l_price_adj_tab.first IS NOT NULL THEN
2775: FOR i IN l_price_adj_tab.first..l_price_adj_tab.last LOOP
2776: IF l_price_adj_tab(i).price_adjustment_id = price_adj_rec.price_adjustment_id THEN
2773: ELSE
2774: IF l_price_adj_tab.first IS NOT NULL THEN
2775: FOR i IN l_price_adj_tab.first..l_price_adj_tab.last LOOP
2776: IF l_price_adj_tab(i).price_adjustment_id = price_adj_rec.price_adjustment_id THEN
2777: l_price_adj_insert := OKC_API.G_FALSE;
2778: IF (l_debug = 'Y') THEN
2779: okc_util.print_trace(1,'step 1-4 checking ctrct pr adj with multiple qte prc adj');
2780: END IF;
2781: exit;
2781: exit;
2782: END IF;
2783: END LOOP;
2784: END IF;
2785: END IF; -- IF l_prec_prc_adj_procesd := okc_api.g_true then..
2786: END IF; -- IF l_prec_okc_price_adj_id <> price_adj_rec.id and ..
2787:
2788: IF NVL(l_prec_okc_price_adj_id,0) <> price_adj_rec.id THEN
2789: IF l_prec_okc_price_adj_id IS NOT NULL AND l_prec_prc_adj_procesd = OKC_API.G_FALSE THEN
2785: END IF; -- IF l_prec_prc_adj_procesd := okc_api.g_true then..
2786: END IF; -- IF l_prec_okc_price_adj_id <> price_adj_rec.id and ..
2787:
2788: IF NVL(l_prec_okc_price_adj_id,0) <> price_adj_rec.id THEN
2789: IF l_prec_okc_price_adj_id IS NOT NULL AND l_prec_prc_adj_procesd = OKC_API.G_FALSE THEN
2790: -- Populate l_price_adj_rec with information from l_prec_price_adj_rec;
2791:
2792:
2793: l_price_adj_rec.modifier_mechanism_type_code := l_prec_price_adj_rec.modifier_mechanism_type_code;
2845:
2846: l_price_adj_rec.operation_code := g_aso_op_code_create;
2847: l_price_adj_rec.quote_header_id := p_qhr_id;
2848: l_price_adj_rec.quote_line_id := p_qle_id;
2849: l_price_adj_rec.price_adjustment_id := OKC_API.G_MISS_NUM;
2850:
2851: l_price_adj_tab(x) := l_price_adj_rec;
2852: x := x + 1;
2853: --
2854: l_k_tmp_price_adj_tab(y).id := l_prec_price_adj_rec.id;
2855: l_k_tmp_price_adj_tab(y).level := p_level;
2856: y := y + 1;
2857:
2858: l_prec_prc_adj_procesd := okc_api.g_true;
2859: END IF;
2860: l_prec_okc_price_adj_id := price_adj_rec.id;
2861: l_prec_prc_adj_procesd := OKC_API.G_FALSE;
2862: END IF;
2857:
2858: l_prec_prc_adj_procesd := okc_api.g_true;
2859: END IF;
2860: l_prec_okc_price_adj_id := price_adj_rec.id;
2861: l_prec_prc_adj_procesd := OKC_API.G_FALSE;
2862: END IF;
2863:
2864: IF l_price_adj_insert = OKC_API.G_TRUE THEN
2865: l_price_adj_rec.quote_header_id := p_qhr_id;
2860: l_prec_okc_price_adj_id := price_adj_rec.id;
2861: l_prec_prc_adj_procesd := OKC_API.G_FALSE;
2862: END IF;
2863:
2864: IF l_price_adj_insert = OKC_API.G_TRUE THEN
2865: l_price_adj_rec.quote_header_id := p_qhr_id;
2866: l_price_adj_rec.quote_line_id := p_qle_id;
2867:
2868: l_price_adj_rec.operation_code := price_adj_rec.operation_code;
2922: END IF;
2923: END IF; -- IF price_adj_rec.operation_code = 'UPADTE' then...
2924:
2925:
2926: IF l_price_adj_insert = OKC_API.G_TRUE THEN
2927:
2928: l_price_adj_tab(x) := l_price_adj_rec;
2929:
2930: IF (l_debug = 'Y') THEN
2996: l_k_tmp_price_adj_tab(y).id := price_adj_rec.id;
2997: l_k_tmp_price_adj_tab(y).level := p_level;
2998: y := y + 1;
2999: --
3000: l_prec_prc_adj_procesd := OKC_API.G_TRUE;
3001: END IF;
3002:
3003: l_prec_price_adj_rec := price_adj_rec;
3004:
3007: -- Case of a new occurance of an existing price adjustment, not processed before because
3008: -- the related quote price adjustments have already been marked to be processed.
3009:
3010: IF l_prec_price_adj_rec.operation_code = g_aso_op_code_update AND
3011: l_prec_okc_price_adj_id IS NOT NULL AND l_prec_prc_adj_procesd = OKC_API.G_FALSE THEN
3012: -- populate l_price_adj_rec with infomation from l_prec_price_adj_rec;
3013:
3014: l_price_adj_rec.modifier_mechanism_type_code := l_prec_price_adj_rec.modifier_mechanism_type_code;
3015: l_price_adj_rec.modified_from := l_prec_price_adj_rec.modified_from;
3065:
3066: l_price_adj_rec.operation_code := g_aso_op_code_create;
3067: l_price_adj_rec.quote_header_id := p_qhr_id;
3068: l_price_adj_rec.quote_line_id := p_qle_id;
3069: l_price_adj_rec.price_adjustment_id := OKC_API.G_MISS_NUM;
3070: --
3071: l_price_adj_tab(x) := l_price_adj_rec;
3072: x:= x+1;
3073: --
3074: l_k_tmp_price_adj_tab(y).id := l_prec_price_adj_rec.id;
3075: l_k_tmp_price_adj_tab(y).level := p_level;
3076: y:=y+1;
3077:
3078: l_prec_prc_adj_procesd := OKC_API.G_TRUE;
3079: END IF;
3080: --
3081: --
3082: -- Fill in the l_price_adj_tab variable with price adjustment to be deleted.
3084:
3085: FOR l_price_adj IN c_price_adj(p_q_flag,p_qhr_id, p_qle_id,
3086: p_o_flag,p_ohr_id,p_ole_id) LOOP
3087:
3088: l_price_adj_insert := OKC_API.G_TRUE;
3089: --
3090: -- Need to check if the related quote price adjustment is not already planned to be updated
3091: -- in the l_price_adj_tab_variable
3092: --
3092: --
3093: IF l_price_adj_tab.FIRST IS NOT NULL THEN
3094: FOR i IN l_price_adj_tab.first..l_price_adj_tab.last LOOP
3095: IF l_price_adj_tab(i).price_adjustment_id = l_price_adj.price_adjustment_id THEN
3096: l_price_adj_insert := OKC_API.G_FALSE;
3097: exit;
3098: END IF;
3099: END LOOP;
3100: END IF;
3097: exit;
3098: END IF;
3099: END LOOP;
3100: END IF;
3101: IF l_price_adj_insert = OKC_API.G_TRUE THEN
3102: -- populate l_price_adj_rec with information from l_price_adj
3103: l_price_adj_rec.operation_code := g_aso_op_code_delete;
3104: l_price_adj_rec.quote_header_id := p_qhr_id;
3105: l_price_adj_rec.quote_line_id := p_qle_id;
3321: okc_util.print_trace(1,'inside get price adj: others exception');
3322: OKC_UTIL.print_trace(3,SQLERRM);
3323: END IF;
3324: -- Bug#2320635
3325: OKC_API.set_message(G_APP_NAME,
3326: G_UNEXPECTED_ERROR,
3327: G_SQLCODE_TOKEN,
3328: SQLCODE,
3329: G_SQLERRM_TOKEN,
3335: IF c_price_adj%ISOPEN THEN
3336: CLOSE c_price_adj;
3337: END IF;
3338:
3339: RAISE OKC_API.G_EXCEPTION_ERROR;
3340:
3341: END; --get_price_adj
3342:
3343: ----------------------------------------------------------------------------
3382: FROM
3383: okc_price_adj_attribs kpadj,
3384: OKX_QTE_PRC_ADJ_ATRBS_V qpadj
3385: WHERE
3386: b_q_flag = OKC_API.g_true
3387: AND kpadj.pat_id = b_kpat_id
3388: AND qpadj.price_adjustment_id(+) = b_pat_id
3389: AND qpadj.flex_title(+) =kpadj.flex_title
3390: AND qpadj.pricing_context(+)=kpadj.pricing_context
3406: FROM
3407: okc_price_adj_attribs kpadj,
3408: OKX_ORD_PRC_ADJ_ATRBS_V opadj
3409: WHERE
3410: b_o_flag = OKC_API.g_true
3411: AND kpadj.pat_id = b_kpat_id
3412: AND opadj.price_adjustment_id(+) = b_pat_id
3413: AND opadj.flex_title(+) =kpadj.flex_title
3414: AND opadj.pricing_context(+)=kpadj.pricing_context
3428: qpadj.pricing_attr_value_from,
3429: qpadj.pricing_attr_value_to,
3430: qpadj.comparison_operator
3431: FROM OKX_QTE_PRC_ADJ_ATRBS_V qpadj
3432: WHERE b_q_flag = OKC_API.g_true
3433: AND qpadj.price_adjustment_id = b_pat_id
3434:
3435: UNION
3436:
3443: opadj.pricing_attr_value_from,
3444: opadj.pricing_attr_value_to,
3445: opadj.comparison_operator
3446: FROM OKX_ORD_PRC_ADJ_ATRBS_V opadj
3447: WHERE b_o_flag = OKC_API.g_true
3448: AND opadj.price_adjustment_id = b_pat_id;
3449:
3450:
3451: -- variable declaration
3448: AND opadj.price_adjustment_id = b_pat_id;
3449:
3450:
3451: -- variable declaration
3452: l_price_adj_insert VARCHAR2(1) := OKC_API.G_TRUE;
3453: l_price_adj_attr_rec ASO_QUOTE_PUB.price_adj_attr_rec_type;
3454: l_price_adj_attr_tab ASO_QUOTE_PUB.price_adj_attr_tbl_type;
3455:
3456: x binary_integer;
3594: IF l_price_adj_attr_rec.operation_code = g_aso_op_code_create THEN
3595: IF (l_debug = 'Y') THEN
3596: okc_util.print_trace(1,'the operation code in c_k_price_adj_attr_u = '||price_adj_attr_rec.operation_code);
3597: END IF;
3598: l_price_adj_attr_rec.price_adj_attrib_id := OKC_API.G_MISS_NUM;
3599: END IF;
3600:
3601: IF (l_debug = 'Y') THEN
3602: okc_util.print_trace(1,'2- Inserting the l_price_adj_attr_rec into the l_price_adj_attr_rec table');
3620:
3621: END LOOP;
3622:
3623: FOR l_price_adj_attr IN c_price_adj_attr(p_q_flag,p_o_flag,p_price_adj_tab(i).price_adjustment_id) LOOP
3624: l_price_adj_insert := OKC_API.G_TRUE;
3625: --
3626: -- Need to check if the related quote price adj attribute is not already planned to be updated
3627: -- in the l_price_adj_attr_tab variable.
3628: --
3629: IF l_price_adj_attr_tab.first IS NOT NULL THEN
3630: FOR i IN l_price_adj_attr_tab.first..l_price_adj_attr_tab.last LOOP
3631: IF l_price_adj_attr_tab(i).price_adj_attrib_id = l_price_adj_attr.price_adj_attrib_id AND
3632: l_price_adj_attr_tab(i).price_adjustment_id = p_price_adj_tab(i).price_adjustment_id THEN
3633: l_price_adj_insert := OKC_API.G_FALSE;
3634: exit;
3635: END IF;
3636: END LOOP;
3637: END IF;
3635: END IF;
3636: END LOOP;
3637: END IF;
3638:
3639: IF l_price_adj_insert = OKC_API.G_TRUE THEN
3640: -- It should be inserted, but in fact no longer valid when coming back from the contract
3641: -- Populate l_price_adj_attr_rec with information from l_price_adj_attr.
3642:
3643: l_price_adj_attr_rec.price_adj_attrib_id:= l_price_adj_attr.price_adj_attrib_id;
3809: okc_util.print_trace(1,'Inside get price adj attributes others exception handler:');
3810: okc_util.print_trace(1,SQLERRM);
3811: END IF;
3812: -- Bug#2320635
3813: OKC_API.set_message(G_APP_NAME,
3814: G_UNEXPECTED_ERROR,
3815: G_SQLCODE_TOKEN,
3816: SQLCODE,
3817: G_SQLERRM_TOKEN,
3828: IF c_price_adj_attr%ISOPEN THEN
3829: CLOSE c_price_adj_attr;
3830: END IF;
3831:
3832: RAISE OKC_API.G_EXCEPTION_ERROR;
3833:
3834: END get_price_adj_attr;
3835:
3836:
3866: SELECT
3867: qpattr.PRICE_ATTRIBUTE_ID -- quote header price attribute id
3868: FROM
3869: OKX_QTE_PRC_ATRBS_V qpattr
3870: WHERE b_q_flag = OKC_API.G_TRUE
3871: AND qpattr.quote_header_id = b_qh_id
3872: AND (( b_ql_id IS NULL AND qpattr.quote_line_id IS NULL ) OR
3873: (b_ql_id IS NOT NULL AND qpattr.quote_line_id = b_ql_id ))
3874: UNION
3876: SELECT
3877: opattr.ORDER_PRICE_ATTRIB_ID -- order header price attribute id
3878: FROM
3879: OKX_ORD_PRC_ATRBS_V opattr
3880: WHERE b_o_flag = OKC_API.G_TRUE
3881: AND opattr.header_id = b_oh_id
3882: AND (( b_ol_id IS NULL AND opattr.line_id IS NULL ) OR
3883: (b_ol_id IS NOT NULL AND opattr.line_id = b_ol_id ));
3884:
4214: IF (l_debug = 'Y') THEN
4215: OKC_UTIL.print_trace(3,SQLERRM);
4216: END IF;
4217: -- Bug#2320635
4218: OKC_API.set_message(G_APP_NAME,
4219: G_UNEXPECTED_ERROR,
4220: G_SQLCODE_TOKEN,
4221: SQLCODE,
4222: G_SQLERRM_TOKEN,
4229: IF c_price_attr%ISOPEN THEN
4230: CLOSE c_price_attr;
4231: END IF;
4232:
4233: RAISE OKC_API.G_EXCEPTION_ERROR;
4234:
4235:
4236: END; -- get_price_attr
4237:
4273: qpadj.price_adjustment_id PRICE_ADJUSTMENT_ID,
4274: qpadj.quote_shipment_id SHIPMENT_ID,
4275: qpadj.quote_line_id LINE_ID
4276: FROM OKX_QTE_PRC_ADJ_RLSHP_V qpadj
4277: WHERE b_q_flag = OKC_API.g_true
4278: AND qpadj.rltd_price_adj_id = b_pat_id
4279:
4280: UNION
4281:
4284: opadj.price_adjustment_id,
4285: to_number(NULL), --qpadj.quote_shipment_id
4286: opadj.line_id
4287: FROM OKX_ORD_PRC_ADJ_RLSHP_V opadj
4288: WHERE b_o_flag = OKC_API.g_true
4289: AND opadj.rltd_price_adj_id = b_pat_id;
4290:
4291:
4292: --
4299: qpadj.quote_shipment_id SHIPMENT_ID,
4300: qpadj.quote_line_id LINE_ID,
4301: qpadj.rltd_price_adj_id
4302: FROM OKX_QTE_PRC_ADJ_RLSHP_V qpadj
4303: WHERE b_q_flag = OKC_API.g_true
4304: AND qpadj.price_adjustment_id = b_pat_id
4305: AND ((b_ln_id IS NOT NULL AND qpadj.quote_line_id = b_ln_id) OR b_ln_id IS NULL)
4306:
4307: UNION
4311: to_number(NULL), --qpadj.quote_shipment_id
4312: opadj.line_id,
4313: opadj.rltd_price_adj_id
4314: FROM OKX_ORD_PRC_ADJ_RLSHP_V opadj
4315: WHERE b_o_flag = OKC_API.g_true
4316: AND opadj.price_adjustment_id = b_pat_id
4317: AND ((b_ln_id IS NOT NULL AND opadj.line_id = b_ln_id) OR b_ln_id IS NULL);
4318:
4319:
4327: l_kl_id okc_k_lines_b.id%TYPE;
4328:
4329: v_price_adj_rltship c_price_adj_rltship%ROWTYPE;
4330: l_price_adj_rltship c_price_adj_rltship%ROWTYPE;
4331: l_price_adj_insert VARCHAR2(1) := OKC_API.G_TRUE;
4332:
4333: l_price_adj_rltship_rec ASO_QUOTE_PUB.price_adj_rltship_rec_type;
4334: l_price_adj_rltship_tab ASO_QUOTE_PUB.price_adj_rltship_tbl_type;
4335:
4379:
4380:
4381: -- Process associated contract line id
4382: IF price_adj_rltship_rec.cle_id IS NOT NULL THEN
4383: l_price_adj_insert := okc_api.g_false;
4384: IF p_kl_rel_tab.FIRST IS NOT NULL THEN
4385: l_ql := 0;
4386: FOR j IN p_kl_rel_tab.FIRST..p_kl_rel_tab.LAST LOOP
4387: IF p_kl_rel_tab(j).k_line_id = price_adj_rltship_rec.cle_id THEN
4384: IF p_kl_rel_tab.FIRST IS NOT NULL THEN
4385: l_ql := 0;
4386: FOR j IN p_kl_rel_tab.FIRST..p_kl_rel_tab.LAST LOOP
4387: IF p_kl_rel_tab(j).k_line_id = price_adj_rltship_rec.cle_id THEN
4388: l_price_adj_insert := okc_api.g_true;
4389: l_ql:= p_kl_rel_tab(j).q_line_idx;
4390: l_kl_id := p_kl_rel_tab(j).k_line_id; -- Bug 2543112
4391: EXIT;
4392: END IF;
4393: END LOOP;
4394: END IF;
4395:
4396:
4397: IF l_price_adj_insert = okc_api.g_true THEN
4398: IF p_line_tab(l_ql).operation_code = g_aso_op_code_create THEN
4399: l_price_adj_rltship_rec.qte_line_index:=l_ql; -- p_line_tab(l_ql).line_number
4400: ELSIF p_line_tab(l_ql).operation_code = g_aso_op_code_update THEN
4401: l_price_adj_rltship_rec.quote_line_id:= p_line_tab(l_ql).quote_line_id;
4402: ELSIF p_line_tab(l_ql).operation_code = g_aso_op_code_delete THEN
4403:
4404: --set a specific error message, print it out and raise an exception
4405:
4406: OKC_API.set_message(p_app_name => g_app_name,
4407: p_msg_name => 'OKO_PRC_PADJREL1',
4408: p_token1 => 'KLINEID',
4409: p_token1_value => l_kl_id);
4410: print_error(4);
4414: ELSE
4415:
4416: --set a specific error message, print it out and raise an exception
4417:
4418: OKC_API.set_message(p_app_name => g_app_name,
4419: p_msg_name => 'OKO_PRC_PADJREL2',
4420: p_token1 => 'PRICEADJID',
4421: p_token1_value => price_adj_rltship_rec.pat_id );
4422: print_error(4);
4427: END IF; --IF price_adj_rltship_rec.cle_id IS NOT NULL THEN
4428:
4429: --Process associated price adjustment id
4430: IF price_adj_rltship_rec.pat_id IS NOT NULL THEN
4431: l_price_adj_insert := okc_api.g_false;
4432: l_kpat:=0;
4433: FOR k in p_k_price_adj_tab.first .. p_k_price_adj_tab.last LOOP
4434: IF p_k_price_adj_tab(k).id = price_adj_rltship_rec.pat_id THEN
4435: l_price_adj_insert := okc_api.g_true;
4431: l_price_adj_insert := okc_api.g_false;
4432: l_kpat:=0;
4433: FOR k in p_k_price_adj_tab.first .. p_k_price_adj_tab.last LOOP
4434: IF p_k_price_adj_tab(k).id = price_adj_rltship_rec.pat_id THEN
4435: l_price_adj_insert := okc_api.g_true;
4436: l_kpat:=k;
4437: EXIT;
4438: END IF;
4439: END LOOP;
4436: l_kpat:=k;
4437: EXIT;
4438: END IF;
4439: END LOOP;
4440: IF l_price_adj_insert = okc_api.g_true THEN
4441: IF p_price_adj_tab(l_kpat).operation_code = g_aso_op_code_create THEN
4442: l_price_adj_rltship_rec.rltd_price_adj_index:=l_kpat;
4443: ELSIF p_price_adj_tab(l_kpat).operation_code = g_aso_op_code_update THEN
4444: l_price_adj_rltship_rec.rltd_price_adj_id:= p_price_adj_tab(l_kpat).price_adjustment_id;
4444: l_price_adj_rltship_rec.rltd_price_adj_id:= p_price_adj_tab(l_kpat).price_adjustment_id;
4445: ELSIF p_line_tab(l_ql).operation_code = g_aso_op_code_delete THEN
4446: --set a specific error message, print it out and raise an exception
4447:
4448: OKC_API.set_message(p_app_name => g_app_name,
4449: p_msg_name => 'OKO_PRC_PADJREL3',
4450: p_token1 => 'PRICEADJID',
4451: p_token1_value => price_adj_rltship_rec.pat_id );
4452: print_error(4);
4455: END IF;
4456: ELSE
4457: --set a specific error message, print it out and raise an exception
4458:
4459: OKC_API.set_message(p_app_name => g_app_name,
4460: p_msg_name => 'OKO_PRC_PADJREL4',
4461: p_token1 => 'KLINEID',
4462: p_token1_value => l_kl_id);
4463: print_error(4);
4481: -- At this level, there is a relationship between a price adj and a valid contract line id, therefore
4482: -- if the related quote line id cannot be found (quote line id or index), an exception must be raised.
4483: --
4484: IF price_adj_rltship_rec.cle_id IS NOT NULL THEN
4485: l_price_adj_insert := okc_api.g_false;
4486: IF p_kl_rel_tab.FIRST is NOT NULL THEN
4487: l_ql := 0;
4488: FOR j IN p_kl_rel_tab.FIRST .. p_kl_rel_tab.LAST LOOP
4489: IF p_kl_rel_tab(j).k_line_id = price_adj_rltship_rec.cle_id THEN
4486: IF p_kl_rel_tab.FIRST is NOT NULL THEN
4487: l_ql := 0;
4488: FOR j IN p_kl_rel_tab.FIRST .. p_kl_rel_tab.LAST LOOP
4489: IF p_kl_rel_tab(j).k_line_id = price_adj_rltship_rec.cle_id THEN
4490: l_price_adj_insert := okc_api.g_true;
4491: l_ql:= p_kl_rel_tab(j).q_line_idx;
4492: EXIT;
4493: END IF;
4494: END LOOP;
4493: END IF;
4494: END LOOP;
4495: END IF;
4496:
4497: IF l_price_adj_insert = okc_api.g_true THEN
4498:
4499: IF p_line_tab(l_ql).operation_code = g_aso_op_code_create THEN
4500: l_price_adj_rltship_rec.operation_code := g_aso_op_code_create;
4501: l_price_adj_rltship_rec.price_adjustment_id := p_price_adj_tab(i).price_adjustment_id;
4515: ELSE -- NEED to UPDATE OR NOT with shipment id?
4516: -- Need to check if the quote adj rltship involves a shipment id
4517: IF v_price_adj_rltship.shipment_id IS NOT NULL THEN
4518: -- Need to check if we have a shipment line for the related quote line id
4519: l_shipment := okc_api.g_false;
4520: IF p_line_shipment_tab.FIRST IS NOT NULL THEN
4521: FOR k IN p_line_shipment_tab.FIRST..p_line_shipment_tab.LAST LOOP
4522: IF p_line_shipment_tab(k).quote_header_id = p_line_tab(l_ql).quote_header_id AND
4523: p_line_shipment_tab(k).quote_line_id = p_line_tab(l_ql).quote_line_id THEN
4520: IF p_line_shipment_tab.FIRST IS NOT NULL THEN
4521: FOR k IN p_line_shipment_tab.FIRST..p_line_shipment_tab.LAST LOOP
4522: IF p_line_shipment_tab(k).quote_header_id = p_line_tab(l_ql).quote_header_id AND
4523: p_line_shipment_tab(k).quote_line_id = p_line_tab(l_ql).quote_line_id THEN
4524: l_shipment:=okc_api.g_true;
4525: l_qs := k;
4526: EXIT;
4527: END IF;
4528: END LOOP;
4527: END IF;
4528: END LOOP;
4529: END IF;
4530:
4531: IF l_shipment = okc_api.g_false THEN
4532: -- set an error on the stack, print it out and raise an exception
4533:
4534: OKC_API.set_message(p_app_name => g_app_name,
4535: p_msg_name => 'OKO_PRC_PADJREL5',
4530:
4531: IF l_shipment = okc_api.g_false THEN
4532: -- set an error on the stack, print it out and raise an exception
4533:
4534: OKC_API.set_message(p_app_name => g_app_name,
4535: p_msg_name => 'OKO_PRC_PADJREL5',
4536: p_token1 => 'QLINEID',
4537: p_token1_value => p_line_tab(l_ql).quote_line_id);
4538: print_error(4);
4564:
4565: ELSIF p_line_tab(l_ql).operation_code = g_aso_op_code_delete THEN
4566: --set a specific error message, print it out and raise an exception
4567:
4568: OKC_API.set_message(p_app_name => g_app_name,
4569: p_msg_name => 'OKO_PRC_PADJREL6');
4570: print_error(4);
4571: RAISE e_exit;
4572:
4575:
4576: ELSE
4577: --set a specific error message, print it out and raise an exception
4578:
4579: OKC_API.set_message(p_app_name => g_app_name,
4580: p_msg_name => 'OKO_PRC_PADJREL7',
4581: p_token1 => 'KLINEID',
4582: p_token1_value => price_adj_rltship_rec.cle_id);
4583: print_error(4);
4583: print_error(4);
4584: RAISE e_exit;
4585:
4586:
4587: END IF; -- IF l_price_adj_insert = okc_api.g_true THEN
4588: END IF; --IF price_adj_rltship_rec.cle_id IS NOT NULL THEN
4589:
4590: --Process associated price adjustement id
4591: IF price_adj_rltship_rec.pat_id IS NOT NULL THEN
4588: END IF; --IF price_adj_rltship_rec.cle_id IS NOT NULL THEN
4589:
4590: --Process associated price adjustement id
4591: IF price_adj_rltship_rec.pat_id IS NOT NULL THEN
4592: l_price_adj_insert := okc_api.g_false;
4593: l_kpat:=0;
4594: FOR k in p_k_price_adj_tab.first .. p_k_price_adj_tab.last LOOP
4595: IF p_k_price_adj_tab(k).id = price_adj_rltship_rec.pat_id THEN
4596: l_price_adj_insert := okc_api.g_true;
4592: l_price_adj_insert := okc_api.g_false;
4593: l_kpat:=0;
4594: FOR k in p_k_price_adj_tab.first .. p_k_price_adj_tab.last LOOP
4595: IF p_k_price_adj_tab(k).id = price_adj_rltship_rec.pat_id THEN
4596: l_price_adj_insert := okc_api.g_true;
4597: l_kpat:=k;
4598: EXIT;
4599: END IF;
4600: END LOOP;
4597: l_kpat:=k;
4598: EXIT;
4599: END IF;
4600: END LOOP;
4601: IF l_price_adj_insert = okc_api.g_true THEN
4602: IF p_price_adj_tab(l_kpat).operation_code = g_aso_op_code_create THEN
4603: l_price_adj_rltship_rec.rltd_price_adj_index:=l_kpat;
4604: ELSIF p_price_adj_tab(l_kpat).operation_code = g_aso_op_code_update THEN
4605: l_price_adj_rltship_rec.rltd_price_adj_id:= p_price_adj_tab(l_kpat).price_adjustment_id;
4605: l_price_adj_rltship_rec.rltd_price_adj_id:= p_price_adj_tab(l_kpat).price_adjustment_id;
4606: ELSIF p_line_tab(l_ql).operation_code = g_aso_op_code_delete THEN
4607: --set a specific error message, print it out and raise an exception
4608:
4609: OKC_API.set_message(p_app_name => g_app_name,
4610: p_msg_name => 'OKO_PRC_PADJREL8',
4611: p_token1 => 'PRICEADJID',
4612: p_token1_value => price_adj_rltship_rec.pat_id );
4613: print_error(4);
4616: END IF;
4617: ELSE
4618: --set a specific error message, print it out and raise an exception
4619:
4620: OKC_API.set_message(p_app_name => g_app_name,
4621: p_msg_name => 'OKO_PRC_PADJREL9',
4622: p_token1 => 'KLINEID',
4623: p_token1_value => price_adj_rltship_rec.cle_id);
4624: print_error(4);
4633:
4634: END LOOP;
4635: FOR l_price_adj_rltship IN c_price_adj_rltship(p_q_flag, p_o_flag,
4636: p_price_adj_tab(i).price_adjustment_id, NULL) LOOP
4637: l_price_adj_insert:=okc_api.g_true;
4638: -- Need to check if the related quote price adj rltship is not already planned to
4639: -- be updated in the l_price_adj_rltship_tab variable
4640:
4641: IF l_price_adj_rltship_tab.first IS NOT NULL THEN
4648: (l_price_adj_rltship_tab(i).quote_shipment_id IS NULL AND l_price_adj_rltship.shipment_id IS NULL)) AND
4649: (l_price_adj_rltship_tab(i).rltd_price_adj_id= l_price_adj_rltship.rltd_price_adj_id OR
4650: (l_price_adj_rltship_tab(i).rltd_price_adj_id IS NULL AND l_price_adj_rltship.rltd_price_adj_id IS NULL)))
4651: THEN
4652: l_price_adj_insert:=okc_api.g_false;
4653: EXIT;
4654: END IF;
4655: END LOOP;
4656: END IF;
4654: END IF;
4655: END LOOP;
4656: END IF;
4657:
4658: IF l_price_adj_insert=okc_api.g_true THEN
4659: -- populate l_price_adj_rltship_rec with information from l_price_adj_rltship
4660: ----
4661: l_price_adj_rltship_rec.adj_relationship_id := l_price_adj_rltship.adj_relationship_id;
4662: l_price_adj_rltship_rec.quote_line_id := l_price_adj_rltship.line_id;
4785: EXCEPTION
4786:
4787: WHEN e_exit THEN
4788: -- Bug#2320635
4789: OKC_API.set_message(G_APP_NAME,
4790: G_UNEXPECTED_ERROR,
4791: G_SQLCODE_TOKEN,
4792: SQLCODE,
4793: G_SQLERRM_TOKEN,
4799: IF c_price_adj_rltship_rltd%ISOPEN THEN
4800: CLOSE c_k_price_adj_rltship;
4801: END IF;
4802:
4803: RAISE OKC_API.G_EXCEPTION_ERROR;
4804:
4805: END; -- get_price_adj_rltship
4806:
4807:
4883: x_ln_price_attr_tab.DELETE;
4884: x_hd_price_adj_rltship_tab.DELETE;
4885: x_ln_price_adj_rltship_tab.DELETE;
4886:
4887: IF p_q_flag = OKC_API.g_true THEN
4888: l_line_tab:=p_qle_tab;
4889: l_line_shipment_tab:=p_qle_shipment_tab;
4890: ELSIF p_o_flag = OKC_API.g_true THEN
4891: l_line_tab:=p_ole_tab;
4886:
4887: IF p_q_flag = OKC_API.g_true THEN
4888: l_line_tab:=p_qle_tab;
4889: l_line_shipment_tab:=p_qle_shipment_tab;
4890: ELSIF p_o_flag = OKC_API.g_true THEN
4891: l_line_tab:=p_ole_tab;
4892: l_line_shipment_tab:=p_ole_shipment_tab;
4893: END IF;
4894:
4891: l_line_tab:=p_ole_tab;
4892: l_line_shipment_tab:=p_ole_shipment_tab;
4893: END IF;
4894:
4895: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4896:
4897:
4898: ----------------------------------------------------------
4899: -- Select pricing information at the contract header level
5320: EXCEPTION
5321:
5322: WHEN e_exit THEN
5323:
5324: x_return_status := OKC_API.G_RET_STS_ERROR;
5325:
5326:
5327: WHEN OTHERS THEN
5328: OKC_API.set_message(G_APP_NAME,
5324: x_return_status := OKC_API.G_RET_STS_ERROR;
5325:
5326:
5327: WHEN OTHERS THEN
5328: OKC_API.set_message(G_APP_NAME,
5329: G_UNEXPECTED_ERROR,
5330: G_SQLCODE_TOKEN,
5331: SQLCODE,
5332: G_SQLERRM_TOKEN,
5334: print_error(2);
5335:
5336: -- notify caller of an unexpected error
5337:
5338: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5339:
5340: END build_pricing_from_k;
5341:
5342: