[Home] [Help]
PACKAGE BODY: APPS.IEC_REPORTCLEAN_PVT
Source
1 PACKAGE BODY IEC_REPORTCLEAN_PVT AS
2 /* $Header: IECVRPCB.pls 120.1 2006/01/16 09:06:00 minwang noship $ */
3
4 PROCEDURE CLEAN_DATA
5 (P_SCHEDULE_ID NUMBER
6 ,P_RESET_TIME DATE
7 )
8 AS
9 l_count NUMBER := 0;
10 BEGIN
11 delete from iec_rep_cpn_dial_stats where campaign_schedule_id = P_SCHEDULE_ID;
12 delete from iec_rep_agent_status where campaign_schedule_id = P_SCHEDULE_ID;
13 delete from iec_rep_campaign_details where campaign_schedule_id = P_SCHEDULE_ID;
14 delete from iec_rep_agent_cpn_details where campaign_schedule_id = P_SCHEDULE_ID;
15
16 select count(*) into l_count from iec_g_cpn_schedule_reset where campaign_schedule_id = P_SCHEDULE_ID;
17 if l_count = 0 then
18 insert into
19 iec_g_cpn_schedule_reset(CPN_SCHEDULE_RESET_ID,
20 CAMPAIGN_SCHEDULE_ID,
21 LAST_RESET_TIME,
22 CREATED_BY,
23 CREATION_DATE,
24 LAST_UPDATED_BY,
25 LAST_UPDATE_DATE,
26 LAST_UPDATE_LOGIN)
27 values (iec_g_cpn_schedule_reset_s.nextval,
28 P_SCHEDULE_ID,
29 P_RESET_TIME,
30 nvl(FND_GLOBAL.USER_ID,-1),
31 sysdate,
32 nvl(FND_GLOBAL.USER_ID,-1),
33 sysdate,
34 nvl(FND_GLOBAL.CONC_LOGIN_ID,-1));
35 else
36 update iec_g_cpn_schedule_reset set last_reset_time = P_RESET_TIME,last_update_date = sysdate where campaign_schedule_id = P_SCHEDULE_ID;
37 end if;
38 END;
39
40 PROCEDURE CLEANUP
41 AS
42 l_count NUMBER := 0;
43 BEGIN
44 delete from iec_rep_cpn_dial_stats;
45 delete from iec_rep_agent_status;
46 delete from iec_rep_campaign_details;
47 delete from iec_rep_agent_cpn_details;
48 update iec_g_cpn_schedule_reset set last_update_date = sysdate;
49 END;
50
51 END IEC_REPORTCLEAN_PVT;
52