[Home] [Help]
268: -- This procedure was written to replace Autonomous Transactions
269: --
270: l_return_status VARCHAR2(1);
271: BEGIN
272: -- Standard Start of API savepoint
273: SAVEPOINT logger_save;
274:
275: FORALL I in g_message_table.first .. g_message_table.last
276: INSERT INTO ams_act_logs (
403: and acl.list_act_type = 'TARGET' ;
404: l_list_group_rec AMS_List_Group_PVT.list_group_rec_type;
405: l_act_list_group_id number;
406: BEGIN
407: -- Standard Start of API savepoint
408: SAVEPOINT CREATE_Act_List_PVT;
409:
410: -- Standard call to check for call compatibility.
411: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
406: BEGIN
407: -- Standard Start of API savepoint
408: SAVEPOINT CREATE_Act_List_PVT;
409:
410: -- Standard call to check for call compatibility.
411: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
412: p_api_version_number,
413: l_api_name,
414: G_PKG_NAME)
612:
613: --end vbhandar 04/21 to copy metrics
614:
615:
616: -- Standard check for p_commit
617: IF FND_API.to_Boolean( p_commit )
618: THEN
619: COMMIT WORK;
620: END IF;
625:
626: AMS_Utility_PVT.debug_message('Private API: ' || l_api_name || 'end');
627: END IF;
628:
629: -- Standard call to get message count and if count is 1, get message info.
630: FND_MSG_PUB.Count_And_Get
631: (p_count => x_msg_count,
632: p_data => x_msg_data
633: );
639:
640: WHEN FND_API.G_EXC_ERROR THEN
641: ROLLBACK TO CREATE_Act_List_PVT;
642: x_return_status := FND_API.G_RET_STS_ERROR;
643: -- Standard call to get message count and if count=1, get the message
644: FND_MSG_PUB.Count_And_Get (
645: p_encoded => FND_API.G_FALSE,
646: p_count => x_msg_count,
647: p_data => x_msg_data
649:
650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
651: ROLLBACK TO CREATE_Act_List_PVT;
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: -- Standard call to get message count and if count=1, get the message
654: FND_MSG_PUB.Count_And_Get (
655: p_encoded => FND_API.G_FALSE,
656: p_count => x_msg_count,
657: p_data => x_msg_data
663: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
664: THEN
665: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
666: END IF;
667: -- Standard call to get message count and if count=1, get the message
668: FND_MSG_PUB.Count_And_Get (
669: p_encoded => FND_API.G_FALSE,
670: p_count => x_msg_count,
671: p_data => x_msg_data
842:
843: l_list_group_rec AMS_List_Group_PVT.list_group_rec_type;
844: l_action_cnt NUMBER;
845: BEGIN
846: -- Standard Start of API savepoint
847: SAVEPOINT UPDATE_Act_List_PVT;
848: -- Standard call to check for call compatibility.
849: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
850: p_api_version_number,
844: l_action_cnt NUMBER;
845: BEGIN
846: -- Standard Start of API savepoint
847: SAVEPOINT UPDATE_Act_List_PVT;
848: -- Standard call to check for call compatibility.
849: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
850: p_api_version_number,
851: l_api_name,
852: G_PKG_NAME)
1022: --
1023: -- End of API body.
1024: --
1025:
1026: -- Standard check for p_commit
1027: IF FND_API.to_Boolean( p_commit )
1028: THEN
1029: COMMIT WORK;
1030: END IF;
1035:
1036: AMS_Utility_PVT.debug_message('Private API: ' || l_api_name || 'end');
1037: END IF;
1038:
1039: -- Standard call to get message count and if count is 1, get message info.
1040: FND_MSG_PUB.Count_And_Get
1041: (p_count => x_msg_count,
1042: p_data => x_msg_data
1043: );
1048: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: ROLLBACK TO UPDATE_Act_List_PVT;
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052: -- Standard call to get message count and if count=1, get the message
1053: FND_MSG_PUB.Count_And_Get (
1054: p_encoded => FND_API.G_FALSE,
1055: p_count => x_msg_count,
1056: p_data => x_msg_data
1058:
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: ROLLBACK TO UPDATE_Act_List_PVT;
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1062: -- Standard call to get message count and if count=1, get the message
1063: FND_MSG_PUB.Count_And_Get (
1064: p_encoded => FND_API.G_FALSE,
1065: p_count => x_msg_count,
1066: p_data => x_msg_data
1072: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1073: THEN
1074: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1075: END IF;
1076: -- Standard call to get message count and if count=1, get the message
1077: FND_MSG_PUB.Count_And_Get (
1078: p_encoded => FND_API.G_FALSE,
1079: p_count => x_msg_count,
1080: p_data => x_msg_data
1117: BEGIN
1118: open c1;
1119: fetch c1 into l_char ;
1120: close c1;
1121: -- Standard Start of API savepoint
1122: SAVEPOINT DELETE_Act_List_PVT;
1123:
1124: -- Standard call to check for call compatibility.
1125: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1120: close c1;
1121: -- Standard Start of API savepoint
1122: SAVEPOINT DELETE_Act_List_PVT;
1123:
1124: -- Standard call to check for call compatibility.
1125: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1126: p_api_version_number,
1127: l_api_name,
1128: G_PKG_NAME)
1168: --
1169: -- End of API body
1170: --
1171:
1172: -- Standard check for p_commit
1173: IF FND_API.to_Boolean( p_commit )
1174: THEN
1175: COMMIT WORK;
1176: END IF;
1181:
1182: AMS_Utility_PVT.debug_message('Private API: ' || l_api_name || 'end');
1183: END IF;
1184:
1185: -- Standard call to get message count and if count is 1, get message info.
1186: FND_MSG_PUB.Count_And_Get
1187: (p_count => x_msg_count,
1188: p_data => x_msg_data
1189: );
1194: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1195: WHEN FND_API.G_EXC_ERROR THEN
1196: ROLLBACK TO DELETE_Act_List_PVT;
1197: x_return_status := FND_API.G_RET_STS_ERROR;
1198: -- Standard call to get message count and if count=1, get the message
1199: FND_MSG_PUB.Count_And_Get (
1200: p_encoded => FND_API.G_FALSE,
1201: p_count => x_msg_count,
1202: p_data => x_msg_data
1204:
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: ROLLBACK TO DELETE_Act_List_PVT;
1207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1208: -- Standard call to get message count and if count=1, get the message
1209: FND_MSG_PUB.Count_And_Get (
1210: p_encoded => FND_API.G_FALSE,
1211: p_count => x_msg_count,
1212: p_data => x_msg_data
1218: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1219: THEN
1220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1221: END IF;
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
1265: THEN
1266: FND_MSG_PUB.initialize;
1267: END IF;
1268:
1269: -- Standard call to check for call compatibility.
1270: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1271: p_api_version_number,
1272: l_api_name,
1273: G_PKG_NAME)
1317: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1318: WHEN FND_API.G_EXC_ERROR THEN
1319: ROLLBACK TO LOCK_Act_List_PVT;
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: -- Standard call to get message count and if count=1, get the message
1322: FND_MSG_PUB.Count_And_Get (
1323: p_encoded => FND_API.G_FALSE,
1324: p_count => x_msg_count,
1325: p_data => x_msg_data
1327:
1328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1329: ROLLBACK TO LOCK_Act_List_PVT;
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: -- Standard call to get message count and if count=1, get the message
1332: FND_MSG_PUB.Count_And_Get (
1333: p_encoded => FND_API.G_FALSE,
1334: p_count => x_msg_count,
1335: p_data => x_msg_data
1341: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1342: THEN
1343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1344: END IF;
1345: -- Standard call to get message count and if count=1, get the message
1346: FND_MSG_PUB.Count_And_Get (
1347: p_encoded => FND_API.G_FALSE,
1348: p_count => x_msg_count,
1349: p_data => x_msg_data
1762: l_object_version_number NUMBER;
1763: l_act_list_rec AMS_Act_List_PVT.act_list_rec_type;
1764:
1765: BEGIN
1766: -- Standard Start of API savepoint
1767: SAVEPOINT VALIDATE_Act_List_;
1768:
1769:
1770:
1767: SAVEPOINT VALIDATE_Act_List_;
1768:
1769:
1770:
1771: -- Standard call to check for call compatibility.
1772: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1773: p_api_version_number,
1774: l_api_name,
1775: G_PKG_NAME)
1836:
1837: WHEN FND_API.G_EXC_ERROR THEN
1838: ROLLBACK TO VALIDATE_Act_List_;
1839: x_return_status := FND_API.G_RET_STS_ERROR;
1840: -- Standard call to get message count and if count=1, get the message
1841: FND_MSG_PUB.Count_And_Get (
1842: p_encoded => FND_API.G_FALSE,
1843: p_count => x_msg_count,
1844: p_data => x_msg_data
1846:
1847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1848: ROLLBACK TO VALIDATE_Act_List_;
1849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1850: -- Standard call to get message count and if count=1, get the message
1851: FND_MSG_PUB.Count_And_Get (
1852: p_encoded => FND_API.G_FALSE,
1853: p_count => x_msg_count,
1854: p_data => x_msg_data
1860: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1861: THEN
1862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1863: END IF;
1864: -- Standard call to get message count and if count=1, get the message
1865: FND_MSG_PUB.Count_And_Get (
1866: p_encoded => FND_API.G_FALSE,
1867: p_count => x_msg_count,
1868: p_data => x_msg_data
1898: IF (AMS_DEBUG_HIGH_ON) THEN
1899:
1900: AMS_Utility_PVT.debug_message('Private API: Validate_rec');
1901: END IF;
1902: -- Standard call to get message count and if count is 1, get message info.
1903: FND_MSG_PUB.Count_And_Get
1904: (p_count => x_msg_count,
1905: p_data => x_msg_data
1906: );
1936: and list_act_type = 'TARGET' ;
1937:
1938: BEGIN
1939: x_return_status := FND_API.G_RET_STS_SUCCESS;
1940: -- Standard call to check for call compatibility.
1941: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1942: p_api_version,
1943: l_api_name,
1944: G_PKG_NAME) THEN
2005: RAISE FND_API.G_EXC_ERROR;
2006: end if;
2007: end if;
2008:
2009: -- Standard check of p_commit.
2010:
2011: IF FND_API.To_Boolean ( p_commit ) THEN
2012: COMMIT WORK;
2013: END IF;
2467: l_current_code varchar(30);
2468:
2469: Begin
2470:
2471: -- Standard Start of API savepoint
2472: SAVEPOINT Update_ListEntry_Source_Code;
2473:
2474: -- Debug Message
2475: /* ckapoor
2679: return;
2680: end if;
2681: --Ends changes.
2682:
2683: -- Standard call to check for call compatibility.
2684: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2685: p_api_version,
2686: l_api_name,
2687: G_PKG_NAME) THEN
2952: -- Initialize API return status to success
2953: x_return_status := FND_API.G_RET_STS_SUCCESS;
2954: -- Perform the database operation
2955:
2956: -- Standard check of p_commit.
2957:
2958: IF FND_API.To_Boolean ( p_commit ) THEN
2959: COMMIT WORK;
2960: END IF;
3052: l_status_code varchar2(30);
3053:
3054: begin
3055: x_return_status := FND_API.G_RET_STS_SUCCESS;
3056: -- Standard call to check for call compatibility.
3057: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3058: p_api_version,
3059: l_api_name,
3060: G_PKG_NAME) THEN
3105: end if;
3106: x_return_status := FND_API.G_RET_STS_SUCCESS;
3107: -- Perform the database operation
3108:
3109: -- Standard check of p_commit.
3110:
3111: IF FND_API.To_Boolean ( p_commit ) THEN
3112: COMMIT WORK;
3113: END IF;
4129: IF (AMS_DEBUG_HIGH_ON) THEN
4130: AMS_Utility_PVT.debug_message('Private API: copy_target_group, template_type'||l_templete_type);
4131: END IF;
4132:
4133: IF l_templete_type = 'STANDARD' THEN
4134: copy_template_instance
4135: ( p_query_templ_id => l_query_temp_id,
4136: p_old_header_id => l_old_list_header_id,
4137: p_new_header_id => l_list_header_id,
4242: l_act_list_rec.order_number := l_target_group_rec.order_number ;
4243: l_act_list_rec.group_code := l_target_group_rec.group_code ;
4244: IF l_act_list_rec.list_act_type= 'SQL' AND l_templete_type = 'PARAMETERIZED' THEN
4245: l_act_list_rec.list_header_id := l_query_id;
4246: ELSIF l_act_list_rec.list_act_type= 'SQL' AND l_templete_type = 'STANDARD' THEN
4247: l_act_list_rec.list_header_id := l_query_id;
4248: ELSE
4249: l_act_list_rec.list_header_id := l_target_group_rec.list_header_id ;
4250: END IF;
4407: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
4408: WHEN FND_API.G_EXC_ERROR THEN
4409: ROLLBACK TO copy_target_group_pvt;
4410: x_return_status := FND_API.G_RET_STS_ERROR;
4411: -- Standard call to get message count and if count=1, get the message
4412: FND_MSG_PUB.Count_And_Get (
4413: p_encoded => FND_API.G_FALSE,
4414: p_count => x_msg_count,
4415: p_data => x_msg_data
4417:
4418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4419: ROLLBACK TO copy_target_group_pvt;
4420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4421: -- Standard call to get message count and if count=1, get the message
4422: FND_MSG_PUB.Count_And_Get (
4423: p_encoded => FND_API.G_FALSE,
4424: p_count => x_msg_count,
4425: p_data => x_msg_data
4431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4432: THEN
4433: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4434: END IF;
4435: -- Standard call to get message count and if count=1, get the message
4436: FND_MSG_PUB.Count_And_Get (
4437: p_encoded => FND_API.G_FALSE,
4438: p_count => x_msg_count,
4439: p_data => x_msg_data