[Home] [Help]
56: -- Parameters
57: --
58: -- IN
59: -- p_api_version_number IN NUMBER Required
60: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
61: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
62: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
63: -- p_web_track_rec IN web_track_rec_type Required
64: --
57: --
58: -- IN
59: -- p_api_version_number IN NUMBER Required
60: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
61: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
62: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
63: -- p_web_track_rec IN web_track_rec_type Required
64: --
65: -- OUT
58: -- IN
59: -- p_api_version_number IN NUMBER Required
60: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
61: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
62: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
63: -- p_web_track_rec IN web_track_rec_type Required
64: --
65: -- OUT
66: -- x_return_status OUT VARCHAR2
78: -- ==============================================================================
79:
80: PROCEDURE Create_Web_Track(
81: p_api_version_number IN NUMBER,
82: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
83: p_commit IN VARCHAR2 := FND_API.G_FALSE,
84: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
85: x_return_status OUT NOCOPY VARCHAR2,
86: x_msg_count OUT NOCOPY NUMBER,
79:
80: PROCEDURE Create_Web_Track(
81: p_api_version_number IN NUMBER,
82: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
83: p_commit IN VARCHAR2 := FND_API.G_FALSE,
84: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
85: x_return_status OUT NOCOPY VARCHAR2,
86: x_msg_count OUT NOCOPY NUMBER,
87: x_msg_data OUT NOCOPY VARCHAR2,
80: PROCEDURE Create_Web_Track(
81: p_api_version_number IN NUMBER,
82: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
83: p_commit IN VARCHAR2 := FND_API.G_FALSE,
84: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
85: x_return_status OUT NOCOPY VARCHAR2,
86: x_msg_count OUT NOCOPY NUMBER,
87: x_msg_data OUT NOCOPY VARCHAR2,
88: p_web_track_rec IN web_track_rec_type, -- := g_miss_web_track_rec,
93: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Web_Track';
94: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
95: l_return_status_full VARCHAR2(1);
96: l_object_version_number NUMBER := 1;
97: l_org_id NUMBER := FND_API.G_MISS_NUM;
98: l_web_tracking_id NUMBER;
99: l_dummy NUMBER;
100: CURSOR c_id IS
101: SELECT AMS_WEB_TRACKING_S.NEXTVAL
111:
112: --insert_log_mesg('SAVEPOINT create_web_track_pvt ::::');
113:
114: -- Standard call to check for call compatibility.
115: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
116: p_api_version_number,
117: l_api_name,
118: G_PKG_NAME)
119: THEN
116: p_api_version_number,
117: l_api_name,
118: G_PKG_NAME)
119: THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: --insert_log_mesg('Standard call to check for call compatibility');
124: -- Initialize message list if p_init_msg_list is set to TRUE.
121: END IF;
122:
123: --insert_log_mesg('Standard call to check for call compatibility');
124: -- Initialize message list if p_init_msg_list is set to TRUE.
125: IF FND_API.to_Boolean( p_init_msg_list )
126: THEN
127: FND_MSG_PUB.initialize;
128: END IF;
129:
134:
135:
136:
137: -- Initialize API return status to SUCCESS
138: x_return_status := FND_API.G_RET_STS_SUCCESS;
139:
140: -- =========================================================================
141: -- Validate Environment
142: -- =========================================================================
143:
144: IF FND_GLOBAL.USER_ID IS NULL
145: THEN
146: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
147: RAISE FND_API.G_EXC_ERROR;
148: END IF;
149:
150: --insert_log_mesg('Validate Environment');
151:
148: END IF;
149:
150: --insert_log_mesg('Validate Environment');
151:
152: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
153: THEN
154: -- Debug message
155: AMS_UTILITY_PVT.debug_message('Private API: Validate_Web_Track');
156:
156:
157: -- Invoke validation procedures
158: Validate_web_track(
159: p_api_version_number => 1.0,
160: p_init_msg_list => FND_API.G_FALSE,
161: p_validation_level => p_validation_level,
162: p_validation_mode => JTF_PLSQL_API.g_create,
163: p_web_track_rec => p_web_track_rec,
164: x_return_status => x_return_status,
167: END IF;
168:
169: --insert_log_mesg('Done Validate_web_track');
170: --insert_log_mesg('Done Validate_web_track'||x_return_status);
171: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
172: RAISE FND_API.G_EXC_ERROR;
173: END IF;
174:
175: -- Local variable initialization
168:
169: --insert_log_mesg('Done Validate_web_track');
170: --insert_log_mesg('Done Validate_web_track'||x_return_status);
171: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
172: RAISE FND_API.G_EXC_ERROR;
173: END IF;
174:
175: -- Local variable initialization
176:
176:
177: --insert_log_mesg('Local variable initialization');
178:
179:
180: IF p_web_track_rec.web_tracking_id IS NULL OR p_web_track_rec.web_tracking_id = FND_API.g_miss_num THEN
181: LOOP
182: l_dummy := NULL;
183: OPEN c_id;
184: FETCH c_id INTO l_web_tracking_id;
229: );
230:
231: x_web_tracking_id := l_web_tracking_id;
232: --insert_log_mesg('Web Tracking Id ::::'||x_web_tracking_id);
233: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236: --
237: -- End of API body
230:
231: x_web_tracking_id := l_web_tracking_id;
232: --insert_log_mesg('Web Tracking Id ::::'||x_web_tracking_id);
233: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236: --
237: -- End of API body
238: --
237: -- End of API body
238: --
239:
240: -- Standard check for p_commit
241: IF FND_API.to_Boolean( p_commit )
242: THEN
243: COMMIT WORK;
244: END IF;
245:
255: );
256: EXCEPTION
257:
258: WHEN AMS_Utility_PVT.resource_locked THEN
259: x_return_status := FND_API.g_ret_sts_error;
260: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
261: --insert_log_mesg('AMS_API_RESOURCE_LOCKED');
262:
263: WHEN FND_API.G_EXC_ERROR THEN
259: x_return_status := FND_API.g_ret_sts_error;
260: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
261: --insert_log_mesg('AMS_API_RESOURCE_LOCKED');
262:
263: WHEN FND_API.G_EXC_ERROR THEN
264: ROLLBACK TO create_web_track_pvt;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: -- Standard call to get message count and if count=1, get the message
267: FND_MSG_PUB.Count_And_Get (
261: --insert_log_mesg('AMS_API_RESOURCE_LOCKED');
262:
263: WHEN FND_API.G_EXC_ERROR THEN
264: ROLLBACK TO create_web_track_pvt;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: -- Standard call to get message count and if count=1, get the message
267: FND_MSG_PUB.Count_And_Get (
268: p_encoded => FND_API.G_FALSE,
269: p_count => x_msg_count,
264: ROLLBACK TO create_web_track_pvt;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: -- Standard call to get message count and if count=1, get the message
267: FND_MSG_PUB.Count_And_Get (
268: p_encoded => FND_API.G_FALSE,
269: p_count => x_msg_count,
270: p_data => x_msg_data
271: );
272: --insert_log_mesg('x_return_status');
270: p_data => x_msg_data
271: );
272: --insert_log_mesg('x_return_status');
273:
274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
275: ROLLBACK TO create_web_track_pvt;
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: -- Standard call to get message count and if count=1, get the message
278: FND_MSG_PUB.Count_And_Get (
272: --insert_log_mesg('x_return_status');
273:
274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
275: ROLLBACK TO create_web_track_pvt;
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: -- Standard call to get message count and if count=1, get the message
278: FND_MSG_PUB.Count_And_Get (
279: p_encoded => FND_API.G_FALSE,
280: p_count => x_msg_count,
275: ROLLBACK TO create_web_track_pvt;
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: -- Standard call to get message count and if count=1, get the message
278: FND_MSG_PUB.Count_And_Get (
279: p_encoded => FND_API.G_FALSE,
280: p_count => x_msg_count,
281: p_data => x_msg_data
282: );
283:
282: );
283:
284: WHEN OTHERS THEN
285: ROLLBACK TO create_web_track_pvt;
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
288: THEN
289: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
290: END IF;
289: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
290: END IF;
291: -- Standard call to get message count and if count=1, get the message
292: FND_MSG_PUB.Count_And_Get (
293: p_encoded => FND_API.G_FALSE,
294: p_count => x_msg_count,
295: p_data => x_msg_data
296: );
297: --insert_log_mesg('Ams_Web_Track_Pkg.Insert_Row'||x_return_status);
310: -- Parameters
311: --
312: -- IN
313: -- p_api_version_number IN NUMBER Required
314: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
315: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
316: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
317: -- p_web_track_rec IN web_track_rec_type Required
318: --
311: --
312: -- IN
313: -- p_api_version_number IN NUMBER Required
314: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
315: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
316: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
317: -- p_web_track_rec IN web_track_rec_type Required
318: --
319: -- OUT
312: -- IN
313: -- p_api_version_number IN NUMBER Required
314: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
315: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
316: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
317: -- p_web_track_rec IN web_track_rec_type Required
318: --
319: -- OUT
320: -- x_return_status OUT VARCHAR2
332: -- ==============================================================================
333:
334: PROCEDURE Update_Web_Track(
335: p_api_version_number IN NUMBER,
336: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
337: p_commit IN VARCHAR2 := FND_API.G_FALSE,
338: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
339:
340: x_return_status OUT NOCOPY VARCHAR2,
333:
334: PROCEDURE Update_Web_Track(
335: p_api_version_number IN NUMBER,
336: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
337: p_commit IN VARCHAR2 := FND_API.G_FALSE,
338: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
339:
340: x_return_status OUT NOCOPY VARCHAR2,
341: x_msg_count OUT NOCOPY NUMBER,
334: PROCEDURE Update_Web_Track(
335: p_api_version_number IN NUMBER,
336: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
337: p_commit IN VARCHAR2 := FND_API.G_FALSE,
338: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
339:
340: x_return_status OUT NOCOPY VARCHAR2,
341: x_msg_count OUT NOCOPY NUMBER,
342: x_msg_data OUT NOCOPY VARCHAR2,
367: -- Standard Start of API savepoint
368: SAVEPOINT update_web_track_pvt;
369:
370: -- Standard call to check for call compatibility.
371: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
372: p_api_version_number,
373: l_api_name,
374: G_PKG_NAME)
375: THEN
372: p_api_version_number,
373: l_api_name,
374: G_PKG_NAME)
375: THEN
376: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
378:
379:
380: -- Initialize message list if p_init_msg_list is set to TRUE.
377: END IF;
378:
379:
380: -- Initialize message list if p_init_msg_list is set to TRUE.
381: IF FND_API.to_Boolean( p_init_msg_list )
382: THEN
383: FND_MSG_PUB.initialize;
384: END IF;
385:
390:
391:
392:
393: -- Initialize API return status to SUCCESS
394: x_return_status := FND_API.G_RET_STS_SUCCESS;
395:
396: -- Debug Message
397: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
398:
403: If ( c_get_Web_Track%NOTFOUND) THEN
404: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
405: p_token_name => 'INFO',
406: p_token_value => 'Web_Track') ;
407: RAISE FND_API.G_EXC_ERROR;
408: END IF;
409: -- Debug Message
410: AMS_UTILITY_PVT.debug_message('Private API: - Close Cursor');
411: CLOSE c_get_Web_Track;
411: CLOSE c_get_Web_Track;
412:
413:
414: If (l_tar_web_track_rec.object_version_number is NULL or
415: l_tar_web_track_rec.object_version_number = FND_API.G_MISS_NUM ) Then
416: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
417: p_token_name => 'COLUMN',
418: p_token_value => 'Last_Update_Date') ;
419: raise FND_API.G_EXC_ERROR;
415: l_tar_web_track_rec.object_version_number = FND_API.G_MISS_NUM ) Then
416: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
417: p_token_name => 'COLUMN',
418: p_token_value => 'Last_Update_Date') ;
419: raise FND_API.G_EXC_ERROR;
420: End if;
421: -- Check Whether record has been changed by someone else
422: If (l_tar_web_track_rec.object_version_number <> l_ref_web_track_rec.object_version_number) Then
423: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
422: If (l_tar_web_track_rec.object_version_number <> l_ref_web_track_rec.object_version_number) Then
423: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
424: p_token_name => 'INFO',
425: p_token_value => 'Web_Track') ;
426: raise FND_API.G_EXC_ERROR;
427: End if;
428:
429:
430: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
426: raise FND_API.G_EXC_ERROR;
427: End if;
428:
429:
430: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
431: THEN
432: -- Debug message
433: AMS_UTILITY_PVT.debug_message('Private API: Validate_Web_Track');
434:
435:
436: -- Invoke validation procedures
437: Validate_web_track(
438: p_api_version_number => 1.0,
439: p_init_msg_list => FND_API.G_FALSE,
440: p_validation_level => p_validation_level,
441: p_validation_mode => JTF_PLSQL_API.g_update,
442: p_web_track_rec => p_web_track_rec,
443: x_return_status => x_return_status,
444: x_msg_count => x_msg_count,
445: x_msg_data => x_msg_data);
446: END IF;
447:
448: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
452:
445: x_msg_data => x_msg_data);
446: END IF;
447:
448: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
452:
453: -- Debug Message
485: -- End of API body.
486: --
487:
488: -- Standard check for p_commit
489: IF FND_API.to_Boolean( p_commit )
490: THEN
491: COMMIT WORK;
492: END IF;
493:
503: );
504: EXCEPTION
505:
506: WHEN AMS_Utility_PVT.resource_locked THEN
507: x_return_status := FND_API.g_ret_sts_error;
508: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: ROLLBACK TO UPDATE_Web_Track_PVT;
506: WHEN AMS_Utility_PVT.resource_locked THEN
507: x_return_status := FND_API.g_ret_sts_error;
508: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: ROLLBACK TO UPDATE_Web_Track_PVT;
512: x_return_status := FND_API.G_RET_STS_ERROR;
513: -- Standard call to get message count and if count=1, get the message
514: FND_MSG_PUB.Count_And_Get (
508: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: ROLLBACK TO UPDATE_Web_Track_PVT;
512: x_return_status := FND_API.G_RET_STS_ERROR;
513: -- Standard call to get message count and if count=1, get the message
514: FND_MSG_PUB.Count_And_Get (
515: p_encoded => FND_API.G_FALSE,
516: p_count => x_msg_count,
511: ROLLBACK TO UPDATE_Web_Track_PVT;
512: x_return_status := FND_API.G_RET_STS_ERROR;
513: -- Standard call to get message count and if count=1, get the message
514: FND_MSG_PUB.Count_And_Get (
515: p_encoded => FND_API.G_FALSE,
516: p_count => x_msg_count,
517: p_data => x_msg_data
518: );
519:
516: p_count => x_msg_count,
517: p_data => x_msg_data
518: );
519:
520: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
521: ROLLBACK TO UPDATE_Web_Track_PVT;
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
523: -- Standard call to get message count and if count=1, get the message
524: FND_MSG_PUB.Count_And_Get (
518: );
519:
520: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
521: ROLLBACK TO UPDATE_Web_Track_PVT;
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
523: -- Standard call to get message count and if count=1, get the message
524: FND_MSG_PUB.Count_And_Get (
525: p_encoded => FND_API.G_FALSE,
526: p_count => x_msg_count,
521: ROLLBACK TO UPDATE_Web_Track_PVT;
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
523: -- Standard call to get message count and if count=1, get the message
524: FND_MSG_PUB.Count_And_Get (
525: p_encoded => FND_API.G_FALSE,
526: p_count => x_msg_count,
527: p_data => x_msg_data
528: );
529:
528: );
529:
530: WHEN OTHERS THEN
531: ROLLBACK TO UPDATE_Web_Track_PVT;
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
534: THEN
535: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
536: END IF;
535: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
536: END IF;
537: -- Standard call to get message count and if count=1, get the message
538: FND_MSG_PUB.Count_And_Get (
539: p_encoded => FND_API.G_FALSE,
540: p_count => x_msg_count,
541: p_data => x_msg_data
542: );
543: End Update_Web_Track;
555: -- Parameters
556: --
557: -- IN
558: -- p_api_version_number IN NUMBER Required
559: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
560: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
561: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
562: -- p_web_tracking_id IN NUMBER
563: -- p_object_version_number IN NUMBER Optional Default = NULL
556: --
557: -- IN
558: -- p_api_version_number IN NUMBER Required
559: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
560: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
561: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
562: -- p_web_tracking_id IN NUMBER
563: -- p_object_version_number IN NUMBER Optional Default = NULL
564: --
557: -- IN
558: -- p_api_version_number IN NUMBER Required
559: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
560: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
561: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
562: -- p_web_tracking_id IN NUMBER
563: -- p_object_version_number IN NUMBER Optional Default = NULL
564: --
565: -- OUT
578: -- ==============================================================================
579:
580: PROCEDURE Delete_Web_Track(
581: p_api_version_number IN NUMBER,
582: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
583: p_commit IN VARCHAR2 := FND_API.G_FALSE,
584: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
585: x_return_status OUT NOCOPY VARCHAR2,
586: x_msg_count OUT NOCOPY NUMBER,
579:
580: PROCEDURE Delete_Web_Track(
581: p_api_version_number IN NUMBER,
582: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
583: p_commit IN VARCHAR2 := FND_API.G_FALSE,
584: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
585: x_return_status OUT NOCOPY VARCHAR2,
586: x_msg_count OUT NOCOPY NUMBER,
587: x_msg_data OUT NOCOPY VARCHAR2,
580: PROCEDURE Delete_Web_Track(
581: p_api_version_number IN NUMBER,
582: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
583: p_commit IN VARCHAR2 := FND_API.G_FALSE,
584: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
585: x_return_status OUT NOCOPY VARCHAR2,
586: x_msg_count OUT NOCOPY NUMBER,
587: x_msg_data OUT NOCOPY VARCHAR2,
588: p_web_tracking_id IN NUMBER,
598: -- Standard Start of API savepoint
599: SAVEPOINT delete_web_track_pvt;
600:
601: -- Standard call to check for call compatibility.
602: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
603: p_api_version_number,
604: l_api_name,
605: G_PKG_NAME)
606: THEN
603: p_api_version_number,
604: l_api_name,
605: G_PKG_NAME)
606: THEN
607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
608: END IF;
609:
610:
611: -- Initialize message list if p_init_msg_list is set to TRUE.
608: END IF;
609:
610:
611: -- Initialize message list if p_init_msg_list is set to TRUE.
612: IF FND_API.to_Boolean( p_init_msg_list )
613: THEN
614: FND_MSG_PUB.initialize;
615: END IF;
616:
621:
622:
623:
624: -- Initialize API return status to SUCCESS
625: x_return_status := FND_API.G_RET_STS_SUCCESS;
626:
627: --
628: -- Api body
629: --
638: -- End of API body
639: --
640:
641: -- Standard check for p_commit
642: IF FND_API.to_Boolean( p_commit )
643: THEN
644: COMMIT WORK;
645: END IF;
646:
656: );
657: EXCEPTION
658:
659: WHEN AMS_Utility_PVT.resource_locked THEN
660: x_return_status := FND_API.g_ret_sts_error;
661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
662:
663: WHEN FND_API.G_EXC_ERROR THEN
664: ROLLBACK TO DELETE_Web_Track_PVT;
659: WHEN AMS_Utility_PVT.resource_locked THEN
660: x_return_status := FND_API.g_ret_sts_error;
661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
662:
663: WHEN FND_API.G_EXC_ERROR THEN
664: ROLLBACK TO DELETE_Web_Track_PVT;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: -- Standard call to get message count and if count=1, get the message
667: FND_MSG_PUB.Count_And_Get (
661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
662:
663: WHEN FND_API.G_EXC_ERROR THEN
664: ROLLBACK TO DELETE_Web_Track_PVT;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: -- Standard call to get message count and if count=1, get the message
667: FND_MSG_PUB.Count_And_Get (
668: p_encoded => FND_API.G_FALSE,
669: p_count => x_msg_count,
664: ROLLBACK TO DELETE_Web_Track_PVT;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: -- Standard call to get message count and if count=1, get the message
667: FND_MSG_PUB.Count_And_Get (
668: p_encoded => FND_API.G_FALSE,
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: ROLLBACK TO DELETE_Web_Track_PVT;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: -- Standard call to get message count and if count=1, get the message
677: FND_MSG_PUB.Count_And_Get (
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: ROLLBACK TO DELETE_Web_Track_PVT;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: -- Standard call to get message count and if count=1, get the message
677: FND_MSG_PUB.Count_And_Get (
678: p_encoded => FND_API.G_FALSE,
679: p_count => x_msg_count,
674: ROLLBACK TO DELETE_Web_Track_PVT;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: -- Standard call to get message count and if count=1, get the message
677: FND_MSG_PUB.Count_And_Get (
678: p_encoded => FND_API.G_FALSE,
679: p_count => x_msg_count,
680: p_data => x_msg_data
681: );
682:
681: );
682:
683: WHEN OTHERS THEN
684: ROLLBACK TO DELETE_Web_Track_PVT;
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
687: THEN
688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689: END IF;
688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689: END IF;
690: -- Standard call to get message count and if count=1, get the message
691: FND_MSG_PUB.Count_And_Get (
692: p_encoded => FND_API.G_FALSE,
693: p_count => x_msg_count,
694: p_data => x_msg_data
695: );
696: End Delete_Web_Track;
710: -- Parameters
711: --
712: -- IN
713: -- p_api_version_number IN NUMBER Required
714: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
715: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
716: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
717: -- p_web_track_rec IN web_track_rec_type Required
718: --
711: --
712: -- IN
713: -- p_api_version_number IN NUMBER Required
714: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
715: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
716: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
717: -- p_web_track_rec IN web_track_rec_type Required
718: --
719: -- OUT
712: -- IN
713: -- p_api_version_number IN NUMBER Required
714: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
715: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
716: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
717: -- p_web_track_rec IN web_track_rec_type Required
718: --
719: -- OUT
720: -- x_return_status OUT VARCHAR2
732: -- ==============================================================================
733:
734: PROCEDURE Lock_Web_Track(
735: p_api_version_number IN NUMBER,
736: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
737:
738: x_return_status OUT NOCOPY VARCHAR2,
739: x_msg_count OUT NOCOPY NUMBER,
740: x_msg_data OUT NOCOPY VARCHAR2,
755: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
756:
757:
758: -- Initialize message list if p_init_msg_list is set to TRUE.
759: IF FND_API.to_Boolean( p_init_msg_list )
760: THEN
761: FND_MSG_PUB.initialize;
762: END IF;
763:
763:
764:
765:
766: -- Standard call to check for call compatibility.
767: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
768: p_api_version_number,
769: l_api_name,
770: G_PKG_NAME)
771: THEN
768: p_api_version_number,
769: l_api_name,
770: G_PKG_NAME)
771: THEN
772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
773: END IF;
774:
775:
776:
774:
775:
776:
777: -- Initialize API return status to SUCCESS
778: x_return_status := FND_API.G_RET_STS_SUCCESS;
779:
780:
781: ------------------------ lock -------------------------
782: Ams_Web_Track_Pkg.Lock_Row(l_web_tracking_id,p_object_version);
783:
784:
785: -------------------- finish --------------------------
786: FND_MSG_PUB.count_and_get(
787: p_encoded => FND_API.g_false,
788: p_count => x_msg_count,
789: p_data => x_msg_data);
790: AMS_Utility_PVT.debug_message(l_full_name ||': end');
791: EXCEPTION
790: AMS_Utility_PVT.debug_message(l_full_name ||': end');
791: EXCEPTION
792:
793: WHEN AMS_Utility_PVT.resource_locked THEN
794: x_return_status := FND_API.g_ret_sts_error;
795: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
796:
797: WHEN FND_API.G_EXC_ERROR THEN
798: ROLLBACK TO LOCK_Web_Track_PVT;
793: WHEN AMS_Utility_PVT.resource_locked THEN
794: x_return_status := FND_API.g_ret_sts_error;
795: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
796:
797: WHEN FND_API.G_EXC_ERROR THEN
798: ROLLBACK TO LOCK_Web_Track_PVT;
799: x_return_status := FND_API.G_RET_STS_ERROR;
800: -- Standard call to get message count and if count=1, get the message
801: FND_MSG_PUB.Count_And_Get (
795: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
796:
797: WHEN FND_API.G_EXC_ERROR THEN
798: ROLLBACK TO LOCK_Web_Track_PVT;
799: x_return_status := FND_API.G_RET_STS_ERROR;
800: -- Standard call to get message count and if count=1, get the message
801: FND_MSG_PUB.Count_And_Get (
802: p_encoded => FND_API.G_FALSE,
803: p_count => x_msg_count,
798: ROLLBACK TO LOCK_Web_Track_PVT;
799: x_return_status := FND_API.G_RET_STS_ERROR;
800: -- Standard call to get message count and if count=1, get the message
801: FND_MSG_PUB.Count_And_Get (
802: p_encoded => FND_API.G_FALSE,
803: p_count => x_msg_count,
804: p_data => x_msg_data
805: );
806:
803: p_count => x_msg_count,
804: p_data => x_msg_data
805: );
806:
807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
808: ROLLBACK TO LOCK_Web_Track_PVT;
809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: -- Standard call to get message count and if count=1, get the message
811: FND_MSG_PUB.Count_And_Get (
805: );
806:
807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
808: ROLLBACK TO LOCK_Web_Track_PVT;
809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: -- Standard call to get message count and if count=1, get the message
811: FND_MSG_PUB.Count_And_Get (
812: p_encoded => FND_API.G_FALSE,
813: p_count => x_msg_count,
808: ROLLBACK TO LOCK_Web_Track_PVT;
809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: -- Standard call to get message count and if count=1, get the message
811: FND_MSG_PUB.Count_And_Get (
812: p_encoded => FND_API.G_FALSE,
813: p_count => x_msg_count,
814: p_data => x_msg_data
815: );
816:
815: );
816:
817: WHEN OTHERS THEN
818: ROLLBACK TO LOCK_Web_Track_PVT;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
821: THEN
822: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
823: END IF;
822: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
823: END IF;
824: -- Standard call to get message count and if count=1, get the message
825: FND_MSG_PUB.Count_And_Get (
826: p_encoded => FND_API.G_FALSE,
827: p_count => x_msg_count,
828: p_data => x_msg_data
829: );
830: End Lock_Web_Track;
839: IS
840: l_valid_flag VARCHAR2(1);
841:
842: BEGIN
843: x_return_status := FND_API.g_ret_sts_success;
844: IF p_validation_mode = JTF_PLSQL_API.g_create
845: AND p_web_track_rec.web_tracking_id IS NOT NULL
846: THEN
847: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
849: 'web_tracking_id = ''' || p_web_track_rec.web_tracking_id ||''''
850: );
851: END IF;
852:
853: IF l_valid_flag = FND_API.g_false THEN
854: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_web_tracking_id_DUPLICATE');
855: x_return_status := FND_API.g_ret_sts_error;
856: END IF;
857:
851: END IF;
852:
853: IF l_valid_flag = FND_API.g_false THEN
854: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_web_tracking_id_DUPLICATE');
855: x_return_status := FND_API.g_ret_sts_error;
856: END IF;
857:
858: END check_Web_Track_Uk_Items;
859:
865: x_return_status OUT NOCOPY VARCHAR2
866: )
867: IS
868: BEGIN
869: x_return_status := FND_API.g_ret_sts_success;
870: --insert_log_mesg('check_Web_Track_Req_Items');
871: --insert_log_mesg(x_return_status);
872:
873: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
873: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
874:
875: --insert_log_mesg('Web Tracking Id ::::'||p_web_track_rec.web_tracking_id);
876:
877: -- IF p_web_track_rec.web_tracking_id = FND_API.G_MISS_NUM OR p_web_track_rec.web_tracking_id IS NULL THEN
878: --insert_log_mesg('error');
879: -- AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
880: -- x_return_status := FND_API.g_ret_sts_error;
881: -- END IF;
876:
877: -- IF p_web_track_rec.web_tracking_id = FND_API.G_MISS_NUM OR p_web_track_rec.web_tracking_id IS NULL THEN
878: --insert_log_mesg('error');
879: -- AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
880: -- x_return_status := FND_API.g_ret_sts_error;
881: -- END IF;
882: --insert_log_mesg(x_return_status);
883:
884: IF p_web_track_rec.schedule_id = FND_API.G_MISS_NUM OR p_web_track_rec.schedule_id IS NULL THEN
880: -- x_return_status := FND_API.g_ret_sts_error;
881: -- END IF;
882: --insert_log_mesg(x_return_status);
883:
884: IF p_web_track_rec.schedule_id = FND_API.G_MISS_NUM OR p_web_track_rec.schedule_id IS NULL THEN
885: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'SCHEDULE_ID' );
886: x_return_status := FND_API.g_ret_sts_error;
887: END IF;
888:
882: --insert_log_mesg(x_return_status);
883:
884: IF p_web_track_rec.schedule_id = FND_API.G_MISS_NUM OR p_web_track_rec.schedule_id IS NULL THEN
885: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'SCHEDULE_ID' );
886: x_return_status := FND_API.g_ret_sts_error;
887: END IF;
888:
889: --insert_log_mesg('Schedule Id ::::'||p_web_track_rec.schedule_id);
890: IF p_web_track_rec.party_id = FND_API.G_MISS_NUM OR p_web_track_rec.party_id IS NULL THEN
886: x_return_status := FND_API.g_ret_sts_error;
887: END IF;
888:
889: --insert_log_mesg('Schedule Id ::::'||p_web_track_rec.schedule_id);
890: IF p_web_track_rec.party_id = FND_API.G_MISS_NUM OR p_web_track_rec.party_id IS NULL THEN
891: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTY_ID' );
892: x_return_status := FND_API.g_ret_sts_error;
893: END IF;
894:
888:
889: --insert_log_mesg('Schedule Id ::::'||p_web_track_rec.schedule_id);
890: IF p_web_track_rec.party_id = FND_API.G_MISS_NUM OR p_web_track_rec.party_id IS NULL THEN
891: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTY_ID' );
892: x_return_status := FND_API.g_ret_sts_error;
893: END IF;
894:
895: --insert_log_mesg(p_web_track_rec.placement_id);
896: IF p_web_track_rec.placement_id = FND_API.G_MISS_NUM OR p_web_track_rec.placement_id IS NULL THEN
892: x_return_status := FND_API.g_ret_sts_error;
893: END IF;
894:
895: --insert_log_mesg(p_web_track_rec.placement_id);
896: IF p_web_track_rec.placement_id = FND_API.G_MISS_NUM OR p_web_track_rec.placement_id IS NULL THEN
897: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PLACEMENT_ID' );
898: x_return_status := FND_API.g_ret_sts_error;
899: END IF;
900:
894:
895: --insert_log_mesg(p_web_track_rec.placement_id);
896: IF p_web_track_rec.placement_id = FND_API.G_MISS_NUM OR p_web_track_rec.placement_id IS NULL THEN
897: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PLACEMENT_ID' );
898: x_return_status := FND_API.g_ret_sts_error;
899: END IF;
900:
901:
902: ELSE
901:
902: ELSE
903:
904: --insert_log_mesg('else check_Web_Track_Req_Items');
905: IF p_web_track_rec.web_tracking_id = FND_API.G_MISS_NUM THEN
906: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
907: x_return_status := FND_API.g_ret_sts_error;
908: END IF;
909:
903:
904: --insert_log_mesg('else check_Web_Track_Req_Items');
905: IF p_web_track_rec.web_tracking_id = FND_API.G_MISS_NUM THEN
906: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
907: x_return_status := FND_API.g_ret_sts_error;
908: END IF;
909:
910:
911: IF p_web_track_rec.schedule_id = FND_API.G_MISS_NUM THEN
907: x_return_status := FND_API.g_ret_sts_error;
908: END IF;
909:
910:
911: IF p_web_track_rec.schedule_id = FND_API.G_MISS_NUM THEN
912: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'SCHEDULE_ID' );
913: x_return_status := FND_API.g_ret_sts_error;
914: END IF;
915:
909:
910:
911: IF p_web_track_rec.schedule_id = FND_API.G_MISS_NUM THEN
912: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'SCHEDULE_ID' );
913: x_return_status := FND_API.g_ret_sts_error;
914: END IF;
915:
916:
917: IF p_web_track_rec.party_id = FND_API.G_MISS_NUM THEN
913: x_return_status := FND_API.g_ret_sts_error;
914: END IF;
915:
916:
917: IF p_web_track_rec.party_id = FND_API.G_MISS_NUM THEN
918: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTY_ID' );
919: x_return_status := FND_API.g_ret_sts_error;
920: END IF;
921:
915:
916:
917: IF p_web_track_rec.party_id = FND_API.G_MISS_NUM THEN
918: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PARTY_ID' );
919: x_return_status := FND_API.g_ret_sts_error;
920: END IF;
921:
922:
923: IF p_web_track_rec.placement_id = FND_API.G_MISS_NUM THEN
919: x_return_status := FND_API.g_ret_sts_error;
920: END IF;
921:
922:
923: IF p_web_track_rec.placement_id = FND_API.G_MISS_NUM THEN
924: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PLACEMENT_ID' );
925: x_return_status := FND_API.g_ret_sts_error;
926: END IF;
927: END IF;
921:
922:
923: IF p_web_track_rec.placement_id = FND_API.G_MISS_NUM THEN
924: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'PLACEMENT_ID' );
925: x_return_status := FND_API.g_ret_sts_error;
926: END IF;
927: END IF;
928:
929: --insert_log_mesg('check_Web_Track_Req_Items done');
937: x_return_status OUT NOCOPY VARCHAR2
938: )
939: IS
940: BEGIN
941: x_return_status := FND_API.g_ret_sts_success;
942:
943: -- Enter custom code here
944:
945: END check_Web_Track_Fk_Items;
951: x_return_status OUT NOCOPY VARCHAR2
952: )
953: IS
954: BEGIN
955: x_return_status := FND_API.g_ret_sts_success;
956:
957: -- Enter custom code here
958:
959: END check_Web_Track_Lookup_Items;
968: IS
969: l_return_status VARCHAR2(1);
970: BEGIN
971:
972: l_return_status := FND_API.g_ret_sts_success;
973: -- Check Items Uniqueness API calls
974: --insert_log_mesg('inside Check_web_track_Items');
975: --insert_log_mesg(l_return_status);
976: check_Web_track_Uk_Items(
977: p_web_track_rec => p_web_track_rec,
978: p_validation_mode => p_validation_mode,
979: x_return_status => x_return_status);
980: --insert_log_mesg(x_return_status);
981: IF x_return_status <> FND_API.g_ret_sts_success THEN
982: l_return_status := FND_API.g_ret_sts_error;
983: END IF;
984: --insert_log_mesg('done check_Web_track_Uk_Items');
985:
978: p_validation_mode => p_validation_mode,
979: x_return_status => x_return_status);
980: --insert_log_mesg(x_return_status);
981: IF x_return_status <> FND_API.g_ret_sts_success THEN
982: l_return_status := FND_API.g_ret_sts_error;
983: END IF;
984: --insert_log_mesg('done check_Web_track_Uk_Items');
985:
986: -- Check Items Required/NOT NULL API calls
989: p_web_track_rec => p_web_track_rec,
990: p_validation_mode => p_validation_mode,
991: x_return_status => x_return_status);
992: --insert_log_mesg(x_return_status);
993: IF x_return_status <> FND_API.g_ret_sts_success THEN
994: l_return_status := FND_API.g_ret_sts_error;
995: END IF;
996:
997: --insert_log_mesg('Check Items Required/NOT NULL API calls');
990: p_validation_mode => p_validation_mode,
991: x_return_status => x_return_status);
992: --insert_log_mesg(x_return_status);
993: IF x_return_status <> FND_API.g_ret_sts_success THEN
994: l_return_status := FND_API.g_ret_sts_error;
995: END IF;
996:
997: --insert_log_mesg('Check Items Required/NOT NULL API calls');
998: -- Check Items Foreign Keys API calls
1000: check_web_track_FK_items(
1001: p_web_track_rec => p_web_track_rec,
1002: x_return_status => x_return_status);
1003: --insert_log_mesg(x_return_status);
1004: IF x_return_status <> FND_API.g_ret_sts_success THEN
1005: l_return_status := FND_API.g_ret_sts_error;
1006: END IF;
1007: -- Check Items Lookups
1008: --insert_log_mesg('Check Items Lookups');
1001: p_web_track_rec => p_web_track_rec,
1002: x_return_status => x_return_status);
1003: --insert_log_mesg(x_return_status);
1004: IF x_return_status <> FND_API.g_ret_sts_success THEN
1005: l_return_status := FND_API.g_ret_sts_error;
1006: END IF;
1007: -- Check Items Lookups
1008: --insert_log_mesg('Check Items Lookups');
1009: check_web_track_Lookup_items(
1009: check_web_track_Lookup_items(
1010: p_web_track_rec => p_web_track_rec,
1011: x_return_status => x_return_status);
1012: --insert_log_mesg(x_return_status);
1013: IF x_return_status <> FND_API.g_ret_sts_success THEN
1014: l_return_status := FND_API.g_ret_sts_error;
1015: END IF;
1016:
1017: x_return_status := l_return_status;
1010: p_web_track_rec => p_web_track_rec,
1011: x_return_status => x_return_status);
1012: --insert_log_mesg(x_return_status);
1013: IF x_return_status <> FND_API.g_ret_sts_success THEN
1014: l_return_status := FND_API.g_ret_sts_error;
1015: END IF;
1016:
1017: x_return_status := l_return_status;
1018: --insert_log_mesg(x_return_status);
1189: l_web_track_rec web_track_rec_type := p_web_track_rec;
1190: BEGIN
1191: -- Developers should put their code to default the record type
1192: -- e.g. IF p_campaign_rec.status_code IS NULL
1193: -- OR p_campaign_rec.status_code = FND_API.G_MISS_CHAR THEN
1194: -- l_campaign_rec.status_code := 'NEW' ;
1195: -- END IF ;
1196: --
1197: NULL ;
1201:
1202:
1203: PROCEDURE Validate_Web_Track(
1204: p_api_version_number IN NUMBER,
1205: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1206: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1207: p_web_track_rec IN web_track_rec_type,
1208: p_validation_mode IN VARCHAR2,
1209: x_return_status OUT NOCOPY VARCHAR2,
1202:
1203: PROCEDURE Validate_Web_Track(
1204: p_api_version_number IN NUMBER,
1205: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1206: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1207: p_web_track_rec IN web_track_rec_type,
1208: p_validation_mode IN VARCHAR2,
1209: x_return_status OUT NOCOPY VARCHAR2,
1210: x_msg_count OUT NOCOPY NUMBER,
1222:
1223: --insert_log_mesg('Standard Start of API savepoint');
1224:
1225: -- Standard call to check for call compatibility.
1226: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1227: p_api_version_number,
1228: l_api_name,
1229: G_PKG_NAME)
1230: THEN
1227: p_api_version_number,
1228: l_api_name,
1229: G_PKG_NAME)
1230: THEN
1231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1232: END IF;
1233:
1234: --insert_log_mesg('Standard call to check for call');
1235: -- Initialize message list if p_init_msg_list is set to TRUE.
1232: END IF;
1233:
1234: --insert_log_mesg('Standard call to check for call');
1235: -- Initialize message list if p_init_msg_list is set to TRUE.
1236: IF FND_API.to_Boolean( p_init_msg_list )
1237: THEN
1238: FND_MSG_PUB.initialize;
1239: END IF;
1240: --insert_log_mesg('Private API: Validate_Web_Track');
1247: x_return_status => x_return_status
1248: );
1249: --insert_log_mesg('done Check_web_track_Items');
1250: --insert_log_mesg(x_return_status);
1251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1252: RAISE FND_API.G_EXC_ERROR;
1253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1248: );
1249: --insert_log_mesg('done Check_web_track_Items');
1250: --insert_log_mesg(x_return_status);
1251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1252: RAISE FND_API.G_EXC_ERROR;
1253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256: END IF;
1249: --insert_log_mesg('done Check_web_track_Items');
1250: --insert_log_mesg(x_return_status);
1251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1252: RAISE FND_API.G_EXC_ERROR;
1253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256: END IF;
1257:
1250: --insert_log_mesg(x_return_status);
1251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1252: RAISE FND_API.G_EXC_ERROR;
1253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256: END IF;
1257:
1258: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1270:
1271: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1272: Validate_web_track_Rec(
1273: p_api_version_number => 1.0,
1274: p_init_msg_list => FND_API.G_FALSE,
1275: x_return_status => x_return_status,
1276: x_msg_count => x_msg_count,
1277: x_msg_data => x_msg_data,
1278: p_web_track_rec => l_web_track_rec);
1276: x_msg_count => x_msg_count,
1277: x_msg_data => x_msg_data,
1278: p_web_track_rec => l_web_track_rec);
1279:
1280: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1277: x_msg_data => x_msg_data,
1278: p_web_track_rec => l_web_track_rec);
1279:
1280: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: END IF;
1278: p_web_track_rec => l_web_track_rec);
1279:
1280: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: END IF;
1286:
1279:
1280: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1282: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1284: END IF;
1285: END IF;
1286:
1287:
1290:
1291:
1292:
1293: -- Initialize API return status to SUCCESS
1294: x_return_status := FND_API.G_RET_STS_SUCCESS;
1295:
1296: --insert_log_mesg(x_return_status);
1297: -- Debug Message
1298: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1305: );
1306: EXCEPTION
1307:
1308: WHEN AMS_Utility_PVT.resource_locked THEN
1309: x_return_status := FND_API.g_ret_sts_error;
1310: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1311:
1312: WHEN FND_API.G_EXC_ERROR THEN
1313: ROLLBACK TO VALIDATE_Web_Track_;
1308: WHEN AMS_Utility_PVT.resource_locked THEN
1309: x_return_status := FND_API.g_ret_sts_error;
1310: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1311:
1312: WHEN FND_API.G_EXC_ERROR THEN
1313: ROLLBACK TO VALIDATE_Web_Track_;
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1315: -- Standard call to get message count and if count=1, get the message
1316: FND_MSG_PUB.Count_And_Get (
1310: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1311:
1312: WHEN FND_API.G_EXC_ERROR THEN
1313: ROLLBACK TO VALIDATE_Web_Track_;
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1315: -- Standard call to get message count and if count=1, get the message
1316: FND_MSG_PUB.Count_And_Get (
1317: p_encoded => FND_API.G_FALSE,
1318: p_count => x_msg_count,
1313: ROLLBACK TO VALIDATE_Web_Track_;
1314: x_return_status := FND_API.G_RET_STS_ERROR;
1315: -- Standard call to get message count and if count=1, get the message
1316: FND_MSG_PUB.Count_And_Get (
1317: p_encoded => FND_API.G_FALSE,
1318: p_count => x_msg_count,
1319: p_data => x_msg_data
1320: );
1321:
1318: p_count => x_msg_count,
1319: p_data => x_msg_data
1320: );
1321:
1322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1323: ROLLBACK TO VALIDATE_Web_Track_;
1324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1325: -- Standard call to get message count and if count=1, get the message
1326: FND_MSG_PUB.Count_And_Get (
1320: );
1321:
1322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1323: ROLLBACK TO VALIDATE_Web_Track_;
1324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1325: -- Standard call to get message count and if count=1, get the message
1326: FND_MSG_PUB.Count_And_Get (
1327: p_encoded => FND_API.G_FALSE,
1328: p_count => x_msg_count,
1323: ROLLBACK TO VALIDATE_Web_Track_;
1324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1325: -- Standard call to get message count and if count=1, get the message
1326: FND_MSG_PUB.Count_And_Get (
1327: p_encoded => FND_API.G_FALSE,
1328: p_count => x_msg_count,
1329: p_data => x_msg_data
1330: );
1331:
1330: );
1331:
1332: WHEN OTHERS THEN
1333: ROLLBACK TO VALIDATE_Web_Track_;
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1336: THEN
1337: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1338: END IF;
1337: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1338: END IF;
1339: -- Standard call to get message count and if count=1, get the message
1340: FND_MSG_PUB.Count_And_Get (
1341: p_encoded => FND_API.G_FALSE,
1342: p_count => x_msg_count,
1343: p_data => x_msg_data
1344: );
1345: End Validate_Web_Track;
1346:
1347:
1348: PROCEDURE Validate_Web_Track_Rec (
1349: p_api_version_number IN NUMBER,
1350: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1351: x_return_status OUT NOCOPY VARCHAR2,
1352: x_msg_count OUT NOCOPY NUMBER,
1353: x_msg_data OUT NOCOPY VARCHAR2,
1354: p_web_track_rec IN web_track_rec_type
1355: )
1356: IS
1357: BEGIN
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list )
1360: THEN
1361: FND_MSG_PUB.initialize;
1362: END IF;
1363:
1363:
1364:
1365:
1366: -- Initialize API return status to SUCCESS
1367: x_return_status := FND_API.G_RET_STS_SUCCESS;
1368:
1369: -- Hint: Validate data
1370: -- If data not valid
1371: -- THEN
1368:
1369: -- Hint: Validate data
1370: -- If data not valid
1371: -- THEN
1372: -- x_return_status := FND_API.G_RET_STS_ERROR;
1373:
1374: -- Debug Message
1375: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1376: -- Standard call to get message count and if count is 1, get message info.
1403: -- Parameters
1404: --
1405: -- IN
1406: -- p_api_version_number IN NUMBER Required
1407: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1408: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1409: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1410: -- p_web_recomms_rec IN web_recomms_rec_type Required
1411: --
1404: --
1405: -- IN
1406: -- p_api_version_number IN NUMBER Required
1407: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1408: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1409: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1410: -- p_web_recomms_rec IN web_recomms_rec_type Required
1411: --
1412: -- OUT
1405: -- IN
1406: -- p_api_version_number IN NUMBER Required
1407: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1408: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1409: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1410: -- p_web_recomms_rec IN web_recomms_rec_type Required
1411: --
1412: -- OUT
1413: -- x_return_status OUT VARCHAR2
1425: -- ==============================================================================
1426:
1427: PROCEDURE Create_Web_Recomms(
1428: p_api_version_number IN NUMBER,
1429: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1430: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1431: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1432: x_return_status OUT NOCOPY VARCHAR2,
1433: x_msg_count OUT NOCOPY NUMBER,
1426:
1427: PROCEDURE Create_Web_Recomms(
1428: p_api_version_number IN NUMBER,
1429: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1430: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1431: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1432: x_return_status OUT NOCOPY VARCHAR2,
1433: x_msg_count OUT NOCOPY NUMBER,
1434: x_msg_data OUT NOCOPY VARCHAR2,
1427: PROCEDURE Create_Web_Recomms(
1428: p_api_version_number IN NUMBER,
1429: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1430: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1431: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1432: x_return_status OUT NOCOPY VARCHAR2,
1433: x_msg_count OUT NOCOPY NUMBER,
1434: x_msg_data OUT NOCOPY VARCHAR2,
1435: p_web_recomms_rec IN web_recomms_rec_type := g_miss_web_recomms_rec,
1440: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Web_Recomms';
1441: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1442: l_return_status_full VARCHAR2(1);
1443: l_object_version_number NUMBER := 1;
1444: l_org_id NUMBER := FND_API.G_MISS_NUM;
1445: l_web_recomm_id NUMBER;
1446: l_dummy NUMBER;
1447: CURSOR c_id IS
1448: SELECT ams_web_recomms_s.NEXTVAL
1456: -- Standard Start of API savepoint
1457: SAVEPOINT create_web_recomms_pvt;
1458:
1459: -- Standard call to check for call compatibility.
1460: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1461: p_api_version_number,
1462: l_api_name,
1463: G_PKG_NAME)
1464: THEN
1461: p_api_version_number,
1462: l_api_name,
1463: G_PKG_NAME)
1464: THEN
1465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1466: END IF;
1467:
1468:
1469: -- Initialize message list if p_init_msg_list is set to TRUE.
1466: END IF;
1467:
1468:
1469: -- Initialize message list if p_init_msg_list is set to TRUE.
1470: IF FND_API.to_Boolean( p_init_msg_list )
1471: THEN
1472: FND_MSG_PUB.initialize;
1473: END IF;
1474:
1479:
1480:
1481:
1482: -- Initialize API return status to SUCCESS
1483: x_return_status := FND_API.G_RET_STS_SUCCESS;
1484:
1485: -- =========================================================================
1486: -- Validate Environment
1487: -- =========================================================================
1488:
1489: IF FND_GLOBAL.USER_ID IS NULL
1490: THEN
1491: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
1492: RAISE FND_API.G_EXC_ERROR;
1493: END IF;
1494:
1495:
1496:
1493: END IF;
1494:
1495:
1496:
1497: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1498: THEN
1499: -- Debug message
1500: AMS_UTILITY_PVT.debug_message('Private API: Validate_Web_Recomms');
1501:
1501:
1502: -- Invoke validation procedures
1503: Validate_web_recomms(
1504: p_api_version_number => 1.0,
1505: p_init_msg_list => FND_API.G_FALSE,
1506: p_validation_level => p_validation_level,
1507: p_validation_mode => JTF_PLSQL_API.g_create,
1508: p_web_recomms_rec => p_web_recomms_rec,
1509: x_return_status => x_return_status,
1510: x_msg_count => x_msg_count,
1511: x_msg_data => x_msg_data);
1512: END IF;
1513:
1514: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1515: RAISE FND_API.G_EXC_ERROR;
1516: END IF;
1517:
1518: -- Local variable initialization
1511: x_msg_data => x_msg_data);
1512: END IF;
1513:
1514: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1515: RAISE FND_API.G_EXC_ERROR;
1516: END IF;
1517:
1518: -- Local variable initialization
1519:
1516: END IF;
1517:
1518: -- Local variable initialization
1519:
1520: IF p_web_recomms_rec.web_recomm_id IS NULL OR p_web_recomms_rec.web_recomm_id = FND_API.g_miss_num THEN
1521: LOOP
1522: l_dummy := NULL;
1523: OPEN c_id;
1524: FETCH c_id INTO l_web_recomm_id;
1569: p_attribute15 => p_web_recomms_rec.attribute15
1570: );
1571:
1572: x_web_recomm_id := l_web_recomm_id;
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: RAISE FND_API.G_EXC_ERROR;
1575: END IF;
1576: --
1577: -- End of API body
1570: );
1571:
1572: x_web_recomm_id := l_web_recomm_id;
1573: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: RAISE FND_API.G_EXC_ERROR;
1575: END IF;
1576: --
1577: -- End of API body
1578: --
1577: -- End of API body
1578: --
1579:
1580: -- Standard check for p_commit
1581: IF FND_API.to_Boolean( p_commit )
1582: THEN
1583: COMMIT WORK;
1584: END IF;
1585:
1595: );
1596: EXCEPTION
1597:
1598: WHEN AMS_Utility_PVT.resource_locked THEN
1599: x_return_status := FND_API.g_ret_sts_error;
1600: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1601:
1602: WHEN FND_API.G_EXC_ERROR THEN
1603: ROLLBACK TO CREATE_Web_Recomms_PVT;
1598: WHEN AMS_Utility_PVT.resource_locked THEN
1599: x_return_status := FND_API.g_ret_sts_error;
1600: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1601:
1602: WHEN FND_API.G_EXC_ERROR THEN
1603: ROLLBACK TO CREATE_Web_Recomms_PVT;
1604: x_return_status := FND_API.G_RET_STS_ERROR;
1605: -- Standard call to get message count and if count=1, get the message
1606: FND_MSG_PUB.Count_And_Get (
1600: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1601:
1602: WHEN FND_API.G_EXC_ERROR THEN
1603: ROLLBACK TO CREATE_Web_Recomms_PVT;
1604: x_return_status := FND_API.G_RET_STS_ERROR;
1605: -- Standard call to get message count and if count=1, get the message
1606: FND_MSG_PUB.Count_And_Get (
1607: p_encoded => FND_API.G_FALSE,
1608: p_count => x_msg_count,
1603: ROLLBACK TO CREATE_Web_Recomms_PVT;
1604: x_return_status := FND_API.G_RET_STS_ERROR;
1605: -- Standard call to get message count and if count=1, get the message
1606: FND_MSG_PUB.Count_And_Get (
1607: p_encoded => FND_API.G_FALSE,
1608: p_count => x_msg_count,
1609: p_data => x_msg_data
1610: );
1611:
1608: p_count => x_msg_count,
1609: p_data => x_msg_data
1610: );
1611:
1612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1613: ROLLBACK TO CREATE_Web_Recomms_PVT;
1614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1615: -- Standard call to get message count and if count=1, get the message
1616: FND_MSG_PUB.Count_And_Get (
1610: );
1611:
1612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1613: ROLLBACK TO CREATE_Web_Recomms_PVT;
1614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1615: -- Standard call to get message count and if count=1, get the message
1616: FND_MSG_PUB.Count_And_Get (
1617: p_encoded => FND_API.G_FALSE,
1618: p_count => x_msg_count,
1613: ROLLBACK TO CREATE_Web_Recomms_PVT;
1614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1615: -- Standard call to get message count and if count=1, get the message
1616: FND_MSG_PUB.Count_And_Get (
1617: p_encoded => FND_API.G_FALSE,
1618: p_count => x_msg_count,
1619: p_data => x_msg_data
1620: );
1621:
1620: );
1621:
1622: WHEN OTHERS THEN
1623: ROLLBACK TO CREATE_Web_Recomms_PVT;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1626: THEN
1627: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1628: END IF;
1627: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1628: END IF;
1629: -- Standard call to get message count and if count=1, get the message
1630: FND_MSG_PUB.Count_And_Get (
1631: p_encoded => FND_API.G_FALSE,
1632: p_count => x_msg_count,
1633: p_data => x_msg_data
1634: );
1635: End Create_Web_Recomms;
1647: -- Parameters
1648: --
1649: -- IN
1650: -- p_api_version_number IN NUMBER Required
1651: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1652: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1653: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1654: -- p_web_recomms_rec IN web_recomms_rec_type Required
1655: --
1648: --
1649: -- IN
1650: -- p_api_version_number IN NUMBER Required
1651: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1652: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1653: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1654: -- p_web_recomms_rec IN web_recomms_rec_type Required
1655: --
1656: -- OUT
1649: -- IN
1650: -- p_api_version_number IN NUMBER Required
1651: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1652: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1653: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1654: -- p_web_recomms_rec IN web_recomms_rec_type Required
1655: --
1656: -- OUT
1657: -- x_return_status OUT VARCHAR2
1669: -- ==============================================================================
1670:
1671: PROCEDURE Update_Web_Recomms(
1672: p_api_version_number IN NUMBER,
1673: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1674: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1675: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1676:
1677: x_return_status OUT NOCOPY VARCHAR2,
1670:
1671: PROCEDURE Update_Web_Recomms(
1672: p_api_version_number IN NUMBER,
1673: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1674: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1675: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1676:
1677: x_return_status OUT NOCOPY VARCHAR2,
1678: x_msg_count OUT NOCOPY NUMBER,
1671: PROCEDURE Update_Web_Recomms(
1672: p_api_version_number IN NUMBER,
1673: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1674: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1675: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1676:
1677: x_return_status OUT NOCOPY VARCHAR2,
1678: x_msg_count OUT NOCOPY NUMBER,
1679: x_msg_data OUT NOCOPY VARCHAR2,
1704: -- Standard Start of API savepoint
1705: SAVEPOINT update_web_recomms_pvt;
1706:
1707: -- Standard call to check for call compatibility.
1708: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1709: p_api_version_number,
1710: l_api_name,
1711: G_PKG_NAME)
1712: THEN
1709: p_api_version_number,
1710: l_api_name,
1711: G_PKG_NAME)
1712: THEN
1713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1714: END IF;
1715:
1716:
1717: -- Initialize message list if p_init_msg_list is set to TRUE.
1714: END IF;
1715:
1716:
1717: -- Initialize message list if p_init_msg_list is set to TRUE.
1718: IF FND_API.to_Boolean( p_init_msg_list )
1719: THEN
1720: FND_MSG_PUB.initialize;
1721: END IF;
1722:
1727:
1728:
1729:
1730: -- Initialize API return status to SUCCESS
1731: x_return_status := FND_API.G_RET_STS_SUCCESS;
1732:
1733: -- Debug Message
1734: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
1735:
1740: If ( c_get_Web_Recomms%NOTFOUND) THEN
1741: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
1742: p_token_name => 'INFO',
1743: p_token_value => 'Web_Recomms') ;
1744: RAISE FND_API.G_EXC_ERROR;
1745: END IF;
1746: -- Debug Message
1747: AMS_UTILITY_PVT.debug_message('Private API: - Close Cursor');
1748: CLOSE c_get_Web_Recomms;
1748: CLOSE c_get_Web_Recomms;
1749:
1750:
1751: If (l_tar_web_recomms_rec.object_version_number is NULL or
1752: l_tar_web_recomms_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1753: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1754: p_token_name => 'COLUMN',
1755: p_token_value => 'Last_Update_Date') ;
1756: raise FND_API.G_EXC_ERROR;
1752: l_tar_web_recomms_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1753: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
1754: p_token_name => 'COLUMN',
1755: p_token_value => 'Last_Update_Date') ;
1756: raise FND_API.G_EXC_ERROR;
1757: End if;
1758: -- Check Whether record has been changed by someone else
1759: If (l_tar_web_recomms_rec.object_version_number <> l_ref_web_recomms_rec.object_version_number) Then
1760: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1759: If (l_tar_web_recomms_rec.object_version_number <> l_ref_web_recomms_rec.object_version_number) Then
1760: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
1761: p_token_name => 'INFO',
1762: p_token_value => 'Web_Recomms') ;
1763: raise FND_API.G_EXC_ERROR;
1764: End if;
1765:
1766:
1767: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1763: raise FND_API.G_EXC_ERROR;
1764: End if;
1765:
1766:
1767: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1768: THEN
1769: -- Debug message
1770: AMS_UTILITY_PVT.debug_message('Private API: Validate_Web_Recomms');
1771:
1771:
1772: -- Invoke validation procedures
1773: Validate_web_recomms(
1774: p_api_version_number => 1.0,
1775: p_init_msg_list => FND_API.G_FALSE,
1776: p_validation_level => p_validation_level,
1777: p_validation_mode => JTF_PLSQL_API.g_update,
1778: p_web_recomms_rec => p_web_recomms_rec,
1779: x_return_status => x_return_status,
1780: x_msg_count => x_msg_count,
1781: x_msg_data => x_msg_data);
1782: END IF;
1783:
1784: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787:
1788:
1781: x_msg_data => x_msg_data);
1782: END IF;
1783:
1784: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1785: RAISE FND_API.G_EXC_ERROR;
1786: END IF;
1787:
1788:
1789: -- Debug Message
1823: -- End of API body.
1824: --
1825:
1826: -- Standard check for p_commit
1827: IF FND_API.to_Boolean( p_commit )
1828: THEN
1829: COMMIT WORK;
1830: END IF;
1831:
1841: );
1842: EXCEPTION
1843:
1844: WHEN AMS_Utility_PVT.resource_locked THEN
1845: x_return_status := FND_API.g_ret_sts_error;
1846: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1847:
1848: WHEN FND_API.G_EXC_ERROR THEN
1849: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1844: WHEN AMS_Utility_PVT.resource_locked THEN
1845: x_return_status := FND_API.g_ret_sts_error;
1846: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1847:
1848: WHEN FND_API.G_EXC_ERROR THEN
1849: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851: -- Standard call to get message count and if count=1, get the message
1852: FND_MSG_PUB.Count_And_Get (
1846: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1847:
1848: WHEN FND_API.G_EXC_ERROR THEN
1849: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851: -- Standard call to get message count and if count=1, get the message
1852: FND_MSG_PUB.Count_And_Get (
1853: p_encoded => FND_API.G_FALSE,
1854: p_count => x_msg_count,
1849: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851: -- Standard call to get message count and if count=1, get the message
1852: FND_MSG_PUB.Count_And_Get (
1853: p_encoded => FND_API.G_FALSE,
1854: p_count => x_msg_count,
1855: p_data => x_msg_data
1856: );
1857:
1854: p_count => x_msg_count,
1855: p_data => x_msg_data
1856: );
1857:
1858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1859: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: -- Standard call to get message count and if count=1, get the message
1862: FND_MSG_PUB.Count_And_Get (
1856: );
1857:
1858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1859: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: -- Standard call to get message count and if count=1, get the message
1862: FND_MSG_PUB.Count_And_Get (
1863: p_encoded => FND_API.G_FALSE,
1864: p_count => x_msg_count,
1859: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: -- Standard call to get message count and if count=1, get the message
1862: FND_MSG_PUB.Count_And_Get (
1863: p_encoded => FND_API.G_FALSE,
1864: p_count => x_msg_count,
1865: p_data => x_msg_data
1866: );
1867:
1866: );
1867:
1868: WHEN OTHERS THEN
1869: ROLLBACK TO UPDATE_Web_Recomms_PVT;
1870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1871: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1872: THEN
1873: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1874: END IF;
1873: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1874: END IF;
1875: -- Standard call to get message count and if count=1, get the message
1876: FND_MSG_PUB.Count_And_Get (
1877: p_encoded => FND_API.G_FALSE,
1878: p_count => x_msg_count,
1879: p_data => x_msg_data
1880: );
1881: End Update_Web_Recomms;
1893: -- Parameters
1894: --
1895: -- IN
1896: -- p_api_version_number IN NUMBER Required
1897: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1898: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1899: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1900: -- p_web_recomm_id IN NUMBER
1901: -- p_object_version_number IN NUMBER Optional Default = NULL
1894: --
1895: -- IN
1896: -- p_api_version_number IN NUMBER Required
1897: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1898: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1899: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1900: -- p_web_recomm_id IN NUMBER
1901: -- p_object_version_number IN NUMBER Optional Default = NULL
1902: --
1895: -- IN
1896: -- p_api_version_number IN NUMBER Required
1897: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1898: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1899: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1900: -- p_web_recomm_id IN NUMBER
1901: -- p_object_version_number IN NUMBER Optional Default = NULL
1902: --
1903: -- OUT
1916: -- ==============================================================================
1917:
1918: PROCEDURE Delete_Web_Recomms(
1919: p_api_version_number IN NUMBER,
1920: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1921: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1922: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1923: x_return_status OUT NOCOPY VARCHAR2,
1924: x_msg_count OUT NOCOPY NUMBER,
1917:
1918: PROCEDURE Delete_Web_Recomms(
1919: p_api_version_number IN NUMBER,
1920: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1921: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1922: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1923: x_return_status OUT NOCOPY VARCHAR2,
1924: x_msg_count OUT NOCOPY NUMBER,
1925: x_msg_data OUT NOCOPY VARCHAR2,
1918: PROCEDURE Delete_Web_Recomms(
1919: p_api_version_number IN NUMBER,
1920: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1921: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1922: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1923: x_return_status OUT NOCOPY VARCHAR2,
1924: x_msg_count OUT NOCOPY NUMBER,
1925: x_msg_data OUT NOCOPY VARCHAR2,
1926: p_web_recomm_id IN NUMBER,
1936: -- Standard Start of API savepoint
1937: SAVEPOINT delete_web_recomms_pvt;
1938:
1939: -- Standard call to check for call compatibility.
1940: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1941: p_api_version_number,
1942: l_api_name,
1943: G_PKG_NAME)
1944: THEN
1941: p_api_version_number,
1942: l_api_name,
1943: G_PKG_NAME)
1944: THEN
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1946: END IF;
1947:
1948:
1949: -- Initialize message list if p_init_msg_list is set to TRUE.
1946: END IF;
1947:
1948:
1949: -- Initialize message list if p_init_msg_list is set to TRUE.
1950: IF FND_API.to_Boolean( p_init_msg_list )
1951: THEN
1952: FND_MSG_PUB.initialize;
1953: END IF;
1954:
1959:
1960:
1961:
1962: -- Initialize API return status to SUCCESS
1963: x_return_status := FND_API.G_RET_STS_SUCCESS;
1964:
1965: --
1966: -- Api body
1967: --
1976: -- End of API body
1977: --
1978:
1979: -- Standard check for p_commit
1980: IF FND_API.to_Boolean( p_commit )
1981: THEN
1982: COMMIT WORK;
1983: END IF;
1984:
1994: );
1995: EXCEPTION
1996:
1997: WHEN AMS_Utility_PVT.resource_locked THEN
1998: x_return_status := FND_API.g_ret_sts_error;
1999: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2000:
2001: WHEN FND_API.G_EXC_ERROR THEN
2002: ROLLBACK TO DELETE_Web_Recomms_PVT;
1997: WHEN AMS_Utility_PVT.resource_locked THEN
1998: x_return_status := FND_API.g_ret_sts_error;
1999: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2000:
2001: WHEN FND_API.G_EXC_ERROR THEN
2002: ROLLBACK TO DELETE_Web_Recomms_PVT;
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: -- Standard call to get message count and if count=1, get the message
2005: FND_MSG_PUB.Count_And_Get (
1999: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2000:
2001: WHEN FND_API.G_EXC_ERROR THEN
2002: ROLLBACK TO DELETE_Web_Recomms_PVT;
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: -- Standard call to get message count and if count=1, get the message
2005: FND_MSG_PUB.Count_And_Get (
2006: p_encoded => FND_API.G_FALSE,
2007: p_count => x_msg_count,
2002: ROLLBACK TO DELETE_Web_Recomms_PVT;
2003: x_return_status := FND_API.G_RET_STS_ERROR;
2004: -- Standard call to get message count and if count=1, get the message
2005: FND_MSG_PUB.Count_And_Get (
2006: p_encoded => FND_API.G_FALSE,
2007: p_count => x_msg_count,
2008: p_data => x_msg_data
2009: );
2010:
2007: p_count => x_msg_count,
2008: p_data => x_msg_data
2009: );
2010:
2011: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2012: ROLLBACK TO DELETE_Web_Recomms_PVT;
2013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2014: -- Standard call to get message count and if count=1, get the message
2015: FND_MSG_PUB.Count_And_Get (
2009: );
2010:
2011: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2012: ROLLBACK TO DELETE_Web_Recomms_PVT;
2013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2014: -- Standard call to get message count and if count=1, get the message
2015: FND_MSG_PUB.Count_And_Get (
2016: p_encoded => FND_API.G_FALSE,
2017: p_count => x_msg_count,
2012: ROLLBACK TO DELETE_Web_Recomms_PVT;
2013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2014: -- Standard call to get message count and if count=1, get the message
2015: FND_MSG_PUB.Count_And_Get (
2016: p_encoded => FND_API.G_FALSE,
2017: p_count => x_msg_count,
2018: p_data => x_msg_data
2019: );
2020:
2019: );
2020:
2021: WHEN OTHERS THEN
2022: ROLLBACK TO DELETE_Web_Recomms_PVT;
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2024: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2025: THEN
2026: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2027: END IF;
2026: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2027: END IF;
2028: -- Standard call to get message count and if count=1, get the message
2029: FND_MSG_PUB.Count_And_Get (
2030: p_encoded => FND_API.G_FALSE,
2031: p_count => x_msg_count,
2032: p_data => x_msg_data
2033: );
2034: End Delete_Web_Recomms;
2048: -- Parameters
2049: --
2050: -- IN
2051: -- p_api_version_number IN NUMBER Required
2052: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2053: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2054: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2055: -- p_web_recomms_rec IN web_recomms_rec_type Required
2056: --
2049: --
2050: -- IN
2051: -- p_api_version_number IN NUMBER Required
2052: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2053: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2054: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2055: -- p_web_recomms_rec IN web_recomms_rec_type Required
2056: --
2057: -- OUT
2050: -- IN
2051: -- p_api_version_number IN NUMBER Required
2052: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2053: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2054: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2055: -- p_web_recomms_rec IN web_recomms_rec_type Required
2056: --
2057: -- OUT
2058: -- x_return_status OUT VARCHAR2
2070: -- ==============================================================================
2071:
2072: PROCEDURE Lock_Web_Recomms(
2073: p_api_version_number IN NUMBER,
2074: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2075:
2076: x_return_status OUT NOCOPY VARCHAR2,
2077: x_msg_count OUT NOCOPY NUMBER,
2078: x_msg_data OUT NOCOPY VARCHAR2,
2093: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2094:
2095:
2096: -- Initialize message list if p_init_msg_list is set to TRUE.
2097: IF FND_API.to_Boolean( p_init_msg_list )
2098: THEN
2099: FND_MSG_PUB.initialize;
2100: END IF;
2101:
2101:
2102:
2103:
2104: -- Standard call to check for call compatibility.
2105: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2106: p_api_version_number,
2107: l_api_name,
2108: G_PKG_NAME)
2109: THEN
2106: p_api_version_number,
2107: l_api_name,
2108: G_PKG_NAME)
2109: THEN
2110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2111: END IF;
2112:
2113:
2114:
2112:
2113:
2114:
2115: -- Initialize API return status to SUCCESS
2116: x_return_status := FND_API.G_RET_STS_SUCCESS;
2117:
2118:
2119: ------------------------ lock -------------------------
2120: Ams_Web_Recomms_Pkg.Lock_Row(l_web_recomm_id,p_object_version);
2121:
2122:
2123: -------------------- finish --------------------------
2124: FND_MSG_PUB.count_and_get(
2125: p_encoded => FND_API.g_false,
2126: p_count => x_msg_count,
2127: p_data => x_msg_data);
2128: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2129: EXCEPTION
2128: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2129: EXCEPTION
2130:
2131: WHEN AMS_Utility_PVT.resource_locked THEN
2132: x_return_status := FND_API.g_ret_sts_error;
2133: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2134:
2135: WHEN FND_API.G_EXC_ERROR THEN
2136: ROLLBACK TO LOCK_Web_Recomms_PVT;
2131: WHEN AMS_Utility_PVT.resource_locked THEN
2132: x_return_status := FND_API.g_ret_sts_error;
2133: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2134:
2135: WHEN FND_API.G_EXC_ERROR THEN
2136: ROLLBACK TO LOCK_Web_Recomms_PVT;
2137: x_return_status := FND_API.G_RET_STS_ERROR;
2138: -- Standard call to get message count and if count=1, get the message
2139: FND_MSG_PUB.Count_And_Get (
2133: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2134:
2135: WHEN FND_API.G_EXC_ERROR THEN
2136: ROLLBACK TO LOCK_Web_Recomms_PVT;
2137: x_return_status := FND_API.G_RET_STS_ERROR;
2138: -- Standard call to get message count and if count=1, get the message
2139: FND_MSG_PUB.Count_And_Get (
2140: p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2136: ROLLBACK TO LOCK_Web_Recomms_PVT;
2137: x_return_status := FND_API.G_RET_STS_ERROR;
2138: -- Standard call to get message count and if count=1, get the message
2139: FND_MSG_PUB.Count_And_Get (
2140: p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2142: p_data => x_msg_data
2143: );
2144:
2141: p_count => x_msg_count,
2142: p_data => x_msg_data
2143: );
2144:
2145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2146: ROLLBACK TO LOCK_Web_Recomms_PVT;
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: -- Standard call to get message count and if count=1, get the message
2149: FND_MSG_PUB.Count_And_Get (
2143: );
2144:
2145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2146: ROLLBACK TO LOCK_Web_Recomms_PVT;
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: -- Standard call to get message count and if count=1, get the message
2149: FND_MSG_PUB.Count_And_Get (
2150: p_encoded => FND_API.G_FALSE,
2151: p_count => x_msg_count,
2146: ROLLBACK TO LOCK_Web_Recomms_PVT;
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: -- Standard call to get message count and if count=1, get the message
2149: FND_MSG_PUB.Count_And_Get (
2150: p_encoded => FND_API.G_FALSE,
2151: p_count => x_msg_count,
2152: p_data => x_msg_data
2153: );
2154:
2153: );
2154:
2155: WHEN OTHERS THEN
2156: ROLLBACK TO LOCK_Web_Recomms_PVT;
2157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2158: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2159: THEN
2160: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2161: END IF;
2160: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2161: END IF;
2162: -- Standard call to get message count and if count=1, get the message
2163: FND_MSG_PUB.Count_And_Get (
2164: p_encoded => FND_API.G_FALSE,
2165: p_count => x_msg_count,
2166: p_data => x_msg_data
2167: );
2168: End Lock_Web_Recomms;
2177: IS
2178: l_valid_flag VARCHAR2(1);
2179:
2180: BEGIN
2181: x_return_status := FND_API.g_ret_sts_success;
2182: IF p_validation_mode = JTF_PLSQL_API.g_create
2183: AND p_web_recomms_rec.web_recomm_id IS NOT NULL
2184: THEN
2185: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
2187: 'web_recomm_id = ''' || p_web_recomms_rec.web_recomm_id ||''''
2188: );
2189: END IF;
2190:
2191: IF l_valid_flag = FND_API.g_false THEN
2192: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_web_recomm_id_DUPLICATE');
2193: x_return_status := FND_API.g_ret_sts_error;
2194: END IF;
2195:
2189: END IF;
2190:
2191: IF l_valid_flag = FND_API.g_false THEN
2192: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_web_recomm_id_DUPLICATE');
2193: x_return_status := FND_API.g_ret_sts_error;
2194: END IF;
2195:
2196: END check_Web_Recomms_Uk_Items;
2197:
2203: x_return_status OUT NOCOPY VARCHAR2
2204: )
2205: IS
2206: BEGIN
2207: x_return_status := FND_API.g_ret_sts_success;
2208:
2209: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2210:
2211:
2208:
2209: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2210:
2211:
2212: -- IF p_web_recomms_rec.web_recomm_id = FND_API.G_MISS_NUM OR p_web_recomms_rec.web_recomm_id IS NULL THEN
2213: -- AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_RECOMM_ID' );
2214: -- x_return_status := FND_API.g_ret_sts_error;
2215: -- END IF;
2216:
2210:
2211:
2212: -- IF p_web_recomms_rec.web_recomm_id = FND_API.G_MISS_NUM OR p_web_recomms_rec.web_recomm_id IS NULL THEN
2213: -- AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_RECOMM_ID' );
2214: -- x_return_status := FND_API.g_ret_sts_error;
2215: -- END IF;
2216:
2217:
2218: IF p_web_recomms_rec.web_tracking_id = FND_API.G_MISS_NUM OR p_web_recomms_rec.web_tracking_id IS NULL THEN
2214: -- x_return_status := FND_API.g_ret_sts_error;
2215: -- END IF;
2216:
2217:
2218: IF p_web_recomms_rec.web_tracking_id = FND_API.G_MISS_NUM OR p_web_recomms_rec.web_tracking_id IS NULL THEN
2219: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
2220: x_return_status := FND_API.g_ret_sts_error;
2221: END IF;
2222:
2216:
2217:
2218: IF p_web_recomms_rec.web_tracking_id = FND_API.G_MISS_NUM OR p_web_recomms_rec.web_tracking_id IS NULL THEN
2219: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
2220: x_return_status := FND_API.g_ret_sts_error;
2221: END IF;
2222:
2223:
2224: ELSE
2223:
2224: ELSE
2225:
2226:
2227: IF p_web_recomms_rec.web_recomm_id = FND_API.G_MISS_NUM THEN
2228: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_RECOMM_ID' );
2229: x_return_status := FND_API.g_ret_sts_error;
2230: END IF;
2231:
2225:
2226:
2227: IF p_web_recomms_rec.web_recomm_id = FND_API.G_MISS_NUM THEN
2228: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_RECOMM_ID' );
2229: x_return_status := FND_API.g_ret_sts_error;
2230: END IF;
2231:
2232:
2233: IF p_web_recomms_rec.web_tracking_id = FND_API.G_MISS_NUM THEN
2229: x_return_status := FND_API.g_ret_sts_error;
2230: END IF;
2231:
2232:
2233: IF p_web_recomms_rec.web_tracking_id = FND_API.G_MISS_NUM THEN
2234: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
2235: x_return_status := FND_API.g_ret_sts_error;
2236: END IF;
2237: END IF;
2231:
2232:
2233: IF p_web_recomms_rec.web_tracking_id = FND_API.G_MISS_NUM THEN
2234: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'WEB_TRACKING_ID' );
2235: x_return_status := FND_API.g_ret_sts_error;
2236: END IF;
2237: END IF;
2238:
2239: END check_Web_Recomms_Req_Items;
2245: x_return_status OUT NOCOPY VARCHAR2
2246: )
2247: IS
2248: BEGIN
2249: x_return_status := FND_API.g_ret_sts_success;
2250:
2251: -- Enter custom code here
2252:
2253: END check_Web_Recomms_Fk_Items;
2259: x_return_status OUT NOCOPY VARCHAR2
2260: )
2261: IS
2262: BEGIN
2263: x_return_status := FND_API.g_ret_sts_success;
2264:
2265: -- Enter custom code here
2266:
2267: END check_Web_Recomms_Lookup_Items;
2276: IS
2277: l_return_status VARCHAR2(1);
2278: BEGIN
2279:
2280: l_return_status := FND_API.g_ret_sts_success;
2281: -- Check Items Uniqueness API calls
2282:
2283: check_Web_recomms_Uk_Items(
2284: p_web_recomms_rec => p_web_recomms_rec,
2283: check_Web_recomms_Uk_Items(
2284: p_web_recomms_rec => p_web_recomms_rec,
2285: p_validation_mode => p_validation_mode,
2286: x_return_status => x_return_status);
2287: IF x_return_status <> FND_API.g_ret_sts_success THEN
2288: l_return_status := FND_API.g_ret_sts_error;
2289: END IF;
2290:
2291: -- Check Items Required/NOT NULL API calls
2284: p_web_recomms_rec => p_web_recomms_rec,
2285: p_validation_mode => p_validation_mode,
2286: x_return_status => x_return_status);
2287: IF x_return_status <> FND_API.g_ret_sts_success THEN
2288: l_return_status := FND_API.g_ret_sts_error;
2289: END IF;
2290:
2291: -- Check Items Required/NOT NULL API calls
2292:
2293: check_web_recomms_req_items(
2294: p_web_recomms_rec => p_web_recomms_rec,
2295: p_validation_mode => p_validation_mode,
2296: x_return_status => x_return_status);
2297: IF x_return_status <> FND_API.g_ret_sts_success THEN
2298: l_return_status := FND_API.g_ret_sts_error;
2299: END IF;
2300: -- Check Items Foreign Keys API calls
2301:
2294: p_web_recomms_rec => p_web_recomms_rec,
2295: p_validation_mode => p_validation_mode,
2296: x_return_status => x_return_status);
2297: IF x_return_status <> FND_API.g_ret_sts_success THEN
2298: l_return_status := FND_API.g_ret_sts_error;
2299: END IF;
2300: -- Check Items Foreign Keys API calls
2301:
2302: check_web_recomms_FK_items(
2301:
2302: check_web_recomms_FK_items(
2303: p_web_recomms_rec => p_web_recomms_rec,
2304: x_return_status => x_return_status);
2305: IF x_return_status <> FND_API.g_ret_sts_success THEN
2306: l_return_status := FND_API.g_ret_sts_error;
2307: END IF;
2308: -- Check Items Lookups
2309:
2302: check_web_recomms_FK_items(
2303: p_web_recomms_rec => p_web_recomms_rec,
2304: x_return_status => x_return_status);
2305: IF x_return_status <> FND_API.g_ret_sts_success THEN
2306: l_return_status := FND_API.g_ret_sts_error;
2307: END IF;
2308: -- Check Items Lookups
2309:
2310: check_web_recomms_Lookup_items(
2309:
2310: check_web_recomms_Lookup_items(
2311: p_web_recomms_rec => p_web_recomms_rec,
2312: x_return_status => x_return_status);
2313: IF x_return_status <> FND_API.g_ret_sts_success THEN
2314: l_return_status := FND_API.g_ret_sts_error;
2315: END IF;
2316:
2317: x_return_status := l_return_status;
2310: check_web_recomms_Lookup_items(
2311: p_web_recomms_rec => p_web_recomms_rec,
2312: x_return_status => x_return_status);
2313: IF x_return_status <> FND_API.g_ret_sts_success THEN
2314: l_return_status := FND_API.g_ret_sts_error;
2315: END IF;
2316:
2317: x_return_status := l_return_status;
2318:
2498: l_web_recomms_rec web_recomms_rec_type := p_web_recomms_rec;
2499: BEGIN
2500: -- Developers should put their code to default the record type
2501: -- e.g. IF p_campaign_rec.status_code IS NULL
2502: -- OR p_campaign_rec.status_code = FND_API.G_MISS_CHAR THEN
2503: -- l_campaign_rec.status_code := 'NEW' ;
2504: -- END IF ;
2505: --
2506: NULL ;
2510:
2511:
2512: PROCEDURE Validate_Web_Recomms(
2513: p_api_version_number IN NUMBER,
2514: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2515: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2516: p_web_recomms_rec IN web_recomms_rec_type,
2517: p_validation_mode IN VARCHAR2,
2518: x_return_status OUT NOCOPY VARCHAR2,
2511:
2512: PROCEDURE Validate_Web_Recomms(
2513: p_api_version_number IN NUMBER,
2514: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2515: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2516: p_web_recomms_rec IN web_recomms_rec_type,
2517: p_validation_mode IN VARCHAR2,
2518: x_return_status OUT NOCOPY VARCHAR2,
2519: x_msg_count OUT NOCOPY NUMBER,
2529: -- Standard Start of API savepoint
2530: SAVEPOINT validate_web_recomms_;
2531:
2532: -- Standard call to check for call compatibility.
2533: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2534: p_api_version_number,
2535: l_api_name,
2536: G_PKG_NAME)
2537: THEN
2534: p_api_version_number,
2535: l_api_name,
2536: G_PKG_NAME)
2537: THEN
2538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2539: END IF;
2540:
2541:
2542: -- Initialize message list if p_init_msg_list is set to TRUE.
2539: END IF;
2540:
2541:
2542: -- Initialize message list if p_init_msg_list is set to TRUE.
2543: IF FND_API.to_Boolean( p_init_msg_list )
2544: THEN
2545: FND_MSG_PUB.initialize;
2546: END IF;
2547:
2552: p_validation_mode => p_validation_mode,
2553: x_return_status => x_return_status
2554: );
2555:
2556: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END IF;
2553: x_return_status => x_return_status
2554: );
2555:
2556: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END IF;
2561: END IF;
2554: );
2555:
2556: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END IF;
2561: END IF;
2562:
2555:
2556: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END IF;
2561: END IF;
2562:
2563: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2573:
2574: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2575: Validate_web_recomms_Rec(
2576: p_api_version_number => 1.0,
2577: p_init_msg_list => FND_API.G_FALSE,
2578: x_return_status => x_return_status,
2579: x_msg_count => x_msg_count,
2580: x_msg_data => x_msg_data,
2581: p_web_recomms_rec => l_web_recomms_rec);
2579: x_msg_count => x_msg_count,
2580: x_msg_data => x_msg_data,
2581: p_web_recomms_rec => l_web_recomms_rec);
2582:
2583: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2584: RAISE FND_API.G_EXC_ERROR;
2585: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2587: END IF;
2580: x_msg_data => x_msg_data,
2581: p_web_recomms_rec => l_web_recomms_rec);
2582:
2583: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2584: RAISE FND_API.G_EXC_ERROR;
2585: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2587: END IF;
2588: END IF;
2581: p_web_recomms_rec => l_web_recomms_rec);
2582:
2583: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2584: RAISE FND_API.G_EXC_ERROR;
2585: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2587: END IF;
2588: END IF;
2589:
2582:
2583: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2584: RAISE FND_API.G_EXC_ERROR;
2585: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2587: END IF;
2588: END IF;
2589:
2590:
2593:
2594:
2595:
2596: -- Initialize API return status to SUCCESS
2597: x_return_status := FND_API.G_RET_STS_SUCCESS;
2598:
2599:
2600: -- Debug Message
2601: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2608: );
2609: EXCEPTION
2610:
2611: WHEN AMS_Utility_PVT.resource_locked THEN
2612: x_return_status := FND_API.g_ret_sts_error;
2613: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2614:
2615: WHEN FND_API.G_EXC_ERROR THEN
2616: ROLLBACK TO VALIDATE_Web_Recomms_;
2611: WHEN AMS_Utility_PVT.resource_locked THEN
2612: x_return_status := FND_API.g_ret_sts_error;
2613: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2614:
2615: WHEN FND_API.G_EXC_ERROR THEN
2616: ROLLBACK TO VALIDATE_Web_Recomms_;
2617: x_return_status := FND_API.G_RET_STS_ERROR;
2618: -- Standard call to get message count and if count=1, get the message
2619: FND_MSG_PUB.Count_And_Get (
2613: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2614:
2615: WHEN FND_API.G_EXC_ERROR THEN
2616: ROLLBACK TO VALIDATE_Web_Recomms_;
2617: x_return_status := FND_API.G_RET_STS_ERROR;
2618: -- Standard call to get message count and if count=1, get the message
2619: FND_MSG_PUB.Count_And_Get (
2620: p_encoded => FND_API.G_FALSE,
2621: p_count => x_msg_count,
2616: ROLLBACK TO VALIDATE_Web_Recomms_;
2617: x_return_status := FND_API.G_RET_STS_ERROR;
2618: -- Standard call to get message count and if count=1, get the message
2619: FND_MSG_PUB.Count_And_Get (
2620: p_encoded => FND_API.G_FALSE,
2621: p_count => x_msg_count,
2622: p_data => x_msg_data
2623: );
2624:
2621: p_count => x_msg_count,
2622: p_data => x_msg_data
2623: );
2624:
2625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2626: ROLLBACK TO VALIDATE_Web_Recomms_;
2627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2628: -- Standard call to get message count and if count=1, get the message
2629: FND_MSG_PUB.Count_And_Get (
2623: );
2624:
2625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2626: ROLLBACK TO VALIDATE_Web_Recomms_;
2627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2628: -- Standard call to get message count and if count=1, get the message
2629: FND_MSG_PUB.Count_And_Get (
2630: p_encoded => FND_API.G_FALSE,
2631: p_count => x_msg_count,
2626: ROLLBACK TO VALIDATE_Web_Recomms_;
2627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2628: -- Standard call to get message count and if count=1, get the message
2629: FND_MSG_PUB.Count_And_Get (
2630: p_encoded => FND_API.G_FALSE,
2631: p_count => x_msg_count,
2632: p_data => x_msg_data
2633: );
2634:
2633: );
2634:
2635: WHEN OTHERS THEN
2636: ROLLBACK TO VALIDATE_Web_Recomms_;
2637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2638: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2639: THEN
2640: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2641: END IF;
2640: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2641: END IF;
2642: -- Standard call to get message count and if count=1, get the message
2643: FND_MSG_PUB.Count_And_Get (
2644: p_encoded => FND_API.G_FALSE,
2645: p_count => x_msg_count,
2646: p_data => x_msg_data
2647: );
2648: End Validate_Web_Recomms;
2649:
2650:
2651: PROCEDURE Validate_Web_Recomms_Rec (
2652: p_api_version_number IN NUMBER,
2653: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2654: x_return_status OUT NOCOPY VARCHAR2,
2655: x_msg_count OUT NOCOPY NUMBER,
2656: x_msg_data OUT NOCOPY VARCHAR2,
2657: p_web_recomms_rec IN web_recomms_rec_type
2658: )
2659: IS
2660: BEGIN
2661: -- Initialize message list if p_init_msg_list is set to TRUE.
2662: IF FND_API.to_Boolean( p_init_msg_list )
2663: THEN
2664: FND_MSG_PUB.initialize;
2665: END IF;
2666:
2666:
2667:
2668:
2669: -- Initialize API return status to SUCCESS
2670: x_return_status := FND_API.G_RET_STS_SUCCESS;
2671:
2672: -- Hint: Validate data
2673: -- If data not valid
2674: -- THEN
2671:
2672: -- Hint: Validate data
2673: -- If data not valid
2674: -- THEN
2675: -- x_return_status := FND_API.G_RET_STS_ERROR;
2676:
2677: -- Debug Message
2678: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
2679: -- Standard call to get message count and if count is 1, get message info.
2687:
2688:
2689: PROCEDURE Create_Web_Imp_Track (
2690: p_api_version_number IN NUMBER,
2691: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2692: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2693: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2694: p_web_track_rec IN web_track_rec_type,
2695: p_web_recomms_tbl IN web_recomms_tbl_type,
2688:
2689: PROCEDURE Create_Web_Imp_Track (
2690: p_api_version_number IN NUMBER,
2691: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2692: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2693: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2694: p_web_track_rec IN web_track_rec_type,
2695: p_web_recomms_tbl IN web_recomms_tbl_type,
2696: --p_web_prod IN VARCHAR2,
2689: PROCEDURE Create_Web_Imp_Track (
2690: p_api_version_number IN NUMBER,
2691: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2692: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2693: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2694: p_web_track_rec IN web_track_rec_type,
2695: p_web_recomms_tbl IN web_recomms_tbl_type,
2696: --p_web_prod IN VARCHAR2,
2697: x_impr_obj_id_rec OUT NOCOPY impr_obj_id_tbl_type,
2723: -- Standard Start of API savepoint
2724: SAVEPOINT Create_Web_Imp_Track;
2725:
2726: -- Initialize message list if p_init_msg_list is set to TRUE.
2727: IF FND_API.to_Boolean( p_init_msg_list )
2728: THEN
2729: FND_MSG_PUB.initialize;
2730: END IF;
2731:
2729: FND_MSG_PUB.initialize;
2730: END IF;
2731:
2732: -- Initialize API return status to SUCCESS
2733: x_return_status := FND_API.G_RET_STS_SUCCESS;
2734:
2735: -- Hint: Validate data
2736: -- If data not valid
2737: -- THEN
2734:
2735: -- Hint: Validate data
2736: -- If data not valid
2737: -- THEN
2738: -- x_return_status := FND_API.G_RET_STS_ERROR;
2739:
2740: -- Debug Message
2741: AMS_UTILITY_PVT.debug_message('Private API: Create_Web_Imp_Track');
2742: -- Standard call to get message count and if count is 1, get message info.
2764:
2765: IF (p_web_track_rec.schedule_id) IS NOT NULL THEN
2766: --insert_log_mesg('Calling Create_Web_Track ::::');
2767: Create_Web_Track(p_api_version_number => 1.0,
2768: p_init_msg_list => FND_API.G_FALSE,
2769: p_commit => FND_API.G_FALSE,
2770: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2771: x_return_status => x_return_status,
2772: x_msg_count => x_msg_count,
2765: IF (p_web_track_rec.schedule_id) IS NOT NULL THEN
2766: --insert_log_mesg('Calling Create_Web_Track ::::');
2767: Create_Web_Track(p_api_version_number => 1.0,
2768: p_init_msg_list => FND_API.G_FALSE,
2769: p_commit => FND_API.G_FALSE,
2770: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2771: x_return_status => x_return_status,
2772: x_msg_count => x_msg_count,
2773: x_msg_data => x_msg_data,
2766: --insert_log_mesg('Calling Create_Web_Track ::::');
2767: Create_Web_Track(p_api_version_number => 1.0,
2768: p_init_msg_list => FND_API.G_FALSE,
2769: p_commit => FND_API.G_FALSE,
2770: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2771: x_return_status => x_return_status,
2772: x_msg_count => x_msg_count,
2773: x_msg_data => x_msg_data,
2774: p_web_track_rec => l_web_track_rec,
2783: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2784: FND_MESSAGE.set_name('AMS', 'AMS_NO_PRIMARY_KEY');
2785: FND_MSG_PUB.add;
2786: END IF;
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2788: END IF;
2789:
2790: --dbms_output.put_line('after inserting into AMS_WEB_TRACKING '||l_web_tracking_id );
2791: --dbms_output.put_line('l_web_recomms_tbl_type.COUNT '||web_recomms_tbl_type.COUNT);
2805: l_web_recomms_rec.web_tracking_id := l_web_tracking_id;
2806: l_web_recomms_rec.recomm_type := 'IMPR_ONLY';
2807:
2808: Create_Web_Recomms(p_api_version_number => 1.0,
2809: p_init_msg_list => FND_API.G_FALSE,
2810: p_commit => FND_API.G_FALSE,
2811: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2812: x_return_status => x_return_status,
2813: x_msg_count => x_msg_count,
2806: l_web_recomms_rec.recomm_type := 'IMPR_ONLY';
2807:
2808: Create_Web_Recomms(p_api_version_number => 1.0,
2809: p_init_msg_list => FND_API.G_FALSE,
2810: p_commit => FND_API.G_FALSE,
2811: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2812: x_return_status => x_return_status,
2813: x_msg_count => x_msg_count,
2814: x_msg_data => x_msg_data,
2807:
2808: Create_Web_Recomms(p_api_version_number => 1.0,
2809: p_init_msg_list => FND_API.G_FALSE,
2810: p_commit => FND_API.G_FALSE,
2811: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2812: x_return_status => x_return_status,
2813: x_msg_count => x_msg_count,
2814: x_msg_data => x_msg_data,
2815: p_web_recomms_rec => l_web_recomms_rec,
2823: l_web_recomms_rec.web_tracking_id := l_web_tracking_id;
2824: l_web_recomms_rec.recomm_type := 'PROD';
2825:
2826: Create_Web_Recomms(p_api_version_number => 1.0,
2827: p_init_msg_list => FND_API.G_FALSE,
2828: p_commit => FND_API.G_FALSE,
2829: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2830: x_return_status => x_return_status,
2831: x_msg_count => x_msg_count,
2824: l_web_recomms_rec.recomm_type := 'PROD';
2825:
2826: Create_Web_Recomms(p_api_version_number => 1.0,
2827: p_init_msg_list => FND_API.G_FALSE,
2828: p_commit => FND_API.G_FALSE,
2829: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2830: x_return_status => x_return_status,
2831: x_msg_count => x_msg_count,
2832: x_msg_data => x_msg_data,
2825:
2826: Create_Web_Recomms(p_api_version_number => 1.0,
2827: p_init_msg_list => FND_API.G_FALSE,
2828: p_commit => FND_API.G_FALSE,
2829: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2830: x_return_status => x_return_status,
2831: x_msg_count => x_msg_count,
2832: x_msg_data => x_msg_data,
2833: p_web_recomms_rec => l_web_recomms_rec,
2852: l_web_recomms_rec := p_web_recomms_tbl(i);
2853: l_web_recomms_rec.web_tracking_id := l_web_tracking_id;
2854: l_web_recomms_rec.recomm_type := 'WEB_PROD';
2855: Create_Web_Recomms(p_api_version_number => 1.0,
2856: p_init_msg_list => FND_API.G_FALSE,
2857: p_commit => FND_API.G_FALSE,
2858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2859: x_return_status => x_return_status,
2860: x_msg_count => x_msg_count,
2853: l_web_recomms_rec.web_tracking_id := l_web_tracking_id;
2854: l_web_recomms_rec.recomm_type := 'WEB_PROD';
2855: Create_Web_Recomms(p_api_version_number => 1.0,
2856: p_init_msg_list => FND_API.G_FALSE,
2857: p_commit => FND_API.G_FALSE,
2858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2859: x_return_status => x_return_status,
2860: x_msg_count => x_msg_count,
2861: x_msg_data => x_msg_data,
2854: l_web_recomms_rec.recomm_type := 'WEB_PROD';
2855: Create_Web_Recomms(p_api_version_number => 1.0,
2856: p_init_msg_list => FND_API.G_FALSE,
2857: p_commit => FND_API.G_FALSE,
2858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2859: x_return_status => x_return_status,
2860: x_msg_count => x_msg_count,
2861: x_msg_data => x_msg_data,
2862: p_web_recomms_rec => l_web_recomms_rec,
2870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2871: FND_MESSAGE.set_name('AMS', 'AMS_NO_PRIMARY_KEY');
2872: FND_MSG_PUB.add;
2873: END IF;
2874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2875: END IF;
2876: x_impr_obj_id_rec(i).impr_track_id := l_web_recomm_id;
2877: x_impr_obj_id_rec(i).obj_id := l_web_recomms_rec.recomm_object_id;
2878:
2882: END IF;
2883:
2884: END IF; --
2885: --insert_log_mesg('Return Status ::::'||x_return_status);
2886: x_return_status := FND_API.g_ret_sts_success;
2887:
2888: --insert_log_mesg(p_commit);
2889:
2890: -- IF FND_API.to_Boolean( p_commit )
2886: x_return_status := FND_API.g_ret_sts_success;
2887:
2888: --insert_log_mesg(p_commit);
2889:
2890: -- IF FND_API.to_Boolean( p_commit )
2891: -- THEN
2892: --insert_log_mesg('COMMIT WORK');
2893: COMMIT WORK;
2894: -- END IF;
2897:
2898: EXCEPTION
2899:
2900: WHEN AMS_Utility_PVT.resource_locked THEN
2901: x_return_status := FND_API.g_ret_sts_error;
2902: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2903: --insert_log_mesg(x_return_status);
2904:
2905: WHEN FND_API.G_EXC_ERROR THEN
2901: x_return_status := FND_API.g_ret_sts_error;
2902: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
2903: --insert_log_mesg(x_return_status);
2904:
2905: WHEN FND_API.G_EXC_ERROR THEN
2906: ROLLBACK TO Create_Web_Imp_Track;
2907: x_return_status := FND_API.G_RET_STS_ERROR;
2908: -- Standard call to get message count and if count=1, get the message
2909: FND_MSG_PUB.Count_And_Get (
2903: --insert_log_mesg(x_return_status);
2904:
2905: WHEN FND_API.G_EXC_ERROR THEN
2906: ROLLBACK TO Create_Web_Imp_Track;
2907: x_return_status := FND_API.G_RET_STS_ERROR;
2908: -- Standard call to get message count and if count=1, get the message
2909: FND_MSG_PUB.Count_And_Get (
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2906: ROLLBACK TO Create_Web_Imp_Track;
2907: x_return_status := FND_API.G_RET_STS_ERROR;
2908: -- Standard call to get message count and if count=1, get the message
2909: FND_MSG_PUB.Count_And_Get (
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2912: p_data => x_msg_data
2913: );
2914: --insert_log_mesg(x_return_status);
2912: p_data => x_msg_data
2913: );
2914: --insert_log_mesg(x_return_status);
2915:
2916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2917: ROLLBACK TO Create_Web_Imp_Track;
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2919: -- Standard call to get message count and if count=1, get the message
2920: FND_MSG_PUB.Count_And_Get (
2914: --insert_log_mesg(x_return_status);
2915:
2916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2917: ROLLBACK TO Create_Web_Imp_Track;
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2919: -- Standard call to get message count and if count=1, get the message
2920: FND_MSG_PUB.Count_And_Get (
2921: p_encoded => FND_API.G_FALSE,
2922: p_count => x_msg_count,
2917: ROLLBACK TO Create_Web_Imp_Track;
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2919: -- Standard call to get message count and if count=1, get the message
2920: FND_MSG_PUB.Count_And_Get (
2921: p_encoded => FND_API.G_FALSE,
2922: p_count => x_msg_count,
2923: p_data => x_msg_data
2924: );
2925: --insert_log_mesg(x_return_status);
2925: --insert_log_mesg(x_return_status);
2926:
2927: WHEN OTHERS THEN
2928: ROLLBACK TO Create_Web_Imp_Track;
2929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2930: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2931: THEN
2932: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2933: END IF;
2932: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2933: END IF;
2934: -- Standard call to get message count and if count=1, get the message
2935: FND_MSG_PUB.Count_And_Get (
2936: p_encoded => FND_API.G_FALSE,
2937: p_count => x_msg_count,
2938: p_data => x_msg_data
2939: );
2940: --insert_log_mesg(x_return_status);