begin
    declare i unsigned integer;
    declare v unsigned int;
    set i =  0 ;
    while (i<inCount)loop
      set v = DBA."SP_Test"( 123 );    
      set i = i +  1 ;
    end loop;
    return  1 ; 
end

set v = DBA."SP_Test"( 123 );    

ALTER FUNCTION "DBA"."SP_Test_2"(
	in InFake unsigned integer)
returns unsigned integer
begin
  declare vNewPriceListID unsigned integer;
  declare vCurDateTime datetime;
  set vCurDateTime = now();
l_break:
  begin
    for l_Period as cPeriod
      NO SCROLL CURSOR FOR
            select beg as @BeginPeriod, en as @EndPeriod, idnewt as @idnewt
              from DBA."Period"
              where (IdList =  45 )
    do 
      if((vCurDateTime >= vBeginPeriod)and(vCurDateTime <= vEndPeriod)) then
        set vNewPriceListID = @idnewt;
        leave l_break;
      end if
    end for;
  end; --l_break
  return vNewPriceListID;     
end