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
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');
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');
165: FND_MSG_PUB.add;
166: RAISE FND_API.G_EXC_ERROR;
167: ELSE
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');
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)
195:
196: IF l_pl_notify_line_tbl(i).inventory_item_id IS NULL THEN
197: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Inventory Item ID cannot be NULL');
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:
196: IF l_pl_notify_line_tbl(i).inventory_item_id IS NULL THEN
197: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_STATEMENT, 'dpp.plsql.' || L_FULL_NAME, 'Inventory Item ID cannot be NULL');
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
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;
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
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 (
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,
451: -- API body
452: --
453: IF l_pl_notify_hdr_rec.vendor_id IS NULL THEN
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
452: --
453: IF l_pl_notify_hdr_rec.vendor_id IS NULL THEN
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');
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');
463: FND_MSG_PUB.add;
464: RAISE FND_API.G_EXC_ERROR;
465: ELSE
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');
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)
490: LOOP
491:
492: IF l_pl_notify_line_tbl(i).inventory_item_id IS NULL THEN
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:
491:
492: IF l_pl_notify_line_tbl(i).inventory_item_id IS NULL THEN
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
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');
577: fnd_message.set_token('ERRNO', sqlcode);
578: fnd_message.set_token('REASON', sqlerrm);
579: FND_MSG_PUB.ADD;
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');
577: fnd_message.set_token('ERRNO', sqlcode);
578: fnd_message.set_token('REASON', sqlerrm);
579: FND_MSG_PUB.ADD;
580: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error in notify inbound pricelists: '||SQLERRM);
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');
577: fnd_message.set_token('ERRNO', sqlcode);
578: fnd_message.set_token('REASON', sqlerrm);
579: FND_MSG_PUB.ADD;
580: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error in notify inbound pricelists: '||SQLERRM);
581: END IF;
574: THEN
575: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
576: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_InboundPricelists');
577: fnd_message.set_token('ERRNO', sqlcode);
578: fnd_message.set_token('REASON', sqlerrm);
579: FND_MSG_PUB.ADD;
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
754: --
755:
756: IF l_pl_notify_hdr_rec.vendor_id IS NULL THEN
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
755:
756: IF l_pl_notify_hdr_rec.vendor_id IS NULL THEN
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');
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');
766: FND_MSG_PUB.add;
767: RAISE FND_API.G_EXC_ERROR;
768: ELSIF l_pl_notify_hdr_rec.org_id IS NULL THEN
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');
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');
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');
772: FND_MSG_PUB.add;
773: RAISE FND_API.G_EXC_ERROR;
774: ELSE
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');
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
788: IF l_pl_notify_line_tbl.EXISTS(1) THEN
789: FOR i in l_pl_notify_line_tbl.FIRST..l_pl_notify_line_tbl.LAST LOOP
790: IF l_pl_notify_line_tbl(i).inventory_item_id IS NULL THEN
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
789: FOR i in l_pl_notify_line_tbl.FIRST..l_pl_notify_line_tbl.LAST LOOP
790: IF l_pl_notify_line_tbl(i).inventory_item_id IS NULL THEN
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
811: END IF;
812: END LOOP;
813: ELSE
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;
812: END LOOP;
813: ELSE
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;
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');
873: fnd_message.set_token('ERRNO', sqlcode);
874: fnd_message.set_token('REASON', sqlerrm);
875: FND_MSG_PUB.ADD;
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');
873: fnd_message.set_token('ERRNO', sqlcode);
874: fnd_message.set_token('REASON', sqlerrm);
875: FND_MSG_PUB.ADD;
876: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error in notify promotions: '||SQLERRM);
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');
873: fnd_message.set_token('ERRNO', sqlcode);
874: fnd_message.set_token('REASON', sqlerrm);
875: FND_MSG_PUB.ADD;
876: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_EXCEPTION, 'dpp.plsql.' || L_FULL_NAME, 'Error in notify promotions: '||SQLERRM);
877: END IF;
870: THEN
871: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
872: fnd_message.set_token('ROUTINE', 'DPP_PRICING_PVT.Notify_Promotions');
873: fnd_message.set_token('ERRNO', sqlcode);
874: fnd_message.set_token('REASON', sqlerrm);
875: FND_MSG_PUB.ADD;
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