[Home] [Help]
54: BEGIN
55: -- Standard begin of API savepoint
56: SAVEPOINT PROCESS_IFACE_PUB;
57: -- Standard call to check for call compatibility.
58: IF NOT FND_API.Compatible_API_Call (
59: l_api_version,
60: p_api_version,
61: l_api_name,
62: G_PKG_NAME)
60: p_api_version,
61: l_api_name,
62: G_PKG_NAME)
63: THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: --Initialize message list if p_init_msg_list is TRUE.
68: IF FND_API.To_Boolean (p_init_msg_list) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: --Initialize message list if p_init_msg_list is TRUE.
68: IF FND_API.To_Boolean (p_init_msg_list) THEN
69: FND_MSG_PUB.initialize;
70: END IF;
71:
72: -- Debug Message
74: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
75: END IF;
76:
77: -- Initialize API return status to sucess
78: x_return_status := FND_API.G_RET_STS_SUCCESS;
79:
80: -- R12 MOAC Enhancement (+)
81: OPEN csr_batch_org_id(p_resale_batch_id);
82: FETCH csr_batch_org_id INTO l_resale_org_id;
86: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
87: FND_MESSAGE.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
88: FND_MSG_PUB.add;
89: END IF;
90: RAISE FND_API.g_exc_error;
91: END IF;
92:
93: MO_GLOBAL.set_policy_context('S', l_resale_org_id);
94: -- R12 MOAC Enhancement (-)
99: ,p_caller_type => 'UI'
100: );
101: EXCEPTION
102: WHEN OTHERS THEN
103: RAISE FND_API.g_exc_unexpected_error;
104: END;
105:
106: IF FND_API.to_boolean(p_commit) THEN
107: COMMIT;
102: WHEN OTHERS THEN
103: RAISE FND_API.g_exc_unexpected_error;
104: END;
105:
106: IF FND_API.to_boolean(p_commit) THEN
107: COMMIT;
108: END IF;
109:
110: -- Debug Message
113: END IF;
114:
115: --Standard call to get message count and if count=1, get the message
116: FND_MSG_PUB.Count_And_Get (
117: p_encoded => FND_API.G_FALSE,
118: p_count => x_msg_count,
119: p_data => x_msg_data
120: );
121:
119: p_data => x_msg_data
120: );
121:
122: EXCEPTION
123: WHEN FND_API.G_EXC_ERROR THEN
124: ROLLBACK TO PROCESS_IFACE_PUB;
125: x_return_status := FND_API.G_RET_STS_ERROR;
126: FND_MSG_PUB.Count_And_Get (
127: p_encoded => FND_API.G_FALSE,
121:
122: EXCEPTION
123: WHEN FND_API.G_EXC_ERROR THEN
124: ROLLBACK TO PROCESS_IFACE_PUB;
125: x_return_status := FND_API.G_RET_STS_ERROR;
126: FND_MSG_PUB.Count_And_Get (
127: p_encoded => FND_API.G_FALSE,
128: p_count => x_msg_count,
129: p_data => x_msg_data
123: WHEN FND_API.G_EXC_ERROR THEN
124: ROLLBACK TO PROCESS_IFACE_PUB;
125: x_return_status := FND_API.G_RET_STS_ERROR;
126: FND_MSG_PUB.Count_And_Get (
127: p_encoded => FND_API.G_FALSE,
128: p_count => x_msg_count,
129: p_data => x_msg_data
130: );
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127: p_encoded => FND_API.G_FALSE,
128: p_count => x_msg_count,
129: p_data => x_msg_data
130: );
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: ROLLBACK TO PROCESS_IFACE_PUB;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: FND_MSG_PUB.Count_And_Get (
135: p_encoded => FND_API.G_FALSE,
129: p_data => x_msg_data
130: );
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: ROLLBACK TO PROCESS_IFACE_PUB;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: FND_MSG_PUB.Count_And_Get (
135: p_encoded => FND_API.G_FALSE,
136: p_count => x_msg_count,
137: p_data => x_msg_data
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: ROLLBACK TO PROCESS_IFACE_PUB;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: FND_MSG_PUB.Count_And_Get (
135: p_encoded => FND_API.G_FALSE,
136: p_count => x_msg_count,
137: p_data => x_msg_data
138: );
139: WHEN OTHERS THEN
137: p_data => x_msg_data
138: );
139: WHEN OTHERS THEN
140: ROLLBACK TO PROCESS_IFACE_PUB;
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
142: FND_MSG_PUB.Count_And_Get (
143: p_encoded => FND_API.G_FALSE,
144: p_count => x_msg_count,
145: p_data => x_msg_data
139: WHEN OTHERS THEN
140: ROLLBACK TO PROCESS_IFACE_PUB;
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
142: FND_MSG_PUB.Count_And_Get (
143: p_encoded => FND_API.G_FALSE,
144: p_count => x_msg_count,
145: p_data => x_msg_data
146: );
147:
190: -- Standard begin of API savepoint
191: SAVEPOINT BATCH_PAYMENT_PUB;
192:
193: -- Standard call to check for call compatibility.
194: IF NOT FND_API.Compatible_API_Call (
195: l_api_version,
196: p_api_version,
197: l_api_name,
198: G_PKG_NAME)
196: p_api_version,
197: l_api_name,
198: G_PKG_NAME)
199: THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203: --Initialize message list if p_init_msg_list is TRUE.
204: IF FND_API.To_Boolean (p_init_msg_list) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203: --Initialize message list if p_init_msg_list is TRUE.
204: IF FND_API.To_Boolean (p_init_msg_list) THEN
205: FND_MSG_PUB.initialize;
206: END IF;
207:
208: -- Debug Message
210: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
211: END IF;
212:
213: -- Initialize API return status to sucess
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
215:
216: -- R12 MOAC Enhancement (+)
217: OPEN csr_batch_org_id(p_resale_batch_id);
218: FETCH csr_batch_org_id INTO l_resale_org_id;
222: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
223: FND_MESSAGE.set_name('OZF', 'OZF_ORG_ID_NOTFOUND');
224: FND_MSG_PUB.add;
225: END IF;
226: RAISE FND_API.g_exc_error;
227: END IF;
228:
229: MO_GLOBAL.set_policy_context('S', l_resale_org_id);
230: -- R12 MOAC Enhancement (-)
235: ,p_caller_type => 'UI'
236: );
237: EXCEPTION
238: WHEN OTHERS THEN
239: RAISE FND_API.g_exc_unexpected_error;
240: END;
241:
242: IF FND_API.to_boolean(p_commit) THEN
243: COMMIT;
238: WHEN OTHERS THEN
239: RAISE FND_API.g_exc_unexpected_error;
240: END;
241:
242: IF FND_API.to_boolean(p_commit) THEN
243: COMMIT;
244: END IF;
245:
246:
250: END IF;
251:
252: --Standard call to get message count and if count=1, get the message
253: FND_MSG_PUB.Count_And_Get (
254: p_encoded => FND_API.G_FALSE,
255: p_count => x_msg_count,
256: p_data => x_msg_data
257: );
258:
256: p_data => x_msg_data
257: );
258:
259: EXCEPTION
260: WHEN FND_API.G_EXC_ERROR THEN
261: ROLLBACK TO BATCH_PAYMENT_PUB;
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: FND_MSG_PUB.Count_And_Get (
264: p_encoded => FND_API.G_FALSE,
258:
259: EXCEPTION
260: WHEN FND_API.G_EXC_ERROR THEN
261: ROLLBACK TO BATCH_PAYMENT_PUB;
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: FND_MSG_PUB.Count_And_Get (
264: p_encoded => FND_API.G_FALSE,
265: p_count => x_msg_count,
266: p_data => x_msg_data
260: WHEN FND_API.G_EXC_ERROR THEN
261: ROLLBACK TO BATCH_PAYMENT_PUB;
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: FND_MSG_PUB.Count_And_Get (
264: p_encoded => FND_API.G_FALSE,
265: p_count => x_msg_count,
266: p_data => x_msg_data
267: );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
264: p_encoded => FND_API.G_FALSE,
265: p_count => x_msg_count,
266: p_data => x_msg_data
267: );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO BATCH_PAYMENT_PUB;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get (
272: p_encoded => FND_API.G_FALSE,
266: p_data => x_msg_data
267: );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO BATCH_PAYMENT_PUB;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get (
272: p_encoded => FND_API.G_FALSE,
273: p_count => x_msg_count,
274: p_data => x_msg_data
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO BATCH_PAYMENT_PUB;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get (
272: p_encoded => FND_API.G_FALSE,
273: p_count => x_msg_count,
274: p_data => x_msg_data
275: );
276: WHEN OTHERS THEN
274: p_data => x_msg_data
275: );
276: WHEN OTHERS THEN
277: ROLLBACK TO BATCH_PAYMENT_PUB;
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: FND_MSG_PUB.Count_And_Get (
280: p_encoded => FND_API.G_FALSE,
281: p_count => x_msg_count,
282: p_data => x_msg_data
276: WHEN OTHERS THEN
277: ROLLBACK TO BATCH_PAYMENT_PUB;
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: FND_MSG_PUB.Count_And_Get (
280: p_encoded => FND_API.G_FALSE,
281: p_count => x_msg_count,
282: p_data => x_msg_data
283: );
284: END Start_Payment;
319: BEGIN
320: -- Standard begin of API savepoint
321: SAVEPOINT RESALE_PURGE_PUB;
322: -- Standard call to check for call compatibility.
323: IF NOT FND_API.Compatible_API_Call (
324: l_api_version,
325: p_api_version,
326: l_api_name,
327: G_PKG_NAME)
325: p_api_version,
326: l_api_name,
327: G_PKG_NAME)
328: THEN
329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331:
332: --Initialize message list if p_init_msg_list is TRUE.
333: IF FND_API.To_Boolean (p_init_msg_list) THEN
329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
330: END IF;
331:
332: --Initialize message list if p_init_msg_list is TRUE.
333: IF FND_API.To_Boolean (p_init_msg_list) THEN
334: FND_MSG_PUB.initialize;
335: END IF;
336:
337: -- Debug Message
339: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
340: END IF;
341:
342: -- Initialize API return status to sucess
343: x_return_status := FND_API.G_RET_STS_SUCCESS;
344:
345: OZF_RESALE_PVT.Purge(
346: p_api_version => 1.0
347: ,p_init_msg_list => p_init_msg_list
344:
345: OZF_RESALE_PVT.Purge(
346: p_api_version => 1.0
347: ,p_init_msg_list => p_init_msg_list
348: ,p_commit => FND_API.g_false
349: ,p_validation_level => p_validation_level
350: ,p_data_source_code => p_data_source_code
351: ,x_return_status => l_return_status
352: ,x_msg_data => l_msg_data
351: ,x_return_status => l_return_status
352: ,x_msg_data => l_msg_data
353: ,x_msg_count => l_msg_count
354: );
355: IF l_return_status = FND_API.g_ret_sts_error THEN
356: RAISE FND_API.g_exc_error;
357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
358: RAISE FND_API.g_exc_unexpected_error;
359: END IF;
352: ,x_msg_data => l_msg_data
353: ,x_msg_count => l_msg_count
354: );
355: IF l_return_status = FND_API.g_ret_sts_error THEN
356: RAISE FND_API.g_exc_error;
357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
358: RAISE FND_API.g_exc_unexpected_error;
359: END IF;
360:
353: ,x_msg_count => l_msg_count
354: );
355: IF l_return_status = FND_API.g_ret_sts_error THEN
356: RAISE FND_API.g_exc_error;
357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
358: RAISE FND_API.g_exc_unexpected_error;
359: END IF;
360:
361: IF FND_API.to_boolean(p_commit) THEN
354: );
355: IF l_return_status = FND_API.g_ret_sts_error THEN
356: RAISE FND_API.g_exc_error;
357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
358: RAISE FND_API.g_exc_unexpected_error;
359: END IF;
360:
361: IF FND_API.to_boolean(p_commit) THEN
362: COMMIT;
357: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
358: RAISE FND_API.g_exc_unexpected_error;
359: END IF;
360:
361: IF FND_API.to_boolean(p_commit) THEN
362: COMMIT;
363: END IF;
364:
365: -- Debug Message
367: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
368: END IF;
369: --Standard call to get message count and if count=1, get the message
370: FND_MSG_PUB.Count_And_Get (
371: p_encoded => FND_API.G_FALSE,
372: p_count => x_msg_count,
373: p_data => x_msg_data
374: );
375:
373: p_data => x_msg_data
374: );
375:
376: EXCEPTION
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO RESALE_PURGE_PUB ;
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: FND_MSG_PUB.Count_And_Get (
381: p_encoded => FND_API.G_FALSE,
375:
376: EXCEPTION
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO RESALE_PURGE_PUB ;
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: FND_MSG_PUB.Count_And_Get (
381: p_encoded => FND_API.G_FALSE,
382: p_count => x_msg_count,
383: p_data => x_msg_data
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO RESALE_PURGE_PUB ;
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: FND_MSG_PUB.Count_And_Get (
381: p_encoded => FND_API.G_FALSE,
382: p_count => x_msg_count,
383: p_data => x_msg_data
384: );
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: p_encoded => FND_API.G_FALSE,
382: p_count => x_msg_count,
383: p_data => x_msg_data
384: );
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: ROLLBACK TO RESALE_PURGE_PUB;
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388: FND_MSG_PUB.Count_And_Get (
389: p_encoded => FND_API.G_FALSE,
383: p_data => x_msg_data
384: );
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: ROLLBACK TO RESALE_PURGE_PUB;
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388: FND_MSG_PUB.Count_And_Get (
389: p_encoded => FND_API.G_FALSE,
390: p_count => x_msg_count,
391: p_data => x_msg_data
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: ROLLBACK TO RESALE_PURGE_PUB;
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388: FND_MSG_PUB.Count_And_Get (
389: p_encoded => FND_API.G_FALSE,
390: p_count => x_msg_count,
391: p_data => x_msg_data
392: );
393: WHEN OTHERS THEN
391: p_data => x_msg_data
392: );
393: WHEN OTHERS THEN
394: ROLLBACK TO RESALE_PURGE_PUB;
395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396: FND_MSG_PUB.Count_And_Get (
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data
393: WHEN OTHERS THEN
394: ROLLBACK TO RESALE_PURGE_PUB;
395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396: FND_MSG_PUB.Count_And_Get (
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data
400: );
401:
431: CONNECT BY PRIOR from_list_line_id = to_list_line_id), p_list_line_id );
432:
433: BEGIN
434: -- Initialize API return status to sucess
435: x_return_status := FND_API.G_RET_STS_SUCCESS;
436:
437: l_result := null;
438:
439: OPEN line_adjustment_csr;
444: x_result:= FALSE;
445: END IF;
446:
447: EXCEPTION
448: WHEN FND_API.G_EXC_ERROR THEN
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: WHEN OTHERS THEN
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
445: END IF;
446:
447: EXCEPTION
448: WHEN FND_API.G_EXC_ERROR THEN
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: WHEN OTHERS THEN
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
453: END Chk_accrual_exists;
447: EXCEPTION
448: WHEN FND_API.G_EXC_ERROR THEN
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: WHEN OTHERS THEN
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
453: END Chk_accrual_exists;
454:
455: ---------------------------------------------------------------------
470: ---------------------------------------------------------------------
471:
472: PROCEDURE Create_resale_utilization (
473: p_api_version IN NUMBER
474: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
475: , p_commit IN VARCHAR2 := FND_API.G_FALSE
476: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
477: , p_resale_util_rec IN resale_util_rec_type
478: , x_return_status OUT NOCOPY VARCHAR2
471:
472: PROCEDURE Create_resale_utilization (
473: p_api_version IN NUMBER
474: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
475: , p_commit IN VARCHAR2 := FND_API.G_FALSE
476: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
477: , p_resale_util_rec IN resale_util_rec_type
478: , x_return_status OUT NOCOPY VARCHAR2
479: , x_msg_data OUT NOCOPY VARCHAR2
472: PROCEDURE Create_resale_utilization (
473: p_api_version IN NUMBER
474: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
475: , p_commit IN VARCHAR2 := FND_API.G_FALSE
476: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
477: , p_resale_util_rec IN resale_util_rec_type
478: , x_return_status OUT NOCOPY VARCHAR2
479: , x_msg_data OUT NOCOPY VARCHAR2
480: , x_msg_count OUT NOCOPY NUMBER
605: BEGIN
606: -- Standard Start of API savepoint
607: SAVEPOINT Create_resale_utilization;
608: -- Standard call to check for call compatibility.
609: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
610: p_api_version,
611: l_api_name,
612: G_PKG_NAME)
613: THEN
610: p_api_version,
611: l_api_name,
612: G_PKG_NAME)
613: THEN
614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
616:
617: -- Initialize message list if p_init_msg_list is set to TRUE.
618: IF FND_API.to_Boolean( p_init_msg_list ) THEN
614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
615: END IF;
616:
617: -- Initialize message list if p_init_msg_list is set to TRUE.
618: IF FND_API.to_Boolean( p_init_msg_list ) THEN
619: FND_MSG_PUB.initialize;
620: END IF;
621:
622: -- Debug Message
624: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' start');
625: END IF;
626:
627: -- Initialize API return status to SUCCESS
628: x_return_status := FND_API.G_RET_STS_SUCCESS;
629:
630: --//API Body
631: --=====================================================================================================================
632: --//Validations
634: OZF_UTILITY_PVT.debug_message('Validation Starts...');
635: END IF;
636:
637: --//1.resale_batch_id
638: IF l_resale_util_rec.resale_batch_id IS NULL OR l_resale_util_rec.resale_batch_id = FND_API.g_miss_num THEN
639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
640: FND_MESSAGE.set_name('OZF', 'OZF_NO_RESALE_BATCH_ID');
641: --//Resale batch Identifier is mandatory.Please provide a valid Resale Batch Identifier.
642: FND_MSG_PUB.add;
640: FND_MESSAGE.set_name('OZF', 'OZF_NO_RESALE_BATCH_ID');
641: --//Resale batch Identifier is mandatory.Please provide a valid Resale Batch Identifier.
642: FND_MSG_PUB.add;
643: END IF;
644: x_return_status := fnd_api.g_ret_sts_error;
645: RETURN;
646: ELSE
647: OPEN c_resale_batch_id(l_resale_util_rec.resale_batch_id);
648: FETCH c_resale_batch_id INTO l_resale_batch_id,l_batch_currency_code,l_batch_org_id;
653: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_RESALE_BATCH_ID');
654: --//Resale batch Identifier provided is Invalid.Please provide a valid Resale Batch Identifier.
655: FND_MSG_PUB.add;
656: END IF;
657: x_return_status := fnd_api.g_ret_sts_error;
658: RETURN;
659: END IF;
660: END IF;
661:
659: END IF;
660: END IF;
661:
662: --//2.resale_line_id
663: IF l_resale_util_rec.resale_line_id IS NULL OR l_resale_util_rec.resale_line_id = FND_API.g_miss_num THEN
664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
665: FND_MESSAGE.set_name('OZF', 'OZF_NO_RESALE_LINE_ID');
666: --//Resale Line Identifier is mandatory.Please provide a valid Resale Line Identifier.
667: FND_MSG_PUB.add;
665: FND_MESSAGE.set_name('OZF', 'OZF_NO_RESALE_LINE_ID');
666: --//Resale Line Identifier is mandatory.Please provide a valid Resale Line Identifier.
667: FND_MSG_PUB.add;
668: END IF;
669: x_return_status := fnd_api.g_ret_sts_error;
670: RETURN;
671: ELSE
672: OPEN c_get_resale_lines(l_resale_util_rec.resale_batch_id,l_resale_util_rec.resale_line_id);
673: FETCH c_get_resale_lines INTO l_resale_line_rec;
678: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_RESALE_LINE_ID');
679: --//Resale Line Identifier provided is invalid.Please provide a valid Resale Line Identifier.
680: FND_MSG_PUB.add;
681: END IF;
682: x_return_status := fnd_api.g_ret_sts_error;
683: RETURN;
684: END IF;
685: CLOSE c_get_resale_lines;
686:
686:
687: END IF;
688:
689: --//3.list_header_id
690: IF l_resale_util_rec.list_header_id IS NULL OR l_resale_util_rec.list_header_id = FND_API.g_miss_num THEN
691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
692: FND_MESSAGE.set_name('OZF', 'OZF_NO_LIST_HEADER_ID');
693: --//List Header Identifier is mandatory.Please provide a valid List Header Identifier.
694: FND_MSG_PUB.add;
692: FND_MESSAGE.set_name('OZF', 'OZF_NO_LIST_HEADER_ID');
693: --//List Header Identifier is mandatory.Please provide a valid List Header Identifier.
694: FND_MSG_PUB.add;
695: END IF;
696: x_return_status := fnd_api.g_ret_sts_error;
697: RETURN;
698: ELSE
699: --//Get offer details
700: OPEN c_get_offer_details(l_resale_util_rec.list_header_id);
705: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_LIST_HEADER_ID');
706: --//List Header Identifier provided is invalid.Please provide a valid List Header Identifier.
707: FND_MSG_PUB.add;
708: END IF;
709: x_return_status := fnd_api.g_ret_sts_error;
710: RETURN;
711: END IF;
712: CLOSE c_get_offer_details;
713: END IF;
718: FND_MESSAGE.set_name('OZF', 'OZF_OFFR_TYPE_UNSUPPORTED');
719: --//Offer type of the provided offer is not supported to create resale utilization.
720: FND_MSG_PUB.add;
721: END IF;
722: x_return_status := fnd_api.g_ret_sts_error;
723: RETURN;
724: END IF;
725:
726: --//Status code validation - Only ACTIVE offers are eligible to create utilization
729: FND_MESSAGE.set_name('OZF', 'OZF_OFFR_STATUS_UNSUPPORTED');
730: --//Offer should be in Active status to create resale utilization.
731: FND_MSG_PUB.add;
732: END IF;
733: x_return_status := fnd_api.g_ret_sts_error;
734: RETURN;
735: END IF;
736:
737:
742: FND_MESSAGE.set_name('OZF', 'OZF_BATCH_CURR_MISMATCH');
743: --//Offer Currecy Code should be same as Resale batch Currency Code.
744: FND_MSG_PUB.add;
745: END IF;
746: x_return_status := fnd_api.g_ret_sts_error;
747: RETURN;
748: END IF;
749: END IF;
750:
755: FND_MESSAGE.set_name('OZF', 'OZF_RESALE_ORG_MISMATCH');
756: --//Offer Organization Identifier should be same as Resale batch Organization Identifier.
757: FND_MSG_PUB.add;
758: END IF;
759: x_return_status := fnd_api.g_ret_sts_error;
760: RETURN;
761: END IF;
762: END IF;
763:
761: END IF;
762: END IF;
763:
764: --//4.list_line_id
765: IF l_resale_util_rec.list_line_id IS NULL OR l_resale_util_rec.list_line_id = FND_API.g_miss_num THEN
766: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
767: FND_MESSAGE.set_name('OZF', 'OZF_NO_LIST_LINE_ID');
768: --//List Line Identifier is mandatory.Please provide a valid List Line Identifier.
769: FND_MSG_PUB.add;
767: FND_MESSAGE.set_name('OZF', 'OZF_NO_LIST_LINE_ID');
768: --//List Line Identifier is mandatory.Please provide a valid List Line Identifier.
769: FND_MSG_PUB.add;
770: END IF;
771: x_return_status := fnd_api.g_ret_sts_error;
772: RETURN;
773: ELSE
774: OPEN c_list_line(l_resale_util_rec.list_header_id,l_resale_util_rec.list_line_id);
775: FETCH c_list_line INTO l_list_line_id,l_arithmetic_operator;
780: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_LIST_LINE_ID');
781: --//List Line Identifier provided is invalid.Please provide a valid List Line Identifier.
782: FND_MSG_PUB.add;
783: END IF;
784: x_return_status := fnd_api.g_ret_sts_error;
785: RETURN;
786: END IF;
787: END IF;
788:
796: FND_MESSAGE.set_name('OZF', 'OZF_DUP_RESALE_ACCRUAL');
797: --//Utilization is already created for provided list header and line combination
798: FND_MSG_PUB.add;
799: END IF;
800: x_return_status := fnd_api.g_ret_sts_error;
801: RETURN;
802: END IF;
803:
804: --//5.accepted_amount
801: RETURN;
802: END IF;
803:
804: --//5.accepted_amount
805: IF l_resale_util_rec.accepted_amount IS NULL OR l_resale_util_rec.accepted_amount = FND_API.g_miss_num THEN
806: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
807: FND_MESSAGE.set_name('OZF', 'OZF_NO_ACCEPTED_AMOUNT');
808: --//Accepted Amount is mandatory.Please provide a valid Accepted Amount.
809: FND_MSG_PUB.add;
807: FND_MESSAGE.set_name('OZF', 'OZF_NO_ACCEPTED_AMOUNT');
808: --//Accepted Amount is mandatory.Please provide a valid Accepted Amount.
809: FND_MSG_PUB.add;
810: END IF;
811: x_return_status := fnd_api.g_ret_sts_error;
812: RETURN;
813: END IF;
814:
815: --//7.priced_quantity
812: RETURN;
813: END IF;
814:
815: --//7.priced_quantity
816: IF l_resale_util_rec.quantity IS NULL OR l_resale_util_rec.quantity = FND_API.g_miss_num THEN
817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
818: FND_MESSAGE.set_name('OZF', 'OZF_NO_PRICED_QUANTITY');
819: --//Priced Quantity is mandatory.Please provide a valid Priced Quantity.
820: FND_MSG_PUB.add;
818: FND_MESSAGE.set_name('OZF', 'OZF_NO_PRICED_QUANTITY');
819: --//Priced Quantity is mandatory.Please provide a valid Priced Quantity.
820: FND_MSG_PUB.add;
821: END IF;
822: x_return_status := fnd_api.g_ret_sts_error;
823: RETURN;
824: END IF;
825:
826: --//8. operand
823: RETURN;
824: END IF;
825:
826: --//8. operand
827: IF l_resale_util_rec.discount_value IS NULL OR l_resale_util_rec.discount_value = FND_API.g_miss_num THEN
828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
829: FND_MESSAGE.set_name('OZF', 'OZF_NO_DISCOUNT_VALUE');
830: --//Discount value is mandatory.Please provide a valid Discount value.
831: FND_MSG_PUB.add;
829: FND_MESSAGE.set_name('OZF', 'OZF_NO_DISCOUNT_VALUE');
830: --//Discount value is mandatory.Please provide a valid Discount value.
831: FND_MSG_PUB.add;
832: END IF;
833: x_return_status := fnd_api.g_ret_sts_error;
834: RETURN;
835: END IF;
836:
837: --//9. operand_calculation_code
834: RETURN;
835: END IF;
836:
837: --//9. operand_calculation_code
838: IF l_resale_util_rec.discount_type IS NULL OR l_resale_util_rec.discount_type = FND_API.g_miss_char THEN
839: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
840: FND_MESSAGE.set_name('OZF', 'OZF_NO_DISCOUNT_TYPE');
841: --//Discount type is mandatory.Please provide a valid Discount type.
842: FND_MSG_PUB.add;
840: FND_MESSAGE.set_name('OZF', 'OZF_NO_DISCOUNT_TYPE');
841: --//Discount type is mandatory.Please provide a valid Discount type.
842: FND_MSG_PUB.add;
843: END IF;
844: x_return_status := fnd_api.g_ret_sts_error;
845: RETURN;
846: ELSE
847: IF l_resale_util_rec.discount_type <> l_arithmetic_operator THEN
848: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
849: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_OPER_CALC_CODE');
850: --//Operend Calculation Code Should be the same as of offer.
851: FND_MSG_PUB.add;
852: END IF;
853: x_return_status := fnd_api.g_ret_sts_error;
854: RETURN;
855: END IF;
856: END IF;
857:
859: l_accrual_on_selling := FND_PROFILE.value('OZF_ACC_ON_SELLING_PRICE');
860: --//Profile - OZF: Third Party Accrual on Selling Price
861:
862: IF l_accrual_on_selling = 'Y' THEN
863: IF l_resale_line_rec.selling_price IS NULL OR l_resale_line_rec.selling_price = FND_API.g_miss_num THEN
864: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
865: FND_MESSAGE.set_name('OZF', 'OZF_ACC_ON_SELLING_PRICE_ERR');
866: --//Selling price should be available in resale lines when Profile OZF: Third Party Accrual on Selling Price is set to Yes.
867: FND_MSG_PUB.add;
865: FND_MESSAGE.set_name('OZF', 'OZF_ACC_ON_SELLING_PRICE_ERR');
866: --//Selling price should be available in resale lines when Profile OZF: Third Party Accrual on Selling Price is set to Yes.
867: FND_MSG_PUB.add;
868: END IF;
869: x_return_status := fnd_api.g_ret_sts_error;
870: RETURN;
871: ELSE
872: l_resale_util_rec.unit_price := l_resale_line_rec.selling_price;
873: END IF;
871: ELSE
872: l_resale_util_rec.unit_price := l_resale_line_rec.selling_price;
873: END IF;
874: ELSE -- l_accrual_on_selling IS N or NULL
875: IF l_resale_util_rec.unit_price IS NULL OR l_resale_util_rec.unit_price = FND_API.g_miss_num THEN
876: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
877: FND_MESSAGE.set_name('OZF', 'OZF_NO_PRICED_UNIT_PRICE');
878: --//Unit Price is mandatory.Please provide a valid Unit Price.
879: FND_MSG_PUB.add;
877: FND_MESSAGE.set_name('OZF', 'OZF_NO_PRICED_UNIT_PRICE');
878: --//Unit Price is mandatory.Please provide a valid Unit Price.
879: FND_MSG_PUB.add;
880: END IF;
881: x_return_status := fnd_api.g_ret_sts_error;
882: RETURN;
883: END IF;
884: END IF;
885:
883: END IF;
884: END IF;
885:
886: --//11.requester_id
887: IF l_resale_util_rec.requester_id IS NULL OR l_resale_util_rec.requester_id = FND_API.g_miss_num THEN
888: l_requester_id := OZF_UTILITY_PVT.get_resource_id(l_resale_line_rec.last_updated_by);
889: IF l_requester_id IS NULL THEN
890: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
891: FND_MESSAGE.set_name('OZF', 'OZF_SD_USER_IS_NOT_RESOURCE');
891: FND_MESSAGE.set_name('OZF', 'OZF_SD_USER_IS_NOT_RESOURCE');
892: --//User is not a valid resource.
893: FND_MSG_PUB.add;
894: END IF;
895: x_return_status := fnd_api.g_ret_sts_error;
896: RETURN;
897: END IF;
898: ELSE
899: OPEN c_get_user_id(l_resale_util_rec.requester_id);
905: FND_MESSAGE.set_name('OZF', 'OZF_SD_INVALID_USER');
906: --//The User Id provided is invalid, please provide a valid User Id.
907: FND_MSG_PUB.add;
908: END IF;
909: x_return_status := fnd_api.g_ret_sts_error;
910: RETURN;
911: END IF;
912:
913: l_requester_id := OZF_UTILITY_PVT.get_resource_id(l_resale_util_rec.requester_id);
916: FND_MESSAGE.set_name('OZF', 'OZF_SD_USER_IS_NOT_RESOURCE');
917: --//User is not a valid resource.
918: FND_MSG_PUB.add;
919: END IF;
920: x_return_status := fnd_api.g_ret_sts_error;
921: RETURN;
922: END IF;
923: END IF;
924:
922: END IF;
923: END IF;
924:
925: --//12.currency_code
926: IF l_resale_util_rec.currency_code IS NULL OR l_resale_util_rec.currency_code = FND_API.g_miss_char THEN
927: l_resale_util_rec.currency_code := l_resale_line_rec.currency_code;
928: ELSE
929: IF l_resale_util_rec.currency_code <> l_resale_line_rec.currency_code THEN
930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
931: FND_MESSAGE.set_name('OZF', 'OZF_CURRENCY_CODE_MISMATCH');
932: --//Provided currency code should be same as Resale batch Currency code.
933: FND_MSG_PUB.add;
934: END IF;
935: x_return_status := fnd_api.g_ret_sts_error;
936: RETURN;
937: END IF;
938: END IF;
939:
937: END IF;
938: END IF;
939:
940: --//13.uom_code
941: IF l_resale_util_rec.uom_code IS NULL OR l_resale_util_rec.uom_code = FND_API.g_miss_char THEN
942: l_resale_util_rec.uom_code := l_resale_line_rec.uom_code;
943: ELSE
944: IF l_resale_util_rec.uom_code <> l_resale_line_rec.uom_code THEN
945: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
946: FND_MESSAGE.set_name('OZF', 'OZF_UOM_CODE_MISMATCH');
947: --//Provided Unit of Measurement Code should be same as Resale batch Unit of Measurement Code.
948: FND_MSG_PUB.add;
949: END IF;
950: x_return_status := fnd_api.g_ret_sts_error;
951: RETURN;
952: END IF;
953: END IF;
954:
952: END IF;
953: END IF;
954:
955:
956: IF l_resale_util_rec.inventory_item_Id IS NULL OR l_resale_util_rec.inventory_item_Id = FND_API.g_miss_num THEN
957: l_resale_util_rec.inventory_item_Id := l_resale_line_rec.inventory_item_Id;
958: ELSE
959: IF l_resale_util_rec.inventory_item_Id <> l_resale_line_rec.inventory_item_Id THEN
960: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
961: FND_MESSAGE.set_name('OZF', 'OZF_PRODUCT_CODE_MISMATCH');
962: --//Provided product Code should be same as Resale lines Product code.
963: FND_MSG_PUB.add;
964: END IF;
965: x_return_status := fnd_api.g_ret_sts_error;
966: RETURN;
967: END IF;
968: END IF;
969:
1079: FND_MESSAGE.Set_Token('ITEM',l_act_util_rec.product_id);
1080: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1081: FND_MSG_PUB.add;
1082: END IF;
1083: RAISE fnd_api.g_exc_error;
1084: END IF;
1085:
1086: l_act_util_rec.cost_price := l_resale_line_rec.supplier_item_cost;
1087: l_act_util_rec.cost_price_currency_code := l_act_budgets_rec.request_currency;
1139:
1140: --//Invoke private API to create Adjustments and Utilizations
1141: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1142: p_api_version => 1
1143: ,p_init_msg_list => FND_API.G_FALSE
1144: ,p_commit => FND_API.G_FALSE
1145: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1146: ,p_price_adj_rec => l_adjustment_rec
1147: ,p_act_budgets_rec => l_act_budgets_rec
1140: --//Invoke private API to create Adjustments and Utilizations
1141: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1142: p_api_version => 1
1143: ,p_init_msg_list => FND_API.G_FALSE
1144: ,p_commit => FND_API.G_FALSE
1145: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1146: ,p_price_adj_rec => l_adjustment_rec
1147: ,p_act_budgets_rec => l_act_budgets_rec
1148: ,p_act_util_rec => l_act_util_rec
1141: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1142: p_api_version => 1
1143: ,p_init_msg_list => FND_API.G_FALSE
1144: ,p_commit => FND_API.G_FALSE
1145: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1146: ,p_price_adj_rec => l_adjustment_rec
1147: ,p_act_budgets_rec => l_act_budgets_rec
1148: ,p_act_util_rec => l_act_util_rec
1149: ,p_to_create_utilization => TRUE
1158: OZF_UTILITY_PVT.debug_message('l_utilization_id :'|| l_utilization_id);
1159: OZF_UTILITY_PVT.debug_message('l_return_status :'|| l_return_status);
1160: END IF;
1161:
1162: IF l_return_status = fnd_api.g_ret_sts_error THEN
1163: RAISE fnd_api.g_exc_error;
1164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1165: RAISE fnd_api.g_exc_unexpected_error;
1166: END IF;
1159: OZF_UTILITY_PVT.debug_message('l_return_status :'|| l_return_status);
1160: END IF;
1161:
1162: IF l_return_status = fnd_api.g_ret_sts_error THEN
1163: RAISE fnd_api.g_exc_error;
1164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1165: RAISE fnd_api.g_exc_unexpected_error;
1166: END IF;
1167: x_utilization_id := l_utilization_id;
1160: END IF;
1161:
1162: IF l_return_status = fnd_api.g_ret_sts_error THEN
1163: RAISE fnd_api.g_exc_error;
1164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1165: RAISE fnd_api.g_exc_unexpected_error;
1166: END IF;
1167: x_utilization_id := l_utilization_id;
1168:
1161:
1162: IF l_return_status = fnd_api.g_ret_sts_error THEN
1163: RAISE fnd_api.g_exc_error;
1164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1165: RAISE fnd_api.g_exc_unexpected_error;
1166: END IF;
1167: x_utilization_id := l_utilization_id;
1168:
1169:
1194: l_sales_transaction_rec.transfer_type := 'IN';
1195: END IF;
1196:
1197: OZF_VOLUME_CALCULATION_PUB.Create_Volume(
1198: p_init_msg_list => FND_API.g_false
1199: ,p_api_version => 1.0
1200: ,p_commit => FND_API.g_false
1201: ,x_return_status => l_return_status
1202: ,x_msg_count => l_msg_count
1196:
1197: OZF_VOLUME_CALCULATION_PUB.Create_Volume(
1198: p_init_msg_list => FND_API.g_false
1199: ,p_api_version => 1.0
1200: ,p_commit => FND_API.g_false
1201: ,x_return_status => l_return_status
1202: ,x_msg_count => l_msg_count
1203: ,x_msg_data => l_msg_data
1204: ,p_volume_detail_rec => l_sales_transaction_rec
1204: ,p_volume_detail_rec => l_sales_transaction_rec
1205: ,p_qp_list_header_id => l_resale_util_rec.list_header_id
1206: ,x_apply_discount => l_vol_offr_apply_discount
1207: );
1208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1209: RAISE FND_API.G_EXC_ERROR;
1210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1212: END IF;
1205: ,p_qp_list_header_id => l_resale_util_rec.list_header_id
1206: ,x_apply_discount => l_vol_offr_apply_discount
1207: );
1208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1209: RAISE FND_API.G_EXC_ERROR;
1210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1212: END IF;
1213: END IF;
1206: ,x_apply_discount => l_vol_offr_apply_discount
1207: );
1208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1209: RAISE FND_API.G_EXC_ERROR;
1210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1212: END IF;
1213: END IF;
1214:
1207: );
1208: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1209: RAISE FND_API.G_EXC_ERROR;
1210: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1212: END IF;
1213: END IF;
1214:
1215: --================================================================================================================
1216: --// Commit the process
1217: IF OZF_DEBUG_HIGH_ON THEN
1218: OZF_UTILITY_PVT.debug_message('Public API: '|| l_api_name||' End');
1219: END IF;
1220: IF FND_API.to_Boolean( p_commit )
1221: THEN
1222: COMMIT WORK;
1223: END IF;
1224:
1222: COMMIT WORK;
1223: END IF;
1224:
1225: FND_MSG_PUB.Count_And_Get (
1226: p_encoded => FND_API.G_FALSE,
1227: p_count => x_msg_count,
1228: p_data => x_msg_data
1229: );
1230:
1228: p_data => x_msg_data
1229: );
1230:
1231: EXCEPTION
1232: WHEN FND_API.G_EXC_ERROR THEN
1233: ROLLBACK TO Create_resale_utilization;
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: -- Standard call to get message count and if count=1, get the message
1236: FND_MSG_PUB.Count_And_Get (
1230:
1231: EXCEPTION
1232: WHEN FND_API.G_EXC_ERROR THEN
1233: ROLLBACK TO Create_resale_utilization;
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: -- Standard call to get message count and if count=1, get the message
1236: FND_MSG_PUB.Count_And_Get (
1237: p_encoded => FND_API.G_FALSE,
1238: p_count => x_msg_count,
1233: ROLLBACK TO Create_resale_utilization;
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: -- Standard call to get message count and if count=1, get the message
1236: FND_MSG_PUB.Count_And_Get (
1237: p_encoded => FND_API.G_FALSE,
1238: p_count => x_msg_count,
1239: p_data => x_msg_data
1240: );
1241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1237: p_encoded => FND_API.G_FALSE,
1238: p_count => x_msg_count,
1239: p_data => x_msg_data
1240: );
1241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1242: ROLLBACK TO Create_resale_utilization;
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1244: -- Standard call to get message count and if count=1, get the message
1245: FND_MSG_PUB.Count_And_Get (
1239: p_data => x_msg_data
1240: );
1241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1242: ROLLBACK TO Create_resale_utilization;
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1244: -- Standard call to get message count and if count=1, get the message
1245: FND_MSG_PUB.Count_And_Get (
1246: p_encoded => FND_API.G_FALSE,
1247: p_count => x_msg_count,
1242: ROLLBACK TO Create_resale_utilization;
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1244: -- Standard call to get message count and if count=1, get the message
1245: FND_MSG_PUB.Count_And_Get (
1246: p_encoded => FND_API.G_FALSE,
1247: p_count => x_msg_count,
1248: p_data => x_msg_data
1249: );
1250: WHEN OTHERS THEN
1248: p_data => x_msg_data
1249: );
1250: WHEN OTHERS THEN
1251: ROLLBACK TO Create_resale_utilization;
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1253: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1254: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1255: END IF;
1256: -- Standard call to get message count and if count=1, get the message
1254: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1255: END IF;
1256: -- Standard call to get message count and if count=1, get the message
1257: FND_MSG_PUB.Count_And_Get (
1258: p_encoded => FND_API.G_FALSE,
1259: p_count => x_msg_count,
1260: p_data => x_msg_data
1261: );
1262: End Create_resale_utilization;