[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,
7971: END IF;
7972: get_print_msgs_stack(p_msg_data => x_msg_data);
7973: END import_fnd_flex_value_sets;
7974:
7975: PROCEDURE import_fnd_flex_values(
7976: x_return_status OUT NOCOPY VARCHAR2,
7977: x_msg_count OUT NOCOPY NUMBER,
7978: x_msg_data OUT NOCOPY VARCHAR2,
7979:
7982: p_validate_only IN VARCHAR2 := 'Y',
7983: p_fetchsize IN NUMBER := 100
7984: ) IS
7985: l_api_version CONSTANT NUMBER := 1;
7986: l_api_name CONSTANT VARCHAR2(30) := 'import_fnd_flex_values';
7987: l_sts_warning CONSTANT VARCHAR2(1) := 'W';
7988: l_row_notfound BOOLEAN := FALSE;
7989: l_user_id NUMBER;
7990: l_login_id NUMBER;
8064: B.FLEX_VALUE_ID ,
8065: B.FLEX_VALUE ,
8066: B.START_DATE_ACTIVE ,
8067: B.END_DATE_ACTIVE
8068: FROM FND_FLEX_VALUES B,FND_FLEX_VALUES_TL T
8069: WHERE B.FLEX_VALUE_ID = T.FLEX_VALUE_ID
8070: AND T.LANGUAGE = userenv('LANG')
8071: AND B.FLEX_VALUE = l_flex_value
8072: AND B.FLEX_VALUE_SET_ID = l_flex_value_set_id;
8097: TYPE l_vinf_description IS TABLE OF OKC_VS_VALUES_INTERFACE.DESCRIPTION%TYPE INDEX BY BINARY_INTEGER ;
8098: TYPE l_vinf_flex_value_meaning IS TABLE OF OKC_VS_VALUES_INTERFACE.FLEX_VALUE_MEANING%TYPE INDEX BY BINARY_INTEGER ;
8099:
8100:
8101: TYPE l_vinf_flex_value_id IS TABLE OF FND_FLEX_VALUES.flex_value_id%TYPE INDEX BY BINARY_INTEGER ;
8102: TYPE l_vinf_value_set_id IS TABLE OF FND_FLEX_VALUE_SETS.flex_value_set_id%TYPE INDEX BY BINARY_INTEGER ;
8103: TYPE l_vinf_validation_type IS TABLE OF FND_FLEX_VALUE_SETS.VALIDATION_TYPE%TYPE INDEX BY BINARY_INTEGER ;
8104: TYPE l_vinf_format_type IS TABLE OF FND_FLEX_VALUE_SETS.FORMAT_TYPE%TYPE INDEX BY BINARY_INTEGER ;
8105: TYPE l_vinf_maximum_size IS TABLE OF FND_FLEX_VALUE_SETS.MAXIMUM_SIZE%TYPE INDEX BY BINARY_INTEGER ;
8570:
8571: EXCEPTION
8572: WHEN FND_API.G_EXC_ERROR THEN
8573: IF (l_debug = 'Y') THEN
8574: okc_debug.log('300: In Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
8575: END IF;
8576: IF l_val_exist_csr%ISOPEN THEN
8577: CLOSE l_val_exist_csr;
8578: END IF;
8593: -- Continue to next row
8594:
8595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8596: IF (l_debug = 'Y') THEN
8597: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8598: END IF;
8599:
8600: IF l_val_exist_csr%ISOPEN THEN
8601: CLOSE l_val_exist_csr;
8624: exit; -- exit the current fetch
8625:
8626: WHEN OTHERS THEN
8627: IF (l_debug = 'Y') THEN
8628: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8629: END IF;
8630: IF l_val_exist_csr%ISOPEN THEN
8631: CLOSE l_val_exist_csr;
8632: END IF;
8684: -------------------------
8685: EXCEPTION
8686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8687: IF (l_debug = 'Y') THEN
8688: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8689: END IF;
8690: IF l_val_exist_csr%ISOPEN THEN
8691: CLOSE l_val_exist_csr;
8692: END IF;
8699: exit; -- exit outermost loop
8700:
8701: WHEN OTHERS THEN
8702: IF (l_debug = 'Y') THEN
8703: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8704: END IF;
8705: IF l_val_exist_csr%ISOPEN THEN
8706: CLOSE l_val_exist_csr;
8707: END IF;
8720: -------------------------
8721: -------------------------
8722:
8723: ------------------------------------------------------------------------
8724: --------------------- Start Do_DML for Fnd Flex Values ---------------
8725: -- Insert Fnd Flex Values
8726: -------------------------------------------------------------------------
8727: -- initialize l_return_status to track status of DML execution
8728: l_return_status := G_RET_STS_SUCCESS;
8721: -------------------------
8722:
8723: ------------------------------------------------------------------------
8724: --------------------- Start Do_DML for Fnd Flex Values ---------------
8725: -- Insert Fnd Flex Values
8726: -------------------------------------------------------------------------
8727: -- initialize l_return_status to track status of DML execution
8728: l_return_status := G_RET_STS_SUCCESS;
8729:
8758:
8759: EXCEPTION
8760: WHEN OTHERS THEN
8761: IF (l_debug = 'Y') THEN
8762: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8763: END IF;
8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8765: END;
8766:
8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8765: END;
8766:
8767: --
8768: -- End of Insert into FND FLEX VALUES
8769: --
8770: --
8771:
8772: i := 0;
8795:
8796: EXCEPTION
8797: WHEN OTHERS THEN
8798: IF (l_debug = 'Y') THEN
8799: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8800: END IF;
8801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8802: END;
8803:
8801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8802: END;
8803:
8804: --
8805: -- End of Disable FND FLEX VALUES
8806: --
8807: --
8808:
8809:
8888: interface_id = vinf_interface_id_tbl(i);
8889: EXCEPTION
8890: WHEN OTHERS THEN
8891: IF (l_debug = 'Y') THEN
8892: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8893: END IF;
8894:
8895: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8896: p_msg_name => G_UNEXPECTED_ERROR,
9032: --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');
9033: commit; -- Final commit for status update
9034:
9035: IF (l_debug = 'Y') THEN
9036: okc_debug.log('2000: Leaving Fnd_flex_values import', 2);
9037: END IF;
9038: --x_return_status := l_return_status; this may cause to erase error x_return_status
9039:
9040: EXCEPTION
9040: EXCEPTION
9041:
9042: WHEN FND_API.G_EXC_ERROR THEN
9043: IF (l_debug = 'Y') THEN
9044: okc_debug.log('3000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
9045: END IF;
9046: --Insert Errors into Error table if there is any
9047: insert_error_array(
9048: x_return_status => x_return_status,
9052: x_return_status := G_RET_STS_ERROR ;
9053:
9054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9055: IF (l_debug = 'Y') THEN
9056: okc_debug.log('4000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
9057: END IF;
9058: --Insert Errors into Error table if there is any
9059:
9060: insert_error_array(
9079: -- In this exception handling, we don't insert error array again
9080: -- because error happend in the module
9081: --
9082: IF (l_debug = 'Y') THEN
9083: okc_debug.log('5000: Leaving Fnd_flex_values_Import because of EXCEPTION in insert_error_array: '||sqlerrm, 2);
9084: END IF;
9085:
9086: IF l_val_interface_csr%ISOPEN THEN
9087: CLOSE l_val_interface_csr;
9096: commit;
9097:
9098: WHEN OTHERS THEN
9099: IF (l_debug = 'Y') THEN
9100: okc_debug.log('5000: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
9101: END IF;
9102: --Insert Errors into Error table if there is any
9103: insert_error_array(
9104: x_return_status => x_return_status,
9115: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
9116: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
9117: END IF;
9118: get_print_msgs_stack(p_msg_data => x_msg_data);
9119: END import_fnd_flex_values;
9120:
9121: -- MOAC
9122: /*
9123: BEGIN