[Home] [Help]
100: FND_MSG_PUB.initialize;
101: END IF;
102:
103: -- Debug Message
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;
128: -- =========================================================================
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)
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:
141: -- Invoke validation procedures
142: Validate_list_src_field(
143: p_api_version_number => 1.0,
158: FETCH c_get_table_name INTO l_table_name;
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:
169: FETCH c_get_column_name INTO l_column_name;
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;
183: FETCH c_get_column_name INTO l_column_name;
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: */
190: close c_get_column_name;
191: */
192:
193: -- Debug Message
194: AMS_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
195:
196: -- Invoke table handler(AMS_LIST_SRC_FIELDS_PKG.Insert_Row)
197: AMS_LIST_SRC_FIELDS_PKG.Insert_Row(
198: px_list_source_field_id => l_list_source_field_id,
241: END IF;
242:
243:
244: -- Debug Message
245: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
246:
247: -- Standard call to get message count and if count is 1, get message info.
248: FND_MSG_PUB.Count_And_Get
249: (p_count => x_msg_count,
250: p_data => x_msg_data
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
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;
260: x_return_status := FND_API.G_RET_STS_ERROR;
370: FND_MSG_PUB.initialize;
371: END IF;
372:
373: -- Debug Message
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;
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:
383: -- check if source_column_name exist
384: OPEN c_get_table_name(p_list_src_field_rec.list_source_type_id);
385: FETCH c_get_table_name INTO l_table_name,l_remote_flag,l_database_link;
385: FETCH c_get_table_name INTO l_table_name,l_remote_flag,l_database_link;
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:
396: FETCH c_get_column_name INTO l_column_name;
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;
430:
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:
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;
446: End if;
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',
450: p_token_name => 'INFO',
451: p_token_value => 'List_Src_Field') ;
452: raise FND_API.G_EXC_ERROR;
453: End if;
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:
459: -- Invoke validation procedures
460: Validate_list_src_field(
461: p_api_version_number => 1.0,
472: END IF;
473:
474:
475: -- Debug Message
476: -- AMS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
477:
478: -- Invoke table handler(AMS_LIST_SRC_FIELDS_PKG.Update_Row)
479: AMS_LIST_SRC_FIELDS_PKG.Update_Row(
480: p_list_source_field_id => p_list_src_field_rec.list_source_field_id,
512: -- Beginning of Code for Analytics Data Source Fields
513: -- Added by nyostos - June 11, 2002
514: -- If the auto_binning_flag is set to 'Y', then remove all binning details for the field
515: IF p_list_src_field_rec.auto_binning_flag = 'Y' THEN
516: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' AutoBinning Flag - Going to delete bin values for this field');
517: AMS_Dm_Binvalues_PVT.Delete_Dm_Binvalues_For_Field (p_datasource_field_id => p_list_src_field_rec.list_source_field_id);
518: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' AutoBinning Flag - After delete of bin values for this field');
519: END IF;
520: -- End of Code for Analytics Data Source Fields
514: -- If the auto_binning_flag is set to 'Y', then remove all binning details for the field
515: IF p_list_src_field_rec.auto_binning_flag = 'Y' THEN
516: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' AutoBinning Flag - Going to delete bin values for this field');
517: AMS_Dm_Binvalues_PVT.Delete_Dm_Binvalues_For_Field (p_datasource_field_id => p_list_src_field_rec.list_source_field_id);
518: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' AutoBinning Flag - After delete of bin values for this field');
519: END IF;
520: -- End of Code for Analytics Data Source Fields
521:
522: -- Added by nyostos - Oct 14, 2002
544: END IF;
545:
546:
547: -- Debug Message
548: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
549:
550: -- Standard call to get message count and if count is 1, get message info.
551: FND_MSG_PUB.Count_And_Get
552: (p_count => x_msg_count,
553: p_data => x_msg_data
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
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;
563: x_return_status := FND_API.G_RET_STS_ERROR;
630: FND_MSG_PUB.initialize;
631: END IF;
632:
633: -- Debug Message
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;
640: --
641: -- Api body
642: --
643: -- Debug Message
644: AMS_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
645:
646: -- Invoke table handler(AMS_LIST_SRC_FIELDS_PKG.Delete_Row)
647: AMS_LIST_SRC_FIELDS_PKG.Delete_Row(
648: p_LIST_SOURCE_FIELD_ID => p_LIST_SOURCE_FIELD_ID);
650:
651: -- Beginning of Code for Analytics Data Source Fields
652: -- Added by nyostos - June 11, 2002
653: -- Remove all binning details for the field
654: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' Going to delete bin values for this field');
655: AMS_Dm_Binvalues_PVT.Delete_Dm_Binvalues_For_Field (p_datasource_field_id => p_list_source_field_id);
656: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' After delete of bin values for this field');
657: -- End of Code for Analytics Data Source Fields
658:
652: -- Added by nyostos - June 11, 2002
653: -- Remove all binning details for the field
654: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' Going to delete bin values for this field');
655: AMS_Dm_Binvalues_PVT.Delete_Dm_Binvalues_For_Field (p_datasource_field_id => p_list_source_field_id);
656: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' After delete of bin values for this field');
657: -- End of Code for Analytics Data Source Fields
658:
659:
660: --
668: END IF;
669:
670:
671: -- Debug Message
672: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
673:
674: -- Standard call to get message count and if count is 1, get message info.
675: FND_MSG_PUB.Count_And_Get
676: (p_count => x_msg_count,
677: p_data => x_msg_data
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
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;
687: x_return_status := FND_API.G_RET_STS_ERROR;
747:
748: BEGIN
749:
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
771:
772:
773: ------------------------ lock -------------------------
774:
775: AMS_Utility_PVT.debug_message(l_full_name||': start');
776: OPEN c_List_Src_Field;
777:
778: FETCH c_List_Src_Field INTO l_LIST_SOURCE_FIELD_ID;
779:
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
798:
799: WHEN AMS_Utility_PVT.resource_locked THEN
800: x_return_status := FND_API.g_ret_sts_error;
795: p_data => x_msg_data);
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
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;
805: x_return_status := FND_API.G_RET_STS_ERROR;
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 ||''''
852: );
853: ELSE
850: 'AMS_LIST_SRC_FIELDS',
851: 'LIST_SOURCE_FIELD_ID = ''' || p_list_src_field_rec.LIST_SOURCE_FIELD_ID ||''''
852: );
853: ELSE
854: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
855: 'AMS_LIST_SRC_FIELDS',
856: '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: );
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;
866:
870: AND p_list_src_field_rec.field_table_name IS NOT NULL
871: AND p_list_src_field_rec.list_source_type_id IS NOT NULL
872:
873: THEN
874: IF AMS_Utility_PVT.check_uniqueness(
875: 'ams_list_src_fields',
876: 'source_column_name = ' || p_list_src_field_rec.source_column_name||
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
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:
912:
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:
918:
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: /*
924: field_table_name and field_column_name are checked in check_lstsrcfld_business()
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:
930:
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: */
936:
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:
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
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:
947: 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:
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
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;
1129: */
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:
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
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;
1141:
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');
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
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:
1197: END Check_list_src_field_Items;
1198:
1199:
1371: END IF;
1372:
1373:
1374: -- Debug Message
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;
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');
1384:
1385: -- Standard call to get message count and if count is 1, get message info.
1386: FND_MSG_PUB.Count_And_Get
1387: (p_count => x_msg_count,
1388: p_data => x_msg_data
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
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_;
1398: x_return_status := FND_API.G_RET_STS_ERROR;
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.
1459: FND_MSG_PUB.Count_And_Get
1460: (p_count => x_msg_count,
1461: p_data => x_msg_data