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
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