141:
142: projects_rec purge_projects%rowtype;
143: cursor project is
144: select project_id
145: from pa_projects
146: where project_id = projects_rec.project_id
147: for update of project_status_code nowait ;
148:
149: BEGIN
152: open project ;
153: if (purge_projects%notfound) then
154: null;
155: else
156: update pa_projects
157: set project_status_code = projects_rec.last_project_status_code
158: where project_id = projects_rec.project_id ;
159:
160: delete from pa_purge_project_errors