423: l_display VARCHAR2(254);
424: l_ret_code NUMBER;
425: l_count NUMBER;
426: BEGIN
427: l_cursor := dbms_sql.open_cursor;
428: dbms_sql.parse(l_cursor, p_select, DBMS_SQL.V7);
429: dbms_sql.define_column(l_cursor, 1, l_value, 254);
430: dbms_sql.define_column(l_cursor, 2, l_display, 254);
431: l_ret_code := dbms_sql.execute(l_cursor);
424: l_ret_code NUMBER;
425: l_count NUMBER;
426: BEGIN
427: l_cursor := dbms_sql.open_cursor;
428: dbms_sql.parse(l_cursor, p_select, DBMS_SQL.V7);
429: dbms_sql.define_column(l_cursor, 1, l_value, 254);
430: dbms_sql.define_column(l_cursor, 2, l_display, 254);
431: l_ret_code := dbms_sql.execute(l_cursor);
432: l_count := 0;
425: l_count NUMBER;
426: BEGIN
427: l_cursor := dbms_sql.open_cursor;
428: dbms_sql.parse(l_cursor, p_select, DBMS_SQL.V7);
429: dbms_sql.define_column(l_cursor, 1, l_value, 254);
430: dbms_sql.define_column(l_cursor, 2, l_display, 254);
431: l_ret_code := dbms_sql.execute(l_cursor);
432: l_count := 0;
433: p_output := p_output || ' ' || htf.formSelectOpen(p_name);
426: BEGIN
427: l_cursor := dbms_sql.open_cursor;
428: dbms_sql.parse(l_cursor, p_select, DBMS_SQL.V7);
429: dbms_sql.define_column(l_cursor, 1, l_value, 254);
430: dbms_sql.define_column(l_cursor, 2, l_display, 254);
431: l_ret_code := dbms_sql.execute(l_cursor);
432: l_count := 0;
433: p_output := p_output || ' ' || htf.formSelectOpen(p_name);
434:
427: l_cursor := dbms_sql.open_cursor;
428: dbms_sql.parse(l_cursor, p_select, DBMS_SQL.V7);
429: dbms_sql.define_column(l_cursor, 1, l_value, 254);
430: dbms_sql.define_column(l_cursor, 2, l_display, 254);
431: l_ret_code := dbms_sql.execute(l_cursor);
432: l_count := 0;
433: p_output := p_output || ' ' || htf.formSelectOpen(p_name);
434:
435: LOOP
433: p_output := p_output || ' ' || htf.formSelectOpen(p_name);
434:
435: LOOP
436:
437: IF (dbms_sql.fetch_rows(l_cursor) > 0) THEN
438: l_count := l_count + 1;
439: dbms_sql.column_value(l_cursor, 1, l_value);
440: dbms_sql.column_value(l_cursor, 2, l_display);
441:
435: LOOP
436:
437: IF (dbms_sql.fetch_rows(l_cursor) > 0) THEN
438: l_count := l_count + 1;
439: dbms_sql.column_value(l_cursor, 1, l_value);
440: dbms_sql.column_value(l_cursor, 2, l_display);
441:
442: IF l_count = 1 THEN
443: p_output := p_output || ' ' ||
436:
437: IF (dbms_sql.fetch_rows(l_cursor) > 0) THEN
438: l_count := l_count + 1;
439: dbms_sql.column_value(l_cursor, 1, l_value);
440: dbms_sql.column_value(l_cursor, 2, l_display);
441:
442: IF l_count = 1 THEN
443: p_output := p_output || ' ' ||
444: htf.formSelectOption(l_display, 'YES', 'value="' || l_value || '"');
452: END IF;
453:
454: END LOOP;
455:
456: dbms_sql.close_cursor(l_cursor);
457: p_output := p_output || ' ' || htf.formSelectClose;
458:
459: EXCEPTION
460: WHEN others THEN