DBA Data[Home] [Help]

APPS.OKS_RENCON_PVT dependencies on OKS_RENCON_PVT

Line 1: PACKAGE BODY OKS_RENCON_PVT AS

1: PACKAGE BODY OKS_RENCON_PVT AS
2: /* $Header: OKSRENCB.pls 120.14 2010/12/27 08:38:47 cgopinee ship $*/
3:
4: l_conc_program VARCHAR2(200);
5: G_GCD_RENEWAL_TYPE VARCHAR2(30) := 'X';

Line 662: -- IF NOT ((OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.id) IN ('DNR', 'KEP'))

658: -- IF already_in_ol(valid_subline_sources_rec.id, p_target_id) = FALSE THEN
659: -----------------------------------------------------------------------------
660: ---Check the LRT Rule - Top Line LRT rule and subline LRT rule should be FULL
661: -----------------------------------------------------------------------------
662: -- IF NOT ((OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.id) IN ('DNR', 'KEP'))
663: -- OR (OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.cle_id) IN ('DNR', 'KEP')))THEN
664: x_sources_tbl(i).contract_id := valid_header_sources_rec.id;
665: x_sources_tbl(i).line_id := valid_subline_sources_rec.cle_id;
666: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;

Line 663: -- OR (OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.cle_id) IN ('DNR', 'KEP')))THEN

659: -----------------------------------------------------------------------------
660: ---Check the LRT Rule - Top Line LRT rule and subline LRT rule should be FULL
661: -----------------------------------------------------------------------------
662: -- IF NOT ((OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.id) IN ('DNR', 'KEP'))
663: -- OR (OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.cle_id) IN ('DNR', 'KEP')))THEN
664: x_sources_tbl(i).contract_id := valid_header_sources_rec.id;
665: x_sources_tbl(i).line_id := valid_subline_sources_rec.cle_id;
666: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;
667: x_sources_tbl(i).select_yn := p_select_yn;

Line 698: -- IF NOT ((OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.id) IN ('DNR', 'KEP'))

694: -- IF already_in_ol(valid_subline_sources_rec.id, p_target_id) = FALSE THEN
695: -----------------------------------------------------------------------------
696: ---Check the LRT Rule - Top Line LRT rule and subline LRT rule should be FULL
697: -----------------------------------------------------------------------------
698: -- IF NOT ((OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.id) IN ('DNR', 'KEP'))
699: -- OR (OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.cle_id) IN ('DNR', 'KEP')))THEN
700: x_sources_tbl(i).contract_id := valid_header_sources_rec.id;
701: x_sources_tbl(i).line_id := valid_subline_sources_rec.cle_id;
702: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;

Line 699: -- OR (OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.cle_id) IN ('DNR', 'KEP')))THEN

695: -----------------------------------------------------------------------------
696: ---Check the LRT Rule - Top Line LRT rule and subline LRT rule should be FULL
697: -----------------------------------------------------------------------------
698: -- IF NOT ((OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.id) IN ('DNR', 'KEP'))
699: -- OR (OKS_RENCON_PVT.GET_LRT_RULE(valid_subline_sources_rec.cle_id) IN ('DNR', 'KEP')))THEN
700: x_sources_tbl(i).contract_id := valid_header_sources_rec.id;
701: x_sources_tbl(i).line_id := valid_subline_sources_rec.cle_id;
702: x_sources_tbl(i).subline_id := valid_subline_sources_rec.id;
703: x_sources_tbl(i).select_yn := p_select_yn;

Line 732: OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES (p_target_chr_id => p_target_id,

728: BEGIN
729: OPEN oper_inst(p_target_id);
730: FETCH oper_inst INTO x_oie_id;
731: IF oper_inst%NOTFOUND THEN
732: OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES (p_target_chr_id => p_target_id,
733: p_oie_id => x_oie_id);
734: END IF;
735: CLOSE oper_inst;
736: EXCEPTION

Line 739: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES NO_DATA_FOUND');

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

Line 745: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES OTHERS ');

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');

Line 756: OKS_RENCON_PVT.CREATE_OPERATION_LINES(p_target_chr_id => p_target_id,

752: ---Create OKC_OPERATIONS_LINES and update the PLSQL table with the oper_lines_id
753: ----------------------------------------------------------------------------
754:
755: BEGIN
756: OKS_RENCON_PVT.CREATE_OPERATION_LINES(p_target_chr_id => p_target_id,
757: p_oie_id => x_oie_id,
758: p_sources_tbl_type => x_sources_tbl) ;
759: EXCEPTION
760: WHEN NO_DATA_FOUND THEN

Line 762: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES NO_DATA_FOUND');

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

Line 768: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES OTHERS ');

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');

Line 876: p_sources_tbl_type IN OUT NOCOPY OKS_RENCON_PVT.sources_tbl_type,

872: ----------------------------------------------------------------------------
873:
874: PROCEDURE CREATE_OPERATION_LINES (p_target_chr_id IN NUMBER,
875: p_oie_id IN NUMBER,
876: p_sources_tbl_type IN OUT NOCOPY OKS_RENCON_PVT.sources_tbl_type,
877: p_select_yn IN VARCHAR2 DEFAULT 'N') IS
878: ----------------------------------------------------------------------------
879: ---TAPI variables
880: ----------------------------------------------------------------------------

Line 902: TYPE t_id_table IS TABLE OF OKS_RENCON_PVT.sources_rec_type

898: ------------------------------------------------------------------
899: i NUMBER := 0;
900: j NUMBER := 0;
901:
902: TYPE t_id_table IS TABLE OF OKS_RENCON_PVT.sources_rec_type
903: INDEX BY BINARY_INTEGER;
904:
905: v_id_list OKS_RENCON_PVT.sources_tbl_type;
906: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;

Line 905: v_id_list OKS_RENCON_PVT.sources_tbl_type;

901:
902: TYPE t_id_table IS TABLE OF OKS_RENCON_PVT.sources_rec_type
903: INDEX BY BINARY_INTEGER;
904:
905: v_id_list OKS_RENCON_PVT.sources_tbl_type;
906: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;
907: v_ole_id NUMBER;
908:
909: FUNCTION IS_K_PRESENT(p_contract_id IN NUMBER, p_operation_lines_id OUT NOCOPY NUMBER, p_id_list IN OKS_RENCON_PVT.sources_tbl_type) RETURN VARCHAR2 IS

Line 906: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;

902: TYPE t_id_table IS TABLE OF OKS_RENCON_PVT.sources_rec_type
903: INDEX BY BINARY_INTEGER;
904:
905: v_id_list OKS_RENCON_PVT.sources_tbl_type;
906: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;
907: v_ole_id NUMBER;
908:
909: FUNCTION IS_K_PRESENT(p_contract_id IN NUMBER, p_operation_lines_id OUT NOCOPY NUMBER, p_id_list IN OKS_RENCON_PVT.sources_tbl_type) RETURN VARCHAR2 IS
910: x_return VARCHAR2(200) := 'N';

Line 909: FUNCTION IS_K_PRESENT(p_contract_id IN NUMBER, p_operation_lines_id OUT NOCOPY NUMBER, p_id_list IN OKS_RENCON_PVT.sources_tbl_type) RETURN VARCHAR2 IS

905: v_id_list OKS_RENCON_PVT.sources_tbl_type;
906: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;
907: v_ole_id NUMBER;
908:
909: FUNCTION IS_K_PRESENT(p_contract_id IN NUMBER, p_operation_lines_id OUT NOCOPY NUMBER, p_id_list IN OKS_RENCON_PVT.sources_tbl_type) RETURN VARCHAR2 IS
910: x_return VARCHAR2(200) := 'N';
911: v_index BINARY_INTEGER;
912: BEGIN
913:

Line 942: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT NO_DATA_FOUND');

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

Line 948: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT OTHERS ');

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');

Line 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

952: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
953: END IS_K_PRESENT;
954:
955:
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

Line 987: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT NO_DATA_FOUND');

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

Line 993: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT OTHERS ');

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');

Line 1415: x_line_details OUT NOCOPY OKS_RENCON_PVT.merge_rec_type) IS

1411: END GET_LRT_RULE;
1412:
1413:
1414: PROCEDURE GET_LINE_DETAILS(p_line_id IN NUMBER,
1415: x_line_details OUT NOCOPY OKS_RENCON_PVT.merge_rec_type) IS
1416:
1417: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_DETAILS';
1418: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
1419:

Line 1459: FUNCTION MERGE_ELIGIBLE_YN(p_source_line_details IN OKS_RENCON_PVT.merge_rec_type,

1455: END GET_LINE_DETAILS;
1456:
1457: ------------------------------------------------------------------------------------
1458:
1459: FUNCTION MERGE_ELIGIBLE_YN(p_source_line_details IN OKS_RENCON_PVT.merge_rec_type,
1460: p_target_line_details IN OKS_RENCON_PVT.merge_rec_type)
1461: RETURN VARCHAR2 IS
1462:
1463: l_api_name CONSTANT VARCHAR2(30) := 'MERGE_ELIGIBLE_YN';

Line 1460: p_target_line_details IN OKS_RENCON_PVT.merge_rec_type)

1456:
1457: ------------------------------------------------------------------------------------
1458:
1459: FUNCTION MERGE_ELIGIBLE_YN(p_source_line_details IN OKS_RENCON_PVT.merge_rec_type,
1460: p_target_line_details IN OKS_RENCON_PVT.merge_rec_type)
1461: RETURN VARCHAR2 IS
1462:
1463: l_api_name CONSTANT VARCHAR2(30) := 'MERGE_ELIGIBLE_YN';
1464: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;

Line 1642: p_target_line_details OKS_RENCON_PVT.merge_rec_type;

1638: WHERE dnz_chr_id = p_target_contract_id
1639: AND cle_id IS NULL
1640: AND lse_id IN (1, 12, 14, 19);
1641:
1642: p_target_line_details OKS_RENCON_PVT.merge_rec_type;
1643: p_source_line_details OKS_RENCON_PVT.merge_rec_type;
1644:
1645: BEGIN
1646:

Line 1643: p_source_line_details OKS_RENCON_PVT.merge_rec_type;

1639: AND cle_id IS NULL
1640: AND lse_id IN (1, 12, 14, 19);
1641:
1642: p_target_line_details OKS_RENCON_PVT.merge_rec_type;
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

Line 1793: OKS_RENCON_PVT.SUBMIT(

1789: l_cle_id NUMBER;
1790:
1791: BEGIN
1792:
1793: OKS_RENCON_PVT.SUBMIT(
1794: errbuf => l_errbuf,
1795: retcode => l_retcode,
1796: p_api_version => l_api_version,
1797: p_init_msg_list => l_init_msg_list,

Line 3084: END OKS_RENCON_PVT ;

3080: OPEN cur_class_operations ;
3081: FETCH cur_class_operations INTO G_RENCON_CLASS_OPERATION_ID;
3082: CLOSE cur_class_operations ;
3083:
3084: END OKS_RENCON_PVT ;
3085: