115: for i in 1..l_pur_del.count loop
116: open c_pur_del(l_pur_del(i)) ;
117: fetch c_pur_del into rec_pur ;
118: if c_pur_del%found then 119: pay_urt_del.del_tl(l_pur_del(i)); 120: end if;
121: close c_pur_del ;
122: end loop ;
123: l_pur_del.delete;