[Home] [Help]
PACKAGE BODY: APPS.ICX_CAT_POPULATE_ITEM_GRP
Source
1 PACKAGE BODY ICX_CAT_POPULATE_ITEM_GRP AS
2 /* $Header: ICXGPPIB.pls 120.4 2005/12/13 15:28:19 sbgeorge noship $*/
3
4 -- Constants
5 G_PKG_NAME CONSTANT VARCHAR2(30):='ICX_CAT_POPULATE_ITEM_GRP';
6
7 PROCEDURE populateVendorNameChanges
8 ( p_api_version IN NUMBER ,
9 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
10 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
11 p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL ,
12 x_return_status OUT NOCOPY VARCHAR2 ,
13 p_vendor_id IN NUMBER ,
14 p_vendor_name IN VARCHAR2
15 )
16 IS
17 l_api_name CONSTANT VARCHAR2(30) := 'populateVendorNameChanges';
18 l_api_version CONSTANT NUMBER := 1.0;
19 l_start_date DATE;
20 l_end_date DATE;
21 l_log_string VARCHAR2(2000);
22
23 BEGIN
24 x_return_status := FND_API.G_RET_STS_SUCCESS;
25
26 -- Standard Start of API savepoint
27 SAVEPOINT populateVendorNameChanges_sp;
28
29 l_start_date := sysdate;
30
31 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
32 l_log_string := 'Started at:' || TO_CHAR(l_start_date, 'DD-MON-YYYY HH24:MI:SS') ||
33 ', p_api_version:' || p_api_version ||
34 ', p_commit:' || p_commit ||
35 ', p_vendor_id:' || p_vendor_id ||
36 ', p_vendor_name:' || p_vendor_name ;
37 ICX_CAT_UTIL_PVT.logProcBegin(g_pkg_name, l_api_name, l_log_string);
38 END IF;
39
40 -- Standard call to check for call compatibility.
41 IF NOT FND_API.Compatible_API_Call ( l_api_version ,
42 p_api_version ,
43 l_api_name ,
44 G_PKG_NAME )
45 THEN
46 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47 END IF;
48
49 ICX_CAT_UTIL_PVT.setCommitParameter(P_COMMIT);
50
51 ICX_CAT_POPULATE_ITEM_PVT.populateVendorNameChanges(p_vendor_id, p_vendor_name);
52
53 -- Standard check of P_COMMIT
54 IF (FND_API.To_Boolean(P_COMMIT)) THEN
55 COMMIT;
56 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
57 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
58 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
59 'Commit done.');
60 END IF;
61 ELSE
62 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
63 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
64 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
65 'Commit not done.');
66 END IF;
67 END IF;
68
69 l_end_date := sysdate;
70 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71 ICX_CAT_UTIL_PVT.logProcEnd(g_pkg_name, l_api_name,
72 ' done in:' || ICX_CAT_UTIL_PVT.getTimeStats(l_start_date, l_end_date));
73 END IF;
74 EXCEPTION
75 WHEN OTHERS THEN
76 BEGIN
77 ROLLBACK TO populateVendorNameChanges_sp;
78 EXCEPTION
79 WHEN OTHERS THEN
80 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
81 FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
82 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
83 'ROLLBACK TO the savepoint caused the exception -->'
84 || SQLERRM);
85 END IF;
86 NULL;
87 END;
88 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89 END populateVendorNameChanges;
90
91 PROCEDURE populateVendorMerge
92 ( p_api_version IN NUMBER ,
93 p_commit IN VARCHAR2 := FND_API.G_FALSE ,
94 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
95 p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL ,
96 x_return_status OUT NOCOPY VARCHAR2 ,
97 p_from_vendor_id IN NUMBER ,
98 p_from_site_id IN NUMBER ,
99 p_to_vendor_id IN NUMBER ,
100 p_to_site_id IN NUMBER
101 )
102 IS
103 l_api_name CONSTANT VARCHAR2(30) := 'populateVendorMerge';
104 l_api_version CONSTANT NUMBER := 1.0;
105 l_start_date DATE;
106 l_end_date DATE;
107 l_log_string VARCHAR2(2000);
108
109 BEGIN
110 x_return_status := FND_API.G_RET_STS_SUCCESS;
111
112 -- Standard Start of API savepoint
113 SAVEPOINT populateVendorMerge_sp;
114
115 l_start_date := sysdate;
116
117 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
118 l_log_string := 'Started at:' || TO_CHAR(l_start_date, 'DD-MON-YYYY HH24:MI:SS') ||
119 ', p_api_version:' || p_api_version ||
120 ', p_commit:' || p_commit ||
121 ', p_from_vendor_id:' || p_from_vendor_id ||
122 ', p_from_site_id:' || p_from_site_id ||
123 ', p_to_vendor_id:' || p_to_vendor_id ||
124 ', p_to_site_id:' || p_to_site_id ;
125 ICX_CAT_UTIL_PVT.logProcBegin(g_pkg_name, l_api_name, l_log_string);
126 END IF;
127
128 -- Standard call to check for call compatibility.
129 IF NOT FND_API.Compatible_API_Call ( l_api_version ,
130 p_api_version ,
131 l_api_name ,
132 G_PKG_NAME )
133 THEN
134 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135 END IF;
136
137 ICX_CAT_UTIL_PVT.setCommitParameter(P_COMMIT);
138
139 ICX_CAT_POPULATE_ITEM_PVT.populateVendorMerge(p_from_vendor_id, p_from_site_id, p_to_vendor_id, p_to_site_id);
140
141 -- Standard check of P_COMMIT
142 IF (FND_API.To_Boolean(P_COMMIT)) THEN
143 COMMIT;
144 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
145 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
146 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
147 'Commit done.');
148 END IF;
149 ELSE
150 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151 FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,
152 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
153 'Commit not done.');
154 END IF;
155 END IF;
156
157 l_end_date := sysdate;
158 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
159 ICX_CAT_UTIL_PVT.logProcEnd(g_pkg_name, l_api_name,
160 ' done in:' || ICX_CAT_UTIL_PVT.getTimeStats(l_start_date, l_end_date));
161 END IF;
162 EXCEPTION
163 WHEN OTHERS THEN
164 BEGIN
165 ROLLBACK TO populateVendorMerge_sp;
166 EXCEPTION
167 WHEN OTHERS THEN
168 IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
169 FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
170 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
171 'ROLLBACK TO the savepoint caused the exception -->'
172 || SQLERRM);
173 END IF;
174 NULL;
175 END;
176 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177 END populateVendorMerge;
178
179 PROCEDURE rebuildIPIntermediaIndex
180 ( p_api_version IN NUMBER ,
181 p_commit IN VARCHAR2 := FND_API.G_TRUE ,
182 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
183 p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL ,
184 x_return_status OUT NOCOPY VARCHAR2
185 )
186 IS
187 l_api_name CONSTANT VARCHAR2(30) := 'rebuildIPIntermediaIndex';
188 l_api_version CONSTANT NUMBER := 1.0;
189 l_err_loc PLS_INTEGER;
190 l_start_date DATE;
191 l_end_date DATE;
192 l_log_string VARCHAR2(2000);
193
194 BEGIN
195 l_err_loc := 100;
196 x_return_status := FND_API.G_RET_STS_SUCCESS;
197
198 l_err_loc := 200;
199 l_start_date := sysdate;
200
201 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
202 l_log_string := 'Started at:' || TO_CHAR(l_start_date, 'DD-MON-YYYY HH24:MI:SS') ||
203 ', p_api_version:' || p_api_version ||
204 ', p_commit:' || p_commit ;
205 ICX_CAT_UTIL_PVT.logProcBegin(g_pkg_name, l_api_name, l_log_string);
206 END IF;
207
208 l_err_loc := 300;
209 -- Standard call to check for call compatibility.
210 IF NOT FND_API.Compatible_API_Call ( l_api_version ,
211 p_api_version ,
212 l_api_name ,
213 G_PKG_NAME )
214 THEN
215 l_err_loc := 400;
216 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
217 END IF;
218
219 l_err_loc := 500;
220 IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
221 FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
222 ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
223 ' About to call rebuild_index');
224 END IF;
225
226 l_err_loc := 600;
227 ICX_CAT_INTERMEDIA_INDEX_PVT.rebuild_index;
228
229 l_err_loc := 700;
230 l_end_date := sysdate;
231 IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
232 ICX_CAT_UTIL_PVT.logProcEnd(g_pkg_name, l_api_name,
233 ' done in:' || ICX_CAT_UTIL_PVT.getTimeStats(l_start_date, l_end_date));
234 END IF;
235
236 EXCEPTION
237 WHEN OTHERS THEN
238 ICX_CAT_UTIL_PVT.logUnexpectedException(
239 G_PKG_NAME, l_api_name,
240 ' --> l_err_loc:' ||l_err_loc ||' '|| SQLERRM);
241 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242 END rebuildIPIntermediaIndex;
243
244 END ICX_CAT_POPULATE_ITEM_GRP;