Runtime error in function..

Question

I have the following function which gets compiled but gives user defined exception at run-time. What is wrong in the figure.
create or replace function fn_voucher_sharing_check(ln_seqno number, ln_compcode number) return boolean as
Module                  : fn_voucher_sharing_check
In Parameters          : ln_seqno - Voucher sequenceno, ln_compcode - Company Code.
Out Parameters          : None
Return Type          : Boolean
Function            : This function is used to check whether the voucher sharing entries are done correcting before authorising the voucher.
Created By          : Kaustubh N. Patil
Created Date          : 21-mar-2008
Last Updated By          :
Last Updated Date     :
Change Made          :
     --Cursor to get the all the adjusment entries having Expense GL. The same in used for cross-checking if all
     --the expense entris are shared.
     cursor vch_exp_chk is
     select c.nglcode glcode, c.nsldocsequenceno slseqno, c.nrefchequeorbillid chqbillid, c.nsubledgeramount slamt
     from tbl_voucherheader a, tbl_vouchersldocdetails b, tbl_adjustments c, tbl_subledger d, tbl_glmaster e
     where a.nsequenceno = ln_seqno
     and a.nsequenceno = b.nsequenceno
     and b.nsldocsequenceno = c.nsldocsequenceno
     and b.ssubledgertype = d.ssubledgertype
     and b.nsubledgercode = d.nsubledgercode
     and b.nsubledgerno = d.nsubledgerno
     and c.nglcode = e.nglcode
     and c.nglcode in (select distinct f.nglcode
     from tbl_groupmaster f
     where f.ncompanycode = ln_compcode
     and f.cparent = 'E'
     and f.nglcode is not null)
     and a.nauthorizedby is null;
     ln_adjustedamt number; -- To get the sum of amount from adjustment details table.
     ln_stmt varchar2(50);  -- To Display message in case of exception.
begin
     ln_stmt := 'Fetching from cursor';
     for i in vch_exp_chk
     loop
             ln_stmt := 'Getting value from Adjustments for GL : '||i.glcode||' and SLdocseqno : '||i.slseqno;
          --Get the sum of amount adjusted in sharing table.
          select sum(NAMOUNT) into ln_adjustedamt from tbl_adjustmentdetails
          where NSLDOCSEQUENCENO = i.slseqno
          and NGLCODE = i.glcode
          and NCHEQUEORBILLID = i.chqbillid
          group by NSLDOCSEQUENCENO, NGLCODE, NCHEQUEORBILLID;
          --Check if the total shared amount is matching with the Adjustment entries.
          if ln_adjustedamt <> i.slamt then
             --Return FALSE to calling process indicating that the voucher sharing entries are not done properly.
             return(FALSE);
          end if;
     end loop;
     --Return TRUE to calling process indicating that the voucher sharing entries are done properly.
     return(TRUE);
exception
     when others then
          --Display message and abort the process in case of exception.
          raise_application_error(-20001,'Msg : '||ln_stmt);
end;I am running the function using following block:
declare
ln_ret boolean;
begin
ln_ret := fn_voucher_sharing_check(106433, 1);
if ln_ret = TRUE then
dbms_output.put_line('TRUE');
else
dbms_output.put_line('FALSE');
end if;
end;The error is
ERROR at line 1:
ORA-20001: Msg : Fetching from cursor
ORA-06512: at "PRODNFA.FN_VOUCHER_SHARING_CHECK", line 69
ORA-06512: at line 4
Thanks in advance.
Regards
Kaustubh.

Answer 1

to be able to help you better, we need the actual oracle error message - if you remove the exception block entirely it will raise with the correct line number and proper error message.
or at least you need to modify it so it actually outputs the oracle SQLERRM.
raise_application_error(-20001,'Msg : '||ln_stmt,true);