PACKAGE BODY: APPS.CS_PURGE_KM_SESSION_ATTRS_PKG

Source

1 PACKAGE BODY CS_PURGE_KM_SESSION_ATTRS_PKG  AS
2 /* $Header: cskbsarb.pls 120.1 2005/06/22 11:59:29 appldev ship $ */
3 
4 
5 PROCEDURE start_program ( ERRBUF OUT NOCOPY VARCHAR2,
6                             RETCODE OUT NOCOPY VARCHAR2,
7                             DATE_OFFSET IN   NUMBER := 1
8                         ) AS
9 BEGIN
10    FND_FILE.PUT_LINE( FND_FILE.LOG, 'Start purging the km session attribute values for the previous day.');
11 
12    delete from cs_kb_session_attrs where attribute_type = 'EXTERNAL' and creation_date < ( trunc(sysdate) - DATE_OFFSET );
13 
14    FND_FILE.PUT_LINE( FND_FILE.LOG, 'Completed purging the km session attribute.');
15 
16 EXCEPTION
17    WHEN OTHERS THEN
18       FND_FILE.PUT_LINE( FND_FILE.LOG, 'Unhandled exception in CS_PURGE_KM_SESSION_ATTRS_PKG');
19       ERRBUF:='Please review Log for details';
20       RETCODE:='2';
21 END start_program;
22 END CS_PURGE_KM_SESSION_ATTRS_PKG;