5727: --doing this becuase order by may exist in where clause
5728: l_select_stmt := 'SELECT FLEX_VALUE FROM ('||l_select_stmt||') WHERE FLEX_VALUE_ID = :1';
5729:
5730:
5731: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5732: --parse the query
5733: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5734: --Bind the input variable
5735: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5729:
5730:
5731: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5732: --parse the query
5733: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5734: --Bind the input variable
5735: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5736:
5737: --define select lis
5731: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5732: --parse the query
5733: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5734: --Bind the input variable
5735: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5736:
5737: --define select lis
5738: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5739: --execute the query
5734: --Bind the input variable
5735: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5736:
5737: --define select lis
5738: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5739: --execute the query
5740: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5741: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5742: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5736:
5737: --define select lis
5738: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5739: --execute the query
5740: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5741: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5742: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5743: END IF;
5744:
5737: --define select lis
5738: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5739: --execute the query
5740: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5741: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5742: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5743: END IF;
5744:
5745: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5738: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5739: --execute the query
5740: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5741: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5742: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5743: END IF;
5744:
5745: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5746: END IF;
5741: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5742: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5743: END IF;
5744:
5745: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5746: END IF;
5747: return l_value;
5748: EXCEPTION
5749: WHEN OTHERS THEN
5835: END IF;
5836: --doing this becuase order by may exist in where clause
5837: l_select_stmt := 'SELECT FLEX_MEANING FROM ('||l_select_stmt||') WHERE FLEX_VALUE_ID = :1';
5838:
5839: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5840: --parse the query
5841: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5842: --Bind the input variable
5843: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5837: l_select_stmt := 'SELECT FLEX_MEANING FROM ('||l_select_stmt||') WHERE FLEX_VALUE_ID = :1';
5838:
5839: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5840: --parse the query
5841: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5842: --Bind the input variable
5843: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5844:
5845: --define select lis
5839: value_cursor_id := DBMS_SQL.OPEN_CURSOR;
5840: --parse the query
5841: DBMS_SQL.PARSE(value_cursor_id,l_select_stmt,DBMS_SQL.NATIVE);
5842: --Bind the input variable
5843: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5844:
5845: --define select lis
5846: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5847: --execute the query
5842: --Bind the input variable
5843: DBMS_SQL.BIND_VARIABLE(value_cursor_id,':1',p_object_value_code);
5844:
5845: --define select lis
5846: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5847: --execute the query
5848: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5849: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5850: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5844:
5845: --define select lis
5846: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5847: --execute the query
5848: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5849: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5850: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5851: END IF;
5852:
5845: --define select lis
5846: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5847: --execute the query
5848: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5849: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5850: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5851: END IF;
5852:
5853: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5846: DBMS_SQL.DEFINE_COLUMN(value_cursor_id,1, l_value,1000);
5847: --execute the query
5848: ret_val := DBMS_SQL.EXECUTE(value_cursor_id);
5849: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5850: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5851: END IF;
5852:
5853: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5854: END IF;
5849: IF DBMS_SQL.FETCH_ROWS(value_cursor_id) <> 0 THEN
5850: DBMS_SQL.COLUMN_VALUE(value_cursor_id,1, l_value);
5851: END IF;
5852:
5853: DBMS_SQL.CLOSE_CURSOR(value_cursor_id);
5854: END IF;
5855: return l_value;
5856:
5857: EXCEPTION