1: package body pa_purge_projects_pkg as
2: /* $Header: PAXARPPB.pls 120.1 2005/08/05 00:47:38 rgandhi noship $ */
3: procedure insert_row (x_rowid in out NOCOPY VARCHAR2,/*File.sql.39*/
4: x_purge_batch_id in out NOCOPY NUMBER,/*File.sql.39*/
5: x_project_id in NUMBER,
18: x_next_p_project_status_code in VARCHAR2,
19: x_purged_date in DATE,
20: x_user_id in NUMBER ) is
21:
22: cursor c is select rowid from pa_purge_projects
23: where purge_batch_id = x_purge_batch_id
24: and project_id = x_project_id;
25:
26: x_err_code NUMBER;
27: x_return_status VARCHAR2(630);
28:
29: BEGIN
30:
31: insert into pa_purge_projects(purge_batch_id,
32: project_id,
33: last_project_status_code,
34: purge_summary_flag,
35: archive_summary_flag,
100:
101:
102: BEGIN
103:
104: update pa_purge_projects
105: set purge_batch_id = x_purge_batch_id,
106: project_id = x_project_id,
107: last_project_status_code = x_last_project_status_code,
108: purge_summary_flag = x_purge_summary_flag ,
134: procedure delete_row (x_rowid in VARCHAR2) is
135:
136: cursor purge_projects is
137: select purge_batch_id, project_id, last_project_status_code
138: from pa_purge_projects
139: where rowid = x_rowid
140: for update of project_id, purge_batch_id nowait;
141:
142: projects_rec purge_projects%rowtype;
160: delete from pa_purge_project_errors
161: where project_id = projects_rec.project_id
162: and purge_batch_id = projects_rec.purge_batch_id ;
163:
164: delete from pa_purge_projects
165: where rowid = x_rowid;
166: end if;
167: close project ;
168:
199:
200: dummy NUMBER;
201:
202: CURSOR C is
203: select * from pa_purge_projects
204: where rowid = x_rowid
205: for update of project_id ;
206:
207: recinfo C%ROWTYPE ;
257:
258: ---------------------------------------------------------------------------
259:
260:
261: END pa_purge_projects_pkg;