185:
186: cursor get_old_seq_name is
187: SELECT sequence_name
188: FROM all_sequences
189: WHERE sequence_name LIKE 'CSFW_MSESSION_URLID_S%'
190: AND sequence_owner = USER;
191:
192: l_seq_ddl_str varchar2(100);
193: BEGIN
213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
214: 'l_end_date = ' || l_end_date);
215: end if;
216:
217: -- block for CSFW_MSESSION_COOKIE
218: begin
219: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
220: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
221: 'Start deleting CSFW_MSESSION_COOKIE ...');
217: -- block for CSFW_MSESSION_COOKIE
218: begin
219: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
220: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
221: 'Start deleting CSFW_MSESSION_COOKIE ...');
222: end if;
223:
224: DELETE FROM CSFW_MSESSION_COOKIE
225: WHERE session_id IN
220: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
221: 'Start deleting CSFW_MSESSION_COOKIE ...');
222: end if;
223:
224: DELETE FROM CSFW_MSESSION_COOKIE
225: WHERE session_id IN
226: (SELECT session_id
227: FROM CSFW_MSESSION
228: WHERE last_access_date <= l_end_date
223:
224: DELETE FROM CSFW_MSESSION_COOKIE
225: WHERE session_id IN
226: (SELECT session_id
227: FROM CSFW_MSESSION
228: WHERE last_access_date <= l_end_date
229: ) RETURNING count(*) INTO l_deleted_records;
230:
231: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
229: ) RETURNING count(*) INTO l_deleted_records;
230:
231: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
233: 'Deleted records for CSFW_MSESSION_COOKIE = ' || l_deleted_records);
234: end if;
235:
236: exception
237: when others then
237: when others then
238: rollback to csfw_purge;
239: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
240: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
241: 'Exception occured while deleting CSFW_MSESSION_COOKIE sqlerrm = ' || sqlerrm);
242: end if;
243: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
244: errbuf := fnd_message.get;
245: retcode := 2;
244: errbuf := fnd_message.get;
245: retcode := 2;
246: return;
247: end;
248: -- end block for CSFW_MSESSION_COOKIE
249:
250: -- block for CSFW_MSESSION_URL
251: begin
252: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
246: return;
247: end;
248: -- end block for CSFW_MSESSION_COOKIE
249:
250: -- block for CSFW_MSESSION_URL
251: begin
252: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
254: 'Start deleting CSFW_MSESSION_URL ...');
250: -- block for CSFW_MSESSION_URL
251: begin
252: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
254: 'Start deleting CSFW_MSESSION_URL ...');
255: end if;
256:
257: DELETE FROM CSFW_MSESSION_URL
258: WHERE session_id IN
253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
254: 'Start deleting CSFW_MSESSION_URL ...');
255: end if;
256:
257: DELETE FROM CSFW_MSESSION_URL
258: WHERE session_id IN
259: (SELECT session_id
260: FROM CSFW_MSESSION
261: WHERE last_access_date <= l_end_date
256:
257: DELETE FROM CSFW_MSESSION_URL
258: WHERE session_id IN
259: (SELECT session_id
260: FROM CSFW_MSESSION
261: WHERE last_access_date <= l_end_date
262: ) RETURNING count(*) INTO l_deleted_records;
263:
264: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
262: ) RETURNING count(*) INTO l_deleted_records;
263:
264: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
265: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
266: 'Deleted records for CSFW_MSESSION_URL = ' || l_deleted_records);
267: end if;
268: exception
269: when others then
270: rollback to csfw_purge;
269: when others then
270: rollback to csfw_purge;
271: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
272: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
273: 'Exception occured while deleting CSFW_MSESSION_URL sqlerrm = ' || sqlerrm);
274: end if;
275: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
276: errbuf := fnd_message.get;
277: retcode := 2;
276: errbuf := fnd_message.get;
277: retcode := 2;
278: return;
279: end;
280: -- end block for CSFW_MSESSION_URL
281:
282: -- block for CSFW_MSESSION
283: begin
284: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
278: return;
279: end;
280: -- end block for CSFW_MSESSION_URL
281:
282: -- block for CSFW_MSESSION
283: begin
284: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
286: 'Start deleting CSFW_MSESSION ...');
282: -- block for CSFW_MSESSION
283: begin
284: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
286: 'Start deleting CSFW_MSESSION ...');
287: end if;
288:
289: DELETE FROM CSFW_MSESSION
290: WHERE last_access_date <= l_end_date
285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
286: 'Start deleting CSFW_MSESSION ...');
287: end if;
288:
289: DELETE FROM CSFW_MSESSION
290: WHERE last_access_date <= l_end_date
291: RETURNING count(*) INTO l_deleted_records;
292:
293: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
291: RETURNING count(*) INTO l_deleted_records;
292:
293: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
295: 'Deleted records for CSFW_MSESSION = ' || l_deleted_records);
296: end if;
297: exception
298: when others then
299: rollback to csfw_purge;
298: when others then
299: rollback to csfw_purge;
300: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
301: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
302: 'Exception occured while deleting CSFW_MSESSION sqlerrm = ' || sqlerrm);
303: end if;
304: fnd_message.set_name('CSF', 'CSF_CP_DONE_ERROR');
305: errbuf := fnd_message.get;
306: retcode := 2;
305: errbuf := fnd_message.get;
306: retcode := 2;
307: return;
308: end;
309: -- end block for CSFW_MSESSION
310:
311: -- now we can commit
312: commit;
313:
310:
311: -- now we can commit
312: commit;
313:
314: -- need to clear old CSFW_MSESSION_URLID_S% sequences as well if it is there
315: begin
316: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
318: 'Start clearing old CSFW_MSESSION_URLID_S% sequences ...');
314: -- need to clear old CSFW_MSESSION_URLID_S% sequences as well if it is there
315: begin
316: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
318: 'Start clearing old CSFW_MSESSION_URLID_S% sequences ...');
319: end if;
320:
321: for l_old_seq_name in get_old_seq_name
322: loop
327: exception
328: when others then
329: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_log_module,
331: 'Exception occured while deleting CSFW_MSESSION_URLID_S% sequences sqlerrm = ' || sqlerrm);
332: end if;
333: end;
334:
335: -- now we can commit