374: l_module CONSTANT VARCHAR2(255) := 'as.plsql.intpv.Create_Interest';
375:
376: BEGIN
377:
378: -- Standard Start of API savepoint
379: SAVEPOINT CREATE_INTEREST_PVT;
380:
381: -- Standard call to check for call compatibility.
382: IF NOT FND_API.Compatible_API_Call( l_api_version_number,
377:
378: -- Standard Start of API savepoint
379: SAVEPOINT CREATE_INTEREST_PVT;
380:
381: -- Standard call to check for call compatibility.
382: IF NOT FND_API.Compatible_API_Call( l_api_version_number,
383: p_api_version_number,
384: l_api_name,
385: G_PKG_NAME)
846: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
847: FND_MSG_PUB.Add;
848: END IF;
849:
850: -- Standard check of p_commit.
851: IF FND_API.To_Boolean ( p_commit )
852: THEN
853: COMMIT WORK;
854: END IF;
859: FND_MESSAGE.Set_Name('AS', 'Pvt Interest API: End');
860: FND_MSG_PUB.Add;
861: END IF;
862:
863: -- Standard call to get message count and if count is 1, get message info.
864: FND_MSG_PUB.Count_And_Get( p_count => p_msg_count,
865: p_data => p_msg_data
866: );
867:
1006: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1007: l_module CONSTANT VARCHAR2(255) := 'as.plsql.intpv.Update_Interest';
1008: BEGIN
1009:
1010: -- Standard Start of API savepoint
1011: SAVEPOINT UPDATE_INTEREST_PVT;
1012:
1013: -- Standard call to check for call compatibility.
1014: IF NOT FND_API.Compatible_API_Call( l_api_version_number,
1009:
1010: -- Standard Start of API savepoint
1011: SAVEPOINT UPDATE_INTEREST_PVT;
1012:
1013: -- Standard call to check for call compatibility.
1014: IF NOT FND_API.Compatible_API_Call( l_api_version_number,
1015: p_api_version_number,
1016: l_api_name,
1017: G_PKG_NAME)
1355: FND_MESSAGE.Set_Token('ROW', 'AS_INTEREST', TRUE);
1356: FND_MSG_PUB.Add;
1357: END IF;
1358:
1359: -- Standard check of p_commit.
1360: IF FND_API.To_Boolean ( p_commit )
1361: THEN
1362: COMMIT WORK;
1363: END IF;
1368: FND_MESSAGE.Set_Name('AS', 'Pvt Interest API: End');
1369: FND_MSG_PUB.Add;
1370: END IF;
1371:
1372: -- Standard call to get message count and if count is 1, get message info.
1373: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1374: p_data => x_msg_data
1375: );
1376:
1456: x_lead_id NUMBER;
1457: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1458: l_module CONSTANT VARCHAR2(255) := 'as.plsql.intpv.Delete_Interest';
1459: begin
1460: -- Standard Start of API savepoint
1461: SAVEPOINT DELETE_INTEREST_PVT;
1462:
1463: -- Standard call to check for call compatibility.
1464: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1459: begin
1460: -- Standard Start of API savepoint
1461: SAVEPOINT DELETE_INTEREST_PVT;
1462:
1463: -- Standard call to check for call compatibility.
1464: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1465: p_api_version_number,
1466: l_api_name,
1467: G_PKG_NAME)
1647: --
1648: -- End of API body.
1649: --
1650:
1651: -- Standard check of p_commit.
1652: IF FND_API.To_Boolean ( p_commit )
1653: THEN
1654: COMMIT WORK;
1655: END IF;
1653: THEN
1654: COMMIT WORK;
1655: END IF;
1656:
1657: -- Standard call to get message count and if count is 1, get message info.
1658: FND_MSG_PUB.Count_And_Get
1659: ( p_count => x_msg_count,
1660: p_data => x_msg_data
1661: );