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.10.12000000.3 2007/06/06 17:18:39 skekkar ship $*/
3:
4: l_conc_program VARCHAR2(200);
5: G_GCD_RENEWAL_TYPE VARCHAR2(30) := 'X';

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

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

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

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

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

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

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

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

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

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

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

734: CLOSE oper_inst;
735: EXCEPTION
736: WHEN NO_DATA_FOUND THEN
737: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
738: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES NO_DATA_FOUND');
739: END IF;
740: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
741: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
742: WHEN OTHERS THEN

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

740: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_INSTANCES');
741: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
742: WHEN OTHERS THEN
743: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
744: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_INSTANCES OTHERS ');
745: END IF;
746: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
747: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
748: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');

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

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

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

757: p_sources_tbl_type => x_sources_tbl) ;
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
761: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES NO_DATA_FOUND');
762: END IF;
763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
764: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
765: WHEN OTHERS THEN

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

763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CREATE_OPERATION_LINES');
764: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
765: WHEN OTHERS THEN
766: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
767: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.CREATE_OPERATION_LINES OTHERS ');
768: END IF;
769: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
770: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
771: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');

Line 875: p_sources_tbl_type IN OUT NOCOPY OKS_RENCON_PVT.sources_tbl_type,

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

Line 901: TYPE t_id_table IS TABLE OF OKS_RENCON_PVT.sources_rec_type

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

Line 904: v_id_list OKS_RENCON_PVT.sources_tbl_type;

900:
901: TYPE t_id_table IS TABLE OF OKS_RENCON_PVT.sources_rec_type
902: INDEX BY BINARY_INTEGER;
903:
904: v_id_list OKS_RENCON_PVT.sources_tbl_type;
905: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;
906: v_ole_id NUMBER;
907:
908: 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 905: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;

901: TYPE t_id_table IS TABLE OF OKS_RENCON_PVT.sources_rec_type
902: INDEX BY BINARY_INTEGER;
903:
904: v_id_list OKS_RENCON_PVT.sources_tbl_type;
905: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;
906: v_ole_id NUMBER;
907:
908: 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
909: x_return VARCHAR2(200) := 'N';

Line 908: 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

904: v_id_list OKS_RENCON_PVT.sources_tbl_type;
905: v_id_list_k OKS_RENCON_PVT.sources_tbl_type;
906: v_ole_id NUMBER;
907:
908: 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
909: x_return VARCHAR2(200) := 'N';
910: v_index BINARY_INTEGER;
911: BEGIN
912:

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

937: RETURN(x_return);
938: EXCEPTION
939: WHEN NO_DATA_FOUND THEN
940: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
941: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT NO_DATA_FOUND');
942: END IF;
943: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
944: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
945: WHEN OTHERS THEN

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

943: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
944: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
945: WHEN OTHERS THEN
946: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
947: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_K_PRESENT OTHERS ');
948: END IF;
949: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
950: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
951: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');

Line 955: FUNCTION IS_PRESENT(p_line_id IN NUMBER, p_operation_lines_id OUT NOCOPY NUMBER, p_id_list IN OKS_RENCON_PVT.sources_tbl_type) RETURN VARCHAR2 IS

951: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
952: END IS_K_PRESENT;
953:
954:
955: FUNCTION IS_PRESENT(p_line_id IN NUMBER, p_operation_lines_id OUT NOCOPY NUMBER, p_id_list IN OKS_RENCON_PVT.sources_tbl_type) RETURN VARCHAR2 IS
956: x_return VARCHAR2(200) := 'N';
957: v_index BINARY_INTEGER;
958: BEGIN
959: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN

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

982: RETURN(x_return);
983: EXCEPTION
984: WHEN NO_DATA_FOUND THEN
985: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
986: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT NO_DATA_FOUND');
987: END IF;
988: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
989: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
990: WHEN OTHERS THEN

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

988: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'IS_PRESENT');
989: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
990: WHEN OTHERS THEN
991: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
992: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'OKS_RENCON_PVT.IS_PRESENT OTHERS ');
993: END IF;
994: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
995: G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
996: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');

Line 1414: x_line_details OUT NOCOPY OKS_RENCON_PVT.merge_rec_type) IS

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

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

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

Line 1459: p_target_line_details IN OKS_RENCON_PVT.merge_rec_type)

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

Line 1641: p_target_line_details OKS_RENCON_PVT.merge_rec_type;

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

Line 1642: p_source_line_details OKS_RENCON_PVT.merge_rec_type;

1638: AND cle_id IS NULL
1639: AND lse_id IN (1, 12, 14, 19);
1640:
1641: p_target_line_details OKS_RENCON_PVT.merge_rec_type;
1642: p_source_line_details OKS_RENCON_PVT.merge_rec_type;
1643:
1644: BEGIN
1645:
1646: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN

Line 1791: OKS_RENCON_PVT.SUBMIT(

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

Line 3076: END OKS_RENCON_PVT ;

3072: OPEN cur_class_operations ;
3073: FETCH cur_class_operations INTO G_RENCON_CLASS_OPERATION_ID;
3074: CLOSE cur_class_operations ;
3075:
3076: END OKS_RENCON_PVT ;
3077: