[Home] [Help]
964: okc_debug.Reset_Indentation;
965: END IF;
966: END ;
967: BEGIN
968: OKC_ARTICLES_IMPORT_GRP.import_fnd_flex_values(
969: x_return_status => l_return_status,
970: x_msg_count => x_msg_count,
971: x_msg_data => x_msg_data,
972: p_batch_procs_id => l_batch_process_id,
8039: END IF;
8040: get_print_msgs_stack(p_msg_data => x_msg_data);
8041: END import_fnd_flex_value_sets;
8042:
8043: PROCEDURE import_fnd_flex_values(
8044: x_return_status OUT NOCOPY VARCHAR2,
8045: x_msg_count OUT NOCOPY NUMBER,
8046: x_msg_data OUT NOCOPY VARCHAR2,
8047:
8050: p_validate_only IN VARCHAR2 := 'Y',
8051: p_fetchsize IN NUMBER := 100
8052: ) IS
8053: l_api_version CONSTANT NUMBER := 1;
8054: l_api_name CONSTANT VARCHAR2(30) := 'import_fnd_flex_values';
8055: l_sts_warning CONSTANT VARCHAR2(1) := 'W';
8056: l_row_notfound BOOLEAN := FALSE;
8057: l_user_id NUMBER;
8058: l_login_id NUMBER;
8132: B.FLEX_VALUE_ID ,
8133: B.FLEX_VALUE ,
8134: B.START_DATE_ACTIVE ,
8135: B.END_DATE_ACTIVE
8136: FROM FND_FLEX_VALUES B,FND_FLEX_VALUES_TL T
8137: WHERE B.FLEX_VALUE_ID = T.FLEX_VALUE_ID
8138: AND T.LANGUAGE = userenv('LANG')
8139: AND B.FLEX_VALUE = l_flex_value
8140: AND B.FLEX_VALUE_SET_ID = l_flex_value_set_id;
8165: TYPE l_vinf_description IS TABLE OF OKC_VS_VALUES_INTERFACE.DESCRIPTION%TYPE INDEX BY BINARY_INTEGER ;
8166: TYPE l_vinf_flex_value_meaning IS TABLE OF OKC_VS_VALUES_INTERFACE.FLEX_VALUE_MEANING%TYPE INDEX BY BINARY_INTEGER ;
8167:
8168:
8169: TYPE l_vinf_flex_value_id IS TABLE OF FND_FLEX_VALUES.flex_value_id%TYPE INDEX BY BINARY_INTEGER ;
8170: TYPE l_vinf_value_set_id IS TABLE OF FND_FLEX_VALUE_SETS.flex_value_set_id%TYPE INDEX BY BINARY_INTEGER ;
8171: TYPE l_vinf_validation_type IS TABLE OF FND_FLEX_VALUE_SETS.VALIDATION_TYPE%TYPE INDEX BY BINARY_INTEGER ;
8172: TYPE l_vinf_format_type IS TABLE OF FND_FLEX_VALUE_SETS.FORMAT_TYPE%TYPE INDEX BY BINARY_INTEGER ;
8173: TYPE l_vinf_maximum_size IS TABLE OF FND_FLEX_VALUE_SETS.MAXIMUM_SIZE%TYPE INDEX BY BINARY_INTEGER ;
8638:
8639: EXCEPTION
8640: WHEN FND_API.G_EXC_ERROR THEN
8641: IF (l_debug = 'Y') THEN
8642: okc_debug.log('300: In Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
8643: END IF;
8644: IF l_val_exist_csr%ISOPEN THEN
8645: CLOSE l_val_exist_csr;
8646: END IF;
8661: -- Continue to next row
8662:
8663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8664: IF (l_debug = 'Y') THEN
8665: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8666: END IF;
8667:
8668: IF l_val_exist_csr%ISOPEN THEN
8669: CLOSE l_val_exist_csr;
8692: exit; -- exit the current fetch
8693:
8694: WHEN OTHERS THEN
8695: IF (l_debug = 'Y') THEN
8696: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8697: END IF;
8698: IF l_val_exist_csr%ISOPEN THEN
8699: CLOSE l_val_exist_csr;
8700: END IF;
8752: -------------------------
8753: EXCEPTION
8754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8755: IF (l_debug = 'Y') THEN
8756: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8757: END IF;
8758: IF l_val_exist_csr%ISOPEN THEN
8759: CLOSE l_val_exist_csr;
8760: END IF;
8767: exit; -- exit outermost loop
8768:
8769: WHEN OTHERS THEN
8770: IF (l_debug = 'Y') THEN
8771: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8772: END IF;
8773: IF l_val_exist_csr%ISOPEN THEN
8774: CLOSE l_val_exist_csr;
8775: END IF;
8788: -------------------------
8789: -------------------------
8790:
8791: ------------------------------------------------------------------------
8792: --------------------- Start Do_DML for Fnd Flex Values ---------------
8793: -- Insert Fnd Flex Values
8794: -------------------------------------------------------------------------
8795: -- initialize l_return_status to track status of DML execution
8796: l_return_status := G_RET_STS_SUCCESS;
8789: -------------------------
8790:
8791: ------------------------------------------------------------------------
8792: --------------------- Start Do_DML for Fnd Flex Values ---------------
8793: -- Insert Fnd Flex Values
8794: -------------------------------------------------------------------------
8795: -- initialize l_return_status to track status of DML execution
8796: l_return_status := G_RET_STS_SUCCESS;
8797:
8826:
8827: EXCEPTION
8828: WHEN OTHERS THEN
8829: IF (l_debug = 'Y') THEN
8830: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8831: END IF;
8832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8833: END;
8834:
8832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8833: END;
8834:
8835: --
8836: -- End of Insert into FND FLEX VALUES
8837: --
8838: --
8839:
8840: i := 0;
8863:
8864: EXCEPTION
8865: WHEN OTHERS THEN
8866: IF (l_debug = 'Y') THEN
8867: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8868: END IF;
8869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8870: END;
8871:
8869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8870: END;
8871:
8872: --
8873: -- End of Disable FND FLEX VALUES
8874: --
8875: --
8876:
8877:
8956: interface_id = vinf_interface_id_tbl(i);
8957: EXCEPTION
8958: WHEN OTHERS THEN
8959: IF (l_debug = 'Y') THEN
8960: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8961: END IF;
8962:
8963: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8964: p_msg_name => G_UNEXPECTED_ERROR,
9100: --wrap_up(p_validate_only,p_batch_number,l_tot_rows_processed,l_tot_rows_failed,l_tot_rows_warned,l_batch_process_id,'VALUE');
9101: commit; -- Final commit for status update
9102:
9103: IF (l_debug = 'Y') THEN
9104: okc_debug.log('2000: Leaving Fnd_flex_values import', 2);
9105: END IF;
9106: --x_return_status := l_return_status; this may cause to erase error x_return_status
9107:
9108: EXCEPTION
9108: EXCEPTION
9109:
9110: WHEN FND_API.G_EXC_ERROR THEN
9111: IF (l_debug = 'Y') THEN
9112: okc_debug.log('3000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
9113: END IF;
9114: --Insert Errors into Error table if there is any
9115: insert_error_array(
9116: x_return_status => x_return_status,
9120: x_return_status := G_RET_STS_ERROR ;
9121:
9122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9123: IF (l_debug = 'Y') THEN
9124: okc_debug.log('4000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
9125: END IF;
9126: --Insert Errors into Error table if there is any
9127:
9128: insert_error_array(
9147: -- In this exception handling, we don't insert error array again
9148: -- because error happend in the module
9149: --
9150: IF (l_debug = 'Y') THEN
9151: okc_debug.log('5000: Leaving Fnd_flex_values_Import because of EXCEPTION in insert_error_array: '||sqlerrm, 2);
9152: END IF;
9153:
9154: IF l_val_interface_csr%ISOPEN THEN
9155: CLOSE l_val_interface_csr;
9164: commit;
9165:
9166: WHEN OTHERS THEN
9167: IF (l_debug = 'Y') THEN
9168: okc_debug.log('5000: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
9169: END IF;
9170: --Insert Errors into Error table if there is any
9171: insert_error_array(
9172: x_return_status => x_return_status,
9183: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
9184: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
9185: END IF;
9186: get_print_msgs_stack(p_msg_data => x_msg_data);
9187: END import_fnd_flex_values;
9188:
9189: -- MOAC
9190: /*
9191: BEGIN
9232: l_scn_code OKC_ART_VAR_SECTIONS.SCN_CODE%TYPE;
9233:
9234: CURSOR okc_art_var_ins_csr(p_article_title IN VARCHAR2,p_batch_number IN VARCHAR2,p_org_id IN NUMBER,p_variable_value IN VARCHAR2) IS
9235: SELECT art.article_id,av.article_version_id,art.variable_code,intf.variable_value,flx.flex_value_id,intf.scn_code
9236: FROM okc_articles_all art,okc_scn_map_interface intf,fnd_flex_values flx,okc_bus_variables_b bus,okc_article_versions av
9237: WHERE art.article_title = intf.article_title
9238: AND art.org_id=intf.org_id
9239: AND art.variable_code = bus.variable_code
9240: AND bus.value_set_id = flx.flex_value_set_id