如何编写oracle 自定义函数

create or replace function isHaveChildren (v_pricelistid in varchar2)
return number is
PRICELIST_SEQID number;
rate number := 0;
ret number;
v_sql varchar(2000);
begin
v_sql := ' select count(d.PRICELIST_SEQID) from clc_pricelist d   where d.pricelist_seqid = '''||v_pricelistid || '''  and not exists (select * from clc_price_collate c  where c.parent_id = d.pricelist_seqid)  and not exists  (select *   from clc_price_cost c   where c.parent_id = d.pricelist_seqid)';
dbms_output.put_line(v_sql);
  execute immediate v_sql   into PRICELIST_SEQID;

 if  PRICELIST_SEQID = 0 then
    rate:=1;  -- 有 打包项
   else
     rate:=0;   -- 无 打包项
 end if;
 ret := rate;
return ret;
end isHaveChildren;