1 PACKAGE AMS_List_Purge_PVT AS
2 /* $Header: amsvimcs.pls 120.2 2006/03/31 05:11:09 bmuthukr noship $ */
3
4 /*****************************************************************************/
5 --PL\SQL table to hold ids for bulk update
6 /*****************************************************************************/
7
8 TYPE t_rec_table is TABLE OF NUMBER
9 INDEX BY BINARY_INTEGER;
10 l_id_tbl t_rec_table;
11
12 /*****************************************************************************/
13 -- Procedure
14 -- Purge_Expired_List_Headers
15 --
16 -- Purpose
17 -- Purge imported list headers which is expired or has usage as 0 or less
18 --
19 -- Note
20 --
21 -- History
22 -- 05/18/2001 yxliu created
23 -------------------------------------------------------------------------------
24 type id_tbl is record
25 (l_list_header_id number);
26
27 type list_header_id_tbl is table of id_tbl index by binary_integer;
28
29 l_list_header_id_tbl list_header_id_tbl;
30
31 PROCEDURE Purge_Expired_List_Headers
32 (
33 force_purge_flag IN VARCHAR2 := FND_API.g_false,
34 x_return_status OUT NOCOPY VARCHAR2,
35 x_msg_count OUT NOCOPY NUMBER,
36 x_msg_data OUT NOCOPY VARCHAR2
37 );
38
39
40 /*****************************************************************************/
41 -- Procedure
42 -- Purge_List_Import
43 --
44 -- Purpose
45 -- This procedure is created to as a concurrent program which
46 -- will call the Purge_Expired_List_Headers and will return errors if any
47 --
48 -- Notes
49 --
50 --
51 -- History
52 -- 05/18/2001 yxliu created
53 ------------------------------------------------------------------------------
54
55 PROCEDURE Purge_List_Import
56 (
57 errbuf OUT NOCOPY VARCHAR2,
58 retcode OUT NOCOPY NUMBER,
59 force_purge_flag in VARCHAR2 := FND_API.G_FALSE
60 );
61
62 /*****************************************************************************/
63 -- Procedure
64 -- Purge_Purged_Target_Group
65 --
66 -- Purpose
67 -- Purge target group list headers which has purged_flag = Y and
68 -- send_out_date has passed
69 --
70 -- Note
71 --
72 -- History
73 -- 05/21/2001 yxliu created
74 -------------------------------------------------------------------------------
75 PROCEDURE Purge_Purged_Target
76 (
77 x_return_status OUT NOCOPY VARCHAR2,
78 x_msg_count OUT NOCOPY NUMBER,
79 x_msg_data OUT NOCOPY VARCHAR2
80 );
81
82 /*****************************************************************************/
83 -- Procedure
84 -- Purge_Target_Group
85 --
86 -- Purpose
87 -- This procedure is created to as a concurrent program which
88 -- will call the Purge_Purged_Target_Group and will return errors if any
89 --
90 -- Notes
91 --
92 --
93 -- History
94 -- 05/21/2001 yxliu created
95 ------------------------------------------------------------------------------
96
97 PROCEDURE Purge_Target_Group
98 ( errbuf OUT NOCOPY VARCHAR2,
99 retcode OUT NOCOPY NUMBER
100 );
101
102 /*****************************************************************************/
103 -- Procedure
104 -- Increase_Usage
105 --
106 -- Purpose
107 -- increase usage of related source lines by 1
108 --
109 -- Note
110 --
111 -- History
112 -- 12/13/2001 yxliu created
113 -------------------------------------------------------------------------------
114 PROCEDURE Increase_Usage
115 (
116 p_api_version IN NUMBER,
117 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
118 p_commit IN VARCHAR2 := FND_API.g_false,
119 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
120
121 x_return_status OUT NOCOPY VARCHAR2,
122 x_msg_count OUT NOCOPY NUMBER,
123 x_msg_data OUT NOCOPY VARCHAR2,
124 p_list_header_id IN NUMBER
125
126 );
127
128 PROCEDURE delete_list_manager (x_errbuf OUT NOCOPY VARCHAR2
129 , x_retcode OUT NOCOPY VARCHAR2
130 , p_list_header_id IN NUMBER
131 , p_batch_size IN NUMBER DEFAULT 1000
132 , p_num_workers IN NUMBER DEFAULT 3) ;
133
134
135 PROCEDURE delete_list_worker ( x_errbuf OUT NOCOPY VARCHAR2
136 , x_retcode OUT NOCOPY VARCHAR2
137 , x_batch_size IN NUMBER
138 , x_worker_id IN NUMBER
139 , x_num_workers IN NUMBER
140 , x_argument4 IN VARCHAR2);
141
142
143 PROCEDURE delete_entries_soft(p_list_header_id_tbl IN AMS_LIST_PURGE_PVT.l_list_header_id_tbl%type,
144 x_return_status OUT NOCOPY VARCHAR2,
145 x_msg_count OUT NOCOPY NUMBER,
146 x_msg_data OUT NOCOPY VARCHAR2);
147
148 PROCEDURE delete_entries_online(p_list_header_id_tbl IN AMS_LIST_PURGE_PVT.l_list_header_id_tbl%type,
149 x_return_status OUT NOCOPY VARCHAR2,
150 x_msg_count OUT NOCOPY NUMBER,
151 x_msg_data OUT NOCOPY VARCHAR2);
152
153
154 PROCEDURE purge_entries_manager (x_errbuf OUT NOCOPY VARCHAR2
155 , x_retcode OUT NOCOPY VARCHAR2
156 , p_list_type IN VARCHAR2
157 , p_cr_date_from IN VARCHAR2
158 , p_cr_date_to IN VARCHAR2
159 , p_batch_size IN NUMBER DEFAULT 1000
160 , p_num_workers IN NUMBER DEFAULT 3) ;
161
162
163
164 PROCEDURE purge_entries_worker ( x_errbuf OUT NOCOPY VARCHAR2
165 , x_retcode OUT NOCOPY VARCHAR2
166 , x_batch_size IN NUMBER
167 , x_worker_id IN NUMBER
168 , x_num_workers IN NUMBER
169 , x_argument4 IN VARCHAR2);
170 END AMS_List_Purge_PVT;