1: PACKAGE BODY DPP_LISTPRICE_PVT AS
2: /* $Header: dppvlprb.pls 120.19 2008/06/16 08:13:31 sdasan noship $ */
3:
4: -- Package name : DPP_LISTPRICE_PVT
5: -- Purpose :
1: PACKAGE BODY DPP_LISTPRICE_PVT AS
2: /* $Header: dppvlprb.pls 120.19 2008/06/16 08:13:31 sdasan noship $ */
3:
4: -- Package name : DPP_LISTPRICE_PVT
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
6: -- History :
7: -- NOTE :
8: -- End of Comments
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_LISTPRICE_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) := 'dppvlprb.pls';
13:
14: ---------------------------------------------------------------------
44: l_return_status VARCHAR2(30);
45: l_msg_count NUMBER;
46: l_msg_data VARCHAR2(4000);
47:
48: l_txn_hdr_rec DPP_LISTPRICE_PVT.dpp_txn_hdr_rec_type := p_txn_hdr_rec;
49: l_item_cost_tbl DPP_LISTPRICE_PVT.dpp_txn_line_tbl_type := p_item_cost_tbl;
50: l_exe_update_rec DPP_ExecutionDetails_PVT.DPP_EXE_UPDATE_REC_TYPE;
51: l_status_Update_tbl DPP_ExecutionDetails_PVT.dpp_status_Update_tbl_type;
52:
45: l_msg_count NUMBER;
46: l_msg_data VARCHAR2(4000);
47:
48: l_txn_hdr_rec DPP_LISTPRICE_PVT.dpp_txn_hdr_rec_type := p_txn_hdr_rec;
49: l_item_cost_tbl DPP_LISTPRICE_PVT.dpp_txn_line_tbl_type := p_item_cost_tbl;
50: l_exe_update_rec DPP_ExecutionDetails_PVT.DPP_EXE_UPDATE_REC_TYPE;
51: l_status_Update_tbl DPP_ExecutionDetails_PVT.dpp_status_Update_tbl_type;
52:
53: l_to_amount NUMBER := 0;
146: END IF;
147: RAISE FND_API.G_EXC_ERROR;
148: WHEN OTHERS THEN
149: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
150: fnd_message.set_token('ROUTINE', 'DPP_LISTPRICE_PVT');
151: fnd_message.set_token('ERRNO', sqlcode);
152: fnd_message.set_token('REASON', sqlerrm);
153: FND_MSG_PUB.add;
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: EXCEPTION
282: WHEN OTHERS THEN
283: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
285: fnd_message.set_token('ROUTINE', 'DPP_LISTPRICE_PVT.Update_ListPrice');
286: fnd_message.set_token('ERRNO', sqlcode);
287: fnd_message.set_token('REASON', sqlerrm);
288: fnd_msg_pub.add;
289: END;
418: END IF;
419:
420: END Update_ListPrice;
421:
422: END DPP_LISTPRICE_PVT;