CREATE OR REPLACE PACKAGE EMP_PKG AS
TYPE EMP_REC IS RECORD (F_NAME VARCHAR2(30), L_NAME VARCHAR2(30), SALARY NUMBER(10,2));
FUNCTION GET_EMP RETURN EMP_REC;
END EMP_PKG;
CREATE OR REPLACE PACKAGE BODY EMP_PKG AS
FUNCTION GET_EMP RETURN EMP_REC AS
  P_EMP EMP_REC;
  BEGIN P_EMP.F_NAME := 'Bob'; P_EMP.F_NAME := 'Smith'; P_EMP.SALARY := 30000;
  RETURN P_EMP;
END;
END EMP_PKG;

DEClare
myrec eMP_PKG.EMP_REC
 ;
begin
select eMP_PKG.GET_EMP() into myrec
 from dual; 
end;

ORA-06550: line 4, column 41:
PL/SQL: ORA-00913: too many values
ORA-06550: line 4, column 4:
PL/SQL: SQL Statement ignored

create or replace package imp_pkg_test2 as
 type recparse_cl is record
(
id number(10),
pn1_type varchar(10),
pn1_name  varchar(20) ,
pn2_type  varchar(10),
pn2_name  varchar(20),
 signum_name  varchar(4) 
);
type tparse_cl is table of recparse_cl;
function fparse_cl( id number,  str in varchar2)
return tparse_cl pipelined;
end imp_pkg_test2;
/
create or replace package body imp_pkg_test2 as
function fparse_cl( id number,  str in varchar2)
return tparse_cl pipelined as
    parse_cl recparse_cl ;
    lstr varchar(255);
  begin 
    lstr:=replace(str,' ');
    parse_cl.id:=id;
    parse_cl.pn1_type:= regexp_substr (lstr,'^[[:alpha:]]+',1,1);
    parse_cl.pn1_name:=regexp_substr (lstr,'[[:digit:]]+',1,1);
    parse_cl.pn2_type:=regexp_substr (lstr,'-([[:alpha:]]*)([[:digit:]]*)([[:alpha:]]*)',1,1,'i',1) ;
    parse_cl.pn2_name:=regexp_substr (lstr,'-([[:alpha:]]*)([[:digit:]]+)([[:alpha:]]*)',1,1,'i', 2) ;
    parse_cl.signum_name  :=regexp_substr (lstr,'-([[:alpha:]]*)([[:digit:]]*)([[:alpha:]]*)',1,1,'i',3);  
  pipe row(parse_cl);
  return ;
end;
end imp_pkg_test2;
/

select *  from  table(imp_pkg_test2.fparse_cl(1,'вв110-вв 45') )v;

with vc as (select 'вв110-вв 45' nn from dual)
select *  from 
table (imp_pkg_test2.fparse_cl (1, bb.nn)) v, vc bb

SELECT c.mkt_id, c.name, t.X, t.Y, t.id
   FROM cola_markets c,
   TABLE(SDO_UTIL.GETVERTICES(c.shape)) t
   ORDER BY c.mkt_id, t.id;