[Home] [Help]
107:
108: BEGIN
109:
110: -- Debug Message
111: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
112:
113:
114: -- Initialize message list if p_init_msg_list is set to TRUE.
115: IF FND_API.to_Boolean( p_init_msg_list )
142: FND_MSG_PUB.count_and_get(
143: p_encoded => FND_API.g_false,
144: p_count => x_msg_count,
145: p_data => x_msg_data);
146: OZF_Utility_PVT.debug_message(l_full_name ||': end');
147: EXCEPTION
148:
149: WHEN OZF_Utility_PVT.resource_locked THEN
150: x_return_status := FND_API.g_ret_sts_error;
145: p_data => x_msg_data);
146: OZF_Utility_PVT.debug_message(l_full_name ||': end');
147: EXCEPTION
148:
149: WHEN OZF_Utility_PVT.resource_locked THEN
150: x_return_status := FND_API.g_ret_sts_error;
151: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
152:
153: WHEN FND_API.G_EXC_ERROR THEN
147: EXCEPTION
148:
149: WHEN OZF_Utility_PVT.resource_locked THEN
150: x_return_status := FND_API.g_ret_sts_error;
151: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
152:
153: WHEN FND_API.G_EXC_ERROR THEN
154: ROLLBACK TO LOCK_Ozf_Disc_Line_PVT;
155: x_return_status := FND_API.G_RET_STS_ERROR;
199: x_return_status := FND_API.g_ret_sts_success;
200: IF p_validation_mode = JTF_PLSQL_API.g_create
201: AND p_ozf_offer_line_rec.offer_discount_line_id IS NOT NULL
202: THEN
203: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
204: 'ozf_offer_discount_lines',
205: 'offer_discount_line_id = ''' || p_ozf_offer_line_rec.offer_discount_line_id ||''''
206: );
207: END IF;
206: );
207: END IF;
208:
209: IF l_valid_flag = FND_API.g_false THEN
210: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_LINE_ID_DUP');
211: x_return_status := FND_API.g_ret_sts_error;
212: END IF;
213:
214: END check_Ozf_Offer_Line_Uk_Items;
238: close c_tier_level;
239: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
240: IF p_ozf_offer_line_rec.volume_from IS NOT NULL OR p_ozf_offer_line_rec.volume_from <> FND_API.G_MISS_NUM THEN
241: IF p_ozf_offer_line_rec.volume_type IS NULL OR p_ozf_offer_line_rec.volume_type = FND_API.G_MISS_CHAR THEN
242: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
243: x_return_status := FND_API.g_ret_sts_error;
244: return;
245: ELSE
246: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
244: return;
245: ELSE
246: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
247: IF p_ozf_offer_line_rec.uom_code IS NULL OR p_ozf_offer_line_rec.uom_code = FND_API.G_MISS_CHAR THEN
248: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_ACT_PRD_NO_UOM');
249: x_return_status := FND_API.g_ret_sts_error;
250: return;
251: ELSE
252: null;
255: END IF;
256: END IF;
257: ELSE IF p_ozf_offer_line_rec.volume_from IS NULL OR p_ozf_offer_line_rec.volume_from = FND_API.G_MISS_NUM THEN
258: IF p_ozf_offer_line_rec.volume_type IS NOT NULL OR p_ozf_offer_line_rec.volume_type <> FND_API.G_MISS_CHAR THEN
259: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
260: x_return_status := FND_API.g_ret_sts_error;
261: return;
262: ELSE
263: null;
266: END IF;
267: END IF;
268: IF l_tier_level = 'HEADER' THEN
269: IF p_ozf_offer_line_rec.volume_to IS NULL OR p_ozf_offer_line_rec.volume_to = FND_API.G_MISS_NUM THEN
270: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
271: x_return_status := FND_API.g_ret_sts_error;
272: return;
273: END IF;
274: END IF;
274: END IF;
275: ELSE
276: IF p_ozf_offer_line_rec.volume_from <> FND_API.G_MISS_NUM THEN
277: IF p_ozf_offer_line_rec.volume_type = FND_API.G_MISS_CHAR THEN
278: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
279: x_return_status := FND_API.g_ret_sts_error;
280: return;
281: ELSE
282: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
280: return;
281: ELSE
282: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
283: IF p_ozf_offer_line_rec.uom_code = FND_API.G_MISS_CHAR THEN
284: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_ACT_PRD_NO_UOM');
285: x_return_status := FND_API.g_ret_sts_error;
286: return;
287: ELSE
288: null;
291: END IF;
292: END IF;
293: ELSE IF p_ozf_offer_line_rec.volume_from = FND_API.G_MISS_NUM THEN
294: IF p_ozf_offer_line_rec.volume_type <> FND_API.G_MISS_CHAR THEN
295: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
296: x_return_status := FND_API.g_ret_sts_error;
297: return;
298: ELSE
299: null;
302: END IF;
303: END IF;
304: IF l_tier_level = 'HEADER' THEN
305: IF p_ozf_offer_line_rec.volume_to = FND_API.G_MISS_NUM THEN
306: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
307: x_return_status := FND_API.g_ret_sts_error;
308: return;
309: END IF;
310: END IF;
323: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
324:
325:
326: IF p_ozf_offer_line_rec.offer_discount_line_id = FND_API.G_MISS_NUM OR p_ozf_offer_line_rec.offer_discount_line_id IS NULL THEN
327: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
328: x_return_status := FND_API.g_ret_sts_error;
329: return;
330: END IF;
331:
329: return;
330: END IF;
331:
332: IF p_ozf_offer_line_rec.offer_id = FND_API.G_MISS_NUM OR p_ozf_offer_line_rec.offer_id IS NULL THEN
333: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_ID' );
334: x_return_status := FND_API.g_ret_sts_error;
335: return;
336: END IF;
337:
335: return;
336: END IF;
337:
338: IF p_ozf_offer_line_rec.discount = FND_API.G_MISS_NUM OR p_ozf_offer_line_rec.discount IS NULL THEN
339: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT' );
340: x_return_status := FND_API.g_ret_sts_error;
341: return;
342: END IF;
343:
342: END IF;
343:
344:
345: IF p_ozf_offer_line_rec.discount_type = FND_API.g_miss_char OR p_ozf_offer_line_rec.discount_type IS NULL THEN
346: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_TYPE' );
347: x_return_status := FND_API.g_ret_sts_error;
348: return;
349: END IF;
350:
349: END IF;
350:
351:
352: IF p_ozf_offer_line_rec.tier_type = FND_API.g_miss_char OR p_ozf_offer_line_rec.tier_type IS NULL THEN
353: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_TYPE' );
354: x_return_status := FND_API.g_ret_sts_error;
355: return;
356: END IF;
357:
356: END IF;
357:
358:
359: IF p_ozf_offer_line_rec.tier_level = FND_API.g_miss_char OR p_ozf_offer_line_rec.tier_level IS NULL THEN
360: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_LEVEL' );
361: x_return_status := FND_API.g_ret_sts_error;
362: return;
363: END IF;
364:
366: ELSE
367:
368:
369: IF p_ozf_offer_line_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
370: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
371: x_return_status := FND_API.g_ret_sts_error;
372: return;
373: END IF;
374:
373: END IF;
374:
375:
376: IF p_ozf_offer_line_rec.discount = FND_API.G_MISS_NUM THEN
377: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT' );
378: x_return_status := FND_API.g_ret_sts_error;
379: return;
380: END IF;
381:
380: END IF;
381:
382:
383: IF p_ozf_offer_line_rec.discount_type = FND_API.g_miss_char THEN
384: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_TYPE' );
385: x_return_status := FND_API.g_ret_sts_error;
386: return;
387: END IF;
388:
387: END IF;
388:
389:
390: IF p_ozf_offer_line_rec.tier_type = FND_API.g_miss_char THEN
391: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_TYPE' );
392: x_return_status := FND_API.g_ret_sts_error;
393: return;
394: END IF;
395:
394: END IF;
395:
396:
397: IF p_ozf_offer_line_rec.tier_level = FND_API.g_miss_char THEN
398: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_LEVEL' );
399: x_return_status := FND_API.g_ret_sts_error;
400: return;
401: END IF;
402: END IF;
420: -- Enter custom code here
421:
422: IF p_ozf_offer_line_rec.offer_id IS NOT NULL AND p_ozf_offer_line_rec.offer_id <> FND_API.G_MISS_NUM
423: THEN
424: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_ozf_offer_line_rec.offer_id)) = FND_API.g_false THEN
425: OZF_Utility_PVT.Error_Message('OZF_OFFER_ID_DUP' ); -- correct message
426: x_return_status := FND_API.g_ret_sts_error;
427: return;
428: END IF;
421:
422: IF p_ozf_offer_line_rec.offer_id IS NOT NULL AND p_ozf_offer_line_rec.offer_id <> FND_API.G_MISS_NUM
423: THEN
424: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_ozf_offer_line_rec.offer_id)) = FND_API.g_false THEN
425: OZF_Utility_PVT.Error_Message('OZF_OFFER_ID_DUP' ); -- correct message
426: x_return_status := FND_API.g_ret_sts_error;
427: return;
428: END IF;
429: END IF;
470: THEN
471: IF
472: (p_ozf_offer_line_rec.discount_type <> '%' )
473: THEN
474: OZF_Utility_PVT.error_message('OZF_OFFR_OPT_CURR_PCNT');
475: x_return_status := FND_API.G_RET_STS_ERROR;
476: return;
477: END IF;
478: END IF;
748: -- THEN
749: -- x_return_status := FND_API.G_RET_STS_ERROR;
750:
751: -- Debug Message
752: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
753: -- Standard call to get message count and if count is 1, get message info.
754: FND_MSG_PUB.Count_And_Get
755: (p_count => x_msg_count,
756: p_data => x_msg_data
794: FND_MSG_PUB.initialize;
795: END IF;
796:
797: -- Debug Message
798: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
799:
800: -- Initialize API return status to SUCCESS
801: x_return_status := FND_API.G_RET_STS_SUCCESS;
802:
843:
844:
845:
846: -- Debug Message
847: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
848:
849:
850: -- Standard call to get message count and if count is 1, get message info.
851: FND_MSG_PUB.Count_And_Get
853: p_data => x_msg_data
854: );
855: EXCEPTION
856:
857: WHEN OZF_Utility_PVT.resource_locked THEN
858: x_return_status := FND_API.g_ret_sts_error;
859: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
860:
861: WHEN FND_API.G_EXC_ERROR THEN
855: EXCEPTION
856:
857: WHEN OZF_Utility_PVT.resource_locked THEN
858: x_return_status := FND_API.g_ret_sts_error;
859: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
860:
861: WHEN FND_API.G_EXC_ERROR THEN
862: ROLLBACK TO VALIDATE_Ozf_Disc_Line_;
863: x_return_status := FND_API.G_RET_STS_ERROR;
988:
989:
990:
991: -- Debug Message
992: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
993:
994:
995: -- Initialize API return status to SUCCESS
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
1000: -- =========================================================================
1001:
1002: IF FND_GLOBAL.USER_ID IS NULL
1003: THEN
1004: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
1005: RAISE FND_API.G_EXC_ERROR;
1006: END IF;
1007:
1008:
1030: l_ozf_offer_line_rec.offer_discount_line_id := l_offer_discount_line_id;
1031: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1032: THEN
1033: -- Debug message
1034: OZF_UTILITY_PVT.debug_message('Private API: Validate_Ozf_Disc_Line');
1035:
1036: -- Invoke validation procedures
1037: Validate_ozf_disc_line(
1038: p_api_version_number => 1.0,
1049: RAISE FND_API.G_EXC_ERROR;
1050: END IF;
1051:
1052: -- Debug Message
1053: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
1054: -- Invoke table handler(OZF_DISC_LINE_PKG.Insert_Row)
1055: OZF_DISC_LINE_PKG.Insert_Row(
1056: px_offer_discount_line_id => l_offer_discount_line_id,
1057: p_parent_discount_line_id => l_ozf_offer_line_rec.parent_discount_line_id,
1115: END IF;
1116:
1117:
1118: -- Debug Message
1119: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1120:
1121: -- Standard call to get message count and if count is 1, get message info.
1122: FND_MSG_PUB.Count_And_Get
1123: (p_count => x_msg_count,
1124: p_data => x_msg_data
1125: );
1126: EXCEPTION
1127:
1128: WHEN OZF_Utility_PVT.resource_locked THEN
1129: x_return_status := FND_API.g_ret_sts_error;
1130: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1131:
1132: WHEN FND_API.G_EXC_ERROR THEN
1126: EXCEPTION
1127:
1128: WHEN OZF_Utility_PVT.resource_locked THEN
1129: x_return_status := FND_API.g_ret_sts_error;
1130: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1131:
1132: WHEN FND_API.G_EXC_ERROR THEN
1133: ROLLBACK TO CREATE_Ozf_Disc_Line_PVT;
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1252:
1253:
1254:
1255: -- Debug Message
1256: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1257:
1258:
1259:
1260: -- Initialize API return status to SUCCESS
1260: -- Initialize API return status to SUCCESS
1261: x_return_status := FND_API.G_RET_STS_SUCCESS;
1262:
1263: -- Debug Message
1264: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
1265:
1266: OPEN c_get_Ozf_Disc_Line( l_tar_ozf_offer_line_rec.offer_discount_line_id);
1267: FETCH c_get_Ozf_Disc_Line INTO l_ref_ozf_offer_line_rec ;
1268: If ( c_get_Ozf_Disc_Line%NOTFOUND) THEN
1265:
1266: OPEN c_get_Ozf_Disc_Line( l_tar_ozf_offer_line_rec.offer_discount_line_id);
1267: FETCH c_get_Ozf_Disc_Line INTO l_ref_ozf_offer_line_rec ;
1268: If ( c_get_Ozf_Disc_Line%NOTFOUND) THEN
1269: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
1270: p_token_name => 'INFO',
1271: p_token_value => 'Ozf_Disc_Line') ;
1272: RAISE FND_API.G_EXC_ERROR;
1273: END IF;
1276:
1277:
1278: If (l_tar_ozf_offer_line_rec.object_version_number is NULL or
1279: l_tar_ozf_offer_line_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1280: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1281: p_token_name => 'COLUMN',
1282: p_token_value => 'Last_Update_Date') ;
1283: raise FND_API.G_EXC_ERROR;
1284: End if;
1283: raise FND_API.G_EXC_ERROR;
1284: End if;
1285: -- Check Whether record has been changed by someone else
1286: If (l_tar_ozf_offer_line_rec.object_version_number <> l_ref_ozf_offer_line_rec.object_version_number) Then
1287: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1288: p_token_name => 'INFO',
1289: p_token_value => 'Ozf_Disc_Line') ;
1290: raise FND_API.G_EXC_ERROR;
1291: End if;
1293:
1294: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1295: THEN
1296: -- Debug message
1297: OZF_UTILITY_PVT.debug_message('Private API: Validate_Ozf_Disc_Line');
1298:
1299: -- Invoke validation procedures
1300: Validate_ozf_disc_line(
1301: p_api_version_number => 1.0,
1372: END IF;
1373:
1374:
1375: -- Debug Message
1376: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1377:
1378:
1379: -- Standard call to get message count and if count is 1, get message info.
1380: FND_MSG_PUB.Count_And_Get
1382: p_data => x_msg_data
1383: );
1384: EXCEPTION
1385:
1386: WHEN OZF_Utility_PVT.resource_locked THEN
1387: x_return_status := FND_API.g_ret_sts_error;
1388: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1389:
1390: WHEN FND_API.G_EXC_ERROR THEN
1384: EXCEPTION
1385:
1386: WHEN OZF_Utility_PVT.resource_locked THEN
1387: x_return_status := FND_API.g_ret_sts_error;
1388: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1389:
1390: WHEN FND_API.G_EXC_ERROR THEN
1391: ROLLBACK TO UPDATE_Ozf_Disc_Line_PVT;
1392: x_return_status := FND_API.G_RET_STS_ERROR;
1496:
1497:
1498:
1499: -- Debug Message
1500: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1501:
1502:
1503:
1504: -- Initialize API return status to SUCCESS
1507: --
1508: -- Api body
1509: --
1510: -- Debug Message
1511: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1512:
1513: -- Invoke table handler(OZF_DISC_LINE_PKG.Delete_Row)
1514: OZF_DISC_LINE_PKG.Delete_Row(
1515: p_offer_discount_line_id => p_offer_discount_line_id,
1525: END IF;
1526:
1527:
1528: -- Debug Message
1529: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1530:
1531:
1532: -- Standard call to get message count and if count is 1, get message info.
1533: FND_MSG_PUB.Count_And_Get
1535: p_data => x_msg_data
1536: );
1537: EXCEPTION
1538:
1539: WHEN OZF_Utility_PVT.resource_locked THEN
1540: x_return_status := FND_API.g_ret_sts_error;
1541: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1542:
1543: WHEN FND_API.G_EXC_ERROR THEN
1537: EXCEPTION
1538:
1539: WHEN OZF_Utility_PVT.resource_locked THEN
1540: x_return_status := FND_API.g_ret_sts_error;
1541: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1542:
1543: WHEN FND_API.G_EXC_ERROR THEN
1544: ROLLBACK TO DELETE_Ozf_Disc_Line_PVT;
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1632:
1633: BEGIN
1634:
1635: -- Debug Message
1636: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1637:
1638:
1639: -- Initialize message list if p_init_msg_list is set to TRUE.
1640: IF FND_API.to_Boolean( p_init_msg_list )
1667: FND_MSG_PUB.count_and_get(
1668: p_encoded => FND_API.g_false,
1669: p_count => x_msg_count,
1670: p_data => x_msg_data);
1671: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1672: EXCEPTION
1673:
1674: WHEN OZF_Utility_PVT.resource_locked THEN
1675: x_return_status := FND_API.g_ret_sts_error;
1670: p_data => x_msg_data);
1671: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1672: EXCEPTION
1673:
1674: WHEN OZF_Utility_PVT.resource_locked THEN
1675: x_return_status := FND_API.g_ret_sts_error;
1676: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1677:
1678: WHEN FND_API.G_EXC_ERROR THEN
1672: EXCEPTION
1673:
1674: WHEN OZF_Utility_PVT.resource_locked THEN
1675: x_return_status := FND_API.g_ret_sts_error;
1676: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1677:
1678: WHEN FND_API.G_EXC_ERROR THEN
1679: ROLLBACK TO Lock_Ozf_Prod_Line_PVT;
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1745: x_return_status := FND_API.g_ret_sts_success;
1746: IF p_validation_mode = JTF_PLSQL_API.g_create
1747: AND p_ozf_prod_rec.off_discount_product_id IS NOT NULL
1748: THEN
1749: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
1750: 'ozf_offer_discount_products',
1751: 'off_discount_product_id = ''' || p_ozf_prod_rec.off_discount_product_id ||''''
1752: );
1753: END IF;
1751: 'off_discount_product_id = ''' || p_ozf_prod_rec.off_discount_product_id ||''''
1752: );
1753: END IF;
1754: IF l_valid_flag = FND_API.g_false THEN
1755: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFF_DISC_PROD_ID_DUP');
1756: x_return_status := FND_API.g_ret_sts_error;
1757: END IF;
1758:
1759: END check_Ozf_Prod_Uk_Items;
1772: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1773:
1774:
1775: IF p_ozf_prod_rec.offer_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.offer_id IS NULL THEN
1776: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_ID');
1777: x_return_status := FND_API.g_ret_sts_error;
1778: END IF;
1779: IF p_ozf_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.offer_discount_line_id IS NULL THEN
1780: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1776: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_ID');
1777: x_return_status := FND_API.g_ret_sts_error;
1778: END IF;
1779: IF p_ozf_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.offer_discount_line_id IS NULL THEN
1780: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1781: x_return_status := FND_API.g_ret_sts_error;
1782: END IF;
1783: IF p_ozf_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.off_discount_product_id IS NULL THEN
1784: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1780: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1781: x_return_status := FND_API.g_ret_sts_error;
1782: END IF;
1783: IF p_ozf_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.off_discount_product_id IS NULL THEN
1784: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1785: x_return_status := FND_API.g_ret_sts_error;
1786: END IF;
1787:
1788:
1786: END IF;
1787:
1788:
1789: IF p_ozf_prod_rec.product_level = FND_API.g_miss_char OR p_ozf_prod_rec.product_level IS NULL THEN
1790: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_LEVEL' );
1791: x_return_status := FND_API.g_ret_sts_error;
1792: END IF;
1793:
1794:
1792: END IF;
1793:
1794:
1795: IF p_ozf_prod_rec.product_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.product_id IS NULL THEN
1796: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_ID' );
1797: x_return_status := FND_API.g_ret_sts_error;
1798: END IF;
1799:
1800:
1798: END IF;
1799:
1800:
1801: IF p_ozf_prod_rec.excluder_flag = FND_API.g_miss_char OR p_ozf_prod_rec.excluder_flag IS NULL THEN
1802: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'EXCLUDER_FLAG' );
1803: x_return_status := FND_API.g_ret_sts_error;
1804: END IF;
1805:
1806:
1804: END IF;
1805:
1806:
1807: /* IF p_ozf_prod_rec.uom_code = FND_API.g_miss_char OR p_ozf_prod_rec.uom_code IS NULL THEN
1808: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'UOM_CODE' );
1809: x_return_status := FND_API.g_ret_sts_error;
1810: END IF;
1811: */
1812:
1812:
1813: ELSE
1814:
1815: IF p_ozf_prod_rec.offer_id = FND_API.G_MISS_NUM THEN
1816: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_ID');
1817: x_return_status := FND_API.g_ret_sts_error;
1818: END IF;
1819: IF p_ozf_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
1820: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1816: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_ID');
1817: x_return_status := FND_API.g_ret_sts_error;
1818: END IF;
1819: IF p_ozf_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
1820: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1821: x_return_status := FND_API.g_ret_sts_error;
1822: END IF;
1823: IF p_ozf_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM THEN
1824: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1820: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1821: x_return_status := FND_API.g_ret_sts_error;
1822: END IF;
1823: IF p_ozf_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM THEN
1824: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1825: x_return_status := FND_API.g_ret_sts_error;
1826: END IF;
1827:
1828:
1826: END IF;
1827:
1828:
1829: IF p_ozf_prod_rec.product_level = FND_API.g_miss_char THEN
1830: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_LEVEL' );
1831: x_return_status := FND_API.g_ret_sts_error;
1832: END IF;
1833:
1834:
1832: END IF;
1833:
1834:
1835: IF p_ozf_prod_rec.product_id = FND_API.G_MISS_NUM THEN
1836: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_ID' );
1837: x_return_status := FND_API.g_ret_sts_error;
1838: END IF;
1839:
1840:
1838: END IF;
1839:
1840:
1841: IF p_ozf_prod_rec.excluder_flag = FND_API.g_miss_char THEN
1842: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'EXCLUDER_FLAG' );
1843: x_return_status := FND_API.g_ret_sts_error;
1844: END IF;
1845:
1846:
1844: END IF;
1845:
1846:
1847: /* IF p_ozf_prod_rec.uom_code = FND_API.g_miss_char THEN
1848: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'UOM_CODE' );
1849: x_return_status := FND_API.g_ret_sts_error;
1850: END IF; */
1851: END IF;
1852:
1863: x_return_status := FND_API.g_ret_sts_success;
1864:
1865: -- Enter custom code here
1866: IF p_ozf_prod_rec.offer_id is not null AND p_ozf_prod_rec.offer_id <> FND_API.G_MISS_NUM THEN
1867: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_ozf_prod_rec.offer_id)) = FND_API.g_false THEN
1868: OZF_Utility_PVT.Error_Message('OZF_PROD_OFFER_ID_FK_DUP' ); -- correct message
1869: x_return_status := FND_API.g_ret_sts_error;
1870: END IF;
1871: END IF;
1864:
1865: -- Enter custom code here
1866: IF p_ozf_prod_rec.offer_id is not null AND p_ozf_prod_rec.offer_id <> FND_API.G_MISS_NUM THEN
1867: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_ozf_prod_rec.offer_id)) = FND_API.g_false THEN
1868: OZF_Utility_PVT.Error_Message('OZF_PROD_OFFER_ID_FK_DUP' ); -- correct message
1869: x_return_status := FND_API.g_ret_sts_error;
1870: END IF;
1871: END IF;
1872:
1871: END IF;
1872:
1873: IF p_ozf_prod_rec.offer_discount_line_id <> -1 THEN
1874: IF p_ozf_prod_rec.offer_discount_line_id is not null AND p_ozf_prod_rec.offer_discount_line_id <> fnd_api.g_miss_num THEN
1875: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_ozf_prod_rec.offer_discount_line_id)) = FND_API.g_false THEN
1876: OZF_Utility_PVT.Error_Message('OZF_DISC_LINE_FK_DUP' ); -- correct message
1877: x_return_status := FND_API.g_ret_sts_error;
1878: END IF;
1879: END IF;
1872:
1873: IF p_ozf_prod_rec.offer_discount_line_id <> -1 THEN
1874: IF p_ozf_prod_rec.offer_discount_line_id is not null AND p_ozf_prod_rec.offer_discount_line_id <> fnd_api.g_miss_num THEN
1875: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_ozf_prod_rec.offer_discount_line_id)) = FND_API.g_false THEN
1876: OZF_Utility_PVT.Error_Message('OZF_DISC_LINE_FK_DUP' ); -- correct message
1877: x_return_status := FND_API.g_ret_sts_error;
1878: END IF;
1879: END IF;
1880: END IF;
1908: -- Enter custom code here
1909: IF p_ozf_prod_rec.excluder_flag = 'N' THEN
1910: l_item_exists := check_item_exists(p_ozf_prod_rec.product_level,p_ozf_prod_rec.product_id,p_ozf_prod_rec.offer_id,p_ozf_prod_rec.excluder_flag);
1911: IF l_item_exists = 'Y' THEN
1912: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFR_DUPL_ITEM');
1913: x_return_status := FND_API.g_ret_sts_error;
1914: return;
1915: END IF;
1916: END IF;
2122: -- THEN
2123: -- x_return_status := FND_API.G_RET_STS_ERROR;
2124:
2125: -- Debug Message
2126: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
2127: -- Standard call to get message count and if count is 1, get message info.
2128: FND_MSG_PUB.Count_And_Get
2129: (p_count => x_msg_count,
2130: p_data => x_msg_data
2166: FND_MSG_PUB.initialize;
2167: END IF;
2168:
2169: -- Debug Message
2170: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2171:
2172:
2173:
2174: -- Initialize API return status to SUCCESS
2211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2212: END IF;
2213: END IF;
2214: -- Debug Message
2215: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2216:
2217:
2218: -- Standard call to get message count and if count is 1, get message info.
2219: FND_MSG_PUB.Count_And_Get
2221: p_data => x_msg_data
2222: );
2223: EXCEPTION
2224:
2225: WHEN OZF_Utility_PVT.resource_locked THEN
2226: x_return_status := FND_API.g_ret_sts_error;
2227: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2228:
2229: WHEN FND_API.G_EXC_ERROR THEN
2223: EXCEPTION
2224:
2225: WHEN OZF_Utility_PVT.resource_locked THEN
2226: x_return_status := FND_API.g_ret_sts_error;
2227: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2228:
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: ROLLBACK TO VALIDATE_Create_Ozf_Prod_Line_;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2350:
2351:
2352:
2353: -- Debug Message
2354: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2355:
2356:
2357:
2358: -- Initialize API return status to SUCCESS
2363: -- =========================================================================
2364:
2365: IF FND_GLOBAL.USER_ID IS NULL
2366: THEN
2367: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
2368: RAISE FND_API.G_EXC_ERROR;
2369: END IF;
2370:
2371:
2397:
2398: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
2399: THEN
2400: -- Debug message
2401: OZF_UTILITY_PVT.debug_message('Private API: Validate_Create_Ozf_Prod_Line');
2402:
2403: -- Invoke validation procedures
2404: Validate_create_ozf_prod_line(
2405: p_api_version_number => 1.0,
2416: RAISE FND_API.G_EXC_ERROR;
2417: END IF;
2418:
2419: -- Debug Message
2420: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
2421:
2422: -- Invoke table handler(Ozf_Create_Ozf_Prod_Line_Pkg.Insert_Row)
2423: Ozf_Create_Ozf_Prod_Line_Pkg.Insert_Row(
2424: px_off_discount_product_id => l_off_discount_product_id,
2454: END IF;
2455:
2456:
2457: -- Debug Message
2458: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2459:
2460:
2461: -- Standard call to get message count and if count is 1, get message info.
2462: FND_MSG_PUB.Count_And_Get
2464: p_data => x_msg_data
2465: );
2466: EXCEPTION
2467:
2468: WHEN OZF_Utility_PVT.resource_locked THEN
2469: x_return_status := FND_API.g_ret_sts_error;
2470: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2471:
2472: WHEN FND_API.G_EXC_ERROR THEN
2466: EXCEPTION
2467:
2468: WHEN OZF_Utility_PVT.resource_locked THEN
2469: x_return_status := FND_API.g_ret_sts_error;
2470: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2471:
2472: WHEN FND_API.G_EXC_ERROR THEN
2473: ROLLBACK TO Create_Ozf_Prod_Line_PVT;
2474: x_return_status := FND_API.G_RET_STS_ERROR;
2592:
2593:
2594:
2595: -- Debug Message
2596: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2597:
2598:
2599:
2600: -- Initialize API return status to SUCCESS
2600: -- Initialize API return status to SUCCESS
2601: x_return_status := FND_API.G_RET_STS_SUCCESS;
2602:
2603: -- Debug Message
2604: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
2605:
2606: OPEN c_get_Create_Ozf_Prod_Line( l_tar_ozf_prod_rec.off_discount_product_id);
2607:
2608: FETCH c_get_Create_Ozf_Prod_Line INTO l_ref_ozf_prod_rec ;
2607:
2608: FETCH c_get_Create_Ozf_Prod_Line INTO l_ref_ozf_prod_rec ;
2609:
2610: If ( c_get_Create_Ozf_Prod_Line%NOTFOUND) THEN
2611: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
2612: p_token_name => 'INFO',
2613: p_token_value => 'Create_Ozf_Prod_Line') ;
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2613: p_token_value => 'Create_Ozf_Prod_Line') ;
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616: -- Debug Message
2617: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
2618: CLOSE c_get_Create_Ozf_Prod_Line;
2619:
2620:
2621: /* If (l_tar_ozf_prod_rec.object_version_number is NULL or
2619:
2620:
2621: /* If (l_tar_ozf_prod_rec.object_version_number is NULL or
2622: l_tar_ozf_prod_rec.object_version_number = FND_API.G_MISS_NUM ) Then
2623: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
2624: p_token_name => 'COLUMN',
2625: p_token_value => 'Last_Update_Date') ;
2626: raise FND_API.G_EXC_ERROR;
2627: End if;
2626: raise FND_API.G_EXC_ERROR;
2627: End if;
2628: -- Check Whether record has been changed by someone else
2629: If (l_tar_ozf_prod_rec.object_version_number <> l_ref_ozf_prod_rec.object_version_number) Then
2630: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
2631: p_token_name => 'INFO',
2632: p_token_value => 'Create_Ozf_Prod_Line') ;
2633: raise FND_API.G_EXC_ERROR;
2634: End if;
2636:
2637: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
2638: THEN
2639: -- Debug message
2640: OZF_UTILITY_PVT.debug_message('Private API: Validate_Create_Ozf_Prod_Line');
2641:
2642: -- Invoke validation procedures
2643: Validate_create_ozf_prod_line(
2644: p_api_version_number => 1.0,
2656: END IF;
2657:
2658:
2659: -- Debug Message
2660: -- OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
2661:
2662: -- Invoke table handler(Ozf_Create_Ozf_Prod_Line_Pkg.Update_Row)
2663: Ozf_Create_Ozf_Prod_Line_Pkg.Update_Row(
2664: p_off_discount_product_id => p_ozf_prod_rec.off_discount_product_id,
2687: END IF;
2688:
2689:
2690: -- Debug Message
2691: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2692:
2693:
2694: -- Standard call to get message count and if count is 1, get message info.
2695: FND_MSG_PUB.Count_And_Get
2697: p_data => x_msg_data
2698: );
2699: EXCEPTION
2700:
2701: WHEN OZF_Utility_PVT.resource_locked THEN
2702: x_return_status := FND_API.g_ret_sts_error;
2703: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2704:
2705: WHEN FND_API.G_EXC_ERROR THEN
2699: EXCEPTION
2700:
2701: WHEN OZF_Utility_PVT.resource_locked THEN
2702: x_return_status := FND_API.g_ret_sts_error;
2703: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2704:
2705: WHEN FND_API.G_EXC_ERROR THEN
2706: ROLLBACK TO Update_Ozf_Prod_Line_PVT;
2707: x_return_status := FND_API.G_RET_STS_ERROR;
2761: BEGIN
2762: SAVEPOINT Delete_Exclusions_sp;
2763: x_return_status := FND_API.G_RET_STS_SUCCESS;
2764:
2765: ozf_utility_pvt.debug_message('@# Parent Prod Id is '||p_parent_off_disc_prod_id);
2766: FOR excl_rec IN c_excl_id LOOP
2767: ozf_utility_pvt.debug_message('@# Prod id is '||excl_rec.off_discount_product_id);
2768: OZF_Create_Ozf_Prod_Line_PKG.Delete_row(
2769: p_off_discount_product_id => excl_rec.off_discount_product_id,
2763: x_return_status := FND_API.G_RET_STS_SUCCESS;
2764:
2765: ozf_utility_pvt.debug_message('@# Parent Prod Id is '||p_parent_off_disc_prod_id);
2766: FOR excl_rec IN c_excl_id LOOP
2767: ozf_utility_pvt.debug_message('@# Prod id is '||excl_rec.off_discount_product_id);
2768: OZF_Create_Ozf_Prod_Line_PKG.Delete_row(
2769: p_off_discount_product_id => excl_rec.off_discount_product_id,
2770: p_object_version_number => excl_rec.object_version_number);
2771: END LOOP;
2885:
2886:
2887:
2888: -- Debug Message
2889: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2890:
2891:
2892:
2893: -- Initialize API return status to SUCCESS
2896: --
2897: -- Api body
2898: --
2899: -- Debug Message
2900: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
2901: -- Invoke table handler(Ozf_Create_Ozf_Prod_Line_Pkg.Delete_Row)
2902: open c_offer_id(p_off_discount_product_id);
2903: fetch c_offer_id INTO l_offer_id;
2904: close c_offer_id;
2902: open c_offer_id(p_off_discount_product_id);
2903: fetch c_offer_id INTO l_offer_id;
2904: close c_offer_id;
2905: IF is_delete_valid(l_offer_id) = 'N' THEN
2906: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFR_CANT_DELETE_LINE');
2907: RAISE FND_API.G_EXC_ERROR;
2908: END IF;
2909: DELETE_EXCLUSIONS(
2910: p_api_version_number => p_api_version_number,
2934: END IF;
2935:
2936:
2937: -- Debug Message
2938: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2939:
2940:
2941: -- Standard call to get message count and if count is 1, get message info.
2942: FND_MSG_PUB.Count_And_Get
2944: p_data => x_msg_data
2945: );
2946: EXCEPTION
2947:
2948: WHEN OZF_Utility_PVT.resource_locked THEN
2949: x_return_status := FND_API.g_ret_sts_error;
2950: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2951:
2952: WHEN FND_API.G_EXC_ERROR THEN
2946: EXCEPTION
2947:
2948: WHEN OZF_Utility_PVT.resource_locked THEN
2949: x_return_status := FND_API.g_ret_sts_error;
2950: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2951:
2952: WHEN FND_API.G_EXC_ERROR THEN
2953: ROLLBACK TO Delete_Ozf_Prod_Line_PVT;
2954: x_return_status := FND_API.G_RET_STS_ERROR;
3042:
3043: BEGIN
3044:
3045: -- Debug Message
3046: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3047:
3048:
3049: -- Initialize message list if p_init_msg_list is set to TRUE.
3050: IF FND_API.to_Boolean( p_init_msg_list )
3077: FND_MSG_PUB.count_and_get(
3078: p_encoded => FND_API.g_false,
3079: p_count => x_msg_count,
3080: p_data => x_msg_data);
3081: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3082: EXCEPTION
3083:
3084: WHEN OZF_Utility_PVT.resource_locked THEN
3085: x_return_status := FND_API.g_ret_sts_error;
3080: p_data => x_msg_data);
3081: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3082: EXCEPTION
3083:
3084: WHEN OZF_Utility_PVT.resource_locked THEN
3085: x_return_status := FND_API.g_ret_sts_error;
3086: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3087:
3088: WHEN FND_API.G_EXC_ERROR THEN
3082: EXCEPTION
3083:
3084: WHEN OZF_Utility_PVT.resource_locked THEN
3085: x_return_status := FND_API.g_ret_sts_error;
3086: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3087:
3088: WHEN FND_API.G_EXC_ERROR THEN
3089: ROLLBACK TO LOCK_Prod_Reln_PVT;
3090: x_return_status := FND_API.G_RET_STS_ERROR;
3131: x_return_status := FND_API.g_ret_sts_success;
3132: IF p_validation_mode = JTF_PLSQL_API.g_create
3133: AND p_prod_reln_rec.discount_product_reln_id IS NOT NULL
3134: THEN
3135: IF OZF_Utility_PVT.check_uniqueness(
3136: 'ozf_discount_product_reln',
3137: 'discount_product_reln_id = ''' || p_prod_reln_rec.discount_product_reln_id ||''''
3138: ) = FND_API.g_false THEN
3139:
3136: 'ozf_discount_product_reln',
3137: 'discount_product_reln_id = ''' || p_prod_reln_rec.discount_product_reln_id ||''''
3138: ) = FND_API.g_false THEN
3139:
3140: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_PROD_RELN_ID_DUP');
3141: x_return_status := FND_API.g_ret_sts_error;
3142: END IF;
3143: END IF;
3144: l_valid_flag := OZF_Utility_PVT.check_uniqueness('ozf_discount_product_reln'
3140: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_PROD_RELN_ID_DUP');
3141: x_return_status := FND_API.g_ret_sts_error;
3142: END IF;
3143: END IF;
3144: l_valid_flag := OZF_Utility_PVT.check_uniqueness('ozf_discount_product_reln'
3145: ,'offer_discount_line_id = '
3146: ||p_prod_reln_rec.offer_discount_line_id
3147: ||' AND off_discount_product_id = '
3148: ||p_prod_reln_rec.off_discount_product_id);
3146: ||p_prod_reln_rec.offer_discount_line_id
3147: ||' AND off_discount_product_id = '
3148: ||p_prod_reln_rec.off_discount_product_id);
3149: IF l_valid_flag = FND_API.g_false THEN
3150: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_PROD_RELN_ID_DUP');
3151: x_return_status := FND_API.g_ret_sts_error; -- Correct Message
3152: END IF;
3153:
3154: END check_Prod_Reln_Uk_Items;
3167: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
3168:
3169:
3170: IF p_prod_reln_rec.discount_product_reln_id = FND_API.G_MISS_NUM OR p_prod_reln_rec.discount_product_reln_id IS NULL THEN
3171: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_PRODUCT_RELN_ID' );
3172: x_return_status := FND_API.g_ret_sts_error;
3173: END IF;
3174:
3175:
3173: END IF;
3174:
3175:
3176: IF p_prod_reln_rec.offer_discount_line_id = FND_API.G_MISS_NUM OR p_prod_reln_rec.offer_discount_line_id IS NULL THEN
3177: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
3178: x_return_status := FND_API.g_ret_sts_error;
3179: END IF;
3180:
3181:
3179: END IF;
3180:
3181:
3182: IF p_prod_reln_rec.off_discount_product_id = FND_API.G_MISS_NUM OR p_prod_reln_rec.off_discount_product_id IS NULL THEN
3183: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
3184: x_return_status := FND_API.g_ret_sts_error;
3185: END IF;
3186:
3187:
3188: ELSE
3189:
3190:
3191: IF p_prod_reln_rec.discount_product_reln_id = FND_API.G_MISS_NUM THEN
3192: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_PRODUCT_RELN_ID' );
3193: x_return_status := FND_API.g_ret_sts_error;
3194: END IF;
3195:
3196:
3194: END IF;
3195:
3196:
3197: IF p_prod_reln_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
3198: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
3199: x_return_status := FND_API.g_ret_sts_error;
3200: END IF;
3201:
3202:
3200: END IF;
3201:
3202:
3203: IF p_prod_reln_rec.off_discount_product_id = FND_API.G_MISS_NUM THEN
3204: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
3205: x_return_status := FND_API.g_ret_sts_error;
3206: END IF;
3207: END IF;
3208:
3219: x_return_status := FND_API.g_ret_sts_success;
3220:
3221: -- Enter custom code here
3222: IF p_prod_reln_rec.offer_discount_line_id <> -1 THEN
3223: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_prod_reln_rec.offer_discount_line_id)) = FND_API.g_false THEN
3224: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3225: x_return_status := FND_API.g_ret_sts_error;
3226: END IF;
3227: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_PRODUCTS','OFF_DISCOUNT_PRODUCT_ID',to_char(p_prod_reln_rec.off_discount_product_id)) = FND_API.g_false THEN
3220:
3221: -- Enter custom code here
3222: IF p_prod_reln_rec.offer_discount_line_id <> -1 THEN
3223: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_prod_reln_rec.offer_discount_line_id)) = FND_API.g_false THEN
3224: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3225: x_return_status := FND_API.g_ret_sts_error;
3226: END IF;
3227: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_PRODUCTS','OFF_DISCOUNT_PRODUCT_ID',to_char(p_prod_reln_rec.off_discount_product_id)) = FND_API.g_false THEN
3228: OZF_Utility_PVT.Error_Message('Prod_ReL_FK_Dupliucate2' );--correct message
3223: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_prod_reln_rec.offer_discount_line_id)) = FND_API.g_false THEN
3224: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3225: x_return_status := FND_API.g_ret_sts_error;
3226: END IF;
3227: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_PRODUCTS','OFF_DISCOUNT_PRODUCT_ID',to_char(p_prod_reln_rec.off_discount_product_id)) = FND_API.g_false THEN
3228: OZF_Utility_PVT.Error_Message('Prod_ReL_FK_Dupliucate2' );--correct message
3229: x_return_status := FND_API.g_ret_sts_error;
3230: END IF;
3231: END IF;
3224: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3225: x_return_status := FND_API.g_ret_sts_error;
3226: END IF;
3227: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_PRODUCTS','OFF_DISCOUNT_PRODUCT_ID',to_char(p_prod_reln_rec.off_discount_product_id)) = FND_API.g_false THEN
3228: OZF_Utility_PVT.Error_Message('Prod_ReL_FK_Dupliucate2' );--correct message
3229: x_return_status := FND_API.g_ret_sts_error;
3230: END IF;
3231: END IF;
3232:
3413: -- THEN
3414: -- x_return_status := FND_API.G_RET_STS_ERROR;
3415:
3416: -- Debug Message
3417: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
3418: -- Standard call to get message count and if count is 1, get message info.
3419: FND_MSG_PUB.Count_And_Get
3420: (p_count => x_msg_count,
3421: p_data => x_msg_data
3502: END IF;
3503:
3504:
3505: -- Debug Message
3506: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3507:
3508:
3509:
3510: -- Initialize API return status to SUCCESS
3511: x_return_status := FND_API.G_RET_STS_SUCCESS;
3512:
3513:
3514: -- Debug Message
3515: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3516:
3517:
3518: -- Standard call to get message count and if count is 1, get message info.
3519: FND_MSG_PUB.Count_And_Get
3521: p_data => x_msg_data
3522: );
3523: EXCEPTION
3524:
3525: WHEN OZF_Utility_PVT.resource_locked THEN
3526: x_return_status := FND_API.g_ret_sts_error;
3527: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3528:
3529: WHEN FND_API.G_EXC_ERROR THEN
3523: EXCEPTION
3524:
3525: WHEN OZF_Utility_PVT.resource_locked THEN
3526: x_return_status := FND_API.g_ret_sts_error;
3527: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3528:
3529: WHEN FND_API.G_EXC_ERROR THEN
3530: ROLLBACK TO VALIDATE_Prod_Reln_;
3531: x_return_status := FND_API.G_RET_STS_ERROR;
3653:
3654:
3655:
3656: -- Debug Message
3657: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3658:
3659:
3660:
3661: -- Initialize API return status to SUCCESS
3666: -- =========================================================================
3667:
3668: IF FND_GLOBAL.USER_ID IS NULL
3669: THEN
3670: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
3671: RAISE FND_API.G_EXC_ERROR;
3672: END IF;
3673:
3674:
3697:
3698: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3699: THEN
3700: -- Debug message
3701: OZF_UTILITY_PVT.debug_message('Private API: Validate_Prod_Reln');
3702: -- Invoke validation procedures
3703: Validate_prod_reln(
3704: p_api_version_number => 1.0,
3705: p_init_msg_list => FND_API.G_FALSE,
3715: RAISE FND_API.G_EXC_ERROR;
3716: END IF;
3717:
3718: -- Debug Message
3719: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
3720:
3721: -- Invoke table handler(Ozf_Prod_Reln_Pkg.Insert_Row)
3722: Ozf_Prod_Reln_Pkg.Insert_Row(
3723: px_discount_product_reln_id => l_discount_product_reln_id,
3746: END IF;
3747:
3748:
3749: -- Debug Message
3750: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3751:
3752:
3753: -- Standard call to get message count and if count is 1, get message info.
3754: FND_MSG_PUB.Count_And_Get
3756: p_data => x_msg_data
3757: );
3758: EXCEPTION
3759:
3760: WHEN OZF_Utility_PVT.resource_locked THEN
3761: x_return_status := FND_API.g_ret_sts_error;
3762: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3763:
3764: WHEN FND_API.G_EXC_ERROR THEN
3758: EXCEPTION
3759:
3760: WHEN OZF_Utility_PVT.resource_locked THEN
3761: x_return_status := FND_API.g_ret_sts_error;
3762: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3763:
3764: WHEN FND_API.G_EXC_ERROR THEN
3765: ROLLBACK TO CREATE_Prod_Reln_PVT;
3766: x_return_status := FND_API.G_RET_STS_ERROR;
3884:
3885:
3886:
3887: -- Debug Message
3888: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3889:
3890:
3891:
3892: -- Initialize API return status to SUCCESS
3892: -- Initialize API return status to SUCCESS
3893: x_return_status := FND_API.G_RET_STS_SUCCESS;
3894:
3895: -- Debug Message
3896: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
3897:
3898: OPEN c_get_Prod_Reln( l_tar_prod_reln_rec.discount_product_reln_id);
3899:
3900: FETCH c_get_Prod_Reln INTO l_ref_prod_reln_rec ;
3899:
3900: FETCH c_get_Prod_Reln INTO l_ref_prod_reln_rec ;
3901:
3902: If ( c_get_Prod_Reln%NOTFOUND) THEN
3903: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
3904: p_token_name => 'INFO',
3905: p_token_value => 'Prod_Reln') ;
3906: RAISE FND_API.G_EXC_ERROR;
3907: END IF;
3905: p_token_value => 'Prod_Reln') ;
3906: RAISE FND_API.G_EXC_ERROR;
3907: END IF;
3908: -- Debug Message
3909: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
3910: CLOSE c_get_Prod_Reln;
3911:
3912:
3913: /* If (l_tar_prod_reln_rec.object_version_number is NULL or
3911:
3912:
3913: /* If (l_tar_prod_reln_rec.object_version_number is NULL or
3914: l_tar_prod_reln_rec.object_version_number = FND_API.G_MISS_NUM ) Then
3915: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
3916: p_token_name => 'COLUMN',
3917: p_token_value => 'Last_Update_Date') ;
3918: raise FND_API.G_EXC_ERROR;
3919: End if;
3918: raise FND_API.G_EXC_ERROR;
3919: End if;
3920: -- Check Whether record has been changed by someone else
3921: If (l_tar_prod_reln_rec.object_version_number <> l_ref_prod_reln_rec.object_version_number) Then
3922: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
3923: p_token_name => 'INFO',
3924: p_token_value => 'Prod_Reln') ;
3925: raise FND_API.G_EXC_ERROR;
3926: End if;
3928:
3929: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3930: THEN
3931: -- Debug message
3932: OZF_UTILITY_PVT.debug_message('Private API: Validate_Prod_Reln');
3933:
3934: -- Invoke validation procedures
3935: Validate_prod_reln(
3936: p_api_version_number => 1.0,
3948: END IF;
3949:
3950:
3951: -- Debug Message
3952: -- OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
3953:
3954: -- Invoke table handler(Ozf_Prod_Reln_Pkg.Update_Row)
3955: Ozf_Prod_Reln_Pkg.Update_Row(
3956: p_discount_product_reln_id => p_prod_reln_rec.discount_product_reln_id,
3972: END IF;
3973:
3974:
3975: -- Debug Message
3976: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3977:
3978:
3979: -- Standard call to get message count and if count is 1, get message info.
3980: FND_MSG_PUB.Count_And_Get
3982: p_data => x_msg_data
3983: );
3984: EXCEPTION
3985:
3986: WHEN OZF_Utility_PVT.resource_locked THEN
3987: x_return_status := FND_API.g_ret_sts_error;
3988: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3989:
3990: WHEN FND_API.G_EXC_ERROR THEN
3984: EXCEPTION
3985:
3986: WHEN OZF_Utility_PVT.resource_locked THEN
3987: x_return_status := FND_API.g_ret_sts_error;
3988: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3989:
3990: WHEN FND_API.G_EXC_ERROR THEN
3991: ROLLBACK TO UPDATE_Prod_Reln_PVT;
3992: x_return_status := FND_API.G_RET_STS_ERROR;
4096:
4097:
4098:
4099: -- Debug Message
4100: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4101:
4102:
4103:
4104: -- Initialize API return status to SUCCESS
4107: --
4108: -- Api body
4109: --
4110: -- Debug Message
4111: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
4112:
4113: -- Invoke table handler(Ozf_Prod_Reln_Pkg.Delete_Row)
4114: Ozf_Prod_Reln_Pkg.Delete_Row(
4115: p_discount_product_reln_id => p_discount_product_reln_id,
4125: END IF;
4126:
4127:
4128: -- Debug Message
4129: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4130:
4131:
4132: -- Standard call to get message count and if count is 1, get message info.
4133: FND_MSG_PUB.Count_And_Get
4135: p_data => x_msg_data
4136: );
4137: EXCEPTION
4138:
4139: WHEN OZF_Utility_PVT.resource_locked THEN
4140: x_return_status := FND_API.g_ret_sts_error;
4141: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
4142:
4143: WHEN FND_API.G_EXC_ERROR THEN
4137: EXCEPTION
4138:
4139: WHEN OZF_Utility_PVT.resource_locked THEN
4140: x_return_status := FND_API.g_ret_sts_error;
4141: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
4142:
4143: WHEN FND_API.G_EXC_ERROR THEN
4144: ROLLBACK TO DELETE_Prod_Reln_PVT;
4145: x_return_status := FND_API.G_RET_STS_ERROR;
4193: AND offer_discount_line_id = p_offer_discount_line_id
4194: );
4195: l_count NUMBER:= 0;
4196: BEGIN
4197: --ozf_utility_pvt.debug_message('COunt is : '||l_count);
4198: IF p_ozf_prod_rec.offer_discount_line_id <> -1 THEN -- If creating complete disount line
4199: OPEN C_SQL( p_ozf_prod_rec.offer_id,p_ozf_prod_rec.offer_discount_line_id);
4200: fetch c_sql INTO l_count;
4201: CLOSE C_SQL;
4291: END IF;
4292:
4293:
4294: -- Debug Message
4295: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4296:
4297: -- Initialize API return status to SUCCESS
4298: x_return_status := FND_API.G_RET_STS_SUCCESS;
4299:
4302: , p_ozf_prod_rec => p_ozf_prod_rec
4303: );
4304:
4305: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4306: OZF_Utility_PVT.Error_Message('INVALID OFFER_ID:DISCOUNT ID' );-- CHANGE MESSAGE
4307: RAISE FND_API.G_EXC_ERROR;
4308: END IF;
4309:
4310:
4448: l_msg_data VARCHAR2(2000);
4449:
4450: BEGIN
4451: SAVEPOINT Create_offer_line_pvt;
4452: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4453:
4454: -- Standard call to check for call compatibility.
4455: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4456: p_api_version_number,
4469:
4470:
4471:
4472: -- Debug Message
4473: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4474:
4475:
4476:
4477: -- Initialize API return status to SUCCESS
4506: p_ozf_prod_rec => l_ozf_prod_rec,
4507: x_off_discount_product_id => l_off_dicount_product_id
4508: );
4509:
4510: --ozf_utility_pvt.debug_message('@ Done calling Create Reln, Reln Id is '||l_discount_product_reln_id);
4511:
4512: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4513: RAISE FND_API.G_EXC_ERROR;
4514: END IF;
4519: END IF;
4520:
4521:
4522: -- Debug Message
4523: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4524:
4525:
4526: -- Standard call to get message count and if count is 1, get message info.
4527: FND_MSG_PUB.Count_And_Get
4696:
4697:
4698: BEGIN
4699: SAVEPOINT Create_discount_line_pvt;
4700: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4701:
4702: -- Standard call to check for call compatibility.
4703: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4704: p_api_version_number,
4717:
4718:
4719:
4720: -- Debug Message
4721: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4722:
4723:
4724:
4725: -- Initialize API return status to SUCCESS
4760: END IF;
4761:
4762:
4763: -- Debug Message
4764: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4765:
4766:
4767: -- Standard call to get message count and if count is 1, get message info.
4768: FND_MSG_PUB.Count_And_Get
4890: END IF;
4891:
4892:
4893: -- Debug Message
4894: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4895:
4896: -- Initialize API return status to SUCCESS
4897: x_return_status := FND_API.G_RET_STS_SUCCESS;
4898:
4937: END IF;
4938:
4939:
4940: -- Debug Message
4941: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4942:
4943:
4944: -- Standard call to get message count and if count is 1, get message info.
4945: FND_MSG_PUB.Count_And_Get
5016: l_rec c_get_ozf_disc_line%rowtype;
5017: */
5018: BEGIN
5019: SAVEPOINT Update_discount_line_pvt;
5020: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5021:
5022: -- Standard call to check for call compatibility.
5023: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5024: p_api_version_number,
5037:
5038:
5039:
5040: -- Debug Message
5041: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5042:
5043:
5044:
5045: -- Initialize API return status to SUCCESS
5051: close c_get_ozf_disc_line;
5052:
5053: If (p_ozf_discount_line_rec.object_version_number is NULL or
5054: p_ozf_discount_line_rec.object_version_number = FND_API.G_MISS_NUM ) Then
5055: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
5056: p_token_name => 'COLUMN',
5057: p_token_value => 'Last_Update_Date') ;
5058: raise FND_API.G_EXC_ERROR;
5059: End if;
5058: raise FND_API.G_EXC_ERROR;
5059: End if;
5060: -- Check Whether record has been changed by someone else
5061: If (p_ozf_discount_line_rec.object_version_number <> l_rec.object_version_number) Then
5062: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
5063: p_token_name => 'INFO',
5064: p_token_value => 'Ozf_Disc_Line') ;
5065: raise FND_API.G_EXC_ERROR;
5066: End if;
5096: END IF;
5097:
5098:
5099: -- Debug Message
5100: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5101:
5102:
5103: -- Standard call to get message count and if count is 1, get message info.
5104: FND_MSG_PUB.Count_And_Get
5264: END IF;
5265:
5266:
5267: -- Debug Message
5268: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5269:
5270: -- Initialize API return status to SUCCESS
5271: x_return_status := FND_API.G_RET_STS_SUCCESS;
5272: -- Update Product Line
5322: END IF;
5323:
5324:
5325: -- Debug Message
5326: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5327:
5328:
5329: -- Standard call to get message count and if count is 1, get message info.
5330: FND_MSG_PUB.Count_And_Get
5440: END IF;
5441:
5442:
5443: -- Debug Message
5444: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5445:
5446: -- Initialize API return status to SUCCESS
5447: x_return_status := FND_API.G_RET_STS_SUCCESS;
5448:
5458: END IF;
5459:
5460:
5461: -- Debug Message
5462: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5463:
5464:
5465: -- Standard call to get message count and if count is 1, get message info.
5466: FND_MSG_PUB.Count_And_Get
5579: END IF;
5580:
5581:
5582: -- Debug Message
5583: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5584:
5585: -- Initialize API return status to SUCCESS
5586: x_return_status := FND_API.G_RET_STS_SUCCESS;
5587:
5611: END IF;
5612:
5613:
5614: -- Debug Message
5615: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5616:
5617:
5618: -- Standard call to get message count and if count is 1, get message info.
5619: FND_MSG_PUB.Count_And_Get
5748: END IF;
5749:
5750:
5751: -- Debug Message
5752: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5753:
5754: -- Initialize API return status to SUCCESS
5755: x_return_status := FND_API.G_RET_STS_SUCCESS;
5756:
5757: open c_offer_id(p_offer_discount_line_id);
5758: fetch c_offer_id INTO l_offer_id;
5759: close c_offer_id;
5760: IF is_delete_valid(l_offer_id) = 'N' THEN
5761: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFR_CANT_DELETE_LINE');
5762: RAISE FND_API.G_EXC_ERROR;
5763: END IF;
5764:
5765: OPEN C_PARENT_DISC_LINE(p_offer_discount_line_id);
5821: END IF;
5822:
5823:
5824: -- Debug Message
5825: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5826:
5827:
5828: -- Standard call to get message count and if count is 1, get message info.
5829: FND_MSG_PUB.Count_And_Get
5987: END IF;
5988:
5989:
5990: -- Debug Message
5991: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5992:
5993: -- Initialize API return status to SUCCESS
5994: x_return_status := FND_API.G_RET_STS_SUCCESS;
5995:
6012: l_ozf_prod_rec.offer_id := l_prod_rec.offer_id;
6013: l_ozf_prod_rec.offer_discount_line_id := l_prod_rec.offer_discount_line_id;
6014:
6015: IF l_ozf_prod_rec.parent_off_disc_prod_id = FND_API.G_MISS_NUM OR l_ozf_prod_rec.parent_off_disc_prod_id IS NULL THEN
6016: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_OFF_DISC_PROD_ID' );
6017: x_return_status := FND_API.g_ret_sts_error;
6018: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6019: RAISE FND_API.G_EXC_ERROR;
6020: END IF;
6019: RAISE FND_API.G_EXC_ERROR;
6020: END IF;
6021: END IF;
6022:
6023: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_PRODUCTS','OFF_DISCOUNT_PRODUCT_ID',to_char(l_ozf_prod_rec.parent_off_disc_prod_id)) = FND_API.g_false THEN
6024: OZF_Utility_PVT.Error_Message('FK_Non_exist' ); -- correct message
6025: x_return_status := FND_API.g_ret_sts_error;
6026: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6027: RAISE FND_API.G_EXC_ERROR;
6020: END IF;
6021: END IF;
6022:
6023: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_PRODUCTS','OFF_DISCOUNT_PRODUCT_ID',to_char(l_ozf_prod_rec.parent_off_disc_prod_id)) = FND_API.g_false THEN
6024: OZF_Utility_PVT.Error_Message('FK_Non_exist' ); -- correct message
6025: x_return_status := FND_API.g_ret_sts_error;
6026: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6027: RAISE FND_API.G_EXC_ERROR;
6028: END IF;
6144: END IF;
6145:
6146:
6147: -- Debug Message
6148: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6149:
6150: -- Initialize API return status to SUCCESS
6151: x_return_status := FND_API.G_RET_STS_SUCCESS;
6152:
6155: CLOSE C_ozf_prod_rec;
6156:
6157: If (p_ozf_excl_rec.object_version_number is NULL or
6158: p_ozf_excl_rec.object_version_number = FND_API.G_MISS_NUM ) Then
6159: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
6160: p_token_name => 'COLUMN',
6161: p_token_value => 'Last_Update_Date') ;
6162: raise FND_API.G_EXC_ERROR;
6163: End if;
6162: raise FND_API.G_EXC_ERROR;
6163: End if;
6164: -- Check Whether record has been changed by someone else
6165: If (p_ozf_excl_rec.object_version_number <> l_ref_ozf_prod_rec.object_version_number) Then
6166: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
6167: p_token_name => 'INFO',
6168: p_token_value => 'Create_Ozf_Prod_Line') ;
6169: raise FND_API.G_EXC_ERROR;
6170: End if;
6169: raise FND_API.G_EXC_ERROR;
6170: End if;
6171:
6172: /* If (p_ozf_prod_rec.excluder_flag <> 'Y' ) Then
6173: OZF_Utility_PVT.Error_Message(p_message_name => 'NOT EXCLUSION') ;
6174: raise FND_API.G_EXC_ERROR;
6175: End if;
6176: */
6177:
6267: fetch c_sql INTO l_count;
6268: CLOSE C_SQL;
6269:
6270: IF l_count = 0 THEN
6271: ozf_utility_pvt.error_message('INVALID_parent_disc_offer');
6272: x_return_status := FND_API.g_ret_sts_error;
6273: ELSE
6274: x_return_status := FND_API.G_RET_STS_SUCCESS;
6275: END IF;
6348:
6349: IF l_tier_level <> 'HEADER' THEN
6350: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
6351: IF p_tier_rec.parent_discount_line_id = FND_API.g_miss_num OR p_tier_rec.parent_discount_line_id IS NULL THEN -- change check for parent tiers
6352: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_DISCOUNT_LINE_ID' );
6353: x_return_status := FND_API.g_ret_sts_error;
6354: END IF;
6355: ELSE
6356: IF p_tier_rec.parent_discount_line_id = FND_API.g_miss_num THEN
6353: x_return_status := FND_API.g_ret_sts_error;
6354: END IF;
6355: ELSE
6356: IF p_tier_rec.parent_discount_line_id = FND_API.g_miss_num THEN
6357: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_DISCOUNT_LINE_ID' );
6358: x_return_status := FND_API.g_ret_sts_error;
6359: END IF;
6360: END IF;
6361: END IF;
6373:
6374: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
6375:
6376: IF p_tier_rec.volume_from = FND_API.g_miss_num OR p_tier_rec.volume_from IS NULL THEN
6377: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
6378: x_return_status := FND_API.g_ret_sts_error;
6379: END IF;
6380:
6381:
6379: END IF;
6380:
6381:
6382: IF p_tier_rec.volume_to = FND_API.g_miss_num OR p_tier_rec.volume_to IS NULL THEN
6383: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
6384: x_return_status := FND_API.g_ret_sts_error;
6385: END IF;
6386: /*
6387: IF p_tier_rec.volume_operator = FND_API.g_miss_char OR p_tier_rec.volume_operator IS NULL THEN
6384: x_return_status := FND_API.g_ret_sts_error;
6385: END IF;
6386: /*
6387: IF p_tier_rec.volume_operator = FND_API.g_miss_char OR p_tier_rec.volume_operator IS NULL THEN
6388: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_OPERATOR' );
6389: x_return_status := FND_API.g_ret_sts_error;
6390: END IF;
6391: */
6392: IF p_tier_rec.volume_type = FND_API.g_miss_char OR p_tier_rec.volume_type IS NULL THEN
6389: x_return_status := FND_API.g_ret_sts_error;
6390: END IF;
6391: */
6392: IF p_tier_rec.volume_type = FND_API.g_miss_char OR p_tier_rec.volume_type IS NULL THEN
6393: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
6394: x_return_status := FND_API.g_ret_sts_error;
6395: END IF;
6396: /*
6397: IF p_tier_rec.volume_break_type = FND_API.g_miss_char OR p_tier_rec.volume_break_type IS NULL THEN
6394: x_return_status := FND_API.g_ret_sts_error;
6395: END IF;
6396: /*
6397: IF p_tier_rec.volume_break_type = FND_API.g_miss_char OR p_tier_rec.volume_break_type IS NULL THEN
6398: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_BREAK_TYPE' );
6399: x_return_status := FND_API.g_ret_sts_error;
6400: END IF;
6401: */
6402: ELSE
6400: END IF;
6401: */
6402: ELSE
6403: IF p_tier_rec.volume_from = FND_API.g_miss_num THEN
6404: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
6405: x_return_status := FND_API.g_ret_sts_error;
6406: END IF;
6407:
6408:
6406: END IF;
6407:
6408:
6409: IF p_tier_rec.volume_to = FND_API.g_miss_num THEN
6410: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
6411: x_return_status := FND_API.g_ret_sts_error;
6412: END IF;
6413: /*
6414: IF p_tier_rec.volume_operator = FND_API.g_miss_char THEN
6411: x_return_status := FND_API.g_ret_sts_error;
6412: END IF;
6413: /*
6414: IF p_tier_rec.volume_operator = FND_API.g_miss_char THEN
6415: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_OPERATOR' );
6416: x_return_status := FND_API.g_ret_sts_error;
6417: END IF;
6418: */
6419: IF p_tier_rec.volume_type = FND_API.g_miss_char THEN
6416: x_return_status := FND_API.g_ret_sts_error;
6417: END IF;
6418: */
6419: IF p_tier_rec.volume_type = FND_API.g_miss_char THEN
6420: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
6421: x_return_status := FND_API.g_ret_sts_error;
6422: END IF;
6423: /*
6424: IF p_tier_rec.volume_break_type = FND_API.g_miss_char THEN
6421: x_return_status := FND_API.g_ret_sts_error;
6422: END IF;
6423: /*
6424: IF p_tier_rec.volume_break_type = FND_API.g_miss_char THEN
6425: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_BREAK_TYPE' );
6426: x_return_status := FND_API.g_ret_sts_error;
6427: END IF; */
6428: END IF;
6429: ozf_utility_pvt.debug_message('@# Ending check tier req items : return status '||x_return_status);
6425: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_BREAK_TYPE' );
6426: x_return_status := FND_API.g_ret_sts_error;
6427: END IF; */
6428: END IF;
6429: ozf_utility_pvt.debug_message('@# Ending check tier req items : return status '||x_return_status);
6430: check_line_level_tiers( p_tier_rec , p_validation_mode , x_return_status);
6431: END check_tier_Req_Items;
6432:
6433: PROCEDURE check_uom(
6442: x_return_status := FND_API.G_RET_STS_SUCCESS;
6443: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
6444: IF p_tier_rec.volume_type = g_qty THEN
6445: IF p_tier_rec.uom_code IS NULL OR p_tier_rec.uom_code = FND_API.G_MISS_CHAR THEN
6446: OZF_Utility_PVT.Error_Message('OZF_ACT_PRD_NO_UOM' );
6447: x_return_status := FND_API.g_ret_sts_error;
6448: END IF;
6449: END IF;
6450: ELSE
6449: END IF;
6450: ELSE
6451: IF p_tier_rec.volume_type = g_qty THEN
6452: IF p_tier_rec.uom_code = FND_API.G_MISS_CHAR THEN
6453: OZF_Utility_PVT.Error_Message('OZF_ACT_PRD_NO_UOM' );
6454: x_return_status := FND_API.g_ret_sts_error;
6455: END IF;
6456: END IF;
6457: END IF;
6507: END IF;
6508:
6509:
6510: -- Debug Message
6511: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6512:
6513: -- Initialize API return status to SUCCESS
6514: x_return_status := FND_API.G_RET_STS_SUCCESS;
6515: -- bug 3402308 populate volume_operator and volume_break_type befoer checking required items
6538:
6539: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6540: RAISE FND_API.G_EXC_ERROR;
6541: END IF;
6542: ozf_utility_pvt.debug_message('@# After Calling Check UOM : '||x_return_status);
6543:
6544: /* OPEN C_ozf_disc_rec(p_tier_rec.parent_discount_line_id);
6545: fetch C_ozf_disc_rec into l_ozf_disc_rec ;
6546: CLOSE C_ozf_disc_rec;
6546: CLOSE C_ozf_disc_rec;
6547: */
6548: populate_disc_rec(p_disc_rec => l_disc_rec,p_tier_rec => l_tier_rec);
6549: complete_disc_tier_rec(p_disc_rec => l_disc_rec,p_tier_rec => l_tier_rec,x_return_status => x_return_status);
6550: ozf_utility_pvt.debug_message('#@Completed Rec'||x_return_status);
6551: Create_Ozf_Disc_Line(
6552: p_api_version_number => p_api_version_number,
6553: p_init_msg_list => p_init_msg_list,
6554: p_commit => p_commit,
6561: );
6562: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6563: RAISE FND_API.G_EXC_ERROR;
6564: END IF;
6565: ozf_utility_pvt.debug_message('@# After Calling Create Disc Line : '||x_return_status);
6566: EXCEPTION
6567: WHEN FND_API.G_EXC_ERROR THEN
6568: ROLLBACK TO Create_Disc_tiers_PVT;
6569: x_return_status := FND_API.G_RET_STS_ERROR;
6648: END IF;
6649:
6650:
6651: -- Debug Message
6652: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6653:
6654: -- Initialize API return status to SUCCESS
6655: x_return_status := FND_API.G_RET_STS_SUCCESS;
6656:
6780: END IF;
6781:
6782:
6783: -- Debug Message
6784: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6785:
6786: -- Initialize API return status to SUCCESS
6787: x_return_status := FND_API.G_RET_STS_SUCCESS;
6788:
6791: FETCH C_PARENT_DISC_LINE INTO l_parent_disc_line;
6792: CLOSE C_PARENT_DISC_LINE;
6793:
6794: IF l_parent_disc_line.tier_type <> 'PBH' THEN
6795: OZF_UTILITY_PVT.ERROR_MESSAGE('PARENT_NOT_PBH');
6796: RAISE FND_API.G_EXC_ERROR;
6797: END IF;
6798:
6799: OZF_DISC_LINE_PKG.delete_tiers(p_parent_discount_line_id);
6917: END IF;
6918:
6919:
6920: -- Debug Message
6921: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6922:
6923: -- Initialize API return status to SUCCESS
6924: x_return_status := FND_API.G_RET_STS_SUCCESS;
6925:
6933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6934: End If;
6935:
6936: IF l_tier_level <> 'HEADER' THEN
6937: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_NOT_HEADER_TIER');
6938: RAISE FND_API.G_EXC_ERROR;
6939: END IF;
6940:
6941: delete_Ozf_Disc_Line
6961: END IF;
6962:
6963:
6964: -- Debug Message
6965: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
6966:
6967:
6968: -- Standard call to get message count and if count is 1, get message info.
6969: FND_MSG_PUB.Count_And_Get