45: from oke_k_headers_secure_v k
46: where ' || x_user_value ||
47: ' order by k_number';
48:
49: l_cur_hd := dbms_sql.open_cursor;
50:
51: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
52: dbms_sql.define_column(l_cur_hd, 1, l_k_number, 120);
53: dbms_sql.define_column(l_cur_hd, 2, l_k_header_id);
47: ' order by k_number';
48:
49: l_cur_hd := dbms_sql.open_cursor;
50:
51: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
52: dbms_sql.define_column(l_cur_hd, 1, l_k_number, 120);
53: dbms_sql.define_column(l_cur_hd, 2, l_k_header_id);
54:
55: l_row_processed := dbms_sql.execute(l_cur_hd);
48:
49: l_cur_hd := dbms_sql.open_cursor;
50:
51: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
52: dbms_sql.define_column(l_cur_hd, 1, l_k_number, 120);
53: dbms_sql.define_column(l_cur_hd, 2, l_k_header_id);
54:
55: l_row_processed := dbms_sql.execute(l_cur_hd);
56:
49: l_cur_hd := dbms_sql.open_cursor;
50:
51: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
52: dbms_sql.define_column(l_cur_hd, 1, l_k_number, 120);
53: dbms_sql.define_column(l_cur_hd, 2, l_k_header_id);
54:
55: l_row_processed := dbms_sql.execute(l_cur_hd);
56:
57: loop
51: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
52: dbms_sql.define_column(l_cur_hd, 1, l_k_number, 120);
53: dbms_sql.define_column(l_cur_hd, 2, l_k_header_id);
54:
55: l_row_processed := dbms_sql.execute(l_cur_hd);
56:
57: loop
58:
59: if dbms_sql.fetch_rows(l_cur_hd) > 0 then
55: l_row_processed := dbms_sql.execute(l_cur_hd);
56:
57: loop
58:
59: if dbms_sql.fetch_rows(l_cur_hd) > 0 then
60:
61: if j >= x_low_value then
62:
63: dbms_sql.column_value(l_cur_hd, 1, l_k_number);
59: if dbms_sql.fetch_rows(l_cur_hd) > 0 then
60:
61: if j >= x_low_value then
62:
63: dbms_sql.column_value(l_cur_hd, 1, l_k_number);
64: dbms_sql.column_value(l_cur_hd, 2, l_k_header_id);
65:
66: x_tree_data_table(i).state := x_node_state;
67: x_tree_data_table(i).depth := 1;
60:
61: if j >= x_low_value then
62:
63: dbms_sql.column_value(l_cur_hd, 1, l_k_number);
64: dbms_sql.column_value(l_cur_hd, 2, l_k_header_id);
65:
66: x_tree_data_table(i).state := x_node_state;
67: x_tree_data_table(i).depth := 1;
68: x_tree_data_table(i).label := l_k_number;
84:
85: end loop;
86:
87: x_return_status := 'S';
88: dbms_sql.close_cursor(l_cur_hd);
89:
90: exception
91: when OTHERS then
92: x_return_status := 'E';
283: if (l_name.where_clause is not null) then
284: l_str := l_str || ' and ' || l_name.where_clause;
285: end if;
286:
287: l_cur_hd := dbms_sql.open_cursor;
288:
289: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
290: dbms_sql.bind_variable(l_cur_hd, 'id1', to_number(l_id1));
291: if (l_id2 is not null) then
285: end if;
286:
287: l_cur_hd := dbms_sql.open_cursor;
288:
289: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
290: dbms_sql.bind_variable(l_cur_hd, 'id1', to_number(l_id1));
291: if (l_id2 is not null) then
292: dbms_sql.bind_variable(l_cur_hd, 'id2', to_number(l_id2));
293: end if;
286:
287: l_cur_hd := dbms_sql.open_cursor;
288:
289: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
290: dbms_sql.bind_variable(l_cur_hd, 'id1', to_number(l_id1));
291: if (l_id2 is not null) then
292: dbms_sql.bind_variable(l_cur_hd, 'id2', to_number(l_id2));
293: end if;
294: dbms_sql.define_column(l_cur_hd, 1, x_party_name, 360);
288:
289: dbms_sql.parse(l_cur_hd, l_str, dbms_sql.native);
290: dbms_sql.bind_variable(l_cur_hd, 'id1', to_number(l_id1));
291: if (l_id2 is not null) then
292: dbms_sql.bind_variable(l_cur_hd, 'id2', to_number(l_id2));
293: end if;
294: dbms_sql.define_column(l_cur_hd, 1, x_party_name, 360);
295:
296: l_row_processed := dbms_sql.execute(l_cur_hd);
290: dbms_sql.bind_variable(l_cur_hd, 'id1', to_number(l_id1));
291: if (l_id2 is not null) then
292: dbms_sql.bind_variable(l_cur_hd, 'id2', to_number(l_id2));
293: end if;
294: dbms_sql.define_column(l_cur_hd, 1, x_party_name, 360);
295:
296: l_row_processed := dbms_sql.execute(l_cur_hd);
297:
298: loop
292: dbms_sql.bind_variable(l_cur_hd, 'id2', to_number(l_id2));
293: end if;
294: dbms_sql.define_column(l_cur_hd, 1, x_party_name, 360);
295:
296: l_row_processed := dbms_sql.execute(l_cur_hd);
297:
298: loop
299:
300: if dbms_sql.fetch_rows(l_cur_hd) > 0 then
296: l_row_processed := dbms_sql.execute(l_cur_hd);
297:
298: loop
299:
300: if dbms_sql.fetch_rows(l_cur_hd) > 0 then
301: dbms_sql.column_value(l_cur_hd, 1, x_party_name);
302: else
303: exit;
304: end if;
297:
298: loop
299:
300: if dbms_sql.fetch_rows(l_cur_hd) > 0 then
301: dbms_sql.column_value(l_cur_hd, 1, x_party_name);
302: else
303: exit;
304: end if;
305:
304: end if;
305:
306: end loop;
307:
308: dbms_sql.close_cursor(l_cur_hd);
309:
310: end if;
311:
312: exception