[Home] [Help]
36:
37: -- Hint: Primary key needs to be returned.
38: PROCEDURE Create_Dmtarget(
39: p_api_version_number IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
41: p_commit IN VARCHAR2 := FND_API.G_FALSE,
42: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
43:
44: x_return_status OUT NOCOPY VARCHAR2,
37: -- Hint: Primary key needs to be returned.
38: PROCEDURE Create_Dmtarget(
39: p_api_version_number IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
41: p_commit IN VARCHAR2 := FND_API.G_FALSE,
42: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
43:
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
38: PROCEDURE Create_Dmtarget(
39: p_api_version_number IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
41: p_commit IN VARCHAR2 := FND_API.G_FALSE,
42: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
43:
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
46: x_msg_data OUT NOCOPY VARCHAR2,
53: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Dmtarget';
54: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
55: l_return_status_full VARCHAR2(1);
56: l_object_version_number NUMBER := 1;
57: l_org_id NUMBER := FND_API.G_MISS_NUM;
58: l_TARGET_ID NUMBER;
59: l_dummy NUMBER;
60: l_dm_target_rec AMS_DM_TARGET_PVT.dm_target_rec_type := p_dm_target_rec;
61:
72: -- Standard Start of API savepoint
73: SAVEPOINT CREATE_Dmtarget_PVT;
74:
75: -- Standard call to check for call compatibility.
76: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
77: p_api_version_number,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
77: p_api_version_number,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
86: THEN
87: FND_MSG_PUB.initialize;
88: END IF;
89:
94: END IF;
95:
96:
97: -- Initialize API return status to SUCCESS
98: x_return_status := FND_API.G_RET_STS_SUCCESS;
99:
100: -- Local variable initialization
101:
102: IF l_dm_target_rec.TARGET_ID IS NULL OR l_dm_target_rec.TARGET_ID = FND_API.g_miss_num THEN
98: x_return_status := FND_API.G_RET_STS_SUCCESS;
99:
100: -- Local variable initialization
101:
102: IF l_dm_target_rec.TARGET_ID IS NULL OR l_dm_target_rec.TARGET_ID = FND_API.g_miss_num THEN
103: LOOP
104: l_dummy := NULL;
105: OPEN c_id;
106: FETCH c_id INTO l_dm_target_rec.TARGET_ID;
127: -- =========================================================================
128:
129: IF FND_GLOBAL.User_Id IS NULL THEN
130: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
135: THEN
130: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
134: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
135: THEN
136: -- Invoke validation procedures
137: Validate_dmtarget(
138: p_api_version_number => 1.0,
135: THEN
136: -- Invoke validation procedures
137: Validate_dmtarget(
138: p_api_version_number => 1.0,
139: p_init_msg_list => FND_API.G_FALSE,
140: p_validation_level => p_validation_level,
141: p_validation_mode => JTF_PLSQL_API.g_create,
142: p_dm_target_rec => l_dm_target_rec,
143: x_return_status => x_return_status,
144: x_msg_count => x_msg_count,
145: x_msg_data => x_msg_data);
146: END IF;
147:
148: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151:
152:
145: x_msg_data => x_msg_data);
146: END IF;
147:
148: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151:
152:
153: -- Debug Message
175: );
176:
177: x_target_id := l_dm_target_rec.target_id;
178:
179: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
180: RAISE FND_API.G_EXC_ERROR;
181: END IF;
182:
183: /* obsoleted rosharma 11.5.10 for Audience data source uptake
176:
177: x_target_id := l_dm_target_rec.target_id;
178:
179: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
180: RAISE FND_API.G_EXC_ERROR;
181: END IF;
182:
183: /* obsoleted rosharma 11.5.10 for Audience data source uptake
184: -- After successfully inserting the Target, enable the data source
194: -- End of API body
195: --
196:
197: -- Standard check for p_commit
198: IF FND_API.to_Boolean( p_commit ) THEN
199: COMMIT WORK;
200: END IF;
201:
202:
213: );
214: EXCEPTION
215:
216: WHEN AMS_Utility_PVT.resource_locked THEN
217: x_return_status := FND_API.g_ret_sts_error;
218: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
219:
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO CREATE_Dmtarget_PVT;
216: WHEN AMS_Utility_PVT.resource_locked THEN
217: x_return_status := FND_API.g_ret_sts_error;
218: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
219:
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO CREATE_Dmtarget_PVT;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: -- Standard call to get message count and if count=1, get the message
224: FND_MSG_PUB.Count_And_Get (
218: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
219:
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO CREATE_Dmtarget_PVT;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: -- Standard call to get message count and if count=1, get the message
224: FND_MSG_PUB.Count_And_Get (
225: p_encoded => FND_API.G_FALSE,
226: p_count => x_msg_count,
221: ROLLBACK TO CREATE_Dmtarget_PVT;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: -- Standard call to get message count and if count=1, get the message
224: FND_MSG_PUB.Count_And_Get (
225: p_encoded => FND_API.G_FALSE,
226: p_count => x_msg_count,
227: p_data => x_msg_data
228: );
229:
226: p_count => x_msg_count,
227: p_data => x_msg_data
228: );
229:
230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231: ROLLBACK TO CREATE_Dmtarget_PVT;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: -- Standard call to get message count and if count=1, get the message
234: FND_MSG_PUB.Count_And_Get (
228: );
229:
230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231: ROLLBACK TO CREATE_Dmtarget_PVT;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: -- Standard call to get message count and if count=1, get the message
234: FND_MSG_PUB.Count_And_Get (
235: p_encoded => FND_API.G_FALSE,
236: p_count => x_msg_count,
231: ROLLBACK TO CREATE_Dmtarget_PVT;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: -- Standard call to get message count and if count=1, get the message
234: FND_MSG_PUB.Count_And_Get (
235: p_encoded => FND_API.G_FALSE,
236: p_count => x_msg_count,
237: p_data => x_msg_data
238: );
239:
238: );
239:
240: WHEN OTHERS THEN
241: ROLLBACK TO CREATE_Dmtarget_PVT;
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
244: THEN
245: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
246: END IF;
245: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
246: END IF;
247: -- Standard call to get message count and if count=1, get the message
248: FND_MSG_PUB.Count_And_Get (
249: p_encoded => FND_API.G_FALSE,
250: p_count => x_msg_count,
251: p_data => x_msg_data
252: );
253: End Create_Dmtarget;
254:
255:
256: PROCEDURE Update_Dmtarget(
257: p_api_version_number IN NUMBER,
258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261:
262: x_return_status OUT NOCOPY VARCHAR2,
255:
256: PROCEDURE Update_Dmtarget(
257: p_api_version_number IN NUMBER,
258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261:
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
256: PROCEDURE Update_Dmtarget(
257: p_api_version_number IN NUMBER,
258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261:
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
264: x_msg_data OUT NOCOPY VARCHAR2,
288: -- Standard Start of API savepoint
289: SAVEPOINT UPDATE_Dmtarget_PVT;
290:
291: -- Standard call to check for call compatibility.
292: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
293: p_api_version_number,
294: l_api_name,
295: G_PKG_NAME)
296: THEN
293: p_api_version_number,
294: l_api_name,
295: G_PKG_NAME)
296: THEN
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298: END IF;
299:
300: -- Initialize message list if p_init_msg_list is set to TRUE.
301: IF FND_API.to_Boolean( p_init_msg_list )
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298: END IF;
299:
300: -- Initialize message list if p_init_msg_list is set to TRUE.
301: IF FND_API.to_Boolean( p_init_msg_list )
302: THEN
303: FND_MSG_PUB.initialize;
304: END IF;
305:
310: END IF;
311:
312:
313: -- Initialize API return status to SUCCESS
314: x_return_status := FND_API.G_RET_STS_SUCCESS;
315:
316: -- Complete missing entries in the record before updating
317: Complete_dm_target_Rec(
318: p_dm_target_rec => p_dm_target_rec,
331: FETCH c_get_Dmtarget INTO l_ref_dm_target_rec ;
332:
333: IF ( c_get_Dmtarget%NOTFOUND) THEN
334: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET', p_token_name => 'INFO', p_token_value => 'Dmtarget') ;
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
337:
338: -- Debug Message
339: IF (AMS_DEBUG_HIGH_ON) THEN
342: END IF;
343: CLOSE c_get_Dmtarget;
344:
345: IF (l_tar_dm_target_rec.object_version_number is NULL or
346: l_tar_dm_target_rec.object_version_number = FND_API.G_MISS_NUM ) Then
347: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING', p_token_name => 'COLUMN', p_token_value => 'Last_Update_Date') ;
348: raise FND_API.G_EXC_ERROR;
349: End if;
350:
344:
345: IF (l_tar_dm_target_rec.object_version_number is NULL or
346: l_tar_dm_target_rec.object_version_number = FND_API.G_MISS_NUM ) Then
347: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING', p_token_name => 'COLUMN', p_token_value => 'Last_Update_Date') ;
348: raise FND_API.G_EXC_ERROR;
349: End if;
350:
351: -- Check Whether record has been changed by someone else
352: IF (l_tar_dm_target_rec.object_version_number <> l_ref_dm_target_rec.object_version_number) Then
350:
351: -- Check Whether record has been changed by someone else
352: IF (l_tar_dm_target_rec.object_version_number <> l_ref_dm_target_rec.object_version_number) Then
353: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED', p_token_name => 'INFO', p_token_value => 'Dmtarget') ;
354: raise FND_API.G_EXC_ERROR;
355: End if;
356:
357: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
358: THEN
353: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED', p_token_name => 'INFO', p_token_value => 'Dmtarget') ;
354: raise FND_API.G_EXC_ERROR;
355: End if;
356:
357: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
358: THEN
359:
360: -- Invoke validation procedures
361: Validate_dmtarget(
359:
360: -- Invoke validation procedures
361: Validate_dmtarget(
362: p_api_version_number => 1.0,
363: p_init_msg_list => FND_API.G_FALSE,
364: p_validation_level => p_validation_level,
365: p_validation_mode => JTF_PLSQL_API.g_update,
366: p_dm_target_rec => l_tar_dm_target_rec,
367: x_return_status => x_return_status,
368: x_msg_count => x_msg_count,
369: x_msg_data => x_msg_data);
370: END IF;
371:
372: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
373: RAISE FND_API.G_EXC_ERROR;
374: END IF;
375:
376:
369: x_msg_data => x_msg_data);
370: END IF;
371:
372: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
373: RAISE FND_API.G_EXC_ERROR;
374: END IF;
375:
376:
377: -- Debug Message
457:
458: EXCEPTION
459: WHEN NO_DATA_FOUND THEN
460: AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
461: RAISE FND_API.G_EXC_ERROR;
462: END;
463:
464: x_object_version_number := l_tar_dm_target_rec.object_version_number + 1;
465:
467: -- End of API body.
468: --
469:
470: -- Standard check for p_commit
471: IF FND_API.to_Boolean( p_commit )
472: THEN
473: COMMIT WORK;
474: END IF;
475:
487: );
488: EXCEPTION
489:
490: WHEN AMS_Utility_PVT.resource_locked THEN
491: x_return_status := FND_API.g_ret_sts_error;
492: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
493:
494: WHEN FND_API.G_EXC_ERROR THEN
495: ROLLBACK TO UPDATE_Dmtarget_PVT;
490: WHEN AMS_Utility_PVT.resource_locked THEN
491: x_return_status := FND_API.g_ret_sts_error;
492: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
493:
494: WHEN FND_API.G_EXC_ERROR THEN
495: ROLLBACK TO UPDATE_Dmtarget_PVT;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: -- Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
492: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
493:
494: WHEN FND_API.G_EXC_ERROR THEN
495: ROLLBACK TO UPDATE_Dmtarget_PVT;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: -- Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
499: p_encoded => FND_API.G_FALSE,
500: p_count => x_msg_count,
495: ROLLBACK TO UPDATE_Dmtarget_PVT;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: -- Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
499: p_encoded => FND_API.G_FALSE,
500: p_count => x_msg_count,
501: p_data => x_msg_data
502: );
503:
500: p_count => x_msg_count,
501: p_data => x_msg_data
502: );
503:
504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
505: ROLLBACK TO UPDATE_Dmtarget_PVT;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: -- Standard call to get message count and if count=1, get the message
508: FND_MSG_PUB.Count_And_Get (
502: );
503:
504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
505: ROLLBACK TO UPDATE_Dmtarget_PVT;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: -- Standard call to get message count and if count=1, get the message
508: FND_MSG_PUB.Count_And_Get (
509: p_encoded => FND_API.G_FALSE,
510: p_count => x_msg_count,
505: ROLLBACK TO UPDATE_Dmtarget_PVT;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: -- Standard call to get message count and if count=1, get the message
508: FND_MSG_PUB.Count_And_Get (
509: p_encoded => FND_API.G_FALSE,
510: p_count => x_msg_count,
511: p_data => x_msg_data
512: );
513:
512: );
513:
514: WHEN OTHERS THEN
515: ROLLBACK TO UPDATE_Dmtarget_PVT;
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
518: THEN
519: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
520: END IF;
519: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
520: END IF;
521: -- Standard call to get message count and if count=1, get the message
522: FND_MSG_PUB.Count_And_Get (
523: p_encoded => FND_API.G_FALSE,
524: p_count => x_msg_count,
525: p_data => x_msg_data
526: );
527: End Update_Dmtarget;
528:
529:
530: PROCEDURE Delete_Dmtarget(
531: p_api_version_number IN NUMBER,
532: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
533: p_commit IN VARCHAR2 := FND_API.G_FALSE,
534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
535: x_return_status OUT NOCOPY VARCHAR2,
536: x_msg_count OUT NOCOPY NUMBER,
529:
530: PROCEDURE Delete_Dmtarget(
531: p_api_version_number IN NUMBER,
532: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
533: p_commit IN VARCHAR2 := FND_API.G_FALSE,
534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
535: x_return_status OUT NOCOPY VARCHAR2,
536: x_msg_count OUT NOCOPY NUMBER,
537: x_msg_data OUT NOCOPY VARCHAR2,
530: PROCEDURE Delete_Dmtarget(
531: p_api_version_number IN NUMBER,
532: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
533: p_commit IN VARCHAR2 := FND_API.G_FALSE,
534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
535: x_return_status OUT NOCOPY VARCHAR2,
536: x_msg_count OUT NOCOPY NUMBER,
537: x_msg_data OUT NOCOPY VARCHAR2,
538: p_target_id IN NUMBER,
572: -- Standard Start of API savepoint
573: SAVEPOINT DELETE_Dmtarget_PVT;
574:
575: -- Standard call to check for call compatibility.
576: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
577: p_api_version_number,
578: l_api_name,
579: G_PKG_NAME)
580: THEN
577: p_api_version_number,
578: l_api_name,
579: G_PKG_NAME)
580: THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583:
584: -- Initialize message list if p_init_msg_list is set to TRUE.
585: IF FND_API.to_Boolean( p_init_msg_list )
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583:
584: -- Initialize message list if p_init_msg_list is set to TRUE.
585: IF FND_API.to_Boolean( p_init_msg_list )
586: THEN
587: FND_MSG_PUB.initialize;
588: END IF;
589:
594: END IF;
595:
596:
597: -- Initialize API return status to SUCCESS
598: x_return_status := FND_API.G_RET_STS_SUCCESS;
599:
600: -- Validate that the Target is not used by any model
601: OPEN c_target_used(p_target_id);
602: FETCH c_target_used INTO l_no_of_models;
602: FETCH c_target_used INTO l_no_of_models;
603: CLOSE c_target_used;
604: IF l_no_of_models > 0 THEN
605: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_DM_TARGET_USED');
606: x_return_status := FND_API.g_ret_sts_error;
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
610: -- First Delete Target Values associated with this target (if any)
603: CLOSE c_target_used;
604: IF l_no_of_models > 0 THEN
605: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_DM_TARGET_USED');
606: x_return_status := FND_API.g_ret_sts_error;
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
610: -- First Delete Target Values associated with this target (if any)
611: IF (AMS_DEBUG_HIGH_ON) THEN
679: -- End of API body
680: --
681:
682: -- Standard check for p_commit
683: IF FND_API.to_Boolean( p_commit )
684: THEN
685: COMMIT WORK;
686: END IF;
687:
699: );
700: EXCEPTION
701:
702: WHEN AMS_Utility_PVT.resource_locked THEN
703: x_return_status := FND_API.g_ret_sts_error;
704: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
705:
706: WHEN FND_API.G_EXC_ERROR THEN
707: ROLLBACK TO DELETE_Dmtarget_PVT;
702: WHEN AMS_Utility_PVT.resource_locked THEN
703: x_return_status := FND_API.g_ret_sts_error;
704: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
705:
706: WHEN FND_API.G_EXC_ERROR THEN
707: ROLLBACK TO DELETE_Dmtarget_PVT;
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: -- Standard call to get message count and if count=1, get the message
710: FND_MSG_PUB.Count_And_Get (
704: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
705:
706: WHEN FND_API.G_EXC_ERROR THEN
707: ROLLBACK TO DELETE_Dmtarget_PVT;
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: -- Standard call to get message count and if count=1, get the message
710: FND_MSG_PUB.Count_And_Get (
711: p_encoded => FND_API.G_FALSE,
712: p_count => x_msg_count,
707: ROLLBACK TO DELETE_Dmtarget_PVT;
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: -- Standard call to get message count and if count=1, get the message
710: FND_MSG_PUB.Count_And_Get (
711: p_encoded => FND_API.G_FALSE,
712: p_count => x_msg_count,
713: p_data => x_msg_data
714: );
715:
712: p_count => x_msg_count,
713: p_data => x_msg_data
714: );
715:
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717: ROLLBACK TO DELETE_Dmtarget_PVT;
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: -- Standard call to get message count and if count=1, get the message
720: FND_MSG_PUB.Count_And_Get (
714: );
715:
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717: ROLLBACK TO DELETE_Dmtarget_PVT;
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: -- Standard call to get message count and if count=1, get the message
720: FND_MSG_PUB.Count_And_Get (
721: p_encoded => FND_API.G_FALSE,
722: p_count => x_msg_count,
717: ROLLBACK TO DELETE_Dmtarget_PVT;
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: -- Standard call to get message count and if count=1, get the message
720: FND_MSG_PUB.Count_And_Get (
721: p_encoded => FND_API.G_FALSE,
722: p_count => x_msg_count,
723: p_data => x_msg_data
724: );
725:
724: );
725:
726: WHEN OTHERS THEN
727: ROLLBACK TO DELETE_Dmtarget_PVT;
728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
729: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
730: THEN
731: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
732: END IF;
731: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
732: END IF;
733: -- Standard call to get message count and if count=1, get the message
734: FND_MSG_PUB.Count_And_Get (
735: p_encoded => FND_API.G_FALSE,
736: p_count => x_msg_count,
737: p_data => x_msg_data
738: );
739: End Delete_Dmtarget;
742:
743: -- Hint: Primary key needs to be returned.
744: PROCEDURE Lock_Dmtarget(
745: p_api_version_number IN NUMBER,
746: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
747:
748: x_return_status OUT NOCOPY VARCHAR2,
749: x_msg_count OUT NOCOPY NUMBER,
750: x_msg_data OUT NOCOPY VARCHAR2,
774: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
775: END IF;
776:
777: -- Initialize message list if p_init_msg_list is set to TRUE.
778: IF FND_API.to_Boolean( p_init_msg_list )
779: THEN
780: FND_MSG_PUB.initialize;
781: END IF;
782:
780: FND_MSG_PUB.initialize;
781: END IF;
782:
783: -- Standard call to check for call compatibility.
784: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
785: p_api_version_number,
786: l_api_name,
787: G_PKG_NAME)
788: THEN
785: p_api_version_number,
786: l_api_name,
787: G_PKG_NAME)
788: THEN
789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
790: END IF;
791:
792:
793: -- Initialize API return status to SUCCESS
790: END IF;
791:
792:
793: -- Initialize API return status to SUCCESS
794: x_return_status := FND_API.G_RET_STS_SUCCESS;
795:
796:
797: ------------------------ lock -------------------------
798:
812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
813: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
814: FND_MSG_PUB.add;
815: END IF;
816: RAISE FND_API.g_exc_error;
817: END IF;
818:
819: CLOSE c_Dmtarget;
820:
819: CLOSE c_Dmtarget;
820:
821: -------------------- finish --------------------------
822: FND_MSG_PUB.count_and_get(
823: p_encoded => FND_API.g_false,
824: p_count => x_msg_count,
825: p_data => x_msg_data);
826: IF (AMS_DEBUG_HIGH_ON) THEN
827:
829: END IF;
830: EXCEPTION
831:
832: WHEN AMS_Utility_PVT.resource_locked THEN
833: x_return_status := FND_API.g_ret_sts_error;
834: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
835:
836: WHEN FND_API.G_EXC_ERROR THEN
837: ROLLBACK TO LOCK_Dmtarget_PVT;
832: WHEN AMS_Utility_PVT.resource_locked THEN
833: x_return_status := FND_API.g_ret_sts_error;
834: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
835:
836: WHEN FND_API.G_EXC_ERROR THEN
837: ROLLBACK TO LOCK_Dmtarget_PVT;
838: x_return_status := FND_API.G_RET_STS_ERROR;
839: -- Standard call to get message count and if count=1, get the message
840: FND_MSG_PUB.Count_And_Get (
834: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
835:
836: WHEN FND_API.G_EXC_ERROR THEN
837: ROLLBACK TO LOCK_Dmtarget_PVT;
838: x_return_status := FND_API.G_RET_STS_ERROR;
839: -- Standard call to get message count and if count=1, get the message
840: FND_MSG_PUB.Count_And_Get (
841: p_encoded => FND_API.G_FALSE,
842: p_count => x_msg_count,
837: ROLLBACK TO LOCK_Dmtarget_PVT;
838: x_return_status := FND_API.G_RET_STS_ERROR;
839: -- Standard call to get message count and if count=1, get the message
840: FND_MSG_PUB.Count_And_Get (
841: p_encoded => FND_API.G_FALSE,
842: p_count => x_msg_count,
843: p_data => x_msg_data
844: );
845:
842: p_count => x_msg_count,
843: p_data => x_msg_data
844: );
845:
846: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
847: ROLLBACK TO LOCK_Dmtarget_PVT;
848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
849: -- Standard call to get message count and if count=1, get the message
850: FND_MSG_PUB.Count_And_Get (
844: );
845:
846: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
847: ROLLBACK TO LOCK_Dmtarget_PVT;
848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
849: -- Standard call to get message count and if count=1, get the message
850: FND_MSG_PUB.Count_And_Get (
851: p_encoded => FND_API.G_FALSE,
852: p_count => x_msg_count,
847: ROLLBACK TO LOCK_Dmtarget_PVT;
848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
849: -- Standard call to get message count and if count=1, get the message
850: FND_MSG_PUB.Count_And_Get (
851: p_encoded => FND_API.G_FALSE,
852: p_count => x_msg_count,
853: p_data => x_msg_data
854: );
855:
854: );
855:
856: WHEN OTHERS THEN
857: ROLLBACK TO LOCK_Dmtarget_PVT;
858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
859: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
860: THEN
861: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
862: END IF;
861: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
862: END IF;
863: -- Standard call to get message count and if count=1, get the message
864: FND_MSG_PUB.Count_And_Get (
865: p_encoded => FND_API.G_FALSE,
866: p_count => x_msg_count,
867: p_data => x_msg_data
868: );
869: End Lock_Dmtarget;
903: IF (AMS_DEBUG_HIGH_ON) THEN
904:
905: AMS_UTILITY_PVT.debug_message('Private API:check_dm_target_uk_items');
906: END IF;
907: x_return_status := FND_API.g_ret_sts_success;
908:
909: --Validate unique target_id
910: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
911: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
919: ''' AND TARGET_ID <> ' || p_dm_target_rec.TARGET_ID
920: );
921: END IF;
922:
923: IF l_valid_flag = FND_API.g_false THEN
924: AMS_Utility_PVT.Error_Message('AMS_API_DUPLICATE_ID', 'ID_FIELD','TARGET_ID');
925: x_return_status := FND_API.g_ret_sts_error;
926: RETURN;
927: END IF;
921: END IF;
922:
923: IF l_valid_flag = FND_API.g_false THEN
924: AMS_Utility_PVT.Error_Message('AMS_API_DUPLICATE_ID', 'ID_FIELD','TARGET_ID');
925: x_return_status := FND_API.g_ret_sts_error;
926: RETURN;
927: END IF;
928:
929: --Validate unique target_name
938: END IF;
939:
940: IF l_dummy IS NOT NULL THEN
941: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_DM_DUP_TARGET_NAME');
942: x_return_status := FND_API.g_ret_sts_error;
943: RETURN;
944: END IF;
945:
946: /* commented rosharma. not needed anymore for 11.5.10 and hence
954: AMS_UTILITY_PVT.debug_message('l_number ' || l_number);
955: END IF;
956: IF l_number > 0 THEN
957: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_DM_DUP_MODEL_TARGET');
958: x_return_status := FND_API.g_ret_sts_error;
959: RETURN;
960: END IF;
961: */
962:
970: x_return_status OUT NOCOPY VARCHAR2
971: )
972: IS
973: BEGIN
974: x_return_status := FND_API.g_ret_sts_success;
975:
976: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
977:
978: IF (AMS_DEBUG_HIGH_ON) THEN
982: ams_utility_pvt.debug_message('Private API:check_dm_target_req_items for CREATE');
983:
984: END IF;
985:
986: IF p_dm_target_rec.target_id = FND_API.g_miss_num OR p_dm_target_rec.target_id IS NULL THEN
987: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_ID');
988: x_return_status := FND_API.g_ret_sts_error;
989: END IF;
990: IF p_dm_target_rec.active_flag = FND_API.g_miss_char OR p_dm_target_rec.active_flag IS NULL THEN
984: END IF;
985:
986: IF p_dm_target_rec.target_id = FND_API.g_miss_num OR p_dm_target_rec.target_id IS NULL THEN
987: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_ID');
988: x_return_status := FND_API.g_ret_sts_error;
989: END IF;
990: IF p_dm_target_rec.active_flag = FND_API.g_miss_char OR p_dm_target_rec.active_flag IS NULL THEN
991: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','ACTIVE_FLAG');
992: x_return_status := FND_API.g_ret_sts_error;
986: IF p_dm_target_rec.target_id = FND_API.g_miss_num OR p_dm_target_rec.target_id IS NULL THEN
987: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_ID');
988: x_return_status := FND_API.g_ret_sts_error;
989: END IF;
990: IF p_dm_target_rec.active_flag = FND_API.g_miss_char OR p_dm_target_rec.active_flag IS NULL THEN
991: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','ACTIVE_FLAG');
992: x_return_status := FND_API.g_ret_sts_error;
993: END IF;
994: IF p_dm_target_rec.model_type = FND_API.g_miss_char OR p_dm_target_rec.model_type IS NULL THEN
988: x_return_status := FND_API.g_ret_sts_error;
989: END IF;
990: IF p_dm_target_rec.active_flag = FND_API.g_miss_char OR p_dm_target_rec.active_flag IS NULL THEN
991: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','ACTIVE_FLAG');
992: x_return_status := FND_API.g_ret_sts_error;
993: END IF;
994: IF p_dm_target_rec.model_type = FND_API.g_miss_char OR p_dm_target_rec.model_type IS NULL THEN
995: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','MODEL_TYPE');
996: x_return_status := FND_API.g_ret_sts_error;
990: IF p_dm_target_rec.active_flag = FND_API.g_miss_char OR p_dm_target_rec.active_flag IS NULL THEN
991: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','ACTIVE_FLAG');
992: x_return_status := FND_API.g_ret_sts_error;
993: END IF;
994: IF p_dm_target_rec.model_type = FND_API.g_miss_char OR p_dm_target_rec.model_type IS NULL THEN
995: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','MODEL_TYPE');
996: x_return_status := FND_API.g_ret_sts_error;
997: END IF;
998: IF p_dm_target_rec.data_source_id = FND_API.g_miss_num OR p_dm_target_rec.data_source_id IS NULL THEN
992: x_return_status := FND_API.g_ret_sts_error;
993: END IF;
994: IF p_dm_target_rec.model_type = FND_API.g_miss_char OR p_dm_target_rec.model_type IS NULL THEN
995: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','MODEL_TYPE');
996: x_return_status := FND_API.g_ret_sts_error;
997: END IF;
998: IF p_dm_target_rec.data_source_id = FND_API.g_miss_num OR p_dm_target_rec.data_source_id IS NULL THEN
999: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','DATA_SOURCE_ID');
1000: x_return_status := FND_API.g_ret_sts_error;
994: IF p_dm_target_rec.model_type = FND_API.g_miss_char OR p_dm_target_rec.model_type IS NULL THEN
995: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','MODEL_TYPE');
996: x_return_status := FND_API.g_ret_sts_error;
997: END IF;
998: IF p_dm_target_rec.data_source_id = FND_API.g_miss_num OR p_dm_target_rec.data_source_id IS NULL THEN
999: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','DATA_SOURCE_ID');
1000: x_return_status := FND_API.g_ret_sts_error;
1001: END IF;
1002: IF p_dm_target_rec.source_field_id = FND_API.g_miss_num OR p_dm_target_rec.source_field_id IS NULL THEN
996: x_return_status := FND_API.g_ret_sts_error;
997: END IF;
998: IF p_dm_target_rec.data_source_id = FND_API.g_miss_num OR p_dm_target_rec.data_source_id IS NULL THEN
999: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','DATA_SOURCE_ID');
1000: x_return_status := FND_API.g_ret_sts_error;
1001: END IF;
1002: IF p_dm_target_rec.source_field_id = FND_API.g_miss_num OR p_dm_target_rec.source_field_id IS NULL THEN
1003: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','SOURCE_FIELD_ID');
1004: x_return_status := FND_API.g_ret_sts_error;
998: IF p_dm_target_rec.data_source_id = FND_API.g_miss_num OR p_dm_target_rec.data_source_id IS NULL THEN
999: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','DATA_SOURCE_ID');
1000: x_return_status := FND_API.g_ret_sts_error;
1001: END IF;
1002: IF p_dm_target_rec.source_field_id = FND_API.g_miss_num OR p_dm_target_rec.source_field_id IS NULL THEN
1003: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','SOURCE_FIELD_ID');
1004: x_return_status := FND_API.g_ret_sts_error;
1005: END IF;
1006: -- added rosharma for audience DS uptake
1000: x_return_status := FND_API.g_ret_sts_error;
1001: END IF;
1002: IF p_dm_target_rec.source_field_id = FND_API.g_miss_num OR p_dm_target_rec.source_field_id IS NULL THEN
1003: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','SOURCE_FIELD_ID');
1004: x_return_status := FND_API.g_ret_sts_error;
1005: END IF;
1006: -- added rosharma for audience DS uptake
1007: IF p_dm_target_rec.target_source_id = FND_API.g_miss_num OR p_dm_target_rec.target_source_id IS NULL THEN
1008: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_SOURCE_ID');
1003: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','SOURCE_FIELD_ID');
1004: x_return_status := FND_API.g_ret_sts_error;
1005: END IF;
1006: -- added rosharma for audience DS uptake
1007: IF p_dm_target_rec.target_source_id = FND_API.g_miss_num OR p_dm_target_rec.target_source_id IS NULL THEN
1008: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_SOURCE_ID');
1009: x_return_status := FND_API.g_ret_sts_error;
1010: END IF;
1011: ELSE
1005: END IF;
1006: -- added rosharma for audience DS uptake
1007: IF p_dm_target_rec.target_source_id = FND_API.g_miss_num OR p_dm_target_rec.target_source_id IS NULL THEN
1008: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_SOURCE_ID');
1009: x_return_status := FND_API.g_ret_sts_error;
1010: END IF;
1011: ELSE
1012: IF (AMS_DEBUG_HIGH_ON) THEN
1013:
1015: END IF;
1016:
1017: IF p_dm_target_rec.target_id IS NULL THEN
1018: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_ID');
1019: x_return_status := FND_API.g_ret_sts_error;
1020: END IF;
1021: IF p_dm_target_rec.last_update_date IS NULL THEN
1022: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','LAST_UPDATE_DATE');
1023: x_return_status := FND_API.g_ret_sts_error;
1019: x_return_status := FND_API.g_ret_sts_error;
1020: END IF;
1021: IF p_dm_target_rec.last_update_date IS NULL THEN
1022: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','LAST_UPDATE_DATE');
1023: x_return_status := FND_API.g_ret_sts_error;
1024: END IF;
1025: IF p_dm_target_rec.last_updated_by IS NULL THEN
1026: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','LAST_UPDATED_BY');
1027: x_return_status := FND_API.g_ret_sts_error;
1023: x_return_status := FND_API.g_ret_sts_error;
1024: END IF;
1025: IF p_dm_target_rec.last_updated_by IS NULL THEN
1026: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','LAST_UPDATED_BY');
1027: x_return_status := FND_API.g_ret_sts_error;
1028: END IF;
1029: IF p_dm_target_rec.creation_date IS NULL THEN
1030: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','CREATION_DATE');
1031: x_return_status := FND_API.g_ret_sts_error;
1027: x_return_status := FND_API.g_ret_sts_error;
1028: END IF;
1029: IF p_dm_target_rec.creation_date IS NULL THEN
1030: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','CREATION_DATE');
1031: x_return_status := FND_API.g_ret_sts_error;
1032: END IF;
1033: IF p_dm_target_rec.created_by IS NULL THEN
1034: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','CREATED_BY');
1035: x_return_status := FND_API.g_ret_sts_error;
1031: x_return_status := FND_API.g_ret_sts_error;
1032: END IF;
1033: IF p_dm_target_rec.created_by IS NULL THEN
1034: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','CREATED_BY');
1035: x_return_status := FND_API.g_ret_sts_error;
1036: END IF;
1037: IF p_dm_target_rec.active_flag IS NULL THEN
1038: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','ACTIVE_FLAG');
1039: x_return_status := FND_API.g_ret_sts_error;
1035: x_return_status := FND_API.g_ret_sts_error;
1036: END IF;
1037: IF p_dm_target_rec.active_flag IS NULL THEN
1038: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','ACTIVE_FLAG');
1039: x_return_status := FND_API.g_ret_sts_error;
1040: END IF;
1041: IF p_dm_target_rec.model_type IS NULL THEN
1042: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','MODEL_TYPE');
1043: x_return_status := FND_API.g_ret_sts_error;
1039: x_return_status := FND_API.g_ret_sts_error;
1040: END IF;
1041: IF p_dm_target_rec.model_type IS NULL THEN
1042: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','MODEL_TYPE');
1043: x_return_status := FND_API.g_ret_sts_error;
1044: END IF;
1045: IF p_dm_target_rec.data_source_id IS NULL THEN
1046: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','DATA_SOURCE_ID');
1047: x_return_status := FND_API.g_ret_sts_error;
1043: x_return_status := FND_API.g_ret_sts_error;
1044: END IF;
1045: IF p_dm_target_rec.data_source_id IS NULL THEN
1046: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','DATA_SOURCE_ID');
1047: x_return_status := FND_API.g_ret_sts_error;
1048: END IF;
1049: IF p_dm_target_rec.source_field_id IS NULL THEN
1050: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','SOURCE_FIELD_ID');
1051: x_return_status := FND_API.g_ret_sts_error;
1047: x_return_status := FND_API.g_ret_sts_error;
1048: END IF;
1049: IF p_dm_target_rec.source_field_id IS NULL THEN
1050: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','SOURCE_FIELD_ID');
1051: x_return_status := FND_API.g_ret_sts_error;
1052: END IF;
1053: IF (p_dm_target_rec.object_version_number IS NULL OR p_dm_target_rec.object_version_number = FND_API.G_MISS_NUM) THEN
1054: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','OBJECT_VERSION_NUMBER');
1055: x_return_status := FND_API.g_ret_sts_error;
1049: IF p_dm_target_rec.source_field_id IS NULL THEN
1050: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','SOURCE_FIELD_ID');
1051: x_return_status := FND_API.g_ret_sts_error;
1052: END IF;
1053: IF (p_dm_target_rec.object_version_number IS NULL OR p_dm_target_rec.object_version_number = FND_API.G_MISS_NUM) THEN
1054: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','OBJECT_VERSION_NUMBER');
1055: x_return_status := FND_API.g_ret_sts_error;
1056: END IF;
1057: -- added rosharma for audience DS uptake
1051: x_return_status := FND_API.g_ret_sts_error;
1052: END IF;
1053: IF (p_dm_target_rec.object_version_number IS NULL OR p_dm_target_rec.object_version_number = FND_API.G_MISS_NUM) THEN
1054: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','OBJECT_VERSION_NUMBER');
1055: x_return_status := FND_API.g_ret_sts_error;
1056: END IF;
1057: -- added rosharma for audience DS uptake
1058: IF p_dm_target_rec.target_source_id = FND_API.g_miss_num OR p_dm_target_rec.target_source_id IS NULL THEN
1059: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_SOURCE_ID');
1054: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','OBJECT_VERSION_NUMBER');
1055: x_return_status := FND_API.g_ret_sts_error;
1056: END IF;
1057: -- added rosharma for audience DS uptake
1058: IF p_dm_target_rec.target_source_id = FND_API.g_miss_num OR p_dm_target_rec.target_source_id IS NULL THEN
1059: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_SOURCE_ID');
1060: x_return_status := FND_API.g_ret_sts_error;
1061: END IF;
1062: END IF;
1056: END IF;
1057: -- added rosharma for audience DS uptake
1058: IF p_dm_target_rec.target_source_id = FND_API.g_miss_num OR p_dm_target_rec.target_source_id IS NULL THEN
1059: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD','TARGET_SOURCE_ID');
1060: x_return_status := FND_API.g_ret_sts_error;
1061: END IF;
1062: END IF;
1063:
1064: END check_dm_target_req_items;
1072: IF (AMS_DEBUG_HIGH_ON) THEN
1073:
1074: AMS_UTILITY_PVT.debug_message('Private API:check_dm_target_FK_items');
1075: END IF;
1076: x_return_status := FND_API.g_ret_sts_success;
1077:
1078: --------------------data_source_id---------------------------
1079: IF p_dm_target_rec.data_source_id <> FND_API.g_miss_num THEN
1080: IF AMS_Utility_PVT.check_fk_exists(
1075: END IF;
1076: x_return_status := FND_API.g_ret_sts_success;
1077:
1078: --------------------data_source_id---------------------------
1079: IF p_dm_target_rec.data_source_id <> FND_API.g_miss_num THEN
1080: IF AMS_Utility_PVT.check_fk_exists(
1081: 'ams_list_src_types',
1082: 'list_source_type_id',
1083: p_dm_target_rec.data_source_id
1080: IF AMS_Utility_PVT.check_fk_exists(
1081: 'ams_list_src_types',
1082: 'list_source_type_id',
1083: p_dm_target_rec.data_source_id
1084: ) = FND_API.g_false
1085: THEN
1086: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'DATA_SOURCE_ID');
1087: x_return_status := FND_API.g_ret_sts_error;
1088: END IF;
1083: p_dm_target_rec.data_source_id
1084: ) = FND_API.g_false
1085: THEN
1086: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'DATA_SOURCE_ID');
1087: x_return_status := FND_API.g_ret_sts_error;
1088: END IF;
1089: END IF;
1090:
1091:
1089: END IF;
1090:
1091:
1092: --------------------source_field_id---------------------------
1093: IF p_dm_target_rec.source_field_id <> FND_API.g_miss_num THEN
1094: IF AMS_Utility_PVT.check_fk_exists(
1095: 'ams_list_src_fields',
1096: 'list_source_field_id',
1097: p_dm_target_rec.source_field_id
1094: IF AMS_Utility_PVT.check_fk_exists(
1095: 'ams_list_src_fields',
1096: 'list_source_field_id',
1097: p_dm_target_rec.source_field_id
1098: ) = FND_API.g_false
1099: THEN
1100: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'SOURCE_FIELD_ID');
1101: x_return_status := FND_API.g_ret_sts_error;
1102: END IF;
1097: p_dm_target_rec.source_field_id
1098: ) = FND_API.g_false
1099: THEN
1100: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'SOURCE_FIELD_ID');
1101: x_return_status := FND_API.g_ret_sts_error;
1102: END IF;
1103: END IF;
1104:
1105:
1104:
1105:
1106: -- added rosharma for audience DS uptake
1107: --------------------target_source_id---------------------------
1108: IF p_dm_target_rec.target_source_id <> FND_API.g_miss_num THEN
1109: IF AMS_Utility_PVT.check_fk_exists(
1110: 'ams_list_src_types',
1111: 'list_source_type_id',
1112: p_dm_target_rec.target_source_id
1109: IF AMS_Utility_PVT.check_fk_exists(
1110: 'ams_list_src_types',
1111: 'list_source_type_id',
1112: p_dm_target_rec.target_source_id
1113: ) = FND_API.g_false
1114: THEN
1115: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'TARGET_SOURCE_ID');
1116: x_return_status := FND_API.g_ret_sts_error;
1117: END IF;
1112: p_dm_target_rec.target_source_id
1113: ) = FND_API.g_false
1114: THEN
1115: AMS_Utility_PVT.error_message ('AMS_API_INVALID_FK', 'COLUMN_NAME', 'TARGET_SOURCE_ID');
1116: x_return_status := FND_API.g_ret_sts_error;
1117: END IF;
1118: END IF;
1119: END check_dm_target_FK_items;
1120:
1127: IF (AMS_DEBUG_HIGH_ON) THEN
1128:
1129: AMS_UTILITY_PVT.debug_message('Private API:check_dm_target_Lookup_items');
1130: END IF;
1131: x_return_status := FND_API.g_ret_sts_success;
1132:
1133: ----------------------- model_type ------------------------
1134: IF p_dm_target_rec.model_type <> FND_API.g_miss_char THEN
1135: IF AMS_Utility_PVT.check_lookup_exists(
1130: END IF;
1131: x_return_status := FND_API.g_ret_sts_success;
1132:
1133: ----------------------- model_type ------------------------
1134: IF p_dm_target_rec.model_type <> FND_API.g_miss_char THEN
1135: IF AMS_Utility_PVT.check_lookup_exists(
1136: p_lookup_type => 'AMS_DM_MODEL_TYPE',
1137: p_lookup_code => p_dm_target_rec.model_type
1138: ) = FND_API.g_false
1134: IF p_dm_target_rec.model_type <> FND_API.g_miss_char THEN
1135: IF AMS_Utility_PVT.check_lookup_exists(
1136: p_lookup_type => 'AMS_DM_MODEL_TYPE',
1137: p_lookup_code => p_dm_target_rec.model_type
1138: ) = FND_API.g_false
1139: THEN
1140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1141: THEN
1142: FND_MESSAGE.set_name('AMS', 'AMS_API_INVALID_LOOKUP');
1144: FND_MESSAGE.set_token ('COLUMN_NAME', 'MODEL_TYPE');
1145: FND_MSG_PUB.add;
1146: END IF;
1147:
1148: x_return_status := FND_API.g_ret_sts_error;
1149: END IF;
1150: END IF;
1151:
1152: END check_dm_target_Lookup_items;
1164: check_dm_target_uk_items(
1165: p_dm_target_rec => p_dm_target_rec,
1166: p_validation_mode => p_validation_mode,
1167: x_return_status => x_return_status);
1168: IF x_return_status <> FND_API.g_ret_sts_success THEN
1169: RETURN;
1170: END IF;
1171:
1172: -- Check Items Required/NOT NULL API calls
1173: check_dm_target_req_items(
1174: p_dm_target_rec => p_dm_target_rec,
1175: p_validation_mode => p_validation_mode,
1176: x_return_status => x_return_status);
1177: IF x_return_status <> FND_API.g_ret_sts_success THEN
1178: RETURN;
1179: END IF;
1180:
1181: -- Check Items Foreign Keys API calls
1181: -- Check Items Foreign Keys API calls
1182: check_dm_target_FK_items(
1183: p_dm_target_rec => p_dm_target_rec,
1184: x_return_status => x_return_status);
1185: IF x_return_status <> FND_API.g_ret_sts_success THEN
1186: RETURN;
1187: END IF;
1188:
1189: -- Check Items Lookups
1189: -- Check Items Lookups
1190: check_dm_target_Lookup_items(
1191: p_dm_target_rec => p_dm_target_rec,
1192: x_return_status => x_return_status);
1193: IF x_return_status <> FND_API.g_ret_sts_success THEN
1194: RETURN;
1195: END IF;
1196:
1197: END Check_dm_target_Items;
1223: FETCH c_complete INTO l_dm_target_rec;
1224: CLOSE c_complete;
1225:
1226: -- target_id
1227: IF p_dm_target_rec.target_id = FND_API.g_miss_num THEN
1228: x_complete_rec.target_id := l_dm_target_rec.target_id;
1229: END IF;
1230:
1231: -- last_update_date
1228: x_complete_rec.target_id := l_dm_target_rec.target_id;
1229: END IF;
1230:
1231: -- last_update_date
1232: IF p_dm_target_rec.last_update_date = FND_API.g_miss_date THEN
1233: x_complete_rec.last_update_date := l_dm_target_rec.last_update_date;
1234: END IF;
1235:
1236: -- last_updated_by
1233: x_complete_rec.last_update_date := l_dm_target_rec.last_update_date;
1234: END IF;
1235:
1236: -- last_updated_by
1237: IF p_dm_target_rec.last_updated_by = FND_API.g_miss_num THEN
1238: x_complete_rec.last_updated_by := l_dm_target_rec.last_updated_by;
1239: END IF;
1240:
1241: -- creation_date
1238: x_complete_rec.last_updated_by := l_dm_target_rec.last_updated_by;
1239: END IF;
1240:
1241: -- creation_date
1242: IF p_dm_target_rec.creation_date = FND_API.g_miss_date THEN
1243: x_complete_rec.creation_date := l_dm_target_rec.creation_date;
1244: END IF;
1245:
1246: -- created_by
1243: x_complete_rec.creation_date := l_dm_target_rec.creation_date;
1244: END IF;
1245:
1246: -- created_by
1247: IF p_dm_target_rec.created_by = FND_API.g_miss_num THEN
1248: x_complete_rec.created_by := l_dm_target_rec.created_by;
1249: END IF;
1250:
1251: -- last_update_login
1248: x_complete_rec.created_by := l_dm_target_rec.created_by;
1249: END IF;
1250:
1251: -- last_update_login
1252: IF p_dm_target_rec.last_update_login = FND_API.g_miss_num THEN
1253: x_complete_rec.last_update_login := l_dm_target_rec.last_update_login;
1254: END IF;
1255:
1256: -- object_version_number
1253: x_complete_rec.last_update_login := l_dm_target_rec.last_update_login;
1254: END IF;
1255:
1256: -- object_version_number
1257: IF p_dm_target_rec.object_version_number = FND_API.g_miss_num THEN
1258: x_complete_rec.object_version_number := l_dm_target_rec.object_version_number;
1259: END IF;
1260:
1261: -- active_flag
1258: x_complete_rec.object_version_number := l_dm_target_rec.object_version_number;
1259: END IF;
1260:
1261: -- active_flag
1262: IF p_dm_target_rec.active_flag = FND_API.g_miss_char THEN
1263: x_complete_rec.active_flag := l_dm_target_rec.active_flag;
1264: END IF;
1265:
1266: -- model_type
1263: x_complete_rec.active_flag := l_dm_target_rec.active_flag;
1264: END IF;
1265:
1266: -- model_type
1267: IF p_dm_target_rec.model_type = FND_API.g_miss_char THEN
1268: x_complete_rec.model_type := l_dm_target_rec.model_type;
1269: END IF;
1270:
1271: -- data_source_id
1268: x_complete_rec.model_type := l_dm_target_rec.model_type;
1269: END IF;
1270:
1271: -- data_source_id
1272: IF p_dm_target_rec.data_source_id = FND_API.g_miss_num THEN
1273: x_complete_rec.data_source_id := l_dm_target_rec.data_source_id;
1274: END IF;
1275:
1276: -- source_field_id
1273: x_complete_rec.data_source_id := l_dm_target_rec.data_source_id;
1274: END IF;
1275:
1276: -- source_field_id
1277: IF p_dm_target_rec.source_field_id = FND_API.g_miss_num THEN
1278: x_complete_rec.source_field_id := l_dm_target_rec.source_field_id;
1279: END IF;
1280:
1281: -- target_source_id
1278: x_complete_rec.source_field_id := l_dm_target_rec.source_field_id;
1279: END IF;
1280:
1281: -- target_source_id
1282: IF p_dm_target_rec.target_source_id = FND_API.g_miss_num THEN
1283: x_complete_rec.target_source_id := l_dm_target_rec.target_source_id;
1284: END IF;
1285:
1286: -- Note: Developers need to modify the procedure
1295: END Complete_dm_target_Rec;
1296:
1297: PROCEDURE Validate_dmtarget(
1298: p_api_version_number IN NUMBER,
1299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1300: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1301: p_dm_target_rec IN dm_target_rec_type,
1302: p_validation_mode IN VARCHAR2,
1303: x_return_status OUT NOCOPY VARCHAR2,
1296:
1297: PROCEDURE Validate_dmtarget(
1298: p_api_version_number IN NUMBER,
1299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1300: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1301: p_dm_target_rec IN dm_target_rec_type,
1302: p_validation_mode IN VARCHAR2,
1303: x_return_status OUT NOCOPY VARCHAR2,
1304: x_msg_count OUT NOCOPY NUMBER,
1321: END IF;
1322:
1323:
1324: -- Standard call to check for call compatibility.
1325: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1326: p_api_version_number,
1327: l_api_name,
1328: G_PKG_NAME)
1329: THEN
1326: p_api_version_number,
1327: l_api_name,
1328: G_PKG_NAME)
1329: THEN
1330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1331: END IF;
1332:
1333: -- Initialize message list if p_init_msg_list is set to TRUE.
1334: IF FND_API.to_Boolean( p_init_msg_list )
1330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1331: END IF;
1332:
1333: -- Initialize message list if p_init_msg_list is set to TRUE.
1334: IF FND_API.to_Boolean( p_init_msg_list )
1335: THEN
1336: FND_MSG_PUB.initialize;
1337: END IF;
1338:
1342: p_validation_mode => p_validation_mode,
1343: x_return_status => x_return_status
1344: );
1345:
1346: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1347: RAISE FND_API.G_EXC_ERROR;
1348: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1350: END IF;
1343: x_return_status => x_return_status
1344: );
1345:
1346: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1347: RAISE FND_API.G_EXC_ERROR;
1348: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1350: END IF;
1351: END IF;
1344: );
1345:
1346: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1347: RAISE FND_API.G_EXC_ERROR;
1348: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1350: END IF;
1351: END IF;
1352:
1345:
1346: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1347: RAISE FND_API.G_EXC_ERROR;
1348: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1350: END IF;
1351: END IF;
1352:
1353: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1352:
1353: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1354: Validate_dm_target_Rec(
1355: p_api_version_number => 1.0,
1356: p_init_msg_list => FND_API.G_FALSE,
1357: x_return_status => x_return_status,
1358: x_msg_count => x_msg_count,
1359: x_msg_data => x_msg_data,
1360: p_dm_target_rec => l_dm_target_rec);
1358: x_msg_count => x_msg_count,
1359: x_msg_data => x_msg_data,
1360: p_dm_target_rec => l_dm_target_rec);
1361:
1362: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1363: RAISE FND_API.G_EXC_ERROR;
1364: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1359: x_msg_data => x_msg_data,
1360: p_dm_target_rec => l_dm_target_rec);
1361:
1362: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1363: RAISE FND_API.G_EXC_ERROR;
1364: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367: END IF;
1360: p_dm_target_rec => l_dm_target_rec);
1361:
1362: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1363: RAISE FND_API.G_EXC_ERROR;
1364: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367: END IF;
1368:
1361:
1362: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1363: RAISE FND_API.G_EXC_ERROR;
1364: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1366: END IF;
1367: END IF;
1368:
1369:
1367: END IF;
1368:
1369:
1370: -- Initialize API return status to SUCCESS
1371: x_return_status := FND_API.G_RET_STS_SUCCESS;
1372:
1373:
1374: -- Debug Message
1375: IF (AMS_DEBUG_HIGH_ON) THEN
1384: );
1385: EXCEPTION
1386:
1387: WHEN AMS_Utility_PVT.resource_locked THEN
1388: x_return_status := FND_API.g_ret_sts_error;
1389: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1390:
1391: WHEN FND_API.G_EXC_ERROR THEN
1392: ROLLBACK TO VALIDATE_Dmtarget_;
1387: WHEN AMS_Utility_PVT.resource_locked THEN
1388: x_return_status := FND_API.g_ret_sts_error;
1389: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1390:
1391: WHEN FND_API.G_EXC_ERROR THEN
1392: ROLLBACK TO VALIDATE_Dmtarget_;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: -- Standard call to get message count and if count=1, get the message
1395: FND_MSG_PUB.Count_And_Get (
1389: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1390:
1391: WHEN FND_API.G_EXC_ERROR THEN
1392: ROLLBACK TO VALIDATE_Dmtarget_;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: -- Standard call to get message count and if count=1, get the message
1395: FND_MSG_PUB.Count_And_Get (
1396: p_encoded => FND_API.G_FALSE,
1397: p_count => x_msg_count,
1392: ROLLBACK TO VALIDATE_Dmtarget_;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: -- Standard call to get message count and if count=1, get the message
1395: FND_MSG_PUB.Count_And_Get (
1396: p_encoded => FND_API.G_FALSE,
1397: p_count => x_msg_count,
1398: p_data => x_msg_data
1399: );
1400:
1397: p_count => x_msg_count,
1398: p_data => x_msg_data
1399: );
1400:
1401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1402: ROLLBACK TO VALIDATE_Dmtarget_;
1403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1404: -- Standard call to get message count and if count=1, get the message
1405: FND_MSG_PUB.Count_And_Get (
1399: );
1400:
1401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1402: ROLLBACK TO VALIDATE_Dmtarget_;
1403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1404: -- Standard call to get message count and if count=1, get the message
1405: FND_MSG_PUB.Count_And_Get (
1406: p_encoded => FND_API.G_FALSE,
1407: p_count => x_msg_count,
1402: ROLLBACK TO VALIDATE_Dmtarget_;
1403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1404: -- Standard call to get message count and if count=1, get the message
1405: FND_MSG_PUB.Count_And_Get (
1406: p_encoded => FND_API.G_FALSE,
1407: p_count => x_msg_count,
1408: p_data => x_msg_data
1409: );
1410:
1409: );
1410:
1411: WHEN OTHERS THEN
1412: ROLLBACK TO VALIDATE_Dmtarget_;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1415: THEN
1416: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1417: END IF;
1416: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1417: END IF;
1418: -- Standard call to get message count and if count=1, get the message
1419: FND_MSG_PUB.Count_And_Get (
1420: p_encoded => FND_API.G_FALSE,
1421: p_count => x_msg_count,
1422: p_data => x_msg_data
1423: );
1424: End Validate_Dmtarget;
1425:
1426:
1427: PROCEDURE Validate_dm_target_rec(
1428: p_api_version_number IN NUMBER,
1429: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1430: x_return_status OUT NOCOPY VARCHAR2,
1431: x_msg_count OUT NOCOPY NUMBER,
1432: x_msg_data OUT NOCOPY VARCHAR2,
1433: p_dm_target_rec IN dm_target_rec_type
1440: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_target_rec');
1441: END IF;
1442:
1443: -- Initialize message list if p_init_msg_list is set to TRUE.
1444: IF FND_API.to_Boolean( p_init_msg_list )
1445: THEN
1446: FND_MSG_PUB.initialize;
1447: END IF;
1448:
1446: FND_MSG_PUB.initialize;
1447: END IF;
1448:
1449: -- Initialize API return status to SUCCESS
1450: x_return_status := FND_API.G_RET_STS_SUCCESS;
1451:
1452: -- Hint: Validate data
1453: -- If data not valid
1454: -- THEN
1451:
1452: -- Hint: Validate data
1453: -- If data not valid
1454: -- THEN
1455: -- x_return_status := FND_API.G_RET_STS_ERROR;
1456:
1457: -- Standard call to get message count and if count is 1, get message info.
1458: FND_MSG_PUB.Count_And_Get
1459: (p_count => x_msg_count,
1487: -- user id of the currently logged in user.
1488: l_owner_user_id NUMBER := AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id);
1489: BEGIN
1490: -- Initialize API return status to SUCCESS
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1492:
1493: IF (AMS_DEBUG_HIGH_ON) THEN
1494:
1495:
1503: p_object_type => L_TARGET_QUALIFIER,
1504: p_user_or_role_id => l_owner_user_id,
1505: p_user_or_role_type => L_ACCESS_TYPE_USER) = 'N' THEN
1506: AMS_Utility_PVT.error_message ('AMS_TARGET_NO_UPDATE_ACCESS');
1507: x_return_status := FND_API.G_RET_STS_ERROR;
1508: END IF;
1509: END check_access;
1510:
1511: -- ==============================================================================