darlynproc

DELIMITER //
create procedure darlyn(in _pay int)
  begin

    declare _per integer;
    declare _cap decimal(12,4);
    declare _fee decimal (12,4);
    declare _pcb decimal (12,4);
    declare _pb decimal (12,4);
    declare cur1 cursor for
      select period, capital, fee_period, principal_capital_balance, principal_balance
      from fee_contract_period where payment_plan_id = _pay order by period and period > 1;

    declare continue handler for not found set done = true;
    open cur1;
    read_loop: loop
      fetch cur1 into _per, _cap, _fee, _pcb, _pb;
      update fee_contract_periods
      set 	principal_capital_balance = _pcb - capital,
        principal_balance = _pb - fee_period
      where payment_plan_id = _pay and period = _per + 1;


    end loop;
    close cur1;
  end


//
DELIMITER  ;