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;