[Home] [Help]
108:
109: BEGIN
110:
111: -- Debug Message
112: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
113:
114:
115: -- Initialize message list if p_init_msg_list is set to TRUE.
116: IF FND_API.to_Boolean( p_init_msg_list )
143: FND_MSG_PUB.count_and_get(
144: p_encoded => FND_API.g_false,
145: p_count => x_msg_count,
146: p_data => x_msg_data);
147: OZF_Utility_PVT.debug_message(l_full_name ||': end');
148: EXCEPTION
149:
150: WHEN OZF_Utility_PVT.resource_locked THEN
151: x_return_status := FND_API.g_ret_sts_error;
146: p_data => x_msg_data);
147: OZF_Utility_PVT.debug_message(l_full_name ||': end');
148: EXCEPTION
149:
150: WHEN OZF_Utility_PVT.resource_locked THEN
151: x_return_status := FND_API.g_ret_sts_error;
152: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
153:
154: WHEN FND_API.G_EXC_ERROR THEN
148: EXCEPTION
149:
150: WHEN OZF_Utility_PVT.resource_locked THEN
151: x_return_status := FND_API.g_ret_sts_error;
152: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
153:
154: WHEN FND_API.G_EXC_ERROR THEN
155: ROLLBACK TO LOCK_Ozf_Disc_Line_PVT;
156: x_return_status := FND_API.G_RET_STS_ERROR;
200: x_return_status := FND_API.g_ret_sts_success;
201: IF p_validation_mode = JTF_PLSQL_API.g_create
202: AND p_ozf_offer_line_rec.offer_discount_line_id IS NOT NULL
203: THEN
204: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
205: 'ozf_offer_discount_lines',
206: 'offer_discount_line_id = ''' || p_ozf_offer_line_rec.offer_discount_line_id ||''''
207: );
208: END IF;
207: );
208: END IF;
209:
210: IF l_valid_flag = FND_API.g_false THEN
211: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_LINE_ID_DUP');
212: x_return_status := FND_API.g_ret_sts_error;
213: END IF;
214:
215: END check_Ozf_Offer_Line_Uk_Items;
239: close c_tier_level;
240: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
241: 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
242: IF p_ozf_offer_line_rec.volume_type IS NULL OR p_ozf_offer_line_rec.volume_type = FND_API.G_MISS_CHAR THEN
243: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
244: x_return_status := FND_API.g_ret_sts_error;
245: return;
246: ELSE
247: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
245: return;
246: ELSE
247: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
248: IF p_ozf_offer_line_rec.uom_code IS NULL OR p_ozf_offer_line_rec.uom_code = FND_API.G_MISS_CHAR THEN
249: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_ACT_PRD_NO_UOM');
250: x_return_status := FND_API.g_ret_sts_error;
251: return;
252: ELSE
253: null;
256: END IF;
257: END IF;
258: 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
259: 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
260: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
261: x_return_status := FND_API.g_ret_sts_error;
262: return;
263: ELSE
264: null;
267: END IF;
268: END IF;
269: IF l_tier_level = 'HEADER' THEN
270: IF p_ozf_offer_line_rec.volume_to IS NULL OR p_ozf_offer_line_rec.volume_to = FND_API.G_MISS_NUM THEN
271: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
272: x_return_status := FND_API.g_ret_sts_error;
273: return;
274: END IF;
275: END IF;
275: END IF;
276: ELSE
277: IF p_ozf_offer_line_rec.volume_from <> FND_API.G_MISS_NUM THEN
278: IF p_ozf_offer_line_rec.volume_type = FND_API.G_MISS_CHAR THEN
279: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
280: x_return_status := FND_API.g_ret_sts_error;
281: return;
282: ELSE
283: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
281: return;
282: ELSE
283: IF p_ozf_offer_line_rec.volume_type = 'PRICING_ATTRIBUTE10' THEN
284: IF p_ozf_offer_line_rec.uom_code = FND_API.G_MISS_CHAR THEN
285: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_ACT_PRD_NO_UOM');
286: x_return_status := FND_API.g_ret_sts_error;
287: return;
288: ELSE
289: null;
292: END IF;
293: END IF;
294: ELSE IF p_ozf_offer_line_rec.volume_from = FND_API.G_MISS_NUM THEN
295: IF p_ozf_offer_line_rec.volume_type <> FND_API.G_MISS_CHAR THEN
296: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
297: x_return_status := FND_API.g_ret_sts_error;
298: return;
299: ELSE
300: null;
303: END IF;
304: END IF;
305: IF l_tier_level = 'HEADER' THEN
306: IF p_ozf_offer_line_rec.volume_to = FND_API.G_MISS_NUM THEN
307: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
308: x_return_status := FND_API.g_ret_sts_error;
309: return;
310: END IF;
311: END IF;
324: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
325:
326:
327: 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
328: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
329: x_return_status := FND_API.g_ret_sts_error;
330: return;
331: END IF;
332:
330: return;
331: END IF;
332:
333: IF p_ozf_offer_line_rec.offer_id = FND_API.G_MISS_NUM OR p_ozf_offer_line_rec.offer_id IS NULL THEN
334: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_ID' );
335: x_return_status := FND_API.g_ret_sts_error;
336: return;
337: END IF;
338:
336: return;
337: END IF;
338:
339: IF p_ozf_offer_line_rec.discount = FND_API.G_MISS_NUM OR p_ozf_offer_line_rec.discount IS NULL THEN
340: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT' );
341: x_return_status := FND_API.g_ret_sts_error;
342: return;
343: END IF;
344:
343: END IF;
344:
345:
346: IF p_ozf_offer_line_rec.discount_type = FND_API.g_miss_char OR p_ozf_offer_line_rec.discount_type IS NULL THEN
347: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_TYPE' );
348: x_return_status := FND_API.g_ret_sts_error;
349: return;
350: END IF;
351:
350: END IF;
351:
352:
353: IF p_ozf_offer_line_rec.tier_type = FND_API.g_miss_char OR p_ozf_offer_line_rec.tier_type IS NULL THEN
354: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_TYPE' );
355: x_return_status := FND_API.g_ret_sts_error;
356: return;
357: END IF;
358:
357: END IF;
358:
359:
360: IF p_ozf_offer_line_rec.tier_level = FND_API.g_miss_char OR p_ozf_offer_line_rec.tier_level IS NULL THEN
361: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_LEVEL' );
362: x_return_status := FND_API.g_ret_sts_error;
363: return;
364: END IF;
365:
367: ELSE
368:
369:
370: IF p_ozf_offer_line_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
371: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
372: x_return_status := FND_API.g_ret_sts_error;
373: return;
374: END IF;
375:
374: END IF;
375:
376:
377: IF p_ozf_offer_line_rec.discount = FND_API.G_MISS_NUM THEN
378: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT' );
379: x_return_status := FND_API.g_ret_sts_error;
380: return;
381: END IF;
382:
381: END IF;
382:
383:
384: IF p_ozf_offer_line_rec.discount_type = FND_API.g_miss_char THEN
385: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_TYPE' );
386: x_return_status := FND_API.g_ret_sts_error;
387: return;
388: END IF;
389:
388: END IF;
389:
390:
391: IF p_ozf_offer_line_rec.tier_type = FND_API.g_miss_char THEN
392: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_TYPE' );
393: x_return_status := FND_API.g_ret_sts_error;
394: return;
395: END IF;
396:
395: END IF;
396:
397:
398: IF p_ozf_offer_line_rec.tier_level = FND_API.g_miss_char THEN
399: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'TIER_LEVEL' );
400: x_return_status := FND_API.g_ret_sts_error;
401: return;
402: END IF;
403: END IF;
421: -- Enter custom code here
422:
423: IF p_ozf_offer_line_rec.offer_id IS NOT NULL AND p_ozf_offer_line_rec.offer_id <> FND_API.G_MISS_NUM
424: THEN
425: 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
426: OZF_Utility_PVT.Error_Message('OZF_OFFER_ID_DUP' ); -- correct message
427: x_return_status := FND_API.g_ret_sts_error;
428: return;
429: END IF;
422:
423: IF p_ozf_offer_line_rec.offer_id IS NOT NULL AND p_ozf_offer_line_rec.offer_id <> FND_API.G_MISS_NUM
424: THEN
425: 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
426: OZF_Utility_PVT.Error_Message('OZF_OFFER_ID_DUP' ); -- correct message
427: x_return_status := FND_API.g_ret_sts_error;
428: return;
429: END IF;
430: END IF;
471: THEN
472: IF
473: (p_ozf_offer_line_rec.discount_type <> '%' )
474: THEN
475: OZF_Utility_PVT.error_message('OZF_OFFR_OPT_CURR_PCNT');
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: return;
478: END IF;
479: END IF;
749: -- THEN
750: -- x_return_status := FND_API.G_RET_STS_ERROR;
751:
752: -- Debug Message
753: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
754: -- Standard call to get message count and if count is 1, get message info.
755: FND_MSG_PUB.Count_And_Get
756: (p_count => x_msg_count,
757: p_data => x_msg_data
795: FND_MSG_PUB.initialize;
796: END IF;
797:
798: -- Debug Message
799: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
800:
801: -- Initialize API return status to SUCCESS
802: x_return_status := FND_API.G_RET_STS_SUCCESS;
803:
844:
845:
846:
847: -- Debug Message
848: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
849:
850:
851: -- Standard call to get message count and if count is 1, get message info.
852: FND_MSG_PUB.Count_And_Get
854: p_data => x_msg_data
855: );
856: EXCEPTION
857:
858: WHEN OZF_Utility_PVT.resource_locked THEN
859: x_return_status := FND_API.g_ret_sts_error;
860: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
861:
862: WHEN FND_API.G_EXC_ERROR THEN
856: EXCEPTION
857:
858: WHEN OZF_Utility_PVT.resource_locked THEN
859: x_return_status := FND_API.g_ret_sts_error;
860: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
861:
862: WHEN FND_API.G_EXC_ERROR THEN
863: ROLLBACK TO VALIDATE_Ozf_Disc_Line_;
864: x_return_status := FND_API.G_RET_STS_ERROR;
989:
990:
991:
992: -- Debug Message
993: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
994:
995:
996: -- Initialize API return status to SUCCESS
997: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001: -- =========================================================================
1002:
1003: IF FND_GLOBAL.USER_ID IS NULL
1004: THEN
1005: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
1006: RAISE FND_API.G_EXC_ERROR;
1007: END IF;
1008:
1009:
1031: l_ozf_offer_line_rec.offer_discount_line_id := l_offer_discount_line_id;
1032: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1033: THEN
1034: -- Debug message
1035: OZF_UTILITY_PVT.debug_message('Private API: Validate_Ozf_Disc_Line');
1036:
1037: -- Invoke validation procedures
1038: Validate_ozf_disc_line(
1039: p_api_version_number => 1.0,
1050: RAISE FND_API.G_EXC_ERROR;
1051: END IF;
1052:
1053: -- Debug Message
1054: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
1055: -- Invoke table handler(OZF_DISC_LINE_PKG.Insert_Row)
1056: OZF_DISC_LINE_PKG.Insert_Row(
1057: px_offer_discount_line_id => l_offer_discount_line_id,
1058: p_parent_discount_line_id => l_ozf_offer_line_rec.parent_discount_line_id,
1116: END IF;
1117:
1118:
1119: -- Debug Message
1120: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1121:
1122: -- Standard call to get message count and if count is 1, get message info.
1123: FND_MSG_PUB.Count_And_Get
1124: (p_count => x_msg_count,
1125: p_data => x_msg_data
1126: );
1127: EXCEPTION
1128:
1129: WHEN OZF_Utility_PVT.resource_locked THEN
1130: x_return_status := FND_API.g_ret_sts_error;
1131: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1132:
1133: WHEN FND_API.G_EXC_ERROR THEN
1127: EXCEPTION
1128:
1129: WHEN OZF_Utility_PVT.resource_locked THEN
1130: x_return_status := FND_API.g_ret_sts_error;
1131: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1132:
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: ROLLBACK TO CREATE_Ozf_Disc_Line_PVT;
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1253:
1254:
1255:
1256: -- Debug Message
1257: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1258:
1259:
1260:
1261: -- Initialize API return status to SUCCESS
1261: -- Initialize API return status to SUCCESS
1262: x_return_status := FND_API.G_RET_STS_SUCCESS;
1263:
1264: -- Debug Message
1265: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
1266:
1267: OPEN c_get_Ozf_Disc_Line( l_tar_ozf_offer_line_rec.offer_discount_line_id);
1268: FETCH c_get_Ozf_Disc_Line INTO l_ref_ozf_offer_line_rec ;
1269: If ( c_get_Ozf_Disc_Line%NOTFOUND) THEN
1266:
1267: OPEN c_get_Ozf_Disc_Line( l_tar_ozf_offer_line_rec.offer_discount_line_id);
1268: FETCH c_get_Ozf_Disc_Line INTO l_ref_ozf_offer_line_rec ;
1269: If ( c_get_Ozf_Disc_Line%NOTFOUND) THEN
1270: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
1271: p_token_name => 'INFO',
1272: p_token_value => 'Ozf_Disc_Line') ;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1277:
1278:
1279: If (l_tar_ozf_offer_line_rec.object_version_number is NULL or
1280: l_tar_ozf_offer_line_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1281: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1282: p_token_name => 'COLUMN',
1283: p_token_value => 'Last_Update_Date') ;
1284: raise FND_API.G_EXC_ERROR;
1285: End if;
1284: raise FND_API.G_EXC_ERROR;
1285: End if;
1286: -- Check Whether record has been changed by someone else
1287: If (l_tar_ozf_offer_line_rec.object_version_number <> l_ref_ozf_offer_line_rec.object_version_number) Then
1288: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1289: p_token_name => 'INFO',
1290: p_token_value => 'Ozf_Disc_Line') ;
1291: raise FND_API.G_EXC_ERROR;
1292: End if;
1294:
1295: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1296: THEN
1297: -- Debug message
1298: OZF_UTILITY_PVT.debug_message('Private API: Validate_Ozf_Disc_Line');
1299:
1300: -- Invoke validation procedures
1301: Validate_ozf_disc_line(
1302: p_api_version_number => 1.0,
1373: END IF;
1374:
1375:
1376: -- Debug Message
1377: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1378:
1379:
1380: -- Standard call to get message count and if count is 1, get message info.
1381: FND_MSG_PUB.Count_And_Get
1383: p_data => x_msg_data
1384: );
1385: EXCEPTION
1386:
1387: WHEN OZF_Utility_PVT.resource_locked THEN
1388: x_return_status := FND_API.g_ret_sts_error;
1389: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1390:
1391: WHEN FND_API.G_EXC_ERROR THEN
1385: EXCEPTION
1386:
1387: WHEN OZF_Utility_PVT.resource_locked THEN
1388: x_return_status := FND_API.g_ret_sts_error;
1389: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1390:
1391: WHEN FND_API.G_EXC_ERROR THEN
1392: ROLLBACK TO UPDATE_Ozf_Disc_Line_PVT;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1497:
1498:
1499:
1500: -- Debug Message
1501: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1502:
1503:
1504:
1505: -- Initialize API return status to SUCCESS
1508: --
1509: -- Api body
1510: --
1511: -- Debug Message
1512: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1513:
1514: -- Invoke table handler(OZF_DISC_LINE_PKG.Delete_Row)
1515: OZF_DISC_LINE_PKG.Delete_Row(
1516: p_offer_discount_line_id => p_offer_discount_line_id,
1526: END IF;
1527:
1528:
1529: -- Debug Message
1530: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1531:
1532:
1533: -- Standard call to get message count and if count is 1, get message info.
1534: FND_MSG_PUB.Count_And_Get
1536: p_data => x_msg_data
1537: );
1538: EXCEPTION
1539:
1540: WHEN OZF_Utility_PVT.resource_locked THEN
1541: x_return_status := FND_API.g_ret_sts_error;
1542: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1543:
1544: WHEN FND_API.G_EXC_ERROR THEN
1538: EXCEPTION
1539:
1540: WHEN OZF_Utility_PVT.resource_locked THEN
1541: x_return_status := FND_API.g_ret_sts_error;
1542: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1543:
1544: WHEN FND_API.G_EXC_ERROR THEN
1545: ROLLBACK TO DELETE_Ozf_Disc_Line_PVT;
1546: x_return_status := FND_API.G_RET_STS_ERROR;
1633:
1634: BEGIN
1635:
1636: -- Debug Message
1637: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1638:
1639:
1640: -- Initialize message list if p_init_msg_list is set to TRUE.
1641: IF FND_API.to_Boolean( p_init_msg_list )
1668: FND_MSG_PUB.count_and_get(
1669: p_encoded => FND_API.g_false,
1670: p_count => x_msg_count,
1671: p_data => x_msg_data);
1672: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1673: EXCEPTION
1674:
1675: WHEN OZF_Utility_PVT.resource_locked THEN
1676: x_return_status := FND_API.g_ret_sts_error;
1671: p_data => x_msg_data);
1672: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1673: EXCEPTION
1674:
1675: WHEN OZF_Utility_PVT.resource_locked THEN
1676: x_return_status := FND_API.g_ret_sts_error;
1677: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1678:
1679: WHEN FND_API.G_EXC_ERROR THEN
1673: EXCEPTION
1674:
1675: WHEN OZF_Utility_PVT.resource_locked THEN
1676: x_return_status := FND_API.g_ret_sts_error;
1677: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1678:
1679: WHEN FND_API.G_EXC_ERROR THEN
1680: ROLLBACK TO Lock_Ozf_Prod_Line_PVT;
1681: x_return_status := FND_API.G_RET_STS_ERROR;
1746: x_return_status := FND_API.g_ret_sts_success;
1747: IF p_validation_mode = JTF_PLSQL_API.g_create
1748: AND p_ozf_prod_rec.off_discount_product_id IS NOT NULL
1749: THEN
1750: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
1751: 'ozf_offer_discount_products',
1752: 'off_discount_product_id = ''' || p_ozf_prod_rec.off_discount_product_id ||''''
1753: );
1754: END IF;
1752: 'off_discount_product_id = ''' || p_ozf_prod_rec.off_discount_product_id ||''''
1753: );
1754: END IF;
1755: IF l_valid_flag = FND_API.g_false THEN
1756: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFF_DISC_PROD_ID_DUP');
1757: x_return_status := FND_API.g_ret_sts_error;
1758: END IF;
1759:
1760: END check_Ozf_Prod_Uk_Items;
1773: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1774:
1775:
1776: IF p_ozf_prod_rec.offer_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.offer_id IS NULL THEN
1777: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_ID');
1778: x_return_status := FND_API.g_ret_sts_error;
1779: END IF;
1780: 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
1781: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1777: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_ID');
1778: x_return_status := FND_API.g_ret_sts_error;
1779: END IF;
1780: 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
1781: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1782: x_return_status := FND_API.g_ret_sts_error;
1783: END IF;
1784: 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
1785: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1781: OZF_Utility_PVT.Error_Message('OZF_API_MISSING' , 'MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1782: x_return_status := FND_API.g_ret_sts_error;
1783: END IF;
1784: 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
1785: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1786: x_return_status := FND_API.g_ret_sts_error;
1787: END IF;
1788:
1789:
1787: END IF;
1788:
1789:
1790: IF p_ozf_prod_rec.product_level = FND_API.g_miss_char OR p_ozf_prod_rec.product_level IS NULL THEN
1791: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_LEVEL' );
1792: x_return_status := FND_API.g_ret_sts_error;
1793: END IF;
1794:
1795:
1793: END IF;
1794:
1795:
1796: IF p_ozf_prod_rec.product_id = FND_API.G_MISS_NUM OR p_ozf_prod_rec.product_id IS NULL THEN
1797: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_ID' );
1798: x_return_status := FND_API.g_ret_sts_error;
1799: END IF;
1800:
1801:
1799: END IF;
1800:
1801:
1802: IF p_ozf_prod_rec.excluder_flag = FND_API.g_miss_char OR p_ozf_prod_rec.excluder_flag IS NULL THEN
1803: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'EXCLUDER_FLAG' );
1804: x_return_status := FND_API.g_ret_sts_error;
1805: END IF;
1806:
1807:
1805: END IF;
1806:
1807:
1808: /* IF p_ozf_prod_rec.uom_code = FND_API.g_miss_char OR p_ozf_prod_rec.uom_code IS NULL THEN
1809: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'UOM_CODE' );
1810: x_return_status := FND_API.g_ret_sts_error;
1811: END IF;
1812: */
1813:
1813:
1814: ELSE
1815:
1816: IF p_ozf_prod_rec.offer_id = FND_API.G_MISS_NUM THEN
1817: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_ID');
1818: x_return_status := FND_API.g_ret_sts_error;
1819: END IF;
1820: IF p_ozf_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
1821: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1817: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_ID');
1818: x_return_status := FND_API.g_ret_sts_error;
1819: END IF;
1820: IF p_ozf_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
1821: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1822: x_return_status := FND_API.g_ret_sts_error;
1823: END IF;
1824: IF p_ozf_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM THEN
1825: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1821: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
1822: x_return_status := FND_API.g_ret_sts_error;
1823: END IF;
1824: IF p_ozf_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM THEN
1825: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
1826: x_return_status := FND_API.g_ret_sts_error;
1827: END IF;
1828:
1829:
1827: END IF;
1828:
1829:
1830: IF p_ozf_prod_rec.product_level = FND_API.g_miss_char THEN
1831: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_LEVEL' );
1832: x_return_status := FND_API.g_ret_sts_error;
1833: END IF;
1834:
1835:
1833: END IF;
1834:
1835:
1836: IF p_ozf_prod_rec.product_id = FND_API.G_MISS_NUM THEN
1837: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_ID' );
1838: x_return_status := FND_API.g_ret_sts_error;
1839: END IF;
1840:
1841:
1839: END IF;
1840:
1841:
1842: IF p_ozf_prod_rec.excluder_flag = FND_API.g_miss_char THEN
1843: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'EXCLUDER_FLAG' );
1844: x_return_status := FND_API.g_ret_sts_error;
1845: END IF;
1846:
1847:
1845: END IF;
1846:
1847:
1848: /* IF p_ozf_prod_rec.uom_code = FND_API.g_miss_char THEN
1849: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'UOM_CODE' );
1850: x_return_status := FND_API.g_ret_sts_error;
1851: END IF; */
1852: END IF;
1853:
1864: x_return_status := FND_API.g_ret_sts_success;
1865:
1866: -- Enter custom code here
1867: IF p_ozf_prod_rec.offer_id is not null AND p_ozf_prod_rec.offer_id <> FND_API.G_MISS_NUM THEN
1868: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_ozf_prod_rec.offer_id)) = FND_API.g_false THEN
1869: OZF_Utility_PVT.Error_Message('OZF_PROD_OFFER_ID_FK_DUP' ); -- correct message
1870: x_return_status := FND_API.g_ret_sts_error;
1871: END IF;
1872: END IF;
1865:
1866: -- Enter custom code here
1867: IF p_ozf_prod_rec.offer_id is not null AND p_ozf_prod_rec.offer_id <> FND_API.G_MISS_NUM THEN
1868: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_ozf_prod_rec.offer_id)) = FND_API.g_false THEN
1869: OZF_Utility_PVT.Error_Message('OZF_PROD_OFFER_ID_FK_DUP' ); -- correct message
1870: x_return_status := FND_API.g_ret_sts_error;
1871: END IF;
1872: END IF;
1873:
1872: END IF;
1873:
1874: IF p_ozf_prod_rec.offer_discount_line_id <> -1 THEN
1875: 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
1876: 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
1877: OZF_Utility_PVT.Error_Message('OZF_DISC_LINE_FK_DUP' ); -- correct message
1878: x_return_status := FND_API.g_ret_sts_error;
1879: END IF;
1880: END IF;
1873:
1874: IF p_ozf_prod_rec.offer_discount_line_id <> -1 THEN
1875: 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
1876: 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
1877: OZF_Utility_PVT.Error_Message('OZF_DISC_LINE_FK_DUP' ); -- correct message
1878: x_return_status := FND_API.g_ret_sts_error;
1879: END IF;
1880: END IF;
1881: END IF;
1909: -- Enter custom code here
1910: IF p_ozf_prod_rec.excluder_flag = 'N' THEN
1911: 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);
1912: IF l_item_exists = 'Y' THEN
1913: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFR_DUPL_ITEM');
1914: x_return_status := FND_API.g_ret_sts_error;
1915: return;
1916: END IF;
1917: END IF;
2123: -- THEN
2124: -- x_return_status := FND_API.G_RET_STS_ERROR;
2125:
2126: -- Debug Message
2127: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
2128: -- Standard call to get message count and if count is 1, get message info.
2129: FND_MSG_PUB.Count_And_Get
2130: (p_count => x_msg_count,
2131: p_data => x_msg_data
2167: FND_MSG_PUB.initialize;
2168: END IF;
2169:
2170: -- Debug Message
2171: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2172:
2173:
2174:
2175: -- Initialize API return status to SUCCESS
2212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2213: END IF;
2214: END IF;
2215: -- Debug Message
2216: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2217:
2218:
2219: -- Standard call to get message count and if count is 1, get message info.
2220: FND_MSG_PUB.Count_And_Get
2222: p_data => x_msg_data
2223: );
2224: EXCEPTION
2225:
2226: WHEN OZF_Utility_PVT.resource_locked THEN
2227: x_return_status := FND_API.g_ret_sts_error;
2228: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2229:
2230: WHEN FND_API.G_EXC_ERROR THEN
2224: EXCEPTION
2225:
2226: WHEN OZF_Utility_PVT.resource_locked THEN
2227: x_return_status := FND_API.g_ret_sts_error;
2228: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2229:
2230: WHEN FND_API.G_EXC_ERROR THEN
2231: ROLLBACK TO VALIDATE_Create_Ozf_Prod_Line_;
2232: x_return_status := FND_API.G_RET_STS_ERROR;
2351:
2352:
2353:
2354: -- Debug Message
2355: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2356:
2357:
2358:
2359: -- Initialize API return status to SUCCESS
2364: -- =========================================================================
2365:
2366: IF FND_GLOBAL.USER_ID IS NULL
2367: THEN
2368: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
2369: RAISE FND_API.G_EXC_ERROR;
2370: END IF;
2371:
2372:
2398:
2399: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
2400: THEN
2401: -- Debug message
2402: OZF_UTILITY_PVT.debug_message('Private API: Validate_Create_Ozf_Prod_Line');
2403:
2404: -- Invoke validation procedures
2405: Validate_create_ozf_prod_line(
2406: p_api_version_number => 1.0,
2417: RAISE FND_API.G_EXC_ERROR;
2418: END IF;
2419:
2420: -- Debug Message
2421: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
2422:
2423: -- Invoke table handler(Ozf_Create_Ozf_Prod_Line_Pkg.Insert_Row)
2424: Ozf_Create_Ozf_Prod_Line_Pkg.Insert_Row(
2425: px_off_discount_product_id => l_off_discount_product_id,
2455: END IF;
2456:
2457:
2458: -- Debug Message
2459: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2460:
2461:
2462: -- Standard call to get message count and if count is 1, get message info.
2463: FND_MSG_PUB.Count_And_Get
2465: p_data => x_msg_data
2466: );
2467: EXCEPTION
2468:
2469: WHEN OZF_Utility_PVT.resource_locked THEN
2470: x_return_status := FND_API.g_ret_sts_error;
2471: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2472:
2473: WHEN FND_API.G_EXC_ERROR THEN
2467: EXCEPTION
2468:
2469: WHEN OZF_Utility_PVT.resource_locked THEN
2470: x_return_status := FND_API.g_ret_sts_error;
2471: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2472:
2473: WHEN FND_API.G_EXC_ERROR THEN
2474: ROLLBACK TO Create_Ozf_Prod_Line_PVT;
2475: x_return_status := FND_API.G_RET_STS_ERROR;
2593:
2594:
2595:
2596: -- Debug Message
2597: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2598:
2599:
2600:
2601: -- Initialize API return status to SUCCESS
2601: -- Initialize API return status to SUCCESS
2602: x_return_status := FND_API.G_RET_STS_SUCCESS;
2603:
2604: -- Debug Message
2605: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
2606:
2607: OPEN c_get_Create_Ozf_Prod_Line( l_tar_ozf_prod_rec.off_discount_product_id);
2608:
2609: FETCH c_get_Create_Ozf_Prod_Line INTO l_ref_ozf_prod_rec ;
2608:
2609: FETCH c_get_Create_Ozf_Prod_Line INTO l_ref_ozf_prod_rec ;
2610:
2611: If ( c_get_Create_Ozf_Prod_Line%NOTFOUND) THEN
2612: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
2613: p_token_name => 'INFO',
2614: p_token_value => 'Create_Ozf_Prod_Line') ;
2615: RAISE FND_API.G_EXC_ERROR;
2616: END IF;
2614: p_token_value => 'Create_Ozf_Prod_Line') ;
2615: RAISE FND_API.G_EXC_ERROR;
2616: END IF;
2617: -- Debug Message
2618: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
2619: CLOSE c_get_Create_Ozf_Prod_Line;
2620:
2621:
2622: /* If (l_tar_ozf_prod_rec.object_version_number is NULL or
2620:
2621:
2622: /* If (l_tar_ozf_prod_rec.object_version_number is NULL or
2623: l_tar_ozf_prod_rec.object_version_number = FND_API.G_MISS_NUM ) Then
2624: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
2625: p_token_name => 'COLUMN',
2626: p_token_value => 'Last_Update_Date') ;
2627: raise FND_API.G_EXC_ERROR;
2628: End if;
2627: raise FND_API.G_EXC_ERROR;
2628: End if;
2629: -- Check Whether record has been changed by someone else
2630: If (l_tar_ozf_prod_rec.object_version_number <> l_ref_ozf_prod_rec.object_version_number) Then
2631: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
2632: p_token_name => 'INFO',
2633: p_token_value => 'Create_Ozf_Prod_Line') ;
2634: raise FND_API.G_EXC_ERROR;
2635: End if;
2637:
2638: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
2639: THEN
2640: -- Debug message
2641: OZF_UTILITY_PVT.debug_message('Private API: Validate_Create_Ozf_Prod_Line');
2642:
2643: -- Invoke validation procedures
2644: Validate_create_ozf_prod_line(
2645: p_api_version_number => 1.0,
2657: END IF;
2658:
2659:
2660: -- Debug Message
2661: -- OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
2662:
2663: -- Invoke table handler(Ozf_Create_Ozf_Prod_Line_Pkg.Update_Row)
2664: Ozf_Create_Ozf_Prod_Line_Pkg.Update_Row(
2665: p_off_discount_product_id => p_ozf_prod_rec.off_discount_product_id,
2688: END IF;
2689:
2690:
2691: -- Debug Message
2692: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2693:
2694:
2695: -- Standard call to get message count and if count is 1, get message info.
2696: FND_MSG_PUB.Count_And_Get
2698: p_data => x_msg_data
2699: );
2700: EXCEPTION
2701:
2702: WHEN OZF_Utility_PVT.resource_locked THEN
2703: x_return_status := FND_API.g_ret_sts_error;
2704: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2705:
2706: WHEN FND_API.G_EXC_ERROR THEN
2700: EXCEPTION
2701:
2702: WHEN OZF_Utility_PVT.resource_locked THEN
2703: x_return_status := FND_API.g_ret_sts_error;
2704: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2705:
2706: WHEN FND_API.G_EXC_ERROR THEN
2707: ROLLBACK TO Update_Ozf_Prod_Line_PVT;
2708: x_return_status := FND_API.G_RET_STS_ERROR;
2762: BEGIN
2763: SAVEPOINT Delete_Exclusions_sp;
2764: x_return_status := FND_API.G_RET_STS_SUCCESS;
2765:
2766: ozf_utility_pvt.debug_message('@# Parent Prod Id is '||p_parent_off_disc_prod_id);
2767: FOR excl_rec IN c_excl_id LOOP
2768: ozf_utility_pvt.debug_message('@# Prod id is '||excl_rec.off_discount_product_id);
2769: OZF_Create_Ozf_Prod_Line_PKG.Delete_row(
2770: p_off_discount_product_id => excl_rec.off_discount_product_id,
2764: x_return_status := FND_API.G_RET_STS_SUCCESS;
2765:
2766: ozf_utility_pvt.debug_message('@# Parent Prod Id is '||p_parent_off_disc_prod_id);
2767: FOR excl_rec IN c_excl_id LOOP
2768: ozf_utility_pvt.debug_message('@# Prod id is '||excl_rec.off_discount_product_id);
2769: OZF_Create_Ozf_Prod_Line_PKG.Delete_row(
2770: p_off_discount_product_id => excl_rec.off_discount_product_id,
2771: p_object_version_number => excl_rec.object_version_number);
2772: END LOOP;
2886:
2887:
2888:
2889: -- Debug Message
2890: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2891:
2892:
2893:
2894: -- Initialize API return status to SUCCESS
2897: --
2898: -- Api body
2899: --
2900: -- Debug Message
2901: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
2902: -- Invoke table handler(Ozf_Create_Ozf_Prod_Line_Pkg.Delete_Row)
2903: open c_offer_id(p_off_discount_product_id);
2904: fetch c_offer_id INTO l_offer_id;
2905: close c_offer_id;
2903: open c_offer_id(p_off_discount_product_id);
2904: fetch c_offer_id INTO l_offer_id;
2905: close c_offer_id;
2906: IF is_delete_valid(l_offer_id) = 'N' THEN
2907: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFR_CANT_DELETE_LINE');
2908: RAISE FND_API.G_EXC_ERROR;
2909: END IF;
2910: DELETE_EXCLUSIONS(
2911: p_api_version_number => p_api_version_number,
2935: END IF;
2936:
2937:
2938: -- Debug Message
2939: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2940:
2941:
2942: -- Standard call to get message count and if count is 1, get message info.
2943: FND_MSG_PUB.Count_And_Get
2945: p_data => x_msg_data
2946: );
2947: EXCEPTION
2948:
2949: WHEN OZF_Utility_PVT.resource_locked THEN
2950: x_return_status := FND_API.g_ret_sts_error;
2951: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2952:
2953: WHEN FND_API.G_EXC_ERROR THEN
2947: EXCEPTION
2948:
2949: WHEN OZF_Utility_PVT.resource_locked THEN
2950: x_return_status := FND_API.g_ret_sts_error;
2951: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2952:
2953: WHEN FND_API.G_EXC_ERROR THEN
2954: ROLLBACK TO Delete_Ozf_Prod_Line_PVT;
2955: x_return_status := FND_API.G_RET_STS_ERROR;
3043:
3044: BEGIN
3045:
3046: -- Debug Message
3047: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3048:
3049:
3050: -- Initialize message list if p_init_msg_list is set to TRUE.
3051: IF FND_API.to_Boolean( p_init_msg_list )
3078: FND_MSG_PUB.count_and_get(
3079: p_encoded => FND_API.g_false,
3080: p_count => x_msg_count,
3081: p_data => x_msg_data);
3082: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3083: EXCEPTION
3084:
3085: WHEN OZF_Utility_PVT.resource_locked THEN
3086: x_return_status := FND_API.g_ret_sts_error;
3081: p_data => x_msg_data);
3082: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3083: EXCEPTION
3084:
3085: WHEN OZF_Utility_PVT.resource_locked THEN
3086: x_return_status := FND_API.g_ret_sts_error;
3087: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3088:
3089: WHEN FND_API.G_EXC_ERROR THEN
3083: EXCEPTION
3084:
3085: WHEN OZF_Utility_PVT.resource_locked THEN
3086: x_return_status := FND_API.g_ret_sts_error;
3087: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3088:
3089: WHEN FND_API.G_EXC_ERROR THEN
3090: ROLLBACK TO LOCK_Prod_Reln_PVT;
3091: x_return_status := FND_API.G_RET_STS_ERROR;
3132: x_return_status := FND_API.g_ret_sts_success;
3133: IF p_validation_mode = JTF_PLSQL_API.g_create
3134: AND p_prod_reln_rec.discount_product_reln_id IS NOT NULL
3135: THEN
3136: IF OZF_Utility_PVT.check_uniqueness(
3137: 'ozf_discount_product_reln',
3138: 'discount_product_reln_id = ''' || p_prod_reln_rec.discount_product_reln_id ||''''
3139: ) = FND_API.g_false THEN
3140:
3137: 'ozf_discount_product_reln',
3138: 'discount_product_reln_id = ''' || p_prod_reln_rec.discount_product_reln_id ||''''
3139: ) = FND_API.g_false THEN
3140:
3141: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_PROD_RELN_ID_DUP');
3142: x_return_status := FND_API.g_ret_sts_error;
3143: END IF;
3144: END IF;
3145: l_valid_flag := OZF_Utility_PVT.check_uniqueness('ozf_discount_product_reln'
3141: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_PROD_RELN_ID_DUP');
3142: x_return_status := FND_API.g_ret_sts_error;
3143: END IF;
3144: END IF;
3145: l_valid_flag := OZF_Utility_PVT.check_uniqueness('ozf_discount_product_reln'
3146: ,'offer_discount_line_id = '
3147: ||p_prod_reln_rec.offer_discount_line_id
3148: ||' AND off_discount_product_id = '
3149: ||p_prod_reln_rec.off_discount_product_id);
3147: ||p_prod_reln_rec.offer_discount_line_id
3148: ||' AND off_discount_product_id = '
3149: ||p_prod_reln_rec.off_discount_product_id);
3150: IF l_valid_flag = FND_API.g_false THEN
3151: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_PROD_RELN_ID_DUP');
3152: x_return_status := FND_API.g_ret_sts_error; -- Correct Message
3153: END IF;
3154:
3155: END check_Prod_Reln_Uk_Items;
3168: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
3169:
3170:
3171: 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
3172: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_PRODUCT_RELN_ID' );
3173: x_return_status := FND_API.g_ret_sts_error;
3174: END IF;
3175:
3176:
3174: END IF;
3175:
3176:
3177: 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
3178: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
3179: x_return_status := FND_API.g_ret_sts_error;
3180: END IF;
3181:
3182:
3180: END IF;
3181:
3182:
3183: 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
3184: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
3185: x_return_status := FND_API.g_ret_sts_error;
3186: END IF;
3187:
3188:
3189: ELSE
3190:
3191:
3192: IF p_prod_reln_rec.discount_product_reln_id = FND_API.G_MISS_NUM THEN
3193: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'DISCOUNT_PRODUCT_RELN_ID' );
3194: x_return_status := FND_API.g_ret_sts_error;
3195: END IF;
3196:
3197:
3195: END IF;
3196:
3197:
3198: IF p_prod_reln_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
3199: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
3200: x_return_status := FND_API.g_ret_sts_error;
3201: END IF;
3202:
3203:
3201: END IF;
3202:
3203:
3204: IF p_prod_reln_rec.off_discount_product_id = FND_API.G_MISS_NUM THEN
3205: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFF_DISCOUNT_PRODUCT_ID' );
3206: x_return_status := FND_API.g_ret_sts_error;
3207: END IF;
3208: END IF;
3209:
3220: x_return_status := FND_API.g_ret_sts_success;
3221:
3222: -- Enter custom code here
3223: IF p_prod_reln_rec.offer_discount_line_id <> -1 THEN
3224: 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
3225: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3226: x_return_status := FND_API.g_ret_sts_error;
3227: END IF;
3228: 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
3221:
3222: -- Enter custom code here
3223: IF p_prod_reln_rec.offer_discount_line_id <> -1 THEN
3224: 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
3225: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3226: x_return_status := FND_API.g_ret_sts_error;
3227: END IF;
3228: 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
3229: OZF_Utility_PVT.Error_Message('Prod_ReL_FK_Dupliucate2' );--correct message
3224: 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
3225: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3226: x_return_status := FND_API.g_ret_sts_error;
3227: END IF;
3228: 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
3229: OZF_Utility_PVT.Error_Message('Prod_ReL_FK_Dupliucate2' );--correct message
3230: x_return_status := FND_API.g_ret_sts_error;
3231: END IF;
3232: END IF;
3225: OZF_Utility_PVT.Error_Message('OZF_PROD_RELN_FK_DUP' ); -- correct message
3226: x_return_status := FND_API.g_ret_sts_error;
3227: END IF;
3228: 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
3229: OZF_Utility_PVT.Error_Message('Prod_ReL_FK_Dupliucate2' );--correct message
3230: x_return_status := FND_API.g_ret_sts_error;
3231: END IF;
3232: END IF;
3233:
3414: -- THEN
3415: -- x_return_status := FND_API.G_RET_STS_ERROR;
3416:
3417: -- Debug Message
3418: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
3419: -- Standard call to get message count and if count is 1, get message info.
3420: FND_MSG_PUB.Count_And_Get
3421: (p_count => x_msg_count,
3422: p_data => x_msg_data
3503: END IF;
3504:
3505:
3506: -- Debug Message
3507: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3508:
3509:
3510:
3511: -- Initialize API return status to SUCCESS
3512: x_return_status := FND_API.G_RET_STS_SUCCESS;
3513:
3514:
3515: -- Debug Message
3516: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3517:
3518:
3519: -- Standard call to get message count and if count is 1, get message info.
3520: FND_MSG_PUB.Count_And_Get
3522: p_data => x_msg_data
3523: );
3524: EXCEPTION
3525:
3526: WHEN OZF_Utility_PVT.resource_locked THEN
3527: x_return_status := FND_API.g_ret_sts_error;
3528: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3529:
3530: WHEN FND_API.G_EXC_ERROR THEN
3524: EXCEPTION
3525:
3526: WHEN OZF_Utility_PVT.resource_locked THEN
3527: x_return_status := FND_API.g_ret_sts_error;
3528: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3529:
3530: WHEN FND_API.G_EXC_ERROR THEN
3531: ROLLBACK TO VALIDATE_Prod_Reln_;
3532: x_return_status := FND_API.G_RET_STS_ERROR;
3654:
3655:
3656:
3657: -- Debug Message
3658: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3659:
3660:
3661:
3662: -- Initialize API return status to SUCCESS
3667: -- =========================================================================
3668:
3669: IF FND_GLOBAL.USER_ID IS NULL
3670: THEN
3671: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
3672: RAISE FND_API.G_EXC_ERROR;
3673: END IF;
3674:
3675:
3698:
3699: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3700: THEN
3701: -- Debug message
3702: OZF_UTILITY_PVT.debug_message('Private API: Validate_Prod_Reln');
3703: -- Invoke validation procedures
3704: Validate_prod_reln(
3705: p_api_version_number => 1.0,
3706: p_init_msg_list => FND_API.G_FALSE,
3716: RAISE FND_API.G_EXC_ERROR;
3717: END IF;
3718:
3719: -- Debug Message
3720: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
3721:
3722: -- Invoke table handler(Ozf_Prod_Reln_Pkg.Insert_Row)
3723: Ozf_Prod_Reln_Pkg.Insert_Row(
3724: px_discount_product_reln_id => l_discount_product_reln_id,
3747: END IF;
3748:
3749:
3750: -- Debug Message
3751: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3752:
3753:
3754: -- Standard call to get message count and if count is 1, get message info.
3755: FND_MSG_PUB.Count_And_Get
3757: p_data => x_msg_data
3758: );
3759: EXCEPTION
3760:
3761: WHEN OZF_Utility_PVT.resource_locked THEN
3762: x_return_status := FND_API.g_ret_sts_error;
3763: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3764:
3765: WHEN FND_API.G_EXC_ERROR THEN
3759: EXCEPTION
3760:
3761: WHEN OZF_Utility_PVT.resource_locked THEN
3762: x_return_status := FND_API.g_ret_sts_error;
3763: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3764:
3765: WHEN FND_API.G_EXC_ERROR THEN
3766: ROLLBACK TO CREATE_Prod_Reln_PVT;
3767: x_return_status := FND_API.G_RET_STS_ERROR;
3885:
3886:
3887:
3888: -- Debug Message
3889: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3890:
3891:
3892:
3893: -- Initialize API return status to SUCCESS
3893: -- Initialize API return status to SUCCESS
3894: x_return_status := FND_API.G_RET_STS_SUCCESS;
3895:
3896: -- Debug Message
3897: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
3898:
3899: OPEN c_get_Prod_Reln( l_tar_prod_reln_rec.discount_product_reln_id);
3900:
3901: FETCH c_get_Prod_Reln INTO l_ref_prod_reln_rec ;
3900:
3901: FETCH c_get_Prod_Reln INTO l_ref_prod_reln_rec ;
3902:
3903: If ( c_get_Prod_Reln%NOTFOUND) THEN
3904: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
3905: p_token_name => 'INFO',
3906: p_token_value => 'Prod_Reln') ;
3907: RAISE FND_API.G_EXC_ERROR;
3908: END IF;
3906: p_token_value => 'Prod_Reln') ;
3907: RAISE FND_API.G_EXC_ERROR;
3908: END IF;
3909: -- Debug Message
3910: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
3911: CLOSE c_get_Prod_Reln;
3912:
3913:
3914: /* If (l_tar_prod_reln_rec.object_version_number is NULL or
3912:
3913:
3914: /* If (l_tar_prod_reln_rec.object_version_number is NULL or
3915: l_tar_prod_reln_rec.object_version_number = FND_API.G_MISS_NUM ) Then
3916: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
3917: p_token_name => 'COLUMN',
3918: p_token_value => 'Last_Update_Date') ;
3919: raise FND_API.G_EXC_ERROR;
3920: End if;
3919: raise FND_API.G_EXC_ERROR;
3920: End if;
3921: -- Check Whether record has been changed by someone else
3922: If (l_tar_prod_reln_rec.object_version_number <> l_ref_prod_reln_rec.object_version_number) Then
3923: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
3924: p_token_name => 'INFO',
3925: p_token_value => 'Prod_Reln') ;
3926: raise FND_API.G_EXC_ERROR;
3927: End if;
3929:
3930: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
3931: THEN
3932: -- Debug message
3933: OZF_UTILITY_PVT.debug_message('Private API: Validate_Prod_Reln');
3934:
3935: -- Invoke validation procedures
3936: Validate_prod_reln(
3937: p_api_version_number => 1.0,
3949: END IF;
3950:
3951:
3952: -- Debug Message
3953: -- OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
3954:
3955: -- Invoke table handler(Ozf_Prod_Reln_Pkg.Update_Row)
3956: Ozf_Prod_Reln_Pkg.Update_Row(
3957: p_discount_product_reln_id => p_prod_reln_rec.discount_product_reln_id,
3973: END IF;
3974:
3975:
3976: -- Debug Message
3977: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3978:
3979:
3980: -- Standard call to get message count and if count is 1, get message info.
3981: FND_MSG_PUB.Count_And_Get
3983: p_data => x_msg_data
3984: );
3985: EXCEPTION
3986:
3987: WHEN OZF_Utility_PVT.resource_locked THEN
3988: x_return_status := FND_API.g_ret_sts_error;
3989: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3990:
3991: WHEN FND_API.G_EXC_ERROR THEN
3985: EXCEPTION
3986:
3987: WHEN OZF_Utility_PVT.resource_locked THEN
3988: x_return_status := FND_API.g_ret_sts_error;
3989: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3990:
3991: WHEN FND_API.G_EXC_ERROR THEN
3992: ROLLBACK TO UPDATE_Prod_Reln_PVT;
3993: x_return_status := FND_API.G_RET_STS_ERROR;
4097:
4098:
4099:
4100: -- Debug Message
4101: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4102:
4103:
4104:
4105: -- Initialize API return status to SUCCESS
4108: --
4109: -- Api body
4110: --
4111: -- Debug Message
4112: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
4113:
4114: -- Invoke table handler(Ozf_Prod_Reln_Pkg.Delete_Row)
4115: Ozf_Prod_Reln_Pkg.Delete_Row(
4116: p_discount_product_reln_id => p_discount_product_reln_id,
4126: END IF;
4127:
4128:
4129: -- Debug Message
4130: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4131:
4132:
4133: -- Standard call to get message count and if count is 1, get message info.
4134: FND_MSG_PUB.Count_And_Get
4136: p_data => x_msg_data
4137: );
4138: EXCEPTION
4139:
4140: WHEN OZF_Utility_PVT.resource_locked THEN
4141: x_return_status := FND_API.g_ret_sts_error;
4142: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
4143:
4144: WHEN FND_API.G_EXC_ERROR THEN
4138: EXCEPTION
4139:
4140: WHEN OZF_Utility_PVT.resource_locked THEN
4141: x_return_status := FND_API.g_ret_sts_error;
4142: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
4143:
4144: WHEN FND_API.G_EXC_ERROR THEN
4145: ROLLBACK TO DELETE_Prod_Reln_PVT;
4146: x_return_status := FND_API.G_RET_STS_ERROR;
4194: AND offer_discount_line_id = p_offer_discount_line_id
4195: );
4196: l_count NUMBER:= 0;
4197: BEGIN
4198: --ozf_utility_pvt.debug_message('COunt is : '||l_count);
4199: IF p_ozf_prod_rec.offer_discount_line_id <> -1 THEN -- If creating complete disount line
4200: OPEN C_SQL( p_ozf_prod_rec.offer_id,p_ozf_prod_rec.offer_discount_line_id);
4201: fetch c_sql INTO l_count;
4202: CLOSE C_SQL;
4292: END IF;
4293:
4294:
4295: -- Debug Message
4296: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4297:
4298: -- Initialize API return status to SUCCESS
4299: x_return_status := FND_API.G_RET_STS_SUCCESS;
4300:
4303: , p_ozf_prod_rec => p_ozf_prod_rec
4304: );
4305:
4306: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4307: OZF_Utility_PVT.Error_Message('INVALID OFFER_ID:DISCOUNT ID' );-- CHANGE MESSAGE
4308: RAISE FND_API.G_EXC_ERROR;
4309: END IF;
4310:
4311:
4449: l_msg_data VARCHAR2(2000);
4450:
4451: BEGIN
4452: SAVEPOINT Create_offer_line_pvt;
4453: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4454:
4455: -- Standard call to check for call compatibility.
4456: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4457: p_api_version_number,
4470:
4471:
4472:
4473: -- Debug Message
4474: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4475:
4476:
4477:
4478: -- Initialize API return status to SUCCESS
4507: p_ozf_prod_rec => l_ozf_prod_rec,
4508: x_off_discount_product_id => l_off_dicount_product_id
4509: );
4510:
4511: --ozf_utility_pvt.debug_message('@ Done calling Create Reln, Reln Id is '||l_discount_product_reln_id);
4512:
4513: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4514: RAISE FND_API.G_EXC_ERROR;
4515: END IF;
4520: END IF;
4521:
4522:
4523: -- Debug Message
4524: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4525:
4526:
4527: -- Standard call to get message count and if count is 1, get message info.
4528: FND_MSG_PUB.Count_And_Get
4715:
4716:
4717: BEGIN
4718: SAVEPOINT Create_discount_line_pvt;
4719: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4720:
4721: -- Standard call to check for call compatibility.
4722: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4723: p_api_version_number,
4736:
4737:
4738:
4739: -- Debug Message
4740: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4741:
4742:
4743:
4744: -- Initialize API return status to SUCCESS
4779: END IF;
4780:
4781:
4782: -- Debug Message
4783: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4784:
4785:
4786: -- Standard call to get message count and if count is 1, get message info.
4787: FND_MSG_PUB.Count_And_Get
4909: END IF;
4910:
4911:
4912: -- Debug Message
4913: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
4914:
4915: -- Initialize API return status to SUCCESS
4916: x_return_status := FND_API.G_RET_STS_SUCCESS;
4917:
4956: END IF;
4957:
4958:
4959: -- Debug Message
4960: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
4961:
4962:
4963: -- Standard call to get message count and if count is 1, get message info.
4964: FND_MSG_PUB.Count_And_Get
5035: l_rec c_get_ozf_disc_line%rowtype;
5036: */
5037: BEGIN
5038: SAVEPOINT Update_discount_line_pvt;
5039: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5040:
5041: -- Standard call to check for call compatibility.
5042: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5043: p_api_version_number,
5056:
5057:
5058:
5059: -- Debug Message
5060: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5061:
5062:
5063:
5064: -- Initialize API return status to SUCCESS
5070: close c_get_ozf_disc_line;
5071:
5072: If (p_ozf_discount_line_rec.object_version_number is NULL or
5073: p_ozf_discount_line_rec.object_version_number = FND_API.G_MISS_NUM ) Then
5074: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
5075: p_token_name => 'COLUMN',
5076: p_token_value => 'Last_Update_Date') ;
5077: raise FND_API.G_EXC_ERROR;
5078: End if;
5077: raise FND_API.G_EXC_ERROR;
5078: End if;
5079: -- Check Whether record has been changed by someone else
5080: If (p_ozf_discount_line_rec.object_version_number <> l_rec.object_version_number) Then
5081: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
5082: p_token_name => 'INFO',
5083: p_token_value => 'Ozf_Disc_Line') ;
5084: raise FND_API.G_EXC_ERROR;
5085: End if;
5115: END IF;
5116:
5117:
5118: -- Debug Message
5119: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5120:
5121:
5122: -- Standard call to get message count and if count is 1, get message info.
5123: FND_MSG_PUB.Count_And_Get
5283: END IF;
5284:
5285:
5286: -- Debug Message
5287: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5288:
5289: -- Initialize API return status to SUCCESS
5290: x_return_status := FND_API.G_RET_STS_SUCCESS;
5291: -- Update Product Line
5341: END IF;
5342:
5343:
5344: -- Debug Message
5345: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5346:
5347:
5348: -- Standard call to get message count and if count is 1, get message info.
5349: FND_MSG_PUB.Count_And_Get
5459: END IF;
5460:
5461:
5462: -- Debug Message
5463: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5464:
5465: -- Initialize API return status to SUCCESS
5466: x_return_status := FND_API.G_RET_STS_SUCCESS;
5467:
5477: END IF;
5478:
5479:
5480: -- Debug Message
5481: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5482:
5483:
5484: -- Standard call to get message count and if count is 1, get message info.
5485: FND_MSG_PUB.Count_And_Get
5598: END IF;
5599:
5600:
5601: -- Debug Message
5602: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5603:
5604: -- Initialize API return status to SUCCESS
5605: x_return_status := FND_API.G_RET_STS_SUCCESS;
5606:
5630: END IF;
5631:
5632:
5633: -- Debug Message
5634: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5635:
5636:
5637: -- Standard call to get message count and if count is 1, get message info.
5638: FND_MSG_PUB.Count_And_Get
5767: END IF;
5768:
5769:
5770: -- Debug Message
5771: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
5772:
5773: -- Initialize API return status to SUCCESS
5774: x_return_status := FND_API.G_RET_STS_SUCCESS;
5775:
5776: open c_offer_id(p_offer_discount_line_id);
5777: fetch c_offer_id INTO l_offer_id;
5778: close c_offer_id;
5779: IF is_delete_valid(l_offer_id) = 'N' THEN
5780: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFR_CANT_DELETE_LINE');
5781: RAISE FND_API.G_EXC_ERROR;
5782: END IF;
5783:
5784: OPEN C_PARENT_DISC_LINE(p_offer_discount_line_id);
5840: END IF;
5841:
5842:
5843: -- Debug Message
5844: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
5845:
5846:
5847: -- Standard call to get message count and if count is 1, get message info.
5848: FND_MSG_PUB.Count_And_Get
6006: END IF;
6007:
6008:
6009: -- Debug Message
6010: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6011:
6012: -- Initialize API return status to SUCCESS
6013: x_return_status := FND_API.G_RET_STS_SUCCESS;
6014:
6031: l_ozf_prod_rec.offer_id := l_prod_rec.offer_id;
6032: l_ozf_prod_rec.offer_discount_line_id := l_prod_rec.offer_discount_line_id;
6033:
6034: 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
6035: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_OFF_DISC_PROD_ID' );
6036: x_return_status := FND_API.g_ret_sts_error;
6037: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6038: RAISE FND_API.G_EXC_ERROR;
6039: END IF;
6038: RAISE FND_API.G_EXC_ERROR;
6039: END IF;
6040: END IF;
6041:
6042: 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
6043: OZF_Utility_PVT.Error_Message('FK_Non_exist' ); -- correct message
6044: x_return_status := FND_API.g_ret_sts_error;
6045: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6046: RAISE FND_API.G_EXC_ERROR;
6039: END IF;
6040: END IF;
6041:
6042: 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
6043: OZF_Utility_PVT.Error_Message('FK_Non_exist' ); -- correct message
6044: x_return_status := FND_API.g_ret_sts_error;
6045: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6046: RAISE FND_API.G_EXC_ERROR;
6047: END IF;
6163: END IF;
6164:
6165:
6166: -- Debug Message
6167: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6168:
6169: -- Initialize API return status to SUCCESS
6170: x_return_status := FND_API.G_RET_STS_SUCCESS;
6171:
6174: CLOSE C_ozf_prod_rec;
6175:
6176: If (p_ozf_excl_rec.object_version_number is NULL or
6177: p_ozf_excl_rec.object_version_number = FND_API.G_MISS_NUM ) Then
6178: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
6179: p_token_name => 'COLUMN',
6180: p_token_value => 'Last_Update_Date') ;
6181: raise FND_API.G_EXC_ERROR;
6182: End if;
6181: raise FND_API.G_EXC_ERROR;
6182: End if;
6183: -- Check Whether record has been changed by someone else
6184: If (p_ozf_excl_rec.object_version_number <> l_ref_ozf_prod_rec.object_version_number) Then
6185: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
6186: p_token_name => 'INFO',
6187: p_token_value => 'Create_Ozf_Prod_Line') ;
6188: raise FND_API.G_EXC_ERROR;
6189: End if;
6188: raise FND_API.G_EXC_ERROR;
6189: End if;
6190:
6191: /* If (p_ozf_prod_rec.excluder_flag <> 'Y' ) Then
6192: OZF_Utility_PVT.Error_Message(p_message_name => 'NOT EXCLUSION') ;
6193: raise FND_API.G_EXC_ERROR;
6194: End if;
6195: */
6196:
6286: fetch c_sql INTO l_count;
6287: CLOSE C_SQL;
6288:
6289: IF l_count = 0 THEN
6290: ozf_utility_pvt.error_message('INVALID_parent_disc_offer');
6291: x_return_status := FND_API.g_ret_sts_error;
6292: ELSE
6293: x_return_status := FND_API.G_RET_STS_SUCCESS;
6294: END IF;
6385:
6386: IF l_tier_level <> 'HEADER' THEN
6387: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
6388: 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
6389: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_DISCOUNT_LINE_ID' );
6390: x_return_status := FND_API.g_ret_sts_error;
6391: END IF;
6392: ELSE
6393: IF p_tier_rec.parent_discount_line_id = FND_API.g_miss_num THEN
6390: x_return_status := FND_API.g_ret_sts_error;
6391: END IF;
6392: ELSE
6393: IF p_tier_rec.parent_discount_line_id = FND_API.g_miss_num THEN
6394: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_DISCOUNT_LINE_ID' );
6395: x_return_status := FND_API.g_ret_sts_error;
6396: END IF;
6397: END IF;
6398: END IF;
6410:
6411: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
6412:
6413: IF p_tier_rec.volume_from = FND_API.g_miss_num OR p_tier_rec.volume_from IS NULL THEN
6414: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
6415: x_return_status := FND_API.g_ret_sts_error;
6416: END IF;
6417:
6418:
6416: END IF;
6417:
6418:
6419: IF p_tier_rec.volume_to = FND_API.g_miss_num OR p_tier_rec.volume_to IS NULL THEN
6420: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
6421: x_return_status := FND_API.g_ret_sts_error;
6422: END IF;
6423: /*
6424: IF p_tier_rec.volume_operator = FND_API.g_miss_char OR p_tier_rec.volume_operator IS NULL THEN
6421: x_return_status := FND_API.g_ret_sts_error;
6422: END IF;
6423: /*
6424: IF p_tier_rec.volume_operator = FND_API.g_miss_char OR p_tier_rec.volume_operator IS NULL THEN
6425: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_OPERATOR' );
6426: x_return_status := FND_API.g_ret_sts_error;
6427: END IF;
6428: */
6429: IF p_tier_rec.volume_type = FND_API.g_miss_char OR p_tier_rec.volume_type IS NULL THEN
6426: x_return_status := FND_API.g_ret_sts_error;
6427: END IF;
6428: */
6429: IF p_tier_rec.volume_type = FND_API.g_miss_char OR p_tier_rec.volume_type IS NULL THEN
6430: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
6431: x_return_status := FND_API.g_ret_sts_error;
6432: END IF;
6433: /*
6434: IF p_tier_rec.volume_break_type = FND_API.g_miss_char OR p_tier_rec.volume_break_type IS NULL THEN
6431: x_return_status := FND_API.g_ret_sts_error;
6432: END IF;
6433: /*
6434: IF p_tier_rec.volume_break_type = FND_API.g_miss_char OR p_tier_rec.volume_break_type IS NULL THEN
6435: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_BREAK_TYPE' );
6436: x_return_status := FND_API.g_ret_sts_error;
6437: END IF;
6438: */
6439: ELSE
6437: END IF;
6438: */
6439: ELSE
6440: IF p_tier_rec.volume_from = FND_API.g_miss_num THEN
6441: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_FROM' );
6442: x_return_status := FND_API.g_ret_sts_error;
6443: END IF;
6444:
6445:
6443: END IF;
6444:
6445:
6446: IF p_tier_rec.volume_to = FND_API.g_miss_num THEN
6447: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TO' );
6448: x_return_status := FND_API.g_ret_sts_error;
6449: END IF;
6450: /*
6451: IF p_tier_rec.volume_operator = FND_API.g_miss_char THEN
6448: x_return_status := FND_API.g_ret_sts_error;
6449: END IF;
6450: /*
6451: IF p_tier_rec.volume_operator = FND_API.g_miss_char THEN
6452: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_OPERATOR' );
6453: x_return_status := FND_API.g_ret_sts_error;
6454: END IF;
6455: */
6456: IF p_tier_rec.volume_type = FND_API.g_miss_char THEN
6453: x_return_status := FND_API.g_ret_sts_error;
6454: END IF;
6455: */
6456: IF p_tier_rec.volume_type = FND_API.g_miss_char THEN
6457: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_TYPE' );
6458: x_return_status := FND_API.g_ret_sts_error;
6459: END IF;
6460: /*
6461: IF p_tier_rec.volume_break_type = FND_API.g_miss_char THEN
6458: x_return_status := FND_API.g_ret_sts_error;
6459: END IF;
6460: /*
6461: IF p_tier_rec.volume_break_type = FND_API.g_miss_char THEN
6462: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_BREAK_TYPE' );
6463: x_return_status := FND_API.g_ret_sts_error;
6464: END IF; */
6465: END IF;
6466: ozf_utility_pvt.debug_message('@# Ending check tier req items : return status '||x_return_status);
6462: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_BREAK_TYPE' );
6463: x_return_status := FND_API.g_ret_sts_error;
6464: END IF; */
6465: END IF;
6466: ozf_utility_pvt.debug_message('@# Ending check tier req items : return status '||x_return_status);
6467: check_line_level_tiers( p_tier_rec , p_validation_mode , x_return_status);
6468: END check_tier_Req_Items;
6469:
6470: PROCEDURE check_uom(
6479: x_return_status := FND_API.G_RET_STS_SUCCESS;
6480: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
6481: IF p_tier_rec.volume_type = g_qty THEN
6482: IF p_tier_rec.uom_code IS NULL OR p_tier_rec.uom_code = FND_API.G_MISS_CHAR THEN
6483: OZF_Utility_PVT.Error_Message('OZF_ACT_PRD_NO_UOM' );
6484: x_return_status := FND_API.g_ret_sts_error;
6485: END IF;
6486: END IF;
6487: ELSE
6486: END IF;
6487: ELSE
6488: IF p_tier_rec.volume_type = g_qty THEN
6489: IF p_tier_rec.uom_code = FND_API.G_MISS_CHAR THEN
6490: OZF_Utility_PVT.Error_Message('OZF_ACT_PRD_NO_UOM' );
6491: x_return_status := FND_API.g_ret_sts_error;
6492: END IF;
6493: END IF;
6494: END IF;
6544: END IF;
6545:
6546:
6547: -- Debug Message
6548: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6549:
6550: -- Initialize API return status to SUCCESS
6551: x_return_status := FND_API.G_RET_STS_SUCCESS;
6552: -- bug 3402308 populate volume_operator and volume_break_type befoer checking required items
6575:
6576: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6577: RAISE FND_API.G_EXC_ERROR;
6578: END IF;
6579: ozf_utility_pvt.debug_message('@# After Calling Check UOM : '||x_return_status);
6580:
6581: /* OPEN C_ozf_disc_rec(p_tier_rec.parent_discount_line_id);
6582: fetch C_ozf_disc_rec into l_ozf_disc_rec ;
6583: CLOSE C_ozf_disc_rec;
6583: CLOSE C_ozf_disc_rec;
6584: */
6585: populate_disc_rec(p_disc_rec => l_disc_rec,p_tier_rec => l_tier_rec);
6586: complete_disc_tier_rec(p_disc_rec => l_disc_rec,p_tier_rec => l_tier_rec,x_return_status => x_return_status);
6587: ozf_utility_pvt.debug_message('#@Completed Rec'||x_return_status);
6588: Create_Ozf_Disc_Line(
6589: p_api_version_number => p_api_version_number,
6590: p_init_msg_list => p_init_msg_list,
6591: p_commit => p_commit,
6598: );
6599: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6600: RAISE FND_API.G_EXC_ERROR;
6601: END IF;
6602: ozf_utility_pvt.debug_message('@# After Calling Create Disc Line : '||x_return_status);
6603: EXCEPTION
6604: WHEN FND_API.G_EXC_ERROR THEN
6605: ROLLBACK TO Create_Disc_tiers_PVT;
6606: x_return_status := FND_API.G_RET_STS_ERROR;
6685: END IF;
6686:
6687:
6688: -- Debug Message
6689: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6690:
6691: -- Initialize API return status to SUCCESS
6692: x_return_status := FND_API.G_RET_STS_SUCCESS;
6693:
6817: END IF;
6818:
6819:
6820: -- Debug Message
6821: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6822:
6823: -- Initialize API return status to SUCCESS
6824: x_return_status := FND_API.G_RET_STS_SUCCESS;
6825:
6828: FETCH C_PARENT_DISC_LINE INTO l_parent_disc_line;
6829: CLOSE C_PARENT_DISC_LINE;
6830:
6831: IF l_parent_disc_line.tier_type <> 'PBH' THEN
6832: OZF_UTILITY_PVT.ERROR_MESSAGE('PARENT_NOT_PBH');
6833: RAISE FND_API.G_EXC_ERROR;
6834: END IF;
6835:
6836: OZF_DISC_LINE_PKG.delete_tiers(p_parent_discount_line_id);
6954: END IF;
6955:
6956:
6957: -- Debug Message
6958: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
6959:
6960: -- Initialize API return status to SUCCESS
6961: x_return_status := FND_API.G_RET_STS_SUCCESS;
6962:
6970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6971: End If;
6972:
6973: IF l_tier_level <> 'HEADER' THEN
6974: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_NOT_HEADER_TIER');
6975: RAISE FND_API.G_EXC_ERROR;
6976: END IF;
6977:
6978: delete_Ozf_Disc_Line
6998: END IF;
6999:
7000:
7001: -- Debug Message
7002: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
7003:
7004:
7005: -- Standard call to get message count and if count is 1, get message info.
7006: FND_MSG_PUB.Count_And_Get