464: * PRIVATE PROCEDURE
465: * populate_plsql_tables
466: * PURPOSE
467: * Validate the data exported by DRM into the interface tables and populate
468: * PL/SQL tables which are to be passed to GL_COA_SEGMENT_VAL_PVT api
469: * CHANGE HISTORY
470: * Who When What
471: * vnetan 08/26/2010 Created
472: * +=======================================================================+*/
952: x_retcode := 'E';
953:
954: ELSIF l_retcode = 'S'
955: THEN
956: log_message('Calling GL_COA_SEGMENT_VAL_PVT.COA_SEGMENT_VAL_IMP...');
957: gl_coa_segment_val_pvt.coa_segment_val_imp(
958: p_api_version => 1.0,
959: p_init_msg_list => FND_API.G_TRUE,
960: p_commit => FND_API.G_TRUE,
953:
954: ELSIF l_retcode = 'S'
955: THEN
956: log_message('Calling GL_COA_SEGMENT_VAL_PVT.COA_SEGMENT_VAL_IMP...');
957: gl_coa_segment_val_pvt.coa_segment_val_imp(
958: p_api_version => 1.0,
959: p_init_msg_list => FND_API.G_TRUE,
960: p_commit => FND_API.G_TRUE,
961: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
966: p_gl_flex_values_nh_tbl => g_norm_hierarchy_tbl,
967: p_gl_flex_values_status => l_gl_flex_values_status,
968: p_gl_flex_values_nh_status => l_gl_flex_values_nh_status);
969:
970: -- check return status from GL_COA_SEGMENT_VAL_PVT API
971: IF l_c_return_status = 'S'
972: THEN
973: -- translate segment value descriptions
974: gl_translate_segvalues;
982: log_message(l_c_msg);
983:
984: END IF;
985: list_gl_api_errors;
986: raise_application_error(-20101,'Error in the GL_COA_SEGMENT_VAL_PVT API');
987: END IF;
988: END IF;
989:
990: -- close out output xml