[Home] [Help]
53: l_api_version_number CONSTANT NUMBER := 1.0;
54: l_log_id NUMBER;
55: l_org_id NUMBER;
56: BEGIN
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58: IF OZF_DEBUG_HIGH_ON THEN
59: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
60: END IF;
61: IF OZF_DEBUG_LOW_ON THEN
106: );
107: EXCEPTION
108: WHEN OTHERS THEN
109: OZF_UTILITY_PVT.error_message('OZF_INS_RESALE_LOG_WRG');
110: RAISE FND_API.g_exc_unexpected_error;
111: END;
112: END IF;
113: --
114: IF OZF_DEBUG_HIGH_ON THEN
114: IF OZF_DEBUG_HIGH_ON THEN
115: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
116: END IF;
117: EXCEPTION
118: WHEN FND_API.G_EXC_ERROR THEN
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: WHEN OTHERS THEN
115: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
116: END IF;
117: EXCEPTION
118: WHEN FND_API.G_EXC_ERROR THEN
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: WHEN OTHERS THEN
123: IF OZF_UNEXP_ERROR THEN
116: END IF;
117: EXCEPTION
118: WHEN FND_API.G_EXC_ERROR THEN
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: WHEN OTHERS THEN
123: IF OZF_UNEXP_ERROR THEN
124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
117: EXCEPTION
118: WHEN FND_API.G_EXC_ERROR THEN
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: WHEN OTHERS THEN
123: IF OZF_UNEXP_ERROR THEN
124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
125: END IF;
122: WHEN OTHERS THEN
123: IF OZF_UNEXP_ERROR THEN
124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
125: END IF;
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
127: END Insert_Resale_Log;
128:
129: ---------------------------------------------------------------------
130: -- PROCEDURE
153: l_batch_org_id NUMBER;
154: l_org_id NUMBER;
155: -- End: bug # 5997978 fixed
156: BEGIN
157: x_return_status := FND_API.G_RET_STS_SUCCESS;
158: IF OZF_DEBUG_HIGH_ON THEN
159: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
160: END IF;
161: -- Start: bug # 5997978 fixed
164: CLOSE g_resale_batch_org_id_csr;
165: l_org_id := MO_GLOBAL.get_valid_org(l_batch_org_id);
166: IF (l_batch_org_id IS NULL OR l_org_id IS NULL) THEN
167: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_ORG_ID_NOTFOUND');
168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169: END IF;
170: -- End: bug # 5997978 fixed
171:
172: -- bulk insert into resale logs table for above id's
197: IF OZF_DEBUG_HIGH_ON THEN
198: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
199: END IF;
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
198: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
199: END IF;
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
206: IF OZF_UNEXP_ERROR THEN
199: END IF;
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
206: IF OZF_UNEXP_ERROR THEN
207: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
206: IF OZF_UNEXP_ERROR THEN
207: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
208: END IF;
205: WHEN OTHERS THEN
206: IF OZF_UNEXP_ERROR THEN
207: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
208: END IF;
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210: END Bulk_Insert_Resale_Log;
211:
212: ---------------------------------------------------------------------
213: -- PROCEDURE
308: AND agreement_type = 'SPO'
309: AND agreement_id IS NULL;
310:
311: BEGIN
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313: --
314: IF OZF_DEBUG_HIGH_ON THEN
315: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
316: END IF;
339: p_column_value => l_val_tbl,
340: p_batch_id => p_batch_id, --bug # 5997978 fixed
341: x_return_status => l_return_status
342: );
343: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
344: RAISE FND_API.G_EXC_ERROR;
345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
340: p_batch_id => p_batch_id, --bug # 5997978 fixed
341: x_return_status => l_return_status
342: );
343: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
344: RAISE FND_API.G_EXC_ERROR;
345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
348: END IF;
341: x_return_status => l_return_status
342: );
343: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
344: RAISE FND_API.G_EXC_ERROR;
345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
348: END IF;
349: --
342: );
343: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
344: RAISE FND_API.G_EXC_ERROR;
345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
348: END IF;
349: --
350: IF OZF_DEBUG_HIGH_ON THEN
350: IF OZF_DEBUG_HIGH_ON THEN
351: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
352: END IF;
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
351: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
352: END IF;
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
352: END IF;
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF OZF_UNEXP_ERROR THEN
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF OZF_UNEXP_ERROR THEN
361: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF OZF_UNEXP_ERROR THEN
361: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
362: END IF;
363: END Log_Null_Values;
470: WHERE msi.inventory_item_id = orsl.inventory_item_id
471: AND msi.organization_id = G_ITEM_ORG_ID);
472:
473: BEGIN
474: x_return_status := FND_API.G_RET_STS_SUCCESS;
475: -- Debug Message
476: IF OZF_DEBUG_HIGH_ON THEN
477: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
478: END IF;
496: p_column_value => l_val_tbl,
497: p_batch_id => p_batch_id, --bug # 5997978 fixed
498: x_return_status => l_return_status
499: );
500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
497: p_batch_id => p_batch_id, --bug # 5997978 fixed
498: x_return_status => l_return_status
499: );
500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
505: --
498: x_return_status => l_return_status
499: );
500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
505: --
506: END IF;
499: );
500: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
505: --
506: END IF;
507:
508: IF OZF_DEBUG_HIGH_ON THEN
509: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
510: END IF;
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: WHEN OTHERS THEN
509: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
510: END IF;
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: WHEN OTHERS THEN
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: END IF;
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: WHEN OTHERS THEN
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
518: IF OZF_UNEXP_ERROR THEN
511: EXCEPTION
512: WHEN FND_API.G_EXC_ERROR THEN
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: WHEN OTHERS THEN
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
518: IF OZF_UNEXP_ERROR THEN
519: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: WHEN OTHERS THEN
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
518: IF OZF_UNEXP_ERROR THEN
519: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
520: END IF;
521: END Log_Invalid_Values;
543: l_api_version_number CONSTANT NUMBER := 1.0;
544: --
545: --
546: BEGIN
547: x_return_status := FND_API.G_RET_STS_SUCCESS;
548: IF OZF_DEBUG_HIGH_ON THEN
549: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
550: END IF;
551: --
570: WHEN OTHERS THEN
571: IF OZF_UNEXP_ERROR THEN
572: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
573: END IF;
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: END;
576: --
577: IF OZF_DEBUG_HIGH_ON THEN
578: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
577: IF OZF_DEBUG_HIGH_ON THEN
578: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
579: END IF;
580: EXCEPTION
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: WHEN OTHERS THEN
578: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
579: END IF;
580: EXCEPTION
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: WHEN OTHERS THEN
586: IF OZF_UNEXP_ERROR THEN
579: END IF;
580: EXCEPTION
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: WHEN OTHERS THEN
586: IF OZF_UNEXP_ERROR THEN
587: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
580: EXCEPTION
581: WHEN FND_API.G_EXC_ERROR THEN
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: WHEN OTHERS THEN
586: IF OZF_UNEXP_ERROR THEN
587: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
588: END IF;
585: WHEN OTHERS THEN
586: IF OZF_UNEXP_ERROR THEN
587: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
588: END IF;
589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
590: END Bulk_Dispute_Line;
591:
592: ---------------------------------------------------------------------
593: -- PROCEDURE
602: -- NOTES
603: ---------------------------------------------------------------------
604: PROCEDURE Update_Batch_Calculations (
605: p_api_version IN NUMBER
606: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
609: ,p_resale_batch_id IN NUMBER
610: ,x_return_status OUT NOCOPY VARCHAR2
603: ---------------------------------------------------------------------
604: PROCEDURE Update_Batch_Calculations (
605: p_api_version IN NUMBER
606: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
609: ,p_resale_batch_id IN NUMBER
610: ,x_return_status OUT NOCOPY VARCHAR2
611: ,x_msg_data OUT NOCOPY VARCHAR2
604: PROCEDURE Update_Batch_Calculations (
605: p_api_version IN NUMBER
606: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
609: ,p_resale_batch_id IN NUMBER
610: ,x_return_status OUT NOCOPY VARCHAR2
611: ,x_msg_data OUT NOCOPY VARCHAR2
612: ,x_msg_count OUT NOCOPY NUMBER
666: -- Standard begin of API savepoint
667: SAVEPOINT Update_Batch_Calculations;
668:
669: -- Standard call to check FOR call compatibility.
670: IF NOT FND_API.Compatible_API_Call (
671: l_api_version,
672: p_api_version,
673: l_api_name,
674: G_PKG_NAME)
672: p_api_version,
673: l_api_name,
674: G_PKG_NAME)
675: THEN
676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
677: END IF;
678:
679: --Initialize message if p_init_msg_list IS TRUE.
680: IF FND_API.To_BOOLEAN (p_init_msg_list) THEN
676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
677: END IF;
678:
679: --Initialize message if p_init_msg_list IS TRUE.
680: IF FND_API.To_BOOLEAN (p_init_msg_list) THEN
681: FND_MSG_PUB.initialize;
682: END IF;
683:
684: -- Debug Message
685: IF OZF_DEBUG_HIGH_ON THEN
686: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
687: END IF;
688: -- Initialize API return status to sucess
689: x_return_status := FND_API.G_RET_STS_SUCCESS;
690:
691: -- get data regard thIS process
692: OPEN OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr (p_resale_batch_id);
693: FETCH OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr INTO l_lines_disputed;
763: p_column_name => 'ALLOWED_AMOUNT',
764: p_column_value => l_total_allowed_amount,
765: x_return_status => l_return_status
766: );
767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
764: p_column_value => l_total_allowed_amount,
765: x_return_status => l_return_status
766: );
767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: -- BUG 4879544 (-)
765: x_return_status => l_return_status
766: );
767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: -- BUG 4879544 (-)
773: END IF;
766: );
767: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
768: RAISE FND_API.G_EXC_ERROR;
769: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: -- BUG 4879544 (-)
773: END IF;
774: ELSE
803: WHERE resale_batch_id = p_resale_batch_id;
804: EXCEPTION
805: WHEN OTHERS THEN
806: OZF_UTILITY_PVT.error_message('OZF_UPD_RESALE_BATCH_WRG');
807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
808: END;
809:
810: -- Debug Message
811: IF OZF_DEBUG_HIGH_ON THEN
813: END IF;
814:
815: --Standard call to get message count AND if count=1, get the message
816: FND_MSG_PUB.Count_and_Get (
817: p_encoded => FND_API.G_FALSE,
818: p_count => x_msg_count,
819: p_data => x_msg_data
820: );
821: EXCEPTION
818: p_count => x_msg_count,
819: p_data => x_msg_data
820: );
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO Update_Batch_Calculations;
824: x_return_status := FND_API.G_RET_STS_ERROR;
825: -- Standard call to get message count AND IF count=1, get the message
826: FND_MSG_PUB.Count_and_Get (
820: );
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO Update_Batch_Calculations;
824: x_return_status := FND_API.G_RET_STS_ERROR;
825: -- Standard call to get message count AND IF count=1, get the message
826: FND_MSG_PUB.Count_and_Get (
827: p_encoded => FND_API.G_FALSE,
828: p_count => x_msg_count,
823: ROLLBACK TO Update_Batch_Calculations;
824: x_return_status := FND_API.G_RET_STS_ERROR;
825: -- Standard call to get message count AND IF count=1, get the message
826: FND_MSG_PUB.Count_and_Get (
827: p_encoded => FND_API.G_FALSE,
828: p_count => x_msg_count,
829: p_data => x_msg_data
830: );
831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
827: p_encoded => FND_API.G_FALSE,
828: p_count => x_msg_count,
829: p_data => x_msg_data
830: );
831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
832: ROLLBACK TO Update_Batch_Calculations;
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: -- Standard call to get message count AND IF count=1, get the message
835: FND_MSG_PUB.Count_and_Get (
829: p_data => x_msg_data
830: );
831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
832: ROLLBACK TO Update_Batch_Calculations;
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: -- Standard call to get message count AND IF count=1, get the message
835: FND_MSG_PUB.Count_and_Get (
836: p_encoded => FND_API.G_FALSE,
837: p_count => x_msg_count,
832: ROLLBACK TO Update_Batch_Calculations;
833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: -- Standard call to get message count AND IF count=1, get the message
835: FND_MSG_PUB.Count_and_Get (
836: p_encoded => FND_API.G_FALSE,
837: p_count => x_msg_count,
838: p_data => x_msg_data
839: );
840: WHEN OTHERS THEN
838: p_data => x_msg_data
839: );
840: WHEN OTHERS THEN
841: ROLLBACK TO Update_Batch_Calculations;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
843: IF OZF_UNEXP_ERROR THEN
844: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
845: END IF;
846: -- Standard call to get message count AND IF count=1, get the message
844: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
845: END IF;
846: -- Standard call to get message count AND IF count=1, get the message
847: FND_MSG_PUB.Count_and_Get (
848: p_encoded => FND_API.G_FALSE,
849: p_count => x_msg_count,
850: p_data => x_msg_data
851: );
852: END Update_Batch_Calculations;
928: OZF_UTILITY_PVT.debug_message('Allowed_amount:'|| p_allowed_amount);
929: END IF;
930:
931: -- Initialize API return status to sucess
932: x_return_status := FND_API.G_RET_STS_SUCCESS;
933:
934: IF p_resale_line_int_rec.claimed_amount IS NOT NULL THEN
935: --bug 6790803 for negative quantity
936: --IF p_allowed_amount = p_resale_line_int_rec.claimed_amount THEN
995: p_column_name => 'LINE_TOLERANCE_AMOUNT',
996: p_column_value => l_line_tolerance_amount,
997: x_return_status => l_return_status
998: );
999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
996: p_column_value => l_line_tolerance_amount,
997: x_return_status => l_return_status
998: );
999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
1004: -- BUG 4879544 (-)
997: x_return_status => l_return_status
998: );
999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
1004: -- BUG 4879544 (-)
1005: END if;
998: );
999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003: END IF;
1004: -- BUG 4879544 (-)
1005: END if;
1006: END IF;
1062: WHEN OTHERS THEN
1063: IF OZF_UNEXP_ERROR THEN
1064: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1065: END IF;
1066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1067: END;
1068:
1069: -- Debug Message
1070: IF OZF_DEBUG_HIGH_ON THEN
1070: IF OZF_DEBUG_HIGH_ON THEN
1071: OZF_UTILITY_PVT.debug_message(l_full_name||': End');
1072: END IF;
1073: EXCEPTION
1074: WHEN FND_API.G_EXC_ERROR THEN
1075: ROLLBACK TO Update_Line_Calculations;
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: ROLLBACK TO Update_Line_Calculations;
1072: END IF;
1073: EXCEPTION
1074: WHEN FND_API.G_EXC_ERROR THEN
1075: ROLLBACK TO Update_Line_Calculations;
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: ROLLBACK TO Update_Line_Calculations;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: WHEN OTHERS THEN
1073: EXCEPTION
1074: WHEN FND_API.G_EXC_ERROR THEN
1075: ROLLBACK TO Update_Line_Calculations;
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: ROLLBACK TO Update_Line_Calculations;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: WHEN OTHERS THEN
1081: ROLLBACK TO Update_Line_Calculations;
1075: ROLLBACK TO Update_Line_Calculations;
1076: x_return_status := FND_API.G_RET_STS_ERROR;
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: ROLLBACK TO Update_Line_Calculations;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: WHEN OTHERS THEN
1081: ROLLBACK TO Update_Line_Calculations;
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: IF OZF_UNEXP_ERROR THEN
1078: ROLLBACK TO Update_Line_Calculations;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: WHEN OTHERS THEN
1081: ROLLBACK TO Update_Line_Calculations;
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083: IF OZF_UNEXP_ERROR THEN
1084: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1085: END IF;
1086: END Update_Line_Calculations;
1098: -- NOTES
1099: ---------------------------------------------------------------------
1100: PROCEDURE Check_Duplicate_Line(
1101: p_api_version_number IN NUMBER
1102: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1104: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1105: ,p_resale_line_int_id IN NUMBER
1106: ,p_direct_customer_flag IN VARCHAR2
1099: ---------------------------------------------------------------------
1100: PROCEDURE Check_Duplicate_Line(
1101: p_api_version_number IN NUMBER
1102: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1104: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1105: ,p_resale_line_int_id IN NUMBER
1106: ,p_direct_customer_flag IN VARCHAR2
1107: ,p_claimed_amount IN NUMBER
1100: PROCEDURE Check_Duplicate_Line(
1101: p_api_version_number IN NUMBER
1102: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1104: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1105: ,p_resale_line_int_id IN NUMBER
1106: ,p_direct_customer_flag IN VARCHAR2
1107: ,p_claimed_amount IN NUMBER
1108: ,p_batch_type IN VARCHAR2
1432:
1433: BEGIN
1434:
1435: -- Standard call to check for call compatibility.
1436: IF NOT FND_API.Compatible_API_Call (
1437: l_api_version,
1438: p_api_version_number,
1439: l_api_name,
1440: G_PKG_NAME)
1438: p_api_version_number,
1439: l_api_name,
1440: G_PKG_NAME)
1441: THEN
1442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1443: END IF;
1444:
1445: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
1446: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
1442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1443: END IF;
1444:
1445: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
1446: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
1447: FND_MSG_PUB.initialize;
1448: END IF;
1449:
1450: -- Debug Message
1452: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
1453: END IF;
1454:
1455: -- Initialize API return status to sucess
1456: x_return_status := FND_API.G_RET_STS_SUCCESS;
1457: IF OZF_DEBUG_LOW_ON THEN
1458: OZF_UTILITY_PVT.debug_message('resale_line_int_id'||p_resale_line_int_id);
1459: OZF_UTILITY_PVT.debug_message('direct_customer_flag'||p_direct_customer_flag);
1460: OZF_UTILITY_PVT.debug_message('claimed_amount'||p_claimed_amount);
1563: END IF;
1564:
1565: --Standard call to get message count AND IF count=1, get the message
1566: FND_MSG_PUB.Count_And_Get (
1567: p_encoded => FND_API.G_FALSE,
1568: p_count => x_msg_count,
1569: p_data => x_msg_data
1570: );
1571: EXCEPTION
1568: p_count => x_msg_count,
1569: p_data => x_msg_data
1570: );
1571: EXCEPTION
1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR;
1574: -- Standard call to get message count AND IF count=1, get the message
1575: FND_MSG_PUB.Count_And_Get (
1576: p_encoded => FND_API.G_FALSE,
1569: p_data => x_msg_data
1570: );
1571: EXCEPTION
1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR;
1574: -- Standard call to get message count AND IF count=1, get the message
1575: FND_MSG_PUB.Count_And_Get (
1576: p_encoded => FND_API.G_FALSE,
1577: p_count => x_msg_count,
1572: WHEN FND_API.G_EXC_ERROR THEN
1573: x_return_status := FND_API.G_RET_STS_ERROR;
1574: -- Standard call to get message count AND IF count=1, get the message
1575: FND_MSG_PUB.Count_And_Get (
1576: p_encoded => FND_API.G_FALSE,
1577: p_count => x_msg_count,
1578: p_data => x_msg_data
1579: );
1580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1576: p_encoded => FND_API.G_FALSE,
1577: p_count => x_msg_count,
1578: p_data => x_msg_data
1579: );
1580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1582: -- Standard call to get message count AND IF count=1, get the message
1583: FND_MSG_PUB.Count_And_Get (
1584: p_encoded => FND_API.G_FALSE,
1577: p_count => x_msg_count,
1578: p_data => x_msg_data
1579: );
1580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1582: -- Standard call to get message count AND IF count=1, get the message
1583: FND_MSG_PUB.Count_And_Get (
1584: p_encoded => FND_API.G_FALSE,
1585: p_count => x_msg_count,
1580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1582: -- Standard call to get message count AND IF count=1, get the message
1583: FND_MSG_PUB.Count_And_Get (
1584: p_encoded => FND_API.G_FALSE,
1585: p_count => x_msg_count,
1586: p_data => x_msg_data
1587: );
1588: WHEN OTHERS THEN
1585: p_count => x_msg_count,
1586: p_data => x_msg_data
1587: );
1588: WHEN OTHERS THEN
1589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1590: IF OZF_UNEXP_ERROR THEN
1591: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1592: END IF;
1593: -- Standard call to get message count AND IF count=1, get the message
1591: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1592: END IF;
1593: -- Standard call to get message count AND IF count=1, get the message
1594: FND_MSG_PUB.Count_And_Get (
1595: p_encoded => FND_API.G_FALSE,
1596: p_count => x_msg_count,
1597: p_data => x_msg_data
1598: );
1599: END Check_Duplicate_Line;
1611: -- NOTES
1612: ---------------------------------------------------------------------
1613: PROCEDURE Update_Duplicates (
1614: p_api_version IN NUMBER
1615: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1616: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1617: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1618: ,p_resale_batch_id IN NUMBER
1619: ,p_resale_batch_type IN VARCHAR2
1612: ---------------------------------------------------------------------
1613: PROCEDURE Update_Duplicates (
1614: p_api_version IN NUMBER
1615: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1616: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1617: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1618: ,p_resale_batch_id IN NUMBER
1619: ,p_resale_batch_type IN VARCHAR2
1620: ,p_batch_status IN VARCHAR2
1613: PROCEDURE Update_Duplicates (
1614: p_api_version IN NUMBER
1615: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1616: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1617: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1618: ,p_resale_batch_id IN NUMBER
1619: ,p_resale_batch_type IN VARCHAR2
1620: ,p_batch_status IN VARCHAR2
1621: ,x_batch_status OUT NOCOPY VARCHAR2
1664: BEGIN
1665: SAVEPOINT Update_Duplicates;
1666:
1667: -- Standard call to check for call compatibility.
1668: IF NOT FND_API.Compatible_API_Call (
1669: l_api_version,
1670: p_api_version,
1671: l_api_name,
1672: G_PKG_NAME)
1670: p_api_version,
1671: l_api_name,
1672: G_PKG_NAME)
1673: THEN
1674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1675: END IF;
1676:
1677: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
1678: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
1674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1675: END IF;
1676:
1677: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
1678: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
1679: FND_MSG_PUB.initialize;
1680: END IF;
1681:
1682: -- Debug Message
1684: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
1685: END IF;
1686:
1687: -- Initialize API return status to sucess
1688: x_return_status := FND_API.G_RET_STS_SUCCESS;
1689:
1690: OPEN open_lines_csr(p_resale_batch_id);
1691: FETCH open_lines_csr BULK COLLECT INTO l_open_lines_tbl, l_direct_customer_tbl, l_claimed_amount_tbl;
1692: CLOSE open_lines_csr;
1702: -- BUG 4670154 (-)
1703:
1704: OZF_RESALE_COMMON_PVT.Check_Duplicate_Line (
1705: p_api_version_number => 1.0
1706: ,p_init_msg_LIST => FND_API.G_FALSE
1707: ,p_commit => FND_API.G_FALSE
1708: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1709: ,x_return_status => l_return_status
1710: ,x_msg_count => l_msg_count
1703:
1704: OZF_RESALE_COMMON_PVT.Check_Duplicate_Line (
1705: p_api_version_number => 1.0
1706: ,p_init_msg_LIST => FND_API.G_FALSE
1707: ,p_commit => FND_API.G_FALSE
1708: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1709: ,x_return_status => l_return_status
1710: ,x_msg_count => l_msg_count
1711: ,x_msg_data => l_msg_data
1704: OZF_RESALE_COMMON_PVT.Check_Duplicate_Line (
1705: p_api_version_number => 1.0
1706: ,p_init_msg_LIST => FND_API.G_FALSE
1707: ,p_commit => FND_API.G_FALSE
1708: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1709: ,x_return_status => l_return_status
1710: ,x_msg_count => l_msg_count
1711: ,x_msg_data => l_msg_data
1712: ,p_resale_line_int_id => l_open_lines_tbl(i)
1717: ,x_dup_adjustment_id => l_dup_adjustment_id
1718: ,x_reprocessing => l_reprocessing
1719: );
1720:
1721: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1722: OZF_UTILITY_PVT.error_message('OZF_RESALE_CHK_DUP_ERR');
1723: ELSE
1724: IF l_dup_adjustment_id IS NOT NULL AND l_reprocessing THEN
1725: -- Set the line and adjustment as duplicates
1736: p_error_code => 'OZF_RESALE_DUP',
1737: p_column_name => 'DUPLICATED_ADJUSTMENT_ID',
1738: p_column_value => l_dup_adjustment_id,
1739: x_return_status => l_return_status );
1740: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1741: RAISE FND_API.G_EXC_ERROR;
1742: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1744: END IF;
1737: p_column_name => 'DUPLICATED_ADJUSTMENT_ID',
1738: p_column_value => l_dup_adjustment_id,
1739: x_return_status => l_return_status );
1740: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1741: RAISE FND_API.G_EXC_ERROR;
1742: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1744: END IF;
1745: ELSE
1738: p_column_value => l_dup_adjustment_id,
1739: x_return_status => l_return_status );
1740: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1741: RAISE FND_API.G_EXC_ERROR;
1742: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1744: END IF;
1745: ELSE
1746: -- record dup line if necessary
1739: x_return_status => l_return_status );
1740: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1741: RAISE FND_API.G_EXC_ERROR;
1742: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1744: END IF;
1745: ELSE
1746: -- record dup line if necessary
1747: UPDATE ozf_resale_lines_int
1802: WHEN OTHERS THEN
1803: IF OZF_UNEXP_ERROR THEN
1804: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1805: END IF;
1806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1807: END;
1808: */
1809: --
1810: END IF;
1815: END IF;
1816:
1817: --Standard call to get message count AND IF count=1, get the message
1818: FND_MSG_PUB.Count_And_Get (
1819: p_encoded => FND_API.G_FALSE,
1820: p_count => x_msg_count,
1821: p_data => x_msg_data
1822: );
1823:
1821: p_data => x_msg_data
1822: );
1823:
1824: EXCEPTION
1825: WHEN FND_API.G_EXC_ERROR THEN
1826: ROLLBACK TO Update_Duplicates;
1827: x_return_status := FND_API.G_RET_STS_ERROR;
1828: -- Standard call to get message count AND IF count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1823:
1824: EXCEPTION
1825: WHEN FND_API.G_EXC_ERROR THEN
1826: ROLLBACK TO Update_Duplicates;
1827: x_return_status := FND_API.G_RET_STS_ERROR;
1828: -- Standard call to get message count AND IF count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1830: p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1826: ROLLBACK TO Update_Duplicates;
1827: x_return_status := FND_API.G_RET_STS_ERROR;
1828: -- Standard call to get message count AND IF count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1830: p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1832: p_data => x_msg_data
1833: );
1834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1830: p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1832: p_data => x_msg_data
1833: );
1834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1835: ROLLBACK TO Update_Duplicates;
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837: -- Standard call to get message count AND IF count=1, get the message
1838: FND_MSG_PUB.Count_And_Get (
1832: p_data => x_msg_data
1833: );
1834: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1835: ROLLBACK TO Update_Duplicates;
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837: -- Standard call to get message count AND IF count=1, get the message
1838: FND_MSG_PUB.Count_And_Get (
1839: p_encoded => FND_API.G_FALSE,
1840: p_count => x_msg_count,
1835: ROLLBACK TO Update_Duplicates;
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837: -- Standard call to get message count AND IF count=1, get the message
1838: FND_MSG_PUB.Count_And_Get (
1839: p_encoded => FND_API.G_FALSE,
1840: p_count => x_msg_count,
1841: p_data => x_msg_data
1842: );
1843: WHEN OTHERS THEN
1841: p_data => x_msg_data
1842: );
1843: WHEN OTHERS THEN
1844: ROLLBACK TO Update_Duplicates;
1845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1846: IF OZF_UNEXP_ERROR THEN
1847: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1848: END IF;
1849: -- Standard call to get message count AND IF count=1, get the message
1847: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1848: END IF;
1849: -- Standard call to get message count AND IF count=1, get the message
1850: FND_MSG_PUB.Count_And_Get (
1851: p_encoded => FND_API.G_FALSE,
1852: p_count => x_msg_count,
1853: p_data => x_msg_data
1854: );
1855: END Update_Duplicates;
1867: -- NOTES
1868: ---------------------------------------------------------------------
1869: PROCEDURE Validate_Batch(
1870: p_api_version IN NUMBER
1871: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1872: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1873: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1874: ,p_resale_batch_id IN NUMBER
1875: ,x_batch_status OUT NOCOPY VARCHAR2
1868: ---------------------------------------------------------------------
1869: PROCEDURE Validate_Batch(
1870: p_api_version IN NUMBER
1871: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1872: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1873: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1874: ,p_resale_batch_id IN NUMBER
1875: ,x_batch_status OUT NOCOPY VARCHAR2
1876: ,x_return_status OUT NOCOPY VARCHAR2
1869: PROCEDURE Validate_Batch(
1870: p_api_version IN NUMBER
1871: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
1872: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1873: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1874: ,p_resale_batch_id IN NUMBER
1875: ,x_batch_status OUT NOCOPY VARCHAR2
1876: ,x_return_status OUT NOCOPY VARCHAR2
1877: ,x_msg_data OUT NOCOPY VARCHAR2
1923: --
1924: BEGIN
1925:
1926: -- Standard call to check for call compatibility.
1927: IF NOT FND_API.Compatible_API_Call (
1928: l_api_version,
1929: p_api_version,
1930: l_api_name,
1931: G_PKG_NAME)
1929: p_api_version,
1930: l_api_name,
1931: G_PKG_NAME)
1932: THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1935:
1936: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
1937: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1935:
1936: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
1937: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
1938: FND_MSG_PUB.initialize;
1939: END IF;
1940:
1941: -- Debug Message
1943: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
1944: END IF;
1945:
1946: -- Initialize API return status to sucess
1947: x_return_status := FND_API.G_RET_STS_SUCCESS;
1948:
1949: -- First, do some basic check
1950: OPEN batch_info_csr;
1951: FETCH batch_info_csr INTO l_batch_count,
1964:
1965: -- Check status
1966: IF l_status_code <> G_BATCH_PROCESSING THEN
1967: --
1968: x_return_status := FND_API.G_RET_STS_ERROR;
1969: --
1970: Insert_Resale_Log (
1971: p_id_value => p_resale_batch_id,
1972: p_id_type => G_ID_TYPE_BATCH,
1974: p_column_name => 'STATUS_CODE',
1975: p_column_value => l_status_code,
1976: x_return_status => l_return_status );
1977: --
1978: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1979: RAISE FND_API.G_EXC_ERROR;
1980: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: END IF;
1975: p_column_value => l_status_code,
1976: x_return_status => l_return_status );
1977: --
1978: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1979: RAISE FND_API.G_EXC_ERROR;
1980: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: END IF;
1983: --
1976: x_return_status => l_return_status );
1977: --
1978: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1979: RAISE FND_API.G_EXC_ERROR;
1980: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: END IF;
1983: --
1984: END IF;
1977: --
1978: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1979: RAISE FND_API.G_EXC_ERROR;
1980: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1982: END IF;
1983: --
1984: END IF;
1985:
1985:
1986: -- Check report_date
1987: IF l_report_date IS NULL THEN
1988: --
1989: x_return_status := FND_API.G_RET_STS_ERROR;
1990: --
1991: Insert_Resale_Log (
1992: p_id_value => p_resale_batch_id,
1993: p_id_type => G_ID_TYPE_BATCH,
1995: p_column_name => 'REPORT_date',
1996: p_column_value => NULL,
1997: x_return_status => l_return_status );
1998: --
1999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2000: RAISE FND_API.G_EXC_ERROR;
2001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003: END IF;
1996: p_column_value => NULL,
1997: x_return_status => l_return_status );
1998: --
1999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2000: RAISE FND_API.G_EXC_ERROR;
2001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003: END IF;
2004: --
1997: x_return_status => l_return_status );
1998: --
1999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2000: RAISE FND_API.G_EXC_ERROR;
2001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003: END IF;
2004: --
2005: END IF;
1998: --
1999: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2000: RAISE FND_API.G_EXC_ERROR;
2001: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003: END IF;
2004: --
2005: END IF;
2006:
2006:
2007: -- Check report_start_date
2008: IF l_report_start_date IS NULL THEN
2009: --
2010: x_return_status := FND_API.G_RET_STS_ERROR;
2011: --
2012: Insert_Resale_Log (
2013: p_id_value => p_resale_batch_id,
2014: p_id_type => G_ID_TYPE_BATCH,
2016: p_column_name => 'REPORT_START_date',
2017: p_column_value => NULL,
2018: x_return_status => l_return_status );
2019: --
2020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2021: RAISE FND_API.G_EXC_ERROR;
2022: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2017: p_column_value => NULL,
2018: x_return_status => l_return_status );
2019: --
2020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2021: RAISE FND_API.G_EXC_ERROR;
2022: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2025: --
2018: x_return_status => l_return_status );
2019: --
2020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2021: RAISE FND_API.G_EXC_ERROR;
2022: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2025: --
2026: END IF;
2019: --
2020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2021: RAISE FND_API.G_EXC_ERROR;
2022: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END IF;
2025: --
2026: END IF;
2027:
2027:
2028: -- Check report_end_date
2029: IF l_report_end_date IS NULL THEN
2030: --
2031: x_return_status := FND_API.G_RET_STS_ERROR;
2032: --
2033: Insert_Resale_Log (
2034: p_id_value => p_resale_batch_id,
2035: p_id_type => G_ID_TYPE_BATCH,
2037: p_column_name => 'REPORT_END_date',
2038: p_column_value => NULL,
2039: x_return_status => l_return_status );
2040: --
2041: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2042: RAISE FND_API.G_EXC_ERROR;
2043: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2045: END IF;
2038: p_column_value => NULL,
2039: x_return_status => l_return_status );
2040: --
2041: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2042: RAISE FND_API.G_EXC_ERROR;
2043: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2045: END IF;
2046: --
2039: x_return_status => l_return_status );
2040: --
2041: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2042: RAISE FND_API.G_EXC_ERROR;
2043: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2045: END IF;
2046: --
2047: END IF;
2040: --
2041: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2042: RAISE FND_API.G_EXC_ERROR;
2043: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2045: END IF;
2046: --
2047: END IF;
2048:
2052: l_report_end_date IS NOT NULL
2053: THEN
2054: IF l_report_start_date > l_report_end_date THEN
2055:
2056: x_return_status := FND_API.G_RET_STS_ERROR;
2057: --
2058: Insert_Resale_Log (
2059: p_id_value => p_resale_batch_id,
2060: p_id_type => G_ID_TYPE_BATCH,
2062: p_column_name => 'REPORT_START_DATE',
2063: p_column_value => NULL,
2064: x_return_status => l_return_status );
2065: --
2066: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2067: RAISE FND_API.G_EXC_ERROR;
2068: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: END IF;
2063: p_column_value => NULL,
2064: x_return_status => l_return_status );
2065: --
2066: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2067: RAISE FND_API.G_EXC_ERROR;
2068: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: END IF;
2071: --
2064: x_return_status => l_return_status );
2065: --
2066: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2067: RAISE FND_API.G_EXC_ERROR;
2068: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: END IF;
2071: --
2072: END IF;
2065: --
2066: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2067: RAISE FND_API.G_EXC_ERROR;
2068: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: END IF;
2071: --
2072: END IF;
2073: --
2075:
2076: -- Check partner_cust_account_id
2077: IF l_partner_cust_account_id IS NULL THEN
2078: --
2079: x_return_status := FND_API.G_RET_STS_ERROR;
2080: --
2081: Insert_Resale_Log (
2082: p_id_value => p_resale_batch_id,
2083: p_id_type => G_ID_TYPE_BATCH,
2085: p_column_name => 'PARTNER_CUST_ACCOUNT_ID',
2086: p_column_value => NULL,
2087: x_return_status => l_return_status );
2088: --
2089: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2086: p_column_value => NULL,
2087: x_return_status => l_return_status );
2088: --
2089: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2094: --
2087: x_return_status => l_return_status );
2088: --
2089: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2094: --
2095: ELSE
2088: --
2089: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2090: RAISE FND_API.G_EXC_ERROR;
2091: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: END IF;
2094: --
2095: ELSE
2096: -- make sure partner cust_account_id IS valid
2098: FETCH count_cust_acctid_csr INTO l_partner_id_count;
2099: CLOSE count_cust_acctid_csr;
2100: --
2101: IF l_partner_id_count IS NULL THEN
2102: x_return_status := FND_API.G_RET_STS_ERROR;
2103: --
2104: Insert_Resale_Log (
2105: p_id_value => p_resale_batch_id,
2106: p_id_type => G_ID_TYPE_BATCH,
2108: p_column_name => 'PARTNER_CUST_ACCOUNT_ID',
2109: p_column_value => l_partner_cust_account_id,
2110: x_return_status => l_return_status );
2111: --
2112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;
2109: p_column_value => l_partner_cust_account_id,
2110: x_return_status => l_return_status );
2111: --
2112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;
2117: --
2110: x_return_status => l_return_status );
2111: --
2112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;
2117: --
2118: END IF;
2111: --
2112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;
2117: --
2118: END IF;
2119: END IF;
2122: IF l_batch_count IS NULL OR
2123: l_batch_count = 0
2124: THEN
2125: --
2126: x_return_status := FND_API.G_RET_STS_ERROR;
2127: --
2128: Insert_Resale_Log (
2129: p_id_value => p_resale_batch_id,
2130: p_id_type => G_ID_TYPE_BATCH,
2132: p_column_name => 'BATCH_COUNT',
2133: p_column_value => NULL,
2134: x_return_status => l_return_status );
2135: --
2136: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2137: RAISE FND_API.G_EXC_ERROR;
2138: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2133: p_column_value => NULL,
2134: x_return_status => l_return_status );
2135: --
2136: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2137: RAISE FND_API.G_EXC_ERROR;
2138: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2141: --
2134: x_return_status => l_return_status );
2135: --
2136: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2137: RAISE FND_API.G_EXC_ERROR;
2138: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2141: --
2142: END IF;
2135: --
2136: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2137: RAISE FND_API.G_EXC_ERROR;
2138: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2140: END IF;
2141: --
2142: END IF;
2143:
2166:
2167: -- batch without any lines cannot be processed
2168: IF l_total_line_count IS NULL THEN
2169: --
2170: x_return_status := FND_API.G_RET_STS_ERROR;
2171: --
2172: Insert_Resale_Log (
2173: p_id_value => p_resale_batch_id,
2174: p_id_type => G_ID_TYPE_BATCH,
2176: p_column_name => NULL,
2177: p_column_value => NULL,
2178: x_return_status => l_return_status );
2179: --
2180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2181: RAISE FND_API.G_EXC_ERROR;
2182: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2184: END IF;
2177: p_column_value => NULL,
2178: x_return_status => l_return_status );
2179: --
2180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2181: RAISE FND_API.G_EXC_ERROR;
2182: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2184: END IF;
2185: --
2178: x_return_status => l_return_status );
2179: --
2180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2181: RAISE FND_API.G_EXC_ERROR;
2182: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2184: END IF;
2185: --
2186: ELSE
2179: --
2180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2181: RAISE FND_API.G_EXC_ERROR;
2182: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2184: END IF;
2185: --
2186: ELSE
2187: -- checks if the batch count and actual number of lines in batch are same
2188: IF l_batch_count IS NOT NULL AND
2189: l_batch_count <> l_total_line_count
2190: THEN
2191: --
2192: x_return_status := FND_API.G_RET_STS_ERROR;
2193: --
2194: Insert_Resale_Log (
2195: p_id_value => p_resale_batch_id,
2196: p_id_type => G_ID_TYPE_BATCH,
2198: p_column_name => 'BATCH_COUNT',
2199: p_column_value => l_batch_count,
2200: x_return_status => l_return_status );
2201: --
2202: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2203: RAISE FND_API.G_EXC_ERROR;
2204: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2199: p_column_value => l_batch_count,
2200: x_return_status => l_return_status );
2201: --
2202: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2203: RAISE FND_API.G_EXC_ERROR;
2204: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2207: --
2200: x_return_status => l_return_status );
2201: --
2202: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2203: RAISE FND_API.G_EXC_ERROR;
2204: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2207: --
2208: END IF;
2201: --
2202: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2203: RAISE FND_API.G_EXC_ERROR;
2204: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2207: --
2208: END IF;
2209: END IF;
2207: --
2208: END IF;
2209: END IF;
2210:
2211: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2212: -- SLKRISHN common update
2213: BEGIN
2214: UPDATE ozf_resale_batches
2215: SET status_code= G_BATCH_DISPUTED
2218: WHEN OTHERS THEN
2219: IF OZF_UNEXP_ERROR THEN
2220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2221: END IF;
2222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2223: END;
2224: END IF;
2225:
2226: -- Debug Message
2229: END IF;
2230:
2231: --Standard call to get message count AND IF count=1, get the message
2232: FND_MSG_PUB.Count_And_Get (
2233: p_encoded => FND_API.G_FALSE,
2234: p_count => x_msg_count,
2235: p_data => x_msg_data
2236: );
2237: --
2235: p_data => x_msg_data
2236: );
2237: --
2238: EXCEPTION
2239: WHEN FND_API.G_EXC_ERROR THEN
2240: x_return_status := FND_API.G_RET_STS_ERROR;
2241: -- Standard call to get message count AND IF count=1, get the message
2242: FND_MSG_PUB.Count_And_Get (
2243: p_encoded => FND_API.G_FALSE,
2236: );
2237: --
2238: EXCEPTION
2239: WHEN FND_API.G_EXC_ERROR THEN
2240: x_return_status := FND_API.G_RET_STS_ERROR;
2241: -- Standard call to get message count AND IF count=1, get the message
2242: FND_MSG_PUB.Count_And_Get (
2243: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2239: WHEN FND_API.G_EXC_ERROR THEN
2240: x_return_status := FND_API.G_RET_STS_ERROR;
2241: -- Standard call to get message count AND IF count=1, get the message
2242: FND_MSG_PUB.Count_And_Get (
2243: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2245: p_data => x_msg_data
2246: );
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2243: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2245: p_data => x_msg_data
2246: );
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2249: -- Standard call to get message count AND IF count=1, get the message
2250: FND_MSG_PUB.Count_And_Get (
2251: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2245: p_data => x_msg_data
2246: );
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2249: -- Standard call to get message count AND IF count=1, get the message
2250: FND_MSG_PUB.Count_And_Get (
2251: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2249: -- Standard call to get message count AND IF count=1, get the message
2250: FND_MSG_PUB.Count_And_Get (
2251: p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2253: p_data => x_msg_data
2254: );
2255: WHEN OTHERS THEN
2252: p_count => x_msg_count,
2253: p_data => x_msg_data
2254: );
2255: WHEN OTHERS THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2257: IF OZF_UNEXP_ERROR THEN
2258: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2259: END IF;
2260: -- Standard call to get message count AND IF count=1, get the message
2258: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2259: END IF;
2260: -- Standard call to get message count AND IF count=1, get the message
2261: FND_MSG_PUB.Count_And_Get (
2262: p_encoded => FND_API.G_FALSE,
2263: p_count => x_msg_count,
2264: p_data => x_msg_data
2265: );
2266: END Validate_Batch;
2278: -- NOTES
2279: ---------------------------------------------------------------------
2280: PROCEDURE Validate_Order_Record(
2281: p_api_version IN NUMBER
2282: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2283: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2284: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2285: ,p_resale_batch_id IN NUMBER
2286: ,x_return_status OUT NOCOPY VARCHAR2
2279: ---------------------------------------------------------------------
2280: PROCEDURE Validate_Order_Record(
2281: p_api_version IN NUMBER
2282: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2283: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2284: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2285: ,p_resale_batch_id IN NUMBER
2286: ,x_return_status OUT NOCOPY VARCHAR2
2287: ,x_msg_data OUT NOCOPY VARCHAR2
2280: PROCEDURE Validate_Order_Record(
2281: p_api_version IN NUMBER
2282: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2283: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2284: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2285: ,p_resale_batch_id IN NUMBER
2286: ,x_return_status OUT NOCOPY VARCHAR2
2287: ,x_msg_data OUT NOCOPY VARCHAR2
2288: ,x_msg_count OUT NOCOPY NUMBER
2294: l_return_status varchar2(1);
2295: BEGIN
2296:
2297: -- Standard call to check for call compatibility.
2298: IF NOT FND_API.Compatible_API_Call (
2299: l_api_version,
2300: p_api_version,
2301: l_api_name,
2302: G_PKG_NAME)
2300: p_api_version,
2301: l_api_name,
2302: G_PKG_NAME)
2303: THEN
2304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2305: END IF;
2306:
2307: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
2308: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
2304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2305: END IF;
2306:
2307: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
2308: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
2309: FND_MSG_PUB.initialize;
2310: END IF;
2311:
2312: -- Debug Message
2314: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
2315: END IF;
2316:
2317: -- Initialize API return status to sucess
2318: x_return_status := FND_API.G_RET_STS_SUCCESS;
2319:
2320: -- Log lines with null values when required
2321: Log_Null_Values (
2322: p_batch_id =>p_resale_batch_id,
2321: Log_Null_Values (
2322: p_batch_id =>p_resale_batch_id,
2323: x_return_status => l_return_status);
2324: --
2325: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2326: RAISE FND_API.G_EXC_ERROR;
2327: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2329: END IF;
2322: p_batch_id =>p_resale_batch_id,
2323: x_return_status => l_return_status);
2324: --
2325: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2326: RAISE FND_API.G_EXC_ERROR;
2327: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2329: END IF;
2330: --
2323: x_return_status => l_return_status);
2324: --
2325: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2326: RAISE FND_API.G_EXC_ERROR;
2327: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2329: END IF;
2330: --
2331:
2324: --
2325: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2326: RAISE FND_API.G_EXC_ERROR;
2327: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2329: END IF;
2330: --
2331:
2332: -- Log lines with invalid values
2333: Log_Invalid_Values (
2334: p_batch_id =>p_resale_batch_id,
2335: x_return_status => l_return_status);
2336: --
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: END IF;
2334: p_batch_id =>p_resale_batch_id,
2335: x_return_status => l_return_status);
2336: --
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: END IF;
2342: --
2335: x_return_status => l_return_status);
2336: --
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: END IF;
2342: --
2343:
2336: --
2337: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2341: END IF;
2342: --
2343:
2344: Bulk_Dispute_Line (
2346: p_line_status => G_BATCH_ADJ_OPEN,
2347: x_return_status => l_return_status
2348: );
2349: --
2350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2351: RAISE FND_API.G_EXC_ERROR;
2352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: END IF;
2347: x_return_status => l_return_status
2348: );
2349: --
2350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2351: RAISE FND_API.G_EXC_ERROR;
2352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: END IF;
2355: --
2348: );
2349: --
2350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2351: RAISE FND_API.G_EXC_ERROR;
2352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: END IF;
2355: --
2356:
2349: --
2350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2351: RAISE FND_API.G_EXC_ERROR;
2352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2354: END IF;
2355: --
2356:
2357: -- Debug Message
2360: END IF;
2361:
2362: --Standard call to get message count AND IF count=1, get the message
2363: FND_MSG_PUB.Count_And_Get (
2364: p_encoded => FND_API.G_FALSE,
2365: p_count => x_msg_count,
2366: p_data => x_msg_data
2367: );
2368: EXCEPTION
2365: p_count => x_msg_count,
2366: p_data => x_msg_data
2367: );
2368: EXCEPTION
2369: WHEN FND_API.G_EXC_ERROR THEN
2370: x_return_status := FND_API.G_RET_STS_ERROR;
2371: -- Standard call to get message count AND IF count=1, get the message
2372: FND_MSG_PUB.Count_And_Get (
2373: p_encoded => FND_API.G_FALSE,
2366: p_data => x_msg_data
2367: );
2368: EXCEPTION
2369: WHEN FND_API.G_EXC_ERROR THEN
2370: x_return_status := FND_API.G_RET_STS_ERROR;
2371: -- Standard call to get message count AND IF count=1, get the message
2372: FND_MSG_PUB.Count_And_Get (
2373: p_encoded => FND_API.G_FALSE,
2374: p_count => x_msg_count,
2369: WHEN FND_API.G_EXC_ERROR THEN
2370: x_return_status := FND_API.G_RET_STS_ERROR;
2371: -- Standard call to get message count AND IF count=1, get the message
2372: FND_MSG_PUB.Count_And_Get (
2373: p_encoded => FND_API.G_FALSE,
2374: p_count => x_msg_count,
2375: p_data => x_msg_data
2376: );
2377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2373: p_encoded => FND_API.G_FALSE,
2374: p_count => x_msg_count,
2375: p_data => x_msg_data
2376: );
2377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2379: -- Standard call to get message count AND IF count=1, get the message
2380: FND_MSG_PUB.Count_And_Get (
2381: p_encoded => FND_API.G_FALSE,
2374: p_count => x_msg_count,
2375: p_data => x_msg_data
2376: );
2377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2379: -- Standard call to get message count AND IF count=1, get the message
2380: FND_MSG_PUB.Count_And_Get (
2381: p_encoded => FND_API.G_FALSE,
2382: p_count => x_msg_count,
2377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2379: -- Standard call to get message count AND IF count=1, get the message
2380: FND_MSG_PUB.Count_And_Get (
2381: p_encoded => FND_API.G_FALSE,
2382: p_count => x_msg_count,
2383: p_data => x_msg_data
2384: );
2385: WHEN OTHERS THEN
2382: p_count => x_msg_count,
2383: p_data => x_msg_data
2384: );
2385: WHEN OTHERS THEN
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: IF OZF_UNEXP_ERROR THEN
2388: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2389: END IF;
2390: -- Standard call to get message count AND IF count=1, get the message
2388: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2389: END IF;
2390: -- Standard call to get message count AND IF count=1, get the message
2391: FND_MSG_PUB.Count_And_Get (
2392: p_encoded => FND_API.G_FALSE,
2393: p_count => x_msg_count,
2394: p_data => x_msg_data
2395: );
2396: END Validate_Order_Record;
2441: l_exchange_type VARCHAR2(30);
2442: BEGIN
2443: -- Standard begin of API savepoint
2444: SAVEPOINT IDSM_Create_Utiz_Rec;
2445: x_return_status := FND_API.G_RET_STS_SUCCESS;
2446:
2447: --
2448: IF OZF_DEBUG_HIGH_ON THEN
2449: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
2493: 'FUND'
2494: ,l_pric_act_budgets_rec.parent_source_id
2495: ,l_return_status
2496: );
2497: IF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2494: ,l_pric_act_budgets_rec.parent_source_id
2495: ,l_return_status
2496: );
2497: IF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2502:
2495: ,l_return_status
2496: );
2497: IF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2502:
2503: l_pric_act_budgets_rec.parent_src_apprvd_amt := p_line_int_rec.total_accepted_amount;
2496: );
2497: IF l_return_status = FND_API.g_ret_sts_error THEN
2498: RAISE FND_API.g_exc_error;
2499: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2502:
2503: l_pric_act_budgets_rec.parent_src_apprvd_amt := p_line_int_rec.total_accepted_amount;
2504:
2514: OZF_UTILITY_PVT.Convert_Currency (
2515: p_from_currency => p_line_int_rec.currency_code
2516: ,p_to_currency => l_pric_act_budgets_rec.parent_src_curr
2517: ,p_conv_type => l_exchange_type
2518: ,p_conv_rate => FND_API.G_MISS_NUM
2519: ,p_conv_date => sysdate
2520: ,p_from_amount => p_line_int_rec.total_accepted_amount
2521: ,x_return_status => l_return_status
2522: ,x_to_amount => l_pric_act_budgets_rec.parent_src_apprvd_amt
2521: ,x_return_status => l_return_status
2522: ,x_to_amount => l_pric_act_budgets_rec.parent_src_apprvd_amt
2523: ,x_rate => l_rate);
2524:
2525: IF l_return_status = FND_API.g_ret_sts_error THEN
2526: RAISE FND_API.g_exc_error;
2527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2528: RAISE FND_API.g_exc_unexpected_error;
2529: END IF;
2522: ,x_to_amount => l_pric_act_budgets_rec.parent_src_apprvd_amt
2523: ,x_rate => l_rate);
2524:
2525: IF l_return_status = FND_API.g_ret_sts_error THEN
2526: RAISE FND_API.g_exc_error;
2527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2528: RAISE FND_API.g_exc_unexpected_error;
2529: END IF;
2530: --
2523: ,x_rate => l_rate);
2524:
2525: IF l_return_status = FND_API.g_ret_sts_error THEN
2526: RAISE FND_API.g_exc_error;
2527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2528: RAISE FND_API.g_exc_unexpected_error;
2529: END IF;
2530: --
2531: END IF;
2524:
2525: IF l_return_status = FND_API.g_ret_sts_error THEN
2526: RAISE FND_API.g_exc_error;
2527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2528: RAISE FND_API.g_exc_unexpected_error;
2529: END IF;
2530: --
2531: END IF;
2532:
2591: l_pric_price_adj_rec.liSt_line_id := NULL;
2592:
2593: OZF_RESALE_COMMON_PVT.Create_Adj_And_Utilization(
2594: p_api_version => 1
2595: ,p_init_msg_list => FND_API.G_FALSE
2596: ,p_commit => FND_API.G_FALSE
2597: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
2598: ,p_price_adj_rec => l_pric_price_adj_rec
2599: ,p_act_budgets_rec => l_pric_act_budgets_rec
2592:
2593: OZF_RESALE_COMMON_PVT.Create_Adj_And_Utilization(
2594: p_api_version => 1
2595: ,p_init_msg_list => FND_API.G_FALSE
2596: ,p_commit => FND_API.G_FALSE
2597: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
2598: ,p_price_adj_rec => l_pric_price_adj_rec
2599: ,p_act_budgets_rec => l_pric_act_budgets_rec
2600: ,p_act_util_rec => l_pric_act_util_rec
2593: OZF_RESALE_COMMON_PVT.Create_Adj_And_Utilization(
2594: p_api_version => 1
2595: ,p_init_msg_list => FND_API.G_FALSE
2596: ,p_commit => FND_API.G_FALSE
2597: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
2598: ,p_price_adj_rec => l_pric_price_adj_rec
2599: ,p_act_budgets_rec => l_pric_act_budgets_rec
2600: ,p_act_util_rec => l_pric_act_util_rec
2601: ,p_to_create_utilization => p_to_create_utilization
2602: ,x_return_status => l_return_status
2603: ,x_msg_data => l_msg_data
2604: ,x_msg_count => l_msg_count
2605: );
2606: IF l_return_status = FND_API.g_ret_sts_error THEN
2607: RAISE FND_API.g_exc_error;
2608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2609: RAISE FND_API.g_exc_unexpected_error;
2610: END IF;
2603: ,x_msg_data => l_msg_data
2604: ,x_msg_count => l_msg_count
2605: );
2606: IF l_return_status = FND_API.g_ret_sts_error THEN
2607: RAISE FND_API.g_exc_error;
2608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2609: RAISE FND_API.g_exc_unexpected_error;
2610: END IF;
2611:
2604: ,x_msg_count => l_msg_count
2605: );
2606: IF l_return_status = FND_API.g_ret_sts_error THEN
2607: RAISE FND_API.g_exc_error;
2608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2609: RAISE FND_API.g_exc_unexpected_error;
2610: END IF;
2611:
2612: -- update the interface duplicated line
2605: );
2606: IF l_return_status = FND_API.g_ret_sts_error THEN
2607: RAISE FND_API.g_exc_error;
2608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2609: RAISE FND_API.g_exc_unexpected_error;
2610: END IF;
2611:
2612: -- update the interface duplicated line
2613: UPDATE ozf_resale_lines_int_all
2620: OZF_UTILITY_PVT.debug_message(l_full_name||': End');
2621: END IF;
2622:
2623: EXCEPTION
2624: WHEN FND_API.g_exc_error THEN
2625: ROLLBACK TO IDSM_Create_Utiz_Rec;
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627: WHEN FND_API.g_exc_unexpected_error THEN
2628: ROLLBACK TO IDSM_Create_Utiz_Rec;
2622:
2623: EXCEPTION
2624: WHEN FND_API.g_exc_error THEN
2625: ROLLBACK TO IDSM_Create_Utiz_Rec;
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627: WHEN FND_API.g_exc_unexpected_error THEN
2628: ROLLBACK TO IDSM_Create_Utiz_Rec;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: WHEN OTHERS THEN
2623: EXCEPTION
2624: WHEN FND_API.g_exc_error THEN
2625: ROLLBACK TO IDSM_Create_Utiz_Rec;
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627: WHEN FND_API.g_exc_unexpected_error THEN
2628: ROLLBACK TO IDSM_Create_Utiz_Rec;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: WHEN OTHERS THEN
2631: ROLLBACK TO IDSM_Create_Utiz_Rec;
2625: ROLLBACK TO IDSM_Create_Utiz_Rec;
2626: x_return_status := FND_API.G_RET_STS_ERROR;
2627: WHEN FND_API.g_exc_unexpected_error THEN
2628: ROLLBACK TO IDSM_Create_Utiz_Rec;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: WHEN OTHERS THEN
2631: ROLLBACK TO IDSM_Create_Utiz_Rec;
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: IF OZF_UNEXP_ERROR THEN
2628: ROLLBACK TO IDSM_Create_Utiz_Rec;
2629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2630: WHEN OTHERS THEN
2631: ROLLBACK TO IDSM_Create_Utiz_Rec;
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: IF OZF_UNEXP_ERROR THEN
2634: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2635: END IF;
2636: END Create_Utilization_record;
2653: -- NOTES
2654: ---------------------------------------------------------------------
2655: PROCEDURE Create_Adj_And_Utilization(
2656: p_api_version IN NUMBER
2657: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2658: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2659: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2660: ,p_price_adj_rec IN ozf_resale_adjustments_all%rowtype
2661: ,p_act_budgets_rec IN ozf_actbudgets_pvt.act_budgets_rec_type
2654: ---------------------------------------------------------------------
2655: PROCEDURE Create_Adj_And_Utilization(
2656: p_api_version IN NUMBER
2657: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2658: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2659: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2660: ,p_price_adj_rec IN ozf_resale_adjustments_all%rowtype
2661: ,p_act_budgets_rec IN ozf_actbudgets_pvt.act_budgets_rec_type
2662: ,p_act_util_rec IN ozf_actbudgets_pvt.act_util_rec_type
2655: PROCEDURE Create_Adj_And_Utilization(
2656: p_api_version IN NUMBER
2657: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2658: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2659: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2660: ,p_price_adj_rec IN ozf_resale_adjustments_all%rowtype
2661: ,p_act_budgets_rec IN ozf_actbudgets_pvt.act_budgets_rec_type
2662: ,p_act_util_rec IN ozf_actbudgets_pvt.act_util_rec_type
2663: ,p_to_create_utilization IN BOOLEAN
2683: BEGIN
2684: -- Standard BEGIN of API savepoint
2685: SAVEPOINT Create_Adj_And_Utilization;
2686: -- Standard call to check for call compatibility.
2687: IF NOT FND_API.Compatible_API_Call (
2688: l_api_version,
2689: p_api_version,
2690: l_api_name,
2691: G_PKG_NAME)
2689: p_api_version,
2690: l_api_name,
2691: G_PKG_NAME)
2692: THEN
2693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2694: END IF;
2695:
2696: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
2697: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
2693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2694: END IF;
2695:
2696: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
2697: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
2698: FND_MSG_PUB.initialize;
2699: END IF;
2700:
2701: -- Debug Message
2703: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
2704: END IF;
2705:
2706: -- Initialize API return status to sucess
2707: x_return_status := FND_API.G_RET_STS_SUCCESS;
2708:
2709: IF OZF_DEBUG_LOW_ON THEN
2710: OZF_UTILITY_PVT.debug_message('adj_id:' || p_price_adj_rec.resale_adjustment_id ||'line_id:' || p_price_adj_rec.resale_line_id);
2711: IF p_to_create_utilization THEN
2788: WHEN OTHERS THEN
2789: IF OZF_UNEXP_ERROR THEN
2790: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2791: END IF;
2792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2793: END;
2794:
2795: -- Create accrual only when its required
2796: IF p_to_create_utilization THEN
2844: OZF_UTILITY_PVT.debug_message('post to budget: amount:' || p_act_budgets_rec.request_amount);
2845: OZF_UTILITY_PVT.debug_message('x_utilized_amount: '||l_utilized_amount);
2846: END IF;
2847:
2848: IF l_return_status = FND_API.g_ret_sts_error THEN
2849: RAISE FND_API.g_exc_error;
2850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2851: RAISE FND_API.g_exc_unexpected_error;
2852: END IF;
2845: OZF_UTILITY_PVT.debug_message('x_utilized_amount: '||l_utilized_amount);
2846: END IF;
2847:
2848: IF l_return_status = FND_API.g_ret_sts_error THEN
2849: RAISE FND_API.g_exc_error;
2850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2851: RAISE FND_API.g_exc_unexpected_error;
2852: END IF;
2853: -- bug 5391758,5216124
2846: END IF;
2847:
2848: IF l_return_status = FND_API.g_ret_sts_error THEN
2849: RAISE FND_API.g_exc_error;
2850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2851: RAISE FND_API.g_exc_unexpected_error;
2852: END IF;
2853: -- bug 5391758,5216124
2854: IF l_utilized_amount = 0 AND p_act_budgets_rec.request_amount <> 0 THEN
2847:
2848: IF l_return_status = FND_API.g_ret_sts_error THEN
2849: RAISE FND_API.g_exc_error;
2850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2851: RAISE FND_API.g_exc_unexpected_error;
2852: END IF;
2853: -- bug 5391758,5216124
2854: IF l_utilized_amount = 0 AND p_act_budgets_rec.request_amount <> 0 THEN
2855: ozf_utility_pvt.error_message ( 'OZF_COMMAMT_LESS_REQAMT');
2852: END IF;
2853: -- bug 5391758,5216124
2854: IF l_utilized_amount = 0 AND p_act_budgets_rec.request_amount <> 0 THEN
2855: ozf_utility_pvt.error_message ( 'OZF_COMMAMT_LESS_REQAMT');
2856: RAISE fnd_api.g_exc_error;
2857: END IF;
2858:
2859: EXCEPTION
2860: WHEN OTHERS THEN
2860: WHEN OTHERS THEN
2861: IF OZF_UNEXP_ERROR THEN
2862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2863: END IF;
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2865: END;
2866: END IF;
2867:
2868: -- Debug Message
2871: END IF;
2872:
2873: --Standard call to get message count AND IF count=1, get the message
2874: FND_MSG_PUB.Count_And_Get (
2875: p_encoded => FND_API.G_FALSE,
2876: p_count => x_msg_count,
2877: p_data => x_msg_data
2878: );
2879: EXCEPTION
2876: p_count => x_msg_count,
2877: p_data => x_msg_data
2878: );
2879: EXCEPTION
2880: WHEN FND_API.G_EXC_ERROR THEN
2881: ROLLBACK TO Create_Adj_And_Utilization;
2882: x_return_status := FND_API.G_RET_STS_ERROR;
2883: -- Standard call to get message count AND IF count=1, get the message
2884: FND_MSG_PUB.Count_And_Get (
2878: );
2879: EXCEPTION
2880: WHEN FND_API.G_EXC_ERROR THEN
2881: ROLLBACK TO Create_Adj_And_Utilization;
2882: x_return_status := FND_API.G_RET_STS_ERROR;
2883: -- Standard call to get message count AND IF count=1, get the message
2884: FND_MSG_PUB.Count_And_Get (
2885: p_encoded => FND_API.G_FALSE,
2886: p_count => x_msg_count,
2881: ROLLBACK TO Create_Adj_And_Utilization;
2882: x_return_status := FND_API.G_RET_STS_ERROR;
2883: -- Standard call to get message count AND IF count=1, get the message
2884: FND_MSG_PUB.Count_And_Get (
2885: p_encoded => FND_API.G_FALSE,
2886: p_count => x_msg_count,
2887: p_data => x_msg_data
2888: );
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2885: p_encoded => FND_API.G_FALSE,
2886: p_count => x_msg_count,
2887: p_data => x_msg_data
2888: );
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: ROLLBACK TO Create_Adj_And_Utilization;
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: -- Standard call to get message count AND IF count=1, get the message
2893: FND_MSG_PUB.Count_And_Get (
2887: p_data => x_msg_data
2888: );
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: ROLLBACK TO Create_Adj_And_Utilization;
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: -- Standard call to get message count AND IF count=1, get the message
2893: FND_MSG_PUB.Count_And_Get (
2894: p_encoded => FND_API.G_FALSE,
2895: p_count => x_msg_count,
2890: ROLLBACK TO Create_Adj_And_Utilization;
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: -- Standard call to get message count AND IF count=1, get the message
2893: FND_MSG_PUB.Count_And_Get (
2894: p_encoded => FND_API.G_FALSE,
2895: p_count => x_msg_count,
2896: p_data => x_msg_data
2897: );
2898: WHEN OTHERS THEN
2896: p_data => x_msg_data
2897: );
2898: WHEN OTHERS THEN
2899: ROLLBACK TO Create_Adj_And_Utilization;
2900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2901: IF OZF_UNEXP_ERROR THEN
2902: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2903: END IF;
2904: -- Standard call to get message count AND IF count=1, get the message
2902: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2903: END IF;
2904: -- Standard call to get message count AND IF count=1, get the message
2905: FND_MSG_PUB.Count_And_Get (
2906: p_encoded => FND_API.G_FALSE,
2907: p_count => x_msg_count,
2908: p_data => x_msg_data
2909: );
2910: END Create_Adj_And_Utilization;
2922: -- NOTES
2923: ---------------------------------------------------------------------
2924: PROCEDURE Create_Utilization(
2925: p_api_version IN NUMBER
2926: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2927: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2928: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2929: ,p_line_int_rec IN g_interface_rec_csr%ROWTYPE
2930: ,p_fund_id IN NUMBER
2923: ---------------------------------------------------------------------
2924: PROCEDURE Create_Utilization(
2925: p_api_version IN NUMBER
2926: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2927: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2928: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2929: ,p_line_int_rec IN g_interface_rec_csr%ROWTYPE
2930: ,p_fund_id IN NUMBER
2931: ,p_line_id IN NUMBER
2924: PROCEDURE Create_Utilization(
2925: p_api_version IN NUMBER
2926: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
2927: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2928: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2929: ,p_line_int_rec IN g_interface_rec_csr%ROWTYPE
2930: ,p_fund_id IN NUMBER
2931: ,p_line_id IN NUMBER
2932: ,p_cust_account_id IN NUMBER
2983: BEGIN
2984: -- Standard BEGIN of API savepoint
2985: SAVEPOINT IDSM_Create_Utilization;
2986: -- Standard call to check for call compatibility.
2987: IF NOT FND_API.Compatible_API_Call (
2988: l_api_version,
2989: p_api_version,
2990: l_api_name,
2991: G_PKG_NAME)
2989: p_api_version,
2990: l_api_name,
2991: G_PKG_NAME)
2992: THEN
2993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2994: END IF;
2995:
2996: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
2997: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
2993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2994: END IF;
2995:
2996: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
2997: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
2998: FND_MSG_PUB.initialize;
2999: END IF;
3000:
3001: -- Debug Message
3003: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
3004: END IF;
3005:
3006: -- Initialize API return status to sucess
3007: x_return_status := FND_API.G_RET_STS_SUCCESS;
3008:
3009: IF OZF_DEBUG_LOW_ON THEN
3010: OZF_UTILITY_PVT.debug_message('IN create_utilization');
3011: END IF;
3077: ,p_justification => l_justification
3078: ,p_to_create_utilization =>l_to_create_utilization
3079: ,x_return_status => l_return_status
3080: );
3081: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3078: ,p_to_create_utilization =>l_to_create_utilization
3079: ,x_return_status => l_return_status
3080: );
3081: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086: ELSE
3079: ,x_return_status => l_return_status
3080: );
3081: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086: ELSE
3087: -- Go check whether there IS a need to create a reverse utilization
3080: );
3081: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3082: RAISE FND_API.G_EXC_ERROR;
3083: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3085: END IF;
3086: ELSE
3087: -- Go check whether there IS a need to create a reverse utilization
3088: OPEN dup_adj_csr (l_line_int_rec.duplicated_line_id, l_batch_type);
3108: ,p_justification => l_justification
3109: ,p_to_create_utilization =>l_to_create_utilization
3110: ,x_return_status => l_return_status
3111: );
3112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3113: RAISE FND_API.G_EXC_ERROR;
3114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3116: END IF;
3109: ,p_to_create_utilization =>l_to_create_utilization
3110: ,x_return_status => l_return_status
3111: );
3112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3113: RAISE FND_API.G_EXC_ERROR;
3114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3116: END IF;
3117:
3110: ,x_return_status => l_return_status
3111: );
3112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3113: RAISE FND_API.G_EXC_ERROR;
3114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3116: END IF;
3117:
3118: -- We need to reverse the old utilization
3111: );
3112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3113: RAISE FND_API.G_EXC_ERROR;
3114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3116: END IF;
3117:
3118: -- We need to reverse the old utilization
3119: -- Here I need to repopulate the adj related columns.
3166: ,p_justification => l_justification
3167: ,p_to_create_utilization =>l_to_create_utilization
3168: ,x_return_status => l_return_status
3169: );
3170: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3171: RAISE FND_API.G_EXC_ERROR;
3172: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3174: END IF;
3167: ,p_to_create_utilization =>l_to_create_utilization
3168: ,x_return_status => l_return_status
3169: );
3170: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3171: RAISE FND_API.G_EXC_ERROR;
3172: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3174: END IF;
3175: ELSE
3168: ,x_return_status => l_return_status
3169: );
3170: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3171: RAISE FND_API.G_EXC_ERROR;
3172: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3174: END IF;
3175: ELSE
3176: -- This IS a duplicate. No need to create utilization
3169: );
3170: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3171: RAISE FND_API.G_EXC_ERROR;
3172: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3174: END IF;
3175: ELSE
3176: -- This IS a duplicate. No need to create utilization
3177: -- SLKRISHN move update to resale common pvt
3202: ,p_justification => l_justification
3203: ,p_to_create_utilization =>l_to_create_utilization
3204: ,x_return_status => l_return_status
3205: );
3206: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3207: RAISE FND_API.G_EXC_ERROR;
3208: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: END IF;
3203: ,p_to_create_utilization =>l_to_create_utilization
3204: ,x_return_status => l_return_status
3205: );
3206: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3207: RAISE FND_API.G_EXC_ERROR;
3208: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: END IF;
3211: END IF;
3204: ,x_return_status => l_return_status
3205: );
3206: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3207: RAISE FND_API.G_EXC_ERROR;
3208: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: END IF;
3211: END IF;
3212:
3205: );
3206: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3207: RAISE FND_API.G_EXC_ERROR;
3208: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210: END IF;
3211: END IF;
3212:
3213: -- Debug Message
3216: END IF;
3217:
3218: --Standard call to get message count AND IF count=1, get the message
3219: FND_MSG_PUB.Count_And_Get (
3220: p_encoded => FND_API.G_FALSE,
3221: p_count => x_msg_count,
3222: p_data => x_msg_data
3223: );
3224: EXCEPTION
3221: p_count => x_msg_count,
3222: p_data => x_msg_data
3223: );
3224: EXCEPTION
3225: WHEN FND_API.G_EXC_ERROR THEN
3226: ROLLBACK TO IDSM_Create_Utilization;
3227: x_return_status := FND_API.G_RET_STS_ERROR;
3228: -- Standard call to get message count AND IF count=1, get the message
3229: FND_MSG_PUB.Count_And_Get (
3223: );
3224: EXCEPTION
3225: WHEN FND_API.G_EXC_ERROR THEN
3226: ROLLBACK TO IDSM_Create_Utilization;
3227: x_return_status := FND_API.G_RET_STS_ERROR;
3228: -- Standard call to get message count AND IF count=1, get the message
3229: FND_MSG_PUB.Count_And_Get (
3230: p_encoded => FND_API.G_FALSE,
3231: p_count => x_msg_count,
3226: ROLLBACK TO IDSM_Create_Utilization;
3227: x_return_status := FND_API.G_RET_STS_ERROR;
3228: -- Standard call to get message count AND IF count=1, get the message
3229: FND_MSG_PUB.Count_And_Get (
3230: p_encoded => FND_API.G_FALSE,
3231: p_count => x_msg_count,
3232: p_data => x_msg_data
3233: );
3234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3230: p_encoded => FND_API.G_FALSE,
3231: p_count => x_msg_count,
3232: p_data => x_msg_data
3233: );
3234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3235: ROLLBACK TO IDSM_Create_Utilization;
3236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3237: -- Standard call to get message count AND IF count=1, get the message
3238: FND_MSG_PUB.Count_And_Get (
3232: p_data => x_msg_data
3233: );
3234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3235: ROLLBACK TO IDSM_Create_Utilization;
3236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3237: -- Standard call to get message count AND IF count=1, get the message
3238: FND_MSG_PUB.Count_And_Get (
3239: p_encoded => FND_API.G_FALSE,
3240: p_count => x_msg_count,
3235: ROLLBACK TO IDSM_Create_Utilization;
3236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3237: -- Standard call to get message count AND IF count=1, get the message
3238: FND_MSG_PUB.Count_And_Get (
3239: p_encoded => FND_API.G_FALSE,
3240: p_count => x_msg_count,
3241: p_data => x_msg_data
3242: );
3243: WHEN OTHERS THEN
3241: p_data => x_msg_data
3242: );
3243: WHEN OTHERS THEN
3244: ROLLBACK TO IDSM_Create_Utilization;
3245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3246: IF OZF_UNEXP_ERROR THEN
3247: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3248: END IF;
3249: -- Standard call to get message count AND IF count=1, get the message
3247: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3248: END IF;
3249: -- Standard call to get message count AND IF count=1, get the message
3250: FND_MSG_PUB.Count_And_Get (
3251: p_encoded => FND_API.G_FALSE,
3252: p_count => x_msg_count,
3253: p_data => x_msg_data
3254: );
3255: END Create_Utilization;
3270: --
3271: ---------------------------------------------------------------------
3272: PROCEDURE Create_Sales_Transaction(
3273: p_api_version IN NUMBER
3274: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3275: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3276: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3277: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3278: ,p_header_id IN NUMBER
3271: ---------------------------------------------------------------------
3272: PROCEDURE Create_Sales_Transaction(
3273: p_api_version IN NUMBER
3274: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3275: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3276: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3277: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3278: ,p_header_id IN NUMBER
3279: ,p_line_id IN NUMBER
3272: PROCEDURE Create_Sales_Transaction(
3273: p_api_version IN NUMBER
3274: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3275: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3276: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3277: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3278: ,p_header_id IN NUMBER
3279: ,p_line_id IN NUMBER
3280: ,x_sales_transaction_id OUT NOCOPY NUMBER
3310: BEGIN
3311: -- Standard BEGIN of API savepoint
3312: SAVEPOINT Create_Sales_Transaction;
3313: -- Standard call to check for call compatibility.
3314: IF NOT FND_API.Compatible_API_Call (
3315: l_api_version,
3316: p_api_version,
3317: l_api_name,
3318: G_PKG_NAME)
3316: p_api_version,
3317: l_api_name,
3318: G_PKG_NAME)
3319: THEN
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: END IF;
3322:
3323: -- Debug Message
3324: IF OZF_DEBUG_HIGH_ON THEN
3325: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
3326: END IF;
3327:
3328: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
3329: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
3330: FND_MSG_PUB.initialize;
3331: END IF;
3332:
3333: -- Initialize API return status to sucess
3330: FND_MSG_PUB.initialize;
3331: END IF;
3332:
3333: -- Initialize API return status to sucess
3334: x_return_status := FND_API.G_RET_STS_SUCCESS;
3335:
3336: l_sales_transaction_rec.sold_from_cust_account_id :=p_line_int_rec.sold_from_cust_account_id;
3337: OPEN party_id_csr(l_sales_transaction_rec.sold_from_cust_account_id);
3338: FETCH party_id_csr INTO l_sales_transaction_rec.sold_from_party_id;
3370:
3371: -- We need to create sales transactions based on these lines.
3372: OZF_SALES_TRANSACTIONS_PVT.Create_Transaction (
3373: p_api_version => 1.0
3374: ,p_init_msg_list => FND_API.G_FALSE
3375: ,p_commit => FND_API.G_FALSE
3376: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3377: ,p_transaction_rec => l_sales_transaction_rec
3378: ,x_sales_transaction_id => l_sales_transaction_id
3371: -- We need to create sales transactions based on these lines.
3372: OZF_SALES_TRANSACTIONS_PVT.Create_Transaction (
3373: p_api_version => 1.0
3374: ,p_init_msg_list => FND_API.G_FALSE
3375: ,p_commit => FND_API.G_FALSE
3376: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3377: ,p_transaction_rec => l_sales_transaction_rec
3378: ,x_sales_transaction_id => l_sales_transaction_id
3379: ,x_return_status => l_return_status
3372: OZF_SALES_TRANSACTIONS_PVT.Create_Transaction (
3373: p_api_version => 1.0
3374: ,p_init_msg_list => FND_API.G_FALSE
3375: ,p_commit => FND_API.G_FALSE
3376: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3377: ,p_transaction_rec => l_sales_transaction_rec
3378: ,x_sales_transaction_id => l_sales_transaction_id
3379: ,x_return_status => l_return_status
3380: ,x_msg_data => l_msg_data
3379: ,x_return_status => l_return_status
3380: ,x_msg_data => l_msg_data
3381: ,x_msg_count => l_msg_count
3382: );
3383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3387: END IF;
3380: ,x_msg_data => l_msg_data
3381: ,x_msg_count => l_msg_count
3382: );
3383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3387: END IF;
3388: --
3381: ,x_msg_count => l_msg_count
3382: );
3383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3387: END IF;
3388: --
3389:
3382: );
3383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3384: RAISE FND_API.G_EXC_ERROR;
3385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3387: END IF;
3388: --
3389:
3390: -- Debug Message
3393: END IF;
3394:
3395: --Standard call to get message count AND IF count=1, get the message
3396: FND_MSG_PUB.Count_And_Get (
3397: p_encoded => FND_API.G_FALSE,
3398: p_count => x_msg_count,
3399: p_data => x_msg_data
3400: );
3401: EXCEPTION
3398: p_count => x_msg_count,
3399: p_data => x_msg_data
3400: );
3401: EXCEPTION
3402: WHEN FND_API.G_EXC_ERROR THEN
3403: ROLLBACK TO Create_Sales_Transaction;
3404: x_return_status := FND_API.G_RET_STS_ERROR;
3405: -- Standard call to get message count AND IF count=1, get the message
3406: FND_MSG_PUB.Count_And_Get (
3400: );
3401: EXCEPTION
3402: WHEN FND_API.G_EXC_ERROR THEN
3403: ROLLBACK TO Create_Sales_Transaction;
3404: x_return_status := FND_API.G_RET_STS_ERROR;
3405: -- Standard call to get message count AND IF count=1, get the message
3406: FND_MSG_PUB.Count_And_Get (
3407: p_encoded => FND_API.G_FALSE,
3408: p_count => x_msg_count,
3403: ROLLBACK TO Create_Sales_Transaction;
3404: x_return_status := FND_API.G_RET_STS_ERROR;
3405: -- Standard call to get message count AND IF count=1, get the message
3406: FND_MSG_PUB.Count_And_Get (
3407: p_encoded => FND_API.G_FALSE,
3408: p_count => x_msg_count,
3409: p_data => x_msg_data
3410: );
3411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3407: p_encoded => FND_API.G_FALSE,
3408: p_count => x_msg_count,
3409: p_data => x_msg_data
3410: );
3411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3412: ROLLBACK TO Create_Sales_Transaction;
3413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3414: -- Standard call to get message count AND IF count=1, get the message
3415: FND_MSG_PUB.Count_And_Get (
3409: p_data => x_msg_data
3410: );
3411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3412: ROLLBACK TO Create_Sales_Transaction;
3413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3414: -- Standard call to get message count AND IF count=1, get the message
3415: FND_MSG_PUB.Count_And_Get (
3416: p_encoded => FND_API.G_FALSE,
3417: p_count => x_msg_count,
3412: ROLLBACK TO Create_Sales_Transaction;
3413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3414: -- Standard call to get message count AND IF count=1, get the message
3415: FND_MSG_PUB.Count_And_Get (
3416: p_encoded => FND_API.G_FALSE,
3417: p_count => x_msg_count,
3418: p_data => x_msg_data
3419: );
3420: WHEN OTHERS THEN
3418: p_data => x_msg_data
3419: );
3420: WHEN OTHERS THEN
3421: ROLLBACK TO Create_Sales_Transaction;
3422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3423: IF OZF_UNEXP_ERROR THEN
3424: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3425: END IF;
3426: -- Standard call to get message count AND IF count=1, get the message
3424: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3425: END IF;
3426: -- Standard call to get message count AND IF count=1, get the message
3427: FND_MSG_PUB.Count_And_Get (
3428: p_encoded => FND_API.G_FALSE,
3429: p_count => x_msg_count,
3430: p_data => x_msg_data
3431: );
3432: END Create_Sales_Transaction;
3447: --
3448: ---------------------------------------------------------------------
3449: PROCEDURE Insert_Resale_Header(
3450: p_api_version IN NUMBER
3451: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3452: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3453: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3454: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3455: ,x_header_id OUT NOCOPY NUMBER
3448: ---------------------------------------------------------------------
3449: PROCEDURE Insert_Resale_Header(
3450: p_api_version IN NUMBER
3451: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3452: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3453: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3454: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3455: ,x_header_id OUT NOCOPY NUMBER
3456: ,x_return_status OUT NOCOPY VARCHAR2
3449: PROCEDURE Insert_Resale_Header(
3450: p_api_version IN NUMBER
3451: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3452: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3453: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3454: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3455: ,x_header_id OUT NOCOPY NUMBER
3456: ,x_return_status OUT NOCOPY VARCHAR2
3457: ,x_msg_data OUT NOCOPY VARCHAR2
3472: BEGIN
3473: -- Standard BEGIN of API savepoint
3474: SAVEPOINT Insert_Resale_Header;
3475: -- Standard call to check for call compatibility.
3476: IF NOT FND_API.Compatible_API_Call (
3477: l_api_version,
3478: p_api_version,
3479: l_api_name,
3480: G_PKG_NAME)
3478: p_api_version,
3479: l_api_name,
3480: G_PKG_NAME)
3481: THEN
3482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3483: END IF;
3484:
3485: -- Debug Message
3486: IF OZF_DEBUG_HIGH_ON THEN
3487: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
3488: END IF;
3489:
3490: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
3491: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
3492: FND_MSG_PUB.initialize;
3493: END IF;
3494:
3495: -- Initialize API return status to sucess
3492: FND_MSG_PUB.initialize;
3493: END IF;
3494:
3495: -- Initialize API return status to sucess
3496: x_return_status := FND_API.G_RET_STS_SUCCESS;
3497:
3498: -- INSERT the order information to ozf_resale_headers_all
3499: OPEN g_header_id_csr;
3500: FETCH g_header_id_csr INTO l_header_id;
3604: END IF;
3605:
3606: --Standard call to get message count AND IF count=1, get the message
3607: FND_MSG_PUB.Count_And_Get (
3608: p_encoded => FND_API.G_FALSE,
3609: p_count => x_msg_count,
3610: p_data => x_msg_data
3611: );
3612: EXCEPTION
3609: p_count => x_msg_count,
3610: p_data => x_msg_data
3611: );
3612: EXCEPTION
3613: WHEN FND_API.G_EXC_ERROR THEN
3614: ROLLBACK TO Insert_Resale_Header;
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: -- Standard call to get message count AND IF count=1, get the message
3617: FND_MSG_PUB.Count_And_Get (
3611: );
3612: EXCEPTION
3613: WHEN FND_API.G_EXC_ERROR THEN
3614: ROLLBACK TO Insert_Resale_Header;
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: -- Standard call to get message count AND IF count=1, get the message
3617: FND_MSG_PUB.Count_And_Get (
3618: p_encoded => FND_API.G_FALSE,
3619: p_count => x_msg_count,
3614: ROLLBACK TO Insert_Resale_Header;
3615: x_return_status := FND_API.G_RET_STS_ERROR;
3616: -- Standard call to get message count AND IF count=1, get the message
3617: FND_MSG_PUB.Count_And_Get (
3618: p_encoded => FND_API.G_FALSE,
3619: p_count => x_msg_count,
3620: p_data => x_msg_data
3621: );
3622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3618: p_encoded => FND_API.G_FALSE,
3619: p_count => x_msg_count,
3620: p_data => x_msg_data
3621: );
3622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3623: ROLLBACK TO Insert_Resale_Header;
3624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3625: -- Standard call to get message count AND IF count=1, get the message
3626: FND_MSG_PUB.Count_And_Get (
3620: p_data => x_msg_data
3621: );
3622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3623: ROLLBACK TO Insert_Resale_Header;
3624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3625: -- Standard call to get message count AND IF count=1, get the message
3626: FND_MSG_PUB.Count_And_Get (
3627: p_encoded => FND_API.G_FALSE,
3628: p_count => x_msg_count,
3623: ROLLBACK TO Insert_Resale_Header;
3624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3625: -- Standard call to get message count AND IF count=1, get the message
3626: FND_MSG_PUB.Count_And_Get (
3627: p_encoded => FND_API.G_FALSE,
3628: p_count => x_msg_count,
3629: p_data => x_msg_data
3630: );
3631: WHEN OTHERS THEN
3629: p_data => x_msg_data
3630: );
3631: WHEN OTHERS THEN
3632: ROLLBACK TO Insert_Resale_Header;
3633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3634: IF OZF_UNEXP_ERROR THEN
3635: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3636: END IF;
3637: -- Standard call to get message count AND IF count=1, get the message
3635: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3636: END IF;
3637: -- Standard call to get message count AND IF count=1, get the message
3638: FND_MSG_PUB.Count_And_Get (
3639: p_encoded => FND_API.G_FALSE,
3640: p_count => x_msg_count,
3641: p_data => x_msg_data
3642: );
3643: END Insert_Resale_Header;
3657: --
3658: ---------------------------------------------------------------------
3659: PROCEDURE Insert_Resale_Line(
3660: p_api_version IN NUMBER
3661: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3662: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3663: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3664: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3665: ,p_header_id IN NUMBER
3658: ---------------------------------------------------------------------
3659: PROCEDURE Insert_Resale_Line(
3660: p_api_version IN NUMBER
3661: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3662: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3663: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3664: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3665: ,p_header_id IN NUMBER
3666: ,x_line_id OUT NOCOPY NUMBER
3659: PROCEDURE Insert_Resale_Line(
3660: p_api_version IN NUMBER
3661: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3662: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3663: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3664: ,p_line_int_rec IN g_interface_rec_csr%rowtype
3665: ,p_header_id IN NUMBER
3666: ,x_line_id OUT NOCOPY NUMBER
3667: ,x_return_status OUT NOCOPY VARCHAR2
3685: BEGIN
3686: -- Standard BEGIN of API savepoint
3687: SAVEPOINT Insert_Resale_Line;
3688: -- Standard call to check for call compatibility.
3689: IF NOT FND_API.Compatible_API_Call (
3690: l_api_version,
3691: p_api_version,
3692: l_api_name,
3693: G_PKG_NAME)
3691: p_api_version,
3692: l_api_name,
3693: G_PKG_NAME)
3694: THEN
3695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3696: END IF;
3697:
3698: -- Debug Message
3699: IF OZF_DEBUG_HIGH_ON THEN
3700: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
3701: END IF;
3702:
3703: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
3704: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
3705: FND_MSG_PUB.initialize;
3706: END IF;
3707:
3708: -- Initialize API return status to sucess
3705: FND_MSG_PUB.initialize;
3706: END IF;
3707:
3708: -- Initialize API return status to sucess
3709: x_return_status := FND_API.G_RET_STS_SUCCESS;
3710:
3711: OPEN g_line_id_csr;
3712: FETCH g_line_id_csr INTO l_line_id;
3713: CLOSE g_line_id_csr;
3915: END IF;
3916:
3917: --Standard call to get message count AND IF count=1, get the message
3918: FND_MSG_PUB.Count_And_Get (
3919: p_encoded => FND_API.G_FALSE,
3920: p_count => x_msg_count,
3921: p_data => x_msg_data
3922: );
3923: x_return_status := l_return_status;
3921: p_data => x_msg_data
3922: );
3923: x_return_status := l_return_status;
3924: EXCEPTION
3925: WHEN FND_API.G_EXC_ERROR THEN
3926: ROLLBACK TO Insert_Resale_Line;
3927: x_return_status := FND_API.G_RET_STS_ERROR;
3928: -- Standard call to get message count AND IF count=1, get the message
3929: FND_MSG_PUB.Count_And_Get (
3923: x_return_status := l_return_status;
3924: EXCEPTION
3925: WHEN FND_API.G_EXC_ERROR THEN
3926: ROLLBACK TO Insert_Resale_Line;
3927: x_return_status := FND_API.G_RET_STS_ERROR;
3928: -- Standard call to get message count AND IF count=1, get the message
3929: FND_MSG_PUB.Count_And_Get (
3930: p_encoded => FND_API.G_FALSE,
3931: p_count => x_msg_count,
3926: ROLLBACK TO Insert_Resale_Line;
3927: x_return_status := FND_API.G_RET_STS_ERROR;
3928: -- Standard call to get message count AND IF count=1, get the message
3929: FND_MSG_PUB.Count_And_Get (
3930: p_encoded => FND_API.G_FALSE,
3931: p_count => x_msg_count,
3932: p_data => x_msg_data
3933: );
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3930: p_encoded => FND_API.G_FALSE,
3931: p_count => x_msg_count,
3932: p_data => x_msg_data
3933: );
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3935: ROLLBACK TO Insert_Resale_Line;
3936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3937: -- Standard call to get message count AND IF count=1, get the message
3938: FND_MSG_PUB.Count_And_Get (
3932: p_data => x_msg_data
3933: );
3934: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3935: ROLLBACK TO Insert_Resale_Line;
3936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3937: -- Standard call to get message count AND IF count=1, get the message
3938: FND_MSG_PUB.Count_And_Get (
3939: p_encoded => FND_API.G_FALSE,
3940: p_count => x_msg_count,
3935: ROLLBACK TO Insert_Resale_Line;
3936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3937: -- Standard call to get message count AND IF count=1, get the message
3938: FND_MSG_PUB.Count_And_Get (
3939: p_encoded => FND_API.G_FALSE,
3940: p_count => x_msg_count,
3941: p_data => x_msg_data
3942: );
3943: WHEN OTHERS THEN
3941: p_data => x_msg_data
3942: );
3943: WHEN OTHERS THEN
3944: ROLLBACK TO Insert_Resale_Line;
3945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3946: IF OZF_UNEXP_ERROR THEN
3947: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3948: END IF;
3949: -- Standard call to get message count AND IF count=1, get the message
3947: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3948: END IF;
3949: -- Standard call to get message count AND IF count=1, get the message
3950: FND_MSG_PUB.Count_And_Get (
3951: p_encoded => FND_API.G_FALSE,
3952: p_count => x_msg_count,
3953: p_data => x_msg_data
3954: );
3955: END Insert_Resale_Line;
3969: --
3970: ---------------------------------------------------------------------
3971: PROCEDURE Insert_Resale_Line_Mapping(
3972: p_api_version IN NUMBER
3973: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3976: ,p_resale_batch_id IN NUMBER
3977: ,p_line_id IN NUMBER
3970: ---------------------------------------------------------------------
3971: PROCEDURE Insert_Resale_Line_Mapping(
3972: p_api_version IN NUMBER
3973: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3976: ,p_resale_batch_id IN NUMBER
3977: ,p_line_id IN NUMBER
3978: ,x_return_status OUT NOCOPY VARCHAR2
3971: PROCEDURE Insert_Resale_Line_Mapping(
3972: p_api_version IN NUMBER
3973: ,p_init_msg_LIST IN VARCHAR2 := FND_API.G_FALSE
3974: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3975: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3976: ,p_resale_batch_id IN NUMBER
3977: ,p_line_id IN NUMBER
3978: ,x_return_status OUT NOCOPY VARCHAR2
3979: ,x_msg_data OUT NOCOPY VARCHAR2
3995: BEGIN
3996: -- Standard BEGIN of API savepoint
3997: SAVEPOINT Insert_Resale_Line_Mapping;
3998: -- Standard call to check for call compatibility.
3999: IF NOT FND_API.Compatible_API_Call (
4000: l_api_version,
4001: p_api_version,
4002: l_api_name,
4003: G_PKG_NAME)
4001: p_api_version,
4002: l_api_name,
4003: G_PKG_NAME)
4004: THEN
4005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4006: END IF;
4007:
4008: -- Debug Message
4009: IF OZF_DEBUG_HIGH_ON THEN
4010: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
4011: END IF;
4012:
4013: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
4014: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
4015: FND_MSG_PUB.initialize;
4016: END IF;
4017:
4018: -- Initialize API return status to sucess
4015: FND_MSG_PUB.initialize;
4016: END IF;
4017:
4018: -- Initialize API return status to sucess
4019: x_return_status := FND_API.G_RET_STS_SUCCESS;
4020: OPEN g_map_id_csr;
4021: FETCH g_map_id_csr INTO l_map_id;
4022: CLOSE g_map_id_csr;
4023:
4027: CLOSE g_resale_batch_org_id_csr;
4028: l_org_id := MO_GLOBAL.get_valid_org(l_batch_org_id);
4029: IF (l_batch_org_id IS NULL OR l_org_id IS NULL) THEN
4030: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_ORG_ID_NOTFOUND');
4031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4032: END IF;
4033: -- End: bug # 5997978 fixed
4034:
4035: -- INSERT INTO mapping table
4072: END IF;
4073:
4074: --Standard call to get message count AND IF count=1, get the message
4075: FND_MSG_PUB.Count_And_Get (
4076: p_encoded => FND_API.G_FALSE,
4077: p_count => x_msg_count,
4078: p_data => x_msg_data
4079: );
4080: EXCEPTION
4077: p_count => x_msg_count,
4078: p_data => x_msg_data
4079: );
4080: EXCEPTION
4081: WHEN FND_API.G_EXC_ERROR THEN
4082: ROLLBACK TO Insert_Resale_Line_Mapping;
4083: x_return_status := FND_API.G_RET_STS_ERROR;
4084: -- Standard call to get message count AND IF count=1, get the message
4085: FND_MSG_PUB.Count_And_Get (
4079: );
4080: EXCEPTION
4081: WHEN FND_API.G_EXC_ERROR THEN
4082: ROLLBACK TO Insert_Resale_Line_Mapping;
4083: x_return_status := FND_API.G_RET_STS_ERROR;
4084: -- Standard call to get message count AND IF count=1, get the message
4085: FND_MSG_PUB.Count_And_Get (
4086: p_encoded => FND_API.G_FALSE,
4087: p_count => x_msg_count,
4082: ROLLBACK TO Insert_Resale_Line_Mapping;
4083: x_return_status := FND_API.G_RET_STS_ERROR;
4084: -- Standard call to get message count AND IF count=1, get the message
4085: FND_MSG_PUB.Count_And_Get (
4086: p_encoded => FND_API.G_FALSE,
4087: p_count => x_msg_count,
4088: p_data => x_msg_data
4089: );
4090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4086: p_encoded => FND_API.G_FALSE,
4087: p_count => x_msg_count,
4088: p_data => x_msg_data
4089: );
4090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4091: ROLLBACK TO Insert_Resale_Line_Mapping;
4092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4093: -- Standard call to get message count AND IF count=1, get the message
4094: FND_MSG_PUB.Count_And_Get (
4088: p_data => x_msg_data
4089: );
4090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4091: ROLLBACK TO Insert_Resale_Line_Mapping;
4092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4093: -- Standard call to get message count AND IF count=1, get the message
4094: FND_MSG_PUB.Count_And_Get (
4095: p_encoded => FND_API.G_FALSE,
4096: p_count => x_msg_count,
4091: ROLLBACK TO Insert_Resale_Line_Mapping;
4092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4093: -- Standard call to get message count AND IF count=1, get the message
4094: FND_MSG_PUB.Count_And_Get (
4095: p_encoded => FND_API.G_FALSE,
4096: p_count => x_msg_count,
4097: p_data => x_msg_data
4098: );
4099: WHEN OTHERS THEN
4097: p_data => x_msg_data
4098: );
4099: WHEN OTHERS THEN
4100: ROLLBACK TO Insert_Resale_Line_Mapping;
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: IF OZF_UNEXP_ERROR THEN
4103: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4104: END IF;
4105: -- Standard call to get message count AND IF count=1, get the message
4103: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4104: END IF;
4105: -- Standard call to get message count AND IF count=1, get the message
4106: FND_MSG_PUB.Count_And_Get (
4107: p_encoded => FND_API.G_FALSE,
4108: p_count => x_msg_count,
4109: p_data => x_msg_data
4110: );
4111: END Insert_Resale_Line_Mapping;
4124: -- NOTES
4125: -----------------------------------------------------------------------
4126: PROCEDURE Delete_Log(
4127: p_api_version IN NUMBER
4128: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4129: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4130: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4131: ,p_resale_batch_id IN NUMBER
4132: ,x_return_status OUT NOCOPY VARCHAR2
4125: -----------------------------------------------------------------------
4126: PROCEDURE Delete_Log(
4127: p_api_version IN NUMBER
4128: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4129: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4130: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4131: ,p_resale_batch_id IN NUMBER
4132: ,x_return_status OUT NOCOPY VARCHAR2
4133: ,x_msg_data OUT NOCOPY VARCHAR2
4126: PROCEDURE Delete_Log(
4127: p_api_version IN NUMBER
4128: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4129: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4130: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4131: ,p_resale_batch_id IN NUMBER
4132: ,x_return_status OUT NOCOPY VARCHAR2
4133: ,x_msg_data OUT NOCOPY VARCHAR2
4134: ,x_msg_count OUT NOCOPY NUMBER
4145: BEGIN
4146: -- Standard BEGIN of API savepoint
4147: SAVEPOINT Delete_Log;
4148: -- Standard call to check for call compatibility.
4149: IF NOT FND_API.Compatible_API_Call (
4150: l_api_version,
4151: p_api_version,
4152: l_api_name,
4153: G_PKG_NAME)
4151: p_api_version,
4152: l_api_name,
4153: G_PKG_NAME)
4154: THEN
4155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4156: END IF;
4157:
4158: -- Debug Message
4159: IF OZF_DEBUG_HIGH_ON THEN
4160: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
4161: END IF;
4162:
4163: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
4164: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
4165: FND_MSG_PUB.initialize;
4166: END IF;
4167:
4168: -- Initialize API return status to sucess
4165: FND_MSG_PUB.initialize;
4166: END IF;
4167:
4168: -- Initialize API return status to sucess
4169: x_return_status := FND_API.G_RET_STS_SUCCESS;
4170:
4171: -- delete batch logs
4172: DELETE FROM OZF_RESALE_LOGS
4173: WHERE resale_id = p_resale_batch_id
4189: END IF;
4190:
4191: --Standard call to get message count AND IF count=1, get the message
4192: FND_MSG_PUB.Count_And_Get (
4193: p_encoded => FND_API.G_FALSE,
4194: p_count => x_msg_count,
4195: p_data => x_msg_data
4196: );
4197: EXCEPTION
4194: p_count => x_msg_count,
4195: p_data => x_msg_data
4196: );
4197: EXCEPTION
4198: WHEN FND_API.G_EXC_ERROR THEN
4199: ROLLBACK TO Delete_Log;
4200: x_return_status := FND_API.G_RET_STS_ERROR;
4201: -- Standard call to get message count AND IF count=1, get the message
4202: FND_MSG_PUB.Count_And_Get (
4196: );
4197: EXCEPTION
4198: WHEN FND_API.G_EXC_ERROR THEN
4199: ROLLBACK TO Delete_Log;
4200: x_return_status := FND_API.G_RET_STS_ERROR;
4201: -- Standard call to get message count AND IF count=1, get the message
4202: FND_MSG_PUB.Count_And_Get (
4203: p_encoded => FND_API.G_FALSE,
4204: p_count => x_msg_count,
4199: ROLLBACK TO Delete_Log;
4200: x_return_status := FND_API.G_RET_STS_ERROR;
4201: -- Standard call to get message count AND IF count=1, get the message
4202: FND_MSG_PUB.Count_And_Get (
4203: p_encoded => FND_API.G_FALSE,
4204: p_count => x_msg_count,
4205: p_data => x_msg_data
4206: );
4207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4203: p_encoded => FND_API.G_FALSE,
4204: p_count => x_msg_count,
4205: p_data => x_msg_data
4206: );
4207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4208: ROLLBACK TO Delete_Log;
4209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4210: -- Standard call to get message count AND IF count=1, get the message
4211: FND_MSG_PUB.Count_And_Get (
4205: p_data => x_msg_data
4206: );
4207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4208: ROLLBACK TO Delete_Log;
4209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4210: -- Standard call to get message count AND IF count=1, get the message
4211: FND_MSG_PUB.Count_And_Get (
4212: p_encoded => FND_API.G_FALSE,
4213: p_count => x_msg_count,
4208: ROLLBACK TO Delete_Log;
4209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4210: -- Standard call to get message count AND IF count=1, get the message
4211: FND_MSG_PUB.Count_And_Get (
4212: p_encoded => FND_API.G_FALSE,
4213: p_count => x_msg_count,
4214: p_data => x_msg_data
4215: );
4216: WHEN OTHERS THEN
4214: p_data => x_msg_data
4215: );
4216: WHEN OTHERS THEN
4217: ROLLBACK TO Delete_Log;
4218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4219: IF OZF_UNEXP_ERROR THEN
4220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4221: END IF;
4222: -- Standard call to get message count AND IF count=1, get the message
4220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4221: END IF;
4222: -- Standard call to get message count AND IF count=1, get the message
4223: FND_MSG_PUB.Count_And_Get (
4224: p_encoded => FND_API.G_FALSE,
4225: p_count => x_msg_count,
4226: p_data => x_msg_data
4227: );
4228: END Delete_Log;
4243: --
4244: ---------------------------------------------------------------------
4245: PROCEDURE Create_Party
4246: ( p_api_version IN NUMBER
4247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4248: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4249: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4250: ,px_party_rec IN OUT NOCOPY party_rec_type
4251: ,x_return_status OUT NOCOPY VARCHAR2
4244: ---------------------------------------------------------------------
4245: PROCEDURE Create_Party
4246: ( p_api_version IN NUMBER
4247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4248: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4249: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4250: ,px_party_rec IN OUT NOCOPY party_rec_type
4251: ,x_return_status OUT NOCOPY VARCHAR2
4252: ,x_msg_count OUT NOCOPY NUMBER
4245: PROCEDURE Create_Party
4246: ( p_api_version IN NUMBER
4247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4248: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4249: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4250: ,px_party_rec IN OUT NOCOPY party_rec_type
4251: ,x_return_status OUT NOCOPY VARCHAR2
4252: ,x_msg_count OUT NOCOPY NUMBER
4253: ,x_msg_data OUT NOCOPY VARCHAR2
4277: BEGIN
4278: -- Standard BEGIN of API savepoint
4279: SAVEPOINT Party_Create;
4280: -- Standard call to check for call compatibility.
4281: IF NOT FND_API.Compatible_API_Call (
4282: l_api_version,
4283: p_api_version,
4284: l_api_name,
4285: G_PKG_NAME)
4283: p_api_version,
4284: l_api_name,
4285: G_PKG_NAME)
4286: THEN
4287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4288: END IF;
4289:
4290: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
4291: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
4287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4288: END IF;
4289:
4290: --Initialize message LIST IF p_init_msg_LIST IS TRUE.
4291: IF FND_API.To_Boolean (p_init_msg_LIST) THEN
4292: FND_MSG_PUB.initialize;
4293: END IF;
4294:
4295: -- Debug Message
4296: IF OZF_DEBUG_HIGH_ON THEN
4297: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
4298: END IF;
4299:
4300: x_return_status := FND_API.g_ret_sts_success;
4301:
4302: -- Create Organization
4303: IF px_party_rec.name IS NOT NULL THEN
4304: IF OZF_DEBUG_LOW_ON THEN
4312: l_organization_rec.party_rec.status := 'A';
4313: l_organization_rec.application_id := 682;
4314:
4315: HZ_PARTY_V2PUB.create_organization(
4316: p_init_msg_list => FND_API.G_FALSE,
4317: p_organization_rec => l_organization_rec,
4318: x_return_status => x_return_status,
4319: x_msg_count => x_msg_count,
4320: x_msg_data => x_msg_data,
4321: x_party_id => px_party_rec.party_id,
4322: x_party_number => l_party_number,
4323: x_profile_id => l_profile_id);
4324:
4325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4326: RAISE FND_API.G_EXC_ERROR;
4327: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4329: END IF;
4322: x_party_number => l_party_number,
4323: x_profile_id => l_profile_id);
4324:
4325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4326: RAISE FND_API.G_EXC_ERROR;
4327: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4329: END IF;
4330: IF OZF_DEBUG_LOW_ON THEN
4323: x_profile_id => l_profile_id);
4324:
4325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4326: RAISE FND_API.G_EXC_ERROR;
4327: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4329: END IF;
4330: IF OZF_DEBUG_LOW_ON THEN
4331: OZF_UTILITY_PVT.debug_message('Party Id '||px_party_rec.party_id);
4324:
4325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4326: RAISE FND_API.G_EXC_ERROR;
4327: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4329: END IF;
4330: IF OZF_DEBUG_LOW_ON THEN
4331: OZF_UTILITY_PVT.debug_message('Party Id '||px_party_rec.party_id);
4332: END IF;
4345: l_location_rec.created_by_module := 'OZF_RESALE';
4346: -- Bug 4630628 (-)
4347:
4348: HZ_LOCATION_V2PUB.create_location(
4349: p_init_msg_list => FND_API.G_FALSE,
4350: p_location_rec => l_location_rec,
4351: x_return_status => x_return_status,
4352: x_msg_count => x_msg_count,
4353: x_msg_data => x_msg_data,
4352: x_msg_count => x_msg_count,
4353: x_msg_data => x_msg_data,
4354: x_location_id => l_location_id);
4355:
4356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4357: RAISE FND_API.G_EXC_ERROR;
4358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4360: END IF;
4353: x_msg_data => x_msg_data,
4354: x_location_id => l_location_id);
4355:
4356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4357: RAISE FND_API.G_EXC_ERROR;
4358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4360: END IF;
4361: IF OZF_DEBUG_LOW_ON THEN
4354: x_location_id => l_location_id);
4355:
4356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4357: RAISE FND_API.G_EXC_ERROR;
4358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4360: END IF;
4361: IF OZF_DEBUG_LOW_ON THEN
4362: OZF_UTILITY_PVT.debug_message('Location ID '|| l_location_id);
4355:
4356: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4357: RAISE FND_API.G_EXC_ERROR;
4358: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4360: END IF;
4361: IF OZF_DEBUG_LOW_ON THEN
4362: OZF_UTILITY_PVT.debug_message('Location ID '|| l_location_id);
4363: END IF;
4376: l_party_site_rec.created_by_module := 'OZF_RESALE';
4377: -- Bug 4630628 (-)
4378:
4379: HZ_PARTY_SITE_V2PUB.create_party_site (
4380: p_init_msg_list => FND_API.G_FALSE,
4381: p_party_site_rec => l_party_site_rec,
4382: x_return_status => x_return_status,
4383: x_msg_count => x_msg_count,
4384: x_msg_data => x_msg_data,
4384: x_msg_data => x_msg_data,
4385: x_party_site_id => px_party_rec.party_site_id,
4386: x_party_site_number=> l_party_site_number);
4387:
4388: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4389: RAISE FND_API.G_EXC_ERROR;
4390: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: END IF;
4385: x_party_site_id => px_party_rec.party_site_id,
4386: x_party_site_number=> l_party_site_number);
4387:
4388: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4389: RAISE FND_API.G_EXC_ERROR;
4390: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: END IF;
4393: IF OZF_DEBUG_LOW_ON THEN
4386: x_party_site_number=> l_party_site_number);
4387:
4388: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4389: RAISE FND_API.G_EXC_ERROR;
4390: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: END IF;
4393: IF OZF_DEBUG_LOW_ON THEN
4394: OZF_UTILITY_PVT.debug_message('Party Site ID '|| px_party_rec.party_site_id);
4387:
4388: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4389: RAISE FND_API.G_EXC_ERROR;
4390: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4392: END IF;
4393: IF OZF_DEBUG_LOW_ON THEN
4394: OZF_UTILITY_PVT.debug_message('Party Site ID '|| px_party_rec.party_site_id);
4395: END IF;
4405: -- Bug 4630628 (-)
4406: l_party_site_use_rec.application_id := 682;
4407:
4408:
4409: IF (px_party_rec.site_use_code is null OR px_party_rec.site_use_code = FND_API.G_MISS_CHAR) THEN
4410: l_party_site_use_rec.site_use_type := 'BILL_TO';
4411: ELSE
4412: l_party_site_use_rec.site_use_type := px_party_rec.site_use_code; -- 'BILL_TO';
4413: END IF;
4412: l_party_site_use_rec.site_use_type := px_party_rec.site_use_code; -- 'BILL_TO';
4413: END IF;
4414:
4415: HZ_PARTY_SITE_V2PUB.create_party_site_use(
4416: p_init_msg_list => FND_API.G_FALSE,
4417: p_party_site_use_rec => l_party_site_use_rec,
4418: x_return_status => x_return_status,
4419: x_msg_count => x_msg_count,
4420: x_msg_data => x_msg_data,
4419: x_msg_count => x_msg_count,
4420: x_msg_data => x_msg_data,
4421: x_party_site_use_id => px_party_rec.party_site_use_id
4422: );
4423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4424: RAISE FND_API.G_EXC_ERROR;
4425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4427: END IF;
4420: x_msg_data => x_msg_data,
4421: x_party_site_use_id => px_party_rec.party_site_use_id
4422: );
4423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4424: RAISE FND_API.G_EXC_ERROR;
4425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4427: END IF;
4428: IF OZF_DEBUG_LOW_ON THEN
4421: x_party_site_use_id => px_party_rec.party_site_use_id
4422: );
4423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4424: RAISE FND_API.G_EXC_ERROR;
4425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4427: END IF;
4428: IF OZF_DEBUG_LOW_ON THEN
4429: OZF_UTILITY_PVT.debug_message('Party Site Use ID '|| px_party_rec.party_site_use_id);
4422: );
4423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4424: RAISE FND_API.G_EXC_ERROR;
4425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4427: END IF;
4428: IF OZF_DEBUG_LOW_ON THEN
4429: OZF_UTILITY_PVT.debug_message('Party Site Use ID '|| px_party_rec.party_site_use_id);
4430: END IF;
4451: l_relationship_rec.status := 'A';
4452:
4453:
4454: HZ_RELATIONSHIP_V2PUB.create_relationship(
4455: p_init_msg_list => FND_API.G_FALSE,
4456: p_relationship_rec => l_relationship_rec,
4457: x_relationship_id => l_relationship_id,
4458: x_party_id => l_party_id,
4459: x_party_number => l_party_no,
4461: x_msg_count => x_msg_count,
4462: x_msg_data => x_msg_data,
4463: p_create_org_contact => 'Y'
4464: );
4465: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4469: END IF;
4462: x_msg_data => x_msg_data,
4463: p_create_org_contact => 'Y'
4464: );
4465: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4469: END IF;
4470: IF OZF_DEBUG_LOW_ON THEN
4463: p_create_org_contact => 'Y'
4464: );
4465: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4469: END IF;
4470: IF OZF_DEBUG_LOW_ON THEN
4471: OZF_UTILITY_PVT.debug_message('Relationship ID '|| l_relationship_id);
4464: );
4465: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4469: END IF;
4470: IF OZF_DEBUG_LOW_ON THEN
4471: OZF_UTILITY_PVT.debug_message('Relationship ID '|| l_relationship_id);
4472: END IF;
4479: OZF_UTILITY_PVT.debug_message(l_full_name||': End');
4480: END IF;
4481: --Standard call to get message count AND IF count=1, get the message
4482: FND_MSG_PUB.Count_And_Get (
4483: p_encoded => FND_API.G_FALSE,
4484: p_count => x_msg_count,
4485: p_data => x_msg_data);
4486:
4487: EXCEPTION
4484: p_count => x_msg_count,
4485: p_data => x_msg_data);
4486:
4487: EXCEPTION
4488: WHEN FND_API.G_EXC_ERROR THEN
4489: x_return_status := FND_API.G_RET_STS_ERROR;
4490: -- Standard call to get message count and if count=1, get the message
4491: FND_MSG_PUB.Count_And_Get (
4492: p_encoded => FND_API.G_FALSE,
4485: p_data => x_msg_data);
4486:
4487: EXCEPTION
4488: WHEN FND_API.G_EXC_ERROR THEN
4489: x_return_status := FND_API.G_RET_STS_ERROR;
4490: -- Standard call to get message count and if count=1, get the message
4491: FND_MSG_PUB.Count_And_Get (
4492: p_encoded => FND_API.G_FALSE,
4493: p_count => x_msg_count,
4488: WHEN FND_API.G_EXC_ERROR THEN
4489: x_return_status := FND_API.G_RET_STS_ERROR;
4490: -- Standard call to get message count and if count=1, get the message
4491: FND_MSG_PUB.Count_And_Get (
4492: p_encoded => FND_API.G_FALSE,
4493: p_count => x_msg_count,
4494: p_data => x_msg_data
4495: );
4496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4492: p_encoded => FND_API.G_FALSE,
4493: p_count => x_msg_count,
4494: p_data => x_msg_data
4495: );
4496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4498: -- Standard call to get message count and if count=1, get the message
4499: FND_MSG_PUB.Count_And_Get (
4500: p_encoded => FND_API.G_FALSE,
4493: p_count => x_msg_count,
4494: p_data => x_msg_data
4495: );
4496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4498: -- Standard call to get message count and if count=1, get the message
4499: FND_MSG_PUB.Count_And_Get (
4500: p_encoded => FND_API.G_FALSE,
4501: p_count => x_msg_count,
4496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4498: -- Standard call to get message count and if count=1, get the message
4499: FND_MSG_PUB.Count_And_Get (
4500: p_encoded => FND_API.G_FALSE,
4501: p_count => x_msg_count,
4502: p_data => x_msg_data
4503: );
4504: WHEN OTHERS THEN
4503: );
4504: WHEN OTHERS THEN
4505: OZF_UTILITY_PVT.debug_message('SQLERRM '|| sqlerrm);
4506:
4507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4508: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4509: THEN
4510: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4511: END IF;
4510: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4511: END IF;
4512: -- Standard call to get message count and if count=1, get the message
4513: FND_MSG_PUB.Count_And_Get (
4514: p_encoded => FND_API.G_FALSE,
4515: p_count => x_msg_count,
4516: p_data => x_msg_data
4517: );
4518: END Create_Party;
4559: IF OZF_DEBUG_HIGH_ON THEN
4560: ozf_utility_pvt.debug_message(l_full_name||': start');
4561: END IF;
4562:
4563: IF NOT FND_API.Compatible_API_Call (
4564: l_api_version,
4565: p_api_version,
4566: l_api_name,
4567: G_PKG_NAME)
4565: p_api_version,
4566: l_api_name,
4567: G_PKG_NAME)
4568: THEN
4569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4570: END IF;
4571:
4572: --Initialize message list if p_init_msg_list is TRUE.
4573: IF FND_API.To_Boolean (p_init_msg_list) THEN
4569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4570: END IF;
4571:
4572: --Initialize message list if p_init_msg_list is TRUE.
4573: IF FND_API.To_Boolean (p_init_msg_list) THEN
4574: FND_MSG_PUB.initialize;
4575: END IF;
4576:
4577: x_return_status := FND_API.G_RET_STS_SUCCESS;
4573: IF FND_API.To_Boolean (p_init_msg_list) THEN
4574: FND_MSG_PUB.initialize;
4575: END IF;
4576:
4577: x_return_status := FND_API.G_RET_STS_SUCCESS;
4578:
4579: IF p_caller_type = 'IFACE' AND
4580: p_resale_line_int_rec.resale_line_int_id IS NULL THEN
4581: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4581: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4582: FND_MESSAGE.set_name('OZF', 'OZF_RESALE_INT_RECD_NULL');
4583: FND_MSG_PUB.add;
4584: END IF;
4585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4586: END IF;
4587:
4588: IF p_caller_type = 'RESALE' AND
4589: p_resale_line_rec.resale_line_id IS NULL THEN
4590: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4591: FND_MESSAGE.set_name('OZF', 'OZF_RESALE_RECD_NULL');
4592: FND_MSG_PUB.add;
4593: END IF;
4594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4595: END IF;
4596:
4597: l_qp_context_request_id := QP_Price_Request_Context.Get_Request_Id;
4598:
4718: END IF;
4719:
4720:
4721: FND_MSG_PUB.Count_And_Get (
4722: p_encoded => FND_API.G_FALSE,
4723: p_count => x_msg_count,
4724: p_data => x_msg_data
4725: );
4726:
4728: IF OZF_DEBUG_HIGH_ON THEN
4729: ozf_utility_pvt.debug_message(l_full_name||': end');
4730: END IF;
4731: EXCEPTION
4732: WHEN FND_API.G_EXC_ERROR THEN
4733: x_return_status := FND_API.G_RET_STS_ERROR;
4734: FND_MSG_PUB.Count_And_Get (
4735: p_encoded => FND_API.G_FALSE,
4736: p_count => x_msg_count,
4729: ozf_utility_pvt.debug_message(l_full_name||': end');
4730: END IF;
4731: EXCEPTION
4732: WHEN FND_API.G_EXC_ERROR THEN
4733: x_return_status := FND_API.G_RET_STS_ERROR;
4734: FND_MSG_PUB.Count_And_Get (
4735: p_encoded => FND_API.G_FALSE,
4736: p_count => x_msg_count,
4737: p_data => x_msg_data
4731: EXCEPTION
4732: WHEN FND_API.G_EXC_ERROR THEN
4733: x_return_status := FND_API.G_RET_STS_ERROR;
4734: FND_MSG_PUB.Count_And_Get (
4735: p_encoded => FND_API.G_FALSE,
4736: p_count => x_msg_count,
4737: p_data => x_msg_data
4738: );
4739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4735: p_encoded => FND_API.G_FALSE,
4736: p_count => x_msg_count,
4737: p_data => x_msg_data
4738: );
4739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4741: FND_MSG_PUB.Count_And_Get (
4742: p_encoded => FND_API.G_FALSE,
4743: p_count => x_msg_count,
4736: p_count => x_msg_count,
4737: p_data => x_msg_data
4738: );
4739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4741: FND_MSG_PUB.Count_And_Get (
4742: p_encoded => FND_API.G_FALSE,
4743: p_count => x_msg_count,
4744: p_data => x_msg_data
4738: );
4739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4741: FND_MSG_PUB.Count_And_Get (
4742: p_encoded => FND_API.G_FALSE,
4743: p_count => x_msg_count,
4744: p_data => x_msg_data
4745: );
4746: WHEN OTHERS THEN
4743: p_count => x_msg_count,
4744: p_data => x_msg_data
4745: );
4746: WHEN OTHERS THEN
4747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4748: FND_MSG_PUB.Count_And_Get (
4749: p_encoded => FND_API.G_FALSE,
4750: p_count => x_msg_count,
4751: p_data => x_msg_data
4745: );
4746: WHEN OTHERS THEN
4747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4748: FND_MSG_PUB.Count_And_Get (
4749: p_encoded => FND_API.G_FALSE,
4750: p_count => x_msg_count,
4751: p_data => x_msg_data
4752: );
4753: END Build_Global_Resale_Rec;