APPS.BIS_BUSINESS_VIEWS_CATALOG dependencies on DBMS_SQL

Line 114: l_csr := DBMS_SQL.open_cursor;

110: l_dummy pls_integer;
111:
112: BEGIN
113:
114: l_csr := DBMS_SQL.open_cursor;
115: BEGIN
116: l_sql:= 'select ba_name from ' || p_eul ||'.eul_business_areas ba, ' ||
117: p_eul ||'.eul_ba_obj_links bol ' ||
118: 'where ' || p_folder_id || ' = bol.bol_obj_id ' ||

Line 120: DBMS_SQL.parse( l_csr, l_sql, dbms_sql.native );

116: l_sql:= 'select ba_name from ' || p_eul ||'.eul_business_areas ba, ' ||
117: p_eul ||'.eul_ba_obj_links bol ' ||
118: 'where ' || p_folder_id || ' = bol.bol_obj_id ' ||
119: 'and bol.bol_ba_id = ba.ba_id ';
120: DBMS_SQL.parse( l_csr, l_sql, dbms_sql.native );
121: DBMS_SQL.define_column( l_csr, 1, l_ba_name, 256 );
122: l_ignore := DBMS_SQL.execute( l_csr );
123:
124: l_dummy := DBMS_SQL.fetch_rows( l_csr );

Line 121: DBMS_SQL.define_column( l_csr, 1, l_ba_name, 256 );

117: p_eul ||'.eul_ba_obj_links bol ' ||
118: 'where ' || p_folder_id || ' = bol.bol_obj_id ' ||
119: 'and bol.bol_ba_id = ba.ba_id ';
120: DBMS_SQL.parse( l_csr, l_sql, dbms_sql.native );
121: DBMS_SQL.define_column( l_csr, 1, l_ba_name, 256 );
122: l_ignore := DBMS_SQL.execute( l_csr );
123:
124: l_dummy := DBMS_SQL.fetch_rows( l_csr );
125: IF l_dummy > 0 THEN

Line 122: l_ignore := DBMS_SQL.execute( l_csr );

118: 'where ' || p_folder_id || ' = bol.bol_obj_id ' ||
119: 'and bol.bol_ba_id = ba.ba_id ';
120: DBMS_SQL.parse( l_csr, l_sql, dbms_sql.native );
121: DBMS_SQL.define_column( l_csr, 1, l_ba_name, 256 );
122: l_ignore := DBMS_SQL.execute( l_csr );
123:
124: l_dummy := DBMS_SQL.fetch_rows( l_csr );
125: IF l_dummy > 0 THEN
126: DBMS_SQL.column_value( l_csr, 1, l_ba_name );

Line 124: l_dummy := DBMS_SQL.fetch_rows( l_csr );

120: DBMS_SQL.parse( l_csr, l_sql, dbms_sql.native );
121: DBMS_SQL.define_column( l_csr, 1, l_ba_name, 256 );
122: l_ignore := DBMS_SQL.execute( l_csr );
123:
124: l_dummy := DBMS_SQL.fetch_rows( l_csr );
125: IF l_dummy > 0 THEN
126: DBMS_SQL.column_value( l_csr, 1, l_ba_name );
127: ELSE
128: l_ba_name := ' ';

Line 126: DBMS_SQL.column_value( l_csr, 1, l_ba_name );

122: l_ignore := DBMS_SQL.execute( l_csr );
123:
124: l_dummy := DBMS_SQL.fetch_rows( l_csr );
125: IF l_dummy > 0 THEN
126: DBMS_SQL.column_value( l_csr, 1, l_ba_name );
127: ELSE
128: l_ba_name := ' ';
129: END IF;
130: EXCEPTION

Line 132: dbms_sql.close_cursor( l_csr );

128: l_ba_name := ' ';
129: END IF;
130: EXCEPTION
131: WHEN OTHERS THEN
132: dbms_sql.close_cursor( l_csr );
133: RAISE;
134: END;
135: dbms_sql.close_cursor( l_csr );
136:

Line 135: dbms_sql.close_cursor( l_csr );

131: WHEN OTHERS THEN
132: dbms_sql.close_cursor( l_csr );
133: RAISE;
134: END;
135: dbms_sql.close_cursor( l_csr );
136:
137: RETURN l_ba_name;
138:
139: END get_a_business_area;