104:
105: -- Debug Message
106: IF (AMS_DEBUG_HIGH_ON) THEN
107:
108: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
109: END IF;
110:
111:
112: -- Initialize API return status to SUCCESS
134: -- =========================================================================
135:
136: IF FND_GLOBAL.User_Id IS NULL
137: THEN
138: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
139: RAISE FND_API.G_EXC_ERROR;
140: END IF;
141:
142: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
143: THEN
144: -- Debug message
145: IF (AMS_DEBUG_HIGH_ON) THEN
146:
147: AMS_UTILITY_PVT.debug_message('Private API: Validate_Iba_Pl_Stylesheets');
148: END IF;
149:
150: -- Invoke validation procedures
151: Validate_iba_pl_stylesheets(
167:
168: -- Debug Message
169: IF (AMS_DEBUG_HIGH_ON) THEN
170:
171: AMS_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
172: END IF;
173:
174: -- Invoke table handler(AMS_IBA_PL_STYLESHTS_B_PKG.Insert_Row)
175: AMS_IBA_PL_STYLESHTS_B_PKG.Insert_Row(
204:
205: -- Debug Message
206: IF (AMS_DEBUG_HIGH_ON) THEN
207:
208: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
209: END IF;
210:
211: -- Standard call to get message count and if count is 1, get message info.
212: FND_MSG_PUB.Count_And_Get
214: p_data => x_msg_data
215: );
216: EXCEPTION
217:
218: WHEN AMS_Utility_PVT.resource_locked THEN
219: x_return_status := FND_API.g_ret_sts_error;
220: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
221:
222: WHEN FND_API.G_EXC_ERROR THEN
216: EXCEPTION
217:
218: WHEN AMS_Utility_PVT.resource_locked THEN
219: x_return_status := FND_API.g_ret_sts_error;
220: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
221:
222: WHEN FND_API.G_EXC_ERROR THEN
223: ROLLBACK TO CREATE_Iba_Pl_Stylesheets_PVT;
224: x_return_status := FND_API.G_RET_STS_ERROR;
231:
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: IF (AMS_DEBUG_HIGH_ON) THEN
234:
235: AMS_UTILITY_PVT.debug_message( 'Private API: in unexpected error '|| x_return_status);
236: END IF;
237: ROLLBACK TO CREATE_Iba_Pl_Stylesheets_PVT;
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
239: -- Standard call to get message count and if count=1, get the message
245:
246: WHEN OTHERS THEN
247: IF (AMS_DEBUG_HIGH_ON) THEN
248:
249: AMS_UTILITY_PVT.debug_message( 'Private API: in others'|| x_return_status);
250: END IF;
251: ROLLBACK TO CREATE_Iba_Pl_Stylesheets_PVT;
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
314:
315: -- Debug Message
316: IF (AMS_DEBUG_HIGH_ON) THEN
317:
318: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
319: END IF;
320:
321:
322: -- Initialize API return status to SUCCESS
324:
325: -- Debug Message
326: IF (AMS_DEBUG_HIGH_ON) THEN
327:
328: AMS_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
329: END IF;
330:
331: ---/*
332: OPEN c_get_Iba_Pl_Stylesheets( l_tar_iba_pl_stylesheets_rec.stylesheet_id);
333:
334: FETCH c_get_Iba_Pl_Stylesheets INTO l_ref_iba_pl_stylesheets_rec ;
335:
336: If ( c_get_Iba_Pl_Stylesheets%NOTFOUND) THEN
337: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
338: p_token_name => 'INFO',
339: p_token_value => 'Iba_Pl_Stylesheets') ;
340: RAISE FND_API.G_EXC_ERROR;
341: END IF;
341: END IF;
342: -- Debug Message
343: IF (AMS_DEBUG_HIGH_ON) THEN
344:
345: AMS_UTILITY_PVT.debug_message('Private API: - Close Cursor');
346: END IF;
347: CLOSE c_get_Iba_Pl_Stylesheets;
348: --*/
349:
349:
350:
351: If (l_tar_iba_pl_stylesheets_rec.object_version_number is NULL or
352: l_tar_iba_pl_stylesheets_rec.object_version_number = FND_API.G_MISS_NUM ) Then
353: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
354: p_token_name => 'COLUMN',
355: p_token_value => 'Last_Update_Date') ;
356: raise FND_API.G_EXC_ERROR;
357: End if;
356: raise FND_API.G_EXC_ERROR;
357: End if;
358: -- Check Whether record has been changed by someone else
359: If (l_tar_iba_pl_stylesheets_rec.object_version_number <> l_ref_iba_pl_stylesheets_rec.object_version_number) Then
360: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
361: p_token_name => 'INFO',
362: p_token_value => 'Iba_Pl_Stylesheets') ;
363: raise FND_API.G_EXC_ERROR;
364: End if;
366: THEN
367: -- Debug message
368: IF (AMS_DEBUG_HIGH_ON) THEN
369:
370: AMS_UTILITY_PVT.debug_message('Private API: Validate_Iba_Pl_Stylesheets');
371: END IF;
372:
373: -- Invoke validation procedures
374: Validate_iba_pl_stylesheets(
389: END IF;
390:
391:
392: -- Debug Message
393: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler'); END IF;
394:
395: -- Invoke table handler(AMS_IBA_PL_STYLESHTS_B_PKG.Update_Row)
396: AMS_IBA_PL_STYLESHTS_B_PKG.Update_Row(
397: p_stylesheet_id => p_iba_pl_stylesheets_rec.stylesheet_id,
421:
422: -- Debug Message
423: IF (AMS_DEBUG_HIGH_ON) THEN
424:
425: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
426: END IF;
427:
428: -- Standard call to get message count and if count is 1, get message info.
429: FND_MSG_PUB.Count_And_Get
431: p_data => x_msg_data
432: );
433: EXCEPTION
434:
435: WHEN AMS_Utility_PVT.resource_locked THEN
436: x_return_status := FND_API.g_ret_sts_error;
437: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
438:
439: WHEN FND_API.G_EXC_ERROR THEN
433: EXCEPTION
434:
435: WHEN AMS_Utility_PVT.resource_locked THEN
436: x_return_status := FND_API.g_ret_sts_error;
437: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
438:
439: WHEN FND_API.G_EXC_ERROR THEN
440: ROLLBACK TO UPDATE_Iba_Pl_Stylesheets_PVT;
441: x_return_status := FND_API.G_RET_STS_ERROR;
511:
512: -- Debug Message
513: IF (AMS_DEBUG_HIGH_ON) THEN
514:
515: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
516: END IF;
517:
518:
519: -- Initialize API return status to SUCCESS
524: --
525: -- Debug Message
526: IF (AMS_DEBUG_HIGH_ON) THEN
527:
528: AMS_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
529: END IF;
530:
531:
532: --Check if the style to be deleted is being used in any of placements, if so, it should not be deleted.
562:
563: -- Debug Message
564: IF (AMS_DEBUG_HIGH_ON) THEN
565:
566: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
567: END IF;
568:
569: -- Standard call to get message count and if count is 1, get message info.
570: FND_MSG_PUB.Count_And_Get
572: p_data => x_msg_data
573: );
574: EXCEPTION
575:
576: WHEN AMS_Utility_PVT.resource_locked THEN
577: x_return_status := FND_API.g_ret_sts_error;
578: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
579:
580: WHEN FND_API.G_EXC_ERROR THEN
574: EXCEPTION
575:
576: WHEN AMS_Utility_PVT.resource_locked THEN
577: x_return_status := FND_API.g_ret_sts_error;
578: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
579:
580: WHEN FND_API.G_EXC_ERROR THEN
581: ROLLBACK TO DELETE_Iba_Pl_Stylesheets_PVT;
582: x_return_status := FND_API.G_RET_STS_ERROR;
644:
645: -- Debug Message
646: IF (AMS_DEBUG_HIGH_ON) THEN
647:
648: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
649: END IF;
650:
651: -- Initialize message list if p_init_msg_list is set to TRUE.
652: IF FND_API.to_Boolean( p_init_msg_list )
673: IF (AMS_DEBUG_HIGH_ON) THEN
674:
675:
676:
677: AMS_Utility_PVT.debug_message(l_full_name||': start');
678:
679: END IF;
680: OPEN c_Iba_Pl_Stylesheets;
681:
698: p_count => x_msg_count,
699: p_data => x_msg_data);
700: IF (AMS_DEBUG_HIGH_ON) THEN
701:
702: AMS_Utility_PVT.debug_message(l_full_name ||': end');
703: END IF;
704: EXCEPTION
705:
706: WHEN AMS_Utility_PVT.resource_locked THEN
702: AMS_Utility_PVT.debug_message(l_full_name ||': end');
703: END IF;
704: EXCEPTION
705:
706: WHEN AMS_Utility_PVT.resource_locked THEN
707: x_return_status := FND_API.g_ret_sts_error;
708: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
709:
710: WHEN FND_API.G_EXC_ERROR THEN
704: EXCEPTION
705:
706: WHEN AMS_Utility_PVT.resource_locked THEN
707: x_return_status := FND_API.g_ret_sts_error;
708: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
709:
710: WHEN FND_API.G_EXC_ERROR THEN
711: ROLLBACK TO LOCK_Iba_Pl_Stylesheets_PVT;
712: x_return_status := FND_API.G_RET_STS_ERROR;
756: x_return_status := FND_API.g_ret_sts_success;
757: --If Validation_mode is create, check uniqueness of style name, stylesheet filename
758: if p_validation_mode = JTF_PLSQL_API.g_create then
759: -- Checking if the style name passed is unique
760: l_style_name_flag := ams_utility_pvt.check_uniqueness(
761: 'ams_iba_pl_styleshts_vl'
762: , 'name = ''' || p_iba_pl_stylesheets_rec.name ||''' and content_type = ''' || p_iba_pl_stylesheets_rec.content_type || ''''
763: );
764: if l_style_name_flag = fnd_api.g_false then
761: 'ams_iba_pl_styleshts_vl'
762: , 'name = ''' || p_iba_pl_stylesheets_rec.name ||''' and content_type = ''' || p_iba_pl_stylesheets_rec.content_type || ''''
763: );
764: if l_style_name_flag = fnd_api.g_false then
765: ams_uTILITY_pvt.error_Message(p_message_name => 'AMS_PLCE_STYLE_NAME_DUP');
766: x_return_status := fnd_api.g_ret_sts_error;
767: return;
768: end if;
769:
767: return;
768: end if;
769:
770: -- Checking if the stylesheet filename passed is unique
771: l_stylesheet_file_flag := ams_utility_pvt.check_uniqueness(
772: 'ams_iba_pl_styleshts_vl'
773: , 'STYLESHEET_FILENAME = ''' || p_iba_pl_stylesheets_rec.STYLESHEET_FILENAME ||''' and CONTENT_TYPE = ''' || p_iba_pl_stylesheets_rec.CONTENT_TYPE || ''''
774:
775: );
773: , 'STYLESHEET_FILENAME = ''' || p_iba_pl_stylesheets_rec.STYLESHEET_FILENAME ||''' and CONTENT_TYPE = ''' || p_iba_pl_stylesheets_rec.CONTENT_TYPE || ''''
774:
775: );
776: if l_stylesheet_file_flag = fnd_api.g_false then
777: ams_utility_pvt.error_Message(p_message_name => 'AMS_PLCE_DUP_STYLE_FILENAME');
778: x_return_status := fnd_api.g_ret_sts_error;
779: return;
780: end if;
781: end if;
782:
783: --If Validation_mode is update, check uniqueness of style name, stylesheet filename
784: if p_validation_mode = JTF_PLSQL_API.g_update then
785: -- Checking if the style name passed is unique
786: l_style_name_flag := ams_utility_pvt.check_uniqueness(
787: 'ams_iba_pl_styleshts_vl'
788: , 'name = ''' || p_iba_pl_stylesheets_rec.name ||''' and STYLESHEET_ID <> ' || p_iba_pl_stylesheets_rec.STYLESHEET_ID || ' and CONTENT_TYPE = ''' || p_iba_pl_stylesheets_rec.CONTENT_TYPE || ''''
789: );
790: IF (AMS_DEBUG_HIGH_ON) THEN
788: , 'name = ''' || p_iba_pl_stylesheets_rec.name ||''' and STYLESHEET_ID <> ' || p_iba_pl_stylesheets_rec.STYLESHEET_ID || ' and CONTENT_TYPE = ''' || p_iba_pl_stylesheets_rec.CONTENT_TYPE || ''''
789: );
790: IF (AMS_DEBUG_HIGH_ON) THEN
791:
792: AMS_UTILITY_PVT.debug_message('In update unique check - style_name: ' || p_iba_pl_stylesheets_rec.name);
793: END IF;
794: if l_style_name_flag = fnd_api.g_false then
795: ams_uTILITY_pvt.error_Message(p_message_name => 'AMS_PLCE_STYLE_NAME_DUP');
796: x_return_status := fnd_api.g_ret_sts_error;
791:
792: AMS_UTILITY_PVT.debug_message('In update unique check - style_name: ' || p_iba_pl_stylesheets_rec.name);
793: END IF;
794: if l_style_name_flag = fnd_api.g_false then
795: ams_uTILITY_pvt.error_Message(p_message_name => 'AMS_PLCE_STYLE_NAME_DUP');
796: x_return_status := fnd_api.g_ret_sts_error;
797: return;
798: end if;
799:
797: return;
798: end if;
799:
800: -- Checking if the stylesheet filename passed is unique
801: l_stylesheet_file_flag := ams_utility_pvt.check_uniqueness(
802: 'ams_iba_pl_styleshts_vl'
803: , 'STYLESHEET_FILENAME = ''' || p_iba_pl_stylesheets_rec.STYLESHEET_FILENAME ||''' and STYLESHEET_ID <> ' || p_iba_pl_stylesheets_rec.STYLESHEET_ID || ' and CONTENT_TYPE = ''' || p_iba_pl_stylesheets_rec.CONTENT_TYPE || ''''
804: );
805: if l_stylesheet_file_flag = fnd_api.g_false then
802: 'ams_iba_pl_styleshts_vl'
803: , 'STYLESHEET_FILENAME = ''' || p_iba_pl_stylesheets_rec.STYLESHEET_FILENAME ||''' and STYLESHEET_ID <> ' || p_iba_pl_stylesheets_rec.STYLESHEET_ID || ' and CONTENT_TYPE = ''' || p_iba_pl_stylesheets_rec.CONTENT_TYPE || ''''
804: );
805: if l_stylesheet_file_flag = fnd_api.g_false then
806: ams_utility_pvt.error_Message(p_message_name => 'AMS_PLCE_DUP_STYLE_FILENAME');
807: x_return_status := fnd_api.g_ret_sts_error;
808: return;
809: end if;
810: end if;
810: end if;
811:
812:
813: -- IF p_validation_mode = JTF_PLSQL_API.g_create THEN
814: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
815: -- 'AMS_IBA_PL_STYLESHTS_B',
816: -- 'STYLESHEET_ID = ''' || p_iba_pl_stylesheets_rec.STYLESHEET_ID ||''''
817: -- );
818: -- ELSE
815: -- 'AMS_IBA_PL_STYLESHTS_B',
816: -- 'STYLESHEET_ID = ''' || p_iba_pl_stylesheets_rec.STYLESHEET_ID ||''''
817: -- );
818: -- ELSE
819: -- l_valid_flag := AMS_Utility_PVT.check_uniqueness(
820: -- 'AMS_IBA_PL_STYLESHTS_B',
821: -- 'STYLESHEET_ID = ''' || p_iba_pl_stylesheets_rec.STYLESHEET_ID ||
822: -- ''' AND STYLESHEET_ID <> ' || p_iba_pl_stylesheets_rec.STYLESHEET_ID
823: -- );
823: -- );
824: -- END IF;
825:
826: -- IF l_valid_flag = FND_API.g_false THEN
827: -- AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_STYLESHEET_ID_DUPLICATE');
828: -- x_return_status := FND_API.g_ret_sts_error;
829: -- RETURN;
830: -- END IF;
831:
843: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
844:
845:
846: IF p_iba_pl_stylesheets_rec.stylesheet_id = FND_API.g_miss_num OR p_iba_pl_stylesheets_rec.stylesheet_id IS NULL THEN
847: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_stylesheet_id');
848: x_return_status := FND_API.g_ret_sts_error;
849: RETURN;
850: END IF;
851:
850: END IF;
851:
852:
853: IF p_iba_pl_stylesheets_rec.stylesheet_filename = FND_API.g_miss_char OR p_iba_pl_stylesheets_rec.stylesheet_filename IS NULL THEN
854: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_stylesheet_filename');
855: x_return_status := FND_API.g_ret_sts_error;
856: RETURN;
857: END IF;
858:
857: END IF;
858:
859:
860: IF p_iba_pl_stylesheets_rec.status_code = FND_API.g_miss_char OR p_iba_pl_stylesheets_rec.status_code IS NULL THEN
861: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_status_code');
862: x_return_status := FND_API.g_ret_sts_error;
863: RETURN;
864: END IF;
865:
864: END IF;
865:
866:
867: IF p_iba_pl_stylesheets_rec.created_by = FND_API.g_miss_num OR p_iba_pl_stylesheets_rec.created_by IS NULL THEN
868: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_created_by');
869: x_return_status := FND_API.g_ret_sts_error;
870: RETURN;
871: END IF;
872:
871: END IF;
872:
873:
874: IF p_iba_pl_stylesheets_rec.creation_date = FND_API.g_miss_date OR p_iba_pl_stylesheets_rec.creation_date IS NULL THEN
875: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_creation_date');
876: x_return_status := FND_API.g_ret_sts_error;
877: RETURN;
878: END IF;
879:
878: END IF;
879:
880:
881: IF p_iba_pl_stylesheets_rec.last_updated_by = FND_API.g_miss_num OR p_iba_pl_stylesheets_rec.last_updated_by IS NULL THEN
882: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_last_updated_by');
883: x_return_status := FND_API.g_ret_sts_error;
884: RETURN;
885: END IF;
886:
885: END IF;
886:
887:
888: IF p_iba_pl_stylesheets_rec.last_update_date = FND_API.g_miss_date OR p_iba_pl_stylesheets_rec.last_update_date IS NULL THEN
889: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_last_update_date');
890: x_return_status := FND_API.g_ret_sts_error;
891: RETURN;
892: END IF;
893: ELSE
893: ELSE
894:
895:
896: IF p_iba_pl_stylesheets_rec.stylesheet_id IS NULL THEN
897: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_stylesheet_id');
898: x_return_status := FND_API.g_ret_sts_error;
899: RETURN;
900: END IF;
901:
900: END IF;
901:
902:
903: IF p_iba_pl_stylesheets_rec.stylesheet_filename IS NULL THEN
904: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_stylesheet_filename');
905: x_return_status := FND_API.g_ret_sts_error;
906: RETURN;
907: END IF;
908:
907: END IF;
908:
909:
910: IF p_iba_pl_stylesheets_rec.status_code IS NULL THEN
911: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_status_code');
912: x_return_status := FND_API.g_ret_sts_error;
913: RETURN;
914: END IF;
915:
914: END IF;
915:
916:
917: IF p_iba_pl_stylesheets_rec.created_by IS NULL THEN
918: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_created_by');
919: x_return_status := FND_API.g_ret_sts_error;
920: RETURN;
921: END IF;
922:
921: END IF;
922:
923:
924: IF p_iba_pl_stylesheets_rec.creation_date IS NULL THEN
925: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_creation_date');
926: x_return_status := FND_API.g_ret_sts_error;
927: RETURN;
928: END IF;
929:
928: END IF;
929:
930:
931: IF p_iba_pl_stylesheets_rec.last_updated_by IS NULL THEN
932: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_last_updated_by');
933: x_return_status := FND_API.g_ret_sts_error;
934: RETURN;
935: END IF;
936:
935: END IF;
936:
937:
938: IF p_iba_pl_stylesheets_rec.last_update_date IS NULL THEN
939: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_iba_pl_stylesheets_NO_last_update_date');
940: x_return_status := FND_API.g_ret_sts_error;
941: RETURN;
942: END IF;
943: END IF;
1158:
1159: -- Debug Message
1160: IF (AMS_DEBUG_HIGH_ON) THEN
1161:
1162: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1163: END IF;
1164:
1165:
1166: -- Initialize API return status to SUCCESS
1169:
1170: -- Debug Message
1171: IF (AMS_DEBUG_HIGH_ON) THEN
1172:
1173: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1174: END IF;
1175:
1176: -- Standard call to get message count and if count is 1, get message info.
1177: FND_MSG_PUB.Count_And_Get
1179: p_data => x_msg_data
1180: );
1181: EXCEPTION
1182:
1183: WHEN AMS_Utility_PVT.resource_locked THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1186:
1187: WHEN FND_API.G_EXC_ERROR THEN
1181: EXCEPTION
1182:
1183: WHEN AMS_Utility_PVT.resource_locked THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1186:
1187: WHEN FND_API.G_EXC_ERROR THEN
1188: ROLLBACK TO VALIDATE_Iba_Pl_Stylesheets_;
1189: x_return_status := FND_API.G_RET_STS_ERROR;
1246:
1247: -- Debug Message
1248: IF (AMS_DEBUG_HIGH_ON) THEN
1249:
1250: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1251: END IF;
1252: -- Standard call to get message count and if count is 1, get message info.
1253: FND_MSG_PUB.Count_And_Get
1254: (p_count => x_msg_count,