5925: --doing this becuase order by may exist in where clause
5926: l_select_stmt := 'SELECT FLEX_VALUE FROM ('||l_select_stmt||') WHERE FLEX_VALUE_ID = :1';
5927:
5928:
5929: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5930: --parse the query
5931: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5932: --Bind the input variable
5933: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5927:
5928:
5929: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5930: --parse the query
5931: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5932: --Bind the input variable
5933: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5934:
5935: --define select lis
5929: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5930: --parse the query
5931: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5932: --Bind the input variable
5933: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5934:
5935: --define select lis
5936: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5937: --execute the query
5932: --Bind the input variable
5933: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5934:
5935: --define select lis
5936: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5937: --execute the query
5938: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5939: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5940: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5934:
5935: --define select lis
5936: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5937: --execute the query
5938: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5939: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5940: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5941: END IF;
5942:
5935: --define select lis
5936: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5937: --execute the query
5938: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5939: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5940: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5941: END IF;
5942:
5943: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5936: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5937: --execute the query
5938: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5939: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5940: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5941: END IF;
5942:
5943: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5944: END IF;
5939: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5940: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5941: END IF;
5942:
5943: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5944: END IF;
5945: return l_value;
5946: EXCEPTION
5947: WHEN OTHERS THEN
6033: END IF;
6034: --doing this becuase order by may exist in where clause
6035: l_select_stmt := 'SELECT FLEX_MEANING FROM ('||l_select_stmt||') WHERE FLEX_VALUE_ID = :1';
6036:
6037: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
6038: --parse the query
6039: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
6040: --Bind the input variable
6041: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
6035: l_select_stmt := 'SELECT FLEX_MEANING FROM ('||l_select_stmt||') WHERE FLEX_VALUE_ID = :1';
6036:
6037: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
6038: --parse the query
6039: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
6040: --Bind the input variable
6041: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
6042:
6043: --define select lis
6037: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
6038: --parse the query
6039: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
6040: --Bind the input variable
6041: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
6042:
6043: --define select lis
6044: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
6045: --execute the query
6040: --Bind the input variable
6041: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
6042:
6043: --define select lis
6044: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
6045: --execute the query
6046: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
6047: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
6048: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
6042:
6043: --define select lis
6044: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
6045: --execute the query
6046: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
6047: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
6048: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
6049: END IF;
6050:
6043: --define select lis
6044: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
6045: --execute the query
6046: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
6047: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
6048: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
6049: END IF;
6050:
6051: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
6044: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
6045: --execute the query
6046: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
6047: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
6048: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
6049: END IF;
6050:
6051: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
6052: END IF;
6047: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
6048: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
6049: END IF;
6050:
6051: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
6052: END IF;
6053: return l_value;
6054:
6055: EXCEPTION