@@ -59,22 +59,6 @@ create or replace package body ut_curr_usr_compound_helper is
5959 return l_result;
6060 end;
6161
62- function get_descr_cursor(a_cursor in out nocopy sys_refcursor, a_desc_user_types boolean := false) return ut_key_anyval_pairs is
63- l_cursor_number integer;
64- l_columns_count pls_integer;
65- l_columns_desc dbms_sql.desc_tab3;
66- l_columns_tab ut_key_anyval_pairs;
67- begin
68- if a_cursor is null or not a_cursor%isopen then
69- return null;
70- end if;
71- l_cursor_number := dbms_sql.to_cursor_number( a_cursor );
72- dbms_sql.describe_columns3( l_cursor_number, l_columns_count, l_columns_desc );
73- a_cursor := dbms_sql.to_refcursor( l_cursor_number );
74- l_columns_tab := get_columns_info( l_columns_desc, l_columns_count, a_desc_user_types);
75- return l_columns_tab;
76- end;
77-
7862 procedure get_descr_cursor(
7963 a_cursor in out nocopy sys_refcursor,
8064 a_columns_tab in out nocopy ut_key_anyval_pairs,
@@ -128,25 +112,6 @@ create or replace package body ut_curr_usr_compound_helper is
128112 a_contains_collection := ut_utils.boolean_to_int(g_is_collection);
129113 end;
130114
131- function get_columns_info(a_cursor in out nocopy sys_refcursor, a_desc_user_types boolean := false) return xmltype is
132- l_result xmltype;
133- l_result_tmp xmltype;
134- l_columns_tab ut_key_anyval_pairs;
135- begin
136- l_columns_tab := get_descr_cursor(a_cursor,a_desc_user_types);
137-
138- for i in 1..l_columns_tab.COUNT
139- loop
140- l_result_tmp := ut_compound_data_helper.get_column_info_xml(l_columns_tab(i));
141- select xmlconcat(l_result,l_result_tmp) into l_result from dual;
142- end loop;
143-
144- select XMLELEMENT("ROW",l_result )
145- into l_result from dual;
146-
147- return l_result;
148- end;
149-
150115 function get_anytype_attribute_count (a_anytype anytype) return pls_integer is
151116 l_attribute_typecode pls_integer;
152117 l_schema_name varchar2(32767);
0 commit comments