52: FROM AMS_IBA_PS_STRATS_B
53: WHERE STRATEGY_ID = l_id;
54:
55: BEGIN
56: -- Standard Start of API savepoint
57: SAVEPOINT CREATE_Ps_Strats_PVT;
58:
59: -- Standard call to check for call compatibility.
60: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
55: BEGIN
56: -- Standard Start of API savepoint
57: SAVEPOINT CREATE_Ps_Strats_PVT;
58:
59: -- Standard call to check for call compatibility.
60: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
61: p_api_version_number,
62: l_api_name,
63: G_PKG_NAME)
160: -- End of API body
161: --
162: x_strategy_id := l_strategy_id;
163:
164: -- Standard check for p_commit
165: IF FND_API.to_Boolean( p_commit )
166: THEN
167: COMMIT WORK;
168: END IF;
172:
173: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
174: END IF;
175:
176: -- Standard call to get message count and if count is 1, get message info.
177: FND_MSG_PUB.Count_And_Get
178: (p_count => x_msg_count,
179: p_data => x_msg_data
180: );
186:
187: WHEN FND_API.G_EXC_ERROR THEN
188: ROLLBACK TO CREATE_Ps_Strats_PVT;
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: -- Standard call to get message count and if count=1, get the message
191: FND_MSG_PUB.Count_And_Get (
192: p_encoded => FND_API.G_FALSE,
193: p_count => x_msg_count,
194: p_data => x_msg_data
196:
197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198: ROLLBACK TO CREATE_Ps_Strats_PVT;
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: -- Standard call to get message count and if count=1, get the message
201: FND_MSG_PUB.Count_And_Get (
202: p_encoded => FND_API.G_FALSE,
203: p_count => x_msg_count,
204: p_data => x_msg_data
210: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
211: THEN
212: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
213: END IF;
214: -- Standard call to get message count and if count=1, get the message
215: FND_MSG_PUB.Count_And_Get (
216: p_encoded => FND_API.G_FALSE,
217: p_count => x_msg_count,
218: p_data => x_msg_data
255: l_rowid ROWID;
256: l_object_version NUMBER;
257:
258: BEGIN
259: -- Standard Start of API savepoint
260: SAVEPOINT UPDATE_Ps_Strats_PVT;
261:
262: -- Standard call to check for call compatibility.
263: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
258: BEGIN
259: -- Standard Start of API savepoint
260: SAVEPOINT UPDATE_Ps_Strats_PVT;
261:
262: -- Standard call to check for call compatibility.
263: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
264: p_api_version_number,
265: l_api_name,
266: G_PKG_NAME)
383: --
384: -- End of API body.
385: --
386:
387: -- Standard check for p_commit
388: IF FND_API.to_Boolean( p_commit )
389: THEN
390: COMMIT WORK;
391: END IF;
395:
396: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
397: END IF;
398:
399: -- Standard call to get message count and if count is 1, get message info.
400: FND_MSG_PUB.Count_And_Get
401: (p_count => x_msg_count,
402: p_data => x_msg_data
403: );
409:
410: WHEN FND_API.G_EXC_ERROR THEN
411: ROLLBACK TO UPDATE_Ps_Strats_PVT;
412: x_return_status := FND_API.G_RET_STS_ERROR;
413: -- Standard call to get message count and if count=1, get the message
414: FND_MSG_PUB.Count_And_Get (
415: p_encoded => FND_API.G_FALSE,
416: p_count => x_msg_count,
417: p_data => x_msg_data
419:
420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
421: ROLLBACK TO UPDATE_Ps_Strats_PVT;
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: -- Standard call to get message count and if count=1, get the message
424: FND_MSG_PUB.Count_And_Get (
425: p_encoded => FND_API.G_FALSE,
426: p_count => x_msg_count,
427: p_data => x_msg_data
433: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
434: THEN
435: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
436: END IF;
437: -- Standard call to get message count and if count=1, get the message
438: FND_MSG_PUB.Count_And_Get (
439: p_encoded => FND_API.G_FALSE,
440: p_count => x_msg_count,
441: p_data => x_msg_data
456: )
457: IS
458:
459: BEGIN
460: -- Standard Start of API savepoint
461: --SAVEPOINT UPDATE_Ps_Strats_Seg_PVT;
462:
463: -- Initialize API return status to SUCCESS
464: x_return_status := FND_API.G_RET_STS_SUCCESS;
499: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
500: l_object_version_number NUMBER;
501:
502: BEGIN
503: -- Standard Start of API savepoint
504: SAVEPOINT DELETE_Ps_Strats_PVT;
505:
506: -- Standard call to check for call compatibility.
507: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
502: BEGIN
503: -- Standard Start of API savepoint
504: SAVEPOINT DELETE_Ps_Strats_PVT;
505:
506: -- Standard call to check for call compatibility.
507: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
508: p_api_version_number,
509: l_api_name,
510: G_PKG_NAME)
543: --
544: -- End of API body
545: --
546:
547: -- Standard check for p_commit
548: IF FND_API.to_Boolean( p_commit )
549: THEN
550: COMMIT WORK;
551: END IF;
555:
556: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
557: END IF;
558:
559: -- Standard call to get message count and if count is 1, get message info.
560: FND_MSG_PUB.Count_And_Get
561: (p_count => x_msg_count,
562: p_data => x_msg_data
563: );
569:
570: WHEN FND_API.G_EXC_ERROR THEN
571: ROLLBACK TO DELETE_Ps_Strats_PVT;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: -- Standard call to get message count and if count=1, get the message
574: FND_MSG_PUB.Count_And_Get (
575: p_encoded => FND_API.G_FALSE,
576: p_count => x_msg_count,
577: p_data => x_msg_data
579:
580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
581: ROLLBACK TO DELETE_Ps_Strats_PVT;
582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
583: -- Standard call to get message count and if count=1, get the message
584: FND_MSG_PUB.Count_And_Get (
585: p_encoded => FND_API.G_FALSE,
586: p_count => x_msg_count,
587: p_data => x_msg_data
593: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
594: THEN
595: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
596: END IF;
597: -- Standard call to get message count and if count=1, get the message
598: FND_MSG_PUB.Count_And_Get (
599: p_encoded => FND_API.G_FALSE,
600: p_count => x_msg_count,
601: p_data => x_msg_data
641: THEN
642: FND_MSG_PUB.initialize;
643: END IF;
644:
645: -- Standard call to check for call compatibility.
646: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
647: p_api_version_number,
648: l_api_name,
649: G_PKG_NAME)
697:
698: WHEN FND_API.G_EXC_ERROR THEN
699: ROLLBACK TO LOCK_Ps_Strats_PVT;
700: x_return_status := FND_API.G_RET_STS_ERROR;
701: -- Standard call to get message count and if count=1, get the message
702: FND_MSG_PUB.Count_And_Get (
703: p_encoded => FND_API.G_FALSE,
704: p_count => x_msg_count,
705: p_data => x_msg_data
707:
708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
709: ROLLBACK TO LOCK_Ps_Strats_PVT;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: -- Standard call to get message count and if count=1, get the message
712: FND_MSG_PUB.Count_And_Get (
713: p_encoded => FND_API.G_FALSE,
714: p_count => x_msg_count,
715: p_data => x_msg_data
721: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
722: THEN
723: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
724: END IF;
725: -- Standard call to get message count and if count=1, get the message
726: FND_MSG_PUB.Count_And_Get (
727: p_encoded => FND_API.G_FALSE,
728: p_count => x_msg_count,
729: p_data => x_msg_data
1033: l_object_version_number NUMBER;
1034: l_ps_strats_rec AMS_Ps_Strats_PVT.ps_strats_rec_type;
1035:
1036: BEGIN
1037: -- Standard Start of API savepoint
1038: SAVEPOINT VALIDATE_Ps_Strats_;
1039:
1040: -- Standard call to check for call compatibility.
1041: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1036: BEGIN
1037: -- Standard Start of API savepoint
1038: SAVEPOINT VALIDATE_Ps_Strats_;
1039:
1040: -- Standard call to check for call compatibility.
1041: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1042: p_api_version_number,
1043: l_api_name,
1044: G_PKG_NAME)
1109:
1110: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1111: END IF;
1112:
1113: -- Standard call to get message count and if count is 1, get message info.
1114: FND_MSG_PUB.Count_And_Get
1115: (p_count => x_msg_count,
1116: p_data => x_msg_data
1117: );
1123:
1124: WHEN FND_API.G_EXC_ERROR THEN
1125: ROLLBACK TO VALIDATE_Ps_Strats_;
1126: x_return_status := FND_API.G_RET_STS_ERROR;
1127: -- Standard call to get message count and if count=1, get the message
1128: FND_MSG_PUB.Count_And_Get (
1129: p_encoded => FND_API.G_FALSE,
1130: p_count => x_msg_count,
1131: p_data => x_msg_data
1133:
1134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1135: ROLLBACK TO VALIDATE_Ps_Strats_;
1136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1137: -- Standard call to get message count and if count=1, get the message
1138: FND_MSG_PUB.Count_And_Get (
1139: p_encoded => FND_API.G_FALSE,
1140: p_count => x_msg_count,
1141: p_data => x_msg_data
1147: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1148: THEN
1149: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1150: END IF;
1151: -- Standard call to get message count and if count=1, get the message
1152: FND_MSG_PUB.Count_And_Get (
1153: p_encoded => FND_API.G_FALSE,
1154: p_count => x_msg_count,
1155: p_data => x_msg_data
1185: IF (AMS_DEBUG_HIGH_ON) THEN
1186:
1187: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1188: END IF;
1189: -- Standard call to get message count and if count is 1, get message info.
1190: FND_MSG_PUB.Count_And_Get
1191: (p_count => x_msg_count,
1192: p_data => x_msg_data
1193: );