[Home] [Help]
1: PACKAGE BODY OZF_QP_DISCOUNTS_PVT AS
2: /* $Header: ozfvoqpdb.pls 120.3 2005/08/24 06:47 rssharma noship $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
12: -- NOTE
13:
14: -- End of Comments
15: -- ===============================================================
16: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_QP_DISCOUNTS_PVT';
17: G_FILE_NAME CONSTANT VARCHAR2(15) := 'ozfvoqpdb.pls';
18:
19: PROCEDURE check_qp_disc_inter_attr
20: (
103: BEGIN
104: x_return_status := FND_API.G_RET_STS_SUCCESS;
105: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
106: IF p_qp_disc_rec.ozf_qp_discount_id IS NOT NULL AND p_qp_disc_rec.ozf_qp_discount_id <> FND_API.G_MISS_NUM THEN
107: IF OZF_UTILITY_PVT.check_uniqueness('ozf_qp_discounts', 'ozf_qp_discount_id = '||p_qp_disc_rec.ozf_qp_discount_id) = FND_API.G_FALSE THEN
108: OZF_Utility_PVT.Error_Message('OZF_QP_DISC_PK_DUP');
109: x_return_status := FND_API.g_ret_sts_error;
110: return;
111: END IF;
118: AND
119: (p_qp_disc_rec.offer_discount_line_id IS NOT NULL AND p_qp_disc_rec.offer_discount_line_id <> FND_API.G_MISS_NUM)
120: )
121: THEN
122: IF OZF_UTILITY_PVT.check_uniqueness('ozf_qp_discounts', ' list_line_id = '|| p_qp_disc_rec.list_line_id || ' AND offer_discount_line_id = '|| p_qp_disc_rec.offer_discount_line_id) = FND_API.G_FALSE THEN
123: OZF_Utility_PVT.Error_Message('OZF_QP_DISC_DUP');
124: x_return_status := FND_API.g_ret_sts_error;
125: return;
126: END IF;
212: END IF;
213:
214: END check_ozf_qp_disc_items;
215:
216: PROCEDURE Validate_ozf_qp_discounts
217: (
218: p_api_version_number IN NUMBER,
219: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
220: p_commit IN VARCHAR2 := FND_API.G_FALSE,
229: p_qp_disc_rec IN qp_discount_rec_type
230: )
231: IS
232: l_api_version_number CONSTANT NUMBER := 1.0;
233: l_api_name CONSTANT VARCHAR2(30) := 'Validate_ozf_qp_discounts';
234:
235: BEGIN
236: IF NOT FND_API.Compatible_api_call(
237: l_api_version_number
254: );
255: END IF;
256: ozf_utility_pvt.debug_message('Private API: '|| l_api_name || ' End');
257: NULL;
258: END Validate_ozf_qp_discounts;
259:
260: PROCEDURE Create_ozf_qp_discount
261: (
262: p_api_version_number IN NUMBER,
279: l_object_version_number NUMBER;
280: l_qp_disc_rec qp_discount_rec_type;
281:
282: CURSOR c_id IS
283: SELECT ozf_qp_discounts_s.nextval FROM DUAL;
284:
285: CURSOR c_id_exists(p_qp_discount_id NUMBER)
286: is
287: SELECT 1 FROM dual
284:
285: CURSOR c_id_exists(p_qp_discount_id NUMBER)
286: is
287: SELECT 1 FROM dual
288: WHERE EXISTS(SELECT 'X' FROM ozf_qp_discounts WHERE ozf_qp_discount_id = p_qp_discount_id);
289:
290: BEGIN
291: -- INITIALIZE
292: -- savepoint
327: l_ozf_qp_discount_id := p_qp_disc_rec.ozf_qp_discount_id;
328: END IF;
329: -- validate
330:
331: Validate_ozf_qp_discounts
332: (
333: p_api_version_number => p_api_version_number
334: , p_init_msg_list => p_init_msg_list
335: , p_commit => p_commit
345: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
348: -- insert
349: OZF_QP_DISCOUNTS_PKG.Insert_row
350: (
351: px_qp_discount_id => l_ozf_qp_discount_id
352: , p_list_line_id => p_qp_disc_rec.list_line_id
353: , p_offer_discount_line_id => p_qp_disc_rec.offer_discount_line_id
429: l_api_name CONSTANT VARCHAR2(30) := 'Update_ozf_qp_discount';
430:
431: CURSOR c_get_qp_disc(p_ozf_qp_discount_id NUMBER, p_object_version_number NUMBER)
432: IS
433: SELECT * FROM ozf_qp_discounts
434: WHERE ozf_qp_discount_id = p_ozf_qp_discount_id
435: AND object_version_number = p_object_version_number;
436:
437: l_ref_qp_disc c_get_qp_disc%ROWTYPE;
482: , p_token_value => 'OZF_QP_DISC') ;
483: RAISE FND_API.G_EXC_ERROR;
484: END IF;
485:
486: Validate_ozf_qp_discounts
487: (
488: p_api_version_number => p_api_version_number
489: , p_init_msg_list => p_init_msg_list
490: , p_commit => p_validation_level
500: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: OZF_QP_DISCOUNTS_PKG.Update_row
505: (
506: p_qp_discount_id => p_qp_disc_rec.ozf_qp_discount_id
507: , p_list_line_id => p_qp_disc_rec.list_line_id
508: , p_offer_discount_line_id => p_qp_disc_rec.offer_discount_line_id
598: ozf_utility_pvt.debug_message('Private API: '|| l_api_name|| ' Start');
599:
600: x_return_status := FND_API.G_RET_STS_SUCCESS;
601:
602: OZF_QP_DISCOUNTS_PKG.Delete_row(
603: p_qp_discount_id => p_qp_discount_id
604: , p_object_version_number => p_object_version_number
605: );
606: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
647: , p_data => x_msg_data
648: );
649: END Delete_ozf_qp_discount;
650:
651: END OZF_QP_DISCOUNTS_PVT;