FUNCTION get_all (
      v_word    IN   VARCHAR2,
      v_catalog   IN   VARCHAR2,
   )
      RETURN TYPES.cursortype
   AS
      l_cursor     TYPES.cursortype;
      v_ouid       INT;
      d_ordenado   VARCHAR2 (10);
   BEGIN
      SELECT ID
        INTO v_ouid
        FROM catalogs
       WHERE catalog_name = v_catalogs;

      OPEN l_cursor FOR
        SELECT *
          FROM (SELECT /*+ FIRST_ROWS(50) INDEX(IDX_DATE_NEWS) */
                    score (1) AS RANK, ID,
                    TO_CHAR (date_news, 'dd/mm/yyyy'), CODE_NEWS
                FROM newsfiles
                WHERE ouid = 1
                AND (contains (txt_index, v_word, 1) > 0)
                ORDER BY date_news DESC)
             WHERE ROWNUM < 201;
  
      RETURN l_cursor;

      CLOSE l_cursor;
   END get_all;

SELECT STATEMENT,5,0
COUNT STOPKEY
VIEW ,5,0
SORT ORDER BY STOPKEY
FILTER
TABLE ACCESS BY INDEX ROWID,ARCHIVO,373,15722670
BITMAP CONVERSION TO ROWIDS
BITMAP AND 
BITMAP INDEX SINGLE VALUE,IDX_OUID
BITMAP CONVERSION FROM ROWIDS
SORT ORDER BY
DOMAIN INDEX ,IDXTXT,122,1

    $sel="BEGIN :cursor := pkgfiles.get_all(:word,:catalog,:order); END;";
	$labelsearch = "resume = '".$qall."' or insertado = '".$qall."' or theme = '".$qall."'";
        $sth1 = $dbh->prepare($sel);
        $sth1->bind_param(":word",$qall); 
        $sth1->bind_param(":catalog",$current_catalog ); 
        $sth1->bind_param(":order",$orden);

if (length($sel) > 1) {
        my $sth2;
        $sth1->bind_param_inout(":cursor", \$sth2, 0, { ora_type => ORA_RSET } );
        $sth1->execute;

	while (@selcolumns = $sth2->fetchrow_array) {

		$cantcol = @selcolumns;
		$coldate = $selcolumns[$cantcol - 2];
		$colid = $selcolumns[$cantcol - 3];
		$colcod = $selcolumns[$cantcol - 1];
		$colrank = 0;
		if ($cantcol -3 >=0){$colrank = $selcolumns[$cantcol - 3];}
		if ($cantcol -4 >=0){$colrank = $selcolumns[$cantcol - 4];}
		if ($cantcol -5 >=0){$colrank = $selcolumns[$cantcol - 5];}
		print "<tr>\n";
		print "<td class=\"estilo_chico2_bold\"><img src='".$repositorio."prod/general/barrah.png' width='".$colrank."' height='8' title='".$colrank."'>\n";
		print "<br>".$coldate." - ";
		print "<a href='ver.pl?ID=".$colid."&WORD=".$qall."&SESSIONID=".$sessionID."&WORDAV=".$qav."' target='NewsFiles' onmouseover=\"javascript:parent.FILESNEWS.location.href='ver.pl?ID=".$colid."&WORD=".$qall."&SESSIONID=".$sessionID."&WORDAV= ".$qav."'\">".$colcod."</a></td></tr>\n";
        
	}

WHERE ouid = 1
AND (contains (txt_index, v_word, 1) > 0)