[Home] [Help]
PACKAGE BODY: APPS.PN_RXI_REP
Source
1 package body PN_RXI_REP as
2 -- $Header: PNRXPRGB.pls 115.3 2002/11/15 20:59:45 stripath ship $
3
4 PROCEDURE purge (
5 errbuf out NOCOPY varchar2 ,
6 retcode out NOCOPY varchar2 ,
7 p_report_name in varchar2 ,
8 p_date_from in varchar2 ,
9 p_date_to in varchar2 )
10
11 IS
12
13 l_date_from date;
14 l_date_to date;
15
16 BEGIN
17
18 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge(+)');
19
20 l_date_from := fnd_date.canonical_to_date(nvl(p_date_from,'0001/01/01 00:00:00'));
21 l_date_to := fnd_date.canonical_to_date(nvl(p_date_to,'4712/12/31 00:00:00'));
22
23 IF (p_report_name = 'SPALOC') THEN
24
25 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleting PN_SPACE_ASSIGN_LOC_ITF');
26
27 delete PN_SPACE_ASSIGN_LOC_ITF
28 where creation_date between l_date_from and l_date_to;
29
30 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleted PN_SPACE_ASSIGN_LOC_ITF');
31
32 ELSIF (p_report_name = 'SPALEA') THEN
33
34 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleting PN_SPACE_ASSIGN_LEASE_ITF');
35
36 delete PN_SPACE_ASSIGN_LEASE_ITF
37 where creation_date between l_date_from and l_date_to;
38
39 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleted PN_SPACE_ASSIGN_LEASE_ITF');
40
41 ELSIF (p_report_name = 'SPULOC') THEN
42
43 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleting PN_SPACE_UTIL_LOC_ITF');
44
45 delete PN_SPACE_UTIL_LOC_ITF
46 where creation_date between l_date_from and l_date_to;
47
48 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleted PN_SPACE_UTIL_LOC_ITF');
49
50 ELSIF (p_report_name = 'SPULEA') THEN
51
52 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleting PN_SPACE_UTIL_LEASE_ITF');
53
54 delete PN_SPACE_UTIL_LEASE_ITF
55 where creation_date between l_date_from and l_date_to;
56
57 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleted PN_SPACE_UTIL_LEASE_ITF');
58
59 ELSIF (p_report_name = 'RRLEXP') THEN
60
61 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleting PN_RENT_ROLL_LEASE_EXP_ITF');
62
63 delete PN_RENT_ROLL_LEASE_EXP_ITF
64 where creation_date between l_date_from and l_date_to;
65
66 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleted PN_RENT_ROLL_LEASE_EXP_ITF');
67
68 ELSIF (p_report_name = 'LEAOPT') THEN
69
70 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleting PN_LEASE_OPTIONS_ITF');
71
72 delete PN_LEASE_OPTIONS_ITF
73 where creation_date between l_date_from and l_date_to;
74
75 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleted PN_LEASE_OPTIONS_ITF');
76
77 ELSIF (p_report_name = 'MILEST') THEN
78
79 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleting PN_MILESTONES_ITF');
80
81 delete PN_MILESTONES_ITF
82 where creation_date between l_date_from and l_date_to;
83
84 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge - deleted PN_MILESTONES_ITF');
85
86 END IF;
87 pnp_debug_pkg.put_log_msg('pnp_rxi_rep.purge(-)');
88
89 exception
90 when others then
91 retcode:=2;
92 errbuf:=substr(SQLERRM,1,235);
93 RAISE;
94 END purge;
95
96 -------------------------------
97 -- End of Package
98 -------------------------------
99 END PN_RXI_REP;