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:
147:
148: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
149:
150: -- Initialize API return status to sucess
151: l_return_status := FND_API.G_RET_STS_SUCCESS;
152: --
153: -- API body
154: --
155: IF l_pl_notify_hdr_rec.vendor_id IS NULL THEN
156: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor ID cannot be NULL');
157: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
158: FND_MESSAGE.set_token('ID', 'Vendor ID');
159: FND_MSG_PUB.add;
160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_pl_notify_hdr_rec.vendor_site_id IS NULL THEN
162: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor Site ID cannot be NULL');
163: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
164: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
162: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor Site ID cannot be NULL');
163: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
164: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
165: FND_MSG_PUB.add;
166: RAISE FND_API.G_EXC_ERROR;
167: ELSE
168: FOR get_vendor_rec IN get_vendor_csr(p_pl_notify_hdr_rec.vendor_id)
169: LOOP
170:
198:
199: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
200: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
201: FND_MSG_PUB.add;
202: RAISE FND_API.G_EXC_ERROR;
203:
204: ELSE
205: OPEN get_pricelist_csr(l_pl_notify_line_tbl(i).inventory_item_id, l_pl_notify_hdr_rec.org_id);
206: LOOP
241: x_return_status := l_return_status;
242:
243: EXCEPTION
244:
245: WHEN FND_API.G_EXC_ERROR THEN
246:
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: -- Standard call to get message count and if count=1, get the message
249: FND_MSG_PUB.Count_And_Get (
243: EXCEPTION
244:
245: WHEN FND_API.G_EXC_ERROR THEN
246:
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: -- Standard call to get message count and if count=1, get the message
249: FND_MSG_PUB.Count_And_Get (
250: p_encoded => FND_API.G_FALSE,
251: p_count => x_msg_count,
246:
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: -- Standard call to get message count and if count=1, get the message
249: FND_MSG_PUB.Count_And_Get (
250: p_encoded => FND_API.G_FALSE,
251: p_count => x_msg_count,
252: p_data => x_msg_data
253: );
254: IF x_msg_count > 1 THEN
257: END LOOP;
258: END IF;
259:
260:
261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
262:
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: -- Standard call to get message count and if count=1, get the message
265: FND_MSG_PUB.Count_And_Get (
259:
260:
261: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
262:
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: -- Standard call to get message count and if count=1, get the message
265: FND_MSG_PUB.Count_And_Get (
266: p_encoded => FND_API.G_FALSE,
267: p_count => x_msg_count,
262:
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: -- Standard call to get message count and if count=1, get the message
265: FND_MSG_PUB.Count_And_Get (
266: p_encoded => FND_API.G_FALSE,
267: p_count => x_msg_count,
268: p_data => x_msg_data
269: );
270: IF x_msg_count > 1 THEN
275:
276:
277: WHEN OTHERS THEN
278:
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
281: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
282: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_OutboundPricelists');
283: fnd_message.set_token('ERRNO', sqlcode);
284: fnd_message.set_token('REASON', sqlerrm);
285: END IF;
286: -- Standard call to get message count and if count=1, get the message
287: FND_MSG_PUB.Count_And_Get (
288: p_encoded => FND_API.G_FALSE,
289: p_count => x_msg_count,
290: p_data => x_msg_data
291: );
292: IF x_msg_count > 1 THEN
308: -- Parameters
309: --
310: -- IN
311: -- p_api_version_number IN NUMBER Required
312: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
313: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
314: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
315: -- p_pl_notify_hdr_rec IN OUT dpp_pl_notify_rec_type Required
316: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
309: --
310: -- IN
311: -- p_api_version_number IN NUMBER Required
312: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
313: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
314: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
315: -- p_pl_notify_hdr_rec IN OUT dpp_pl_notify_rec_type Required
316: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
317: --
310: -- IN
311: -- p_api_version_number IN NUMBER Required
312: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
313: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
314: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
315: -- p_pl_notify_hdr_rec IN OUT dpp_pl_notify_rec_type Required
316: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
317: --
318: -- OUT
325: -- ==============================================================================
326:
327: PROCEDURE Notify_InboundPricelists(
328: p_api_version IN NUMBER
329: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
330: , p_commit IN VARCHAR2 := FND_API.G_FALSE
331: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
332: , x_return_status OUT NOCOPY VARCHAR2
333: , x_msg_count OUT NOCOPY NUMBER
326:
327: PROCEDURE Notify_InboundPricelists(
328: p_api_version IN NUMBER
329: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
330: , p_commit IN VARCHAR2 := FND_API.G_FALSE
331: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
332: , x_return_status OUT NOCOPY VARCHAR2
333: , x_msg_count OUT NOCOPY NUMBER
334: , x_msg_data OUT NOCOPY VARCHAR2
327: PROCEDURE Notify_InboundPricelists(
328: p_api_version IN NUMBER
329: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
330: , p_commit IN VARCHAR2 := FND_API.G_FALSE
331: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
332: , x_return_status OUT NOCOPY VARCHAR2
333: , x_msg_count OUT NOCOPY NUMBER
334: , x_msg_data OUT NOCOPY VARCHAR2
335: , p_pl_notify_hdr_rec IN OUT NOCOPY dpp_pl_notify_rec_type
427:
428: BEGIN
429:
430: -- Standard call to check for call compatibility.
431: IF NOT FND_API.Compatible_API_Call ( l_api_version,
432: p_api_version,
433: l_api_name,
434: G_PKG_NAME)
435: THEN
432: p_api_version,
433: l_api_name,
434: G_PKG_NAME)
435: THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: END IF;
438: -- Initialize message list if p_init_msg_list is set to TRUE.
439: IF FND_API.to_Boolean( p_init_msg_list )
440: THEN
435: THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: END IF;
438: -- Initialize message list if p_init_msg_list is set to TRUE.
439: IF FND_API.to_Boolean( p_init_msg_list )
440: THEN
441: FND_MSG_PUB.initialize;
442: END IF;
443:
444:
445: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_full_name || 'start');
446:
447: -- Initialize API return status to sucess
448: x_return_status := FND_API.G_RET_STS_SUCCESS;
449:
450: --
451: -- API body
452: --
454: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor ID cannot be NULL');
455: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
456: FND_MESSAGE.set_token('ID', 'Vendor ID');
457: FND_MSG_PUB.add;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF l_pl_notify_hdr_rec.vendor_site_id IS NULL THEN
460: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor Site ID cannot be NULL');
461: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
462: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
460: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor Site ID cannot be NULL');
461: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
462: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
463: FND_MSG_PUB.add;
464: RAISE FND_API.G_EXC_ERROR;
465: ELSE
466: FOR get_vendor_rec IN get_vendor_csr(p_pl_notify_hdr_rec.vendor_id)
467: LOOP
468:
493: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Inventory Item ID cannot be NULL');
494: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
495: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
496: FND_MSG_PUB.add;
497: RAISE FND_API.G_EXC_ERROR;
498:
499: ELSE
500:
501: 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);
536: );
537:
538: EXCEPTION
539:
540: WHEN FND_API.G_EXC_ERROR THEN
541:
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: -- Standard call to get message count and if count=1, get the message
544: FND_MSG_PUB.Count_And_Get (
538: EXCEPTION
539:
540: WHEN FND_API.G_EXC_ERROR THEN
541:
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: -- Standard call to get message count and if count=1, get the message
544: FND_MSG_PUB.Count_And_Get (
545: p_encoded => FND_API.G_FALSE,
546: p_count => x_msg_count,
541:
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: -- Standard call to get message count and if count=1, get the message
544: FND_MSG_PUB.Count_And_Get (
545: p_encoded => FND_API.G_FALSE,
546: p_count => x_msg_count,
547: p_data => x_msg_data
548: );
549: IF x_msg_count > 1 THEN
551: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
552: END LOOP;
553: END IF;
554:
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556:
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558: -- Standard call to get message count and if count=1, get the message
559: FND_MSG_PUB.Count_And_Get (
553: END IF;
554:
555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
556:
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558: -- Standard call to get message count and if count=1, get the message
559: FND_MSG_PUB.Count_And_Get (
560: p_encoded => FND_API.G_FALSE,
561: p_count => x_msg_count,
556:
557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558: -- Standard call to get message count and if count=1, get the message
559: FND_MSG_PUB.Count_And_Get (
560: p_encoded => FND_API.G_FALSE,
561: p_count => x_msg_count,
562: p_data => x_msg_data
563: );
564: IF x_msg_count > 1 THEN
568: END IF;
569:
570: WHEN OTHERS THEN
571:
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
574: THEN
575: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
576: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_InboundPricelists');
580: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error in notify inbound pricelists: '||SQLERRM);
581: END IF;
582: -- Standard call to get message count and if count=1, get the message
583: FND_MSG_PUB.Count_And_Get (
584: p_encoded => FND_API.G_FALSE,
585: p_count => x_msg_count,
586: p_data => x_msg_data
587: );
588: IF x_msg_count > 1 THEN
603: -- Parameters
604: --
605: -- IN
606: -- p_api_version_number IN NUMBER Required
607: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
608: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
609: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
610: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
611: --
604: --
605: -- IN
606: -- p_api_version_number IN NUMBER Required
607: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
608: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
609: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
610: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
611: --
612: -- OUT
605: -- IN
606: -- p_api_version_number IN NUMBER Required
607: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
608: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
609: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_NONE
610: -- p_pl_notify_line_tbl IN OUT dpp_pl_notify_line_tbl_type Required
611: --
612: -- OUT
613: -- x_return_status OUT VARCHAR2
619: -- ==============================================================================
620:
621: PROCEDURE Notify_Promotions(
622: p_api_version IN NUMBER
623: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
624: , p_commit IN VARCHAR2 := FND_API.G_FALSE
625: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
626: , x_return_status OUT NOCOPY VARCHAR2
627: , x_msg_count OUT NOCOPY NUMBER
620:
621: PROCEDURE Notify_Promotions(
622: p_api_version IN NUMBER
623: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
624: , p_commit IN VARCHAR2 := FND_API.G_FALSE
625: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
626: , x_return_status OUT NOCOPY VARCHAR2
627: , x_msg_count OUT NOCOPY NUMBER
628: , x_msg_data OUT NOCOPY VARCHAR2
621: PROCEDURE Notify_Promotions(
622: p_api_version IN NUMBER
623: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
624: , p_commit IN VARCHAR2 := FND_API.G_FALSE
625: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE
626: , x_return_status OUT NOCOPY VARCHAR2
627: , x_msg_count OUT NOCOPY NUMBER
628: , x_msg_data OUT NOCOPY VARCHAR2
629: , p_pl_notify_hdr_rec IN OUT NOCOPY dpp_pl_notify_rec_type
729:
730: BEGIN
731:
732: -- Standard call to check for call compatibility.
733: IF NOT FND_API.Compatible_API_Call ( l_api_version,
734: p_api_version,
735: l_api_name,
736: G_PKG_NAME)
737: THEN
734: p_api_version,
735: l_api_name,
736: G_PKG_NAME)
737: THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739: END IF;
740: -- Initialize message list if p_init_msg_list is set to TRUE.
741: IF FND_API.to_Boolean( p_init_msg_list )
742: THEN
737: THEN
738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
739: END IF;
740: -- Initialize message list if p_init_msg_list is set to TRUE.
741: IF FND_API.to_Boolean( p_init_msg_list )
742: THEN
743: FND_MSG_PUB.initialize;
744: END IF;
745:
746:
747: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
748:
749: -- Initialize API return status to sucess
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
751:
752: --
753: -- API body
754: --
757: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor ID cannot be NULL');
758: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
759: FND_MESSAGE.set_token('ID', 'Vendor ID');
760: FND_MSG_PUB.add;
761: RAISE FND_API.G_EXC_ERROR;
762: ELSIF l_pl_notify_hdr_rec.vendor_site_id IS NULL THEN
763: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor Site ID cannot be NULL');
764: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
765: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
763: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Vendor Site ID cannot be NULL');
764: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
765: FND_MESSAGE.set_token('ID', 'Vendor Site ID');
766: FND_MSG_PUB.add;
767: RAISE FND_API.G_EXC_ERROR;
768: ELSIF l_pl_notify_hdr_rec.org_id IS NULL THEN
769: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Org ID cannot be NULL');
770: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
771: FND_MESSAGE.set_token('ID', 'Org ID');
769: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Org ID cannot be NULL');
770: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
771: FND_MESSAGE.set_token('ID', 'Org ID');
772: FND_MSG_PUB.add;
773: RAISE FND_API.G_EXC_ERROR;
774: ELSE
775: FOR get_vendor_rec IN get_vendor_csr(p_pl_notify_hdr_rec.vendor_id) LOOP
776: p_pl_notify_hdr_rec.vendor_name := get_vendor_rec.vendor_name;
777: p_pl_notify_hdr_rec.vendor_number := get_vendor_rec.vendor_num;
791: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Inventory Item ID cannot be NULL');
792: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
793: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
794: FND_MSG_PUB.add;
795: RAISE FND_API.G_EXC_ERROR;
796: ELSE
797: FOR get_item_number_rec IN get_item_number_csr(l_pl_notify_line_tbl(i).Inventory_Item_ID) LOOP
798: l_pl_notify_line_tbl(i).Item_Number := get_item_number_rec.concatenated_segments ;
799: END LOOP;
814: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Line detals cannot be NULL');
815: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
816: FND_MESSAGE.set_token('ID', 'Line Details');
817: FND_MSG_PUB.add;
818: RAISE FND_API.G_EXC_ERROR;
819: END IF;
820: END IF;
821:
822: --Reassign the local variable to the out variable
831: p_data => x_msg_data
832: );
833: EXCEPTION
834:
835: WHEN FND_API.G_EXC_ERROR THEN
836:
837: x_return_status := FND_API.G_RET_STS_ERROR;
838: -- Standard call to get message count and if count=1, get the message
839: FND_MSG_PUB.Count_And_Get (
833: EXCEPTION
834:
835: WHEN FND_API.G_EXC_ERROR THEN
836:
837: x_return_status := FND_API.G_RET_STS_ERROR;
838: -- Standard call to get message count and if count=1, get the message
839: FND_MSG_PUB.Count_And_Get (
840: p_encoded => FND_API.G_FALSE,
841: p_count => x_msg_count,
836:
837: x_return_status := FND_API.G_RET_STS_ERROR;
838: -- Standard call to get message count and if count=1, get the message
839: FND_MSG_PUB.Count_And_Get (
840: p_encoded => FND_API.G_FALSE,
841: p_count => x_msg_count,
842: p_data => x_msg_data
843: );
844: IF x_msg_count > 1 THEN
847: END LOOP;
848: END IF;
849:
850:
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852:
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: -- Standard call to get message count and if count=1, get the message
855: FND_MSG_PUB.Count_And_Get (
849:
850:
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852:
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: -- Standard call to get message count and if count=1, get the message
855: FND_MSG_PUB.Count_And_Get (
856: p_encoded => FND_API.G_FALSE,
857: p_count => x_msg_count,
852:
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: -- Standard call to get message count and if count=1, get the message
855: FND_MSG_PUB.Count_And_Get (
856: p_encoded => FND_API.G_FALSE,
857: p_count => x_msg_count,
858: p_data => x_msg_data
859: );
860: IF x_msg_count > 1 THEN
864: END IF;
865:
866: WHEN OTHERS THEN
867:
868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
869: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
870: THEN
871: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
872: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_Promotions');
876: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error in notify promotions: '||SQLERRM);
877: END IF;
878: -- Standard call to get message count and if count=1, get the message
879: FND_MSG_PUB.Count_And_Get (
880: p_encoded => FND_API.G_FALSE,
881: p_count => x_msg_count,
882: p_data => x_msg_data
883: );
884: IF x_msg_count > 1 THEN