1: PACKAGE BODY DPP_PRICING_PVT AS
2: /* $Header: dppvqpnb.pls 120.7 2008/03/24 08:09:57 sdasan noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: dppvqpnb.pls 120.7 2008/03/24 08:09:57 sdasan noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- DPP_PRICING_PVT
7: -- Purpose
8: -- Contains all APIs for Pricing Notifications
9: -- History
10: --
12: --
13: -- End of Comments
14: -- ===============================================================
15:
16: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_PRICING_PVT';
17:
18: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
19: G_FILE_NAME CONSTANT VARCHAR2(14) := 'dppvqpnb.pls';
20: g_trunc_sysdate DATE := trunc(sysdate);
62:
63: l_result NUMBER;
64: l_return_status VARCHAR2(30);
65: l_pl_notify_hdr_rec dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
66: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
67: l_pricelist_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
68:
69: CURSOR get_pricelist_csr(p_inventory_item_id IN NUMBER, p_org_id IN NUMBER)
70: IS
63: l_result NUMBER;
64: l_return_status VARCHAR2(30);
65: l_pl_notify_hdr_rec dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
66: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
67: l_pricelist_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
68:
69: CURSOR get_pricelist_csr(p_inventory_item_id IN NUMBER, p_org_id IN NUMBER)
70: IS
71:
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
349: l_api_version CONSTANT NUMBER := 1.0;
350: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
351:
352: l_result NUMBER;
353: l_pl_notify_hdr_rec DPP_PRICING_PVT.dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
354: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
355: l_pricelist_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
356:
357: CURSOR get_pricelist_csr(p_inventory_item_id IN NUMBER, p_vendor_id IN NUMBER,p_vendor_site_id IN NUMBER, p_org_id IN NUMBER)
350: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
351:
352: l_result NUMBER;
353: l_pl_notify_hdr_rec DPP_PRICING_PVT.dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
354: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
355: l_pricelist_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
356:
357: CURSOR get_pricelist_csr(p_inventory_item_id IN NUMBER, p_vendor_id IN NUMBER,p_vendor_site_id IN NUMBER, p_org_id IN NUMBER)
358: IS
351:
352: l_result NUMBER;
353: l_pl_notify_hdr_rec DPP_PRICING_PVT.dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
354: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
355: l_pricelist_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
356:
357: CURSOR get_pricelist_csr(p_inventory_item_id IN NUMBER, p_vendor_id IN NUMBER,p_vendor_site_id IN NUMBER, p_org_id IN NUMBER)
358: IS
359: SELECT qlh.name Pricelist_Name
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');
596: fnd_message.set_token('ERRNO', sqlcode);
597: fnd_message.set_token('REASON', sqlerrm);
598: FND_MSG_PUB.ADD;
599: DPP_UTILITY_PVT.debug_message('Error in notify inbound pricelists: '||SQLERRM);
655:
656: l_result NUMBER;
657: l_count NUMBER;
658:
659: l_pl_notify_hdr_rec DPP_PRICING_PVT.dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
660: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
661: l_offer_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
662:
663: CURSOR get_offers_csr(p_inventory_item_id IN NUMBER) IS
656: l_result NUMBER;
657: l_count NUMBER;
658:
659: l_pl_notify_hdr_rec DPP_PRICING_PVT.dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
660: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
661: l_offer_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
662:
663: CURSOR get_offers_csr(p_inventory_item_id IN NUMBER) IS
664: SELECT oov.name offer_name
657: l_count NUMBER;
658:
659: l_pl_notify_hdr_rec DPP_PRICING_PVT.dpp_pl_notify_rec_type := p_pl_notify_hdr_rec;
660: l_pl_notify_line_tbl DPP_PRICING_PVT.dpp_pl_notify_line_tbl_type := p_pl_notify_line_tbl;
661: l_offer_tbl DPP_PRICING_PVT.dpp_object_name_tbl_type;
662:
663: CURSOR get_offers_csr(p_inventory_item_id IN NUMBER) IS
664: SELECT oov.name offer_name
665: FROM ozf_offers_v oov,
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');
907: fnd_message.set_token('ERRNO', sqlcode);
908: fnd_message.set_token('REASON', sqlerrm);
909: FND_MSG_PUB.ADD;
910: DPP_UTILITY_PVT.debug_message('Error in notify promotions: '||SQLERRM);
922: END IF;
923:
924: END Notify_Promotions;
925:
926: END DPP_PRICING_PVT;