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:
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:
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');
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:
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');
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:
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');
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:
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');
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:
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');
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:
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');
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:
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:
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;