84: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
85: l_program_id := FND_GLOBAL.CONC_PROGRAM_ID;
86:
87: -- set the return status.
88: x_return_status := FND_API.G_RET_STS_SUCCESS ;
89:
90: -- Set the return code to success
91: retcode := 0;
92:
272:
273: commit ;
274:
275: EXCEPTION
276: WHEN FND_API.G_EXC_ERROR THEN
277: oe_debug_pub.add('AUTO_PURGE_CONFIG::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
278: rollback;
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: retcode := 2;
275: EXCEPTION
276: WHEN FND_API.G_EXC_ERROR THEN
277: oe_debug_pub.add('AUTO_PURGE_CONFIG::exp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
278: rollback;
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: retcode := 2;
281: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
282:
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: retcode := 2;
281: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
282:
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: oe_debug_pub.add('AUTO_PURGE_CONFIG::unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
285: rollback;
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: retcode := 2;
282:
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: oe_debug_pub.add('AUTO_PURGE_CONFIG::unexp error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
285: rollback;
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: retcode := 2;
288: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
289:
290: WHEN OTHERS THEN
289:
290: WHEN OTHERS THEN
291: oe_debug_pub.add('AUTO_PURGE_CONFIG::others error::'||to_char(l_stmt_num)||'::'||sqlerrm,1);
292: rollback;
293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
294: retcode := 2;
295: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
296: END auto_purge;
297: