Oracle и хранимые процедуры !

CREATE OR REPLACE PACKAGE Debug_PKG IS
  -- Public type declarations
  TYPE rLine IS RECORD (line VARCHAR2(255));
  TYPE tLines_Output IS TABLE OF rLine INDEX BY BINARY_INTEGER;
  TYPE cLines_Output IS REF CURSOR RETURN rLine;
  
  -- Public constant declarations
 
  -- Public variable declarations
  Lines1 DBMS_OUTPUT.chararr;
 
  -- Public function and procedure declarations
  FUNCTION GetLine(i INTEGER) RETURN VARCHAR2;
 
  PROCEDURE Get_OutPutLines(
    Lines IN OUT cLINES_OUTPUT, 
    NumLines OUT INTEGER);
  PRAGMA restrict_references (GetLine, WNPS,WNDS);
END Debug_PKG;
 
CREATE OR REPLACE PACKAGE BODY Debug_PKG IS
  FUNCTION GetLine(i INTEGER) RETURN VARCHAR2 IS
  BEGIN
    RETURN(Lines1(i));
  END;
 
  PROCEDURE Get_OutPutLines(
    Lines IN OUT cLINES_OUTPUT, 
    NumLines OUT INTEGER) 
    IS
    i INTEGER;
  BEGIN
    NUMLINES := GetParamByName('DEBUG_OUTPUT',p_IdDep,p_IdUs);
    DBMS_OUTPUT.GET_LINES(Lines1,NUMLINES);
    OPEN Lines FOR SELECT SUBSTR(GetLine(ROWNUM),1,255) 
        FROM orders WHERE ROWNUM <= Numlines;
  END;
END Debug_PKG;

CREATE OR REPLACE PROCEDURE Get_OutPutLines(
  Lines OUT Debug_PKG.cLINES_OUTPUT, 
  NumLines OUT INTEGER) 
  IS
BEGIN
  Debug_PKG.GET_OUTPUTLINES(Lines,NumLines);
END;