646: l_progress := '30';
647:
648: LOOP
649: -- this loop will only return one record, hense no performance concern
650: -- still used loop to conform to the standard way cursor is handled
651:
652: FETCH l_current_task_curs INTO l_current_task_rec;
653: EXIT WHEN l_current_task_curs%notfound;
654:
1531: l_progress := '30';
1532:
1533: LOOP
1534: -- this loop will only return one record, hense no performance concern
1535: -- still used loop to conform to the standard way cursor is handled
1536:
1537: IF(p_mol_id IS NULL) THEN
1538: IF (l_debug = 1) THEN
1539: print_debug('Open l_current_task_curs cursor.', 4);