1: PACKAGE BODY DPP_CUSTOMERCLAIMS_PVT AS
2: /* $Header: dppvcusb.pls 120.20 2008/05/16 06:42:43 sdasan noship $ */
3:
4: -- Package name : DPP_CUSTOMERCLAIMS_PVT
5: -- Purpose :
1: PACKAGE BODY DPP_CUSTOMERCLAIMS_PVT AS
2: /* $Header: dppvcusb.pls 120.20 2008/05/16 06:42:43 sdasan noship $ */
3:
4: -- Package name : DPP_CUSTOMERCLAIMS_PVT
5: -- Purpose :
6: -- History :
7: -- NOTE : Contains Procedures - Select Data for Customer Claims Tab Prepopulation, Populate data in DPP
8: -- End of Comments
6: -- History :
7: -- NOTE : Contains Procedures - Select Data for Customer Claims Tab Prepopulation, Populate data in DPP
8: -- End of Comments
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_CUSTOMERCLAIMS_PVT';
11: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
12: G_FILE_NAME CONSTANT VARCHAR2(14) := 'dppvcusb.pls';
13:
14: ---------------------------------------------------------------------
48: l_return_status varchar2(30);
49: l_msg_count number;
50: l_msg_data varchar2(4000);
51:
52: l_cust_hdr_rec DPP_CUSTOMERCLAIMS_PVT.dpp_cust_hdr_rec_type := p_cust_hdr_rec;
53: l_customer_tbl DPP_CUSTOMERCLAIMS_PVT.dpp_customer_tbl_type := p_customer_tbl;
54: l_customer_price_tbl DPP_CUSTOMERCLAIMS_PVT.dpp_customer_price_tbl_type;
55:
56: CURSOR get_customer_csr (p_org_id IN NUMBER,
49: l_msg_count number;
50: l_msg_data varchar2(4000);
51:
52: l_cust_hdr_rec DPP_CUSTOMERCLAIMS_PVT.dpp_cust_hdr_rec_type := p_cust_hdr_rec;
53: l_customer_tbl DPP_CUSTOMERCLAIMS_PVT.dpp_customer_tbl_type := p_customer_tbl;
54: l_customer_price_tbl DPP_CUSTOMERCLAIMS_PVT.dpp_customer_price_tbl_type;
55:
56: CURSOR get_customer_csr (p_org_id IN NUMBER,
57: p_inventory_item_id IN NUMBER,
50: l_msg_data varchar2(4000);
51:
52: l_cust_hdr_rec DPP_CUSTOMERCLAIMS_PVT.dpp_cust_hdr_rec_type := p_cust_hdr_rec;
53: l_customer_tbl DPP_CUSTOMERCLAIMS_PVT.dpp_customer_tbl_type := p_customer_tbl;
54: l_customer_price_tbl DPP_CUSTOMERCLAIMS_PVT.dpp_customer_price_tbl_type;
55:
56: CURSOR get_customer_csr (p_org_id IN NUMBER,
57: p_inventory_item_id IN NUMBER,
58: p_start_date IN DATE,
274: WHEN OTHERS THEN
275: ROLLBACK TO Select_CustomerPrice_PVT;
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
278: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Select_CustomerPrice');
279: fnd_message.set_token('ERRNO', sqlcode);
280: fnd_message.set_token('REASON', sqlerrm);
281: FND_MSG_PUB.add;
282: -- Standard call to get message count and if count=1, get the message
563: 'N');
564: EXCEPTION
565: WHEN OTHERS THEN
566: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
567: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Populate_CustomerPrice');
568: fnd_message.set_token('ERRNO', sqlcode);
569: fnd_message.set_token('REASON', sqlerrm);
570: fnd_msg_pub.add;
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: WHEN OTHERS THEN
713: ROLLBACK TO Populate_CustomerPrice_PVT;
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
716: fnd_message.set_token('ROUTINE', 'DPP_CUSTOMERCLAIMS_PVT.Populate_CustomerPrice');
717: fnd_message.set_token('ERRNO', sqlcode);
718: fnd_message.set_token('REASON', sqlerrm);
719: FND_MSG_PUB.ADD;
720: DPP_UTILITY_PVT.debug_message('Error in inserting into DPP_CUSTOMER_CLAIMS_ALL: '||SQLERRM);
733:
734:
735: END Populate_CustomerPrice;
736:
737: END DPP_CUSTOMERCLAIMS_PVT;