29: -- Parameters
30: --
31: -- IN
32: -- p_api_version_number IN NUMBER Required
33: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
34: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
35: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
36: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
37: --
30: --
31: -- IN
32: -- p_api_version_number IN NUMBER Required
33: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
34: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
35: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
36: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
37: --
38: -- OUT
31: -- IN
32: -- p_api_version_number IN NUMBER Required
33: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
34: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
35: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
36: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
37: --
38: -- OUT
39: -- x_return_status OUT VARCHAR2
45: -- ==============================================================================
46:
47: PROCEDURE Notify_OutboundPricelists(
48: p_api_version IN NUMBER
49: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
50: , p_commit IN VARCHAR2 := FND_API.G_FALSE
51: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
52: , x_return_status OUT NOCOPY VARCHAR2
53: , x_msg_count OUT NOCOPY NUMBER
46:
47: PROCEDURE Notify_OutboundPricelists(
48: p_api_version IN NUMBER
49: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
50: , p_commit IN VARCHAR2 := FND_API.G_FALSE
51: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
52: , x_return_status OUT NOCOPY VARCHAR2
53: , x_msg_count OUT NOCOPY NUMBER
54: , x_msg_data OUT NOCOPY VARCHAR2
47: PROCEDURE Notify_OutboundPricelists(
48: p_api_version IN NUMBER
49: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
50: , p_commit IN VARCHAR2 := FND_API.G_FALSE
51: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
52: , x_return_status OUT NOCOPY VARCHAR2
53: , x_msg_count OUT NOCOPY NUMBER
54: , x_msg_data OUT NOCOPY VARCHAR2
55: , p_pl_notify_hdr_rec IN OUT NOCOPY dpp_pl_notify_rec_type
130:
131: BEGIN
132:
133: -- Standard call to check for call compatibility.
134: IF NOT FND_API.Compatible_API_Call ( l_api_version,
135: p_api_version,
136: l_api_name,
137: G_PKG_NAME)
138: THEN
135: p_api_version,
136: l_api_name,
137: G_PKG_NAME)
138: THEN
139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140: END IF;
141: -- Initialize message list if p_init_msg_list is set to TRUE.
142: IF FND_API.to_Boolean( p_init_msg_list )
143: THEN
138: THEN
139: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140: END IF;
141: -- Initialize message list if p_init_msg_list is set to TRUE.
142: IF FND_API.to_Boolean( p_init_msg_list )
143: THEN
144: FND_MSG_PUB.initialize;
145: END IF;
146:
148: IF g_debug THEN
149: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
150: END IF;
151: -- Initialize API return status to sucess
152: l_return_status := FND_API.G_RET_STS_SUCCESS;
153: --
154: -- API body
155: --
156: IF l_pl_notify_hdr_rec.vendor_id IS NULL THEN
159: END IF;
160: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
161: FND_MESSAGE.set_token('ID', 'Vendor ID');
162: FND_MSG_PUB.add;
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_pl_notify_hdr_rec.vendor_site_id IS NULL THEN
165: IF g_debug THEN
166: DPP_Utility_PVT.debug_message('Vendor Site ID cannot be NULL');
167: END IF;
167: END IF;
168: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
169: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
170: FND_MSG_PUB.add;
171: RAISE FND_API.G_EXC_ERROR;
172: ELSE
173: FOR get_vendor_rec IN get_vendor_csr(p_pl_notify_hdr_rec.vendor_id)
174: LOOP
175:
204: END IF;
205: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
206: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
207: FND_MSG_PUB.add;
208: RAISE FND_API.G_EXC_ERROR;
209:
210: ELSE
211: OPEN get_pricelist_csr(l_pl_notify_line_tbl(i).inventory_item_id, l_pl_notify_hdr_rec.org_id);
212: LOOP
250: x_return_status := l_return_status;
251:
252: EXCEPTION
253:
254: WHEN FND_API.G_EXC_ERROR THEN
255:
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
252: EXCEPTION
253:
254: WHEN FND_API.G_EXC_ERROR THEN
255:
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
259: p_encoded => FND_API.G_FALSE,
260: p_count => x_msg_count,
255:
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
259: p_encoded => FND_API.G_FALSE,
260: p_count => x_msg_count,
261: p_data => x_msg_data
262: );
263: IF x_msg_count > 1 THEN
266: END LOOP;
267: END IF;
268:
269:
270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
271:
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: -- Standard call to get message count and if count=1, get the message
274: FND_MSG_PUB.Count_And_Get (
268:
269:
270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
271:
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: -- Standard call to get message count and if count=1, get the message
274: FND_MSG_PUB.Count_And_Get (
275: p_encoded => FND_API.G_FALSE,
276: p_count => x_msg_count,
271:
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: -- Standard call to get message count and if count=1, get the message
274: FND_MSG_PUB.Count_And_Get (
275: p_encoded => FND_API.G_FALSE,
276: p_count => x_msg_count,
277: p_data => x_msg_data
278: );
279: IF x_msg_count > 1 THEN
284:
285:
286: WHEN OTHERS THEN
287:
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
290: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
291: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_OutboundPricelists');
292: fnd_message.set_token('ERRNO', sqlcode);
293: fnd_message.set_token('REASON', sqlerrm);
294: END IF;
295: -- Standard call to get message count and if count=1, get the message
296: FND_MSG_PUB.Count_And_Get (
297: p_encoded => FND_API.G_FALSE,
298: p_count => x_msg_count,
299: p_data => x_msg_data
300: );
301: IF x_msg_count > 1 THEN
317: -- Parameters
318: --
319: -- IN
320: -- p_api_version_number IN NUMBER Required
321: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
322: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
323: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
324: -- p_pl_notify_hdr_rec IN OUT dpp_pl_notify_rec_type Required
325: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
318: --
319: -- IN
320: -- p_api_version_number IN NUMBER Required
321: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
322: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
323: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
324: -- p_pl_notify_hdr_rec IN OUT dpp_pl_notify_rec_type Required
325: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
326: --
319: -- IN
320: -- p_api_version_number IN NUMBER Required
321: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
322: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
323: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
324: -- p_pl_notify_hdr_rec IN OUT dpp_pl_notify_rec_type Required
325: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
326: --
327: -- OUT
334: -- ==============================================================================
335:
336: PROCEDURE Notify_InboundPricelists(
337: p_api_version IN NUMBER
338: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
339: , p_commit IN VARCHAR2 := FND_API.G_FALSE
340: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
341: , x_return_status OUT NOCOPY VARCHAR2
342: , x_msg_count OUT NOCOPY NUMBER
335:
336: PROCEDURE Notify_InboundPricelists(
337: p_api_version IN NUMBER
338: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
339: , p_commit IN VARCHAR2 := FND_API.G_FALSE
340: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
341: , x_return_status OUT NOCOPY VARCHAR2
342: , x_msg_count OUT NOCOPY NUMBER
343: , x_msg_data OUT NOCOPY VARCHAR2
336: PROCEDURE Notify_InboundPricelists(
337: p_api_version IN NUMBER
338: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
339: , p_commit IN VARCHAR2 := FND_API.G_FALSE
340: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
341: , x_return_status OUT NOCOPY VARCHAR2
342: , x_msg_count OUT NOCOPY NUMBER
343: , x_msg_data OUT NOCOPY VARCHAR2
344: , p_pl_notify_hdr_rec IN OUT NOCOPY dpp_pl_notify_rec_type
436:
437: BEGIN
438:
439: -- Standard call to check for call compatibility.
440: IF NOT FND_API.Compatible_API_Call ( l_api_version,
441: p_api_version,
442: l_api_name,
443: G_PKG_NAME)
444: THEN
441: p_api_version,
442: l_api_name,
443: G_PKG_NAME)
444: THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447: -- Initialize message list if p_init_msg_list is set to TRUE.
448: IF FND_API.to_Boolean( p_init_msg_list )
449: THEN
444: THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447: -- Initialize message list if p_init_msg_list is set to TRUE.
448: IF FND_API.to_Boolean( p_init_msg_list )
449: THEN
450: FND_MSG_PUB.initialize;
451: END IF;
452:
454: IF g_debug THEN
455: DPP_UTILITY_PVT.debug_message('Private API: ' || l_full_name || 'start');
456: END IF;
457: -- Initialize API return status to sucess
458: x_return_status := FND_API.G_RET_STS_SUCCESS;
459:
460: --
461: -- API body
462: --
466: END IF;
467: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
468: FND_MESSAGE.set_token('ID', 'Vendor ID');
469: FND_MSG_PUB.add;
470: RAISE FND_API.G_EXC_ERROR;
471: ELSIF l_pl_notify_hdr_rec.vendor_site_id IS NULL THEN
472: IF g_debug THEN
473: DPP_Utility_PVT.debug_message('Vendor Site ID cannot be NULL');
474: END IF;
474: END IF;
475: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
476: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
477: FND_MSG_PUB.add;
478: RAISE FND_API.G_EXC_ERROR;
479: ELSE
480: FOR get_vendor_rec IN get_vendor_csr(p_pl_notify_hdr_rec.vendor_id)
481: LOOP
482:
509: END IF;
510: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
511: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
512: FND_MSG_PUB.add;
513: RAISE FND_API.G_EXC_ERROR;
514:
515: ELSE
516:
517: OPEN get_pricelist_csr(l_pl_notify_line_tbl(i).inventory_item_id, l_pl_notify_hdr_rec.vendor_id,l_pl_notify_hdr_rec.vendor_site_id, l_pl_notify_hdr_rec.org_id);
555: );
556:
557: EXCEPTION
558:
559: WHEN FND_API.G_EXC_ERROR THEN
560:
561: x_return_status := FND_API.G_RET_STS_ERROR;
562: -- Standard call to get message count and if count=1, get the message
563: FND_MSG_PUB.Count_And_Get (
557: EXCEPTION
558:
559: WHEN FND_API.G_EXC_ERROR THEN
560:
561: x_return_status := FND_API.G_RET_STS_ERROR;
562: -- Standard call to get message count and if count=1, get the message
563: FND_MSG_PUB.Count_And_Get (
564: p_encoded => FND_API.G_FALSE,
565: p_count => x_msg_count,
560:
561: x_return_status := FND_API.G_RET_STS_ERROR;
562: -- Standard call to get message count and if count=1, get the message
563: FND_MSG_PUB.Count_And_Get (
564: p_encoded => FND_API.G_FALSE,
565: p_count => x_msg_count,
566: p_data => x_msg_data
567: );
568: IF x_msg_count > 1 THEN
570: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
571: END LOOP;
572: END IF;
573:
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575:
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: -- Standard call to get message count and if count=1, get the message
578: FND_MSG_PUB.Count_And_Get (
572: END IF;
573:
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575:
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: -- Standard call to get message count and if count=1, get the message
578: FND_MSG_PUB.Count_And_Get (
579: p_encoded => FND_API.G_FALSE,
580: p_count => x_msg_count,
575:
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: -- Standard call to get message count and if count=1, get the message
578: FND_MSG_PUB.Count_And_Get (
579: p_encoded => FND_API.G_FALSE,
580: p_count => x_msg_count,
581: p_data => x_msg_data
582: );
583: IF x_msg_count > 1 THEN
587: END IF;
588:
589: WHEN OTHERS THEN
590:
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
593: THEN
594: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
595: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_InboundPricelists');
599: DPP_UTILITY_PVT.debug_message('Error in notify inbound pricelists: '||SQLERRM);
600: END IF;
601: -- Standard call to get message count and if count=1, get the message
602: FND_MSG_PUB.Count_And_Get (
603: p_encoded => FND_API.G_FALSE,
604: p_count => x_msg_count,
605: p_data => x_msg_data
606: );
607: IF x_msg_count > 1 THEN
622: -- Parameters
623: --
624: -- IN
625: -- p_api_version_number IN NUMBER Required
626: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
627: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
628: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
629: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
630: --
623: --
624: -- IN
625: -- p_api_version_number IN NUMBER Required
626: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
627: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
628: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
629: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
630: --
631: -- OUT
624: -- IN
625: -- p_api_version_number IN NUMBER Required
626: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
627: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
628: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
629: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
630: --
631: -- OUT
632: -- x_return_status OUT VARCHAR2
638: -- ==============================================================================
639:
640: PROCEDURE Notify_Promotions(
641: p_api_version IN NUMBER
642: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
643: , p_commit IN VARCHAR2 := FND_API.G_FALSE
644: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
645: , x_return_status OUT NOCOPY VARCHAR2
646: , x_msg_count OUT NOCOPY NUMBER
639:
640: PROCEDURE Notify_Promotions(
641: p_api_version IN NUMBER
642: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
643: , p_commit IN VARCHAR2 := FND_API.G_FALSE
644: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
645: , x_return_status OUT NOCOPY VARCHAR2
646: , x_msg_count OUT NOCOPY NUMBER
647: , x_msg_data OUT NOCOPY VARCHAR2
640: PROCEDURE Notify_Promotions(
641: p_api_version IN NUMBER
642: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
643: , p_commit IN VARCHAR2 := FND_API.G_FALSE
644: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
645: , x_return_status OUT NOCOPY VARCHAR2
646: , x_msg_count OUT NOCOPY NUMBER
647: , x_msg_data OUT NOCOPY VARCHAR2
648: , p_pl_notify_hdr_rec IN OUT NOCOPY dpp_pl_notify_rec_type
748:
749: BEGIN
750:
751: -- Standard call to check for call compatibility.
752: IF NOT FND_API.Compatible_API_Call ( l_api_version,
753: p_api_version,
754: l_api_name,
755: G_PKG_NAME)
756: THEN
753: p_api_version,
754: l_api_name,
755: G_PKG_NAME)
756: THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: END IF;
759: -- Initialize message list if p_init_msg_list is set to TRUE.
760: IF FND_API.to_Boolean( p_init_msg_list )
761: THEN
756: THEN
757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: END IF;
759: -- Initialize message list if p_init_msg_list is set to TRUE.
760: IF FND_API.to_Boolean( p_init_msg_list )
761: THEN
762: FND_MSG_PUB.initialize;
763: END IF;
764:
766: IF g_debug THEN
767: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
768: END IF;
769: -- Initialize API return status to sucess
770: x_return_status := FND_API.G_RET_STS_SUCCESS;
771:
772: --
773: -- API body
774: --
779: END IF;
780: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
781: FND_MESSAGE.set_token('ID', 'Vendor ID');
782: FND_MSG_PUB.add;
783: RAISE FND_API.G_EXC_ERROR;
784: ELSIF l_pl_notify_hdr_rec.vendor_site_id IS NULL THEN
785: IF g_debug THEN
786: DPP_Utility_PVT.debug_message('Vendor Site ID cannot be NULL');
787: END IF;
787: END IF;
788: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
789: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
790: FND_MSG_PUB.add;
791: RAISE FND_API.G_EXC_ERROR;
792: ELSIF l_pl_notify_hdr_rec.org_id IS NULL THEN
793: IF g_debug THEN
794: DPP_Utility_PVT.debug_message('Org ID cannot be NULL');
795: END IF;
795: END IF;
796: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
797: FND_MESSAGE.set_token('ID', 'Org ID');
798: FND_MSG_PUB.add;
799: RAISE FND_API.G_EXC_ERROR;
800: ELSE
801: FOR get_vendor_rec IN get_vendor_csr(p_pl_notify_hdr_rec.vendor_id) LOOP
802: p_pl_notify_hdr_rec.vendor_name := get_vendor_rec.vendor_name;
803: p_pl_notify_hdr_rec.vendor_number := get_vendor_rec.vendor_num;
819: END IF;
820: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
821: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
822: FND_MSG_PUB.add;
823: RAISE FND_API.G_EXC_ERROR;
824: ELSE
825: FOR get_item_number_rec IN get_item_number_csr(l_pl_notify_line_tbl(i).Inventory_Item_ID) LOOP
826: l_pl_notify_line_tbl(i).Item_Number := get_item_number_rec.concatenated_segments ;
827: END LOOP;
844: END IF;
845: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
846: FND_MESSAGE.set_token('ID', 'Line Details');
847: FND_MSG_PUB.add;
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850: END IF;
851:
852: --Reassign the local variable to the out variable
865: p_data => x_msg_data
866: );
867: EXCEPTION
868:
869: WHEN FND_API.G_EXC_ERROR THEN
870:
871: x_return_status := FND_API.G_RET_STS_ERROR;
872: -- Standard call to get message count and if count=1, get the message
873: FND_MSG_PUB.Count_And_Get (
867: EXCEPTION
868:
869: WHEN FND_API.G_EXC_ERROR THEN
870:
871: x_return_status := FND_API.G_RET_STS_ERROR;
872: -- Standard call to get message count and if count=1, get the message
873: FND_MSG_PUB.Count_And_Get (
874: p_encoded => FND_API.G_FALSE,
875: p_count => x_msg_count,
870:
871: x_return_status := FND_API.G_RET_STS_ERROR;
872: -- Standard call to get message count and if count=1, get the message
873: FND_MSG_PUB.Count_And_Get (
874: p_encoded => FND_API.G_FALSE,
875: p_count => x_msg_count,
876: p_data => x_msg_data
877: );
878: IF x_msg_count > 1 THEN
881: END LOOP;
882: END IF;
883:
884:
885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
886:
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: -- Standard call to get message count and if count=1, get the message
889: FND_MSG_PUB.Count_And_Get (
883:
884:
885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
886:
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: -- Standard call to get message count and if count=1, get the message
889: FND_MSG_PUB.Count_And_Get (
890: p_encoded => FND_API.G_FALSE,
891: p_count => x_msg_count,
886:
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: -- Standard call to get message count and if count=1, get the message
889: FND_MSG_PUB.Count_And_Get (
890: p_encoded => FND_API.G_FALSE,
891: p_count => x_msg_count,
892: p_data => x_msg_data
893: );
894: IF x_msg_count > 1 THEN
898: END IF;
899:
900: WHEN OTHERS THEN
901:
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
904: THEN
905: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
906: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_Promotions');
910: DPP_UTILITY_PVT.debug_message('Error in notify promotions: '||SQLERRM);
911: END IF;
912: -- Standard call to get message count and if count=1, get the message
913: FND_MSG_PUB.Count_And_Get (
914: p_encoded => FND_API.G_FALSE,
915: p_count => x_msg_count,
916: p_data => x_msg_data
917: );
918: IF x_msg_count > 1 THEN