[Home] [Help]
51: -- x_return_status OUT VARCHAR2
52: -- x_msg_count OUT NUMBER
53: -- x_msg_data OUT VARCHAR2
54: -- Version : Current version 1.0
55: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
56: -- and basic operation, developer must manually add parameters and business logic as necessary.
57: --
58: -- History
59: --
89: SELECT 1
90: FROM ams_calendar_criteria
91: WHERE criteria_id = l_id;
92: BEGIN
93: -- Standard Start of API savepoint
94: SAVEPOINT create_cal_crt_pvt;
95: -- Standard call to check for call compatibility.
96: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
97: p_api_version_number,
91: WHERE criteria_id = l_id;
92: BEGIN
93: -- Standard Start of API savepoint
94: SAVEPOINT create_cal_crt_pvt;
95: -- Standard call to check for call compatibility.
96: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
97: p_api_version_number,
98: l_api_name,
99: G_PKG_NAME)
201: END IF;
202: --
203: -- End of API body
204: --
205: -- Standard check for p_commit
206: IF FND_API.to_Boolean( p_commit )
207: THEN
208: COMMIT WORK;
209: END IF;
210: -- Debug Message
211: IF (AMS_DEBUG_HIGH_ON) THEN
212: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
213: END IF;
214: -- Standard call to get message count and if count is 1, get message info.
215: FND_MSG_PUB.Count_And_Get
216: (p_count => x_msg_count,
217: p_data => x_msg_data
218: );
222: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
223: WHEN FND_API.G_EXC_ERROR THEN
224: ROLLBACK TO CREATE_Cal_Crt_PVT;
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: -- Standard call to get message count and if count=1, get the message
227: FND_MSG_PUB.Count_And_Get (
228: p_encoded => FND_API.G_FALSE,
229: p_count => x_msg_count,
230: p_data => x_msg_data
231: );
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: ROLLBACK TO CREATE_Cal_Crt_PVT;
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: -- Standard call to get message count and if count=1, get the message
236: FND_MSG_PUB.Count_And_Get (
237: p_encoded => FND_API.G_FALSE,
238: p_count => x_msg_count,
239: p_data => x_msg_data
245: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
246: THEN
247: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
248: END IF;
249: -- Standard call to get message count and if count=1, get the message
250: FND_MSG_PUB.Count_And_Get (
251: p_encoded => FND_API.G_FALSE,
252: p_count => x_msg_count,
253: p_data => x_msg_data
275: -- x_return_status OUT VARCHAR2
276: -- x_msg_count OUT NUMBER
277: -- x_msg_data OUT VARCHAR2
278: -- Version : Current version 1.0
279: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
280: -- and basic operation, developer must manually add parameters and business logic as necessary.
281: --
282: -- History
283: --
311: l_ref_cal_crt_rec_rec c_get_Cal_Crt%ROWTYPE ;
312: l_tar_cal_crt_rec_rec cal_crt_rec_rec_type := P_cal_crt_rec_rec;
313: l_rowid ROWID;
314: BEGIN
315: -- Standard Start of API savepoint
316: SAVEPOINT update_cal_crt_pvt;
317: -- Standard call to check for call compatibility.
318: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
319: p_api_version_number,
313: l_rowid ROWID;
314: BEGIN
315: -- Standard Start of API savepoint
316: SAVEPOINT update_cal_crt_pvt;
317: -- Standard call to check for call compatibility.
318: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
319: p_api_version_number,
320: l_api_name,
321: G_PKG_NAME)
441: -- End of API body.
442: --
443: END IF;
444:
445: -- Standard check for p_commit
446: IF FND_API.to_Boolean( p_commit )THEN
447: COMMIT WORK;
448: END IF;
449:
450: -- Debug Message
451: IF (AMS_DEBUG_HIGH_ON) THEN
452: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
453: END IF;
454: -- Standard call to get message count and if count is 1, get message info.
455: FND_MSG_PUB.Count_And_Get
456: (p_count => x_msg_count,
457: p_data => x_msg_data
458: );
465:
466: WHEN FND_API.G_EXC_ERROR THEN
467: ROLLBACK TO UPDATE_Cal_Crt_PVT;
468: x_return_status := FND_API.G_RET_STS_ERROR;
469: -- Standard call to get message count and if count=1, get the message
470: FND_MSG_PUB.Count_And_Get (
471: p_encoded => FND_API.G_FALSE,
472: p_count => x_msg_count,
473: p_data => x_msg_data
475:
476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
477: ROLLBACK TO UPDATE_Cal_Crt_PVT;
478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
479: -- Standard call to get message count and if count=1, get the message
480: FND_MSG_PUB.Count_And_Get (
481: p_encoded => FND_API.G_FALSE,
482: p_count => x_msg_count,
483: p_data => x_msg_data
488: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
489: THEN
490: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
491: END IF;
492: -- Standard call to get message count and if count=1, get the message
493: FND_MSG_PUB.Count_And_Get (
494: p_encoded => FND_API.G_FALSE,
495: p_count => x_msg_count,
496: p_data => x_msg_data
519: -- x_return_status OUT VARCHAR2
520: -- x_msg_count OUT NUMBER
521: -- x_msg_data OUT VARCHAR2
522: -- Version : Current version 1.0
523: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
524: -- and basic operation, developer must manually add parameters and business logic as necessary.
525: --
526: -- History
527: --
546: L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Cal_Crt';
547: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
548: l_object_version_number NUMBER;
549: BEGIN
550: -- Standard Start of API savepoint
551: SAVEPOINT delete_cal_crt_pvt;
552: -- Standard call to check for call compatibility.
553: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
554: p_api_version_number,
548: l_object_version_number NUMBER;
549: BEGIN
550: -- Standard Start of API savepoint
551: SAVEPOINT delete_cal_crt_pvt;
552: -- Standard call to check for call compatibility.
553: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
554: p_api_version_number,
555: l_api_name,
556: G_PKG_NAME)
583: p_object_version_number => p_object_version_number );
584: --
585: -- End of API body
586: --
587: -- Standard check for p_commit
588: IF FND_API.to_Boolean( p_commit )
589: THEN
590: COMMIT WORK;
591: END IF;
594:
595: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
596: END IF;
597:
598: -- Standard call to get message count and if count is 1, get message info.
599: FND_MSG_PUB.Count_And_Get
600: (p_count => x_msg_count,
601: p_data => x_msg_data
602: );
606: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
607: WHEN FND_API.G_EXC_ERROR THEN
608: ROLLBACK TO DELETE_Cal_Crt_PVT;
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: -- Standard call to get message count and if count=1, get the message
611: FND_MSG_PUB.Count_And_Get (
612: p_encoded => FND_API.G_FALSE,
613: p_count => x_msg_count,
614: p_data => x_msg_data
615: );
616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
617: ROLLBACK TO DELETE_Cal_Crt_PVT;
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619: -- Standard call to get message count and if count=1, get the message
620: FND_MSG_PUB.Count_And_Get (
621: p_encoded => FND_API.G_FALSE,
622: p_count => x_msg_count,
623: p_data => x_msg_data
629: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
630: THEN
631: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
632: END IF;
633: -- Standard call to get message count and if count=1, get the message
634: FND_MSG_PUB.Count_And_Get (
635: p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,
637: p_data => x_msg_data
660: -- x_return_status OUT VARCHAR2
661: -- x_msg_count OUT NUMBER
662: -- x_msg_data OUT VARCHAR2
663: -- Version : Current version 1.0
664: -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
665: -- and basic operation, developer must manually add parameters and business logic as necessary.
666: --
667: -- History
668: --
705: THEN
706: FND_MSG_PUB.initialize;
707:
708: END IF;
709: -- Standard call to check for call compatibility.
710: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
711: p_api_version_number,
712: l_api_name,
713: G_PKG_NAME)
737:
738: WHEN FND_API.G_EXC_ERROR THEN
739: ROLLBACK TO LOCK_Cal_Crt_PVT;
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: -- Standard call to get message count and if count=1, get the message
742: FND_MSG_PUB.Count_And_Get (
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data
747:
748: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
749: ROLLBACK TO LOCK_Cal_Crt_PVT;
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
751: -- Standard call to get message count and if count=1, get the message
752: FND_MSG_PUB.Count_And_Get (
753: p_encoded => FND_API.G_FALSE,
754: p_count => x_msg_count,
755: p_data => x_msg_data
761: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
762: THEN
763: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
764: END IF;
765: -- Standard call to get message count and if count=1, get the message
766: FND_MSG_PUB.Count_And_Get (
767: p_encoded => FND_API.G_FALSE,
768: p_count => x_msg_count,
769: p_data => x_msg_data
1113: l_object_version_number NUMBER;
1114: l_cal_crt_rec_rec cal_crt_rec_rec_type;
1115:
1116: BEGIN
1117: -- Standard Start of API savepoint
1118: SAVEPOINT validate_cal_crt_;
1119: -- Standard call to check for call compatibility.
1120: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1121: p_api_version_number,
1115:
1116: BEGIN
1117: -- Standard Start of API savepoint
1118: SAVEPOINT validate_cal_crt_;
1119: -- Standard call to check for call compatibility.
1120: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1121: p_api_version_number,
1122: l_api_name,
1123: G_PKG_NAME)
1194: -- Debug Message
1195: IF (AMS_DEBUG_HIGH_ON) THEN
1196: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1197: END IF;
1198: -- Standard call to get message count and if count is 1, get message info.
1199: FND_MSG_PUB.Count_And_Get
1200: (p_count => x_msg_count,
1201: p_data => x_msg_data
1202: );
1209: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1210: WHEN FND_API.G_EXC_ERROR THEN
1211: ROLLBACK TO VALIDATE_Cal_Crt_;
1212: x_return_status := FND_API.G_RET_STS_ERROR;
1213: -- Standard call to get message count and if count=1, get the message
1214: FND_MSG_PUB.Count_And_Get (
1215: p_encoded => FND_API.G_FALSE,
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1220: ROLLBACK TO VALIDATE_Cal_Crt_;
1221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1222: -- Standard call to get message count and if count=1, get the message
1223: FND_MSG_PUB.Count_And_Get (
1224: p_encoded => FND_API.G_FALSE,
1225: p_count => x_msg_count,
1226: p_data => x_msg_data
1231: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1232: THEN
1233: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1234: END IF;
1235: -- Standard call to get message count and if count=1, get the message
1236: FND_MSG_PUB.Count_And_Get (
1237: p_encoded => FND_API.G_FALSE,
1238: p_count => x_msg_count,
1239: p_data => x_msg_data
1266: -- Debug Message
1267: IF (AMS_DEBUG_HIGH_ON) THEN
1268: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1269: END IF;
1270: -- Standard call to get message count and if count is 1, get message info.
1271: FND_MSG_PUB.Count_And_Get
1272: (p_count => x_msg_count,
1273: p_data => x_msg_data
1274: );