[Home] [Help]
PACKAGE BODY: APPS.IEU_MSG_CON_PVT
Source
1 PACKAGE BODY IEU_MSG_CON_PVT AS
2 /* $Header: IEUVMSCB.pls 115.6 2004/05/03 18:02:58 pkumble ship $ */
3
4
5 PROCEDURE IEU_MSG_DEL_MESSAGES(ERRBUF OUT NOCOPY VARCHAR2, RETCODE OUT NOCOPY VARCHAR2, p_last_update_date in date) IS
6
7 l_message VARCHAR2(4000);
8
9 Begin
10
11 delete from ieu_msg_messages
12 where status_id = 5
13 and ( to_date(trunc(last_update_date), 'dd-mm-rrrr') <= to_date(trunc(p_last_update_date), 'dd-mm-rrrr') );
14 commit;
15
16 EXCEPTION
17 WHEN OTHERS THEN
18 errbuf := sqlerrm;
19 retcode := 2;
20 l_message := sqlcode || ' '||sqlerrm;
21 FND_FILE.PUT_LINE(FND_FILE.LOG, l_message);
22
23 end ieu_msg_del_messages;
24
25 end ieu_msg_con_pvt;