725: -- NOTE not all values will be defined if this references another
726: -- flex field, this will cause an error in which case continue
727: BEGIN
728: BEGIN
729: l_cursor := dbms_sql.open_cursor;
730: dbms_sql.parse(l_cursor, l_arg_default_value, dbms_sql.v7);
731: dbms_sql.define_column(l_cursor, 1, l_sql_value, 100 );
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
726: -- flex field, this will cause an error in which case continue
727: BEGIN
728: BEGIN
729: l_cursor := dbms_sql.open_cursor;
730: dbms_sql.parse(l_cursor, l_arg_default_value, dbms_sql.v7);
731: dbms_sql.define_column(l_cursor, 1, l_sql_value, 100 );
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
734: dbms_sql.column_value(l_cursor, 1, l_sql_value);
727: BEGIN
728: BEGIN
729: l_cursor := dbms_sql.open_cursor;
730: dbms_sql.parse(l_cursor, l_arg_default_value, dbms_sql.v7);
731: dbms_sql.define_column(l_cursor, 1, l_sql_value, 100 );
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
734: dbms_sql.column_value(l_cursor, 1, l_sql_value);
735: IF dbms_sql.is_open(l_cursor) THEN
728: BEGIN
729: l_cursor := dbms_sql.open_cursor;
730: dbms_sql.parse(l_cursor, l_arg_default_value, dbms_sql.v7);
731: dbms_sql.define_column(l_cursor, 1, l_sql_value, 100 );
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
734: dbms_sql.column_value(l_cursor, 1, l_sql_value);
735: IF dbms_sql.is_open(l_cursor) THEN
736: dbms_sql.close_cursor(l_cursor);
729: l_cursor := dbms_sql.open_cursor;
730: dbms_sql.parse(l_cursor, l_arg_default_value, dbms_sql.v7);
731: dbms_sql.define_column(l_cursor, 1, l_sql_value, 100 );
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
734: dbms_sql.column_value(l_cursor, 1, l_sql_value);
735: IF dbms_sql.is_open(l_cursor) THEN
736: dbms_sql.close_cursor(l_cursor);
737: END IF;
730: dbms_sql.parse(l_cursor, l_arg_default_value, dbms_sql.v7);
731: dbms_sql.define_column(l_cursor, 1, l_sql_value, 100 );
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
734: dbms_sql.column_value(l_cursor, 1, l_sql_value);
735: IF dbms_sql.is_open(l_cursor) THEN
736: dbms_sql.close_cursor(l_cursor);
737: END IF;
738:
731: dbms_sql.define_column(l_cursor, 1, l_sql_value, 100 );
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
734: dbms_sql.column_value(l_cursor, 1, l_sql_value);
735: IF dbms_sql.is_open(l_cursor) THEN
736: dbms_sql.close_cursor(l_cursor);
737: END IF;
738:
739: l_argument(l_arg_cnt) := l_sql_value;
732: l_rows := dbms_sql.execute(l_cursor);
733: l_rows := dbms_sql.fetch_rows(l_cursor);
734: dbms_sql.column_value(l_cursor, 1, l_sql_value);
735: IF dbms_sql.is_open(l_cursor) THEN
736: dbms_sql.close_cursor(l_cursor);
737: END IF;
738:
739: l_argument(l_arg_cnt) := l_sql_value;
740: END;
742: EXCEPTION
743: WHEN OTHERS THEN
744: --NULL;
745: -- Bug 3596524
746: IF dbms_sql.is_open(l_cursor) THEN
747: dbms_sql.close_cursor(l_cursor);
748: END IF;
749: END;
750: END IF;
743: WHEN OTHERS THEN
744: --NULL;
745: -- Bug 3596524
746: IF dbms_sql.is_open(l_cursor) THEN
747: dbms_sql.close_cursor(l_cursor);
748: END IF;
749: END;
750: END IF;
751:
766: l_select_clause || ' where 1=1 ' || l_additional_clause
767: || ' ' || l_where_clause;
768:
769: BEGIN
770: l_cursor := dbms_sql.open_cursor;
771: dbms_sql.parse(l_cursor, l_value_set_lookup, dbms_sql.v7);
772: dbms_sql.bind_variable(l_cursor, ':value', l_argument(l_arg_cnt));
773: dbms_sql.define_column(l_cursor, 1, l_sql_value, 255 );
774: l_rows := dbms_sql.execute(l_cursor);
767: || ' ' || l_where_clause;
768:
769: BEGIN
770: l_cursor := dbms_sql.open_cursor;
771: dbms_sql.parse(l_cursor, l_value_set_lookup, dbms_sql.v7);
772: dbms_sql.bind_variable(l_cursor, ':value', l_argument(l_arg_cnt));
773: dbms_sql.define_column(l_cursor, 1, l_sql_value, 255 );
774: l_rows := dbms_sql.execute(l_cursor);
775: l_rows := dbms_sql.fetch_rows(l_cursor);
768:
769: BEGIN
770: l_cursor := dbms_sql.open_cursor;
771: dbms_sql.parse(l_cursor, l_value_set_lookup, dbms_sql.v7);
772: dbms_sql.bind_variable(l_cursor, ':value', l_argument(l_arg_cnt));
773: dbms_sql.define_column(l_cursor, 1, l_sql_value, 255 );
774: l_rows := dbms_sql.execute(l_cursor);
775: l_rows := dbms_sql.fetch_rows(l_cursor);
776: dbms_sql.column_value(l_cursor, 1, l_sql_value);
769: BEGIN
770: l_cursor := dbms_sql.open_cursor;
771: dbms_sql.parse(l_cursor, l_value_set_lookup, dbms_sql.v7);
772: dbms_sql.bind_variable(l_cursor, ':value', l_argument(l_arg_cnt));
773: dbms_sql.define_column(l_cursor, 1, l_sql_value, 255 );
774: l_rows := dbms_sql.execute(l_cursor);
775: l_rows := dbms_sql.fetch_rows(l_cursor);
776: dbms_sql.column_value(l_cursor, 1, l_sql_value);
777:
770: l_cursor := dbms_sql.open_cursor;
771: dbms_sql.parse(l_cursor, l_value_set_lookup, dbms_sql.v7);
772: dbms_sql.bind_variable(l_cursor, ':value', l_argument(l_arg_cnt));
773: dbms_sql.define_column(l_cursor, 1, l_sql_value, 255 );
774: l_rows := dbms_sql.execute(l_cursor);
775: l_rows := dbms_sql.fetch_rows(l_cursor);
776: dbms_sql.column_value(l_cursor, 1, l_sql_value);
777:
778: EXCEPTION
771: dbms_sql.parse(l_cursor, l_value_set_lookup, dbms_sql.v7);
772: dbms_sql.bind_variable(l_cursor, ':value', l_argument(l_arg_cnt));
773: dbms_sql.define_column(l_cursor, 1, l_sql_value, 255 );
774: l_rows := dbms_sql.execute(l_cursor);
775: l_rows := dbms_sql.fetch_rows(l_cursor);
776: dbms_sql.column_value(l_cursor, 1, l_sql_value);
777:
778: EXCEPTION
779: WHEN OTHERS THEN
772: dbms_sql.bind_variable(l_cursor, ':value', l_argument(l_arg_cnt));
773: dbms_sql.define_column(l_cursor, 1, l_sql_value, 255 );
774: l_rows := dbms_sql.execute(l_cursor);
775: l_rows := dbms_sql.fetch_rows(l_cursor);
776: dbms_sql.column_value(l_cursor, 1, l_sql_value);
777:
778: EXCEPTION
779: WHEN OTHERS THEN
780: l_sql_value := NULL;
779: WHEN OTHERS THEN
780: l_sql_value := NULL;
781: END;
782:
783: IF dbms_sql.is_open(l_cursor) THEN
784: dbms_sql.close_cursor(l_cursor);
785: END IF;
786:
787: IF l_sql_value IS NOT NULL THEN
780: l_sql_value := NULL;
781: END;
782:
783: IF dbms_sql.is_open(l_cursor) THEN
784: dbms_sql.close_cursor(l_cursor);
785: END IF;
786:
787: IF l_sql_value IS NOT NULL THEN
788: l_argument(l_arg_cnt) := l_sql_value;