37:
38: -- Hint: Primary key needs to be returned.
39: PROCEDURE Create_Offer_Backdate(
40: p_api_version_number IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44:
45: x_return_status OUT NOCOPY VARCHAR2,
38: -- Hint: Primary key needs to be returned.
39: PROCEDURE Create_Offer_Backdate(
40: p_api_version_number IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44:
45: x_return_status OUT NOCOPY VARCHAR2,
46: x_msg_count OUT NOCOPY NUMBER,
39: PROCEDURE Create_Offer_Backdate(
40: p_api_version_number IN NUMBER,
41: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
42: p_commit IN VARCHAR2 := FND_API.G_FALSE,
43: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
44:
45: x_return_status OUT NOCOPY VARCHAR2,
46: x_msg_count OUT NOCOPY NUMBER,
47: x_msg_data OUT NOCOPY VARCHAR2,
54: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Offer_Backdate';
55: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
56: l_return_status_full VARCHAR2(1);
57: l_object_version_number NUMBER := 1;
58: l_org_id NUMBER := FND_API.G_MISS_NUM;
59: l_OFFER_ADJUSTMENT_ID NUMBER;
60: l_dummy NUMBER;
61:
62: CURSOR c_id IS
72: -- Standard Start of API savepoint
73: SAVEPOINT CREATE_Offer_Backdate_PVT;
74:
75: -- Standard call to check for call compatibility.
76: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
77: p_api_version_number,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
77: p_api_version_number,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
86: THEN
87: FND_MSG_PUB.initialize;
88: END IF;
89:
91: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
92:
93:
94: -- Initialize API return status to SUCCESS
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96:
97: -- Local variable initialization
98:
99: IF p_offer_backdate_rec.OFFER_ADJUSTMENT_ID IS NULL OR p_offer_backdate_rec.OFFER_ADJUSTMENT_ID = FND_API.g_miss_num THEN
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96:
97: -- Local variable initialization
98:
99: IF p_offer_backdate_rec.OFFER_ADJUSTMENT_ID IS NULL OR p_offer_backdate_rec.OFFER_ADJUSTMENT_ID = FND_API.g_miss_num THEN
100: LOOP
101: l_dummy := NULL;
102: OPEN c_id;
103: FETCH c_id INTO l_OFFER_ADJUSTMENT_ID;
118:
119: IF FND_GLOBAL.User_Id IS NULL
120: THEN
121: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
125: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
126: THEN
121: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
125: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
126: THEN
127: -- Debug message
128: OZF_UTILITY_PVT.debug_message('Private API: Validate_Offer_Backdate');
129:
129:
130: -- Invoke validation procedures
131: Validate_offer_backdate(
132: p_api_version_number => 1.0,
133: p_init_msg_list => FND_API.G_FALSE,
134: p_validation_level => p_validation_level,
135: p_validation_mode => JTF_PLSQL_API.g_create,
136: p_offer_backdate_rec => p_offer_backdate_rec,
137: x_return_status => x_return_status,
138: x_msg_count => x_msg_count,
139: x_msg_data => x_msg_data);
140: END IF;
141:
142: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
143: RAISE FND_API.G_EXC_ERROR;
144: END IF;
145:
146:
139: x_msg_data => x_msg_data);
140: END IF;
141:
142: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
143: RAISE FND_API.G_EXC_ERROR;
144: END IF;
145:
146:
147: -- Debug Message
166: px_object_version_number => l_object_version_number,
167: p_security_group_id => p_offer_backdate_rec.security_group_id);
168:
169: x_offer_adjustment_id := l_offer_adjustment_id;
170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173: --
174: -- End of API body
167: p_security_group_id => p_offer_backdate_rec.security_group_id);
168:
169: x_offer_adjustment_id := l_offer_adjustment_id;
170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173: --
174: -- End of API body
175: --
174: -- End of API body
175: --
176:
177: -- Standard check for p_commit
178: IF FND_API.to_Boolean( p_commit )
179: THEN
180: COMMIT WORK;
181: END IF;
182:
191: );
192: EXCEPTION
193:
194: WHEN OZF_Utility_PVT.resource_locked THEN
195: x_return_status := FND_API.g_ret_sts_error;
196: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
197:
198: WHEN FND_API.G_EXC_ERROR THEN
199: ROLLBACK TO CREATE_Offer_Backdate_PVT;
194: WHEN OZF_Utility_PVT.resource_locked THEN
195: x_return_status := FND_API.g_ret_sts_error;
196: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
197:
198: WHEN FND_API.G_EXC_ERROR THEN
199: ROLLBACK TO CREATE_Offer_Backdate_PVT;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: -- Standard call to get message count and if count=1, get the message
202: FND_MSG_PUB.Count_And_Get (
196: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
197:
198: WHEN FND_API.G_EXC_ERROR THEN
199: ROLLBACK TO CREATE_Offer_Backdate_PVT;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: -- Standard call to get message count and if count=1, get the message
202: FND_MSG_PUB.Count_And_Get (
203: p_encoded => FND_API.G_FALSE,
204: p_count => x_msg_count,
199: ROLLBACK TO CREATE_Offer_Backdate_PVT;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: -- Standard call to get message count and if count=1, get the message
202: FND_MSG_PUB.Count_And_Get (
203: p_encoded => FND_API.G_FALSE,
204: p_count => x_msg_count,
205: p_data => x_msg_data
206: );
207:
204: p_count => x_msg_count,
205: p_data => x_msg_data
206: );
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: ROLLBACK TO CREATE_Offer_Backdate_PVT;
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: -- Standard call to get message count and if count=1, get the message
212: FND_MSG_PUB.Count_And_Get (
206: );
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: ROLLBACK TO CREATE_Offer_Backdate_PVT;
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: -- Standard call to get message count and if count=1, get the message
212: FND_MSG_PUB.Count_And_Get (
213: p_encoded => FND_API.G_FALSE,
214: p_count => x_msg_count,
209: ROLLBACK TO CREATE_Offer_Backdate_PVT;
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: -- Standard call to get message count and if count=1, get the message
212: FND_MSG_PUB.Count_And_Get (
213: p_encoded => FND_API.G_FALSE,
214: p_count => x_msg_count,
215: p_data => x_msg_data
216: );
217:
216: );
217:
218: WHEN OTHERS THEN
219: ROLLBACK TO CREATE_Offer_Backdate_PVT;
220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
222: THEN
223: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
224: END IF;
223: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
224: END IF;
225: -- Standard call to get message count and if count=1, get the message
226: FND_MSG_PUB.Count_And_Get (
227: p_encoded => FND_API.G_FALSE,
228: p_count => x_msg_count,
229: p_data => x_msg_data
230: );
231: End Create_Offer_Backdate;
232:
233:
234: PROCEDURE Update_Offer_Backdate(
235: p_api_version_number IN NUMBER,
236: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
237: p_commit IN VARCHAR2 := FND_API.G_FALSE,
238: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
239:
240: x_return_status OUT NOCOPY VARCHAR2,
233:
234: PROCEDURE Update_Offer_Backdate(
235: p_api_version_number IN NUMBER,
236: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
237: p_commit IN VARCHAR2 := FND_API.G_FALSE,
238: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
239:
240: x_return_status OUT NOCOPY VARCHAR2,
241: x_msg_count OUT NOCOPY NUMBER,
234: PROCEDURE Update_Offer_Backdate(
235: p_api_version_number IN NUMBER,
236: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
237: p_commit IN VARCHAR2 := FND_API.G_FALSE,
238: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
239:
240: x_return_status OUT NOCOPY VARCHAR2,
241: x_msg_count OUT NOCOPY NUMBER,
242: x_msg_data OUT NOCOPY VARCHAR2,
273: -- Standard Start of API savepoint
274: SAVEPOINT UPDATE_Offer_Backdate_PVT;
275:
276: -- Standard call to check for call compatibility.
277: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
278: p_api_version_number,
279: l_api_name,
280: G_PKG_NAME)
281: THEN
278: p_api_version_number,
279: l_api_name,
280: G_PKG_NAME)
281: THEN
282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
283: END IF;
284:
285: -- Initialize message list if p_init_msg_list is set to TRUE.
286: IF FND_API.to_Boolean( p_init_msg_list )
282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
283: END IF;
284:
285: -- Initialize message list if p_init_msg_list is set to TRUE.
286: IF FND_API.to_Boolean( p_init_msg_list )
287: THEN
288: FND_MSG_PUB.initialize;
289: END IF;
290:
292: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
293:
294:
295: -- Initialize API return status to SUCCESS
296: x_return_status := FND_API.G_RET_STS_SUCCESS;
297:
298: -- Debug Message
299: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
300:
306: If ( c_get_Offer_Backdate%NOTFOUND) THEN
307: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
308: p_token_name => 'INFO',
309: p_token_value => 'Offer_Backdate') ;
310: RAISE FND_API.G_EXC_ERROR;
311: END IF;
312: -- Debug Message
313: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
314: CLOSE c_get_Offer_Backdate;
315: */
316:
317:
318: If (l_tar_offer_backdate_rec.object_version_number is NULL or
319: l_tar_offer_backdate_rec.object_version_number = FND_API.G_MISS_NUM ) Then
320: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
321: p_token_name => 'COLUMN',
322: p_token_value => 'Last_Update_Date') ;
323: raise FND_API.G_EXC_ERROR;
319: l_tar_offer_backdate_rec.object_version_number = FND_API.G_MISS_NUM ) Then
320: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
321: p_token_name => 'COLUMN',
322: p_token_value => 'Last_Update_Date') ;
323: raise FND_API.G_EXC_ERROR;
324: End if;
325: -- Check Whether record has been changed by someone else
326: If (l_tar_offer_backdate_rec.object_version_number <> l_ref_offer_backdate_rec.object_version_number) Then
327: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
326: If (l_tar_offer_backdate_rec.object_version_number <> l_ref_offer_backdate_rec.object_version_number) Then
327: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
328: p_token_name => 'INFO',
329: p_token_value => 'Offer_Backdate') ;
330: raise FND_API.G_EXC_ERROR;
331: End if;
332: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
333: THEN
334: -- Debug message
328: p_token_name => 'INFO',
329: p_token_value => 'Offer_Backdate') ;
330: raise FND_API.G_EXC_ERROR;
331: End if;
332: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
333: THEN
334: -- Debug message
335: OZF_UTILITY_PVT.debug_message('Private API: Validate_Offer_Backdate');
336:
336:
337: -- Invoke validation procedures
338: Validate_offer_backdate(
339: p_api_version_number => 1.0,
340: p_init_msg_list => FND_API.G_FALSE,
341: p_validation_level => p_validation_level,
342: p_validation_mode => JTF_PLSQL_API.g_update,
343: p_offer_backdate_rec => p_offer_backdate_rec,
344: x_return_status => x_return_status,
345: x_msg_count => x_msg_count,
346: x_msg_data => x_msg_data);
347: END IF;
348:
349: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352:
353: OPEN c_get_offer_status(p_offer_backdate_rec.offer_adjustment_id);
346: x_msg_data => x_msg_data);
347: END IF;
348:
349: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352:
353: OPEN c_get_offer_status(p_offer_backdate_rec.offer_adjustment_id);
354: FETCH c_get_offer_status INTO l_current_status_code;
412: -- End of API body.
413: --
414:
415: -- Standard check for p_commit
416: IF FND_API.to_Boolean( p_commit )
417: THEN
418: COMMIT WORK;
419: END IF;
420:
429: );
430: EXCEPTION
431:
432: WHEN OZF_Utility_PVT.resource_locked THEN
433: x_return_status := FND_API.g_ret_sts_error;
434: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
435:
436: WHEN FND_API.G_EXC_ERROR THEN
437: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
432: WHEN OZF_Utility_PVT.resource_locked THEN
433: x_return_status := FND_API.g_ret_sts_error;
434: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
435:
436: WHEN FND_API.G_EXC_ERROR THEN
437: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: -- Standard call to get message count and if count=1, get the message
440: FND_MSG_PUB.Count_And_Get (
434: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
435:
436: WHEN FND_API.G_EXC_ERROR THEN
437: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: -- Standard call to get message count and if count=1, get the message
440: FND_MSG_PUB.Count_And_Get (
441: p_encoded => FND_API.G_FALSE,
442: p_count => x_msg_count,
437: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: -- Standard call to get message count and if count=1, get the message
440: FND_MSG_PUB.Count_And_Get (
441: p_encoded => FND_API.G_FALSE,
442: p_count => x_msg_count,
443: p_data => x_msg_data
444: );
445:
442: p_count => x_msg_count,
443: p_data => x_msg_data
444: );
445:
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: -- Standard call to get message count and if count=1, get the message
450: FND_MSG_PUB.Count_And_Get (
444: );
445:
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: -- Standard call to get message count and if count=1, get the message
450: FND_MSG_PUB.Count_And_Get (
451: p_encoded => FND_API.G_FALSE,
452: p_count => x_msg_count,
447: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: -- Standard call to get message count and if count=1, get the message
450: FND_MSG_PUB.Count_And_Get (
451: p_encoded => FND_API.G_FALSE,
452: p_count => x_msg_count,
453: p_data => x_msg_data
454: );
455:
454: );
455:
456: WHEN OTHERS THEN
457: ROLLBACK TO UPDATE_Offer_Backdate_PVT;
458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
460: THEN
461: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
462: END IF;
461: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
462: END IF;
463: -- Standard call to get message count and if count=1, get the message
464: FND_MSG_PUB.Count_And_Get (
465: p_encoded => FND_API.G_FALSE,
466: p_count => x_msg_count,
467: p_data => x_msg_data
468: );
469: End Update_Offer_Backdate;
470:
471:
472: PROCEDURE Delete_Offer_Backdate(
473: p_api_version_number IN NUMBER,
474: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
475: p_commit IN VARCHAR2 := FND_API.G_FALSE,
476: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
477: x_return_status OUT NOCOPY VARCHAR2,
478: x_msg_count OUT NOCOPY NUMBER,
471:
472: PROCEDURE Delete_Offer_Backdate(
473: p_api_version_number IN NUMBER,
474: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
475: p_commit IN VARCHAR2 := FND_API.G_FALSE,
476: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
477: x_return_status OUT NOCOPY VARCHAR2,
478: x_msg_count OUT NOCOPY NUMBER,
479: x_msg_data OUT NOCOPY VARCHAR2,
472: PROCEDURE Delete_Offer_Backdate(
473: p_api_version_number IN NUMBER,
474: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
475: p_commit IN VARCHAR2 := FND_API.G_FALSE,
476: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
477: x_return_status OUT NOCOPY VARCHAR2,
478: x_msg_count OUT NOCOPY NUMBER,
479: x_msg_data OUT NOCOPY VARCHAR2,
480: p_offer_adjustment_id IN NUMBER,
490: -- Standard Start of API savepoint
491: SAVEPOINT DELETE_Offer_Backdate_PVT;
492:
493: -- Standard call to check for call compatibility.
494: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
495: p_api_version_number,
496: l_api_name,
497: G_PKG_NAME)
498: THEN
495: p_api_version_number,
496: l_api_name,
497: G_PKG_NAME)
498: THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: -- Initialize message list if p_init_msg_list is set to TRUE.
503: IF FND_API.to_Boolean( p_init_msg_list )
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: -- Initialize message list if p_init_msg_list is set to TRUE.
503: IF FND_API.to_Boolean( p_init_msg_list )
504: THEN
505: FND_MSG_PUB.initialize;
506: END IF;
507:
509: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
510:
511:
512: -- Initialize API return status to SUCCESS
513: x_return_status := FND_API.G_RET_STS_SUCCESS;
514:
515: --
516: -- Api body
517: --
525: -- End of API body
526: --
527:
528: -- Standard check for p_commit
529: IF FND_API.to_Boolean( p_commit )
530: THEN
531: COMMIT WORK;
532: END IF;
533:
542: );
543: EXCEPTION
544:
545: WHEN OZF_Utility_PVT.resource_locked THEN
546: x_return_status := FND_API.g_ret_sts_error;
547: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
548:
549: WHEN FND_API.G_EXC_ERROR THEN
550: ROLLBACK TO DELETE_Offer_Backdate_PVT;
545: WHEN OZF_Utility_PVT.resource_locked THEN
546: x_return_status := FND_API.g_ret_sts_error;
547: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
548:
549: WHEN FND_API.G_EXC_ERROR THEN
550: ROLLBACK TO DELETE_Offer_Backdate_PVT;
551: x_return_status := FND_API.G_RET_STS_ERROR;
552: -- Standard call to get message count and if count=1, get the message
553: FND_MSG_PUB.Count_And_Get (
547: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
548:
549: WHEN FND_API.G_EXC_ERROR THEN
550: ROLLBACK TO DELETE_Offer_Backdate_PVT;
551: x_return_status := FND_API.G_RET_STS_ERROR;
552: -- Standard call to get message count and if count=1, get the message
553: FND_MSG_PUB.Count_And_Get (
554: p_encoded => FND_API.G_FALSE,
555: p_count => x_msg_count,
550: ROLLBACK TO DELETE_Offer_Backdate_PVT;
551: x_return_status := FND_API.G_RET_STS_ERROR;
552: -- Standard call to get message count and if count=1, get the message
553: FND_MSG_PUB.Count_And_Get (
554: p_encoded => FND_API.G_FALSE,
555: p_count => x_msg_count,
556: p_data => x_msg_data
557: );
558:
555: p_count => x_msg_count,
556: p_data => x_msg_data
557: );
558:
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: ROLLBACK TO DELETE_Offer_Backdate_PVT;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: -- Standard call to get message count and if count=1, get the message
563: FND_MSG_PUB.Count_And_Get (
557: );
558:
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: ROLLBACK TO DELETE_Offer_Backdate_PVT;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: -- Standard call to get message count and if count=1, get the message
563: FND_MSG_PUB.Count_And_Get (
564: p_encoded => FND_API.G_FALSE,
565: p_count => x_msg_count,
560: ROLLBACK TO DELETE_Offer_Backdate_PVT;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: -- Standard call to get message count and if count=1, get the message
563: FND_MSG_PUB.Count_And_Get (
564: p_encoded => FND_API.G_FALSE,
565: p_count => x_msg_count,
566: p_data => x_msg_data
567: );
568:
567: );
568:
569: WHEN OTHERS THEN
570: ROLLBACK TO DELETE_Offer_Backdate_PVT;
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
573: THEN
574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
575: END IF;
574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
575: END IF;
576: -- Standard call to get message count and if count=1, get the message
577: FND_MSG_PUB.Count_And_Get (
578: p_encoded => FND_API.G_FALSE,
579: p_count => x_msg_count,
580: p_data => x_msg_data
581: );
582: End Delete_Offer_Backdate;
585:
586: -- Hint: Primary key needs to be returned.
587: PROCEDURE Lock_Offer_Backdate(
588: p_api_version_number IN NUMBER,
589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
590:
591: x_return_status OUT NOCOPY VARCHAR2,
592: x_msg_count OUT NOCOPY NUMBER,
593: x_msg_data OUT NOCOPY VARCHAR2,
614: -- Debug Message
615: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
616:
617: -- Initialize message list if p_init_msg_list is set to TRUE.
618: IF FND_API.to_Boolean( p_init_msg_list )
619: THEN
620: FND_MSG_PUB.initialize;
621: END IF;
622:
620: FND_MSG_PUB.initialize;
621: END IF;
622:
623: -- Standard call to check for call compatibility.
624: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
625: p_api_version_number,
626: l_api_name,
627: G_PKG_NAME)
628: THEN
625: p_api_version_number,
626: l_api_name,
627: G_PKG_NAME)
628: THEN
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
631:
632:
633: -- Initialize API return status to SUCCESS
630: END IF;
631:
632:
633: -- Initialize API return status to SUCCESS
634: x_return_status := FND_API.G_RET_STS_SUCCESS;
635:
636:
637: ------------------------ lock -------------------------
638:
646: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
647: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
648: FND_MSG_PUB.add;
649: END IF;
650: RAISE FND_API.g_exc_error;
651: END IF;
652:
653: CLOSE c_Offer_Backdate;
654:
653: CLOSE c_Offer_Backdate;
654:
655: -------------------- finish --------------------------
656: FND_MSG_PUB.count_and_get(
657: p_encoded => FND_API.g_false,
658: p_count => x_msg_count,
659: p_data => x_msg_data);
660: OZF_Utility_PVT.debug_message(l_full_name ||': end');
661: EXCEPTION
660: OZF_Utility_PVT.debug_message(l_full_name ||': end');
661: EXCEPTION
662:
663: WHEN OZF_Utility_PVT.resource_locked THEN
664: x_return_status := FND_API.g_ret_sts_error;
665: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
666:
667: WHEN FND_API.G_EXC_ERROR THEN
668: ROLLBACK TO LOCK_Offer_Backdate_PVT;
663: WHEN OZF_Utility_PVT.resource_locked THEN
664: x_return_status := FND_API.g_ret_sts_error;
665: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
666:
667: WHEN FND_API.G_EXC_ERROR THEN
668: ROLLBACK TO LOCK_Offer_Backdate_PVT;
669: x_return_status := FND_API.G_RET_STS_ERROR;
670: -- Standard call to get message count and if count=1, get the message
671: FND_MSG_PUB.Count_And_Get (
665: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
666:
667: WHEN FND_API.G_EXC_ERROR THEN
668: ROLLBACK TO LOCK_Offer_Backdate_PVT;
669: x_return_status := FND_API.G_RET_STS_ERROR;
670: -- Standard call to get message count and if count=1, get the message
671: FND_MSG_PUB.Count_And_Get (
672: p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
668: ROLLBACK TO LOCK_Offer_Backdate_PVT;
669: x_return_status := FND_API.G_RET_STS_ERROR;
670: -- Standard call to get message count and if count=1, get the message
671: FND_MSG_PUB.Count_And_Get (
672: p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
674: p_data => x_msg_data
675: );
676:
673: p_count => x_msg_count,
674: p_data => x_msg_data
675: );
676:
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678: ROLLBACK TO LOCK_Offer_Backdate_PVT;
679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
680: -- Standard call to get message count and if count=1, get the message
681: FND_MSG_PUB.Count_And_Get (
675: );
676:
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678: ROLLBACK TO LOCK_Offer_Backdate_PVT;
679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
680: -- Standard call to get message count and if count=1, get the message
681: FND_MSG_PUB.Count_And_Get (
682: p_encoded => FND_API.G_FALSE,
683: p_count => x_msg_count,
678: ROLLBACK TO LOCK_Offer_Backdate_PVT;
679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
680: -- Standard call to get message count and if count=1, get the message
681: FND_MSG_PUB.Count_And_Get (
682: p_encoded => FND_API.G_FALSE,
683: p_count => x_msg_count,
684: p_data => x_msg_data
685: );
686:
685: );
686:
687: WHEN OTHERS THEN
688: ROLLBACK TO LOCK_Offer_Backdate_PVT;
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
691: THEN
692: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
693: END IF;
692: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
693: END IF;
694: -- Standard call to get message count and if count=1, get the message
695: FND_MSG_PUB.Count_And_Get (
696: p_encoded => FND_API.G_FALSE,
697: p_count => x_msg_count,
698: p_data => x_msg_data
699: );
700: End Lock_Offer_Backdate;
707: IS
708: l_valid_flag VARCHAR2(1);
709:
710: BEGIN
711: x_return_status := FND_API.g_ret_sts_success;
712: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
713: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
714: 'OZF_OFFER_ADJUSTMENTS_B',
715: 'OFFER_ADJUSTMENT_ID = ''' || p_offer_backdate_rec.OFFER_ADJUSTMENT_ID ||''''
721: ''' AND OFFER_ADJUSTMENT_ID <> ' || p_offer_backdate_rec.OFFER_ADJUSTMENT_ID
722: );
723: END IF;
724:
725: IF l_valid_flag = FND_API.g_false THEN
726: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFER_ADJ_ID_DUPLICATE');
727: x_return_status := FND_API.g_ret_sts_error;
728: RETURN;
729: END IF;
723: END IF;
724:
725: IF l_valid_flag = FND_API.g_false THEN
726: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_OFFER_ADJ_ID_DUPLICATE');
727: x_return_status := FND_API.g_ret_sts_error;
728: RETURN;
729: END IF;
730:
731: END check_offer_backdate_uk_items;
736: x_return_status OUT NOCOPY VARCHAR2
737: )
738: IS
739: BEGIN
740: x_return_status := FND_API.g_ret_sts_success;
741:
742: --IF p_validation_mode = JTF_PLSQL_API.g_create THEN
743: --ELSE
744: --END IF;
750: x_return_status OUT NOCOPY VARCHAR2
751: )
752: IS
753: BEGIN
754: x_return_status := FND_API.g_ret_sts_success;
755:
756: -- Enter custom code here
757:
758: END check_offer_backdate_FK_items;
762: x_return_status OUT NOCOPY VARCHAR2
763: )
764: IS
765: BEGIN
766: x_return_status := FND_API.g_ret_sts_success;
767:
768: -- Enter custom code here
769:
770: END check_offer_backdate_Lookup_items;*/
782: check_offer_backdate_uk_items(
783: p_offer_backdate_rec => p_offer_backdate_rec,
784: p_validation_mode => p_validation_mode,
785: x_return_status => x_return_status);
786: IF x_return_status <> FND_API.g_ret_sts_success THEN
787: RETURN;
788: END IF;
789:
790: -- Check Items Required/NOT NULL API calls
792: check_offer_backdate_req_items(
793: p_offer_backdate_rec => p_offer_backdate_rec,
794: p_validation_mode => p_validation_mode,
795: x_return_status => x_return_status);
796: IF x_return_status <> FND_API.g_ret_sts_success THEN
797: RETURN;
798: END IF;
799: -- Check Items Foreign Keys API calls
800:
800:
801: check_offer_backdate_FK_items(
802: p_offer_backdate_rec => p_offer_backdate_rec,
803: x_return_status => x_return_status);
804: IF x_return_status <> FND_API.g_ret_sts_success THEN
805: RETURN;
806: END IF;
807: -- Check Items Lookups
808:
808:
809: /* check_offer_backdate_Lookup_items(
810: p_offer_backdate_rec => p_offer_backdate_rec,
811: x_return_status => x_return_status);
812: IF x_return_status <> FND_API.g_ret_sts_success THEN
813: RETURN;
814: END IF; */
815:
816: END Check_offer_backdate_Items;
836: FETCH c_complete INTO l_offer_backdate_rec;
837: CLOSE c_complete;
838:
839: -- offer_adjustment_id
840: IF p_offer_backdate_rec.offer_adjustment_id = FND_API.g_miss_num THEN
841: x_complete_rec.offer_adjustment_id := NULL;
842: END IF;
843: IF p_offer_backdate_rec.offer_adjustment_id IS NULL THEN
844: x_complete_rec.offer_adjustment_id := l_offer_backdate_rec.offer_adjustment_id;
844: x_complete_rec.offer_adjustment_id := l_offer_backdate_rec.offer_adjustment_id;
845: END IF;
846:
847: -- effective_date
848: IF p_offer_backdate_rec.effective_date = FND_API.g_miss_date THEN
849: x_complete_rec.effective_date := NULL;
850: END IF;
851: IF p_offer_backdate_rec.effective_date IS NULL THEN
852: x_complete_rec.effective_date := l_offer_backdate_rec.effective_date;
852: x_complete_rec.effective_date := l_offer_backdate_rec.effective_date;
853: END IF;
854:
855: -- approved_date
856: IF p_offer_backdate_rec.approved_date = FND_API.g_miss_date THEN
857: x_complete_rec.approved_date := NULL;
858: END IF;
859: IF p_offer_backdate_rec.approved_date IS NULL THEN
860: x_complete_rec.approved_date := l_offer_backdate_rec.approved_date;
860: x_complete_rec.approved_date := l_offer_backdate_rec.approved_date;
861: END IF;
862:
863: -- settlement_code
864: IF p_offer_backdate_rec.settlement_code = FND_API.g_miss_char THEN
865: x_complete_rec.settlement_code := NULL;
866: END IF;
867: IF p_offer_backdate_rec.settlement_code IS NULL THEN
868: x_complete_rec.settlement_code := l_offer_backdate_rec.settlement_code;
868: x_complete_rec.settlement_code := l_offer_backdate_rec.settlement_code;
869: END IF;
870:
871: -- status_code
872: IF p_offer_backdate_rec.status_code = FND_API.g_miss_char THEN
873: x_complete_rec.status_code := NULL;
874: END IF;
875: IF p_offer_backdate_rec.status_code IS NULL THEN
876: x_complete_rec.status_code := l_offer_backdate_rec.status_code;
876: x_complete_rec.status_code := l_offer_backdate_rec.status_code;
877: END IF;
878:
879: -- list_header_id
880: IF p_offer_backdate_rec.list_header_id = FND_API.g_miss_num THEN
881: x_complete_rec.list_header_id := NULL;
882: END IF;
883: IF p_offer_backdate_rec.list_header_id IS NULL THEN
884: x_complete_rec.list_header_id := l_offer_backdate_rec.list_header_id;
884: x_complete_rec.list_header_id := l_offer_backdate_rec.list_header_id;
885: END IF;
886:
887: -- version
888: IF p_offer_backdate_rec.version = FND_API.g_miss_num THEN
889: x_complete_rec.version := NULL;
890: END IF;
891: IF p_offer_backdate_rec.version IS NULL THEN
892: x_complete_rec.version := l_offer_backdate_rec.version;
892: x_complete_rec.version := l_offer_backdate_rec.version;
893: END IF;
894:
895: -- budget_adjusted_flag
896: IF p_offer_backdate_rec.budget_adjusted_flag = FND_API.g_miss_char THEN
897: x_complete_rec.budget_adjusted_flag := NULL;
898: END IF;
899: IF p_offer_backdate_rec.budget_adjusted_flag IS NULL THEN
900: x_complete_rec.budget_adjusted_flag := l_offer_backdate_rec.budget_adjusted_flag;
900: x_complete_rec.budget_adjusted_flag := l_offer_backdate_rec.budget_adjusted_flag;
901: END IF;
902:
903: -- comments
904: IF p_offer_backdate_rec.comments = FND_API.g_miss_char THEN
905: x_complete_rec.comments := NULL;
906: END IF;
907: IF p_offer_backdate_rec.comments IS NULL THEN
908: x_complete_rec.comments := l_offer_backdate_rec.comments;
908: x_complete_rec.comments := l_offer_backdate_rec.comments;
909: END IF;
910:
911: -- last_update_date
912: IF p_offer_backdate_rec.last_update_date = FND_API.g_miss_date THEN
913: x_complete_rec.last_update_date := NULL;
914: END IF;
915: IF p_offer_backdate_rec.last_update_date IS NULL THEN
916: x_complete_rec.last_update_date := l_offer_backdate_rec.last_update_date;
916: x_complete_rec.last_update_date := l_offer_backdate_rec.last_update_date;
917: END IF;
918:
919: -- last_updated_by
920: IF p_offer_backdate_rec.last_updated_by = FND_API.g_miss_num THEN
921: x_complete_rec.last_updated_by := NULL;
922: END IF;
923: IF p_offer_backdate_rec.last_updated_by IS NULL THEN
924: x_complete_rec.last_updated_by := l_offer_backdate_rec.last_updated_by;
924: x_complete_rec.last_updated_by := l_offer_backdate_rec.last_updated_by;
925: END IF;
926:
927: -- creation_date
928: IF p_offer_backdate_rec.creation_date = FND_API.g_miss_date THEN
929: x_complete_rec.creation_date := NULL;
930: END IF;
931: IF p_offer_backdate_rec.creation_date IS NULL THEN
932: x_complete_rec.creation_date := l_offer_backdate_rec.creation_date;
932: x_complete_rec.creation_date := l_offer_backdate_rec.creation_date;
933: END IF;
934:
935: -- created_by
936: IF p_offer_backdate_rec.created_by = FND_API.g_miss_num THEN
937: x_complete_rec.created_by := NULL;
938: END IF;
939: IF p_offer_backdate_rec.created_by IS NULL THEN
940: x_complete_rec.created_by := l_offer_backdate_rec.created_by;
940: x_complete_rec.created_by := l_offer_backdate_rec.created_by;
941: END IF;
942:
943: -- last_update_login
944: IF p_offer_backdate_rec.last_update_login = FND_API.g_miss_num THEN
945: x_complete_rec.last_update_login := NULL;
946: END IF;
947: IF p_offer_backdate_rec.last_update_login IS NULL THEN
948: x_complete_rec.last_update_login := l_offer_backdate_rec.last_update_login;
948: x_complete_rec.last_update_login := l_offer_backdate_rec.last_update_login;
949: END IF;
950:
951: -- object_version_number
952: IF p_offer_backdate_rec.object_version_number = FND_API.g_miss_num THEN
953: x_complete_rec.object_version_number := NULL;
954: END IF;
955: IF p_offer_backdate_rec.object_version_number IS NULL THEN
956: x_complete_rec.object_version_number := l_offer_backdate_rec.object_version_number;
956: x_complete_rec.object_version_number := l_offer_backdate_rec.object_version_number;
957: END IF;
958:
959: -- security_group_id
960: IF p_offer_backdate_rec.security_group_id = FND_API.g_miss_num THEN
961: x_complete_rec.security_group_id := NULL;
962: END IF;
963: IF p_offer_backdate_rec.security_group_id IS NULL THEN
964: x_complete_rec.security_group_id := l_offer_backdate_rec.security_group_id;
967: -- to handle any business specific requirements.
968: END Complete_offer_backdate_Rec;
969: PROCEDURE Validate_offer_backdate(
970: p_api_version_number IN NUMBER,
971: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
972: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
973: p_offer_backdate_rec IN offer_backdate_rec_type,
974: p_validation_mode IN VARCHAR2,
975: x_return_status OUT NOCOPY VARCHAR2,
968: END Complete_offer_backdate_Rec;
969: PROCEDURE Validate_offer_backdate(
970: p_api_version_number IN NUMBER,
971: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
972: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
973: p_offer_backdate_rec IN offer_backdate_rec_type,
974: p_validation_mode IN VARCHAR2,
975: x_return_status OUT NOCOPY VARCHAR2,
976: x_msg_count OUT NOCOPY NUMBER,
986: -- Standard Start of API savepoint
987: SAVEPOINT VALIDATE_Offer_Backdate_;
988:
989: -- Standard call to check for call compatibility.
990: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
991: p_api_version_number,
992: l_api_name,
993: G_PKG_NAME)
994: THEN
991: p_api_version_number,
992: l_api_name,
993: G_PKG_NAME)
994: THEN
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
998: -- Initialize message list if p_init_msg_list is set to TRUE.
999: IF FND_API.to_Boolean( p_init_msg_list )
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
998: -- Initialize message list if p_init_msg_list is set to TRUE.
999: IF FND_API.to_Boolean( p_init_msg_list )
1000: THEN
1001: FND_MSG_PUB.initialize;
1002: END IF;
1003: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1006: p_validation_mode => p_validation_mode,
1007: x_return_status => x_return_status
1008: );
1009:
1010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1011: RAISE FND_API.G_EXC_ERROR;
1012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1014: END IF;
1007: x_return_status => x_return_status
1008: );
1009:
1010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1011: RAISE FND_API.G_EXC_ERROR;
1012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1014: END IF;
1015: END IF;
1008: );
1009:
1010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1011: RAISE FND_API.G_EXC_ERROR;
1012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1014: END IF;
1015: END IF;
1016:
1009:
1010: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1011: RAISE FND_API.G_EXC_ERROR;
1012: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1014: END IF;
1015: END IF;
1016:
1017: Complete_offer_backdate_Rec(
1021:
1022: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1023: Validate_offer_backdate_Rec(
1024: p_api_version_number => 1.0,
1025: p_init_msg_list => FND_API.G_FALSE,
1026: x_return_status => x_return_status,
1027: x_msg_count => x_msg_count,
1028: x_msg_data => x_msg_data,
1029: p_offer_backdate_rec => l_offer_backdate_rec);
1027: x_msg_count => x_msg_count,
1028: x_msg_data => x_msg_data,
1029: p_offer_backdate_rec => l_offer_backdate_rec);
1030:
1031: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: END IF;
1028: x_msg_data => x_msg_data,
1029: p_offer_backdate_rec => l_offer_backdate_rec);
1030:
1031: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: END IF;
1036: END IF;
1029: p_offer_backdate_rec => l_offer_backdate_rec);
1030:
1031: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: END IF;
1036: END IF;
1037:
1030:
1031: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: END IF;
1036: END IF;
1037:
1038:
1040: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1041:
1042:
1043: -- Initialize API return status to SUCCESS
1044: x_return_status := FND_API.G_RET_STS_SUCCESS;
1045:
1046:
1047: -- Debug Message
1048: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1054: );
1055: EXCEPTION
1056:
1057: WHEN OZF_Utility_PVT.resource_locked THEN
1058: x_return_status := FND_API.g_ret_sts_error;
1059: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1060:
1061: WHEN FND_API.G_EXC_ERROR THEN
1062: ROLLBACK TO VALIDATE_Offer_Backdate_;
1057: WHEN OZF_Utility_PVT.resource_locked THEN
1058: x_return_status := FND_API.g_ret_sts_error;
1059: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1060:
1061: WHEN FND_API.G_EXC_ERROR THEN
1062: ROLLBACK TO VALIDATE_Offer_Backdate_;
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: -- Standard call to get message count and if count=1, get the message
1065: FND_MSG_PUB.Count_And_Get (
1059: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1060:
1061: WHEN FND_API.G_EXC_ERROR THEN
1062: ROLLBACK TO VALIDATE_Offer_Backdate_;
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: -- Standard call to get message count and if count=1, get the message
1065: FND_MSG_PUB.Count_And_Get (
1066: p_encoded => FND_API.G_FALSE,
1067: p_count => x_msg_count,
1062: ROLLBACK TO VALIDATE_Offer_Backdate_;
1063: x_return_status := FND_API.G_RET_STS_ERROR;
1064: -- Standard call to get message count and if count=1, get the message
1065: FND_MSG_PUB.Count_And_Get (
1066: p_encoded => FND_API.G_FALSE,
1067: p_count => x_msg_count,
1068: p_data => x_msg_data
1069: );
1070:
1067: p_count => x_msg_count,
1068: p_data => x_msg_data
1069: );
1070:
1071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1072: ROLLBACK TO VALIDATE_Offer_Backdate_;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: -- Standard call to get message count and if count=1, get the message
1075: FND_MSG_PUB.Count_And_Get (
1069: );
1070:
1071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1072: ROLLBACK TO VALIDATE_Offer_Backdate_;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: -- Standard call to get message count and if count=1, get the message
1075: FND_MSG_PUB.Count_And_Get (
1076: p_encoded => FND_API.G_FALSE,
1077: p_count => x_msg_count,
1072: ROLLBACK TO VALIDATE_Offer_Backdate_;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: -- Standard call to get message count and if count=1, get the message
1075: FND_MSG_PUB.Count_And_Get (
1076: p_encoded => FND_API.G_FALSE,
1077: p_count => x_msg_count,
1078: p_data => x_msg_data
1079: );
1080:
1079: );
1080:
1081: WHEN OTHERS THEN
1082: ROLLBACK TO VALIDATE_Offer_Backdate_;
1083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1084: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1085: THEN
1086: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1087: END IF;
1086: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1087: END IF;
1088: -- Standard call to get message count and if count=1, get the message
1089: FND_MSG_PUB.Count_And_Get (
1090: p_encoded => FND_API.G_FALSE,
1091: p_count => x_msg_count,
1092: p_data => x_msg_data
1093: );
1094: End Validate_Offer_Backdate;
1095:
1096:
1097: PROCEDURE Validate_offer_backdate_rec(
1098: p_api_version_number IN NUMBER,
1099: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1100: x_return_status OUT NOCOPY VARCHAR2,
1101: x_msg_count OUT NOCOPY NUMBER,
1102: x_msg_data OUT NOCOPY VARCHAR2,
1103: p_offer_backdate_rec IN offer_backdate_rec_type
1104: )
1105: IS
1106: BEGIN
1107: -- Initialize message list if p_init_msg_list is set to TRUE.
1108: IF FND_API.to_Boolean( p_init_msg_list )
1109: THEN
1110: FND_MSG_PUB.initialize;
1111: END IF;
1112:
1110: FND_MSG_PUB.initialize;
1111: END IF;
1112:
1113: -- Initialize API return status to SUCCESS
1114: x_return_status := FND_API.G_RET_STS_SUCCESS;
1115:
1116: -- Hint: Validate data
1117: -- If data not valid
1118: -- THEN
1115:
1116: -- Hint: Validate data
1117: -- If data not valid
1118: -- THEN
1119: -- x_return_status := FND_API.G_RET_STS_ERROR;
1120:
1121: -- Debug Message
1122: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1123: -- Standard call to get message count and if count is 1, get message info.
1128: END Validate_offer_backdate_Rec;
1129:
1130: PROCEDURE Create_Initial_Adj(
1131: p_api_version IN NUMBER,
1132: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1133: p_commit IN VARCHAR2 := FND_API.g_false,
1134: p_obj_id IN NUMBER,
1135: p_obj_type IN VARCHAR2 ,
1136: x_return_status OUT NOCOPY VARCHAR2,
1129:
1130: PROCEDURE Create_Initial_Adj(
1131: p_api_version IN NUMBER,
1132: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1133: p_commit IN VARCHAR2 := FND_API.g_false,
1134: p_obj_id IN NUMBER,
1135: p_obj_type IN VARCHAR2 ,
1136: x_return_status OUT NOCOPY VARCHAR2,
1137: x_msg_count OUT NOCOPY NUMBER,
1259:
1260: EXCEPTION
1261:
1262: WHEN OTHERS THEN
1263: x_return_status := FND_API.g_ret_sts_unexp_error;
1264:
1265: FND_MESSAGE.set_name('OZF', 'OZF_CREATE_OFFR_ADJ_FAILED');
1266: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1267: FND_MSG_PUB.add;
1270: THEN
1271: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1272: END IF;
1273:
1274: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
1275: p_count => x_msg_count,
1276: p_data => x_msg_data);
1277:
1278: END Create_Initial_Adj;
1304: -- Mon Dec 01 2003:7/26 PM rssharma created
1305: -- End of Comments
1306: ---------------------------------------------------------
1307: procedure process_new_adjustments(
1308: p_init_msg_list IN VARCHAR2 := FND_API.g_false
1309: ,p_api_version IN NUMBER
1310: ,p_commit IN VARCHAR2 := FND_API.g_false
1311: ,x_return_status OUT NOCOPY VARCHAR2
1312: ,x_msg_count OUT NOCOPY NUMBER
1306: ---------------------------------------------------------
1307: procedure process_new_adjustments(
1308: p_init_msg_list IN VARCHAR2 := FND_API.g_false
1309: ,p_api_version IN NUMBER
1310: ,p_commit IN VARCHAR2 := FND_API.g_false
1311: ,x_return_status OUT NOCOPY VARCHAR2
1312: ,x_msg_count OUT NOCOPY NUMBER
1313: ,x_msg_data OUT NOCOPY VARCHAR2
1314: ,p_offer_adjustment_id IN NUMBER
1370: -- julou end
1371: BEGIN
1372:
1373: ozf_utility_pvt.debug_message('inside process new adjustments');
1374: IF Fnd_Api.to_boolean(p_init_msg_list)
1375: THEN
1376:
1377: Fnd_Msg_Pub.initialize;
1378:
1378:
1379:
1380: END IF;
1381:
1382: IF NOT Fnd_Api.compatible_api_call ( p_api_version,
1383: p_api_version,
1384: l_api_name,
1385: g_pkg_name
1386: )
1385: g_pkg_name
1386: )
1387: THEN
1388:
1389: RAISE Fnd_Api.g_exc_unexpected_error;
1390:
1391: END IF;
1392:
1393: x_return_status := Fnd_Api.g_ret_sts_success;
1389: RAISE Fnd_Api.g_exc_unexpected_error;
1390:
1391: END IF;
1392:
1393: x_return_status := Fnd_Api.g_ret_sts_success;
1394:
1395: -- julou backdated offer for Promotional Goods, Trade Deal, Tiered Discount
1396: -- set operation to NULL should prevent operation on list header and offer tables
1397: l_modifier_list_rec.offer_operation := NULL;
1454: -- Updates the tiers and Discounts for Volume Offer tiers
1455: -------------------------------------------------------------------------------------------
1456: PROCEDURE update_volume_offer_discounts
1457: (
1458: p_init_msg_list IN VARCHAR2 := FND_API.g_false
1459: ,p_api_version IN NUMBER
1460: ,p_commit IN VARCHAR2 := FND_API.g_false
1461: ,x_return_status OUT NOCOPY VARCHAR2
1462: ,x_msg_count OUT NOCOPY NUMBER
1456: PROCEDURE update_volume_offer_discounts
1457: (
1458: p_init_msg_list IN VARCHAR2 := FND_API.g_false
1459: ,p_api_version IN NUMBER
1460: ,p_commit IN VARCHAR2 := FND_API.g_false
1461: ,x_return_status OUT NOCOPY VARCHAR2
1462: ,x_msg_count OUT NOCOPY NUMBER
1463: ,x_msg_data OUT NOCOPY VARCHAR2
1464: ,p_offer_adjustment_id IN NUMBER
1531: l_dummy NUMBER;
1532: l_adj_lines c_adj_lines%rowtype;
1533:
1534: BEGIN
1535: x_return_status := Fnd_Api.g_ret_sts_success;
1536: ---------Update Volume Offer tiers ----------------------------
1537: FOR l_adj_tier IN c_adj_tiers LOOP
1538: OPEN c_tier_detail(l_adj_tier.volume_offer_tiers_id);
1539: FETCH c_tier_detail INTO l_tier_detail;
1553:
1554: OZF_Vol_Offr_PVT.Update_Vol_Offr(p_api_version
1555: ,p_init_msg_list
1556: ,p_commit
1557: ,FND_API.G_VALID_LEVEL_FULL -- validation level
1558: ,x_return_status
1559: ,x_msg_count
1560: ,x_msg_data
1561: ,l_vol_offr_tier_rec
1577: l_modifier_line_tbl(l_index).list_header_id := l_qp_line_detail.list_header_id;
1578: l_modifier_line_tbl(l_index).list_line_type_code := l_qp_line_detail.list_line_type_code;
1579: l_modifier_line_tbl(l_index).start_date_active := l_qp_line_detail.start_date_active;
1580: l_modifier_line_tbl(l_index).end_date_active := l_qp_line_detail.end_date_active;
1581: IF l_qp_line_detail.end_date_active <> FND_API.G_MISS_DATE
1582: AND l_qp_line_detail.end_date_active IS NOT NULL
1583: THEN
1584: l_modifier_line_tbl(l_index).inactive_flag := 'N';
1585: ELSE
1633: currently only inserts without checking for duplicates, so depends on judicious calling of the api
1634: */
1635: PROCEDURE process_vo_adj_products
1636: (
1637: p_init_msg_list IN VARCHAR2 := FND_API.g_false
1638: , p_api_version IN NUMBER
1639: , p_commit IN VARCHAR2 := FND_API.g_false
1640: , x_return_status OUT NOCOPY VARCHAR2
1641: , x_msg_count OUT NOCOPY NUMBER
1635: PROCEDURE process_vo_adj_products
1636: (
1637: p_init_msg_list IN VARCHAR2 := FND_API.g_false
1638: , p_api_version IN NUMBER
1639: , p_commit IN VARCHAR2 := FND_API.g_false
1640: , x_return_status OUT NOCOPY VARCHAR2
1641: , x_msg_count OUT NOCOPY NUMBER
1642: , x_msg_data OUT NOCOPY VARCHAR2
1643: , p_offer_adjustment_id IN NUMBER
1656:
1657: BEGIN
1658: -- initialize
1659: SAVEPOINT process_vo_adj_products;
1660: IF NOT FND_API.COMPATIBLE_API_CALL
1661: (
1662: p_api_version
1663: , l_api_version_number
1664: , l_api_name
1664: , l_api_name
1665: , g_pkg_name
1666: )
1667: THEN
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: END IF;
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671:
1672: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' Start');
1666: )
1667: THEN
1668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1669: END IF;
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671:
1672: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' Start');
1673: -- create new discont products
1674: DECLARE
1705: ozf_utility_pvt.debug_message('Apply discount Flag :'||l_vo_prod_rec.apply_discount_flag);
1706: ozf_utility_pvt.debug_message('Include Volume :'||l_vo_prod_rec.include_volume_flag);
1707: OZF_Volume_Offer_disc_PVT.Create_vo_product(
1708: p_api_version_number => 1.0
1709: , p_init_msg_list => FND_API.G_FALSE
1710: , p_commit => FND_API.G_FALSE
1711: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1712:
1713: , x_return_status => x_return_status
1706: ozf_utility_pvt.debug_message('Include Volume :'||l_vo_prod_rec.include_volume_flag);
1707: OZF_Volume_Offer_disc_PVT.Create_vo_product(
1708: p_api_version_number => 1.0
1709: , p_init_msg_list => FND_API.G_FALSE
1710: , p_commit => FND_API.G_FALSE
1711: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1712:
1713: , x_return_status => x_return_status
1714: , x_msg_count => x_msg_count
1707: OZF_Volume_Offer_disc_PVT.Create_vo_product(
1708: p_api_version_number => 1.0
1709: , p_init_msg_list => FND_API.G_FALSE
1710: , p_commit => FND_API.G_FALSE
1711: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1712:
1713: , x_return_status => x_return_status
1714: , x_msg_count => x_msg_count
1715: , x_msg_data => x_msg_data
1716:
1717: , p_vo_prod_rec => l_vo_prod_rec
1718: , x_off_discount_product_id => l_off_discount_product_id
1719: );
1720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1717: , p_vo_prod_rec => l_vo_prod_rec
1718: , x_off_discount_product_id => l_off_discount_product_id
1719: );
1720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725:
1718: , x_off_discount_product_id => l_off_discount_product_id
1719: );
1720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725:
1726: END LOOP;
1719: );
1720: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1721: RAISE FND_API.G_EXC_ERROR;
1722: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725:
1726: END LOOP;
1727: END;
1725:
1726: END LOOP;
1727: END;
1728:
1729: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1730: RAISE FND_API.G_EXC_ERROR;
1731: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1733: END IF;
1726: END LOOP;
1727: END;
1728:
1729: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1730: RAISE FND_API.G_EXC_ERROR;
1731: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1733: END IF;
1734:
1727: END;
1728:
1729: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1730: RAISE FND_API.G_EXC_ERROR;
1731: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1733: END IF;
1734:
1735: ozf_utility_pvt.debug_message('Return status 1 is '||x_return_status);
1728:
1729: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1730: RAISE FND_API.G_EXC_ERROR;
1731: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1733: END IF;
1734:
1735: ozf_utility_pvt.debug_message('Return status 1 is '||x_return_status);
1736: -- loop thru new products and create new list lines and pricing attributes
1895:
1896: ozf_utility_pvt.debug_message('l_pricing_attr_tbl'||l_pricing_attr_tbl.COUNT);
1897: QP_Modifiers_PUB.process_modifiers(
1898: p_api_version_number => 1.0,
1899: p_init_msg_list => FND_API.G_FALSE,
1900: p_return_values => FND_API.G_FALSE,
1901: x_return_status => x_return_status,
1902: x_msg_count => x_msg_count,
1903: x_msg_data => x_msg_data,
1896: ozf_utility_pvt.debug_message('l_pricing_attr_tbl'||l_pricing_attr_tbl.COUNT);
1897: QP_Modifiers_PUB.process_modifiers(
1898: p_api_version_number => 1.0,
1899: p_init_msg_list => FND_API.G_FALSE,
1900: p_return_values => FND_API.G_FALSE,
1901: x_return_status => x_return_status,
1902: x_msg_count => x_msg_count,
1903: x_msg_data => x_msg_data,
1904: p_modifiers_tbl => l_modifiers_tbl,
1912: x_pricing_attr_tbl => v_pricing_attr_tbl,
1913: x_pricing_attr_val_tbl => v_pricing_attr_val_tbl
1914: );
1915: ozf_utility_pvt.debug_message('Return status 2 is '||x_return_status);
1916: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1920: END IF;
1913: x_pricing_attr_val_tbl => v_pricing_attr_val_tbl
1914: );
1915: ozf_utility_pvt.debug_message('Return status 2 is '||x_return_status);
1916: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1920: END IF;
1921: ozf_utility_pvt.debug_message('Return status 3 is '||x_return_status);
1914: );
1915: ozf_utility_pvt.debug_message('Return status 2 is '||x_return_status);
1916: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1920: END IF;
1921: ozf_utility_pvt.debug_message('Return status 3 is '||x_return_status);
1922: END;
1915: ozf_utility_pvt.debug_message('Return status 2 is '||x_return_status);
1916: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1920: END IF;
1921: ozf_utility_pvt.debug_message('Return status 3 is '||x_return_status);
1922: END;
1923:
1980: (
1981: p_api_version_number => p_api_version,
1982: p_init_msg_list => p_init_msg_list,
1983: p_commit => p_commit,
1984: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1985:
1986: x_return_status => x_return_status,
1987: x_msg_count => x_msg_count,
1988: x_msg_data => x_msg_data,
1988: x_msg_data => x_msg_data,
1989: p_ozf_qp_reln_rec => l_reln_rec
1990: );
1991: */
1992: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.G_EXC_ERROR;
1994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1996: END IF;
1989: p_ozf_qp_reln_rec => l_reln_rec
1990: );
1991: */
1992: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.G_EXC_ERROR;
1994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1996: END IF;
1997:
1990: );
1991: */
1992: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.G_EXC_ERROR;
1994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1996: END IF;
1997:
1998: END LOOP;
1991: */
1992: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.G_EXC_ERROR;
1994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1996: END IF;
1997:
1998: END LOOP;
1999:
2034: (
2035: p_api_version_number => p_api_version,
2036: p_init_msg_list => p_init_msg_list,
2037: p_commit => p_commit,
2038: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2039:
2040: x_return_status => x_return_status,
2041: x_msg_count => x_msg_count,
2042: x_msg_data => x_msg_data,
2042: x_msg_data => x_msg_data,
2043: p_ozf_qp_reln_rec => l_reln_rec
2044: );
2045: */
2046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2047: RAISE FND_API.G_EXC_ERROR;
2048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2050: END IF;
2043: p_ozf_qp_reln_rec => l_reln_rec
2044: );
2045: */
2046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2047: RAISE FND_API.G_EXC_ERROR;
2048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2050: END IF;
2051: END LOOP;
2044: );
2045: */
2046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2047: RAISE FND_API.G_EXC_ERROR;
2048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2050: END IF;
2051: END LOOP;
2052: end;
2045: */
2046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2047: RAISE FND_API.G_EXC_ERROR;
2048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2050: END IF;
2051: END LOOP;
2052: end;
2053:
2055: null;
2056: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' Start');
2057:
2058: EXCEPTION
2059: WHEN FND_API.G_EXC_ERROR THEN
2060: rollback to process_vo_adj_products;
2061: x_return_status := FND_API.G_RET_STS_ERROR;
2062: FND_MSG_PUB.count_and_get(
2063: p_encoded => FND_API.g_false
2057:
2058: EXCEPTION
2059: WHEN FND_API.G_EXC_ERROR THEN
2060: rollback to process_vo_adj_products;
2061: x_return_status := FND_API.G_RET_STS_ERROR;
2062: FND_MSG_PUB.count_and_get(
2063: p_encoded => FND_API.g_false
2064: , p_count => x_msg_count
2065: , p_data => x_msg_data
2059: WHEN FND_API.G_EXC_ERROR THEN
2060: rollback to process_vo_adj_products;
2061: x_return_status := FND_API.G_RET_STS_ERROR;
2062: FND_MSG_PUB.count_and_get(
2063: p_encoded => FND_API.g_false
2064: , p_count => x_msg_count
2065: , p_data => x_msg_data
2066: );
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2063: p_encoded => FND_API.g_false
2064: , p_count => x_msg_count
2065: , p_data => x_msg_data
2066: );
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2068: ROLLBACK TO process_vo_adj_products;
2069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: FND_MSG_PUB.count_and_get(
2071: p_encoded => FND_API.g_false
2065: , p_data => x_msg_data
2066: );
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2068: ROLLBACK TO process_vo_adj_products;
2069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: FND_MSG_PUB.count_and_get(
2071: p_encoded => FND_API.g_false
2072: , p_count => x_msg_count
2073: , p_data => x_msg_data
2067: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2068: ROLLBACK TO process_vo_adj_products;
2069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2070: FND_MSG_PUB.count_and_get(
2071: p_encoded => FND_API.g_false
2072: , p_count => x_msg_count
2073: , p_data => x_msg_data
2074: );
2075: WHEN OTHERS THEN
2073: , p_data => x_msg_data
2074: );
2075: WHEN OTHERS THEN
2076: ROLLBACK TO process_vo_adj_products;
2077: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2078: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2079: THEN
2080: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2081: END IF;
2079: THEN
2080: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2081: END IF;
2082: FND_MSG_PUB.count_and_get(
2083: p_encoded => FND_API.g_false
2084: , p_count => x_msg_count
2085: , p_data => x_msg_data
2086: );
2087: END process_vo_adj_products;
2099:
2100: */
2101: PROCEDURE process_vo_adj_tiers
2102: (
2103: p_init_msg_list IN VARCHAR2 := FND_API.g_false
2104: ,p_api_version IN NUMBER
2105: ,p_commit IN VARCHAR2 := FND_API.g_false
2106: ,x_return_status OUT NOCOPY VARCHAR2
2107: ,x_msg_count OUT NOCOPY NUMBER
2101: PROCEDURE process_vo_adj_tiers
2102: (
2103: p_init_msg_list IN VARCHAR2 := FND_API.g_false
2104: ,p_api_version IN NUMBER
2105: ,p_commit IN VARCHAR2 := FND_API.g_false
2106: ,x_return_status OUT NOCOPY VARCHAR2
2107: ,x_msg_count OUT NOCOPY NUMBER
2108: ,x_msg_data OUT NOCOPY VARCHAR2
2109: ,p_offer_adjustment_id IN NUMBER
2129:
2130: BEGIN
2131: SAVEPOINT process_vo_adj_tiers;
2132: /*
2133: IF NOT FND_API.COMPATIBLE_API_CALL(
2134: l_api_version_number
2135: ,p_api_version
2136: ,l_api_name
2137: ,G_PKG_NAME
2136: ,l_api_name
2137: ,G_PKG_NAME
2138: )
2139: THEN
2140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2141: END IF;
2142:
2143: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2144: FND_MSG_PUB.INITIALIZE;
2139: THEN
2140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2141: END IF;
2142:
2143: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2144: FND_MSG_PUB.INITIALIZE;
2145: END IF;*/
2146: x_return_status := FND_API.G_RET_STS_SUCCESS;
2147: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' Start');
2142:
2143: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2144: FND_MSG_PUB.INITIALIZE;
2145: END IF;*/
2146: x_return_status := FND_API.G_RET_STS_SUCCESS;
2147: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' Start');
2148: -- inactivate existing qp_list_lines
2149: DECLARE
2150: CURSOR c_qp_list_lines(p_adjustment_id NUMBER)
2174:
2175: END LOOP;
2176: OZF_OFFER_PVT.process_modifiers
2177: (
2178: p_init_msg_list => FND_API.G_FALSE
2179: , p_api_version => 1.0
2180: , p_commit => FND_API.G_FALSE
2181: , x_return_status => x_return_status
2182: , x_msg_count => x_msg_count
2176: OZF_OFFER_PVT.process_modifiers
2177: (
2178: p_init_msg_list => FND_API.G_FALSE
2179: , p_api_version => 1.0
2180: , p_commit => FND_API.G_FALSE
2181: , x_return_status => x_return_status
2182: , x_msg_count => x_msg_count
2183: , x_msg_data => x_msg_data
2184: , p_offer_type => l_offer_type
2186: , p_modifier_line_tbl => l_modifier_line_tbl
2187: , x_qp_list_header_id => l_qp_list_header_id
2188: , x_error_location => l_error_location
2189: );
2190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2191: RAISE FND_API.G_EXC_ERROR;
2192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2194: END IF;
2187: , x_qp_list_header_id => l_qp_list_header_id
2188: , x_error_location => l_error_location
2189: );
2190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2191: RAISE FND_API.G_EXC_ERROR;
2192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2194: END IF;
2195: END;
2188: , x_error_location => l_error_location
2189: );
2190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2191: RAISE FND_API.G_EXC_ERROR;
2192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2194: END IF;
2195: END;
2196: -- update existing tiers
2189: );
2190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2191: RAISE FND_API.G_EXC_ERROR;
2192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2194: END IF;
2195: END;
2196: -- update existing tiers
2197: DECLARE
2209: l_vo_disc_rec.object_version_number := l_discounts.object_version_number;
2210: l_vo_disc_rec.offer_id := l_discounts.offer_id;
2211: OZF_Volume_Offer_disc_PVT.Update_vo_discount(
2212: p_api_version_number => 1.0
2213: ,p_init_msg_list => FND_API.G_FALSE
2214: ,p_commit => FND_API.G_FALSE
2215: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2216:
2217: , x_return_status => x_return_status
2210: l_vo_disc_rec.offer_id := l_discounts.offer_id;
2211: OZF_Volume_Offer_disc_PVT.Update_vo_discount(
2212: p_api_version_number => 1.0
2213: ,p_init_msg_list => FND_API.G_FALSE
2214: ,p_commit => FND_API.G_FALSE
2215: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2216:
2217: , x_return_status => x_return_status
2218: , x_msg_count => x_msg_count
2211: OZF_Volume_Offer_disc_PVT.Update_vo_discount(
2212: p_api_version_number => 1.0
2213: ,p_init_msg_list => FND_API.G_FALSE
2214: ,p_commit => FND_API.G_FALSE
2215: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2216:
2217: , x_return_status => x_return_status
2218: , x_msg_count => x_msg_count
2219: , x_msg_data => x_msg_data
2219: , x_msg_data => x_msg_data
2220:
2221: , p_vo_disc_rec => l_vo_disc_rec
2222: );
2223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2220:
2221: , p_vo_disc_rec => l_vo_disc_rec
2222: );
2223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2228: END LOOP;
2221: , p_vo_disc_rec => l_vo_disc_rec
2222: );
2223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2228: END LOOP;
2229: END;
2222: );
2223: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2224: RAISE FND_API.G_EXC_ERROR;
2225: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2228: END LOOP;
2229: END;
2230: /*
2258: l_modifier_line_create_tbl(i).pricing_attr_value_from := l_create_qp_list_lines.pricing_attr_value_from;
2259: l_modifier_line_create_tbl(i).pricing_attr_value_to := l_create_qp_list_lines.pricing_attr_value_to;
2260: l_modifier_line_create_tbl(i).operand := l_create_qp_list_lines.operand;
2261: l_modifier_line_create_tbl(i).arithmetic_operator := l_create_qp_list_lines.arithmetic_operator;
2262: l_modifier_line_create_tbl(i).pricing_attribute_id := FND_API.G_MISS_NUM;
2263: l_modifier_line_create_tbl(i).pricing_attr := l_create_qp_list_lines.pricing_attribute;
2264: l_modifier_line_create_tbl(i).start_date_active := l_create_qp_list_lines.start_date_active;
2265: l_modifier_line_create_tbl(i).operation := 'CREATE';
2266: i := i + 1;
2278: ,x_error_location => l_error_location
2279: ,x_modifiers_tbl => l_modifiers_tbl
2280: ,x_pricing_attr_tbl => l_pricing_attr_tbl
2281: );
2282: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2283: RAISE FND_API.G_EXC_ERROR;
2284: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2286: END IF;
2279: ,x_modifiers_tbl => l_modifiers_tbl
2280: ,x_pricing_attr_tbl => l_pricing_attr_tbl
2281: );
2282: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2283: RAISE FND_API.G_EXC_ERROR;
2284: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2286: END IF;
2287: END;
2280: ,x_pricing_attr_tbl => l_pricing_attr_tbl
2281: );
2282: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2283: RAISE FND_API.G_EXC_ERROR;
2284: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2286: END IF;
2287: END;
2288: */
2281: );
2282: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2283: RAISE FND_API.G_EXC_ERROR;
2284: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2286: END IF;
2287: END;
2288: */
2289: /*
2320: (
2321: p_api_version_number => p_api_version,
2322: p_init_msg_list => p_init_msg_list,
2323: p_commit => p_commit,
2324: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2325:
2326: x_return_status => x_return_status,
2327: x_msg_count => x_msg_count,
2328: x_msg_data => x_msg_data,
2328: x_msg_data => x_msg_data,
2329: p_ozf_qp_reln_rec => l_reln_rec
2330: );
2331: END LOOP;
2332: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2333: RAISE FND_API.G_EXC_ERROR;
2334: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336: END IF;
2329: p_ozf_qp_reln_rec => l_reln_rec
2330: );
2331: END LOOP;
2332: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2333: RAISE FND_API.G_EXC_ERROR;
2334: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336: END IF;
2337: end;
2330: );
2331: END LOOP;
2332: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2333: RAISE FND_API.G_EXC_ERROR;
2334: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336: END IF;
2337: end;
2338: */
2331: END LOOP;
2332: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2333: RAISE FND_API.G_EXC_ERROR;
2334: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336: END IF;
2337: end;
2338: */
2339: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' End');
2337: end;
2338: */
2339: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' End');
2340:
2341: IF FND_API.to_boolean(p_commit) THEN
2342: COMMIT WORK;
2343: END IF;
2344:
2345: EXCEPTION
2342: COMMIT WORK;
2343: END IF;
2344:
2345: EXCEPTION
2346: WHEN FND_API.G_EXC_ERROR THEN
2347: ROLLBACK TO process_vo_adj_tiers;
2348: x_return_status := FND_API.G_RET_STS_ERROR;
2349: FND_MSG_PUB.count_and_get(
2350: p_encoded => FND_API.g_false
2344:
2345: EXCEPTION
2346: WHEN FND_API.G_EXC_ERROR THEN
2347: ROLLBACK TO process_vo_adj_tiers;
2348: x_return_status := FND_API.G_RET_STS_ERROR;
2349: FND_MSG_PUB.count_and_get(
2350: p_encoded => FND_API.g_false
2351: , p_count => x_msg_count
2352: , p_data => x_msg_data
2346: WHEN FND_API.G_EXC_ERROR THEN
2347: ROLLBACK TO process_vo_adj_tiers;
2348: x_return_status := FND_API.G_RET_STS_ERROR;
2349: FND_MSG_PUB.count_and_get(
2350: p_encoded => FND_API.g_false
2351: , p_count => x_msg_count
2352: , p_data => x_msg_data
2353: );
2354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2350: p_encoded => FND_API.g_false
2351: , p_count => x_msg_count
2352: , p_data => x_msg_data
2353: );
2354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2355: ROLLBACK TO process_vo_adj_tiers;
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357: FND_MSG_PUB.count_and_get(
2358: p_encoded => FND_API.g_false
2352: , p_data => x_msg_data
2353: );
2354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2355: ROLLBACK TO process_vo_adj_tiers;
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357: FND_MSG_PUB.count_and_get(
2358: p_encoded => FND_API.g_false
2359: , p_count => x_msg_count
2360: , p_data => x_msg_data
2354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2355: ROLLBACK TO process_vo_adj_tiers;
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357: FND_MSG_PUB.count_and_get(
2358: p_encoded => FND_API.g_false
2359: , p_count => x_msg_count
2360: , p_data => x_msg_data
2361: );
2362: WHEN OTHERS THEN
2360: , p_data => x_msg_data
2361: );
2362: WHEN OTHERS THEN
2363: rollback to process_vo_adj_tiers;
2364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2365: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2366: THEN
2367: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2368: END IF;
2366: THEN
2367: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2368: END IF;
2369: FND_MSG_PUB.count_and_get(
2370: p_encoded => FND_API.g_false
2371: , p_count => x_msg_count
2372: , p_data => x_msg_data
2373: );
2374: END process_vo_adj_tiers;
2376:
2377:
2378: PROCEDURE process_vo_adjustments
2379: (
2380: p_init_msg_list IN VARCHAR2 := FND_API.g_false
2381: ,p_api_version IN NUMBER
2382: ,p_commit IN VARCHAR2 := FND_API.g_false
2383: ,x_return_status OUT NOCOPY VARCHAR2
2384: ,x_msg_count OUT NOCOPY NUMBER
2378: PROCEDURE process_vo_adjustments
2379: (
2380: p_init_msg_list IN VARCHAR2 := FND_API.g_false
2381: ,p_api_version IN NUMBER
2382: ,p_commit IN VARCHAR2 := FND_API.g_false
2383: ,x_return_status OUT NOCOPY VARCHAR2
2384: ,x_msg_count OUT NOCOPY NUMBER
2385: ,x_msg_data OUT NOCOPY VARCHAR2
2386: ,p_offer_adjustment_id IN NUMBER
2393:
2394: BEGIN
2395: SAVEPOINT process_vo_adjustments;
2396:
2397: IF NOT FND_API.COMPATIBLE_API_CALL(
2398: l_api_version_number
2399: ,p_api_version
2400: ,l_api_name
2401: ,G_PKG_NAME
2400: ,l_api_name
2401: ,G_PKG_NAME
2402: )
2403: THEN
2404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2405: END IF;
2406:
2407: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2408: FND_MSG_PUB.INITIALIZE;
2403: THEN
2404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2405: END IF;
2406:
2407: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2408: FND_MSG_PUB.INITIALIZE;
2409: END IF;
2410:
2411: x_return_status := FND_API.G_RET_STS_SUCCESS;
2407: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
2408: FND_MSG_PUB.INITIALIZE;
2409: END IF;
2410:
2411: x_return_status := FND_API.G_RET_STS_SUCCESS;
2412: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' Start');
2413: process_vo_adj_tiers
2414: (
2415: p_init_msg_list => FND_API.g_false
2411: x_return_status := FND_API.G_RET_STS_SUCCESS;
2412: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' Start');
2413: process_vo_adj_tiers
2414: (
2415: p_init_msg_list => FND_API.g_false
2416: ,p_api_version => 1.0
2417: ,p_commit => FND_API.g_false
2418: ,x_return_status => x_return_status
2419: ,x_msg_count => x_msg_count
2413: process_vo_adj_tiers
2414: (
2415: p_init_msg_list => FND_API.g_false
2416: ,p_api_version => 1.0
2417: ,p_commit => FND_API.g_false
2418: ,x_return_status => x_return_status
2419: ,x_msg_count => x_msg_count
2420: ,x_msg_data => x_msg_data
2421: ,p_offer_adjustment_id => p_offer_adjustment_id
2419: ,x_msg_count => x_msg_count
2420: ,x_msg_data => x_msg_data
2421: ,p_offer_adjustment_id => p_offer_adjustment_id
2422: );
2423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2420: ,x_msg_data => x_msg_data
2421: ,p_offer_adjustment_id => p_offer_adjustment_id
2422: );
2423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428: process_vo_adj_products
2421: ,p_offer_adjustment_id => p_offer_adjustment_id
2422: );
2423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428: process_vo_adj_products
2429: (
2422: );
2423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428: process_vo_adj_products
2429: (
2430: p_init_msg_list => FND_API.g_false
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END IF;
2428: process_vo_adj_products
2429: (
2430: p_init_msg_list => FND_API.g_false
2431: ,p_api_version => 1.0
2432: ,p_commit => FND_API.g_false
2433: ,x_return_status => x_return_status
2434: ,x_msg_count => x_msg_count
2428: process_vo_adj_products
2429: (
2430: p_init_msg_list => FND_API.g_false
2431: ,p_api_version => 1.0
2432: ,p_commit => FND_API.g_false
2433: ,x_return_status => x_return_status
2434: ,x_msg_count => x_msg_count
2435: ,x_msg_data => x_msg_data
2436: ,p_offer_adjustment_id => p_offer_adjustment_id
2434: ,x_msg_count => x_msg_count
2435: ,x_msg_data => x_msg_data
2436: ,p_offer_adjustment_id => p_offer_adjustment_id
2437: );
2438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2439: RAISE FND_API.G_EXC_ERROR;
2440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: END IF;
2435: ,x_msg_data => x_msg_data
2436: ,p_offer_adjustment_id => p_offer_adjustment_id
2437: );
2438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2439: RAISE FND_API.G_EXC_ERROR;
2440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: END IF;
2443:
2436: ,p_offer_adjustment_id => p_offer_adjustment_id
2437: );
2438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2439: RAISE FND_API.G_EXC_ERROR;
2440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: END IF;
2443:
2444: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' End');
2437: );
2438: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2439: RAISE FND_API.G_EXC_ERROR;
2440: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: END IF;
2443:
2444: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' End');
2445: EXCEPTION
2442: END IF;
2443:
2444: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' End');
2445: EXCEPTION
2446: WHEN FND_API.G_EXC_ERROR THEN
2447: ROLLBACK TO process_vo_adjustments;
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MSG_PUB.count_and_get(
2450: p_encoded => FND_API.g_false
2444: ozf_utility_pvt.debug_message('Private API:'|| l_api_name || ' End');
2445: EXCEPTION
2446: WHEN FND_API.G_EXC_ERROR THEN
2447: ROLLBACK TO process_vo_adjustments;
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MSG_PUB.count_and_get(
2450: p_encoded => FND_API.g_false
2451: , p_count => x_msg_count
2452: , p_data => x_msg_data
2446: WHEN FND_API.G_EXC_ERROR THEN
2447: ROLLBACK TO process_vo_adjustments;
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MSG_PUB.count_and_get(
2450: p_encoded => FND_API.g_false
2451: , p_count => x_msg_count
2452: , p_data => x_msg_data
2453: );
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2450: p_encoded => FND_API.g_false
2451: , p_count => x_msg_count
2452: , p_data => x_msg_data
2453: );
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: ROLLBACK TO process_vo_adjustments;
2456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2457: FND_MSG_PUB.count_and_get(
2458: p_encoded => FND_API.g_false
2452: , p_data => x_msg_data
2453: );
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: ROLLBACK TO process_vo_adjustments;
2456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2457: FND_MSG_PUB.count_and_get(
2458: p_encoded => FND_API.g_false
2459: , p_count => x_msg_count
2460: , p_data => x_msg_data
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: ROLLBACK TO process_vo_adjustments;
2456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2457: FND_MSG_PUB.count_and_get(
2458: p_encoded => FND_API.g_false
2459: , p_count => x_msg_count
2460: , p_data => x_msg_data
2461: );
2462: WHEN OTHERS THEN
2460: , p_data => x_msg_data
2461: );
2462: WHEN OTHERS THEN
2463: ROLLBACK TO process_vo_adjustments;
2464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2465: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2466: THEN
2467: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2468: END IF;
2466: THEN
2467: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2468: END IF;
2469: FND_MSG_PUB.count_and_get(
2470: p_encoded => FND_API.g_false
2471: , p_count => x_msg_count
2472: , p_data => x_msg_data
2473: );
2474:
2494: l_closeAdjustment VARCHAR2(1);
2495: l_budgetAdjFlag VARCHAR2(1);
2496:
2497: BEGIN
2498: x_return_status := FND_API.G_RET_STS_SUCCESS;
2499: l_closeAdjustment := 'N';
2500: OPEN c_closeAdjustment(p_offer_adjustment_id);
2501: FETCH c_closeAdjustment INTO l_closeAdjustment;
2502: IF c_closeAdjustment%NOTFOUND THEN
2538: l_closeAdjustment VARCHAR2(1);
2539: l_budgetAdjFlag VARCHAR2(1);
2540: l_list_header_id NUMBER;
2541: BEGIN
2542: x_return_status := FND_API.G_RET_STS_SUCCESS;
2543: l_closeAdjustment := 'N';
2544: OPEN c_closeAdjustment(p_offer_adjustment_id);
2545: FETCH c_closeAdjustment INTO l_closeAdjustment,l_list_header_id;
2546: IF c_closeAdjustment%NOTFOUND THEN
2565:
2566:
2567: EXCEPTION
2568: WHEN OTHERS THEN
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: Fnd_Msg_Pub.Count_AND_Get
2571: ( p_count => x_msg_count,
2572: p_data => x_msg_data,
2573: p_encoded => Fnd_Api.G_FALSE
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: Fnd_Msg_Pub.Count_AND_Get
2571: ( p_count => x_msg_count,
2572: p_data => x_msg_data,
2573: p_encoded => Fnd_Api.G_FALSE
2574: );
2575: END CLOSE_ADJUSTMENT;
2576:
2577:
2576:
2577:
2578: PROCEDURE Update_Offer_Discounts
2579: (
2580: p_init_msg_list IN VARCHAR2 := FND_API.g_false
2581: ,p_api_version IN NUMBER
2582: ,p_commit IN VARCHAR2 := FND_API.g_false
2583: ,x_return_status OUT NOCOPY VARCHAR2
2584: ,x_msg_count OUT NOCOPY NUMBER
2578: PROCEDURE Update_Offer_Discounts
2579: (
2580: p_init_msg_list IN VARCHAR2 := FND_API.g_false
2581: ,p_api_version IN NUMBER
2582: ,p_commit IN VARCHAR2 := FND_API.g_false
2583: ,x_return_status OUT NOCOPY VARCHAR2
2584: ,x_msg_count OUT NOCOPY NUMBER
2585: ,x_msg_data OUT NOCOPY VARCHAR2
2586: ,p_offer_adjustment_id IN NUMBER
2596: -- push data to qp
2597: -- close/activate the adjustment
2598: SAVEPOINT update_offer_discounts ;
2599:
2600: IF Fnd_Api.to_boolean(p_init_msg_list)
2601: THEN
2602: Fnd_Msg_Pub.initialize;
2603: END IF;
2604: IF NOT Fnd_Api.compatible_api_call ( l_api_version,
2600: IF Fnd_Api.to_boolean(p_init_msg_list)
2601: THEN
2602: Fnd_Msg_Pub.initialize;
2603: END IF;
2604: IF NOT Fnd_Api.compatible_api_call ( l_api_version,
2605: p_api_version,
2606: l_api_name,
2607: g_pkg_name
2608: )
2606: l_api_name,
2607: g_pkg_name
2608: )
2609: THEN
2610: RAISE Fnd_Api.g_exc_unexpected_error;
2611: END IF;
2612: x_return_status := Fnd_Api.g_ret_sts_success;
2613: -- julou backdated offer for Promotional Goods, Trade Deal, Tiered Discount
2614: -- populate l_modifier_list_rec
2608: )
2609: THEN
2610: RAISE Fnd_Api.g_exc_unexpected_error;
2611: END IF;
2612: x_return_status := Fnd_Api.g_ret_sts_success;
2613: -- julou backdated offer for Promotional Goods, Trade Deal, Tiered Discount
2614: -- populate l_modifier_list_rec
2615: -- set operation to NULL should prevent operation on list header and offer tables
2616: OZF_OFFER_ADJ_PVT.process_adjustment
2614: -- populate l_modifier_list_rec
2615: -- set operation to NULL should prevent operation on list header and offer tables
2616: OZF_OFFER_ADJ_PVT.process_adjustment
2617: (
2618: p_init_msg_list => FND_API.g_false
2619: ,p_api_version => 1.0
2620: ,p_commit => FND_API.g_false
2621: ,x_return_status => x_return_status
2622: ,x_msg_count => x_msg_count
2616: OZF_OFFER_ADJ_PVT.process_adjustment
2617: (
2618: p_init_msg_list => FND_API.g_false
2619: ,p_api_version => 1.0
2620: ,p_commit => FND_API.g_false
2621: ,x_return_status => x_return_status
2622: ,x_msg_count => x_msg_count
2623: ,x_msg_data => x_msg_data
2624: ,p_offerAdjustmentId => p_offer_adjustment_id
2622: ,x_msg_count => x_msg_count
2623: ,x_msg_data => x_msg_data
2624: ,p_offerAdjustmentId => p_offer_adjustment_id
2625: );
2626: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2627: RAISE FND_API.G_EXC_ERROR;
2628: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2630: END IF;
2623: ,x_msg_data => x_msg_data
2624: ,p_offerAdjustmentId => p_offer_adjustment_id
2625: );
2626: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2627: RAISE FND_API.G_EXC_ERROR;
2628: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2630: END IF;
2631:
2624: ,p_offerAdjustmentId => p_offer_adjustment_id
2625: );
2626: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2627: RAISE FND_API.G_EXC_ERROR;
2628: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2630: END IF;
2631:
2632: SELECT list_header_id into l_list_header_id
2625: );
2626: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2627: RAISE FND_API.G_EXC_ERROR;
2628: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2630: END IF;
2631:
2632: SELECT list_header_id into l_list_header_id
2633: FROM ozf_offer_adjustments_b a
2635:
2636: --insert into ozf_events values('After process_adjustment'||p_offer_adjustment_id,sysdate);
2637: OZF_OFFER_PVT.raise_offer_event(l_list_header_id, p_offer_adjustment_id);
2638:
2639: IF p_commit = Fnd_Api.g_true
2640: THEN
2641: COMMIT WORK;
2642: END IF;
2643:
2641: COMMIT WORK;
2642: END IF;
2643:
2644: EXCEPTION
2645: WHEN Fnd_Api.G_EXC_ERROR THEN
2646: x_return_status := Fnd_Api.g_ret_sts_error ;
2647: ROLLBACK TO update_offer_discounts;
2648: Fnd_Msg_Pub.Count_AND_Get
2649: ( p_count => x_msg_count,
2642: END IF;
2643:
2644: EXCEPTION
2645: WHEN Fnd_Api.G_EXC_ERROR THEN
2646: x_return_status := Fnd_Api.g_ret_sts_error ;
2647: ROLLBACK TO update_offer_discounts;
2648: Fnd_Msg_Pub.Count_AND_Get
2649: ( p_count => x_msg_count,
2650: p_data => x_msg_data,
2647: ROLLBACK TO update_offer_discounts;
2648: Fnd_Msg_Pub.Count_AND_Get
2649: ( p_count => x_msg_count,
2650: p_data => x_msg_data,
2651: p_encoded => Fnd_Api.G_FALSE
2652: );
2653: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2655: ROLLBACK TO update_offer_discounts;
2649: ( p_count => x_msg_count,
2650: p_data => x_msg_data,
2651: p_encoded => Fnd_Api.G_FALSE
2652: );
2653: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2655: ROLLBACK TO update_offer_discounts;
2656: Fnd_Msg_Pub.Count_AND_Get
2657: ( p_count => x_msg_count,
2650: p_data => x_msg_data,
2651: p_encoded => Fnd_Api.G_FALSE
2652: );
2653: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2655: ROLLBACK TO update_offer_discounts;
2656: Fnd_Msg_Pub.Count_AND_Get
2657: ( p_count => x_msg_count,
2658: p_data => x_msg_data,
2655: ROLLBACK TO update_offer_discounts;
2656: Fnd_Msg_Pub.Count_AND_Get
2657: ( p_count => x_msg_count,
2658: p_data => x_msg_data,
2659: p_encoded => Fnd_Api.G_FALSE
2660: );
2661: WHEN OTHERS THEN
2662: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2663: ROLLBACK TO update_offer_discounts ;
2658: p_data => x_msg_data,
2659: p_encoded => Fnd_Api.G_FALSE
2660: );
2661: WHEN OTHERS THEN
2662: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2663: ROLLBACK TO update_offer_discounts ;
2664: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
2665: THEN
2666: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2667: END IF;
2668: Fnd_Msg_Pub.Count_AND_Get
2669: ( p_count => x_msg_count,
2670: p_data => x_msg_data,
2671: p_encoded => Fnd_Api.G_FALSE
2672: );
2673: END Update_Offer_Discounts ;
2674:
2675: