[Home] [Help]
29:
30: -- Hint: Primary key needs to be returned.
31: PROCEDURE Create_List_Src_Field(
32: p_api_version_number IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
34: p_commit IN VARCHAR2 := FND_API.G_FALSE,
35: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
36:
37: x_return_status OUT NOCOPY VARCHAR2,
30: -- Hint: Primary key needs to be returned.
31: PROCEDURE Create_List_Src_Field(
32: p_api_version_number IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
34: p_commit IN VARCHAR2 := FND_API.G_FALSE,
35: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
36:
37: x_return_status OUT NOCOPY VARCHAR2,
38: x_msg_count OUT NOCOPY NUMBER,
31: PROCEDURE Create_List_Src_Field(
32: p_api_version_number IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
34: p_commit IN VARCHAR2 := FND_API.G_FALSE,
35: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
36:
37: x_return_status OUT NOCOPY VARCHAR2,
38: x_msg_count OUT NOCOPY NUMBER,
39: x_msg_data OUT NOCOPY VARCHAR2,
46: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_List_Src_Field';
47: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
48: l_return_status_full VARCHAR2(1);
49: l_object_version_number NUMBER := 1;
50: l_org_id NUMBER := FND_API.G_MISS_NUM;
51: l_LIST_SOURCE_FIELD_ID NUMBER;
52: l_dummy NUMBER;
53: l_table_name VARCHAR2(30);
54: l_column_name VARCHAR2(30);
85: -- Standard Start of API savepoint
86: SAVEPOINT CREATE_List_Src_Field_PVT;
87:
88: -- Standard call to check for call compatibility.
89: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
90: p_api_version_number,
91: l_api_name,
92: G_PKG_NAME)
93: THEN
90: p_api_version_number,
91: l_api_name,
92: G_PKG_NAME)
93: THEN
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: -- Initialize message list if p_init_msg_list is set to TRUE.
98: IF FND_API.to_Boolean( p_init_msg_list )
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: -- Initialize message list if p_init_msg_list is set to TRUE.
98: IF FND_API.to_Boolean( p_init_msg_list )
99: THEN
100: FND_MSG_PUB.initialize;
101: END IF;
102:
104: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
105:
106:
107: -- Initialize API return status to SUCCESS
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
109:
110: -- Local variable initialization
111:
112: IF p_list_src_field_rec.LIST_SOURCE_FIELD_ID IS NULL OR p_list_src_field_rec.LIST_SOURCE_FIELD_ID = FND_API.g_miss_num THEN
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
109:
110: -- Local variable initialization
111:
112: IF p_list_src_field_rec.LIST_SOURCE_FIELD_ID IS NULL OR p_list_src_field_rec.LIST_SOURCE_FIELD_ID = FND_API.g_miss_num THEN
113: LOOP
114: l_dummy := NULL;
115: OPEN c_id;
116: FETCH c_id INTO l_LIST_SOURCE_FIELD_ID;
129:
130: IF FND_GLOBAL.User_Id IS NULL
131: THEN
132: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135:
136: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
137: THEN
132: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135:
136: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
137: THEN
138: -- Debug message
139: AMS_UTILITY_PVT.debug_message('Private API: Validate_List_Src_Field');
140:
140:
141: -- Invoke validation procedures
142: Validate_list_src_field(
143: p_api_version_number => 1.0,
144: p_init_msg_list => FND_API.G_FALSE,
145: p_validation_level => p_validation_level,
146: p_list_src_field_rec => p_list_src_field_rec,
147: x_return_status => x_return_status,
148: x_msg_count => x_msg_count,
148: x_msg_count => x_msg_count,
149: x_msg_data => x_msg_data);
150: END IF;
151:
152: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
153: RAISE FND_API.G_EXC_ERROR;
154: END IF;
155:
156: -- check if source_column_name exist
149: x_msg_data => x_msg_data);
150: END IF;
151:
152: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
153: RAISE FND_API.G_EXC_ERROR;
154: END IF;
155:
156: -- check if source_column_name exist
157: OPEN c_get_table_name(p_list_src_field_rec.list_source_type_id);
159: if (c_get_table_name%NOTFOUND)
160: THEN
161: close c_get_table_name;
162: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','source_object_name');
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165: close c_get_table_name;
166:
167:
170: if (c_get_column_name%NOTFOUND)
171: THEN
172: close c_get_column_name;
173: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','source_column_name');
174: RAISE FND_API.G_EXC_ERROR;
175:
176: END IF;
177: close c_get_column_name;
178:
184: if (c_get_column_name%NOTFOUND)
185: THEN
186: close c_get_column_name;
187: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_column_name');
188: RAISE FND_API.G_EXC_ERROR;
189: END IF;
190: close c_get_column_name;
191: */
192:
226: p_lov_defined_flag => p_list_src_field_rec.lov_defined_flag,
227: p_column_type => NULL
228: );
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: --
234: -- End of API body
227: p_column_type => NULL
228: );
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: --
234: -- End of API body
235: --
234: -- End of API body
235: --
236: x_list_source_field_id := l_list_source_field_id;
237: -- Standard check for p_commit
238: IF FND_API.to_Boolean( p_commit )
239: THEN
240: COMMIT WORK;
241: END IF;
242:
251: );
252: EXCEPTION
253:
254: WHEN AMS_Utility_PVT.resource_locked THEN
255: x_return_status := FND_API.g_ret_sts_error;
256: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
257:
258: WHEN FND_API.G_EXC_ERROR THEN
259: ROLLBACK TO CREATE_List_Src_Field_PVT;
254: WHEN AMS_Utility_PVT.resource_locked THEN
255: x_return_status := FND_API.g_ret_sts_error;
256: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
257:
258: WHEN FND_API.G_EXC_ERROR THEN
259: ROLLBACK TO CREATE_List_Src_Field_PVT;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: -- Standard call to get message count and if count=1, get the message
262: FND_MSG_PUB.Count_And_Get (
256: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
257:
258: WHEN FND_API.G_EXC_ERROR THEN
259: ROLLBACK TO CREATE_List_Src_Field_PVT;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: -- Standard call to get message count and if count=1, get the message
262: FND_MSG_PUB.Count_And_Get (
263: p_encoded => FND_API.G_FALSE,
264: p_count => x_msg_count,
259: ROLLBACK TO CREATE_List_Src_Field_PVT;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: -- Standard call to get message count and if count=1, get the message
262: FND_MSG_PUB.Count_And_Get (
263: p_encoded => FND_API.G_FALSE,
264: p_count => x_msg_count,
265: p_data => x_msg_data
266: );
267:
264: p_count => x_msg_count,
265: p_data => x_msg_data
266: );
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO CREATE_List_Src_Field_PVT;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
266: );
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO CREATE_List_Src_Field_PVT;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
269: ROLLBACK TO CREATE_List_Src_Field_PVT;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
275: p_data => x_msg_data
276: );
277:
276: );
277:
278: WHEN OTHERS THEN
279: ROLLBACK TO CREATE_List_Src_Field_PVT;
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284: END IF;
283: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284: END IF;
285: -- Standard call to get message count and if count=1, get the message
286: FND_MSG_PUB.Count_And_Get (
287: p_encoded => FND_API.G_FALSE,
288: p_count => x_msg_count,
289: p_data => x_msg_data
290: );
291: End Create_List_Src_Field;
292:
293:
294: PROCEDURE Update_List_Src_Field(
295: p_api_version_number IN NUMBER,
296: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
297: p_commit IN VARCHAR2 := FND_API.G_FALSE,
298: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
299:
300: x_return_status OUT NOCOPY VARCHAR2,
293:
294: PROCEDURE Update_List_Src_Field(
295: p_api_version_number IN NUMBER,
296: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
297: p_commit IN VARCHAR2 := FND_API.G_FALSE,
298: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
299:
300: x_return_status OUT NOCOPY VARCHAR2,
301: x_msg_count OUT NOCOPY NUMBER,
294: PROCEDURE Update_List_Src_Field(
295: p_api_version_number IN NUMBER,
296: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
297: p_commit IN VARCHAR2 := FND_API.G_FALSE,
298: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
299:
300: x_return_status OUT NOCOPY VARCHAR2,
301: x_msg_count OUT NOCOPY NUMBER,
302: x_msg_data OUT NOCOPY VARCHAR2,
355: -- Standard Start of API savepoint
356: SAVEPOINT UPDATE_List_Src_Field_PVT;
357:
358: -- Standard call to check for call compatibility.
359: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
360: p_api_version_number,
361: l_api_name,
362: G_PKG_NAME)
363: THEN
360: p_api_version_number,
361: l_api_name,
362: G_PKG_NAME)
363: THEN
364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
365: END IF;
366:
367: -- Initialize message list if p_init_msg_list is set to TRUE.
368: IF FND_API.to_Boolean( p_init_msg_list )
364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
365: END IF;
366:
367: -- Initialize message list if p_init_msg_list is set to TRUE.
368: IF FND_API.to_Boolean( p_init_msg_list )
369: THEN
370: FND_MSG_PUB.initialize;
371: END IF;
372:
374: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
375:
376:
377: -- Initialize API return status to SUCCESS
378: x_return_status := FND_API.G_RET_STS_SUCCESS;
379:
380: -- Debug Message
381: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
382:
386: if (c_get_table_name%NOTFOUND)
387: THEN
388: close c_get_table_name;
389: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','source_object_name');
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392: close c_get_table_name;
393:
394: if l_remote_flag = 'N' then
397: if (c_get_column_name%NOTFOUND)
398: THEN
399: close c_get_column_name;
400: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','source_column_name');
401: RAISE FND_API.G_EXC_ERROR;
402: END IF;
403: close c_get_column_name;
404: end if;
405:
431:
432: if l_column_name is NULL
433: THEN
434: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','source_column_name');
435: RAISE FND_API.G_EXC_ERROR;
436: END IF;
437: end if;
438:
439:
437: end if;
438:
439:
440: If (l_tar_list_src_field_rec.object_version_number is NULL or
441: l_tar_list_src_field_rec.object_version_number = FND_API.G_MISS_NUM ) Then
442: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
443: p_token_name => 'COLUMN',
444: p_token_value => 'Last_Update_Date') ;
445: raise FND_API.G_EXC_ERROR;
441: l_tar_list_src_field_rec.object_version_number = FND_API.G_MISS_NUM ) Then
442: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
443: p_token_name => 'COLUMN',
444: p_token_value => 'Last_Update_Date') ;
445: raise FND_API.G_EXC_ERROR;
446: End if;
447: -- Check Whether record has been changed by someone else
448: If (l_tar_list_src_field_rec.object_version_number <> l_ref_list_src_field_rec.object_version_number) Then
449: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
448: If (l_tar_list_src_field_rec.object_version_number <> l_ref_list_src_field_rec.object_version_number) Then
449: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
450: p_token_name => 'INFO',
451: p_token_value => 'List_Src_Field') ;
452: raise FND_API.G_EXC_ERROR;
453: End if;
454: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
455: THEN
456: -- Debug message
450: p_token_name => 'INFO',
451: p_token_value => 'List_Src_Field') ;
452: raise FND_API.G_EXC_ERROR;
453: End if;
454: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
455: THEN
456: -- Debug message
457: AMS_UTILITY_PVT.debug_message('Private API: Validate_List_Src_Field');
458:
458:
459: -- Invoke validation procedures
460: Validate_list_src_field(
461: p_api_version_number => 1.0,
462: p_init_msg_list => FND_API.G_FALSE,
463: p_validation_level => p_validation_level,
464: p_list_src_field_rec => p_list_src_field_rec,
465: x_return_status => x_return_status,
466: x_msg_count => x_msg_count,
466: x_msg_count => x_msg_count,
467: x_msg_data => x_msg_data);
468: END IF;
469:
470: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473:
474:
467: x_msg_data => x_msg_data);
468: END IF;
469:
470: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473:
474:
475: -- Debug Message
537: -- End of API body.
538: --
539:
540: -- Standard check for p_commit
541: IF FND_API.to_Boolean( p_commit )
542: THEN
543: COMMIT WORK;
544: END IF;
545:
554: );
555: EXCEPTION
556:
557: WHEN AMS_Utility_PVT.resource_locked THEN
558: x_return_status := FND_API.g_ret_sts_error;
559: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
560:
561: WHEN FND_API.G_EXC_ERROR THEN
562: ROLLBACK TO UPDATE_List_Src_Field_PVT;
557: WHEN AMS_Utility_PVT.resource_locked THEN
558: x_return_status := FND_API.g_ret_sts_error;
559: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
560:
561: WHEN FND_API.G_EXC_ERROR THEN
562: ROLLBACK TO UPDATE_List_Src_Field_PVT;
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: -- Standard call to get message count and if count=1, get the message
565: FND_MSG_PUB.Count_And_Get (
559: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
560:
561: WHEN FND_API.G_EXC_ERROR THEN
562: ROLLBACK TO UPDATE_List_Src_Field_PVT;
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: -- Standard call to get message count and if count=1, get the message
565: FND_MSG_PUB.Count_And_Get (
566: p_encoded => FND_API.G_FALSE,
567: p_count => x_msg_count,
562: ROLLBACK TO UPDATE_List_Src_Field_PVT;
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: -- Standard call to get message count and if count=1, get the message
565: FND_MSG_PUB.Count_And_Get (
566: p_encoded => FND_API.G_FALSE,
567: p_count => x_msg_count,
568: p_data => x_msg_data
569: );
570:
567: p_count => x_msg_count,
568: p_data => x_msg_data
569: );
570:
571: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
572: ROLLBACK TO UPDATE_List_Src_Field_PVT;
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: -- Standard call to get message count and if count=1, get the message
575: FND_MSG_PUB.Count_And_Get (
569: );
570:
571: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
572: ROLLBACK TO UPDATE_List_Src_Field_PVT;
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: -- Standard call to get message count and if count=1, get the message
575: FND_MSG_PUB.Count_And_Get (
576: p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
572: ROLLBACK TO UPDATE_List_Src_Field_PVT;
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: -- Standard call to get message count and if count=1, get the message
575: FND_MSG_PUB.Count_And_Get (
576: p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data
579: );
580:
579: );
580:
581: WHEN OTHERS THEN
582: ROLLBACK TO UPDATE_List_Src_Field_PVT;
583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
584: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
585: THEN
586: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
587: END IF;
586: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
587: END IF;
588: -- Standard call to get message count and if count=1, get the message
589: FND_MSG_PUB.Count_And_Get (
590: p_encoded => FND_API.G_FALSE,
591: p_count => x_msg_count,
592: p_data => x_msg_data
593: );
594: End Update_List_Src_Field;
595:
596:
597: PROCEDURE Delete_List_Src_Field(
598: p_api_version_number IN NUMBER,
599: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
600: p_commit IN VARCHAR2 := FND_API.G_FALSE,
601: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,
596:
597: PROCEDURE Delete_List_Src_Field(
598: p_api_version_number IN NUMBER,
599: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
600: p_commit IN VARCHAR2 := FND_API.G_FALSE,
601: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,
604: x_msg_data OUT NOCOPY VARCHAR2,
597: PROCEDURE Delete_List_Src_Field(
598: p_api_version_number IN NUMBER,
599: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
600: p_commit IN VARCHAR2 := FND_API.G_FALSE,
601: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,
604: x_msg_data OUT NOCOPY VARCHAR2,
605: p_list_source_field_id IN NUMBER,
615: -- Standard Start of API savepoint
616: SAVEPOINT DELETE_List_Src_Field_PVT;
617:
618: -- Standard call to check for call compatibility.
619: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
620: p_api_version_number,
621: l_api_name,
622: G_PKG_NAME)
623: THEN
620: p_api_version_number,
621: l_api_name,
622: G_PKG_NAME)
623: THEN
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: END IF;
626:
627: -- Initialize message list if p_init_msg_list is set to TRUE.
628: IF FND_API.to_Boolean( p_init_msg_list )
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: END IF;
626:
627: -- Initialize message list if p_init_msg_list is set to TRUE.
628: IF FND_API.to_Boolean( p_init_msg_list )
629: THEN
630: FND_MSG_PUB.initialize;
631: END IF;
632:
634: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
635:
636:
637: -- Initialize API return status to SUCCESS
638: x_return_status := FND_API.G_RET_STS_SUCCESS;
639:
640: --
641: -- Api body
642: --
661: -- End of API body
662: --
663:
664: -- Standard check for p_commit
665: IF FND_API.to_Boolean( p_commit )
666: THEN
667: COMMIT WORK;
668: END IF;
669:
678: );
679: EXCEPTION
680:
681: WHEN AMS_Utility_PVT.resource_locked THEN
682: x_return_status := FND_API.g_ret_sts_error;
683: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
684:
685: WHEN FND_API.G_EXC_ERROR THEN
686: ROLLBACK TO DELETE_List_Src_Field_PVT;
681: WHEN AMS_Utility_PVT.resource_locked THEN
682: x_return_status := FND_API.g_ret_sts_error;
683: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
684:
685: WHEN FND_API.G_EXC_ERROR THEN
686: ROLLBACK TO DELETE_List_Src_Field_PVT;
687: x_return_status := FND_API.G_RET_STS_ERROR;
688: -- Standard call to get message count and if count=1, get the message
689: FND_MSG_PUB.Count_And_Get (
683: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
684:
685: WHEN FND_API.G_EXC_ERROR THEN
686: ROLLBACK TO DELETE_List_Src_Field_PVT;
687: x_return_status := FND_API.G_RET_STS_ERROR;
688: -- Standard call to get message count and if count=1, get the message
689: FND_MSG_PUB.Count_And_Get (
690: p_encoded => FND_API.G_FALSE,
691: p_count => x_msg_count,
686: ROLLBACK TO DELETE_List_Src_Field_PVT;
687: x_return_status := FND_API.G_RET_STS_ERROR;
688: -- Standard call to get message count and if count=1, get the message
689: FND_MSG_PUB.Count_And_Get (
690: p_encoded => FND_API.G_FALSE,
691: p_count => x_msg_count,
692: p_data => x_msg_data
693: );
694:
691: p_count => x_msg_count,
692: p_data => x_msg_data
693: );
694:
695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696: ROLLBACK TO DELETE_List_Src_Field_PVT;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: -- Standard call to get message count and if count=1, get the message
699: FND_MSG_PUB.Count_And_Get (
693: );
694:
695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696: ROLLBACK TO DELETE_List_Src_Field_PVT;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: -- Standard call to get message count and if count=1, get the message
699: FND_MSG_PUB.Count_And_Get (
700: p_encoded => FND_API.G_FALSE,
701: p_count => x_msg_count,
696: ROLLBACK TO DELETE_List_Src_Field_PVT;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: -- Standard call to get message count and if count=1, get the message
699: FND_MSG_PUB.Count_And_Get (
700: p_encoded => FND_API.G_FALSE,
701: p_count => x_msg_count,
702: p_data => x_msg_data
703: );
704:
703: );
704:
705: WHEN OTHERS THEN
706: ROLLBACK TO DELETE_List_Src_Field_PVT;
707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
708: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
709: THEN
710: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
711: END IF;
710: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
711: END IF;
712: -- Standard call to get message count and if count=1, get the message
713: FND_MSG_PUB.Count_And_Get (
714: p_encoded => FND_API.G_FALSE,
715: p_count => x_msg_count,
716: p_data => x_msg_data
717: );
718: End Delete_List_Src_Field;
721:
722: -- Hint: Primary key needs to be returned.
723: PROCEDURE Lock_List_Src_Field(
724: p_api_version_number IN NUMBER,
725: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
726:
727: x_return_status OUT NOCOPY VARCHAR2,
728: x_msg_count OUT NOCOPY NUMBER,
729: x_msg_data OUT NOCOPY VARCHAR2,
750: -- Debug Message
751: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
752:
753: -- Initialize message list if p_init_msg_list is set to TRUE.
754: IF FND_API.to_Boolean( p_init_msg_list )
755: THEN
756: FND_MSG_PUB.initialize;
757: END IF;
758:
756: FND_MSG_PUB.initialize;
757: END IF;
758:
759: -- Standard call to check for call compatibility.
760: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
761: p_api_version_number,
762: l_api_name,
763: G_PKG_NAME)
764: THEN
761: p_api_version_number,
762: l_api_name,
763: G_PKG_NAME)
764: THEN
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767:
768:
769: -- Initialize API return status to SUCCESS
766: END IF;
767:
768:
769: -- Initialize API return status to SUCCESS
770: x_return_status := FND_API.G_RET_STS_SUCCESS;
771:
772:
773: ------------------------ lock -------------------------
774:
782: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
783: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
784: FND_MSG_PUB.add;
785: END IF;
786: RAISE FND_API.g_exc_error;
787: END IF;
788:
789: CLOSE c_List_Src_Field;
790:
789: CLOSE c_List_Src_Field;
790:
791: -------------------- finish --------------------------
792: FND_MSG_PUB.count_and_get(
793: p_encoded => FND_API.g_false,
794: p_count => x_msg_count,
795: p_data => x_msg_data);
796: AMS_Utility_PVT.debug_message(l_full_name ||': end');
797: EXCEPTION
796: AMS_Utility_PVT.debug_message(l_full_name ||': end');
797: EXCEPTION
798:
799: WHEN AMS_Utility_PVT.resource_locked THEN
800: x_return_status := FND_API.g_ret_sts_error;
801: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
802:
803: WHEN FND_API.G_EXC_ERROR THEN
804: ROLLBACK TO LOCK_List_Src_Field_PVT;
799: WHEN AMS_Utility_PVT.resource_locked THEN
800: x_return_status := FND_API.g_ret_sts_error;
801: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
802:
803: WHEN FND_API.G_EXC_ERROR THEN
804: ROLLBACK TO LOCK_List_Src_Field_PVT;
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: -- Standard call to get message count and if count=1, get the message
807: FND_MSG_PUB.Count_And_Get (
801: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
802:
803: WHEN FND_API.G_EXC_ERROR THEN
804: ROLLBACK TO LOCK_List_Src_Field_PVT;
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: -- Standard call to get message count and if count=1, get the message
807: FND_MSG_PUB.Count_And_Get (
808: p_encoded => FND_API.G_FALSE,
809: p_count => x_msg_count,
804: ROLLBACK TO LOCK_List_Src_Field_PVT;
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: -- Standard call to get message count and if count=1, get the message
807: FND_MSG_PUB.Count_And_Get (
808: p_encoded => FND_API.G_FALSE,
809: p_count => x_msg_count,
810: p_data => x_msg_data
811: );
812:
809: p_count => x_msg_count,
810: p_data => x_msg_data
811: );
812:
813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
814: ROLLBACK TO LOCK_List_Src_Field_PVT;
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: -- Standard call to get message count and if count=1, get the message
817: FND_MSG_PUB.Count_And_Get (
811: );
812:
813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
814: ROLLBACK TO LOCK_List_Src_Field_PVT;
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: -- Standard call to get message count and if count=1, get the message
817: FND_MSG_PUB.Count_And_Get (
818: p_encoded => FND_API.G_FALSE,
819: p_count => x_msg_count,
814: ROLLBACK TO LOCK_List_Src_Field_PVT;
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: -- Standard call to get message count and if count=1, get the message
817: FND_MSG_PUB.Count_And_Get (
818: p_encoded => FND_API.G_FALSE,
819: p_count => x_msg_count,
820: p_data => x_msg_data
821: );
822:
821: );
822:
823: WHEN OTHERS THEN
824: ROLLBACK TO LOCK_List_Src_Field_PVT;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
826: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
827: THEN
828: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
829: END IF;
828: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
829: END IF;
830: -- Standard call to get message count and if count=1, get the message
831: FND_MSG_PUB.Count_And_Get (
832: p_encoded => FND_API.G_FALSE,
833: p_count => x_msg_count,
834: p_data => x_msg_data
835: );
836: End Lock_List_Src_Field;
843: IS
844: l_valid_flag VARCHAR2(1);
845:
846: BEGIN
847: x_return_status := FND_API.g_ret_sts_success;
848: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
849: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
850: 'AMS_LIST_SRC_FIELDS',
851: 'LIST_SOURCE_FIELD_ID = ''' || p_list_src_field_rec.LIST_SOURCE_FIELD_ID ||''''
857: ''' AND LIST_SOURCE_FIELD_ID <> ' || p_list_src_field_rec.LIST_SOURCE_FIELD_ID
858: );
859: END IF;
860:
861: IF l_valid_flag = FND_API.g_false THEN
862: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_LIST_SOURCE_FIELD_ID_DUPLICATE');
863: x_return_status := FND_API.g_ret_sts_error;
864: RETURN;
865: END IF;
859: END IF;
860:
861: IF l_valid_flag = FND_API.g_false THEN
862: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_LIST_SOURCE_FIELD_ID_DUPLICATE');
863: x_return_status := FND_API.g_ret_sts_error;
864: RETURN;
865: END IF;
866:
867: IF p_validation_mode = JTF_PLSQL_API.g_create
877: ' and field_table_name = '||p_list_src_field_rec.field_table_name
878: ||' and field_column_name = '||p_list_src_field_rec.field_column_name
879: ||' and list_source_type_id = '||p_list_src_field_rec.list_source_type_id
880:
881: ) = FND_API.g_false
882: THEN
883: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
884: FND_MESSAGE.set_name('AMS', 'BAD_COMB');
885: FND_MSG_PUB.add;
883: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
884: FND_MESSAGE.set_name('AMS', 'BAD_COMB');
885: FND_MSG_PUB.add;
886: END IF;
887: x_return_status := FND_API.g_ret_sts_error;
888: RETURN;
889: END IF;
890: END IF;
891:
898: x_return_status OUT NOCOPY VARCHAR2
899: )
900: IS
901: BEGIN
902: x_return_status := FND_API.g_ret_sts_success;
903:
904: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
905:
906:
903:
904: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
905:
906:
907: IF p_list_src_field_rec.list_source_field_id = FND_API.g_miss_num OR p_list_src_field_rec.list_source_field_id IS NULL THEN
908: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','LIST_SOURCE_FIELD_ID');
909: x_return_status := FND_API.g_ret_sts_error;
910: END IF;
911:
905:
906:
907: IF p_list_src_field_rec.list_source_field_id = FND_API.g_miss_num OR p_list_src_field_rec.list_source_field_id IS NULL THEN
908: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','LIST_SOURCE_FIELD_ID');
909: x_return_status := FND_API.g_ret_sts_error;
910: END IF;
911:
912:
913: IF p_list_src_field_rec.de_list_source_type_code = FND_API.g_miss_char OR p_list_src_field_rec.de_list_source_type_code IS NULL THEN
909: x_return_status := FND_API.g_ret_sts_error;
910: END IF;
911:
912:
913: IF p_list_src_field_rec.de_list_source_type_code = FND_API.g_miss_char OR p_list_src_field_rec.de_list_source_type_code IS NULL THEN
914: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','DE_LIST_SOURCE_TYPE_CODE' );
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917:
911:
912:
913: IF p_list_src_field_rec.de_list_source_type_code = FND_API.g_miss_char OR p_list_src_field_rec.de_list_source_type_code IS NULL THEN
914: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','DE_LIST_SOURCE_TYPE_CODE' );
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917:
918:
919: IF p_list_src_field_rec.list_source_type_id = FND_API.g_miss_num OR p_list_src_field_rec.list_source_type_id IS NULL THEN
915: x_return_status := FND_API.g_ret_sts_error;
916: END IF;
917:
918:
919: IF p_list_src_field_rec.list_source_type_id = FND_API.g_miss_num OR p_list_src_field_rec.list_source_type_id IS NULL THEN
920: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','LIST_SOURCE_TYPE_ID' );
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
923: /*
917:
918:
919: IF p_list_src_field_rec.list_source_type_id = FND_API.g_miss_num OR p_list_src_field_rec.list_source_type_id IS NULL THEN
920: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','LIST_SOURCE_TYPE_ID' );
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
923: /*
924: field_table_name and field_column_name are checked in check_lstsrcfld_business()
925: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char OR p_list_src_field_rec.field_table_name IS NULL THEN
921: x_return_status := FND_API.g_ret_sts_error;
922: END IF;
923: /*
924: field_table_name and field_column_name are checked in check_lstsrcfld_business()
925: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char OR p_list_src_field_rec.field_table_name IS NULL THEN
926: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','FIELD_TABLE_NAME' );
927: x_return_status := FND_API.g_ret_sts_error;
928: END IF;
929:
923: /*
924: field_table_name and field_column_name are checked in check_lstsrcfld_business()
925: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char OR p_list_src_field_rec.field_table_name IS NULL THEN
926: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','FIELD_TABLE_NAME' );
927: x_return_status := FND_API.g_ret_sts_error;
928: END IF;
929:
930:
931: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
927: x_return_status := FND_API.g_ret_sts_error;
928: END IF;
929:
930:
931: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
932: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','FIELD_COLUMN_NAME' );
933: x_return_status := FND_API.g_ret_sts_error;
934: END IF;
935: */
929:
930:
931: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
932: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','FIELD_COLUMN_NAME' );
933: x_return_status := FND_API.g_ret_sts_error;
934: END IF;
935: */
936:
937: IF p_list_src_field_rec.source_column_name = FND_API.g_miss_char OR p_list_src_field_rec.source_column_name IS NULL THEN
933: x_return_status := FND_API.g_ret_sts_error;
934: END IF;
935: */
936:
937: IF p_list_src_field_rec.source_column_name = FND_API.g_miss_char OR p_list_src_field_rec.source_column_name IS NULL THEN
938: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','SOURCE_COLUMN_NAME' );
939: x_return_status := FND_API.g_ret_sts_error;
940: END IF;
941:
935: */
936:
937: IF p_list_src_field_rec.source_column_name = FND_API.g_miss_char OR p_list_src_field_rec.source_column_name IS NULL THEN
938: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','SOURCE_COLUMN_NAME' );
939: x_return_status := FND_API.g_ret_sts_error;
940: END IF;
941:
942: IF p_list_src_field_rec.enabled_flag = FND_API.g_miss_char OR p_list_src_field_rec.enabled_flag IS NULL THEN
943: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','ENABLED_FLAG' );
938: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','SOURCE_COLUMN_NAME' );
939: x_return_status := FND_API.g_ret_sts_error;
940: END IF;
941:
942: IF p_list_src_field_rec.enabled_flag = FND_API.g_miss_char OR p_list_src_field_rec.enabled_flag IS NULL THEN
943: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','ENABLED_FLAG' );
944: x_return_status := FND_API.g_ret_sts_error;
945: END IF;
946:
940: END IF;
941:
942: IF p_list_src_field_rec.enabled_flag = FND_API.g_miss_char OR p_list_src_field_rec.enabled_flag IS NULL THEN
943: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','ENABLED_FLAG' );
944: x_return_status := FND_API.g_ret_sts_error;
945: END IF;
946:
947: END IF;
948:
954: x_return_status OUT NOCOPY VARCHAR2
955: )
956: IS
957: BEGIN
958: x_return_status := FND_API.g_ret_sts_success;
959:
960: -- Enter custom code here
961:
962: END check_list_src_field_FK_items;
966: x_return_status OUT NOCOPY VARCHAR2
967: )
968: IS
969: BEGIN
970: x_return_status := FND_API.g_ret_sts_success;
971:
972: -- Enter custom code here
973:
974: END check_lstsrcfld_lookup_items;
1063: l_fldcolname_upd_rec c_fldcolname_upd%ROWTYPE;
1064:
1065: BEGIN
1066:
1067: x_return_status := FND_API.g_ret_sts_success;
1068:
1069: -- Create
1070: IF p_list_src_field_rec.list_source_field_id = FND_API.g_miss_num or
1071: p_list_src_field_rec.list_source_field_id IS NULL
1066:
1067: x_return_status := FND_API.g_ret_sts_success;
1068:
1069: -- Create
1070: IF p_list_src_field_rec.list_source_field_id = FND_API.g_miss_num or
1071: p_list_src_field_rec.list_source_field_id IS NULL
1072: THEN
1073: OPEN c_lstsrcfld_crt;
1074: FETCH c_lstsrcfld_crt INTO l_lstsrcfld_crt_rec;
1075:
1076: IF (c_lstsrcfld_crt%FOUND) THEN
1077: FND_MESSAGE.set_name('AMS', 'AMS_DUPLICATE_SRC_COL_NAME');
1078: FND_MSG_PUB.Add;
1079: x_return_status := FND_API.g_ret_sts_error;
1080: RETURN;
1081: END IF;
1082:
1083: OPEN c_fldcolname_crt;
1085:
1086: IF (c_fldcolname_crt%FOUND) THEN
1087: FND_MESSAGE.set_name('AMS', 'AMS_DUPLICATE_FLD_COL_NAME');
1088: FND_MSG_PUB.Add;
1089: x_return_status := FND_API.g_ret_sts_error;
1090: RETURN;
1091: END IF;
1092:
1093: -- Update
1097:
1098: IF (c_lstsrcfld_upd%FOUND) THEN
1099: FND_MESSAGE.set_name('AMS', 'AMS_DUPLICATE_SRC_COL_NAME');
1100: FND_MSG_PUB.Add;
1101: x_return_status := FND_API.g_ret_sts_error;
1102: RETURN;
1103: END IF;
1104:
1105: OPEN c_fldcolname_upd;
1107:
1108: IF (c_fldcolname_upd%FOUND) THEN
1109: FND_MESSAGE.set_name('AMS', 'AMS_DUPLICATE_FLD_COL_NAME');
1110: FND_MSG_PUB.Add;
1111: x_return_status := FND_API.g_ret_sts_error;
1112: RETURN;
1113: END IF;
1114:
1115: END IF;
1115: END IF;
1116:
1117: /*
1118: IF p_list_src_field_rec.de_list_source_type_code <> 'ANALYTICS' THEN
1119: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char OR p_list_src_field_rec.field_table_name IS NULL THEN
1120: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_table_name' );
1121: x_return_status := FND_API.g_ret_sts_error;
1122: END IF;
1123:
1117: /*
1118: IF p_list_src_field_rec.de_list_source_type_code <> 'ANALYTICS' THEN
1119: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char OR p_list_src_field_rec.field_table_name IS NULL THEN
1120: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_table_name' );
1121: x_return_status := FND_API.g_ret_sts_error;
1122: END IF;
1123:
1124: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
1125: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_column_name' );
1120: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_table_name' );
1121: x_return_status := FND_API.g_ret_sts_error;
1122: END IF;
1123:
1124: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
1125: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_column_name' );
1126: x_return_status := FND_API.g_ret_sts_error;
1127: END IF;
1128: END IF;
1122: END IF;
1123:
1124: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
1125: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_column_name' );
1126: x_return_status := FND_API.g_ret_sts_error;
1127: END IF;
1128: END IF;
1129: */
1130: IF p_list_src_field_rec.enabled_flag = 'Y' THEN
1127: END IF;
1128: END IF;
1129: */
1130: IF p_list_src_field_rec.enabled_flag = 'Y' THEN
1131: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char OR p_list_src_field_rec.field_table_name IS NULL THEN
1132: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_table_name' );
1133: x_return_status := FND_API.g_ret_sts_error;
1134: END IF;
1135:
1129: */
1130: IF p_list_src_field_rec.enabled_flag = 'Y' THEN
1131: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char OR p_list_src_field_rec.field_table_name IS NULL THEN
1132: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_table_name' );
1133: x_return_status := FND_API.g_ret_sts_error;
1134: END IF;
1135:
1136: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
1137: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_column_name' );
1132: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_table_name' );
1133: x_return_status := FND_API.g_ret_sts_error;
1134: END IF;
1135:
1136: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
1137: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_column_name' );
1138: x_return_status := FND_API.g_ret_sts_error;
1139: END IF;
1140: END IF;
1134: END IF;
1135:
1136: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char OR p_list_src_field_rec.field_column_name IS NULL THEN
1137: AMS_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD','MISS_FIELD','field_column_name' );
1138: x_return_status := FND_API.g_ret_sts_error;
1139: END IF;
1140: END IF;
1141:
1142: END check_lstsrcfld_business;
1154: check_list_src_field_uk_items(
1155: p_list_src_field_rec => p_list_src_field_rec,
1156: p_validation_mode => p_validation_mode,
1157: x_return_status => x_return_status);
1158: IF x_return_status <> FND_API.g_ret_sts_success THEN
1159: RETURN;
1160: END IF;
1161:
1162: -- Check Items Required/NOT NULL API calls
1164: check_list_src_field_req_items(
1165: p_list_src_field_rec => p_list_src_field_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: -- Check Items Foreign Keys API calls
1172:
1172:
1173: check_list_src_field_FK_items(
1174: p_list_src_field_rec => p_list_src_field_rec,
1175: x_return_status => x_return_status);
1176: IF x_return_status <> FND_API.g_ret_sts_success THEN
1177: RETURN;
1178: END IF;
1179: -- Check Items Lookups
1180:
1180:
1181: check_lstsrcfld_lookup_items(
1182: p_list_src_field_rec => p_list_src_field_rec,
1183: x_return_status => x_return_status);
1184: IF x_return_status <> FND_API.g_ret_sts_success THEN
1185: RETURN;
1186: END IF;
1187:
1188: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_lstsrcfld_business');
1188: AMS_UTILITY_PVT.debug_message('Private API: ' || 'before check_lstsrcfld_business');
1189: check_lstsrcfld_business(
1190: p_list_src_field_rec => p_list_src_field_rec,
1191: x_return_status => x_return_status);
1192: IF x_return_status <> FND_API.g_ret_sts_success THEN
1193: RETURN;
1194: END IF;
1195: AMS_UTILITY_PVT.debug_message('Private API: ' || 'after check_lstsrcfld_business');
1196:
1216: FETCH c_complete INTO l_list_src_field_rec;
1217: CLOSE c_complete;
1218:
1219: -- list_source_field_id
1220: IF p_list_src_field_rec.list_source_field_id = FND_API.g_miss_num THEN
1221: x_complete_rec.list_source_field_id := l_list_src_field_rec.list_source_field_id;
1222: END IF;
1223:
1224: -- last_update_date
1221: x_complete_rec.list_source_field_id := l_list_src_field_rec.list_source_field_id;
1222: END IF;
1223:
1224: -- last_update_date
1225: IF p_list_src_field_rec.last_update_date = FND_API.g_miss_date THEN
1226: x_complete_rec.last_update_date := l_list_src_field_rec.last_update_date;
1227: END IF;
1228:
1229: -- last_updated_by
1226: x_complete_rec.last_update_date := l_list_src_field_rec.last_update_date;
1227: END IF;
1228:
1229: -- last_updated_by
1230: IF p_list_src_field_rec.last_updated_by = FND_API.g_miss_num THEN
1231: x_complete_rec.last_updated_by := l_list_src_field_rec.last_updated_by;
1232: END IF;
1233:
1234: -- creation_date
1231: x_complete_rec.last_updated_by := l_list_src_field_rec.last_updated_by;
1232: END IF;
1233:
1234: -- creation_date
1235: IF p_list_src_field_rec.creation_date = FND_API.g_miss_date THEN
1236: x_complete_rec.creation_date := l_list_src_field_rec.creation_date;
1237: END IF;
1238:
1239: -- created_by
1236: x_complete_rec.creation_date := l_list_src_field_rec.creation_date;
1237: END IF;
1238:
1239: -- created_by
1240: IF p_list_src_field_rec.created_by = FND_API.g_miss_num THEN
1241: x_complete_rec.created_by := l_list_src_field_rec.created_by;
1242: END IF;
1243:
1244: -- last_update_login
1241: x_complete_rec.created_by := l_list_src_field_rec.created_by;
1242: END IF;
1243:
1244: -- last_update_login
1245: IF p_list_src_field_rec.last_update_login = FND_API.g_miss_num THEN
1246: x_complete_rec.last_update_login := l_list_src_field_rec.last_update_login;
1247: END IF;
1248:
1249: -- object_version_number
1246: x_complete_rec.last_update_login := l_list_src_field_rec.last_update_login;
1247: END IF;
1248:
1249: -- object_version_number
1250: IF p_list_src_field_rec.object_version_number = FND_API.g_miss_num THEN
1251: x_complete_rec.object_version_number := l_list_src_field_rec.object_version_number;
1252: END IF;
1253:
1254: -- de_list_source_type_code
1251: x_complete_rec.object_version_number := l_list_src_field_rec.object_version_number;
1252: END IF;
1253:
1254: -- de_list_source_type_code
1255: IF p_list_src_field_rec.de_list_source_type_code = FND_API.g_miss_char THEN
1256: x_complete_rec.de_list_source_type_code := l_list_src_field_rec.de_list_source_type_code;
1257: END IF;
1258:
1259: -- list_source_type_id
1256: x_complete_rec.de_list_source_type_code := l_list_src_field_rec.de_list_source_type_code;
1257: END IF;
1258:
1259: -- list_source_type_id
1260: IF p_list_src_field_rec.list_source_type_id = FND_API.g_miss_num THEN
1261: x_complete_rec.list_source_type_id := l_list_src_field_rec.list_source_type_id;
1262: END IF;
1263:
1264: -- field_table_name
1261: x_complete_rec.list_source_type_id := l_list_src_field_rec.list_source_type_id;
1262: END IF;
1263:
1264: -- field_table_name
1265: IF p_list_src_field_rec.field_table_name = FND_API.g_miss_char THEN
1266: x_complete_rec.field_table_name := l_list_src_field_rec.field_table_name;
1267: END IF;
1268:
1269: -- field_column_name
1266: x_complete_rec.field_table_name := l_list_src_field_rec.field_table_name;
1267: END IF;
1268:
1269: -- field_column_name
1270: IF p_list_src_field_rec.field_column_name = FND_API.g_miss_char THEN
1271: x_complete_rec.field_column_name := l_list_src_field_rec.field_column_name;
1272: END IF;
1273:
1274: -- source_column_name
1271: x_complete_rec.field_column_name := l_list_src_field_rec.field_column_name;
1272: END IF;
1273:
1274: -- source_column_name
1275: IF p_list_src_field_rec.source_column_name = FND_API.g_miss_char THEN
1276: x_complete_rec.source_column_name := l_list_src_field_rec.source_column_name;
1277: END IF;
1278:
1279: -- source_column_meaning
1276: x_complete_rec.source_column_name := l_list_src_field_rec.source_column_name;
1277: END IF;
1278:
1279: -- source_column_meaning
1280: IF p_list_src_field_rec.source_column_meaning = FND_API.g_miss_char THEN
1281: x_complete_rec.source_column_meaning := l_list_src_field_rec.source_column_meaning;
1282: END IF;
1283:
1284: -- enabled_flag
1281: x_complete_rec.source_column_meaning := l_list_src_field_rec.source_column_meaning;
1282: END IF;
1283:
1284: -- enabled_flag
1285: IF p_list_src_field_rec.enabled_flag = FND_API.g_miss_char THEN
1286: x_complete_rec.enabled_flag := l_list_src_field_rec.enabled_flag;
1287: END IF;
1288:
1289: -- start_position
1286: x_complete_rec.enabled_flag := l_list_src_field_rec.enabled_flag;
1287: END IF;
1288:
1289: -- start_position
1290: IF p_list_src_field_rec.start_position = FND_API.g_miss_num THEN
1291: x_complete_rec.start_position := l_list_src_field_rec.start_position;
1292: END IF;
1293:
1294: -- end_position
1291: x_complete_rec.start_position := l_list_src_field_rec.start_position;
1292: END IF;
1293:
1294: -- end_position
1295: IF p_list_src_field_rec.end_position = FND_API.g_miss_num THEN
1296: x_complete_rec.end_position := l_list_src_field_rec.end_position;
1297: END IF;
1298:
1299: -- Note: Developers need to modify the procedure
1300: -- to handle any business specific requirements.
1301: END Complete_list_src_field_Rec;
1302: PROCEDURE Validate_list_src_field(
1303: p_api_version_number IN NUMBER,
1304: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1305: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1306: p_list_src_field_rec IN list_src_field_rec_type,
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: x_msg_count OUT NOCOPY NUMBER,
1301: END Complete_list_src_field_Rec;
1302: PROCEDURE Validate_list_src_field(
1303: p_api_version_number IN NUMBER,
1304: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1305: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1306: p_list_src_field_rec IN list_src_field_rec_type,
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: x_msg_count OUT NOCOPY NUMBER,
1309: x_msg_data OUT NOCOPY VARCHAR2
1318: -- Standard Start of API savepoint
1319: SAVEPOINT VALIDATE_List_Src_Field_;
1320:
1321: -- Standard call to check for call compatibility.
1322: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1323: p_api_version_number,
1324: l_api_name,
1325: G_PKG_NAME)
1326: THEN
1323: p_api_version_number,
1324: l_api_name,
1325: G_PKG_NAME)
1326: THEN
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1329:
1330: -- Initialize message list if p_init_msg_list is set to TRUE.
1331: IF FND_API.to_Boolean( p_init_msg_list )
1327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1328: END IF;
1329:
1330: -- Initialize message list if p_init_msg_list is set to TRUE.
1331: IF FND_API.to_Boolean( p_init_msg_list )
1332: THEN
1333: FND_MSG_PUB.initialize;
1334: END IF;
1335:
1341: p_validation_mode => JTF_PLSQL_API.g_update,
1342: x_return_status => x_return_status
1343: );
1344:
1345: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1346: RAISE FND_API.G_EXC_ERROR;
1347: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1342: x_return_status => x_return_status
1343: );
1344:
1345: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1346: RAISE FND_API.G_EXC_ERROR;
1347: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350: END IF;
1343: );
1344:
1345: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1346: RAISE FND_API.G_EXC_ERROR;
1347: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350: END IF;
1351:
1344:
1345: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1346: RAISE FND_API.G_EXC_ERROR;
1347: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350: END IF;
1351:
1352: Complete_list_src_field_Rec(
1356:
1357: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1358: Validate_list_src_field_Rec(
1359: p_api_version_number => 1.0,
1360: p_init_msg_list => FND_API.G_FALSE,
1361: x_return_status => x_return_status,
1362: x_msg_count => x_msg_count,
1363: x_msg_data => x_msg_data,
1364: p_list_src_field_rec => l_list_src_field_rec);
1362: x_msg_count => x_msg_count,
1363: x_msg_data => x_msg_data,
1364: p_list_src_field_rec => l_list_src_field_rec);
1365:
1366: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1367: RAISE FND_API.G_EXC_ERROR;
1368: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: END IF;
1363: x_msg_data => x_msg_data,
1364: p_list_src_field_rec => l_list_src_field_rec);
1365:
1366: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1367: RAISE FND_API.G_EXC_ERROR;
1368: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: END IF;
1371: END IF;
1364: p_list_src_field_rec => l_list_src_field_rec);
1365:
1366: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1367: RAISE FND_API.G_EXC_ERROR;
1368: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: END IF;
1371: END IF;
1372:
1365:
1366: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1367: RAISE FND_API.G_EXC_ERROR;
1368: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: END IF;
1371: END IF;
1372:
1373:
1375: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1376:
1377:
1378: -- Initialize API return status to SUCCESS
1379: x_return_status := FND_API.G_RET_STS_SUCCESS;
1380:
1381:
1382: -- Debug Message
1383: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1389: );
1390: EXCEPTION
1391:
1392: WHEN AMS_Utility_PVT.resource_locked THEN
1393: x_return_status := FND_API.g_ret_sts_error;
1394: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1395:
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: ROLLBACK TO VALIDATE_List_Src_Field_;
1392: WHEN AMS_Utility_PVT.resource_locked THEN
1393: x_return_status := FND_API.g_ret_sts_error;
1394: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1395:
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: ROLLBACK TO VALIDATE_List_Src_Field_;
1398: x_return_status := FND_API.G_RET_STS_ERROR;
1399: -- Standard call to get message count and if count=1, get the message
1400: FND_MSG_PUB.Count_And_Get (
1394: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1395:
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: ROLLBACK TO VALIDATE_List_Src_Field_;
1398: x_return_status := FND_API.G_RET_STS_ERROR;
1399: -- Standard call to get message count and if count=1, get the message
1400: FND_MSG_PUB.Count_And_Get (
1401: p_encoded => FND_API.G_FALSE,
1402: p_count => x_msg_count,
1397: ROLLBACK TO VALIDATE_List_Src_Field_;
1398: x_return_status := FND_API.G_RET_STS_ERROR;
1399: -- Standard call to get message count and if count=1, get the message
1400: FND_MSG_PUB.Count_And_Get (
1401: p_encoded => FND_API.G_FALSE,
1402: p_count => x_msg_count,
1403: p_data => x_msg_data
1404: );
1405:
1402: p_count => x_msg_count,
1403: p_data => x_msg_data
1404: );
1405:
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407: ROLLBACK TO VALIDATE_List_Src_Field_;
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409: -- Standard call to get message count and if count=1, get the message
1410: FND_MSG_PUB.Count_And_Get (
1404: );
1405:
1406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1407: ROLLBACK TO VALIDATE_List_Src_Field_;
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409: -- Standard call to get message count and if count=1, get the message
1410: FND_MSG_PUB.Count_And_Get (
1411: p_encoded => FND_API.G_FALSE,
1412: p_count => x_msg_count,
1407: ROLLBACK TO VALIDATE_List_Src_Field_;
1408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1409: -- Standard call to get message count and if count=1, get the message
1410: FND_MSG_PUB.Count_And_Get (
1411: p_encoded => FND_API.G_FALSE,
1412: p_count => x_msg_count,
1413: p_data => x_msg_data
1414: );
1415:
1414: );
1415:
1416: WHEN OTHERS THEN
1417: ROLLBACK TO VALIDATE_List_Src_Field_;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1420: THEN
1421: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1422: END IF;
1421: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1422: END IF;
1423: -- Standard call to get message count and if count=1, get the message
1424: FND_MSG_PUB.Count_And_Get (
1425: p_encoded => FND_API.G_FALSE,
1426: p_count => x_msg_count,
1427: p_data => x_msg_data
1428: );
1429: End Validate_List_Src_Field;
1430:
1431:
1432: PROCEDURE Validate_list_src_field_rec(
1433: p_api_version_number IN NUMBER,
1434: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1435: x_return_status OUT NOCOPY VARCHAR2,
1436: x_msg_count OUT NOCOPY NUMBER,
1437: x_msg_data OUT NOCOPY VARCHAR2,
1438: p_list_src_field_rec IN list_src_field_rec_type
1439: )
1440: IS
1441: BEGIN
1442: -- Initialize message list if p_init_msg_list is set to TRUE.
1443: IF FND_API.to_Boolean( p_init_msg_list )
1444: THEN
1445: FND_MSG_PUB.initialize;
1446: END IF;
1447:
1445: FND_MSG_PUB.initialize;
1446: END IF;
1447:
1448: -- Initialize API return status to SUCCESS
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: -- Hint: Validate data
1452: -- If data not valid
1453: -- THEN
1450:
1451: -- Hint: Validate data
1452: -- If data not valid
1453: -- THEN
1454: -- x_return_status := FND_API.G_RET_STS_ERROR;
1455:
1456: -- Debug Message
1457: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1458: -- Standard call to get message count and if count is 1, get message info.