[Home] [Help]
PACKAGE BODY: APPS.OZF_RESALE_PUB
Source
1 PACKAGE BODY OZF_RESALE_PUB AS
2 /* $Header: ozfprssb.pls 120.3 2005/10/10 11:46:30 mchang ship $ */
3
4 -- Package name : OZF_RESALE_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_RESALE_PUB';
11 G_FILE_NAME CONSTANT VARCHAR2(30) := 'ozfprssb.pls';
12
13 OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14 OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15
16
17 ---------------------------------------------------------------------
18 -- PROCEDURE
19 -- Start_Process_Iface
20 --
21 -- PURPOSE
22 -- This procedure to initiate data process of records in resales table.
23 --
24 -- PARAMETERS
25 --
26 --
27 -- NOTES
28 ---------------------------------------------------------------------
29 PROCEDURE Start_Process_Iface (
30 p_api_version IN NUMBER
31 ,p_init_msg_list IN VARCHAR2
32 ,p_commit IN VARCHAR2
33 ,p_validation_level IN NUMBER
34 ,p_resale_batch_id IN NUMBER
35 ,x_return_status OUT NOCOPY VARCHAR2
36 ,x_msg_data OUT NOCOPY VARCHAR2
37 ,x_msg_count OUT NOCOPY NUMBER
38 )
39 IS
40 l_api_name CONSTANT VARCHAR2(30) := 'Start_Process_Iface';
41 l_api_version CONSTANT NUMBER := 1.0;
42 l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
43 --
44 l_return_status VARCHAR2(30);
45 l_msg_data VARCHAR2(2000);
46 l_msg_count NUMBER;
47
48 CURSOR csr_batch_org_id(cv_resale_batch_id IN NUMBER) IS
49 SELECT org_id
50 FROM ozf_resale_batches_all
51 WHERE resale_batch_id = cv_resale_batch_id;
52
53 l_resale_org_id NUMBER;
54
55 BEGIN
56 -- Standard begin of API savepoint
57 SAVEPOINT PROCESS_IFACE_PUB;
58 -- Standard call to check for call compatibility.
59 IF NOT FND_API.Compatible_API_Call (
60 l_api_version,
61 p_api_version,
62 l_api_name,
63 G_PKG_NAME)
64 THEN
65 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66 END IF;
67
68 --Initialize message list if p_init_msg_list is TRUE.
69 IF FND_API.To_Boolean (p_init_msg_list) THEN
70 FND_MSG_PUB.initialize;
71 END IF;
72
73 -- Debug Message
74 IF OZF_DEBUG_LOW_ON THEN
75 OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
76 END IF;
77
78 -- Initialize API return status to sucess
79 x_return_status := FND_API.G_RET_STS_SUCCESS;
80
81 -- R12 MOAC Enhancement (+)
82 OPEN csr_batch_org_id(p_resale_batch_id);
83 FETCH csr_batch_org_id INTO l_resale_org_id;
84 CLOSE csr_batch_org_id;
85
86 IF l_resale_org_id IS NULL THEN
87 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
88 FND_MESSAGE.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
89 FND_MSG_PUB.add;
90 END IF;
91 RAISE FND_API.g_exc_error;
92 END IF;
93
94 MO_GLOBAL.set_policy_context('S', l_resale_org_id);
95 -- R12 MOAC Enhancement (-)
96
97 BEGIN
98 OZF_RESALE_WF_PVT.Start_Data_Process(
99 p_resale_batch_id => p_resale_batch_id
100 ,p_caller_type => 'UI'
101 );
102 EXCEPTION
103 WHEN OTHERS THEN
104 RAISE FND_API.g_exc_unexpected_error;
105 END;
106
107 IF FND_API.to_boolean(p_commit) THEN
108 COMMIT;
109 END IF;
110
111 -- Debug Message
112 IF OZF_DEBUG_LOW_ON THEN
113 OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
114 END IF;
115
116 --Standard call to get message count and if count=1, get the message
117 FND_MSG_PUB.Count_And_Get (
118 p_encoded => FND_API.G_FALSE,
119 p_count => x_msg_count,
120 p_data => x_msg_data
121 );
122
123 EXCEPTION
124 WHEN FND_API.G_EXC_ERROR THEN
125 ROLLBACK TO PROCESS_IFACE_PUB;
126 x_return_status := FND_API.G_RET_STS_ERROR;
127 FND_MSG_PUB.Count_And_Get (
128 p_encoded => FND_API.G_FALSE,
129 p_count => x_msg_count,
130 p_data => x_msg_data
131 );
132 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133 ROLLBACK TO PROCESS_IFACE_PUB;
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135 FND_MSG_PUB.Count_And_Get (
136 p_encoded => FND_API.G_FALSE,
137 p_count => x_msg_count,
138 p_data => x_msg_data
139 );
140 WHEN OTHERS THEN
141 ROLLBACK TO PROCESS_IFACE_PUB;
142 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143 FND_MSG_PUB.Count_And_Get (
144 p_encoded => FND_API.G_FALSE,
145 p_count => x_msg_count,
146 p_data => x_msg_data
147 );
148
149 END Start_Process_Iface;
150
151
152 ---------------------------------------------------------------------
153 -- PROCEDURE
154 -- Start_Payment
155 --
156 -- PURPOSE
157 -- This procedure to initiate batch payment
158 --
159 -- PARAMETERS
160 --
161 --
162 -- NOTES
163 ---------------------------------------------------------------------
164 PROCEDURE Start_Payment (
165 p_api_version IN NUMBER
166 ,p_init_msg_list IN VARCHAR2
167 ,p_commit IN VARCHAR2
168 ,p_validation_level IN NUMBER
169 ,p_resale_batch_id IN NUMBER
170 ,x_return_status OUT NOCOPY VARCHAR2
171 ,x_msg_data OUT NOCOPY VARCHAR2
172 ,x_msg_count OUT NOCOPY NUMBER
173 )
174 IS
175 l_api_name CONSTANT VARCHAR2(30) := 'Start_Payment';
176 l_api_version CONSTANT NUMBER := 1.0;
177 l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
178 --
179 l_return_status VARCHAR2(30);
180 l_msg_data VARCHAR2(2000);
181 l_msg_count NUMBER;
182
183 CURSOR csr_batch_org_id(cv_resale_batch_id IN NUMBER) IS
184 SELECT org_id
185 FROM ozf_resale_batches_all
186 WHERE resale_batch_id = cv_resale_batch_id;
187
188 l_resale_org_id NUMBER;
189
190 BEGIN
191 -- Standard begin of API savepoint
192 SAVEPOINT BATCH_PAYMENT_PUB;
193
194 -- Standard call to check for call compatibility.
195 IF NOT FND_API.Compatible_API_Call (
196 l_api_version,
197 p_api_version,
198 l_api_name,
199 G_PKG_NAME)
200 THEN
201 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202 END IF;
203
204 --Initialize message list if p_init_msg_list is TRUE.
205 IF FND_API.To_Boolean (p_init_msg_list) THEN
206 FND_MSG_PUB.initialize;
207 END IF;
208
209 -- Debug Message
210 IF OZF_DEBUG_LOW_ON THEN
211 OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
212 END IF;
213
214 -- Initialize API return status to sucess
215 x_return_status := FND_API.G_RET_STS_SUCCESS;
216
217 -- R12 MOAC Enhancement (+)
218 OPEN csr_batch_org_id(p_resale_batch_id);
219 FETCH csr_batch_org_id INTO l_resale_org_id;
220 CLOSE csr_batch_org_id;
221
222 IF l_resale_org_id IS NULL THEN
223 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
224 FND_MESSAGE.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
225 FND_MSG_PUB.add;
226 END IF;
227 RAISE FND_API.g_exc_error;
228 END IF;
229
230 MO_GLOBAL.set_policy_context('S', l_resale_org_id);
231 -- R12 MOAC Enhancement (-)
232
233 BEGIN
234 OZF_RESALE_WF_PVT.Start_Batch_Payment(
235 p_resale_batch_id => p_resale_batch_id
236 ,p_caller_type => 'UI'
237 );
238 EXCEPTION
239 WHEN OTHERS THEN
240 RAISE FND_API.g_exc_unexpected_error;
241 END;
242
243 IF FND_API.to_boolean(p_commit) THEN
244 COMMIT;
245 END IF;
246
247
248 -- Debug Message
249 IF OZF_DEBUG_LOW_ON THEN
250 OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
251 END IF;
252
253 --Standard call to get message count and if count=1, get the message
254 FND_MSG_PUB.Count_And_Get (
255 p_encoded => FND_API.G_FALSE,
256 p_count => x_msg_count,
257 p_data => x_msg_data
258 );
259
260 EXCEPTION
261 WHEN FND_API.G_EXC_ERROR THEN
262 ROLLBACK TO BATCH_PAYMENT_PUB;
263 x_return_status := FND_API.G_RET_STS_ERROR;
264 FND_MSG_PUB.Count_And_Get (
265 p_encoded => FND_API.G_FALSE,
266 p_count => x_msg_count,
267 p_data => x_msg_data
268 );
269 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270 ROLLBACK TO BATCH_PAYMENT_PUB;
271 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272 FND_MSG_PUB.Count_And_Get (
273 p_encoded => FND_API.G_FALSE,
274 p_count => x_msg_count,
275 p_data => x_msg_data
276 );
277 WHEN OTHERS THEN
278 ROLLBACK TO BATCH_PAYMENT_PUB;
279 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280 FND_MSG_PUB.Count_And_Get (
281 p_encoded => FND_API.G_FALSE,
282 p_count => x_msg_count,
283 p_data => x_msg_data
284 );
285 END Start_Payment;
286
287
288
289 ---------------------------------------------------------------------
290 -- PROCEDURE
291 -- Start_Purge
292 --
293 -- PURPOSE
294 -- Purge the successfully processed records
295 --
296 -- PARAMETERS
297 --
298 -- NOTES
299 --
300 ---------------------------------------------------------------------
301 PROCEDURE Start_Purge
302 (
303 p_api_version IN NUMBER
304 ,p_init_msg_list IN VARCHAR2
305 ,p_commit IN VARCHAR2
306 ,p_validation_level IN NUMBER
307 ,p_data_source_code IN VARCHAR2
308 ,x_return_status OUT NOCOPY VARCHAR2
309 ,x_msg_data OUT NOCOPY VARCHAR2
310 ,x_msg_count OUT NOCOPY NUMBER
311 )IS
312 l_api_name CONSTANT VARCHAR2(30) := 'Start_Purge';
313 l_api_version CONSTANT NUMBER := 1.0;
314 l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
315 --
316 l_return_status varchar2(30);
317 l_msg_data varchar2(2000);
318 l_msg_count number;
319
320 BEGIN
321 -- Standard begin of API savepoint
322 SAVEPOINT RESALE_PURGE_PUB;
323 -- Standard call to check for call compatibility.
324 IF NOT FND_API.Compatible_API_Call (
325 l_api_version,
326 p_api_version,
327 l_api_name,
328 G_PKG_NAME)
329 THEN
330 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331 END IF;
332
333 --Initialize message list if p_init_msg_list is TRUE.
334 IF FND_API.To_Boolean (p_init_msg_list) THEN
335 FND_MSG_PUB.initialize;
336 END IF;
337
338 -- Debug Message
339 IF OZF_DEBUG_LOW_ON THEN
340 OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
341 END IF;
342
343 -- Initialize API return status to sucess
344 x_return_status := FND_API.G_RET_STS_SUCCESS;
345
346 OZF_RESALE_PVT.Purge(
347 p_api_version => 1.0
348 ,p_init_msg_list => p_init_msg_list
349 ,p_commit => FND_API.g_false
350 ,p_validation_level => p_validation_level
351 ,p_data_source_code => p_data_source_code
352 ,x_return_status => l_return_status
353 ,x_msg_data => l_msg_data
354 ,x_msg_count => l_msg_count
355 );
356 IF l_return_status = FND_API.g_ret_sts_error THEN
357 RAISE FND_API.g_exc_error;
358 ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
359 RAISE FND_API.g_exc_unexpected_error;
360 END IF;
361
362 IF FND_API.to_boolean(p_commit) THEN
363 COMMIT;
364 END IF;
365
366 -- Debug Message
367 IF OZF_DEBUG_LOW_ON THEN
368 OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
369 END IF;
370 --Standard call to get message count and if count=1, get the message
371 FND_MSG_PUB.Count_And_Get (
372 p_encoded => FND_API.G_FALSE,
373 p_count => x_msg_count,
374 p_data => x_msg_data
375 );
376
377 EXCEPTION
378 WHEN FND_API.G_EXC_ERROR THEN
379 ROLLBACK TO RESALE_PURGE_PUB ;
380 x_return_status := FND_API.G_RET_STS_ERROR;
381 FND_MSG_PUB.Count_And_Get (
382 p_encoded => FND_API.G_FALSE,
383 p_count => x_msg_count,
384 p_data => x_msg_data
385 );
386 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387 ROLLBACK TO RESALE_PURGE_PUB;
388 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389 FND_MSG_PUB.Count_And_Get (
390 p_encoded => FND_API.G_FALSE,
391 p_count => x_msg_count,
392 p_data => x_msg_data
393 );
394 WHEN OTHERS THEN
395 ROLLBACK TO RESALE_PURGE_PUB;
396 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397 FND_MSG_PUB.Count_And_Get (
398 p_encoded => FND_API.G_FALSE,
399 p_count => x_msg_count,
400 p_data => x_msg_data
401 );
402
403 END Start_Purge;
404
405 END OZF_RESALE_PUB;