1 PACKAGE BODY igs_ge_purge_del_record AS
2 /* $Header: IGSGE13B.pls 120.1 2006/01/09 06:33:30 sommukhe noship $ */
3 PROCEDURE purge_records(
4 errbuf OUT NOCOPY VARCHAR2,
5 retcode OUT NOCOPY NUMBER
6 ) AS
7 /***********************************************************************************************
8
9 Created By : Shtatiko
10 Date Created By: 19-FEB-2003
11 Purpose : To purge logically deleted records from the tables, where logical delete
12 functionality is being used. This process will invoke module wise sub-processes.
13
14 Known limitations,enhancements,remarks:
15 Change History
16 Who When What
17 sommukhe 9-JAN-2006 Bug# 4869737,included call to igs_ge_gen_003.set_org_id.
18 ********************************************************************************************** */
19
20 BEGIN
21
22 igs_ge_gen_003.set_org_id (NULL);
23 -- Invoke sub-process for PS module
24 igs_ps_purge_del_record.purge_ps_records ;
25
26 EXCEPTION
27 WHEN OTHERS THEN
28 retcode := 2;
29 fnd_message.set_name ( 'IGS', 'IGS_GE_UNHANDLED_EXP' );
30 fnd_message.set_token ( 'NAME', 'purge_records' );
31 errbuf := fnd_message.get || ' : ' || SQLERRM ;
32 IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
33
34 END purge_records;
35
36 END igs_ge_purge_del_record;