[Home] [Help]
76: PROCEDURE SET_OL_SEL(p_ole_id IN NUMBER) IS
77: l_api_name CONSTANT VARCHAR2(30) := 'SET_OL_SEL';
78: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
79: BEGIN
80: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
81: FND_LOG.string(FND_LOG.level_statement, l_mod_name,' SET_OL_SELECTED p_ole_id = '|| p_ole_id);
82: END IF;
83: IF p_ole_id IS NULL THEN
84: RETURN;
77: l_api_name CONSTANT VARCHAR2(30) := 'SET_OL_SEL';
78: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
79: BEGIN
80: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
81: FND_LOG.string(FND_LOG.level_statement, l_mod_name,' SET_OL_SELECTED p_ole_id = '|| p_ole_id);
82: END IF;
83: IF p_ole_id IS NULL THEN
84: RETURN;
85: END IF;
92: x_msg_count => l_msg_count,
93: x_msg_data => l_msg_data,
94: p_olev_tbl => l_olev_tbl_in,
95: x_olev_tbl => l_olev_tbl_out );
96: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
97: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_return_status = ' || l_return_status);
98: END IF;
99: x_return_status := l_return_status;
100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
93: x_msg_data => l_msg_data,
94: p_olev_tbl => l_olev_tbl_in,
95: x_olev_tbl => l_olev_tbl_out );
96: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
97: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_return_status = ' || l_return_status);
98: END IF;
99: x_return_status := l_return_status;
100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
101: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
97: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_return_status = ' || l_return_status);
98: END IF;
99: x_return_status := l_return_status;
100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
101: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
102: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
103: END IF;
104: RETURN;
105: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
98: END IF;
99: x_return_status := l_return_status;
100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
101: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
102: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
103: END IF;
104: RETURN;
105: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
106: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
102: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
103: END IF;
104: RETURN;
105: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
106: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
107: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
108: END IF;
109: RETURN;
110: END IF;
103: END IF;
104: RETURN;
105: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
106: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
107: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
108: END IF;
109: RETURN;
110: END IF;
111: END SET_OL_SEL;
320: ---PROGRAM STARTS HERE
321: -----------------------------------------------------------------------------
322: BEGIN
323: l_conc_program := p_conc_program;
324: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
325: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'l_conc_program = ' || l_conc_program);
326: END IF;
327:
328: -----------------------------------------------------------------------------
321: -----------------------------------------------------------------------------
322: BEGIN
323: l_conc_program := p_conc_program;
324: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
325: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'l_conc_program = ' || l_conc_program);
326: END IF;
327:
328: -----------------------------------------------------------------------------
329: ---Check for validity of target
365: BEGIN
366: i := 1;
367: IF x_program_status <> G_TARGET_INVALID THEN
368:
369: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
370: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FROM Operation Lines');
371: END IF;
372:
373: FOR cur_operation_lines IN operation_lines(p_target_id)
366: i := 1;
367: IF x_program_status <> G_TARGET_INVALID THEN
368:
369: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
370: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FROM Operation Lines');
371: END IF;
372:
373: FOR cur_operation_lines IN operation_lines(p_target_id)
374: LOOP
391: IF p_select_yn = 'Y' AND NVL(cur_operation_lines.select_yn, 'N') = 'N' THEN
392: set_ol_selected(p_id => cur_operation_lines.id,
393: x_return_status => x_return_status);
394:
395: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
396: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'set_ol_selected l_return_status: '|| x_return_status);
397: END IF;
398:
399: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
392: set_ol_selected(p_id => cur_operation_lines.id,
393: x_return_status => x_return_status);
394:
395: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
396: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'set_ol_selected l_return_status: '|| x_return_status);
397: END IF;
398:
399: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
400: x_sources_tbl(i).select_yn := 'Y';
399: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
400: x_sources_tbl(i).select_yn := 'Y';
401: ELSE
402:
403: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
404: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Unable to set select_yn to Y ');
405: END IF;
406:
407: x_return_status := OKC_API.G_RET_STS_ERROR;
400: x_sources_tbl(i).select_yn := 'Y';
401: ELSE
402:
403: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
404: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Unable to set select_yn to Y ');
405: END IF;
406:
407: x_return_status := OKC_API.G_RET_STS_ERROR;
408: RETURN;
408: RETURN;
409: END IF;
410: END IF;
411:
412: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
413: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'i = ' || i ||'Contract ID = ' || x_sources_tbl(i).contract_id || ' Line ID = ' || x_sources_tbl(i).line_id || ' Subline ID = ' || x_sources_tbl(i).subline_id);
414: END IF;
415:
416: i := i + 1;
409: END IF;
410: END IF;
411:
412: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
413: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'i = ' || i ||'Contract ID = ' || x_sources_tbl(i).contract_id || ' Line ID = ' || x_sources_tbl(i).line_id || ' Subline ID = ' || x_sources_tbl(i).subline_id);
414: END IF;
415:
416: i := i + 1;
417: END LOOP; -- get_correct_sts
586: ---PROGRAM STARTS HERE
587: -----------------------------------------------------------------------------
588: BEGIN
589: l_conc_program := p_conc_program;
590: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
591: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'l_conc_program = ' || l_conc_program);
592: END IF;
593:
594: -----------------------------------------------------------------------------
587: -----------------------------------------------------------------------------
588: BEGIN
589: l_conc_program := p_conc_program;
590: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
591: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'l_conc_program = ' || l_conc_program);
592: END IF;
593:
594: -----------------------------------------------------------------------------
595: ---Check for validity of target
610: OKC_API.set_message(p_app_name => 'OKS',
611: p_msg_name => 'OKS_INVALID_TARGET',
612: p_token1 => NULL,
613: p_token1_value => NULL);
614: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
615: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
616: END IF;
617: x_program_status := G_TARGET_INVALID;
618: x_return_status := OKC_API.G_RET_STS_ERROR;
611: p_msg_name => 'OKS_INVALID_TARGET',
612: p_token1 => NULL,
613: p_token1_value => NULL);
614: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
615: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
616: END IF;
617: x_program_status := G_TARGET_INVALID;
618: x_return_status := OKC_API.G_RET_STS_ERROR;
619: END;
626: ---populate a PLSQL table contract_id||line_id||subline_id
627: ----------------------------------------------------------------------------
628: IF (x_program_status = G_TARGET_VALID) THEN
629:
630: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
631: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'NEW TARGET NOTHING FOUND IN OPERATION LINES x_program_status := ' || x_program_status || ' p_target_id = ' || p_target_id);
632: END IF;
633:
634: BEGIN
627: ----------------------------------------------------------------------------
628: IF (x_program_status = G_TARGET_VALID) THEN
629:
630: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
631: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'NEW TARGET NOTHING FOUND IN OPERATION LINES x_program_status := ' || x_program_status || ' p_target_id = ' || p_target_id);
632: END IF;
633:
634: BEGIN
635: i := 0;
639: ---The IF and ELSE sections of the following codes must be modified consistently.
640: -----------------------------------------------------------------------------------------
641: IF x_currency_code = 'EUR' THEN
642:
643: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
644: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'EURO Target');
645: END IF;
646:
647: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
640: -----------------------------------------------------------------------------------------
641: IF x_currency_code = 'EUR' THEN
642:
643: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
644: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'EURO Target');
645: END IF;
646:
647: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
648: LOOP
646:
647: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
648: LOOP
649:
650: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
651: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
652: END IF;
653:
654: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
647: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
648: LOOP
649:
650: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
651: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
652: END IF;
653:
654: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
655: LOOP
665: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;
666: x_sources_tbl(i).select_yn := p_select_yn;
667: x_sources_tbl(i).ol_status := 'A';
668:
669: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
670: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Contract ID = ' || x_sources_tbl(i).contract_id || ' Line ID = ' || x_sources_tbl(i).line_id || ' Subline ID = ' || x_sources_tbl(i).subline_id);
671: END IF;
672: i := i + 1;
673: -- END IF;
666: x_sources_tbl(i).select_yn := p_select_yn;
667: x_sources_tbl(i).ol_status := 'A';
668:
669: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
670: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Contract ID = ' || x_sources_tbl(i).contract_id || ' Line ID = ' || x_sources_tbl(i).line_id || ' Subline ID = ' || x_sources_tbl(i).subline_id);
671: END IF;
672: i := i + 1;
673: -- END IF;
674: -- END IF;
675: END LOOP;
676: END LOOP;
677: ELSE
678:
679: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
680: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Non-EURO Target');
681: END IF;
682:
683: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
676: END LOOP;
677: ELSE
678:
679: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
680: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Non-EURO Target');
681: END IF;
682:
683: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
684: LOOP
682:
683: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
684: LOOP
685:
686: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
687: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
688: END IF;
689:
690: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
683: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
684: LOOP
685:
686: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
687: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
688: END IF;
689:
690: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
691: LOOP
701: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;
702: x_sources_tbl(i).select_yn := p_select_yn;
703: x_sources_tbl(i).ol_status := 'A';
704:
705: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
706: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Contract ID = ' || x_sources_tbl(i).contract_id || ' Line ID = ' || x_sources_tbl(i).line_id || ' Subline ID = ' || x_sources_tbl(i).subline_id);
707: END IF;
708: i := i + 1;
709: -- END IF;
702: x_sources_tbl(i).select_yn := p_select_yn;
703: x_sources_tbl(i).ol_status := 'A';
704:
705: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
706: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Contract ID = ' || x_sources_tbl(i).contract_id || ' Line ID = ' || x_sources_tbl(i).line_id || ' Subline ID = ' || x_sources_tbl(i).subline_id);
707: END IF;
708: i := i + 1;
709: -- END IF;
710: --END IF;
712: END LOOP;
713: END IF;
714: EXCEPTION
715: WHEN NO_DATA_FOUND THEN
716: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
717: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'NO CONTRACT SOURCES FOUND');
718: END IF;
719: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'valid_header_sources');
720: END;
713: END IF;
714: EXCEPTION
715: WHEN NO_DATA_FOUND THEN
716: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
717: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'NO CONTRACT SOURCES FOUND');
718: END IF;
719: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'valid_header_sources');
720: END;
721: ----------------------------------------------------------------------------
733: END IF;
734: CLOSE oper_inst;
735: EXCEPTION
736: WHEN NO_DATA_FOUND THEN
737: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
738: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES NO_DATA_FOUND');
739: END IF;
740: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
741: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
734: CLOSE oper_inst;
735: EXCEPTION
736: WHEN NO_DATA_FOUND THEN
737: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
738: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES NO_DATA_FOUND');
739: END IF;
740: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
741: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
742: WHEN OTHERS THEN
739: END IF;
740: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
741: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
742: WHEN OTHERS THEN
743: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
744: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES OTHERS ');
745: END IF;
746: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
747: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
740: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
741: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
742: WHEN OTHERS THEN
743: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
744: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES OTHERS ');
745: END IF;
746: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
747: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
748: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
756: p_oie_id => x_oie_id,
757: p_sources_tbl_type => x_sources_tbl) ;
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
761: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES NO_DATA_FOUND');
762: END IF;
763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
764: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
757: p_sources_tbl_type => x_sources_tbl) ;
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
761: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES NO_DATA_FOUND');
762: END IF;
763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
764: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
765: WHEN OTHERS THEN
762: END IF;
763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
764: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
765: WHEN OTHERS THEN
766: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
767: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES OTHERS ');
768: END IF;
769: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
770: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
764: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
765: WHEN OTHERS THEN
766: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
767: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES OTHERS ');
768: END IF;
769: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
770: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
771: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
846: x_oiev_tbl => l_oiev_tbl_out
847: );
848: p_oie_id := l_oiev_tbl_out(1).id;
849:
850: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
851: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_return_status = ' || l_return_status);
852: END IF;
853:
854: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
847: );
848: p_oie_id := l_oiev_tbl_out(1).id;
849:
850: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
851: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_return_status = ' || l_return_status);
852: END IF;
853:
854: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
855: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
851: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_return_status = ' || l_return_status);
852: END IF;
853:
854: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
855: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
856: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
857: END IF;
858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
852: END IF;
853:
854: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
855: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
856: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
857: END IF;
858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
860: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
856: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
857: END IF;
858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
860: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
861: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
862: END IF;
863: RAISE OKC_API.G_EXCEPTION_ERROR;
864: END IF;
857: END IF;
858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
860: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
861: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
862: END IF;
863: RAISE OKC_API.G_EXCEPTION_ERROR;
864: END IF;
865:
909: x_return VARCHAR2(200) := 'N';
910: v_index BINARY_INTEGER;
911: BEGIN
912:
913: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
914: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
915: END IF;
916:
917: IF p_id_list.COUNT > 0 THEN
910: v_index BINARY_INTEGER;
911: BEGIN
912:
913: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
914: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
915: END IF;
916:
917: IF p_id_list.COUNT > 0 THEN
918: v_index := p_id_list.FIRST;
929:
930: END LOOP;
931: END IF;
932:
933: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
934: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'IS_K_PRESENT p_contract_id = '|| p_contract_id || 'p_operation_lines_id = ' || p_operation_lines_id || ' x_return = ' || x_return);
935: END IF;
936:
937: RETURN(x_return);
930: END LOOP;
931: END IF;
932:
933: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
934: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'IS_K_PRESENT p_contract_id = '|| p_contract_id || 'p_operation_lines_id = ' || p_operation_lines_id || ' x_return = ' || x_return);
935: END IF;
936:
937: RETURN(x_return);
938: EXCEPTION
936:
937: RETURN(x_return);
938: EXCEPTION
939: WHEN NO_DATA_FOUND THEN
940: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
941: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT NO_DATA_FOUND');
942: END IF;
943: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
944: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
937: RETURN(x_return);
938: EXCEPTION
939: WHEN NO_DATA_FOUND THEN
940: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
941: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT NO_DATA_FOUND');
942: END IF;
943: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
944: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
945: WHEN OTHERS THEN
942: END IF;
943: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
944: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
945: WHEN OTHERS THEN
946: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
947: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT OTHERS ');
948: END IF;
949: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
950: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
943: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
944: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
945: WHEN OTHERS THEN
946: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
947: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT OTHERS ');
948: END IF;
949: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
950: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
951: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
955: FUNCTION IS_PRESENT(p_line_id IN NUMBER, p_operation_lines_id OUT NOCOPY NUMBER, p_id_list IN OKS_RENCON_PVT.sources_tbl_type) RETURN VARCHAR2 IS
956: x_return VARCHAR2(200) := 'N';
957: v_index BINARY_INTEGER;
958: BEGIN
959: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
960: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
961: END IF;
962: IF p_id_list.COUNT > 0 THEN
963: v_index := p_id_list.FIRST;
956: x_return VARCHAR2(200) := 'N';
957: v_index BINARY_INTEGER;
958: BEGIN
959: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
960: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
961: END IF;
962: IF p_id_list.COUNT > 0 THEN
963: v_index := p_id_list.FIRST;
964: LOOP
974:
975: END LOOP;
976: END IF;
977:
978: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
979: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'IS_PRESENT p_line_id = '|| p_line_id || 'p_operation_lines_id = ' || p_operation_lines_id || ' x_return = ' || x_return);
980: END IF;
981:
982: RETURN(x_return);
975: END LOOP;
976: END IF;
977:
978: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
979: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'IS_PRESENT p_line_id = '|| p_line_id || 'p_operation_lines_id = ' || p_operation_lines_id || ' x_return = ' || x_return);
980: END IF;
981:
982: RETURN(x_return);
983: EXCEPTION
981:
982: RETURN(x_return);
983: EXCEPTION
984: WHEN NO_DATA_FOUND THEN
985: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
986: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT NO_DATA_FOUND');
987: END IF;
988: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
989: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
982: RETURN(x_return);
983: EXCEPTION
984: WHEN NO_DATA_FOUND THEN
985: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
986: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT NO_DATA_FOUND');
987: END IF;
988: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
989: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
990: WHEN OTHERS THEN
987: END IF;
988: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
989: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
990: WHEN OTHERS THEN
991: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
992: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT OTHERS ');
993: END IF;
994: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
995: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
988: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
989: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
990: WHEN OTHERS THEN
991: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
992: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT OTHERS ');
993: END IF;
994: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
995: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
996: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
1089: p_olev_tbl => l_olev_tbl_in,
1090: x_olev_tbl => l_olev_tbl_out
1091: );
1092:
1093: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1094: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR CONTRACT HEADER OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1095: END IF;
1096: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1097: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1090: x_olev_tbl => l_olev_tbl_out
1091: );
1092:
1093: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1094: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR CONTRACT HEADER OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1095: END IF;
1096: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1097: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1098: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1093: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1094: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR CONTRACT HEADER OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1095: END IF;
1096: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1097: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1098: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1099: END IF;
1100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1094: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR CONTRACT HEADER OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1095: END IF;
1096: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1097: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1098: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1099: END IF;
1100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1102: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1098: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1099: END IF;
1100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1102: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1103: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1104: END IF;
1105: RAISE OKC_API.G_EXCEPTION_ERROR;
1106: END IF;
1099: END IF;
1100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1102: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1103: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1104: END IF;
1105: RAISE OKC_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: ------------------------------------------------------------------------------------
1104: END IF;
1105: RAISE OKC_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: ------------------------------------------------------------------------------------
1108: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1109: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list_k with the operation_lines_id');
1110: END IF;
1111: ------------------------------------------------------------------------------------
1112: i := 0;
1105: RAISE OKC_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: ------------------------------------------------------------------------------------
1108: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1109: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list_k with the operation_lines_id');
1110: END IF;
1111: ------------------------------------------------------------------------------------
1112: i := 0;
1113: j := 0;
1113: j := 0;
1114: WHILE v_id_list_k.EXISTS(j) LOOP
1115: IF v_id_list_k(j).operation_lines_id = 0 THEN
1116: v_id_list_k(j).operation_lines_id := l_olev_tbl_out(i).id;
1117: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1118: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TOP CONTRACT HEADER LINE l_olev_tbl_out('|| i ||').id = ' || l_olev_tbl_out(i).id);
1119: END IF;
1120: i := i + 1;
1121: END IF;
1114: WHILE v_id_list_k.EXISTS(j) LOOP
1115: IF v_id_list_k(j).operation_lines_id = 0 THEN
1116: v_id_list_k(j).operation_lines_id := l_olev_tbl_out(i).id;
1117: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1118: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TOP CONTRACT HEADER LINE l_olev_tbl_out('|| i ||').id = ' || l_olev_tbl_out(i).id);
1119: END IF;
1120: i := i + 1;
1121: END IF;
1122: j := j + 1;
1182: p_olev_tbl => l_olev_tbl_in,
1183: x_olev_tbl => l_olev_tbl_out
1184: );
1185:
1186: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1187: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR TOP LINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1188: END IF;
1189:
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1183: x_olev_tbl => l_olev_tbl_out
1184: );
1185:
1186: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1187: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR TOP LINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1188: END IF;
1189:
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1191: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1187: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR TOP LINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1188: END IF;
1189:
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1191: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1192: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1193: END IF;
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1188: END IF;
1189:
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1191: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1192: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1193: END IF;
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1192: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1193: END IF;
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1197: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1198: END IF;
1199: RAISE OKC_API.G_EXCEPTION_ERROR;
1200: END IF;
1193: END IF;
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1197: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1198: END IF;
1199: RAISE OKC_API.G_EXCEPTION_ERROR;
1200: END IF;
1201: ------------------------------------------------------------------------------------
1198: END IF;
1199: RAISE OKC_API.G_EXCEPTION_ERROR;
1200: END IF;
1201: ------------------------------------------------------------------------------------
1202: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1203: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list with the operation_lines_id');
1204: END IF;
1205: ------------------------------------------------------------------------------------
1206: i := 0;
1199: RAISE OKC_API.G_EXCEPTION_ERROR;
1200: END IF;
1201: ------------------------------------------------------------------------------------
1202: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1203: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list with the operation_lines_id');
1204: END IF;
1205: ------------------------------------------------------------------------------------
1206: i := 0;
1207: j := 0;
1207: j := 0;
1208: WHILE v_id_list.EXISTS(j) LOOP
1209: IF v_id_list(j).operation_lines_id = 0 THEN
1210: v_id_list(j).operation_lines_id := l_olev_tbl_out(i).id;
1211: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1212: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TOP LINE l_olev_tbl_out('|| i ||').id = ' || l_olev_tbl_out(i).id);
1213: END IF;
1214: i := i + 1;
1215: END IF;
1208: WHILE v_id_list.EXISTS(j) LOOP
1209: IF v_id_list(j).operation_lines_id = 0 THEN
1210: v_id_list(j).operation_lines_id := l_olev_tbl_out(i).id;
1211: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1212: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TOP LINE l_olev_tbl_out('|| i ||').id = ' || l_olev_tbl_out(i).id);
1213: END IF;
1214: i := i + 1;
1215: END IF;
1216: j := j + 1;
1216: j := j + 1;
1217: END LOOP;
1218:
1219: -----------------------------------------------------------------------
1220: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1221: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'CREATE the header source sublines in operation_lines');
1222: END IF;
1223: -----------------------------------------------------------------------
1224: i := 0;
1217: END LOOP;
1218:
1219: -----------------------------------------------------------------------
1220: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1221: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'CREATE the header source sublines in operation_lines');
1222: END IF;
1223: -----------------------------------------------------------------------
1224: i := 0;
1225: j := 0;
1260: p_olev_tbl => l_olev_tbl_in,
1261: x_olev_tbl => l_olev_tbl_out
1262: );
1263:
1264: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1265: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR SUBLINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1266: END IF;
1267: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1268: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1261: x_olev_tbl => l_olev_tbl_out
1262: );
1263:
1264: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1265: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR SUBLINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1266: END IF;
1267: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1268: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1269: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1264: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1265: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR SUBLINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1266: END IF;
1267: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1268: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1269: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1270: END IF;
1271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1265: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'FOR SUBLINES OKC_OPER_INST_PUB.Create_Operation_Line l_return_status = ' || l_return_status);
1266: END IF;
1267: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1268: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1269: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1270: END IF;
1271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1269: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1270: END IF;
1271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1274: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1275: END IF;
1276: RAISE OKC_API.G_EXCEPTION_ERROR;
1277: END IF;
1270: END IF;
1271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1272: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1274: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1275: END IF;
1276: RAISE OKC_API.G_EXCEPTION_ERROR;
1277: END IF;
1278: ------------------------------------------------------------------------------------
1350: x_return := TRUE;
1351: END LOOP;
1352: EXCEPTION
1353: WHEN NO_DATA_FOUND THEN
1354: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1355: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
1356: END IF;
1357: --x_return := G_TARGET_INVALID;
1358: x_return := FALSE;
1351: END LOOP;
1352: EXCEPTION
1353: WHEN NO_DATA_FOUND THEN
1354: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1355: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
1356: END IF;
1357: --x_return := G_TARGET_INVALID;
1358: x_return := FALSE;
1359: END;
1385: exit; -- Added for bug#5981381
1386: END LOOP;
1387: EXCEPTION
1388: WHEN NO_DATA_FOUND THEN
1389: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1390: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'GET_PARENT_LINE_ID INVALID');
1391: END IF;
1392: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'GET_PARENT_LINE_ID');
1393: x_return := NULL;
1386: END LOOP;
1387: EXCEPTION
1388: WHEN NO_DATA_FOUND THEN
1389: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1390: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'GET_PARENT_LINE_ID INVALID');
1391: END IF;
1392: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'GET_PARENT_LINE_ID');
1393: x_return := NULL;
1394: END;
1428:
1429:
1430: BEGIN
1431:
1432: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1433: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_line_id='|| p_line_id);
1434: END IF;
1435:
1436: x_line_details.line_id := p_line_id;
1429:
1430: BEGIN
1431:
1432: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1433: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_line_id='|| p_line_id);
1434: END IF;
1435:
1436: x_line_details.line_id := p_line_id;
1437:
1446: x_line_details.start_date := cur_get_lrt_bto.start_date;
1447: x_line_details.end_date := cur_get_lrt_bto.end_date;
1448: END LOOP;
1449:
1450: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1451: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_line_details.lrt_rule='|| x_line_details.lrt_rule);
1452: END IF;
1453:
1454: END GET_LINE_DETAILS;
1447: x_line_details.end_date := cur_get_lrt_bto.end_date;
1448: END LOOP;
1449:
1450: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1451: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_line_details.lrt_rule='|| x_line_details.lrt_rule);
1452: END IF;
1453:
1454: END GET_LINE_DETAILS;
1455:
1481: i NUMBER;
1482:
1483: BEGIN
1484:
1485: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1486:
1487: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'begin');
1488:
1489: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.input_details', 'src_line_dtls line_id='||p_source_line_details.line_id||' ,inventory_item_id='||p_source_line_details.inventory_item_id||
1483: BEGIN
1484:
1485: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1486:
1487: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'begin');
1488:
1489: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.input_details', 'src_line_dtls line_id='||p_source_line_details.line_id||' ,inventory_item_id='||p_source_line_details.inventory_item_id||
1490: ' ,inv_organization_id='||p_source_line_details.inv_organization_id||' ,lrt_rule='||p_source_line_details.lrt_rule||' ,bto_id='||p_source_line_details.bto_id||
1491: ' ,start_date='||p_source_line_details.start_date||' ,end_date='||p_source_line_details.end_date);
1485: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1486:
1487: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'begin');
1488:
1489: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.input_details', 'src_line_dtls line_id='||p_source_line_details.line_id||' ,inventory_item_id='||p_source_line_details.inventory_item_id||
1490: ' ,inv_organization_id='||p_source_line_details.inv_organization_id||' ,lrt_rule='||p_source_line_details.lrt_rule||' ,bto_id='||p_source_line_details.bto_id||
1491: ' ,start_date='||p_source_line_details.start_date||' ,end_date='||p_source_line_details.end_date);
1492:
1493: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.input_details', 'trg_line_dtls line_id='||p_target_line_details.line_id||' ,inventory_item_id='||p_target_line_details.inventory_item_id||
1489: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.input_details', 'src_line_dtls line_id='||p_source_line_details.line_id||' ,inventory_item_id='||p_source_line_details.inventory_item_id||
1490: ' ,inv_organization_id='||p_source_line_details.inv_organization_id||' ,lrt_rule='||p_source_line_details.lrt_rule||' ,bto_id='||p_source_line_details.bto_id||
1491: ' ,start_date='||p_source_line_details.start_date||' ,end_date='||p_source_line_details.end_date);
1492:
1493: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.input_details', 'trg_line_dtls line_id='||p_target_line_details.line_id||' ,inventory_item_id='||p_target_line_details.inventory_item_id||
1494: ' ,inv_organization_id='||p_target_line_details.inv_organization_id||' ,lrt_rule='||p_target_line_details.lrt_rule||' ,bto_id='||p_target_line_details.bto_id||
1495: ' ,start_date='||p_target_line_details.start_date||' ,end_date='||p_target_line_details.end_date);
1496:
1497: END IF;
1520: x_duration => l_target_duration,
1521: x_timeunit => l_target_timeunit,
1522: x_return_status => l_return_status);
1523:
1524: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1525: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_target_duration='||l_target_duration||' ,l_target_timeunit='||l_target_timeunit);
1526: END IF;
1527:
1528: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1521: x_timeunit => l_target_timeunit,
1522: x_return_status => l_return_status);
1523:
1524: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1525: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_target_duration='||l_target_duration||' ,l_target_timeunit='||l_target_timeunit);
1526: END IF;
1527:
1528: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1529: OKC_TIME_UTIL_PUB.get_duration (
1532: x_duration => l_source_duration,
1533: x_timeunit => l_source_timeunit,
1534: x_return_status => l_return_status);
1535:
1536: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1537: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_source_duration='||l_source_duration||' ,l_source_timeunit='||l_source_timeunit);
1538: END IF;
1539:
1540: END IF;
1533: x_timeunit => l_source_timeunit,
1534: x_return_status => l_return_status);
1535:
1536: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1537: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_source_duration='||l_source_duration||' ,l_source_timeunit='||l_source_timeunit);
1538: END IF;
1539:
1540: END IF;
1541:
1547: p_start_date => l_source_start_date,
1548: p_duration => l_source_duration,
1549: p_timeunit => l_source_timeunit);
1550:
1551: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1552: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_source_start_date='||l_source_start_date||' ,l_source_end_date='||l_source_end_date);
1553: END IF;
1554:
1555: IF (l_source_start_date = p_target_line_details.start_date)
1548: p_duration => l_source_duration,
1549: p_timeunit => l_source_timeunit);
1550:
1551: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1552: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_source_start_date='||l_source_start_date||' ,l_source_end_date='||l_source_end_date);
1553: END IF;
1554:
1555: IF (l_source_start_date = p_target_line_details.start_date)
1556: AND (l_source_end_date = p_target_line_details.end_date) THEN
1583:
1584: IF (x_return = 'Y' AND
1585: FND_PROFILE.VALUE('OKS_CHECK_COV_MATCH') = 'Y') THEN
1586:
1587: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1588: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match', 'profile OKS_CHECK_COV_MATCH=Y, calling OKS_COVERAGES_PUB.check_coverage_match');
1589: END IF;
1590:
1591: OKS_COVERAGES_PUB.check_coverage_match(
1584: IF (x_return = 'Y' AND
1585: FND_PROFILE.VALUE('OKS_CHECK_COV_MATCH') = 'Y') THEN
1586:
1587: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1588: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match', 'profile OKS_CHECK_COV_MATCH=Y, calling OKS_COVERAGES_PUB.check_coverage_match');
1589: END IF;
1590:
1591: OKS_COVERAGES_PUB.check_coverage_match(
1592: p_api_version => l_api_version,
1597: P_Source_contract_Line_Id => p_source_line_details.line_id,
1598: P_Target_contract_Line_Id => p_target_line_details.line_id,
1599: x_coverage_match => l_coverage_match);
1600:
1601: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1602: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match', 'after call to OKS_COVERAGES_PUB.check_coverage_match, l_return_status='||l_return_status||' ,l_coverage_match='||l_coverage_match);
1603: END IF;
1604:
1605: IF l_coverage_match <> 'Y' THEN
1598: P_Target_contract_Line_Id => p_target_line_details.line_id,
1599: x_coverage_match => l_coverage_match);
1600:
1601: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1602: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match', 'after call to OKS_COVERAGES_PUB.check_coverage_match, l_return_status='||l_return_status||' ,l_coverage_match='||l_coverage_match);
1603: END IF;
1604:
1605: IF l_coverage_match <> 'Y' THEN
1606: x_return := 'N' ;
1603: END IF;
1604:
1605: IF l_coverage_match <> 'Y' THEN
1606: x_return := 'N' ;
1607: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1608: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match','Coverage Mismatch occured');
1609: END IF;
1610: END IF;
1611:
1604:
1605: IF l_coverage_match <> 'Y' THEN
1606: x_return := 'N' ;
1607: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1608: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match','Coverage Mismatch occured');
1609: END IF;
1610: END IF;
1611:
1612: END IF;
1612: END IF;
1613:
1614: END IF;
1615:
1616: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1617: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_return = ' || x_return);
1618: END IF;
1619:
1620: RETURN(x_return);
1613:
1614: END IF;
1615:
1616: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1617: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_return = ' || x_return);
1618: END IF;
1619:
1620: RETURN(x_return);
1621: END MERGE_ELIGIBLE_YN;
1642: p_source_line_details OKS_RENCON_PVT.merge_rec_type;
1643:
1644: BEGIN
1645:
1646: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1647: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'p_source_line_id=' || p_source_line_id ||' .p_target_contract_id=' || p_target_contract_id);
1648: END IF;
1649:
1650: x_target_line_id := NULL;
1643:
1644: BEGIN
1645:
1646: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1647: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'p_source_line_id=' || p_source_line_id ||' .p_target_contract_id=' || p_target_contract_id);
1648: END IF;
1649:
1650: x_target_line_id := NULL;
1651:
1656:
1657: get_line_details(p_line_id => cur_target_line_id.id,
1658: x_line_details => p_target_line_details);
1659:
1660: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1661: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.check_merge', 'Calling merge_eligible_yn with details of source top line id='||p_source_line_id||' and target top line id='||cur_target_line_id.id);
1662: END IF;
1663:
1664: IF merge_eligible_yn(p_source_line_details, p_target_line_details) = 'Y' THEN
1657: get_line_details(p_line_id => cur_target_line_id.id,
1658: x_line_details => p_target_line_details);
1659:
1660: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1661: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.check_merge', 'Calling merge_eligible_yn with details of source top line id='||p_source_line_id||' and target top line id='||cur_target_line_id.id);
1662: END IF;
1663:
1664: IF merge_eligible_yn(p_source_line_details, p_target_line_details) = 'Y' THEN
1665: x_target_line_id := cur_target_line_id.id;
1667: END IF;
1668:
1669: END LOOP;
1670:
1671: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1672: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_target_line_id='|| x_target_line_id );
1673: END IF;
1674: END MERGE;
1675:
1668:
1669: END LOOP;
1670:
1671: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1672: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_target_line_id='|| x_target_line_id );
1673: END IF;
1674: END MERGE;
1675:
1676:
1717: AND select_yn = 'Y';
1718: */
1719:
1720: BEGIN
1721: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1722: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'p_ole_id='||p_ole_id);
1723: END IF;
1724:
1725: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(p_ole_id)
1718: */
1719:
1720: BEGIN
1721: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1722: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'p_ole_id='||p_ole_id);
1723: END IF;
1724:
1725: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(p_ole_id)
1726: LOOP
1728: l_can_copy := 'Y';
1729: END IF;
1730: END LOOP;
1731:
1732: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1733: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end', 'l_can_copy='||l_can_copy);
1734: END IF;
1735:
1736: RETURN l_can_copy;
1729: END IF;
1730: END LOOP;
1731:
1732: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1733: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end', 'l_can_copy='||l_can_copy);
1734: END IF;
1735:
1736: RETURN l_can_copy;
1737: END can_copy_topline;
1967:
1968: BEGIN
1969:
1970: log_messages('Renewal Consolidation conurrent program - BEGIN, p_oie_id='|| p_oie_id);
1971: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1972: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin','l_conc_program = ' || l_conc_program ||' p_oie_id='|| p_oie_id);
1973: END IF;
1974:
1975: --standard api initilization and checks
1968: BEGIN
1969:
1970: log_messages('Renewal Consolidation conurrent program - BEGIN, p_oie_id='|| p_oie_id);
1971: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1972: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin','l_conc_program = ' || l_conc_program ||' p_oie_id='|| p_oie_id);
1973: END IF;
1974:
1975: --standard api initilization and checks
1976: SAVEPOINT submit_PVT;
2068: ELSE
2069: l_need_conversion := 'N';
2070: END IF;
2071:
2072: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2073: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_curr','Source Currency='|| l_source_curr ||' ,Source hdr id='|| cur_get_oper_top_lines.object_chr_id
2074: ||' ,Target Currency='|| l_target_curr || ' ,Target hdr id='|| l_target_header_id ||' ,l_need_conversion='|| l_need_conversion);
2075: END IF;
2076:
2069: l_need_conversion := 'N';
2070: END IF;
2071:
2072: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2073: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_curr','Source Currency='|| l_source_curr ||' ,Source hdr id='|| cur_get_oper_top_lines.object_chr_id
2074: ||' ,Target Currency='|| l_target_curr || ' ,Target hdr id='|| l_target_header_id ||' ,l_need_conversion='|| l_need_conversion);
2075: END IF;
2076:
2077: FOR cur_set_org IN set_org(l_target_header_id) LOOP
2082: Log_Messages('Inventory Org: '||cur_set_org.inv_organization_id);
2083: LOG_MESSAGES(' ');
2084:
2085:
2086: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2087: FND_LOG.string(FND_LOG.level_statement, l_mod_name ||'.set_context','Authoring Org='|| cur_set_org.org_id ||' Inventory Org='|| cur_set_org.inv_organization_id);
2088: END IF;
2089:
2090: END LOOP;
2083: LOG_MESSAGES(' ');
2084:
2085:
2086: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2087: FND_LOG.string(FND_LOG.level_statement, l_mod_name ||'.set_context','Authoring Org='|| cur_set_org.org_id ||' Inventory Org='|| cur_set_org.inv_organization_id);
2088: END IF;
2089:
2090: END LOOP;
2091:
2088: END IF;
2089:
2090: END LOOP;
2091:
2092: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2093: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_topline_merge','Calling merge, p_source_line_id='|| cur_get_oper_top_lines.object_cle_id
2094: ||' ,p_target_contract_id='|| cur_get_oper_top_lines.subject_chr_id);
2095: END IF;
2096:
2089:
2090: END LOOP;
2091:
2092: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2093: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_topline_merge','Calling merge, p_source_line_id='|| cur_get_oper_top_lines.object_cle_id
2094: ||' ,p_target_contract_id='|| cur_get_oper_top_lines.subject_chr_id);
2095: END IF;
2096:
2097: l_target_line_id := NULL;
2098: MERGE(p_source_line_id => cur_get_oper_top_lines.object_cle_id,
2099: p_target_contract_id => cur_get_oper_top_lines.subject_chr_id,
2100: x_target_line_id => l_target_line_id);
2101:
2102: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2103: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_topline_merge','After call to merge, l_target_line_id='|| l_target_line_id);
2104: END IF;
2105:
2106:
2099: p_target_contract_id => cur_get_oper_top_lines.subject_chr_id,
2100: x_target_line_id => l_target_line_id);
2101:
2102: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2103: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.check_topline_merge','After call to merge, l_target_line_id='|| l_target_line_id);
2104: END IF;
2105:
2106:
2107: IF l_target_line_id IS NULL THEN
2113: LOG_MESSAGES('Merge line found:'|| l_target_line_id);
2114: l_can_copy := 'N';
2115: END IF;
2116:
2117: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2118: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'l_can_copy=' || l_can_copy);
2119: END IF;
2120:
2121: log_messages('Source Topline id='|| cur_get_oper_top_lines.object_cle_id );
2114: l_can_copy := 'N';
2115: END IF;
2116:
2117: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2118: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'l_can_copy=' || l_can_copy);
2119: END IF;
2120:
2121: log_messages('Source Topline id='|| cur_get_oper_top_lines.object_cle_id );
2122: log_messages('Target Header id='|| cur_get_oper_top_lines.subject_chr_id );
2128: ------------------------------------------------------------
2129: ---COPY the TOP LINE FROM SOURCE TO TARGET
2130: ------------------------------------------------------------
2131:
2132: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2133: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_copy','Calling OKS_RENCPY_PVT.copy_contract_line p_from_cle_id='||cur_get_oper_top_lines.object_cle_id||
2134: ' ,p_from_chr_id='||cur_get_oper_top_lines.object_chr_id||' ,p_to_cle_id=NULL ,p_to_chr_id='||cur_get_oper_top_lines.subject_chr_id ||' ,p_need_conversion='|| l_need_conversion);
2135: END IF;
2136:
2129: ---COPY the TOP LINE FROM SOURCE TO TARGET
2130: ------------------------------------------------------------
2131:
2132: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2133: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_copy','Calling OKS_RENCPY_PVT.copy_contract_line p_from_cle_id='||cur_get_oper_top_lines.object_cle_id||
2134: ' ,p_from_chr_id='||cur_get_oper_top_lines.object_chr_id||' ,p_to_cle_id=NULL ,p_to_chr_id='||cur_get_oper_top_lines.subject_chr_id ||' ,p_need_conversion='|| l_need_conversion);
2135: END IF;
2136:
2137: LOG_MESSAGES('Calling OKS_RENCPY_PVT.COPY_CONTRACT_LINES 1: p_need_conversion = '|| l_need_conversion);
2159: LOG_MESSAGES('x_cle_id = ' || l_cle_id);
2160: LOG_MESSAGES(' ');
2161:
2162:
2163: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2164: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_copy','After call to OKS_RENCPY_PVT.copy_contract_line l_return_status='|| l_return_status ||' ,x_cle_id='|| l_cle_id);
2165: END IF;
2166:
2167: --for U:unexpected error stop, for E:regular error, try next line
2160: LOG_MESSAGES(' ');
2161:
2162:
2163: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2164: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_copy','After call to OKS_RENCPY_PVT.copy_contract_line l_return_status='|| l_return_status ||' ,x_cle_id='|| l_cle_id);
2165: END IF;
2166:
2167: --for U:unexpected error stop, for E:regular error, try next line
2168: --for W:warnings or S:Success continue
2197:
2198: ------------------------------------------------------------------------------
2199: ----If Copy is successful Delete the SLH and SLL rules that were copied
2200: ------------------------------------------------------------------------------
2201: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2202: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_billing','Calling OKS_BILL_UTIL_PUB.delete_slh_rule, p_cle_id='|| l_cle_id);
2203: END IF;
2204:
2205: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2198: ------------------------------------------------------------------------------
2199: ----If Copy is successful Delete the SLH and SLL rules that were copied
2200: ------------------------------------------------------------------------------
2201: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2202: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_billing','Calling OKS_BILL_UTIL_PUB.delete_slh_rule, p_cle_id='|| l_cle_id);
2203: END IF;
2204:
2205: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2206:
2214:
2215: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule l_return_status : '||l_return_status);
2216: LOG_MESSAGES(' ');
2217:
2218: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2219: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2220: END IF;
2221:
2222: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2215: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule l_return_status : '||l_return_status);
2216: LOG_MESSAGES(' ');
2217:
2218: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2219: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.top_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2220: END IF;
2221:
2222: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: RAISE FND_API.g_exc_unexpected_error;
2235: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(cur_get_oper_top_lines.id)
2236: LOOP
2237: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2238:
2239: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2240: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','Calling OKS_RENCPY_PVT.copy_contract_line p_need_conversion = '|| l_need_conversion ||
2241: ' ,p_from_cle_id='|| cur_get_oper_sub_lines.object_cle_id ||' ,p_from_chr_id='|| cur_get_oper_sub_lines.object_chr_id||' ,p_to_cle_id='|| l_cle_id ||
2242: ' ,p_to_chr_id='|| cur_get_oper_sub_lines.subject_chr_id);
2243: END IF;
2236: LOOP
2237: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2238:
2239: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2240: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','Calling OKS_RENCPY_PVT.copy_contract_line p_need_conversion = '|| l_need_conversion ||
2241: ' ,p_from_cle_id='|| cur_get_oper_sub_lines.object_cle_id ||' ,p_from_chr_id='|| cur_get_oper_sub_lines.object_chr_id||' ,p_to_cle_id='|| l_cle_id ||
2242: ' ,p_to_chr_id='|| cur_get_oper_sub_lines.subject_chr_id);
2243: END IF;
2244:
2263: p_renew_ref_yn => 'N',
2264: p_need_conversion => l_need_conversion,
2265: x_cle_id => s_cle_id);
2266:
2267: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2268: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','After call to OKS_RENCPY_PVT.copy_contract_line, l_return_status=' || l_return_status ||' ,x_cle_id=' || s_cle_id);
2269: END IF;
2270:
2271: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line, l_return_status : '||l_return_status);
2264: p_need_conversion => l_need_conversion,
2265: x_cle_id => s_cle_id);
2266:
2267: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2268: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','After call to OKS_RENCPY_PVT.copy_contract_line, l_return_status=' || l_return_status ||' ,x_cle_id=' || s_cle_id);
2269: END IF;
2270:
2271: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line, l_return_status : '||l_return_status);
2272: LOG_MESSAGES(' ');
2303:
2304: --------------------------------------------------------------------------
2305: ----If Copy is successful Delete the SLH and SLL rules that were copied
2306: --------------------------------------------------------------------------
2307: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2308: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','Calling OKS_BILL_UTIL_PUB.delete_slh_rule, p_cle_id='|| s_cle_id);
2309: END IF;
2310:
2311:
2304: --------------------------------------------------------------------------
2305: ----If Copy is successful Delete the SLH and SLL rules that were copied
2306: --------------------------------------------------------------------------
2307: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2308: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','Calling OKS_BILL_UTIL_PUB.delete_slh_rule, p_cle_id='|| s_cle_id);
2309: END IF;
2310:
2311:
2312: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2321:
2322: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status: '||l_return_status);
2323: LOG_MESSAGES(' ');
2324:
2325: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2326: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2327: END IF;
2328:
2329: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2322: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status: '||l_return_status);
2323: LOG_MESSAGES(' ');
2324:
2325: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2326: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2327: END IF;
2328:
2329: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2344:
2345: -------------------------------------------------------------------------------
2346: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2347: -------------------------------------------------------------------------------
2348: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2349: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','Calling OKS_REPRICE_PVT.call_pricing_api p_subject_chr_id='||l_target_header_id||
2350: ' ,p_subject_top_line_id='||l_cle_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2351: END IF;
2352:
2345: -------------------------------------------------------------------------------
2346: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2347: -------------------------------------------------------------------------------
2348: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2349: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','Calling OKS_REPRICE_PVT.call_pricing_api p_subject_chr_id='||l_target_header_id||
2350: ' ,p_subject_top_line_id='||l_cle_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2351: END IF;
2352:
2353: LOG_MESSAGES('Calling OKS_REPRICE_PVT.call_pricing_api');
2370:
2371: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2372: LOG_MESSAGES(' ');
2373:
2374: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2375: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2376: END IF;
2377:
2378: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2371: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2372: LOG_MESSAGES(' ');
2373:
2374: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2375: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2376: END IF;
2377:
2378: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2379: RAISE FND_API.g_exc_unexpected_error;
2399: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(cur_get_oper_top_lines.id) LOOP
2400: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2401:
2402:
2403: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2404: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','Calling OKS_RENCPY_PVT.copy_contract_line p_need_conversion = '|| l_need_conversion ||
2405: ' ,p_from_cle_id='|| cur_get_oper_sub_lines.object_cle_id ||' ,p_to_cle_id='|| l_target_line_id ||' ,p_to_chr_id='|| cur_get_oper_sub_lines.subject_chr_id);
2406: END IF;
2407:
2400: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2401:
2402:
2403: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2404: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','Calling OKS_RENCPY_PVT.copy_contract_line p_need_conversion = '|| l_need_conversion ||
2405: ' ,p_from_cle_id='|| cur_get_oper_sub_lines.object_cle_id ||' ,p_to_cle_id='|| l_target_line_id ||' ,p_to_chr_id='|| cur_get_oper_sub_lines.subject_chr_id);
2406: END IF;
2407:
2408: LOG_MESSAGES('---COPY all sublines in operation lines under merge top line l_target_line_id----');
2433:
2434: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line l_return_status : '||l_return_status);
2435: LOG_MESSAGES(' ');
2436:
2437: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2438: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','After call to OKS_RENCPY_PVT.copy_contract_line, l_return_status=' || l_return_status ||' ,x_cle_id=' || s_cle_id);
2439: END IF;
2440:
2441: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2434: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line l_return_status : '||l_return_status);
2435: LOG_MESSAGES(' ');
2436:
2437: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2438: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_copy','After call to OKS_RENCPY_PVT.copy_contract_line, l_return_status=' || l_return_status ||' ,x_cle_id=' || s_cle_id);
2439: END IF;
2440:
2441: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2442: NULL;
2467: l_opl_status_tbl(l_opl_id_tbl.count) := 'P';
2468:
2469: l_subject_sub_line_tbl(i) := s_cle_id;
2470:
2471: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2472: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','Calling OKS_BILL_UTIL_PUB.delete_slh_rule, p_cle_id='|| s_cle_id);
2473: END IF;
2474:
2475: ------------------------------------------------------------------------------
2468:
2469: l_subject_sub_line_tbl(i) := s_cle_id;
2470:
2471: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2472: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','Calling OKS_BILL_UTIL_PUB.delete_slh_rule, p_cle_id='|| s_cle_id);
2473: END IF;
2474:
2475: ------------------------------------------------------------------------------
2476: ----If Copy is successful Delete the SLH and SLL rules that were copied
2487:
2488: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule,l_return_status: '||l_return_status);
2489: LOG_MESSAGES(' ');
2490:
2491: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2492: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2493: END IF;
2494:
2495: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2488: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule,l_return_status: '||l_return_status);
2489: LOG_MESSAGES(' ');
2490:
2491: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2492: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.sub_line_billing','After call to OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status='|| l_return_status);
2493: END IF;
2494:
2495: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2496: RAISE FND_API.g_exc_unexpected_error;
2509: -------------------------------------------------------------------------------
2510: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2511: -------------------------------------------------------------------------------
2512:
2513: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2514: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','Calling OKS_REPRICE_PVT.call_pricing_api p_subject_chr_id='||l_target_header_id||
2515: ' ,p_subject_top_line_id='||l_target_line_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2516: END IF;
2517:
2510: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2511: -------------------------------------------------------------------------------
2512:
2513: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2514: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','Calling OKS_REPRICE_PVT.call_pricing_api p_subject_chr_id='||l_target_header_id||
2515: ' ,p_subject_top_line_id='||l_target_line_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2516: END IF;
2517:
2518: LOG_MESSAGES('Calling OKS_REPRICE_PVT.call_pricing_api');
2534: */
2535: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2536: LOG_MESSAGES(' ');
2537:
2538: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2539: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2540: END IF;
2541:
2542: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2535: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2536: LOG_MESSAGES(' ');
2537:
2538: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2539: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_repricing','After call to OKS_REPRICE_PVT.call_pricing_api l_return_status='|| l_return_status);
2540: END IF;
2541:
2542: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2543: RAISE FND_API.g_exc_unexpected_error;
2563: --update process status and subject cle id in okc_operation_lines for all
2564: --source toplines and sublines that where successfully copied to the target
2565: IF (l_opl_id_tbl.COUNT > 0 ) THEN
2566:
2567: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2568: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_opn_lines','updating okc_operation_lines l_opl_id_tbl.COUNT='||l_opl_id_tbl.COUNT);
2569: END IF;
2570:
2571: FORALL i IN l_opl_id_tbl.FIRST..l_opl_id_tbl.LAST
2564: --source toplines and sublines that where successfully copied to the target
2565: IF (l_opl_id_tbl.COUNT > 0 ) THEN
2566:
2567: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2568: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_opn_lines','updating okc_operation_lines l_opl_id_tbl.COUNT='||l_opl_id_tbl.COUNT);
2569: END IF;
2570:
2571: FORALL i IN l_opl_id_tbl.FIRST..l_opl_id_tbl.LAST
2572: UPDATE okc_operation_lines SET
2634:
2635: --update date_renewed for all the source sublines that where successfully copied
2636: IF (l_src_sub_line_id_tbl.COUNT > 0) THEN
2637:
2638: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2639: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_sub_lines','updating date_renewed for source sublines l_src_sub_line_id_tbl.COUNT='||l_src_sub_line_id_tbl.COUNT);
2640: END IF;
2641:
2642: l_date_renewed := sysdate;
2635: --update date_renewed for all the source sublines that where successfully copied
2636: IF (l_src_sub_line_id_tbl.COUNT > 0) THEN
2637:
2638: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2639: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_sub_lines','updating date_renewed for source sublines l_src_sub_line_id_tbl.COUNT='||l_src_sub_line_id_tbl.COUNT);
2640: END IF;
2641:
2642: l_date_renewed := sysdate;
2643: FORALL i IN l_src_sub_line_id_tbl.FIRST..l_src_sub_line_id_tbl.LAST
2654: WHERE id = l_src_sub_line_id_tbl(i);
2655:
2656: --update date_renewed for all the source toplines if all sublines under them have been renewed
2657: --if any sublines under a topline are terminated or cancelled they are ignored
2658: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2659: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_top_lines','updating date_renewed for source toplines');
2660: END IF;
2661:
2662: UPDATE okc_k_lines_b tl SET
2655:
2656: --update date_renewed for all the source toplines if all sublines under them have been renewed
2657: --if any sublines under a topline are terminated or cancelled they are ignored
2658: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2659: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_top_lines','updating date_renewed for source toplines');
2660: END IF;
2661:
2662: UPDATE okc_k_lines_b tl SET
2663: tl.date_renewed = l_date_renewed,
2684: AND sl.date_renewed IS NULL);
2685:
2686: --update date_renewed for all the source headers if all toplines under them have been renewed
2687: --if any toplines are terminated or cancelled they are ignored
2688: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2689: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_headers','updating date_renewed for source headers');
2690: END IF;
2691:
2692: UPDATE okc_k_headers_all_b h SET
2685:
2686: --update date_renewed for all the source headers if all toplines under them have been renewed
2687: --if any toplines are terminated or cancelled they are ignored
2688: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2689: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_headers','updating date_renewed for source headers');
2690: END IF;
2691:
2692: UPDATE okc_k_headers_all_b h SET
2693: h.date_renewed = l_date_renewed,
2725: log_messages('Processed selected lines');
2726: LOG_MESSAGES(' ');
2727:
2728:
2729: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2730: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_invoice_text','Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text p_chr_id='||l_target_header_id);
2731: END IF;
2732:
2733: LOG_MESSAGES('Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text');
2726: LOG_MESSAGES(' ');
2727:
2728:
2729: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2730: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_invoice_text','Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text p_chr_id='||l_target_header_id);
2731: END IF;
2732:
2733: LOG_MESSAGES('Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text');
2734:
2743:
2744: LOG_MESSAGES('After Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text, l_return_status: '||l_return_status);
2745: LOG_MESSAGES(' ');
2746:
2747: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2748: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_invoice_text','After call to OKS_RENEW_CONTRACT_PVT.update_invoice_text l_return_status='||l_return_status);
2749: END IF;
2750:
2751: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2744: LOG_MESSAGES('After Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text, l_return_status: '||l_return_status);
2745: LOG_MESSAGES(' ');
2746:
2747: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2748: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_invoice_text','After call to OKS_RENEW_CONTRACT_PVT.update_invoice_text l_return_status='||l_return_status);
2749: END IF;
2750:
2751: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2758:
2759: ------------------------------------------------------------------------------
2760: ---Since all operations are done update the contract amount
2761: ------------------------------------------------------------------------------
2762: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2763: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','calling update_contract_amount p_header_id='||l_target_header_id);
2764: END IF;
2765:
2766: UPDATE_CONTRACT_AMOUNT(
2759: ------------------------------------------------------------------------------
2760: ---Since all operations are done update the contract amount
2761: ------------------------------------------------------------------------------
2762: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2763: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','calling update_contract_amount p_header_id='||l_target_header_id);
2764: END IF;
2765:
2766: UPDATE_CONTRACT_AMOUNT(
2767: p_header_id => l_target_header_id,
2766: UPDATE_CONTRACT_AMOUNT(
2767: p_header_id => l_target_header_id,
2768: x_return_status => l_return_status);
2769:
2770: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2771: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','after call to update_contract_amount l_return_status='||l_return_status);
2772: END IF;
2773:
2774: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2767: p_header_id => l_target_header_id,
2768: x_return_status => l_return_status);
2769:
2770: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2771: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','after call to update_contract_amount l_return_status='||l_return_status);
2772: END IF;
2773:
2774: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2775: RAISE FND_API.g_exc_unexpected_error;
2802: END IF;
2803:
2804: COMMIT;
2805:
2806: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2807: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status=' || x_return_status ||' ,retcode='|| retcode);
2808: END IF;
2809: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2810:
2803:
2804: COMMIT;
2805:
2806: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2807: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status=' || x_return_status ||' ,retcode='|| retcode);
2808: END IF;
2809: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2810:
2811: log_messages('Renewal Consolidation conurrent program - END');
2818: x_return_status := FND_API.g_ret_sts_error ;
2819: retcode := 2;
2820: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2821:
2822: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2823: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_error', 'x_return_status='||x_return_status);
2824: END IF;
2825: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2826:
2819: retcode := 2;
2820: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2821:
2822: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2823: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_error', 'x_return_status='||x_return_status);
2824: END IF;
2825: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2826:
2827: IF(get_oper_top_lines%isopen) THEN
2847: x_return_status := FND_API.g_ret_sts_unexp_error ;
2848: retcode := 2;
2849: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2850:
2851: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2852: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status='||x_return_status);
2853: END IF;
2854: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2855:
2848: retcode := 2;
2849: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2850:
2851: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2852: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status='||x_return_status);
2853: END IF;
2854: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2855:
2856: IF(get_oper_top_lines%isopen) THEN
2877: retcode := 2;
2878: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2879: errbuf := SQLCODE || SQLERRM;
2880:
2881: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2882: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', errbuf);
2883: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, errbuf);
2884: END IF;
2885: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2878: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2879: errbuf := SQLCODE || SQLERRM;
2880:
2881: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2882: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', errbuf);
2883: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, errbuf);
2884: END IF;
2885: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2886:
2937: l_prog_id NUMBER;
2938:
2939: BEGIN
2940:
2941: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2942: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_header_id='||p_header_id);
2943: END IF;
2944:
2945: SAVEPOINT update_contract_amount_PVT;
2938:
2939: BEGIN
2940:
2941: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2942: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_header_id='||p_header_id);
2943: END IF;
2944:
2945: SAVEPOINT update_contract_amount_PVT;
2946: x_return_status := FND_API.G_RET_STS_SUCCESS;
2959: OPEN c_top_lines(p_header_id);
2960: LOOP
2961: FETCH c_top_lines BULK COLLECT INTO l_id_tbl, l_price_tbl, l_tax_tbl LIMIT 1000;
2962:
2963: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2964: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_loop','l_id_tbl.count='||l_id_tbl.count);
2965: END IF;
2966:
2967: EXIT WHEN (l_id_tbl.COUNT = 0);
2960: LOOP
2961: FETCH c_top_lines BULK COLLECT INTO l_id_tbl, l_price_tbl, l_tax_tbl LIMIT 1000;
2962:
2963: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2964: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_loop','l_id_tbl.count='||l_id_tbl.count);
2965: END IF;
2966:
2967: EXIT WHEN (l_id_tbl.COUNT = 0);
2968:
2995: l_id_tbl.delete;
2996: l_price_tbl.delete;
2997: l_tax_tbl.delete;
2998:
2999: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3000: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_lines','top lines price_negotiated and tax_amount updated');
3001: END IF;
3002:
3003: --update the header
2996: l_price_tbl.delete;
2997: l_tax_tbl.delete;
2998:
2999: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3000: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_lines','top lines price_negotiated and tax_amount updated');
3001: END IF;
3002:
3003: --update the header
3004: UPDATE okc_k_headers_all_b h
3027: h.last_update_login = l_login_id,
3028: h.request_id = l_request_id
3029: WHERE h.chr_id = p_header_id;
3030:
3031: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3032: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.header','header estimated_amount and tax_amount updated');
3033: END IF;
3034:
3035: END IF;
3028: h.request_id = l_request_id
3029: WHERE h.chr_id = p_header_id;
3030:
3031: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3032: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.header','header estimated_amount and tax_amount updated');
3033: END IF;
3034:
3035: END IF;
3036:
3033: END IF;
3034:
3035: END IF;
3036:
3037: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
3038: FND_LOG.string(FND_LOG.level_procedure,l_mod_name||'.end','x_return_status='||x_return_status);
3039: END IF;
3040:
3041: EXCEPTION
3034:
3035: END IF;
3036:
3037: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
3038: FND_LOG.string(FND_LOG.level_procedure,l_mod_name||'.end','x_return_status='||x_return_status);
3039: END IF;
3040:
3041: EXCEPTION
3042:
3043: WHEN OTHERS THEN
3044: ROLLBACK TO update_contract_amount_PVT;
3045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3046:
3047: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3048: l_error_text := substr (SQLERRM, 1, 240);
3049: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3050: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3051: END IF;
3045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3046:
3047: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3048: l_error_text := substr (SQLERRM, 1, 240);
3049: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3050: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3051: END IF;
3052: IF (c_top_lines%isopen) THEN
3053: CLOSE c_top_lines;