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