[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
392: IF p_select_yn = 'Y' AND NVL(cur_operation_lines.select_yn, 'N') = 'N' THEN
393: set_ol_selected(p_id => cur_operation_lines.id,
394: x_return_status => x_return_status);
395:
396: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
397: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'set_ol_selected l_return_status: '|| x_return_status);
398: END IF;
399:
400: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
393: set_ol_selected(p_id => cur_operation_lines.id,
394: x_return_status => x_return_status);
395:
396: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
397: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'set_ol_selected l_return_status: '|| x_return_status);
398: END IF;
399:
400: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
401: x_sources_tbl(i).select_yn := 'Y';
400: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
401: x_sources_tbl(i).select_yn := 'Y';
402: ELSE
403:
404: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
405: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Unable to set select_yn to Y ');
406: END IF;
407:
408: x_return_status := OKC_API.G_RET_STS_ERROR;
401: x_sources_tbl(i).select_yn := 'Y';
402: ELSE
403:
404: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
405: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Unable to set select_yn to Y ');
406: END IF;
407:
408: x_return_status := OKC_API.G_RET_STS_ERROR;
409: RETURN;
409: RETURN;
410: END IF;
411: END IF;
412:
413: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
414: 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);
415: END IF;
416:
417: i := i + 1;
410: END IF;
411: END IF;
412:
413: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
414: 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);
415: END IF;
416:
417: i := i + 1;
418: END LOOP; -- get_correct_sts
587: ---PROGRAM STARTS HERE
588: -----------------------------------------------------------------------------
589: BEGIN
590: l_conc_program := p_conc_program;
591: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
592: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'l_conc_program = ' || l_conc_program);
593: END IF;
594:
595: -----------------------------------------------------------------------------
588: -----------------------------------------------------------------------------
589: BEGIN
590: l_conc_program := p_conc_program;
591: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
592: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'l_conc_program = ' || l_conc_program);
593: END IF;
594:
595: -----------------------------------------------------------------------------
596: ---Check for validity of target
611: OKC_API.set_message(p_app_name => 'OKS',
612: p_msg_name => 'OKS_INVALID_TARGET',
613: p_token1 => NULL,
614: p_token1_value => NULL);
615: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
616: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
617: END IF;
618: x_program_status := G_TARGET_INVALID;
619: x_return_status := OKC_API.G_RET_STS_ERROR;
612: p_msg_name => 'OKS_INVALID_TARGET',
613: p_token1 => NULL,
614: p_token1_value => NULL);
615: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
616: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
617: END IF;
618: x_program_status := G_TARGET_INVALID;
619: x_return_status := OKC_API.G_RET_STS_ERROR;
620: END;
627: ---populate a PLSQL table contract_id||line_id||subline_id
628: ----------------------------------------------------------------------------
629: IF (x_program_status = G_TARGET_VALID) THEN
630:
631: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
632: 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);
633: END IF;
634:
635: BEGIN
628: ----------------------------------------------------------------------------
629: IF (x_program_status = G_TARGET_VALID) THEN
630:
631: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
632: 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);
633: END IF;
634:
635: BEGIN
636: i := 0;
640: ---The IF and ELSE sections of the following codes must be modified consistently.
641: -----------------------------------------------------------------------------------------
642: IF x_currency_code = 'EUR' THEN
643:
644: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
645: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'EURO Target');
646: END IF;
647:
648: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
641: -----------------------------------------------------------------------------------------
642: IF x_currency_code = 'EUR' THEN
643:
644: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
645: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'EURO Target');
646: END IF;
647:
648: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
649: LOOP
647:
648: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
649: LOOP
650:
651: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
652: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
653: END IF;
654:
655: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
648: FOR valid_header_sources_rec IN valid_header_sources_eur(p_target_id)
649: LOOP
650:
651: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
652: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
653: END IF;
654:
655: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
656: LOOP
666: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;
667: x_sources_tbl(i).select_yn := p_select_yn;
668: x_sources_tbl(i).ol_status := 'A';
669:
670: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
671: 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);
672: END IF;
673: i := i + 1;
674: -- END IF;
667: x_sources_tbl(i).select_yn := p_select_yn;
668: x_sources_tbl(i).ol_status := 'A';
669:
670: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
671: 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);
672: END IF;
673: i := i + 1;
674: -- END IF;
675: -- END IF;
676: END LOOP;
677: END LOOP;
678: ELSE
679:
680: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
681: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Non-EURO Target');
682: END IF;
683:
684: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
677: END LOOP;
678: ELSE
679:
680: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
681: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Non-EURO Target');
682: END IF;
683:
684: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
685: LOOP
683:
684: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
685: LOOP
686:
687: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
688: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
689: END IF;
690:
691: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
684: FOR valid_header_sources_rec IN valid_header_sources(p_target_id)
685: LOOP
686:
687: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
688: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'SELECTING ELIGIBLE SUBLINES valid_header_sources_rec.id = ' || valid_header_sources_rec.id);
689: END IF;
690:
691: FOR valid_subline_sources_rec IN valid_subline_sources(valid_header_sources_rec.id, p_target_id)
692: LOOP
702: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;
703: x_sources_tbl(i).select_yn := p_select_yn;
704: x_sources_tbl(i).ol_status := 'A';
705:
706: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
707: 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);
708: END IF;
709: i := i + 1;
710: -- END IF;
703: x_sources_tbl(i).select_yn := p_select_yn;
704: x_sources_tbl(i).ol_status := 'A';
705:
706: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
707: 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);
708: END IF;
709: i := i + 1;
710: -- END IF;
711: --END IF;
713: END LOOP;
714: END IF;
715: EXCEPTION
716: WHEN NO_DATA_FOUND THEN
717: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
718: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'NO CONTRACT SOURCES FOUND');
719: END IF;
720: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'valid_header_sources');
721: END;
714: END IF;
715: EXCEPTION
716: WHEN NO_DATA_FOUND THEN
717: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
718: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'NO CONTRACT SOURCES FOUND');
719: END IF;
720: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'valid_header_sources');
721: END;
722: ----------------------------------------------------------------------------
734: END IF;
735: CLOSE oper_inst;
736: EXCEPTION
737: WHEN NO_DATA_FOUND THEN
738: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
739: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES NO_DATA_FOUND');
740: END IF;
741: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
742: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
735: CLOSE oper_inst;
736: EXCEPTION
737: WHEN NO_DATA_FOUND THEN
738: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
739: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES NO_DATA_FOUND');
740: END IF;
741: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
742: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
743: WHEN OTHERS THEN
740: END IF;
741: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
742: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
743: WHEN OTHERS THEN
744: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
745: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES OTHERS ');
746: END IF;
747: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
748: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
741: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
742: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
743: WHEN OTHERS THEN
744: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
745: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES OTHERS ');
746: END IF;
747: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
748: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
749: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
757: p_oie_id => x_oie_id,
758: p_sources_tbl_type => x_sources_tbl) ;
759: EXCEPTION
760: WHEN NO_DATA_FOUND THEN
761: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
762: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES NO_DATA_FOUND');
763: END IF;
764: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
765: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
758: p_sources_tbl_type => x_sources_tbl) ;
759: EXCEPTION
760: WHEN NO_DATA_FOUND THEN
761: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
762: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES NO_DATA_FOUND');
763: END IF;
764: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
765: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
766: WHEN OTHERS THEN
763: END IF;
764: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
765: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
766: WHEN OTHERS THEN
767: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
768: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES OTHERS ');
769: END IF;
770: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
771: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
764: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
765: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
766: WHEN OTHERS THEN
767: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
768: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES OTHERS ');
769: END IF;
770: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
771: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
772: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
847: x_oiev_tbl => l_oiev_tbl_out
848: );
849: p_oie_id := l_oiev_tbl_out(1).id;
850:
851: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
852: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_return_status = ' || l_return_status);
853: END IF;
854:
855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
848: );
849: p_oie_id := l_oiev_tbl_out(1).id;
850:
851: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
852: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_return_status = ' || l_return_status);
853: END IF;
854:
855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
856: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
852: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_return_status = ' || l_return_status);
853: END IF;
854:
855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
856: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
857: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
858: END IF;
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
853: END IF;
854:
855: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
856: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
857: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
858: END IF;
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
861: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
857: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
858: END IF;
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
861: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
862: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
863: END IF;
864: RAISE OKC_API.G_EXCEPTION_ERROR;
865: END IF;
858: END IF;
859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
861: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
862: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Instance l_msg_data = ' || l_msg_data);
863: END IF;
864: RAISE OKC_API.G_EXCEPTION_ERROR;
865: END IF;
866:
910: x_return VARCHAR2(200) := 'N';
911: v_index BINARY_INTEGER;
912: BEGIN
913:
914: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
915: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
916: END IF;
917:
918: IF p_id_list.COUNT > 0 THEN
911: v_index BINARY_INTEGER;
912: BEGIN
913:
914: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
915: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
916: END IF;
917:
918: IF p_id_list.COUNT > 0 THEN
919: v_index := p_id_list.FIRST;
930:
931: END LOOP;
932: END IF;
933:
934: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
935: 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);
936: END IF;
937:
938: RETURN(x_return);
931: END LOOP;
932: END IF;
933:
934: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
935: 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);
936: END IF;
937:
938: RETURN(x_return);
939: EXCEPTION
937:
938: RETURN(x_return);
939: EXCEPTION
940: WHEN NO_DATA_FOUND THEN
941: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
942: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT NO_DATA_FOUND');
943: END IF;
944: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
945: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
938: RETURN(x_return);
939: EXCEPTION
940: WHEN NO_DATA_FOUND THEN
941: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
942: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT NO_DATA_FOUND');
943: END IF;
944: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
945: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
946: WHEN OTHERS THEN
943: END IF;
944: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
945: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
946: WHEN OTHERS THEN
947: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
948: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT OTHERS ');
949: END IF;
950: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
951: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
944: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
945: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
946: WHEN OTHERS THEN
947: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
948: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT OTHERS ');
949: END IF;
950: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
951: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
952: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
956: 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
957: x_return VARCHAR2(200) := 'N';
958: v_index BINARY_INTEGER;
959: BEGIN
960: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
961: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
962: END IF;
963: IF p_id_list.COUNT > 0 THEN
964: v_index := p_id_list.FIRST;
957: x_return VARCHAR2(200) := 'N';
958: v_index BINARY_INTEGER;
959: BEGIN
960: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
961: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'p_id_list.COUNT = ' || p_id_list.COUNT);
962: END IF;
963: IF p_id_list.COUNT > 0 THEN
964: v_index := p_id_list.FIRST;
965: LOOP
975:
976: END LOOP;
977: END IF;
978:
979: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
980: 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);
981: END IF;
982:
983: RETURN(x_return);
976: END LOOP;
977: END IF;
978:
979: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
980: 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);
981: END IF;
982:
983: RETURN(x_return);
984: EXCEPTION
982:
983: RETURN(x_return);
984: EXCEPTION
985: WHEN NO_DATA_FOUND THEN
986: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
987: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT NO_DATA_FOUND');
988: END IF;
989: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
990: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
983: RETURN(x_return);
984: EXCEPTION
985: WHEN NO_DATA_FOUND THEN
986: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
987: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT NO_DATA_FOUND');
988: END IF;
989: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
990: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
991: WHEN OTHERS THEN
988: END IF;
989: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
990: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
991: WHEN OTHERS THEN
992: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
993: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT OTHERS ');
994: END IF;
995: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
996: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
989: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
990: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
991: WHEN OTHERS THEN
992: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
993: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT OTHERS ');
994: END IF;
995: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
996: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
997: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
1090: p_olev_tbl => l_olev_tbl_in,
1091: x_olev_tbl => l_olev_tbl_out
1092: );
1093:
1094: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1095: 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);
1096: END IF;
1097: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1098: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1091: x_olev_tbl => l_olev_tbl_out
1092: );
1093:
1094: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1095: 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);
1096: END IF;
1097: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1098: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1099: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1094: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1095: 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);
1096: END IF;
1097: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1098: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1099: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1100: END IF;
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: 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);
1096: END IF;
1097: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1098: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1099: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1100: END IF;
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1099: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1100: END IF;
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1104: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1105: END IF;
1106: RAISE OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1100: END IF;
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1104: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1105: END IF;
1106: RAISE OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: ------------------------------------------------------------------------------------
1105: END IF;
1106: RAISE OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: ------------------------------------------------------------------------------------
1109: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1110: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list_k with the operation_lines_id');
1111: END IF;
1112: ------------------------------------------------------------------------------------
1113: i := 0;
1106: RAISE OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: ------------------------------------------------------------------------------------
1109: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1110: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list_k with the operation_lines_id');
1111: END IF;
1112: ------------------------------------------------------------------------------------
1113: i := 0;
1114: j := 0;
1114: j := 0;
1115: WHILE v_id_list_k.EXISTS(j) LOOP
1116: IF v_id_list_k(j).operation_lines_id = 0 THEN
1117: v_id_list_k(j).operation_lines_id := l_olev_tbl_out(i).id;
1118: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1119: 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);
1120: END IF;
1121: i := i + 1;
1122: END IF;
1115: WHILE v_id_list_k.EXISTS(j) LOOP
1116: IF v_id_list_k(j).operation_lines_id = 0 THEN
1117: v_id_list_k(j).operation_lines_id := l_olev_tbl_out(i).id;
1118: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1119: 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);
1120: END IF;
1121: i := i + 1;
1122: END IF;
1123: j := j + 1;
1183: p_olev_tbl => l_olev_tbl_in,
1184: x_olev_tbl => l_olev_tbl_out
1185: );
1186:
1187: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1188: 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);
1189: END IF;
1190:
1191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1184: x_olev_tbl => l_olev_tbl_out
1185: );
1186:
1187: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1188: 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);
1189: END IF;
1190:
1191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1192: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1188: 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);
1189: END IF;
1190:
1191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1192: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1193: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1194: END IF;
1195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1189: END IF;
1190:
1191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1192: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1193: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1194: END IF;
1195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1197: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1193: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1194: END IF;
1195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1197: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1198: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1199: END IF;
1200: RAISE OKC_API.G_EXCEPTION_ERROR;
1201: END IF;
1194: END IF;
1195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1197: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1198: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1199: END IF;
1200: RAISE OKC_API.G_EXCEPTION_ERROR;
1201: END IF;
1202: ------------------------------------------------------------------------------------
1199: END IF;
1200: RAISE OKC_API.G_EXCEPTION_ERROR;
1201: END IF;
1202: ------------------------------------------------------------------------------------
1203: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1204: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list with the operation_lines_id');
1205: END IF;
1206: ------------------------------------------------------------------------------------
1207: i := 0;
1200: RAISE OKC_API.G_EXCEPTION_ERROR;
1201: END IF;
1202: ------------------------------------------------------------------------------------
1203: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1204: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'Update the v_id_list with the operation_lines_id');
1205: END IF;
1206: ------------------------------------------------------------------------------------
1207: i := 0;
1208: j := 0;
1208: j := 0;
1209: WHILE v_id_list.EXISTS(j) LOOP
1210: IF v_id_list(j).operation_lines_id = 0 THEN
1211: v_id_list(j).operation_lines_id := l_olev_tbl_out(i).id;
1212: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1213: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TOP LINE l_olev_tbl_out('|| i ||').id = ' || l_olev_tbl_out(i).id);
1214: END IF;
1215: i := i + 1;
1216: END IF;
1209: WHILE v_id_list.EXISTS(j) LOOP
1210: IF v_id_list(j).operation_lines_id = 0 THEN
1211: v_id_list(j).operation_lines_id := l_olev_tbl_out(i).id;
1212: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1213: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TOP LINE l_olev_tbl_out('|| i ||').id = ' || l_olev_tbl_out(i).id);
1214: END IF;
1215: i := i + 1;
1216: END IF;
1217: j := j + 1;
1217: j := j + 1;
1218: END LOOP;
1219:
1220: -----------------------------------------------------------------------
1221: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1222: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'CREATE the header source sublines in operation_lines');
1223: END IF;
1224: -----------------------------------------------------------------------
1225: i := 0;
1218: END LOOP;
1219:
1220: -----------------------------------------------------------------------
1221: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1222: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'CREATE the header source sublines in operation_lines');
1223: END IF;
1224: -----------------------------------------------------------------------
1225: i := 0;
1226: j := 0;
1261: p_olev_tbl => l_olev_tbl_in,
1262: x_olev_tbl => l_olev_tbl_out
1263: );
1264:
1265: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1266: 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);
1267: END IF;
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1262: x_olev_tbl => l_olev_tbl_out
1263: );
1264:
1265: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1266: 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);
1267: END IF;
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1270: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1265: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1266: 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);
1267: END IF;
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1270: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1271: END IF;
1272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1266: 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);
1267: END IF;
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1270: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1271: END IF;
1272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1274: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1270: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1271: END IF;
1272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1274: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1275: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1276: END IF;
1277: RAISE OKC_API.G_EXCEPTION_ERROR;
1278: END IF;
1271: END IF;
1272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1274: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1275: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKC_OPER_INST_PUB.Create_Operation_Line l_msg_data = ' || l_msg_data);
1276: END IF;
1277: RAISE OKC_API.G_EXCEPTION_ERROR;
1278: END IF;
1279: ------------------------------------------------------------------------------------
1351: x_return := TRUE;
1352: END LOOP;
1353: EXCEPTION
1354: WHEN NO_DATA_FOUND THEN
1355: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1356: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
1357: END IF;
1358: --x_return := G_TARGET_INVALID;
1359: x_return := FALSE;
1352: END LOOP;
1353: EXCEPTION
1354: WHEN NO_DATA_FOUND THEN
1355: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1356: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'TARGET IS INVALID');
1357: END IF;
1358: --x_return := G_TARGET_INVALID;
1359: x_return := FALSE;
1360: END;
1386: exit; -- Added for bug#5981381
1387: END LOOP;
1388: EXCEPTION
1389: WHEN NO_DATA_FOUND THEN
1390: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1391: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'GET_PARENT_LINE_ID INVALID');
1392: END IF;
1393: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'GET_PARENT_LINE_ID');
1394: x_return := NULL;
1387: END LOOP;
1388: EXCEPTION
1389: WHEN NO_DATA_FOUND THEN
1390: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1391: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'GET_PARENT_LINE_ID INVALID');
1392: END IF;
1393: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'GET_PARENT_LINE_ID');
1394: x_return := NULL;
1395: END;
1429:
1430:
1431: BEGIN
1432:
1433: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1434: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_line_id='|| p_line_id);
1435: END IF;
1436:
1437: x_line_details.line_id := p_line_id;
1430:
1431: BEGIN
1432:
1433: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1434: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_line_id='|| p_line_id);
1435: END IF;
1436:
1437: x_line_details.line_id := p_line_id;
1438:
1447: x_line_details.start_date := cur_get_lrt_bto.start_date;
1448: x_line_details.end_date := cur_get_lrt_bto.end_date;
1449: END LOOP;
1450:
1451: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1452: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_line_details.lrt_rule='|| x_line_details.lrt_rule);
1453: END IF;
1454:
1455: END GET_LINE_DETAILS;
1448: x_line_details.end_date := cur_get_lrt_bto.end_date;
1449: END LOOP;
1450:
1451: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1452: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_line_details.lrt_rule='|| x_line_details.lrt_rule);
1453: END IF;
1454:
1455: END GET_LINE_DETAILS;
1456:
1482: i NUMBER;
1483:
1484: BEGIN
1485:
1486: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1487:
1488: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'begin');
1489:
1490: 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||
1484: BEGIN
1485:
1486: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1487:
1488: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'begin');
1489:
1490: 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||
1491: ' ,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||
1492: ' ,start_date='||p_source_line_details.start_date||' ,end_date='||p_source_line_details.end_date);
1486: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1487:
1488: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'begin');
1489:
1490: 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||
1491: ' ,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||
1492: ' ,start_date='||p_source_line_details.start_date||' ,end_date='||p_source_line_details.end_date);
1493:
1494: 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||
1490: 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||
1491: ' ,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||
1492: ' ,start_date='||p_source_line_details.start_date||' ,end_date='||p_source_line_details.end_date);
1493:
1494: 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||
1495: ' ,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||
1496: ' ,start_date='||p_target_line_details.start_date||' ,end_date='||p_target_line_details.end_date);
1497:
1498: END IF;
1521: x_duration => l_target_duration,
1522: x_timeunit => l_target_timeunit,
1523: x_return_status => l_return_status);
1524:
1525: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1526: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_target_duration='||l_target_duration||' ,l_target_timeunit='||l_target_timeunit);
1527: END IF;
1528:
1529: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1522: x_timeunit => l_target_timeunit,
1523: x_return_status => l_return_status);
1524:
1525: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1526: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_target_duration='||l_target_duration||' ,l_target_timeunit='||l_target_timeunit);
1527: END IF;
1528:
1529: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1530: OKC_TIME_UTIL_PUB.get_duration (
1533: x_duration => l_source_duration,
1534: x_timeunit => l_source_timeunit,
1535: x_return_status => l_return_status);
1536:
1537: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1538: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_source_duration='||l_source_duration||' ,l_source_timeunit='||l_source_timeunit);
1539: END IF;
1540:
1541: END IF;
1534: x_timeunit => l_source_timeunit,
1535: x_return_status => l_return_status);
1536:
1537: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1538: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.lrt_KEP', 'l_source_duration='||l_source_duration||' ,l_source_timeunit='||l_source_timeunit);
1539: END IF;
1540:
1541: END IF;
1542:
1548: p_start_date => l_source_start_date,
1549: p_duration => l_source_duration,
1550: p_timeunit => l_source_timeunit);
1551:
1552: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1553: 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);
1554: END IF;
1555:
1556: IF (l_source_start_date = p_target_line_details.start_date)
1549: p_duration => l_source_duration,
1550: p_timeunit => l_source_timeunit);
1551:
1552: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1553: 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);
1554: END IF;
1555:
1556: IF (l_source_start_date = p_target_line_details.start_date)
1557: AND (l_source_end_date = p_target_line_details.end_date) THEN
1584:
1585: IF (x_return = 'Y' AND
1586: FND_PROFILE.VALUE('OKS_CHECK_COV_MATCH') = 'Y') THEN
1587:
1588: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1589: 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');
1590: END IF;
1591:
1592: OKS_COVERAGES_PUB.check_coverage_match(
1585: IF (x_return = 'Y' AND
1586: FND_PROFILE.VALUE('OKS_CHECK_COV_MATCH') = 'Y') THEN
1587:
1588: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1589: 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');
1590: END IF;
1591:
1592: OKS_COVERAGES_PUB.check_coverage_match(
1593: p_api_version => l_api_version,
1598: P_Source_contract_Line_Id => p_source_line_details.line_id,
1599: P_Target_contract_Line_Id => p_target_line_details.line_id,
1600: x_coverage_match => l_coverage_match);
1601:
1602: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1603: 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);
1604: END IF;
1605:
1606: IF l_coverage_match <> 'Y' THEN
1599: P_Target_contract_Line_Id => p_target_line_details.line_id,
1600: x_coverage_match => l_coverage_match);
1601:
1602: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1603: 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);
1604: END IF;
1605:
1606: IF l_coverage_match <> 'Y' THEN
1607: x_return := 'N' ;
1604: END IF;
1605:
1606: IF l_coverage_match <> 'Y' THEN
1607: x_return := 'N' ;
1608: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1609: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match','Coverage Mismatch occured');
1610: END IF;
1611: END IF;
1612:
1605:
1606: IF l_coverage_match <> 'Y' THEN
1607: x_return := 'N' ;
1608: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1609: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.cov_match','Coverage Mismatch occured');
1610: END IF;
1611: END IF;
1612:
1613: END IF;
1613: END IF;
1614:
1615: END IF;
1616:
1617: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1618: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_return = ' || x_return);
1619: END IF;
1620:
1621: RETURN(x_return);
1614:
1615: END IF;
1616:
1617: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1618: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_return = ' || x_return);
1619: END IF;
1620:
1621: RETURN(x_return);
1622: END MERGE_ELIGIBLE_YN;
1643: p_source_line_details OKS_RENCON_PVT.merge_rec_type;
1644:
1645: BEGIN
1646:
1647: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1648: 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);
1649: END IF;
1650:
1651: x_target_line_id := NULL;
1644:
1645: BEGIN
1646:
1647: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1648: 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);
1649: END IF;
1650:
1651: x_target_line_id := NULL;
1652:
1657:
1658: get_line_details(p_line_id => cur_target_line_id.id,
1659: x_line_details => p_target_line_details);
1660:
1661: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1662: 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);
1663: END IF;
1664:
1665: IF merge_eligible_yn(p_source_line_details, p_target_line_details) = 'Y' THEN
1658: get_line_details(p_line_id => cur_target_line_id.id,
1659: x_line_details => p_target_line_details);
1660:
1661: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1662: 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);
1663: END IF;
1664:
1665: IF merge_eligible_yn(p_source_line_details, p_target_line_details) = 'Y' THEN
1666: x_target_line_id := cur_target_line_id.id;
1668: END IF;
1669:
1670: END LOOP;
1671:
1672: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1673: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_target_line_id='|| x_target_line_id );
1674: END IF;
1675: END MERGE;
1676:
1669:
1670: END LOOP;
1671:
1672: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1673: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end','x_target_line_id='|| x_target_line_id );
1674: END IF;
1675: END MERGE;
1676:
1677:
1718: AND select_yn = 'Y';
1719: */
1720:
1721: BEGIN
1722: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1723: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'p_ole_id='||p_ole_id);
1724: END IF;
1725:
1726: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(p_ole_id)
1719: */
1720:
1721: BEGIN
1722: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1723: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin', 'p_ole_id='||p_ole_id);
1724: END IF;
1725:
1726: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(p_ole_id)
1727: LOOP
1730: exit; -- bug 6209038
1731: END IF;
1732: END LOOP;
1733:
1734: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1735: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end', 'l_can_copy='||l_can_copy);
1736: END IF;
1737:
1738: RETURN l_can_copy;
1731: END IF;
1732: END LOOP;
1733:
1734: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1735: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.end', 'l_can_copy='||l_can_copy);
1736: END IF;
1737:
1738: RETURN l_can_copy;
1739: END can_copy_topline;
1969:
1970: BEGIN
1971:
1972: log_messages('Renewal Consolidation conurrent program - BEGIN, p_oie_id='|| p_oie_id);
1973: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1974: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin','l_conc_program = ' || l_conc_program ||' p_oie_id='|| p_oie_id);
1975: END IF;
1976:
1977: --standard api initilization and checks
1970: BEGIN
1971:
1972: log_messages('Renewal Consolidation conurrent program - BEGIN, p_oie_id='|| p_oie_id);
1973: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1974: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin','l_conc_program = ' || l_conc_program ||' p_oie_id='|| p_oie_id);
1975: END IF;
1976:
1977: --standard api initilization and checks
1978: SAVEPOINT submit_PVT;
2070: ELSE
2071: l_need_conversion := 'N';
2072: END IF;
2073:
2074: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2075: 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
2076: ||' ,Target Currency='|| l_target_curr || ' ,Target hdr id='|| l_target_header_id ||' ,l_need_conversion='|| l_need_conversion);
2077: END IF;
2078:
2071: l_need_conversion := 'N';
2072: END IF;
2073:
2074: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2075: 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
2076: ||' ,Target Currency='|| l_target_curr || ' ,Target hdr id='|| l_target_header_id ||' ,l_need_conversion='|| l_need_conversion);
2077: END IF;
2078:
2079: FOR cur_set_org IN set_org(l_target_header_id) LOOP
2084: Log_Messages('Inventory Org: '||cur_set_org.inv_organization_id);
2085: LOG_MESSAGES(' ');
2086:
2087:
2088: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2089: 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);
2090: END IF;
2091:
2092: END LOOP;
2085: LOG_MESSAGES(' ');
2086:
2087:
2088: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2089: 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);
2090: END IF;
2091:
2092: END LOOP;
2093:
2090: END IF;
2091:
2092: END LOOP;
2093:
2094: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2095: 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
2096: ||' ,p_target_contract_id='|| cur_get_oper_top_lines.subject_chr_id);
2097: END IF;
2098:
2091:
2092: END LOOP;
2093:
2094: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2095: 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
2096: ||' ,p_target_contract_id='|| cur_get_oper_top_lines.subject_chr_id);
2097: END IF;
2098:
2099: l_target_line_id := NULL;
2100: MERGE(p_source_line_id => cur_get_oper_top_lines.object_cle_id,
2101: p_target_contract_id => cur_get_oper_top_lines.subject_chr_id,
2102: x_target_line_id => l_target_line_id);
2103:
2104: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2105: 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);
2106: END IF;
2107:
2108:
2101: p_target_contract_id => cur_get_oper_top_lines.subject_chr_id,
2102: x_target_line_id => l_target_line_id);
2103:
2104: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2105: 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);
2106: END IF;
2107:
2108:
2109: IF l_target_line_id IS NULL THEN
2115: LOG_MESSAGES('Merge line found:'|| l_target_line_id);
2116: l_can_copy := 'N';
2117: END IF;
2118:
2119: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2120: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'l_can_copy=' || l_can_copy);
2121: END IF;
2122:
2123: log_messages('Source Topline id='|| cur_get_oper_top_lines.object_cle_id );
2116: l_can_copy := 'N';
2117: END IF;
2118:
2119: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2120: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'l_can_copy=' || l_can_copy);
2121: END IF;
2122:
2123: log_messages('Source Topline id='|| cur_get_oper_top_lines.object_cle_id );
2124: log_messages('Target Header id='|| cur_get_oper_top_lines.subject_chr_id );
2130: ------------------------------------------------------------
2131: ---COPY the TOP LINE FROM SOURCE TO TARGET
2132: ------------------------------------------------------------
2133:
2134: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2135: 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||
2136: ' ,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);
2137: END IF;
2138:
2131: ---COPY the TOP LINE FROM SOURCE TO TARGET
2132: ------------------------------------------------------------
2133:
2134: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2135: 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||
2136: ' ,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);
2137: END IF;
2138:
2139: LOG_MESSAGES('Calling OKS_RENCPY_PVT.COPY_CONTRACT_LINES 1: p_need_conversion = '|| l_need_conversion);
2161: LOG_MESSAGES('x_cle_id = ' || l_cle_id);
2162: LOG_MESSAGES(' ');
2163:
2164:
2165: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2166: 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);
2167: END IF;
2168:
2169: --for U:unexpected error stop, for E:regular error, try next line
2162: LOG_MESSAGES(' ');
2163:
2164:
2165: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2166: 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);
2167: END IF;
2168:
2169: --for U:unexpected error stop, for E:regular error, try next line
2170: --for W:warnings or S:Success continue
2199:
2200: ------------------------------------------------------------------------------
2201: ----If Copy is successful Delete the SLH and SLL rules that were copied
2202: ------------------------------------------------------------------------------
2203: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2204: 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);
2205: END IF;
2206:
2207: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2200: ------------------------------------------------------------------------------
2201: ----If Copy is successful Delete the SLH and SLL rules that were copied
2202: ------------------------------------------------------------------------------
2203: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2204: 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);
2205: END IF;
2206:
2207: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2208:
2216:
2217: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule l_return_status : '||l_return_status);
2218: LOG_MESSAGES(' ');
2219:
2220: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2221: 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);
2222: END IF;
2223:
2224: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2217: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule l_return_status : '||l_return_status);
2218: LOG_MESSAGES(' ');
2219:
2220: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2221: 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);
2222: END IF;
2223:
2224: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2225: RAISE FND_API.g_exc_unexpected_error;
2237: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(cur_get_oper_top_lines.id)
2238: LOOP
2239: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2240:
2241: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2242: 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 ||
2243: ' ,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 ||
2244: ' ,p_to_chr_id='|| cur_get_oper_sub_lines.subject_chr_id);
2245: END IF;
2238: LOOP
2239: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2240:
2241: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2242: 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 ||
2243: ' ,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 ||
2244: ' ,p_to_chr_id='|| cur_get_oper_sub_lines.subject_chr_id);
2245: END IF;
2246:
2265: p_renew_ref_yn => 'N',
2266: p_need_conversion => l_need_conversion,
2267: x_cle_id => s_cle_id);
2268:
2269: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2270: 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);
2271: END IF;
2272:
2273: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line, l_return_status : '||l_return_status);
2266: p_need_conversion => l_need_conversion,
2267: x_cle_id => s_cle_id);
2268:
2269: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2270: 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);
2271: END IF;
2272:
2273: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line, l_return_status : '||l_return_status);
2274: LOG_MESSAGES(' ');
2305:
2306: --------------------------------------------------------------------------
2307: ----If Copy is successful Delete the SLH and SLL rules that were copied
2308: --------------------------------------------------------------------------
2309: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2310: 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);
2311: END IF;
2312:
2313:
2306: --------------------------------------------------------------------------
2307: ----If Copy is successful Delete the SLH and SLL rules that were copied
2308: --------------------------------------------------------------------------
2309: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2310: 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);
2311: END IF;
2312:
2313:
2314: LOG_MESSAGES('Calling OKS_BILL_UTIL_PUB.delete_slh_rule');
2323:
2324: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status: '||l_return_status);
2325: LOG_MESSAGES(' ');
2326:
2327: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2328: 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);
2329: END IF;
2330:
2331: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2324: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule, l_return_status: '||l_return_status);
2325: LOG_MESSAGES(' ');
2326:
2327: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2328: 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);
2329: END IF;
2330:
2331: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2332: RAISE FND_API.g_exc_unexpected_error;
2346:
2347: -------------------------------------------------------------------------------
2348: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2349: -------------------------------------------------------------------------------
2350: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2351: 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||
2352: ' ,p_subject_top_line_id='||l_cle_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2353: END IF;
2354:
2347: -------------------------------------------------------------------------------
2348: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2349: -------------------------------------------------------------------------------
2350: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2351: 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||
2352: ' ,p_subject_top_line_id='||l_cle_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2353: END IF;
2354:
2355: LOG_MESSAGES('Calling OKS_REPRICE_PVT.call_pricing_api');
2372:
2373: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2374: LOG_MESSAGES(' ');
2375:
2376: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2377: 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);
2378: END IF;
2379:
2380: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2373: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2374: LOG_MESSAGES(' ');
2375:
2376: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2377: 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);
2378: END IF;
2379:
2380: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2381: RAISE FND_API.g_exc_unexpected_error;
2401: FOR cur_get_oper_sub_lines IN get_oper_sub_lines(cur_get_oper_top_lines.id) LOOP
2402: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2403:
2404:
2405: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2406: 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 ||
2407: ' ,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);
2408: END IF;
2409:
2402: IF find_ol_status(cur_get_oper_sub_lines.object_cle_id) <> 'P' THEN
2403:
2404:
2405: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2406: 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 ||
2407: ' ,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);
2408: END IF;
2409:
2410: LOG_MESSAGES('---COPY all sublines in operation lines under merge top line l_target_line_id----');
2435:
2436: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line l_return_status : '||l_return_status);
2437: LOG_MESSAGES(' ');
2438:
2439: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2440: 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);
2441: END IF;
2442:
2443: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2436: LOG_MESSAGES('After Calling OKS_RENCPY_PVT.copy_contract_line l_return_status : '||l_return_status);
2437: LOG_MESSAGES(' ');
2438:
2439: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2440: 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);
2441: END IF;
2442:
2443: IF (l_return_status = FND_API.g_ret_sts_success) THEN
2444: NULL;
2469: l_opl_status_tbl(l_opl_id_tbl.count) := 'P';
2470:
2471: l_subject_sub_line_tbl(i) := s_cle_id;
2472:
2473: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2474: 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);
2475: END IF;
2476:
2477: ------------------------------------------------------------------------------
2470:
2471: l_subject_sub_line_tbl(i) := s_cle_id;
2472:
2473: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2474: 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);
2475: END IF;
2476:
2477: ------------------------------------------------------------------------------
2478: ----If Copy is successful Delete the SLH and SLL rules that were copied
2489:
2490: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule,l_return_status: '||l_return_status);
2491: LOG_MESSAGES(' ');
2492:
2493: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2494: 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);
2495: END IF;
2496:
2497: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2490: LOG_MESSAGES('After Calling OKS_BILL_UTIL_PUB.delete_slh_rule,l_return_status: '||l_return_status);
2491: LOG_MESSAGES(' ');
2492:
2493: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2494: 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);
2495: END IF;
2496:
2497: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2498: RAISE FND_API.g_exc_unexpected_error;
2511: -------------------------------------------------------------------------------
2512: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2513: -------------------------------------------------------------------------------
2514:
2515: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2516: 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||
2517: ' ,p_subject_top_line_id='||l_target_line_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2518: END IF;
2519:
2512: ---CALL OKS_REPRICE_PVT.Call_Pricing_Api To adjust the price for those sublines
2513: -------------------------------------------------------------------------------
2514:
2515: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2516: 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||
2517: ' ,p_subject_top_line_id='||l_target_line_id||' ,p_subject_sub_line_tbl.count='||l_subject_sub_line_tbl.count);
2518: END IF;
2519:
2520: LOG_MESSAGES('Calling OKS_REPRICE_PVT.call_pricing_api');
2536: */
2537: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2538: LOG_MESSAGES(' ');
2539:
2540: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2541: 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);
2542: END IF;
2543:
2544: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2537: LOG_MESSAGES('After Calling OKS_REPRICE_PVT.call_pricing_api l_return_status: '||l_return_status);
2538: LOG_MESSAGES(' ');
2539:
2540: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2541: 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);
2542: END IF;
2543:
2544: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2545: RAISE FND_API.g_exc_unexpected_error;
2565: --update process status and subject cle id in okc_operation_lines for all
2566: --source toplines and sublines that where successfully copied to the target
2567: IF (l_opl_id_tbl.COUNT > 0 ) THEN
2568:
2569: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2570: 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);
2571: END IF;
2572:
2573: FORALL i IN l_opl_id_tbl.FIRST..l_opl_id_tbl.LAST
2566: --source toplines and sublines that where successfully copied to the target
2567: IF (l_opl_id_tbl.COUNT > 0 ) THEN
2568:
2569: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2570: 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);
2571: END IF;
2572:
2573: FORALL i IN l_opl_id_tbl.FIRST..l_opl_id_tbl.LAST
2574: UPDATE okc_operation_lines SET
2636:
2637: --update date_renewed for all the source sublines that where successfully copied
2638: IF (l_src_sub_line_id_tbl.COUNT > 0) THEN
2639:
2640: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2641: 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);
2642: END IF;
2643:
2644: l_date_renewed := sysdate;
2637: --update date_renewed for all the source sublines that where successfully copied
2638: IF (l_src_sub_line_id_tbl.COUNT > 0) THEN
2639:
2640: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2641: 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);
2642: END IF;
2643:
2644: l_date_renewed := sysdate;
2645: FORALL i IN l_src_sub_line_id_tbl.FIRST..l_src_sub_line_id_tbl.LAST
2656: WHERE id = l_src_sub_line_id_tbl(i);
2657:
2658: --update date_renewed for all the source toplines if all sublines under them have been renewed
2659: --if any sublines under a topline are terminated or cancelled they are ignored
2660: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2661: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_top_lines','updating date_renewed for source toplines');
2662: END IF;
2663:
2664: UPDATE okc_k_lines_b tl SET
2657:
2658: --update date_renewed for all the source toplines if all sublines under them have been renewed
2659: --if any sublines under a topline are terminated or cancelled they are ignored
2660: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2661: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_top_lines','updating date_renewed for source toplines');
2662: END IF;
2663:
2664: UPDATE okc_k_lines_b tl SET
2665: tl.date_renewed = l_date_renewed,
2686: AND sl.date_renewed IS NULL);
2687:
2688: --update date_renewed for all the source headers if all toplines under them have been renewed
2689: --if any toplines are terminated or cancelled they are ignored
2690: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2691: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_headers','updating date_renewed for source headers');
2692: END IF;
2693:
2694: UPDATE okc_k_headers_all_b h SET
2687:
2688: --update date_renewed for all the source headers if all toplines under them have been renewed
2689: --if any toplines are terminated or cancelled they are ignored
2690: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2691: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_headers','updating date_renewed for source headers');
2692: END IF;
2693:
2694: UPDATE okc_k_headers_all_b h SET
2695: h.date_renewed = l_date_renewed,
2727: log_messages('Processed selected lines');
2728: LOG_MESSAGES(' ');
2729:
2730:
2731: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2732: 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);
2733: END IF;
2734:
2735: LOG_MESSAGES('Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text');
2728: LOG_MESSAGES(' ');
2729:
2730:
2731: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2732: 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);
2733: END IF;
2734:
2735: LOG_MESSAGES('Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text');
2736:
2745:
2746: LOG_MESSAGES('After Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text, l_return_status: '||l_return_status);
2747: LOG_MESSAGES(' ');
2748:
2749: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2750: 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);
2751: END IF;
2752:
2753: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2746: LOG_MESSAGES('After Calling OKS_RENEW_CONTRACT_PVT.update_invoice_text, l_return_status: '||l_return_status);
2747: LOG_MESSAGES(' ');
2748:
2749: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2750: 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);
2751: END IF;
2752:
2753: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2754: RAISE FND_API.g_exc_unexpected_error;
2760:
2761: ------------------------------------------------------------------------------
2762: ---Since all operations are done update the contract amount
2763: ------------------------------------------------------------------------------
2764: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2765: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','calling update_contract_amount p_header_id='||l_target_header_id);
2766: END IF;
2767:
2768: UPDATE_CONTRACT_AMOUNT(
2761: ------------------------------------------------------------------------------
2762: ---Since all operations are done update the contract amount
2763: ------------------------------------------------------------------------------
2764: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2765: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.update_contract_amount','calling update_contract_amount p_header_id='||l_target_header_id);
2766: END IF;
2767:
2768: UPDATE_CONTRACT_AMOUNT(
2769: p_header_id => l_target_header_id,
2768: UPDATE_CONTRACT_AMOUNT(
2769: p_header_id => l_target_header_id,
2770: x_return_status => l_return_status);
2771:
2772: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2773: 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);
2774: END IF;
2775:
2776: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2769: p_header_id => l_target_header_id,
2770: x_return_status => l_return_status);
2771:
2772: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2773: 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);
2774: END IF;
2775:
2776: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2777: RAISE FND_API.g_exc_unexpected_error;
2804: END IF;
2805:
2806: COMMIT;
2807:
2808: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2809: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status=' || x_return_status ||' ,retcode='|| retcode);
2810: END IF;
2811: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2812:
2805:
2806: COMMIT;
2807:
2808: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2809: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status=' || x_return_status ||' ,retcode='|| retcode);
2810: END IF;
2811: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2812:
2813: log_messages('Renewal Consolidation conurrent program - END');
2820: x_return_status := FND_API.g_ret_sts_error ;
2821: retcode := 2;
2822: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2823:
2824: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2825: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_error', 'x_return_status='||x_return_status);
2826: END IF;
2827: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2828:
2821: retcode := 2;
2822: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2823:
2824: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2825: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_error', 'x_return_status='||x_return_status);
2826: END IF;
2827: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2828:
2829: IF(get_oper_top_lines%isopen) THEN
2849: x_return_status := FND_API.g_ret_sts_unexp_error ;
2850: retcode := 2;
2851: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2852:
2853: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2854: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status='||x_return_status);
2855: END IF;
2856: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2857:
2850: retcode := 2;
2851: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2852:
2853: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2854: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status='||x_return_status);
2855: END IF;
2856: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2857:
2858: IF(get_oper_top_lines%isopen) THEN
2879: retcode := 2;
2880: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2881: errbuf := SQLCODE || SQLERRM;
2882:
2883: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2884: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', errbuf);
2885: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, errbuf);
2886: END IF;
2887: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2880: l_dummy := FND_CONCURRENT.set_completion_status('ERROR', null);
2881: errbuf := SQLCODE || SQLERRM;
2882:
2883: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2884: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', errbuf);
2885: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, errbuf);
2886: END IF;
2887: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
2888:
2941: l_prog_id NUMBER;
2942:
2943: BEGIN
2944:
2945: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2946: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_header_id='||p_header_id);
2947: END IF;
2948:
2949: SAVEPOINT update_contract_amount_PVT;
2942:
2943: BEGIN
2944:
2945: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
2946: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_header_id='||p_header_id);
2947: END IF;
2948:
2949: SAVEPOINT update_contract_amount_PVT;
2950: x_return_status := FND_API.G_RET_STS_SUCCESS;
2963: OPEN c_top_lines(p_header_id);
2964: LOOP
2965: FETCH c_top_lines BULK COLLECT INTO l_id_tbl, l_price_tbl, l_tax_tbl LIMIT 1000;
2966:
2967: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2968: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_loop','l_id_tbl.count='||l_id_tbl.count);
2969: END IF;
2970:
2971: EXIT WHEN (l_id_tbl.COUNT = 0);
2964: LOOP
2965: FETCH c_top_lines BULK COLLECT INTO l_id_tbl, l_price_tbl, l_tax_tbl LIMIT 1000;
2966:
2967: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2968: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_line_loop','l_id_tbl.count='||l_id_tbl.count);
2969: END IF;
2970:
2971: EXIT WHEN (l_id_tbl.COUNT = 0);
2972:
2999: l_id_tbl.delete;
3000: l_price_tbl.delete;
3001: l_tax_tbl.delete;
3002:
3003: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3004: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_lines','top lines price_negotiated and tax_amount updated');
3005: END IF;
3006:
3007: --update the header
3000: l_price_tbl.delete;
3001: l_tax_tbl.delete;
3002:
3003: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3004: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.top_lines','top lines price_negotiated and tax_amount updated');
3005: END IF;
3006:
3007: --update the header
3008: UPDATE okc_k_headers_all_b h
3035: h.last_update_login = l_login_id,
3036: h.request_id = l_request_id
3037: WHERE h.chr_id = p_header_id;
3038:
3039: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3040: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.header','header estimated_amount and tax_amount updated');
3041: END IF;
3042:
3043: END IF;
3036: h.request_id = l_request_id
3037: WHERE h.chr_id = p_header_id;
3038:
3039: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
3040: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.header','header estimated_amount and tax_amount updated');
3041: END IF;
3042:
3043: END IF;
3044:
3041: END IF;
3042:
3043: END IF;
3044:
3045: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
3046: FND_LOG.string(FND_LOG.level_procedure,l_mod_name||'.end','x_return_status='||x_return_status);
3047: END IF;
3048:
3049: EXCEPTION
3042:
3043: END IF;
3044:
3045: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
3046: FND_LOG.string(FND_LOG.level_procedure,l_mod_name||'.end','x_return_status='||x_return_status);
3047: END IF;
3048:
3049: EXCEPTION
3050:
3051: WHEN OTHERS THEN
3052: ROLLBACK TO update_contract_amount_PVT;
3053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3054:
3055: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3056: l_error_text := substr (SQLERRM, 1, 240);
3057: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3058: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3059: END IF;
3053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3054:
3055: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3056: l_error_text := substr (SQLERRM, 1, 240);
3057: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3058: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
3059: END IF;
3060: IF (c_top_lines%isopen) THEN
3061: CLOSE c_top_lines;