[Home] [Help]
203: l_status_name VARCHAR2(240);
204: l_old_status_name VARCHAR2(240);
205: l_stage_name VARCHAR2(60);
206: l_old_stage_name VARCHAR2(60);
207: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
208: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.HEADER_CREATE_NOTE';
209:
210: BEGIN
211: -- Initialize API return status to SUCCESS
231: FND_MESSAGE.Set_Token('LEAD_NUM', p_lead_number, FALSE);
232: Note_Message := FND_MESSAGE.Get;
233:
234: IF l_debug THEN
235: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
236: Note_Message);
237: END IF;
238:
239: JTF_NOTES_PUB.Create_note (
280: FND_MESSAGE.Set_Token('LEAD_NUM', p_lead_number, FALSE);
281: Note_Message := FND_MESSAGE.Get;
282:
283: IF l_debug THEN
284: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
285: Note_Message);
286: END IF;
287:
288: JTF_NOTES_PUB.Create_note (
321: FND_MESSAGE.Set_Token('LEAD_NUM', p_lead_number, FALSE);
322: Note_Message := FND_MESSAGE.Get;
323:
324: IF l_debug THEN
325: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
326: Note_Message);
327: END IF;
328:
329:
362: FND_MESSAGE.Set_Token('LEAD_NUM', p_lead_number, FALSE);
363: Note_Message := FND_MESSAGE.Get;
364:
365: IF l_debug THEN
366: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
367: Note_Message);
368: END IF;
369:
370: JTF_NOTES_PUB.Create_note (
416:
417: l_tmplate_group_id NUMBER;
418:
419: l_return_status varchar2(10);
420: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
421: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Recreate_tasks';
422:
423: BEGIN
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
425: X_Warning_Message := NULL;
426:
427: IF l_debug THEN
428: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
429: 'LEAD_ID/RS_ID: '||p_LEAD_ID || ',' ||p_RESOURCE_ID );
430: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
431: 'OLD_SM/SS_ID: '|| p_OLD_SALES_METHODOLOGY_ID||',' || p_OLD_SALES_STAGE_ID);
432: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
426:
427: IF l_debug THEN
428: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
429: 'LEAD_ID/RS_ID: '||p_LEAD_ID || ',' ||p_RESOURCE_ID );
430: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
431: 'OLD_SM/SS_ID: '|| p_OLD_SALES_METHODOLOGY_ID||',' || p_OLD_SALES_STAGE_ID);
432: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
433: 'SM/SS_ID: ' || p_SALES_METHODOLOGY_ID ||',' || p_SALES_STAGE_ID );
434: END IF;
428: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
429: 'LEAD_ID/RS_ID: '||p_LEAD_ID || ',' ||p_RESOURCE_ID );
430: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
431: 'OLD_SM/SS_ID: '|| p_OLD_SALES_METHODOLOGY_ID||',' || p_OLD_SALES_STAGE_ID);
432: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
433: 'SM/SS_ID: ' || p_SALES_METHODOLOGY_ID ||',' || p_SALES_STAGE_ID );
434: END IF;
435:
436: IF (p_SALES_METHODOLOGY_ID IS NOT NULL) AND
445: close template;
446:
447: IF(l_tmplate_group_id IS NOT NULL) THEN
448: IF l_debug THEN
449: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
450: 'Lunching workflow for autotask creation');
451: END IF;
452: -- lunch workflow
453: as_sales_meth_wf.start_methodology(
476: x_return_status := substr(l_return_status, 1, 1);
477: end if;
478:
479: IF l_debug THEN
480: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'x_return_status: ' || x_return_status );
481: END IF;
482:
483: EXCEPTION
484: WHEN OTHERS
694: select party_site_id
695: from hz_party_sites
696: where party_id = p_customer_id
697: and IDENTIFYING_ADDRESS_FLAG = 'Y';
698: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
699: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Create_opp_header';
700:
701: BEGIN
702: -- Standard Start of API savepoint
714:
715: -- Initialize message list if p_init_msg_list is set to TRUE.
716: IF FND_API.to_Boolean( p_init_msg_list )
717: THEN
718: FND_MSG_PUB.initialize;
719: END IF;
720:
721:
722: -- Debug Message
720:
721:
722: -- Debug Message
723: IF l_debug THEN
724: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
725: 'Private API: ' || l_api_name || ' start');
726: END IF;
727:
728:
757: -- Validate Environment
758: -- ******************************************************************
759: IF FND_GLOBAL.User_Id IS NULL
760: THEN
761: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
762: THEN
763: -- FND_MESSAGE.Set_Name(' + appShortName +',
764: -- 'UT_CANNOT_GET_PROFILE_VALUE');
765: -- FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
762: THEN
763: -- FND_MESSAGE.Set_Name(' + appShortName +',
764: -- 'UT_CANNOT_GET_PROFILE_VALUE');
765: -- FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
766: -- FND_MSG_PUB.ADD;
767:
768: AS_UTILITY_PVT.Set_Message(
769: p_module => l_module,
770: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
766: -- FND_MSG_PUB.ADD;
767:
768: AS_UTILITY_PVT.Set_Message(
769: p_module => l_module,
770: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
771: p_msg_name => 'UT_CANNOT_GET_PROFILE_VALUE',
772: p_token1 => 'PROFILE',
773: p_token1_value => 'USER_ID');
774:
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
779: IF l_debug THEN
780: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
781: 'Before Get_CurrentUser '|| x_return_status);
782: END IF;
783:
784: IF (p_validation_level = fnd_api.g_valid_level_full)
798: RAISE FND_API.G_EXC_ERROR;
799: END IF;
800:
801: IF l_debug THEN
802: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'After Get_CurrentUser '|| x_return_status);
803: END IF;
804:
805: -- Set default value to decision_date, channel_code, status_code,
806: -- sales_stage_id, win_probability, freeze_flag, and currency_code
826: (l_Header_Rec.freeze_flag IS NULL) or -- solin, bug 1554330
827: (l_Header_Rec.freeze_flag = FND_API.G_MISS_CHAR) -- solin, bug 1554330
828: THEN
829: IF l_debug THEN
830: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
831: 'Calling Set_opp_default_values');
832: END IF;
833:
834: l_header_rec1 := l_header_rec;
851: If (l_Header_Rec.address_id IS NULL OR
852: l_Header_Rec.address_id = FND_API.G_MISS_NUM )
853: THEN
854: IF l_debug THEN
855: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
856: 'No primary address for customer');
857: END IF;
858:
859: END IF;
863: l_Header_Rec.decision_date := trunc(l_Header_Rec.decision_date);
864:
865: -- Debug message
866: IF l_debug THEN
867: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
868: 'Private API: Validate_opp_header');
869: END IF;
870:
871:
894: IF p_check_access_flag = 'Y'
895: THEN
896: -- Call Get_Access_Profiles to get access_profile_rec
897: IF l_debug THEN
898: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
899: 'Calling Get_Access_Profiles');
900: END IF;
901:
902: AS_OPPORTUNITY_PUB.Get_Access_Profiles(
903: p_profile_tbl => p_profile_tbl,
904: x_access_profile_rec => l_access_profile_rec);
905:
906: IF l_debug THEN
907: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
908: 'Calling Has_viewCustomerAccess');
909: END IF;
910:
911: AS_ACCESS_PUB.Has_viewCustomerAccess(
926: x_msg_data => x_msg_data,
927: x_view_access_flag => l_access_flag);
928:
929: IF l_access_flag <> 'Y' THEN
930: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
931: 'API_NO_CREATE_PRIVILEGE');
932: END IF;
933:
934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
943: -- Hint: Add corresponding Master-Detail business logic here if necessary.
944:
945: -- Debug Message
946: IF l_debug THEN
947: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
948: 'Private API: Calling create table handler');
949: END IF;
950:
951:
951:
952: l_LEAD_ID := l_Header_Rec.LEAD_ID;
953:
954: IF l_debug THEN
955: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'OFFER_ID: ' || p_header_rec.OFFER_ID);
956: END IF;
957:
958: -- Hardcoding to NULL for R12 since it will be filled in when
959: -- Lines are created
1085: CLOSE get_person_id_csr;
1086:
1087: -- Debug Message
1088: IF l_debug THEN
1089: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1090: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
1091: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1092: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
1093: END IF;
1087: -- Debug Message
1088: IF l_debug THEN
1089: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1090: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
1091: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1092: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
1093: END IF;
1094:
1095:
1121: END IF;
1122:
1123: -- Debug Message
1124: IF l_debug THEN
1125: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1126: 'Calling Create_SalesTeam');
1127: END IF;
1128:
1129: AS_ACCESS_PUB.Create_SalesTeam (
1144: );
1145:
1146: -- Debug Message
1147: IF l_debug THEN
1148: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1149: 'Create_SalesTeam:l_access_id = ' || l_access_id);
1150: END IF;
1151:
1152:
1177: l_is_owner := 'Y';
1178:
1179: -- Debug Message
1180: IF l_debug THEN
1181: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1182: 'Calling Create_SalesTeam for owner');
1183: END IF;
1184:
1185: AS_ACCESS_PUB.Create_SalesTeam (
1200: );
1201:
1202: -- Debug Message
1203: IF l_debug THEN
1204: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Create_Owner_ST:l_access_id = ' || l_access_id);
1205: END IF;
1206:
1207:
1208:
1218:
1219: -- Assign/Reassign the territory resources for the opportunity
1220: -- Debug Message
1221: IF l_debug THEN
1222: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Opportunity Real Time API');
1223: END IF;
1224:
1225:
1226: AS_RTTAP_OPPTY.RTTAP_WRAPPER(
1234: );
1235:
1236: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1237: IF l_debug THEN
1238: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Opportunity Real Time API fail');
1239: END IF;
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242:
1242:
1243:
1244: -- Debug Message
1245: IF l_debug THEN
1246: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Recreate_tasks');
1247: END IF;
1248:
1249: Recreate_tasks(
1250: p_LEAD_ID => l_lead_id,
1259: X_Warning_Message => l_warning_msg );
1260:
1261: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1262: IF l_debug THEN
1263: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Recreate_tasks fail');
1264: END IF;
1265:
1266: RAISE FND_API.G_EXC_ERROR;
1267: END IF;
1290: X_Msg_Data => x_msg_data);
1291:
1292: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1293: IF l_debug THEN
1294: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Create lead competitor fail');
1295: END IF;
1296:
1297: RAISE FND_API.G_EXC_ERROR;
1298: END IF;
1310: x_return_status => x_return_status);
1311:
1312: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1313: IF l_debug THEN
1314: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Update competitor Products fail');
1315: END IF;
1316: RAISE FND_API.G_EXC_ERROR;
1317: END IF;
1318:
1331:
1332:
1333: -- Debug Message
1334: IF l_debug THEN
1335: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: ' || l_api_name || ' end');
1336: END IF;
1337:
1338:
1339:
1337:
1338:
1339:
1340: -- Standard call to get message count and if count is 1, get message info.
1341: FND_MSG_PUB.Count_And_Get
1342: ( p_count => x_msg_count,
1343: p_data => x_msg_data
1344: );
1345:
1374: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1375: P_MODULE => l_module
1376: ,P_API_NAME => L_API_NAME
1377: ,P_PKG_NAME => G_PKG_NAME
1378: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1379: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1380: ,X_MSG_COUNT => X_MSG_COUNT
1381: ,X_MSG_DATA => X_MSG_DATA
1382: ,X_RETURN_STATUS => X_RETURN_STATUS);
1385: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1386: P_MODULE => l_module
1387: ,P_API_NAME => L_API_NAME
1388: ,P_PKG_NAME => G_PKG_NAME
1389: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1390: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1391: ,X_MSG_COUNT => X_MSG_COUNT
1392: ,X_MSG_DATA => X_MSG_DATA
1393: ,X_RETURN_STATUS => X_RETURN_STATUS);
1525: l_update_count NUMBER;
1526: l_count NUMBER;
1527: l_forecast_credit_type_id CONSTANT NUMBER := FND_PROFILE.VALUE('AS_FORECAST_CREDIT_TYPE_ID');
1528: l_temp_bool BOOLEAN;
1529: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1530: x_lead_id NUMBER;
1531: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Update_opp_header';
1532:
1533: BEGIN
1546:
1547: -- Initialize message list if p_init_msg_list is set to TRUE.
1548: IF FND_API.to_Boolean( p_init_msg_list )
1549: THEN
1550: FND_MSG_PUB.initialize;
1551: END IF;
1552:
1553:
1554: -- Debug Message
1552:
1553:
1554: -- Debug Message
1555: IF l_debug THEN
1556: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: ' || l_api_name || ' start');
1557: END IF;
1558:
1559:
1560: -- Initialize API return status to SUCCESS
1602: END IF;
1603:
1604: -- Debug Message
1605: IF l_debug THEN
1606: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Open Cursor to Select');
1607: END IF;
1608:
1609:
1610: Open C_Get_opp_header( l_Header_rec.LEAD_ID);
1623: IF (UPPER(l_deleted_flag) = 'Y')
1624: THEN
1625: AS_UTILITY_PVT.Set_Message(
1626: p_module => l_module,
1627: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1628: p_msg_name => 'API_DELETED_OPP_HEADER');
1629:
1630: raise FND_API.G_EXC_ERROR;
1631: END IF;
1635: IF l_freeze_flag = 'Y'
1636: THEN
1637: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
1638: IF l_allow_flag <> 'Y' THEN
1639: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
1640: 'API_OPP_FROZEN');
1641: RAISE FND_API.G_EXC_ERROR;
1642: END IF;
1643: END IF;
1644: -- end 1554330
1645:
1646: IF ( C_Get_opp_header%NOTFOUND)
1647: THEN
1648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1649: THEN
1650: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1651: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
1652: -- FND_MSG_PUB.Add;
1648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1649: THEN
1650: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1651: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
1652: -- FND_MSG_PUB.Add;
1653:
1654: AS_UTILITY_PVT.Set_Message(
1655: p_module => l_module,
1656: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1652: -- FND_MSG_PUB.Add;
1653:
1654: AS_UTILITY_PVT.Set_Message(
1655: p_module => l_module,
1656: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1657: p_msg_name => 'API_MISSING_OPP_HEADER_UPDATE');
1658:
1659: END IF;
1660: raise FND_API.G_EXC_ERROR;
1661: END IF;
1662:
1663: -- Debug Message
1664: IF l_debug THEN
1665: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1666: END IF;
1667: close C_Get_opp_header;
1668:
1669: If (l_Header_rec.last_update_date is NULL or
1667: close C_Get_opp_header;
1668:
1669: If (l_Header_rec.last_update_date is NULL or
1670: l_Header_rec.last_update_date = FND_API.G_MISS_Date ) Then
1671: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1672: THEN
1673: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1674: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1675: -- FND_MSG_PUB.ADD;
1671: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1672: THEN
1673: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1674: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1675: -- FND_MSG_PUB.ADD;
1676:
1677: AS_UTILITY_PVT.Set_Message(
1678: p_module => l_module,
1679: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1675: -- FND_MSG_PUB.ADD;
1676:
1677: AS_UTILITY_PVT.Set_Message(
1678: p_module => l_module,
1679: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1680: p_msg_name => 'API_MISSING_LAST_UPDATE_DATE');
1681:
1682: END IF;
1683: raise FND_API.G_EXC_ERROR;
1683: raise FND_API.G_EXC_ERROR;
1684: End if;
1685: -- Check Whether record has been changed by someone else
1686: If (l_Header_rec.last_update_date <> l_last_update_date) Then
1687: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1688: THEN
1689: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
1690: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
1691: -- FND_MSG_PUB.ADD;
1687: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1688: THEN
1689: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
1690: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
1691: -- FND_MSG_PUB.ADD;
1692:
1693: AS_UTILITY_PVT.Set_Message(
1694: p_module => l_module,
1695: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1691: -- FND_MSG_PUB.ADD;
1692:
1693: AS_UTILITY_PVT.Set_Message(
1694: p_module => l_module,
1695: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1696: p_msg_name => 'API_OPP_HEADER_CHANGED');
1697:
1698: END IF;
1699: raise FND_API.G_EXC_ERROR;
1712: (l_Header_Rec.auto_assignment_type IS NULL) or --ffang 091500 for B1407007
1713: (l_Header_Rec.prm_assignment_type IS NULL) --ffang 091500 for B1407007
1714: THEN
1715: IF l_debug THEN
1716: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Set_opp_default_values');
1717: END IF;
1718:
1719: l_header_rec1 := l_header_rec;
1720: Set_opp_default_values(
1735: END IF;
1736:
1737: -- Debug message
1738: IF l_debug THEN
1739: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_opp_header');
1740: END IF;
1741:
1742:
1743: -- Invoke validation procedures
1777: l_comp_required := 'Y';
1778: END IF;
1779:
1780: IF nvl(l_comp_required, 'N') = 'Y' THEN
1781: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1782: THEN
1783: AS_UTILITY_PVT.Set_Message(
1784: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1785: p_msg_name => 'API_CLOSE_COMPETITOR_REQUIRED');
1780: IF nvl(l_comp_required, 'N') = 'Y' THEN
1781: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1782: THEN
1783: AS_UTILITY_PVT.Set_Message(
1784: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1785: p_msg_name => 'API_CLOSE_COMPETITOR_REQUIRED');
1786: END IF;
1787: raise FND_API.G_EXC_ERROR;
1788: END IF;
1818: x_msg_data => x_msg_data,
1819: x_update_access_flag => l_access_flag);
1820:
1821: IF l_access_flag <> 'Y' THEN
1822: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
1823: 'API_NO_UPDATE_PRIVILEGE');
1824: RAISE FND_API.G_EXC_ERROR;
1825: END IF;
1826:
1858: (l_header_rec.win_probability <> l_win_prob)
1859: THEN
1860: -- Debug message
1861: IF l_debug THEN
1862: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Create notes');
1863: END IF;
1864:
1865: IF (l_header_rec.lead_number is NOT NULL) and
1866: (l_header_rec.lead_number <> FND_API.G_MISS_CHAR)
1885: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1886: RAISE FND_API.G_EXC_ERROR;
1887: ELSE
1888: IF l_debug THEN
1889: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Notes created. note_id=' || l_note_id);
1890: END IF;
1891: END IF;
1892: END IF;
1893: END IF;
1918: ,x_update_access_flag => l_access_flag
1919: );
1920:
1921: IF (l_access_flag <> 'Y') THEN
1922: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1923: FND_MESSAGE.Set_Name('AS', 'API_NO_OPP_OWNER_PRIVILEGE');
1924: FND_MSG_PUB.ADD;
1925: END IF;
1926: RAISE FND_API.G_EXC_ERROR;
1920:
1921: IF (l_access_flag <> 'Y') THEN
1922: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1923: FND_MESSAGE.Set_Name('AS', 'API_NO_OPP_OWNER_PRIVILEGE');
1924: FND_MSG_PUB.ADD;
1925: END IF;
1926: RAISE FND_API.G_EXC_ERROR;
1927: END IF;
1928:
1926: RAISE FND_API.G_EXC_ERROR;
1927: END IF;
1928:
1929: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1930: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1931: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_oppOwnerAccess fail');
1932: END IF;
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1927: END IF;
1928:
1929: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1930: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1931: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_oppOwnerAccess fail');
1932: END IF;
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935: END IF;
1939: -- Hint: Add corresponding Master-Detail business logic here if necessary.
1940:
1941: -- Debug Message
1942: IF l_debug THEN
1943: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1944: 'Private API: Calling update table handler');
1945:
1946: END IF;
1947:
2151:
2152: -- Reset the owner in the sales team
2153: -- Debug Message
2154: IF l_debug THEN
2155: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2156: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
2157: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2158: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2159:
2153: -- Debug Message
2154: IF l_debug THEN
2155: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2156: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
2157: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2158: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2159:
2160: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2161: 'l_owner_sf_id: '||l_owner_salesforce_id );
2156: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
2157: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2158: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2159:
2160: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2161: 'l_owner_sf_id: '||l_owner_salesforce_id );
2162: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2163: 'l_owner_sg_id: '||l_owner_sales_group_id );
2164: END IF;
2158: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2159:
2160: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2161: 'l_owner_sf_id: '||l_owner_salesforce_id );
2162: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2163: 'l_owner_sg_id: '||l_owner_sales_group_id );
2164: END IF;
2165:
2166:
2214: CLOSE get_person_id_csr;
2215:
2216: -- Debug Message
2217: IF l_debug THEN
2218: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2219: 'Calling Create_SalesTeam');
2220:
2221: END IF;
2222:
2238: );
2239:
2240: -- Debug Message
2241: IF l_debug THEN
2242: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2243: 'Create_owner_ST :l_access_id = ' || l_access_id);
2244: END IF;
2245:
2246:
2269: -- Assign/Reassign the territory resources for the opportunity
2270:
2271: -- Debug Message
2272: IF l_debug THEN
2273: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Opportunity Real Time API');
2274: END IF;
2275:
2276: AS_RTTAP_OPPTY.RTTAP_WRAPPER(
2277: P_Api_Version_Number => 1.0,
2284: );
2285:
2286: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2287: IF l_debug THEN
2288: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Opportunity Real Time API fail');
2289: END IF;
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2292:
2292:
2293:
2294: -- Debug Message
2295: IF l_debug THEN
2296: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Recreate_tasks');
2297: END IF;
2298:
2299:
2300: l_new_SALES_METHODOLOGY_ID := l_header_rec.SALES_METHODOLOGY_ID;
2310: IF l_old_sales_methodology_id IS NOT NULL AND
2311: nvl(l_new_SALES_METHODOLOGY_ID, -99) <> l_old_sales_methodology_id THEN
2312:
2313: IF l_debug THEN
2314: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2315: 'Should not change Sales methodology');
2316: END IF;
2317:
2318: AS_UTILITY_PVT.Set_Message(
2316: END IF;
2317:
2318: AS_UTILITY_PVT.Set_Message(
2319: p_module => l_module,
2320: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2321: p_msg_name => 'API_NO_UPDATE_SALES_METHODOLOGY');
2322:
2323:
2324: RAISE FND_API.G_EXC_ERROR;
2337: X_Warning_Message => l_warning_msg );
2338:
2339: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2340: IF l_debug THEN
2341: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2342: 'Recreate_tasks fail');
2343: END IF;
2344:
2345: RAISE FND_API.G_EXC_ERROR;
2367: X_Msg_Data => x_msg_data);
2368:
2369: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2370: IF l_debug THEN
2371: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2372: 'Create lead competitor fail');
2373: END IF;
2374:
2375: RAISE FND_API.G_EXC_ERROR;
2389: x_return_status => x_return_status);
2390:
2391: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2392: IF l_debug THEN
2393: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2394: 'Update competitor Products fail');
2395: END IF;
2396: RAISE FND_API.G_EXC_ERROR;
2397: END IF;
2411:
2412:
2413: -- Debug Message
2414: IF l_debug THEN
2415: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2416: 'Private API: ' || l_api_name || ' end');
2417: END IF;
2418:
2419:
2417: END IF;
2418:
2419:
2420: -- Standard call to get message count and if count is 1, get message info.
2421: FND_MSG_PUB.Count_And_Get
2422: ( p_count => x_msg_count,
2423: p_data => x_msg_data
2424: );
2425:
2453: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2454: P_MODULE => l_module
2455: ,P_API_NAME => L_API_NAME
2456: ,P_PKG_NAME => G_PKG_NAME
2457: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2458: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2459: ,X_MSG_COUNT => X_MSG_COUNT
2460: ,X_MSG_DATA => X_MSG_DATA
2461: ,X_RETURN_STATUS => X_RETURN_STATUS);
2464: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2465: P_MODULE => l_module
2466: ,P_API_NAME => L_API_NAME
2467: ,P_PKG_NAME => G_PKG_NAME
2468: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2469: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2470: ,X_MSG_COUNT => X_MSG_COUNT
2471: ,X_MSG_DATA => X_MSG_DATA
2472: ,X_RETURN_STATUS => X_RETURN_STATUS);
2519: l_allow_flag VARCHAR2(1); -- solin, for bug 1554330
2520: l_access_profile_rec AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE;
2521: l_access_flag VARCHAR2(1);
2522: l_val VARCHAR2(1);
2523: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
2524: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Delete_opp_header';
2525:
2526: BEGIN
2527: -- Standard Start of API savepoint
2539:
2540: -- Initialize message list if p_init_msg_list is set to TRUE.
2541: IF FND_API.to_Boolean( p_init_msg_list )
2542: THEN
2543: FND_MSG_PUB.initialize;
2544: END IF;
2545:
2546:
2547: -- Debug Message
2545:
2546:
2547: -- Debug Message
2548: IF l_debug THEN
2549: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2550: 'Private API: ' || l_api_name || ' start');
2551: END IF;
2552:
2553:
2592: END IF;
2593:
2594: -- Debug Message
2595: IF l_debug THEN
2596: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Open Cursor to Select');
2597: END IF;
2598:
2599: Open C_Get_opp_header( p_LEAD_ID);
2600: Fetch C_Get_opp_header into l_last_update_date, l_freeze_flag;
2599: Open C_Get_opp_header( p_LEAD_ID);
2600: Fetch C_Get_opp_header into l_last_update_date, l_freeze_flag;
2601:
2602: If ( C_Get_opp_header%NOTFOUND) Then
2603: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2604: THEN
2605: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2606: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
2607: -- FND_MSG_PUB.Add;
2603: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2604: THEN
2605: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2606: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
2607: -- FND_MSG_PUB.Add;
2608:
2609: AS_UTILITY_PVT.Set_Message(
2610: p_module => l_module,
2611: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2607: -- FND_MSG_PUB.Add;
2608:
2609: AS_UTILITY_PVT.Set_Message(
2610: p_module => l_module,
2611: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2612: p_msg_name => 'API_MISSING_OPP_HEADER_UPDATE');
2613:
2614: END IF;
2615: raise FND_API.G_EXC_ERROR;
2616: END IF;
2617:
2618: -- Debug Message
2619: IF l_debug THEN
2620: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
2621: END IF;
2622: close C_Get_opp_header;
2623:
2624: /*
2623:
2624: /*
2625: If (p_Header_rec.last_update_date is NULL or
2626: p_Header_rec.last_update_date = FND_API.G_MISS_Date ) Then
2627: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2628: THEN
2629: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
2630: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2631: -- FND_MSG_PUB.ADD;
2627: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2628: THEN
2629: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
2630: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2631: -- FND_MSG_PUB.ADD;
2632:
2633: AS_UTILITY_PVT.Set_Message(
2634: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2635: p_msg_name => 'API_MISSING_LAST_UPDATE_DATE');
2630: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2631: -- FND_MSG_PUB.ADD;
2632:
2633: AS_UTILITY_PVT.Set_Message(
2634: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2635: p_msg_name => 'API_MISSING_LAST_UPDATE_DATE');
2636:
2637: END IF;
2638: raise FND_API.G_EXC_ERROR;
2638: raise FND_API.G_EXC_ERROR;
2639: End if;
2640: -- Check Whether record has been changed by someone else
2641: If (p_Header_rec.last_update_date <> l_last_update_date) Then
2642: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2643: THEN
2644: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
2645: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
2646: -- FND_MSG_PUB.ADD;
2642: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2643: THEN
2644: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
2645: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
2646: -- FND_MSG_PUB.ADD;
2647:
2648: AS_UTILITY_PVT.Set_Message(
2649: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2650: p_msg_name => 'API_OPP_HEADER_CHANGED');
2645: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
2646: -- FND_MSG_PUB.ADD;
2647:
2648: AS_UTILITY_PVT.Set_Message(
2649: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2650: p_msg_name => 'API_OPP_HEADER_CHANGED');
2651:
2652: END IF;
2653: raise FND_API.G_EXC_ERROR;
2657:
2658: /*
2659: -- Debug message
2660: IF l_debug THEN
2661: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_opp_header');
2662: END IF;
2663:
2664: -- Invoke validation procedures
2665: Validate_opp_header(
2705: x_msg_data => x_msg_data,
2706: x_update_access_flag => l_access_flag);
2707:
2708: IF l_access_flag <> 'Y' THEN
2709: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2710: 'API_NO_UPDATE_PRIVILEGE');
2711: RAISE FND_API.G_EXC_ERROR;
2712: END IF;
2713:
2721: IF l_freeze_flag = 'Y'
2722: THEN
2723: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
2724: IF l_allow_flag <> 'Y' THEN
2725: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2726: 'API_OPP_FROZEN');
2727: RAISE FND_API.G_EXC_ERROR;
2728: END IF;
2729: END IF;
2733: -- Hint: Add corresponding Master-Detail business logic here if necessary.
2734:
2735: -- Debug Message
2736: IF l_debug THEN
2737: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2738: 'Private API: Calling update table handler');
2739:
2740: END IF;
2741:
2832:
2833:
2834: -- Debug Message
2835: IF l_debug THEN
2836: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2837: 'Private API: ' || l_api_name || ' end');
2838: END IF;
2839:
2840:
2839:
2840:
2841:
2842: -- Standard call to get message count and if count is 1, get message info.
2843: FND_MSG_PUB.Count_And_Get
2844: ( p_count => x_msg_count,
2845: p_data => x_msg_data
2846: );
2847:
2870: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2871: P_MODULE => l_module
2872: ,P_API_NAME => L_API_NAME
2873: ,P_PKG_NAME => G_PKG_NAME
2874: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2875: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2876: ,X_MSG_COUNT => X_MSG_COUNT
2877: ,X_MSG_DATA => X_MSG_DATA
2878: ,X_RETURN_STATUS => X_RETURN_STATUS);
2881: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2882: P_MODULE => l_module
2883: ,P_API_NAME => L_API_NAME
2884: ,P_PKG_NAME => G_PKG_NAME
2885: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2886: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2887: ,X_MSG_COUNT => X_MSG_COUNT
2888: ,X_MSG_DATA => X_MSG_DATA
2889: ,X_RETURN_STATUS => X_RETURN_STATUS);
2922: FROM as_leads
2923: WHERE lead_id = c_Lead_Id;
2924:
2925: l_val VARCHAR2(1);
2926: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
2927: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_LEAD_ID';
2928:
2929: BEGIN
2930: -- Initialize message list if p_init_msg_list is set to TRUE.
2929: BEGIN
2930: -- Initialize message list if p_init_msg_list is set to TRUE.
2931: IF FND_API.to_Boolean( p_init_msg_list )
2932: THEN
2933: FND_MSG_PUB.initialize;
2934: END IF;
2935:
2936: -- Initialize API return status to SUCCESS
2937: x_return_status := FND_API.G_RET_STS_SUCCESS;
2944: OPEN C_Lead_Id_Exists (p_Lead_Id);
2945: FETCH C_Lead_Id_Exists into l_val;
2946:
2947: IF C_Lead_Id_Exists%FOUND THEN
2948: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2949: -- 'Private API: LEAD_ID exist');
2950:
2951: AS_UTILITY_PVT.Set_Message(
2952: p_module => l_module,
2949: -- 'Private API: LEAD_ID exist');
2950:
2951: AS_UTILITY_PVT.Set_Message(
2952: p_module => l_module,
2953: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2954: p_msg_name => 'API_DUPLICATE_LEAD_ID',
2955: p_token1 => 'VALUE',
2956: p_token1_value => p_LEAD_ID );
2957:
2966: THEN
2967: -- validate NOT NULL column
2968: IF (p_LEAD_ID is NULL) or (p_LEAD_ID = FND_API.G_MISS_NUM)
2969: THEN
2970: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2971: -- 'Private API: Violate NOT NULL constraint(LEAD_ID)');
2972:
2973: AS_UTILITY_PVT.Set_Message(
2974: p_module => l_module,
2971: -- 'Private API: Violate NOT NULL constraint(LEAD_ID)');
2972:
2973: AS_UTILITY_PVT.Set_Message(
2974: p_module => l_module,
2975: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2976: p_msg_name => 'API_MISSING_LEAD_ID');
2977:
2978: x_return_status := FND_API.G_RET_STS_ERROR;
2979: ELSE
2981: FETCH C_Lead_Id_Exists into l_val;
2982:
2983: IF C_Lead_Id_Exists%NOTFOUND
2984: THEN
2985: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2986: -- 'Private API: LEAD_ID is not valid');
2987:
2988: AS_UTILITY_PVT.Set_Message(
2989: p_module => l_module,
2986: -- 'Private API: LEAD_ID is not valid');
2987:
2988: AS_UTILITY_PVT.Set_Message(
2989: p_module => l_module,
2990: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2991: p_msg_name => 'API_INVALID_LEAD_ID',
2992: p_token1 => 'VALUE',
2993: p_token1_value => p_LEAD_ID );
2994:
2999: END IF;
3000: END IF;
3001:
3002: -- Standard call to get message count and if count is 1, get message info.
3003: FND_MSG_PUB.Count_And_Get
3004: ( p_count => x_msg_count,
3005: p_data => x_msg_data
3006: );
3007:
3024: FROM as_leads
3025: WHERE lead_number = c_lead_number;
3026:
3027: l_val VARCHAR2(1);
3028: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3029:
3030: BEGIN
3031:
3032: -- Initialize message list if p_init_msg_list is set to TRUE.
3031:
3032: -- Initialize message list if p_init_msg_list is set to TRUE.
3033: IF FND_API.to_Boolean( p_init_msg_list )
3034: THEN
3035: FND_MSG_PUB.initialize;
3036: END IF;
3037:
3038:
3039: -- Initialize API return status to SUCCESS
3041:
3042: IF(p_LEAD_NUMBER is NULL)
3043: THEN
3044: -- validate NOT NULL column
3045: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3046: -- 'Private API: Violate NOT NULL constraint(LEAD_NUMBER)');
3047:
3048: AS_UTILITY_PVT.Set_Message(
3049: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3045: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3046: -- 'Private API: Violate NOT NULL constraint(LEAD_NUMBER)');
3047:
3048: AS_UTILITY_PVT.Set_Message(
3049: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3050: p_msg_name => 'API_MISSING_LEAD_NUMBER');
3051:
3052: x_return_status := FND_API.G_RET_STS_ERROR;
3053: ELSE
3054: -- Calling from Create API, LEAD_NUMBER can not be G_MISS_CHAR
3055: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE) and
3056: (p_LEAD_NUMBER = FND_API.G_MISS_CHAR)
3057: THEN
3058: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3059: -- 'Private API: missing LEAD_NUMBER');
3060:
3061: AS_UTILITY_PVT.Set_Message(
3062: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3058: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3059: -- 'Private API: missing LEAD_NUMBER');
3060:
3061: AS_UTILITY_PVT.Set_Message(
3062: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3063: p_msg_name => 'API_MISSING_LEAD_NUMBER');
3064:
3065: END IF;
3066:
3070: OPEN C_LEAD_NUMBER_Exists (p_LEAD_NUMBER);
3071: FETCH C_LEAD_NUMBER_Exists into l_val;
3072:
3073: IF C_LEAD_NUMBER_Exists%FOUND THEN
3074: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3075: -- 'Private API: LEAD_NUMBER exist');
3076:
3077: AS_UTILITY_PVT.Set_Message(
3078: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3074: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3075: -- 'Private API: LEAD_NUMBER exist');
3076:
3077: AS_UTILITY_PVT.Set_Message(
3078: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3079: p_msg_name => 'API_DUPLICATE_LEAD_NUMBER',
3080: p_token1 => 'VALUE',
3081: p_token1_value => p_LEAD_NUMBER );
3082:
3087: END IF;
3088: END IF;
3089:
3090: -- Standard call to get message count and if count is 1, get message info.
3091: FND_MSG_PUB.Count_And_Get
3092: ( p_count => x_msg_count,
3093: p_data => x_msg_data
3094: );
3095:
3114: and enabled_flag = 'Y'
3115: and opp_flag = 'Y';
3116:
3117: l_val VARCHAR2(1);
3118: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3119: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_STATUS';
3120:
3121: BEGIN
3122:
3122:
3123: -- Initialize message list if p_init_msg_list is set to TRUE.
3124: IF FND_API.to_Boolean( p_init_msg_list )
3125: THEN
3126: FND_MSG_PUB.initialize;
3127: END IF;
3128:
3129:
3130: -- Initialize API return status to SUCCESS
3132:
3133: -- validate NOT NULL column
3134: IF(p_STATUS is NULL)
3135: THEN
3136: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3137: -- 'Private API: Violate NOT NULL constraint(STATUS)');
3138:
3139: AS_UTILITY_PVT.Set_Message(
3140: p_module => l_module,
3137: -- 'Private API: Violate NOT NULL constraint(STATUS)');
3138:
3139: AS_UTILITY_PVT.Set_Message(
3140: p_module => l_module,
3141: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3142: p_msg_name => 'API_MISSING_STATUS');
3143:
3144: x_return_status := FND_API.G_RET_STS_ERROR;
3145: ELSE
3146: -- Calling from Create API, STATUS can not be G_MISS_CHAR
3147: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE) and
3148: (p_STATUS = FND_API.G_MISS_CHAR)
3149: THEN
3150: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3151: -- 'Private API: STATUS is missing');
3152:
3153: AS_UTILITY_PVT.Set_Message(
3154: p_module => l_module,
3151: -- 'Private API: STATUS is missing');
3152:
3153: AS_UTILITY_PVT.Set_Message(
3154: p_module => l_module,
3155: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3156: p_msg_name => 'API_MISSING_STATUS');
3157:
3158: x_return_status := FND_API.G_RET_STS_ERROR;
3159:
3163: OPEN C_STATUS_Exists (p_STATUS);
3164: FETCH C_STATUS_Exists into l_val;
3165:
3166: IF C_STATUS_Exists%NOTFOUND THEN
3167: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3168: -- 'Private API: STATUS is invalid');
3169:
3170: AS_UTILITY_PVT.Set_Message(
3171: p_module => l_module,
3168: -- 'Private API: STATUS is invalid');
3169:
3170: AS_UTILITY_PVT.Set_Message(
3171: p_module => l_module,
3172: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3173: p_msg_name => 'API_INVALID_OPP_STATUS',
3174: p_token1 => 'VALUE',
3175: p_token1_value => p_STATUS );
3176:
3181: END IF;
3182: END IF;
3183:
3184: -- Standard call to get message count and if count is 1, get message info.
3185: FND_MSG_PUB.Count_And_Get
3186: ( p_count => x_msg_count,
3187: p_data => x_msg_data
3188: );
3189:
3213:
3214: -- Initialize message list if p_init_msg_list is set to TRUE.
3215: IF FND_API.to_Boolean( p_init_msg_list )
3216: THEN
3217: FND_MSG_PUB.initialize;
3218: END IF;
3219:
3220:
3221: -- Initialize API return status to SUCCESS
3228: IF C_ORG_ID_Exists%NOTFOUND THEN
3229:
3230: AS_UTILITY_PVT.Set_Message(
3231: p_module => l_module,
3232: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3233: p_msg_name => 'AS_ORG_NULL_OR_INVALID');
3234:
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: END IF;
3238: CLOSE C_ORG_ID_Exists;
3239: END IF;
3240:
3241: -- Standard call to get message count and if count is 1, get message info.
3242: FND_MSG_PUB.Count_And_Get
3243: ( p_count => x_msg_count,
3244: p_data => x_msg_data
3245: );
3246:
3267: and enabled_flag = 'Y';
3268: -- end ffang 091200
3269:
3270: l_val VARCHAR2(1);
3271: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3272: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_SALES_STAGE_ID';
3273:
3274: BEGIN
3275:
3275:
3276: -- Initialize message list if p_init_msg_list is set to TRUE.
3277: IF FND_API.to_Boolean( p_init_msg_list )
3278: THEN
3279: FND_MSG_PUB.initialize;
3280: END IF;
3281:
3282:
3283: -- Initialize API return status to SUCCESS
3290: OPEN C_SALES_STAGE_ID_Exists (p_SALES_STAGE_ID);
3291: FETCH C_SALES_STAGE_ID_Exists into l_val;
3292:
3293: IF C_SALES_STAGE_ID_Exists%NOTFOUND THEN
3294: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3295: -- 'Private API: SALES_STAGE_ID is invalid');
3296:
3297: AS_UTILITY_PVT.Set_Message(
3298: p_module => l_module,
3295: -- 'Private API: SALES_STAGE_ID is invalid');
3296:
3297: AS_UTILITY_PVT.Set_Message(
3298: p_module => l_module,
3299: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3300: p_msg_name => 'API_INVALID_SALES_STAGE_ID',
3301: p_token1 => 'VALUE',
3302: p_token1_value => p_SALES_STAGE_ID );
3303:
3307: CLOSE C_SALES_STAGE_ID_Exists;
3308: END IF;
3309:
3310: -- Standard call to get message count and if count is 1, get message info.
3311: FND_MSG_PUB.Count_And_Get
3312: ( p_count => x_msg_count,
3313: p_data => x_msg_data
3314: );
3315:
3335: AND nvl(end_date_active, sysdate) >= sysdate
3336: AND enabled_flag = 'Y';
3337:
3338: l_val VARCHAR2(1);
3339: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3340: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_CHANNEL_CODE';
3341:
3342: BEGIN
3343:
3343:
3344: -- Initialize message list if p_init_msg_list is set to TRUE.
3345: IF FND_API.to_Boolean( p_init_msg_list )
3346: THEN
3347: FND_MSG_PUB.initialize;
3348: END IF;
3349:
3350:
3351: -- Initialize API return status to SUCCESS
3358: OPEN C_CHANNEL_CODE_Exists (p_CHANNEL_CODE);
3359: FETCH C_CHANNEL_CODE_Exists into l_val;
3360:
3361: IF C_CHANNEL_CODE_Exists%NOTFOUND THEN
3362: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3363: -- 'Private API: CHANNEL_CODE is invalid');
3364:
3365: AS_UTILITY_PVT.Set_Message(
3366: p_module => l_module,
3363: -- 'Private API: CHANNEL_CODE is invalid');
3364:
3365: AS_UTILITY_PVT.Set_Message(
3366: p_module => l_module,
3367: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3368: p_msg_name => 'API_INVALID_CHANNEL_CODE',
3369: p_token1 => 'VALUE',
3370: p_token1_value => p_CHANNEL_CODE );
3371:
3375: CLOSE C_CHANNEL_CODE_Exists;
3376: END IF;
3377:
3378: -- Standard call to get message count and if count is 1, get message info.
3379: FND_MSG_PUB.Count_And_Get
3380: ( p_count => x_msg_count,
3381: p_data => x_msg_data
3382: );
3383:
3404: and enabled_flag = 'Y';
3405: -- end ffang 091200
3406:
3407: l_val VARCHAR2(1);
3408: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3409: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_CURRENCY_CODE';
3410:
3411: BEGIN
3412:
3412:
3413: -- Initialize message list if p_init_msg_list is set to TRUE.
3414: IF FND_API.to_Boolean( p_init_msg_list )
3415: THEN
3416: FND_MSG_PUB.initialize;
3417: END IF;
3418:
3419:
3420: -- Initialize API return status to SUCCESS
3427: OPEN C_Currency_Exists (p_CURRENCY_CODE);
3428: FETCH C_Currency_Exists into l_val;
3429:
3430: IF C_Currency_Exists%NOTFOUND THEN
3431: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3432: -- 'Private API: CURRENCY_CODE is invalid');
3433:
3434: AS_UTILITY_PVT.Set_Message(
3435: p_module => l_module,
3432: -- 'Private API: CURRENCY_CODE is invalid');
3433:
3434: AS_UTILITY_PVT.Set_Message(
3435: p_module => l_module,
3436: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3437: p_msg_name => 'API_INVALID_CURRENCY_CODE',
3438: p_token1 => 'VALUE',
3439: p_token1_value => p_CURRENCY_CODE );
3440:
3444: CLOSE C_Currency_Exists;
3445: END IF;
3446:
3447: -- Standard call to get message count and if count is 1, get message info.
3448: FND_MSG_PUB.Count_And_Get
3449: ( p_count => x_msg_count,
3450: p_data => x_msg_data
3451: );
3452:
3473: and enabled_flag = 'Y';
3474: -- end ffang 091200
3475:
3476: l_val VARCHAR2(1);
3477: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3478: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_WIN_PROBABILITY';
3479:
3480: BEGIN
3481:
3481:
3482: -- Initialize message list if p_init_msg_list is set to TRUE.
3483: IF FND_API.to_Boolean( p_init_msg_list )
3484: THEN
3485: FND_MSG_PUB.initialize;
3486: END IF;
3487:
3488:
3489: -- Initialize API return status to SUCCESS
3496: OPEN C_Win_Prob_Exists (p_WIN_PROBABILITY);
3497: FETCH C_Win_Prob_Exists into l_val;
3498:
3499: IF C_Win_Prob_Exists%NOTFOUND THEN
3500: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3501: -- 'Private API: WIN_PROBABILITY is invalid');
3502:
3503: AS_UTILITY_PVT.Set_Message(
3504: p_module => l_module,
3501: -- 'Private API: WIN_PROBABILITY is invalid');
3502:
3503: AS_UTILITY_PVT.Set_Message(
3504: p_module => l_module,
3505: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3506: p_msg_name => 'API_INVALID_WIN_PROB',
3507: p_token1 => 'VALUE',
3508: p_token1_value => p_WIN_PROBABILITY );
3509:
3513: CLOSE C_Win_Prob_Exists;
3514: END IF;
3515:
3516: -- Standard call to get message count and if count is 1, get message info.
3517: FND_MSG_PUB.Count_And_Get
3518: ( p_count => x_msg_count,
3519: p_data => x_msg_data
3520: );
3521:
3540: and lookup_code = c_CLOSE_REASON;
3541: -- and enabled_flag = 'Y';
3542:
3543: l_val VARCHAR2(1);
3544: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3545: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_CLOSE_REASON';
3546: BEGIN
3547:
3548: -- Initialize message list if p_init_msg_list is set to TRUE.
3547:
3548: -- Initialize message list if p_init_msg_list is set to TRUE.
3549: IF FND_API.to_Boolean( p_init_msg_list )
3550: THEN
3551: FND_MSG_PUB.initialize;
3552: END IF;
3553:
3554:
3555: -- Initialize API return status to SUCCESS
3562: OPEN C_CLOSE_REASON_Exists ('CLOSE_REASON', p_CLOSE_REASON);
3563: FETCH C_CLOSE_REASON_Exists into l_val;
3564:
3565: IF C_CLOSE_REASON_Exists%NOTFOUND THEN
3566: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3567: -- 'Private API: CLOSE_REASON is invalid');
3568:
3569: AS_UTILITY_PVT.Set_Message(
3570: p_module => l_module,
3567: -- 'Private API: CLOSE_REASON is invalid');
3568:
3569: AS_UTILITY_PVT.Set_Message(
3570: p_module => l_module,
3571: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3572: p_msg_name => 'API_INVALID_CLOSE_REASON',
3573: p_token1 => 'VALUE',
3574: p_token1_value => p_CLOSE_REASON );
3575:
3579: CLOSE C_CLOSE_REASON_Exists;
3580: END IF;
3581:
3582: -- Standard call to get message count and if count is 1, get message info.
3583: FND_MSG_PUB.Count_And_Get
3584: ( p_count => x_msg_count,
3585: p_data => x_msg_data
3586: );
3587:
3609:
3610: l_source_code_required VARCHAR2(1) := FND_PROFILE.value('AS_OPP_SOURCE_CODE_REQUIRED');
3611:
3612: l_val VARCHAR2(1);
3613: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3614: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_SOURCE_PROMOTION_ID';
3615: BEGIN
3616:
3617: -- Initialize message list if p_init_msg_list is set to TRUE.
3616:
3617: -- Initialize message list if p_init_msg_list is set to TRUE.
3618: IF FND_API.to_Boolean( p_init_msg_list )
3619: THEN
3620: FND_MSG_PUB.initialize;
3621: END IF;
3622:
3623:
3624: -- Initialize API return status to SUCCESS
3629: p_SOURCE_PROMOTION_ID = FND_API.G_MISS_NUM ) ) AND
3630: nvl(l_source_code_required, 'N') = 'Y' THEN
3631: AS_UTILITY_PVT.Set_Message(
3632: p_module => l_module,
3633: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3634: p_msg_name => 'API_MISSING_SOURCE_PROM_ID');
3635:
3636: x_return_status := FND_API.G_RET_STS_ERROR;
3637: END IF;
3643: OPEN C_SOURCE_PROMOTION_ID_Exists (p_SOURCE_PROMOTION_ID);
3644: FETCH C_SOURCE_PROMOTION_ID_Exists into l_val;
3645:
3646: IF C_SOURCE_PROMOTION_ID_Exists%NOTFOUND THEN
3647: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3648: -- 'Private API: SOURCE_PROMOTION_ID is invalid');
3649:
3650: AS_UTILITY_PVT.Set_Message(
3651: p_module => l_module,
3648: -- 'Private API: SOURCE_PROMOTION_ID is invalid');
3649:
3650: AS_UTILITY_PVT.Set_Message(
3651: p_module => l_module,
3652: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3653: p_msg_name => 'API_INVALID_SOURCE_PROM_ID',
3654: p_token1 => 'VALUE',
3655: p_token1_value => p_SOURCE_PROMOTION_ID );
3656:
3660: CLOSE C_SOURCE_PROMOTION_ID_Exists;
3661: END IF;
3662:
3663: -- Standard call to get message count and if count is 1, get message info.
3664: FND_MSG_PUB.Count_And_Get
3665: ( p_count => x_msg_count,
3666: p_data => x_msg_data
3667: );
3668:
3679: X_Msg_Data OUT NOCOPY VARCHAR2
3680: )
3681: IS
3682:
3683: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3684: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_NO_OPP_ALLOWED_FLAG';
3685: BEGIN
3686:
3687: -- Initialize message list if p_init_msg_list is set to TRUE.
3686:
3687: -- Initialize message list if p_init_msg_list is set to TRUE.
3688: IF FND_API.to_Boolean( p_init_msg_list )
3689: THEN
3690: FND_MSG_PUB.initialize;
3691: END IF;
3692:
3693:
3694: -- Initialize API return status to SUCCESS
3699: THEN
3700: IF (UPPER(p_NO_OPP_ALLOWED_FLAG) <> 'Y') and
3701: (UPPER(p_NO_OPP_ALLOWED_FLAG) <> 'N')
3702: THEN
3703: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3704: -- 'Private API: NO_OPP_ALLOWED_FLAG is invalid');
3705:
3706: AS_UTILITY_PVT.Set_Message(
3707: p_module => l_module,
3704: -- 'Private API: NO_OPP_ALLOWED_FLAG is invalid');
3705:
3706: AS_UTILITY_PVT.Set_Message(
3707: p_module => l_module,
3708: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3709: p_msg_name => 'API_INVALID_NO_OPP_ALLOWED_FLG',
3710: p_token1 => 'VALUE',
3711: p_token1_value => p_NO_OPP_ALLOWED_FLAG );
3712:
3714: END IF;
3715: END IF;
3716:
3717: -- Standard call to get message count and if count is 1, get message info.
3718: FND_MSG_PUB.Count_And_Get
3719: ( p_count => x_msg_count,
3720: p_data => x_msg_data
3721: );
3722:
3732: X_Msg_Count OUT NOCOPY NUMBER,
3733: X_Msg_Data OUT NOCOPY VARCHAR2
3734: )
3735: IS
3736: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3737: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_DELETE_ALLOWED_FLAG';
3738: BEGIN
3739: -- Initialize message list if p_init_msg_list is set to TRUE.
3740: IF FND_API.to_Boolean( p_init_msg_list )
3738: BEGIN
3739: -- Initialize message list if p_init_msg_list is set to TRUE.
3740: IF FND_API.to_Boolean( p_init_msg_list )
3741: THEN
3742: FND_MSG_PUB.initialize;
3743: END IF;
3744:
3745: -- Initialize API return status to SUCCESS
3746: x_return_status := FND_API.G_RET_STS_SUCCESS;
3750: THEN
3751: IF (UPPER(p_DELETE_ALLOWED_FLAG) <> 'Y') and
3752: (UPPER(p_DELETE_ALLOWED_FLAG) <> 'N')
3753: THEN
3754: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3755: -- 'Private API: DELETE_ALLOWED_FLAG is invalid');
3756:
3757: AS_UTILITY_PVT.Set_Message(
3758: p_module => l_module,
3755: -- 'Private API: DELETE_ALLOWED_FLAG is invalid');
3756:
3757: AS_UTILITY_PVT.Set_Message(
3758: p_module => l_module,
3759: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3760: p_msg_name => 'API_INVALID_DEL_ALLOWED_FLAG',
3761: p_token1 => 'VALUE',
3762: p_token1_value => p_DELETE_ALLOWED_FLAG );
3763:
3765: END IF;
3766: END IF;
3767:
3768: -- Standard call to get message count and if count is 1, get message info.
3769: FND_MSG_PUB.Count_And_Get
3770: ( p_count => x_msg_count,
3771: p_data => x_msg_data
3772: );
3773:
3792: and lookup_code = c_LEAD_SOURCE_CODE
3793: and enabled_flag = 'Y';
3794:
3795: l_val VARCHAR2(1);
3796: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3797: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_LEAD_SOURCE_CODE';
3798: BEGIN
3799: -- Initialize message list if p_init_msg_list is set to TRUE.
3800: IF FND_API.to_Boolean( p_init_msg_list )
3798: BEGIN
3799: -- Initialize message list if p_init_msg_list is set to TRUE.
3800: IF FND_API.to_Boolean( p_init_msg_list )
3801: THEN
3802: FND_MSG_PUB.initialize;
3803: END IF;
3804:
3805: -- Initialize API return status to SUCCESS
3806: x_return_status := FND_API.G_RET_STS_SUCCESS;
3812: OPEN C_LEAD_SOURCE_CODE_Exists ('LEAD_SOURCE', p_LEAD_SOURCE_CODE);
3813: FETCH C_LEAD_SOURCE_CODE_Exists into l_val;
3814:
3815: IF C_LEAD_SOURCE_CODE_Exists%NOTFOUND THEN
3816: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3817: -- 'Private API: LEAD_SOURCE_CODE is invalid');
3818:
3819: AS_UTILITY_PVT.Set_Message(
3820: p_module => l_module,
3817: -- 'Private API: LEAD_SOURCE_CODE is invalid');
3818:
3819: AS_UTILITY_PVT.Set_Message(
3820: p_module => l_module,
3821: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3822: p_msg_name => 'API_INVALID_LEAD_SOURCE_CODE',
3823: p_token1 => 'VALUE',
3824: p_token1_value => p_LEAD_SOURCE_CODE );
3825:
3829: CLOSE C_LEAD_SOURCE_CODE_Exists;
3830: END IF;
3831:
3832: -- Standard call to get message count and if count is 1, get message info.
3833: FND_MSG_PUB.Count_And_Get
3834: ( p_count => x_msg_count,
3835: p_data => x_msg_data
3836: );
3837:
3858: and nvl(start_date_active, sysdate) <= sysdate
3859: and nvl(end_date_active, sysdate) >= sysdate;
3860:
3861: l_val VARCHAR2(1);
3862: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3863: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_PRICE_LIST_ID';
3864: BEGIN
3865: -- Initialize message list if p_init_msg_list is set to TRUE.
3866: IF FND_API.to_Boolean( p_init_msg_list )
3864: BEGIN
3865: -- Initialize message list if p_init_msg_list is set to TRUE.
3866: IF FND_API.to_Boolean( p_init_msg_list )
3867: THEN
3868: FND_MSG_PUB.initialize;
3869: END IF;
3870:
3871: -- Initialize API return status to SUCCESS
3872: x_return_status := FND_API.G_RET_STS_SUCCESS;
3878: OPEN C_Price_List_Exists (p_PRICE_LIST_ID, p_CURRENCY_CODE);
3879: FETCH C_Price_List_Exists into l_val;
3880:
3881: IF C_Price_List_Exists%NOTFOUND THEN
3882: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3883: -- 'Private API: PRICE_LIST_ID is invalid');
3884:
3885: AS_UTILITY_PVT.Set_Message(
3886: p_module => l_module,
3883: -- 'Private API: PRICE_LIST_ID is invalid');
3884:
3885: AS_UTILITY_PVT.Set_Message(
3886: p_module => l_module,
3887: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3888: p_msg_name => 'API_INVALID_PRICE_LIST_ID',
3889: p_token1 => 'VALUE',
3890: p_token1_value => p_PRICE_LIST_ID );
3891:
3895: CLOSE C_Price_List_Exists;
3896: END IF;
3897:
3898: -- Standard call to get message count and if count is 1, get message info.
3899: FND_MSG_PUB.Count_And_Get
3900: ( p_count => x_msg_count,
3901: p_data => x_msg_data
3902: );
3903:
3914: X_Msg_Data OUT NOCOPY VARCHAR2
3915: )
3916: IS
3917:
3918: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3919: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_DELETED_FLAG';
3920: BEGIN
3921:
3922: -- Initialize message list if p_init_msg_list is set to TRUE.
3921:
3922: -- Initialize message list if p_init_msg_list is set to TRUE.
3923: IF FND_API.to_Boolean( p_init_msg_list )
3924: THEN
3925: FND_MSG_PUB.initialize;
3926: END IF;
3927:
3928:
3929: -- Initialize API return status to SUCCESS
3933: (p_DELETED_FLAG <> FND_API.G_MISS_CHAR)
3934: THEN
3935: IF (p_DELETED_FLAG <> 'Y') and (p_DELETED_FLAG <> 'N')
3936: THEN
3937: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3938: -- 'Private API: DELETED_FLAG is invalid');
3939:
3940: AS_UTILITY_PVT.Set_Message(
3941: p_module => l_module,
3938: -- 'Private API: DELETED_FLAG is invalid');
3939:
3940: AS_UTILITY_PVT.Set_Message(
3941: p_module => l_module,
3942: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3943: p_msg_name => 'API_INVALID_DELETED_FLAG',
3944: p_token1 => 'VALUE',
3945: p_token1_value => p_DELETED_FLAG );
3946:
3948: END IF;
3949: END IF;
3950:
3951: -- Standard call to get message count and if count is 1, get message info.
3952: FND_MSG_PUB.Count_And_Get
3953: ( p_count => x_msg_count,
3954: p_data => x_msg_data
3955: );
3956:
3975: and lookup_code = c_METHODOLOGY_CODE
3976: and enabled_flag = 'Y';
3977:
3978: l_val VARCHAR2(1);
3979: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3980: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_METHODOLOGY_CODE';
3981:
3982: BEGIN
3983:
3983:
3984: -- Initialize message list if p_init_msg_list is set to TRUE.
3985: IF FND_API.to_Boolean( p_init_msg_list )
3986: THEN
3987: FND_MSG_PUB.initialize;
3988: END IF;
3989:
3990:
3991: -- Initialize API return status to SUCCESS
3999: p_METHODOLOGY_CODE);
4000: FETCH C_METHODOLOGY_CODE_Exists into l_val;
4001:
4002: IF C_METHODOLOGY_CODE_Exists%NOTFOUND THEN
4003: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4004: -- 'Private API: METHODOLOGY_CODE is invalid');
4005:
4006: AS_UTILITY_PVT.Set_Message(
4007: p_module => l_module,
4004: -- 'Private API: METHODOLOGY_CODE is invalid');
4005:
4006: AS_UTILITY_PVT.Set_Message(
4007: p_module => l_module,
4008: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4009: p_msg_name => 'API_INVALID_METHODOLOGY_CODE',
4010: p_token1 => 'VALUE',
4011: p_token1_value => p_METHODOLOGY_CODE );
4012:
4016: CLOSE C_METHODOLOGY_CODE_Exists;
4017: END IF;
4018:
4019: -- Standard call to get message count and if count is 1, get message info.
4020: FND_MSG_PUB.Count_And_Get
4021: ( p_count => x_msg_count,
4022: p_data => x_msg_data
4023: );
4024:
4048:
4049: -- Initialize message list if p_init_msg_list is set to TRUE.
4050: IF FND_API.to_Boolean( p_init_msg_list )
4051: THEN
4052: FND_MSG_PUB.initialize;
4053: END IF;
4054:
4055:
4056: -- Initialize API return status to SUCCESS
4063: OPEN C_ORIGINAL_LEAD_ID_Exists (p_ORIGINAL_LEAD_ID);
4064: FETCH C_ORIGINAL_LEAD_ID_Exists into l_val;
4065:
4066: IF C_ORIGINAL_LEAD_ID_Exists%NOTFOUND THEN
4067: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4068: -- 'Private API: ORIGINAL_LEAD_ID is invalid');
4069:
4070: AS_UTILITY_PVT.Set_Message(
4071: p_module => l_module,
4068: -- 'Private API: ORIGINAL_LEAD_ID is invalid');
4069:
4070: AS_UTILITY_PVT.Set_Message(
4071: p_module => l_module,
4072: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4073: p_msg_name => 'API_INVALID_ORIG_LEAD_ID',
4074: p_token1 => 'VALUE',
4075: p_token1_value => p_ORIGINAL_LEAD_ID );
4076:
4080: CLOSE C_ORIGINAL_LEAD_ID_Exists;
4081: END IF;
4082:
4083: -- Standard call to get message count and if count is 1, get message info.
4084: FND_MSG_PUB.Count_And_Get
4085: ( p_count => x_msg_count,
4086: p_data => x_msg_data
4087: );
4088:
4114:
4115: -- Initialize message list if p_init_msg_list is set to TRUE.
4116: IF FND_API.to_Boolean( p_init_msg_list )
4117: THEN
4118: FND_MSG_PUB.initialize;
4119: END IF;
4120:
4121:
4122: -- Initialize API return status to SUCCESS
4130: p_DECISION_TIMEFRAME_CODE);
4131: FETCH C_DECN_TIMEFRAME_Exists into l_val;
4132:
4133: IF C_DECN_TIMEFRAME_Exists%NOTFOUND THEN
4134: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4135: -- 'Private API: DECISION_TIMEFRAME_CODE is invalid');
4136:
4137: AS_UTILITY_PVT.Set_Message(
4138: p_module => l_module,
4135: -- 'Private API: DECISION_TIMEFRAME_CODE is invalid');
4136:
4137: AS_UTILITY_PVT.Set_Message(
4138: p_module => l_module,
4139: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4140: p_msg_name => 'API_INVALID_DCN_TIMEFRAME_CODE',
4141: p_token1 => 'VALUE',
4142: p_token1_value => p_DECISION_TIMEFRAME_CODE );
4143:
4147: CLOSE C_DECN_TIMEFRAME_Exists;
4148: END IF;
4149:
4150: -- Standard call to get message count and if count is 1, get message info.
4151: FND_MSG_PUB.Count_And_Get
4152: ( p_count => x_msg_count,
4153: p_data => x_msg_data
4154: );
4155:
4185: -- WHERE c.SOURCE_CODE = s.SOURCE_CODE
4186: -- AND s.SOURCE_CODE_ID = P_SOURCE_PROMOTION_ID);
4187:
4188: l_val VARCHAR2(1);
4189: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4190: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_OFFER_ID';
4191: BEGIN
4192:
4193: -- Initialize message list IF p_init_msg_list is set to TRUE.
4192:
4193: -- Initialize message list IF p_init_msg_list is set to TRUE.
4194: IF FND_API.to_Boolean( p_init_msg_list )
4195: THEN
4196: FND_MSG_PUB.initialize;
4197: END IF;
4198:
4199: -- Initialize API return status to SUCCESS
4200: x_return_status := FND_API.G_RET_STS_SUCCESS;
4199: -- Initialize API return status to SUCCESS
4200: x_return_status := FND_API.G_RET_STS_SUCCESS;
4201:
4202: -- Debug Message
4203: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4204: -- 'Validate offer id');
4205:
4206: IF (p_OFFER_ID is NOT NULL) and (p_OFFER_ID <> FND_API.G_MISS_NUM)
4207: THEN
4210: FETCH C_OFFER_ID_Exists into l_val;
4211:
4212: IF C_OFFER_ID_Exists%NOTFOUND THEN
4213: IF l_debug THEN
4214: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4215: 'Private API: OFFER_ID is invalid');
4216: END IF;
4217: AS_UTILITY_PVT.Set_Message(
4218: p_module => l_module,
4215: 'Private API: OFFER_ID is invalid');
4216: END IF;
4217: AS_UTILITY_PVT.Set_Message(
4218: p_module => l_module,
4219: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4220: p_msg_name => 'API_INVALID_ID',
4221: p_token1 => 'COLUMN',
4222: p_token1_value => 'OFFER',
4223: p_token2 => 'VALUE',
4228: CLOSE C_OFFER_ID_Exists;
4229: END IF;
4230:
4231: -- Standard call to get message count and IF count is 1, get message info.
4232: FND_MSG_PUB.Count_And_Get
4233: ( p_count => x_msg_count,
4234: p_data => x_msg_data
4235: );
4236:
4256: and enabled_flag = 'Y'
4257: and (end_date_active > SYSDATE OR end_date_active IS NULL);
4258:
4259: l_val VARCHAR2(1);
4260: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4261: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_VEHICLE_RESPONSE_CODE';
4262: BEGIN
4263:
4264: -- Initialize message list if p_init_msg_list is set to TRUE.
4263:
4264: -- Initialize message list if p_init_msg_list is set to TRUE.
4265: IF FND_API.to_Boolean( p_init_msg_list )
4266: THEN
4267: FND_MSG_PUB.initialize;
4268: END IF;
4269:
4270:
4271: -- Initialize API return status to SUCCESS
4279: p_VEHICLE_RESPONSE_CODE);
4280: FETCH C_VEHICLE_RESPONSE_Exists into l_val;
4281:
4282: IF C_VEHICLE_RESPONSE_Exists%NOTFOUND THEN
4283: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4284: -- 'Private API: VEHICLE_RESPONSE_CODE is invalid');
4285:
4286: AS_UTILITY_PVT.Set_Message(
4287: p_module => l_module,
4284: -- 'Private API: VEHICLE_RESPONSE_CODE is invalid');
4285:
4286: AS_UTILITY_PVT.Set_Message(
4287: p_module => l_module,
4288: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4289: p_msg_name => 'API_INVALID_VEHICLE_RESP_CODE',
4290: p_token1 => 'VALUE',
4291: p_token1_value => p_VEHICLE_RESPONSE_CODE );
4292:
4296: CLOSE C_VEHICLE_RESPONSE_Exists;
4297: END IF;
4298:
4299: -- Standard call to get message count and if count is 1, get message info.
4300: FND_MSG_PUB.Count_And_Get
4301: ( p_count => x_msg_count,
4302: p_data => x_msg_data
4303: );
4304:
4329:
4330: -- Initialize message list if p_init_msg_list is set to TRUE.
4331: IF FND_API.to_Boolean( p_init_msg_list )
4332: THEN
4333: FND_MSG_PUB.initialize;
4334: END IF;
4335:
4336:
4337: -- Initialize API return status to SUCCESS
4344: OPEN C_BUDGET_STATUS_Exists ('BUDGET_STATUS', p_BUDGET_STATUS_CODE);
4345: FETCH C_BUDGET_STATUS_Exists into l_val;
4346:
4347: IF C_BUDGET_STATUS_Exists%NOTFOUND THEN
4348: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4349: -- 'Private API: BUDGET_STATUS_CODE is invalid');
4350:
4351: AS_UTILITY_PVT.Set_Message(
4352: p_module => l_module,
4349: -- 'Private API: BUDGET_STATUS_CODE is invalid');
4350:
4351: AS_UTILITY_PVT.Set_Message(
4352: p_module => l_module,
4353: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4354: p_msg_name => 'API_INVALID_BUDGET_STATUS_CODE',
4355: p_token1 => 'VALUE',
4356: p_token1_value => p_BUDGET_STATUS_CODE );
4357:
4361: CLOSE C_BUDGET_STATUS_Exists;
4362: END IF;
4363:
4364: -- Standard call to get message count and if count is 1, get message info.
4365: FND_MSG_PUB.Count_And_Get
4366: ( p_count => x_msg_count,
4367: p_data => x_msg_data
4368: );
4369:
4393:
4394: -- Initialize message list if p_init_msg_list is set to TRUE.
4395: IF FND_API.to_Boolean( p_init_msg_list )
4396: THEN
4397: FND_MSG_PUB.initialize;
4398: END IF;
4399:
4400:
4401: -- Initialize API return status to SUCCESS
4408: OPEN C_PRM_LEAD_TYPE_Exists ('PRM_LEAD_TYPE', p_PRM_LEAD_TYPE);
4409: FETCH C_PRM_LEAD_TYPE_Exists into l_val;
4410:
4411: IF C_PRM_LEAD_TYPE_Exists%NOTFOUND THEN
4412: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4413: -- 'Private API: PRM_LEAD_TYPE is invalid');
4414:
4415: AS_UTILITY_PVT.Set_Message(
4416: p_module => l_module,
4413: -- 'Private API: PRM_LEAD_TYPE is invalid');
4414:
4415: AS_UTILITY_PVT.Set_Message(
4416: p_module => l_module,
4417: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4418: p_msg_name => 'API_INVALID_PRM_LEAD_TYPE',
4419: p_token1 => 'VALUE',
4420: p_token1_value => p_PRM_LEAD_TYPE );
4421:
4425: CLOSE C_PRM_LEAD_TYPE_Exists;
4426: END IF;
4427:
4428: -- Standard call to get message count and if count is 1, get message info.
4429: FND_MSG_PUB.Count_And_Get
4430: ( p_count => x_msg_count,
4431: p_data => x_msg_data
4432: );
4433:
4455: BEGIN
4456: -- Initialize message list if p_init_msg_list is set to TRUE.
4457: IF FND_API.to_Boolean( p_init_msg_list )
4458: THEN
4459: FND_MSG_PUB.initialize;
4460: END IF;
4461:
4462: -- Initialize API return status to SUCCESS
4463: x_return_status := FND_API.G_RET_STS_SUCCESS;
4464:
4465: -- validate NOT NULL column
4466: IF(p_CUSTOMER_ID is NULL)
4467: THEN
4468: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4469: -- 'Private API: Violate NOT NULL constraint(CUSTOMER_ID)');
4470:
4471: AS_UTILITY_PVT.Set_Message(
4472: p_module => l_module,
4469: -- 'Private API: Violate NOT NULL constraint(CUSTOMER_ID)');
4470:
4471: AS_UTILITY_PVT.Set_Message(
4472: p_module => l_module,
4473: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4474: p_msg_name => 'API_MISSING_CUSTOMER_ID');
4475:
4476: x_return_status := FND_API.G_RET_STS_ERROR;
4477: ELSE
4482: OPEN c_customer_status(P_CUSTOMER_ID);
4483: FETCH c_customer_status into l_status;
4484: CLOSE c_customer_status;
4485: IF l_status = 'I' THEN
4486: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4487: THEN
4488: AS_UTILITY_PVT.Set_Message(
4489: p_module => l_module,
4490: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4486: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4487: THEN
4488: AS_UTILITY_PVT.Set_Message(
4489: p_module => l_module,
4490: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4491: p_msg_name => 'WARN_INACTIVE_CUSTOMER');
4492:
4493: END IF;
4494: x_return_status := FND_API.G_RET_STS_ERROR;
4499: -- Calling from Create APIs, customer_id can not be G_MISS_NUM
4500: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE) and
4501: (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
4502: THEN
4503: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4504: -- 'Private API: CUSTOMER_ID is missing');
4505:
4506: AS_UTILITY_PVT.Set_Message(
4507: p_module => l_module,
4504: -- 'Private API: CUSTOMER_ID is missing');
4505:
4506: AS_UTILITY_PVT.Set_Message(
4507: p_module => l_module,
4508: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4509: p_msg_name => 'API_MISSING_CUSTOMER_ID');
4510:
4511: x_return_status := FND_API.G_RET_STS_ERROR;
4512:
4520: x_msg_count => x_msg_count,
4521: x_msg_data => x_msg_data);
4522:
4523: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4524: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4525: -- 'Private API: CUSTOMER_ID is invalid');
4526:
4527: AS_UTILITY_PVT.Set_Message(
4528: p_module => l_module,
4525: -- 'Private API: CUSTOMER_ID is invalid');
4526:
4527: AS_UTILITY_PVT.Set_Message(
4528: p_module => l_module,
4529: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4530: p_msg_name => 'API_INVALID_CUSTOMER_ID',
4531: p_token1 => 'VALUE',
4532: p_token1_value => p_CUSTOMER_ID );
4533:
4536: END IF;
4537: END IF;
4538:
4539: -- Standard call to get message count and if count is 1, get message info.
4540: FND_MSG_PUB.Count_And_Get
4541: ( p_count => x_msg_count,
4542: p_data => x_msg_data
4543: );
4544: END Validate_CUSTOMER_ID;
4568:
4569: -- Initialize message list if p_init_msg_list is set to TRUE.
4570: IF FND_API.to_Boolean( p_init_msg_list )
4571: THEN
4572: FND_MSG_PUB.initialize;
4573: END IF;
4574:
4575:
4576: -- Initialize API return status to SUCCESS
4586: -- x_msg_count => x_msg_count,
4587: -- x_msg_data => x_msg_data);
4588:
4589: -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4590: -- -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4591: -- -- 'Private API: INC_PARTNER_PARTY_ID is invalid');
4592:
4593:
4594: OPEN C_INC_PRTN_PARTY_ID_Exist (P_INC_PARTNER_PARTY_ID);
4597: IF C_INC_PRTN_PARTY_ID_Exist%NOTFOUND THEN
4598:
4599: AS_UTILITY_PVT.Set_Message(
4600: p_module => l_module,
4601: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4602: p_msg_name => 'API_INVALID_INC_PTNR_PARTY_ID',
4603: p_token1 => 'VALUE',
4604: p_token1_value => p_INC_PARTNER_PARTY_ID );
4605:
4606: END IF;
4607: END IF;
4608:
4609: -- Standard call to get message count and if count is 1, get message info.
4610: FND_MSG_PUB.Count_And_Get
4611: ( p_count => x_msg_count,
4612: p_data => x_msg_data
4613: );
4614:
4630:
4631: -- Initialize message list if p_init_msg_list is set to TRUE.
4632: IF FND_API.to_Boolean( p_init_msg_list )
4633: THEN
4634: FND_MSG_PUB.initialize;
4635: END IF;
4636:
4637:
4638: -- Initialize API return status to SUCCESS
4648: x_msg_count => x_msg_count,
4649: x_msg_data => x_msg_data);
4650:
4651: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4652: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4653: -- 'Private API: CLOSE_COMPETITOR_ID is invalid');
4654:
4655: AS_UTILITY_PVT.Set_Message(
4656: p_module => l_module,
4653: -- 'Private API: CLOSE_COMPETITOR_ID is invalid');
4654:
4655: AS_UTILITY_PVT.Set_Message(
4656: p_module => l_module,
4657: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4658: p_msg_name => 'API_INVALID_CLOSE_COMP_ID',
4659: p_token1 => 'VALUE',
4660: p_token1_value => p_CLOSE_COMPETITOR_ID );
4661:
4662: END IF;
4663: END IF;
4664:
4665: -- Standard call to get message count and if count is 1, get message info.
4666: FND_MSG_PUB.Count_And_Get
4667: ( p_count => x_msg_count,
4668: p_data => x_msg_data
4669: );
4670:
4686:
4687: -- Initialize message list if p_init_msg_list is set to TRUE.
4688: IF FND_API.to_Boolean( p_init_msg_list )
4689: THEN
4690: FND_MSG_PUB.initialize;
4691: END IF;
4692:
4693:
4694: -- Initialize API return status to SUCCESS
4704: x_msg_count => x_msg_count,
4705: x_msg_data => x_msg_data);
4706:
4707: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4708: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4709: -- 'Private API: END_USER_CUSTOMER_ID is invalid');
4710:
4711: AS_UTILITY_PVT.Set_Message(
4712: p_module => l_module,
4709: -- 'Private API: END_USER_CUSTOMER_ID is invalid');
4710:
4711: AS_UTILITY_PVT.Set_Message(
4712: p_module => l_module,
4713: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4714: p_msg_name => 'API_INVALID_END_USER_CUST_ID',
4715: p_token1 => 'VALUE',
4716: p_token1_value => p_END_USER_CUSTOMER_ID );
4717:
4718: END IF;
4719: END IF;
4720:
4721: -- Standard call to get message count and if count is 1, get message info.
4722: FND_MSG_PUB.Count_And_Get
4723: ( p_count => x_msg_count,
4724: p_data => x_msg_data
4725: );
4726:
4739: X_Msg_Data OUT NOCOPY VARCHAR2
4740: )
4741: IS
4742: l_check_address VARCHAR2(1);
4743: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4744: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_ADDRESS_ID';
4745:
4746: BEGIN
4747: -- Initialize message list if p_init_msg_list is set to TRUE.
4746: BEGIN
4747: -- Initialize message list if p_init_msg_list is set to TRUE.
4748: IF FND_API.to_Boolean( p_init_msg_list )
4749: THEN
4750: FND_MSG_PUB.initialize;
4751: END IF;
4752:
4753: -- Initialize API return status to SUCCESS
4754: x_return_status := FND_API.G_RET_STS_SUCCESS;
4756: IF (p_ADDRESS_ID is not NULL) and (p_ADDRESS_ID <> FND_API.G_MISS_NUM)
4757: THEN
4758: IF (p_CUSTOMER_ID is NULL) or (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
4759: THEN
4760: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4761: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4762:
4763: AS_UTILITY_PVT.Set_Message(
4764: p_module => l_module,
4761: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4762:
4763: AS_UTILITY_PVT.Set_Message(
4764: p_module => l_module,
4765: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4766: p_msg_name => 'API_MISSING_CUSTOMER_ID');
4767:
4768: x_return_status := FND_API.G_RET_STS_ERROR;
4769:
4776: x_msg_count => x_msg_count,
4777: x_msg_data => x_msg_data);
4778:
4779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4780: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4781: -- 'Private API: ADDRESS_ID is invalid');
4782: FND_MSG_PUB.initialize;
4783: AS_UTILITY_PVT.Set_Message(
4784: p_module => l_module,
4778:
4779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4780: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4781: -- 'Private API: ADDRESS_ID is invalid');
4782: FND_MSG_PUB.initialize;
4783: AS_UTILITY_PVT.Set_Message(
4784: p_module => l_module,
4785: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4786: p_msg_name => 'AS_INVALID_ADDRESS_ID');
4781: -- 'Private API: ADDRESS_ID is invalid');
4782: FND_MSG_PUB.initialize;
4783: AS_UTILITY_PVT.Set_Message(
4784: p_module => l_module,
4785: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4786: p_msg_name => 'AS_INVALID_ADDRESS_ID');
4787:
4788: END IF;
4789: END IF;
4793: NULL;
4794:
4795: ELSE -- address_id is NULL or g_miss_num in creation mode
4796: IF l_debug THEN
4797: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4798: 'ADDRESS_ID is not entered');
4799: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4800: FND_PROFILE.Value('AS_OPP_ADDRESS_REQUIRED'));
4801:
4795: ELSE -- address_id is NULL or g_miss_num in creation mode
4796: IF l_debug THEN
4797: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4798: 'ADDRESS_ID is not entered');
4799: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4800: FND_PROFILE.Value('AS_OPP_ADDRESS_REQUIRED'));
4801:
4802: END IF;
4803:
4806: IF (l_check_address = 'Y')
4807: THEN
4808: AS_UTILITY_PVT.Set_Message(
4809: p_module => l_module,
4810: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4811: p_msg_name => 'API_MISSING_ADDRESS_ID');
4812:
4813: x_return_status := FND_API.G_RET_STS_ERROR;
4814: END IF;
4814: END IF;
4815: END IF;
4816:
4817: -- Standard call to get message count and if count is 1, get message info.
4818: FND_MSG_PUB.Count_And_Get
4819: ( p_count => x_msg_count,
4820: p_data => x_msg_data
4821: );
4822:
4839:
4840: -- Initialize message list if p_init_msg_list is set to TRUE.
4841: IF FND_API.to_Boolean( p_init_msg_list )
4842: THEN
4843: FND_MSG_PUB.initialize;
4844: END IF;
4845:
4846:
4847: -- Initialize API return status to SUCCESS
4852: THEN
4853: IF (p_END_USER_CUSTOMER_ID is NULL) or
4854: (p_END_USER_CUSTOMER_ID = FND_API.G_MISS_NUM)
4855: THEN
4856: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4857: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4858:
4859: AS_UTILITY_PVT.Set_Message(
4860: p_module => l_module,
4857: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4858:
4859: AS_UTILITY_PVT.Set_Message(
4860: p_module => l_module,
4861: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4862: p_msg_name => 'API_MISSING_END_USER_CUST_ID');
4863:
4864: x_return_status := FND_API.G_RET_STS_ERROR;
4865:
4872: x_msg_count => x_msg_count,
4873: x_msg_data => x_msg_data);
4874:
4875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4876: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4877: -- 'Private API: END_USER_ADDRESS_ID is invalid');
4878:
4879: AS_UTILITY_PVT.Set_Message(
4880: p_module => l_module,
4877: -- 'Private API: END_USER_ADDRESS_ID is invalid');
4878:
4879: AS_UTILITY_PVT.Set_Message(
4880: p_module => l_module,
4881: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4882: p_msg_name => 'API_INVALID_END_USER_ADDR_ID',
4883: p_token1 => 'VALUE',
4884: p_token1_value => p_END_USER_ADDRESS_ID );
4885:
4887: END IF;
4888: END IF;
4889:
4890: -- Standard call to get message count and if count is 1, get message info.
4891: FND_MSG_PUB.Count_And_Get
4892: ( p_count => x_msg_count,
4893: p_data => x_msg_data
4894: );
4895:
4947: AND res.resource_id = p_SALESREP_ID
4948: AND res.category = 'EMPLOYEE';
4949:
4950: l_val VARCHAR2(1);
4951: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4952: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_OPP_OWNER';
4953:
4954: BEGIN
4955:
4955:
4956: -- Initialize message list if p_init_msg_list is set to TRUE.
4957: IF FND_API.to_Boolean( p_init_msg_list )
4958: THEN
4959: FND_MSG_PUB.initialize;
4960: END IF;
4961:
4962: -- Initialize API return status to SUCCESS
4963: x_return_status := FND_API.G_RET_STS_SUCCESS;
4965: OPEN VALIDATE_SALESREP (p_owner_salesforce_id);
4966: FETCH VALIDATE_SALESREP into l_val;
4967: IF VALIDATE_SALESREP%NOTFOUND THEN
4968: IF l_debug THEN
4969: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
4970: 'Private API: OWNER_SALESFORCE_ID is not valid');
4971: END IF;
4972: AS_UTILITY_PVT.Set_Message(
4973: p_module => l_module,
4970: 'Private API: OWNER_SALESFORCE_ID is not valid');
4971: END IF;
4972: AS_UTILITY_PVT.Set_Message(
4973: p_module => l_module,
4974: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4975: p_msg_name => 'API_INVALID_ID',
4976: p_token1 => 'COLUMN',
4977: p_token1_value => 'OWNER SALESFORCE_ID',
4978: p_token2 => 'VALUE',
4984: OPEN VALIDATE_SALESGROUP (p_owner_sales_group_id);
4985: FETCH VALIDATE_SALESGROUP into l_val;
4986: IF VALIDATE_SALESGROUP%NOTFOUND THEN
4987: IF l_debug THEN
4988: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
4989: 'Private API: OWNER_SALES_GROUP_ID is not valid');
4990: END IF;
4991: AS_UTILITY_PVT.Set_Message(
4992: p_module => l_module,
4989: 'Private API: OWNER_SALES_GROUP_ID is not valid');
4990: END IF;
4991: AS_UTILITY_PVT.Set_Message(
4992: p_module => l_module,
4993: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4994: p_msg_name => 'API_INVALID_ID',
4995: p_token1 => 'COLUMN',
4996: p_token1_value => 'OWNER SALESGROUP_ID',
4997: p_token2 => 'VALUE',
5003: OPEN VALIDATE_COMBINATION (p_owner_salesforce_id,p_owner_sales_group_id);
5004: FETCH VALIDATE_COMBINATION into l_val;
5005: IF VALIDATE_COMBINATION%NOTFOUND THEN
5006: IF l_debug THEN
5007: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
5008: 'Private API: OWNER_SALES_GROUP_ID is not valid');
5009: END IF;
5010: AS_UTILITY_PVT.Set_Message(
5011: p_module => l_module,
5008: 'Private API: OWNER_SALES_GROUP_ID is not valid');
5009: END IF;
5010: AS_UTILITY_PVT.Set_Message(
5011: p_module => l_module,
5012: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5013: p_msg_name => 'API_INVALID_ID',
5014: p_token1 => 'COLUMN',
5015: p_token1_value => 'OWNER SALESFORCE/SALESGROUP COMBINATION',
5016: p_token2 => 'VALUE',
5019: END IF;
5020: CLOSE VALIDATE_COMBINATION;
5021:
5022: -- Standard call to get message count and if count is 1, get message info.
5023: FND_MSG_PUB.Count_And_Get
5024: ( p_count => x_msg_count,
5025: p_data => x_msg_data
5026: );
5027:
5050:
5051: -- Initialize message list if p_init_msg_list is set to TRUE.
5052: IF FND_API.to_Boolean( p_init_msg_list )
5053: THEN
5054: FND_MSG_PUB.initialize;
5055: END IF;
5056:
5057:
5058: -- Initialize API return status to SUCCESS
5066: p_AUTO_ASSIGNMENT_TYPE);
5067: FETCH C_AUTO_ASGN_TYPE_Exists into l_val;
5068:
5069: IF C_AUTO_ASGN_TYPE_Exists%NOTFOUND THEN
5070: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5071: -- 'Private API: AUTO_ASSIGNMENT_TYPE is invalid');
5072:
5073: AS_UTILITY_PVT.Set_Message(
5074: p_module => l_module,
5071: -- 'Private API: AUTO_ASSIGNMENT_TYPE is invalid');
5072:
5073: AS_UTILITY_PVT.Set_Message(
5074: p_module => l_module,
5075: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5076: p_msg_name => 'API_INVALID_AUTO_ASGN_TYPE',
5077: p_token1 => 'VALUE',
5078: p_token1_value => p_AUTO_ASSIGNMENT_TYPE );
5079:
5083: CLOSE C_AUTO_ASGN_TYPE_Exists;
5084: END IF;
5085:
5086: -- Standard call to get message count and if count is 1, get message info.
5087: FND_MSG_PUB.Count_And_Get
5088: ( p_count => x_msg_count,
5089: p_data => x_msg_data
5090: );
5091:
5114: BEGIN
5115: -- Initialize message list if p_init_msg_list is set to TRUE.
5116: IF FND_API.to_Boolean( p_init_msg_list )
5117: THEN
5118: FND_MSG_PUB.initialize;
5119: END IF;
5120:
5121: -- Initialize API return status to SUCCESS
5122: x_return_status := FND_API.G_RET_STS_SUCCESS;
5129: p_PRM_ASSIGNMENT_TYPE);
5130: FETCH C_PRM_ASGN_TYPE_Exists into l_val;
5131:
5132: IF C_PRM_ASGN_TYPE_Exists%NOTFOUND THEN
5133: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5134: -- 'Private API: PRM_ASSIGNMENT_TYPE is invalid');
5135:
5136: AS_UTILITY_PVT.Set_Message(
5137: p_module => l_module,
5134: -- 'Private API: PRM_ASSIGNMENT_TYPE is invalid');
5135:
5136: AS_UTILITY_PVT.Set_Message(
5137: p_module => l_module,
5138: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5139: p_msg_name => 'API_INVALID_PRM_ASGN_TYPE',
5140: p_token1 => 'VALUE',
5141: p_token1_value => p_PRM_ASSIGNMENT_TYPE );
5142:
5146: CLOSE C_PRM_ASGN_TYPE_Exists;
5147: END IF;
5148:
5149: -- Standard call to get message count and if count is 1, get message info.
5150: FND_MSG_PUB.Count_And_Get
5151: ( p_count => x_msg_count,
5152: p_data => x_msg_data
5153: );
5154:
5177: BEGIN
5178: -- Initialize message list if p_init_msg_list is set to TRUE.
5179: IF FND_API.to_Boolean( p_init_msg_list )
5180: THEN
5181: FND_MSG_PUB.initialize;
5182: END IF;
5183:
5184: -- Initialize API return status to SUCCESS
5185: x_return_status := FND_API.G_RET_STS_SUCCESS;
5191: OPEN C_RESOURCE_ID_Exists (p_INC_PARTNER_RESOURCE_ID);
5192: FETCH C_RESOURCE_ID_Exists into l_val;
5193:
5194: IF C_RESOURCE_ID_Exists%NOTFOUND THEN
5195: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5196: -- 'Private API: INC_PARTNER_RESOURCE_ID is invalid');
5197:
5198: AS_UTILITY_PVT.Set_Message(
5199: p_module => l_module,
5196: -- 'Private API: INC_PARTNER_RESOURCE_ID is invalid');
5197:
5198: AS_UTILITY_PVT.Set_Message(
5199: p_module => l_module,
5200: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5201: p_msg_name => 'API_INVALID_INC_PRTN_RS_ID',
5202: p_token1 => 'VALUE',
5203: p_token1_value => p_INC_PARTNER_RESOURCE_ID );
5204:
5208: CLOSE C_RESOURCE_ID_Exists;
5209: END IF;
5210:
5211: -- Standard call to get message count and if count is 1, get message info.
5212: FND_MSG_PUB.Count_And_Get
5213: ( p_count => x_msg_count,
5214: p_data => x_msg_data
5215: );
5216:
5240:
5241: -- Initialize message list if p_init_msg_list is set to TRUE.
5242: IF FND_API.to_Boolean( p_init_msg_list )
5243: THEN
5244: FND_MSG_PUB.initialize;
5245: END IF;
5246:
5247:
5248: -- Initialize API return status to SUCCESS
5256: p_PRM_IND_CLASSIFICATION_CODE);
5257: FETCH C_PRM_IND_CLS_CODE_Exists into l_val;
5258:
5259: IF C_PRM_IND_CLS_CODE_Exists%NOTFOUND THEN
5260: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5261: -- 'Private API: PRM_IND_CLASSIFICATION_CODE is invalid');
5262:
5263: AS_UTILITY_PVT.Set_Message(
5264: p_module => l_module,
5261: -- 'Private API: PRM_IND_CLASSIFICATION_CODE is invalid');
5262:
5263: AS_UTILITY_PVT.Set_Message(
5264: p_module => l_module,
5265: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5266: p_msg_name => 'API_INVALID_PRM_IND_CLS_CODE',
5267: p_token1 => 'VALUE',
5268: p_token1_value => p_PRM_IND_CLASSIFICATION_CODE );
5269:
5273: CLOSE C_PRM_IND_CLS_CODE_Exists;
5274: END IF;
5275:
5276: -- Standard call to get message count and if count is 1, get message info.
5277: FND_MSG_PUB.Count_And_Get
5278: ( p_count => x_msg_count,
5279: p_data => x_msg_data
5280: );
5281:
5296: BEGIN
5297: -- Initialize message list if p_init_msg_list is set to TRUE.
5298: IF FND_API.to_Boolean( p_init_msg_list )
5299: THEN
5300: FND_MSG_PUB.initialize;
5301: END IF;
5302:
5303: -- Initialize API return status to SUCCESS
5304: x_return_status := FND_API.G_RET_STS_SUCCESS;
5308: THEN
5309: IF (UPPER(p_PRM_EXEC_SPONSOR_FLAG) <> 'Y') and
5310: (UPPER(p_PRM_EXEC_SPONSOR_FLAG) <> 'N')
5311: THEN
5312: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5313: -- 'Private API: PRM_EXEC_SPONSOR_FLAG is invalid');
5314:
5315: AS_UTILITY_PVT.Set_Message(
5316: p_module => l_module,
5313: -- 'Private API: PRM_EXEC_SPONSOR_FLAG is invalid');
5314:
5315: AS_UTILITY_PVT.Set_Message(
5316: p_module => l_module,
5317: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5318: p_msg_name => 'API_INVALID_PRM_EXEC_SPNR_FLAG',
5319: p_token1 => 'VALUE',
5320: p_token1_value => p_PRM_EXEC_SPONSOR_FLAG );
5321:
5323: END IF;
5324: END IF;
5325:
5326: -- Standard call to get message count and if count is 1, get message info.
5327: FND_MSG_PUB.Count_And_Get
5328: ( p_count => x_msg_count,
5329: p_data => x_msg_data
5330: );
5331:
5346: BEGIN
5347: -- Initialize message list if p_init_msg_list is set to TRUE.
5348: IF FND_API.to_Boolean( p_init_msg_list )
5349: THEN
5350: FND_MSG_PUB.initialize;
5351: END IF;
5352:
5353: -- Initialize API return status to SUCCESS
5354: x_return_status := FND_API.G_RET_STS_SUCCESS;
5358: THEN
5359: IF (UPPER(p_PRM_PRJ_LEAD_IN_PLACE_FLAG) <> 'Y') and
5360: (UPPER(p_PRM_PRJ_LEAD_IN_PLACE_FLAG) <> 'N')
5361: THEN
5362: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5363: -- 'Private API: PRM_PRJ_LEAD_IN_PLACE_FLAG is invalid');
5364:
5365: AS_UTILITY_PVT.Set_Message(
5366: p_module => l_module,
5363: -- 'Private API: PRM_PRJ_LEAD_IN_PLACE_FLAG is invalid');
5364:
5365: AS_UTILITY_PVT.Set_Message(
5366: p_module => l_module,
5367: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5368: p_msg_name => 'API_INVALID_PRM_PRJ_LDINPL_FLG',
5369: p_token1 => 'VALUE',
5370: p_token1_value => p_PRM_PRJ_LEAD_IN_PLACE_FLAG );
5371:
5373: END IF;
5374: END IF;
5375:
5376: -- Standard call to get message count and if count is 1, get message info.
5377: FND_MSG_PUB.Count_And_Get
5378: ( p_count => x_msg_count,
5379: p_data => x_msg_data
5380: );
5381:
5398:
5399: -- Initialize message list if p_init_msg_list is set to TRUE.
5400: IF FND_API.to_Boolean( p_init_msg_list )
5401: THEN
5402: FND_MSG_PUB.initialize;
5403: END IF;
5404:
5405:
5406: -- Initialize API return status to SUCCESS
5410: IF(p_Description is NULL)
5411: THEN
5412: AS_UTILITY_PVT.Set_Message(
5413: p_module => l_module,
5414: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5415: p_msg_name => 'API_MISSING_DESCRIPTION');
5416:
5417: x_return_status := FND_API.G_RET_STS_ERROR;
5418: END IF;
5434: BEGIN
5435: -- Initialize message list if p_init_msg_list is set to TRUE.
5436: IF FND_API.to_Boolean( p_init_msg_list )
5437: THEN
5438: FND_MSG_PUB.initialize;
5439: END IF;
5440:
5441: -- Initialize API return status to SUCCESS
5442: x_return_status := FND_API.G_RET_STS_SUCCESS;
5449: THEN
5450:
5451: AS_UTILITY_PVT.Set_Message(
5452: p_module => l_module,
5453: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5454: p_msg_name => 'API_INVALID_FREEZE_FLAG',
5455: p_token1 => 'VALUE',
5456: p_token1_value => p_FREEZE_FLAG );
5457:
5459: END IF;
5460: END IF;
5461:
5462: -- Standard call to get message count and if count is 1, get message info.
5463: FND_MSG_PUB.Count_And_Get
5464: ( p_count => x_msg_count,
5465: p_data => x_msg_data
5466: );
5467:
5510:
5511: -- Initialize message list if p_init_msg_list is set to TRUE.
5512: IF FND_API.to_Boolean( p_init_msg_list )
5513: THEN
5514: FND_MSG_PUB.initialize;
5515: END IF;
5516:
5517:
5518: -- Initialize API return status to SUCCESS
5532:
5533: IF c_Win_Prob_Limit%NOTFOUND THEN
5534: AS_UTILITY_PVT.Set_Message(
5535: p_module => l_module,
5536: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5537: p_msg_name => 'API_INVALID_SALES_STAGE_ID',
5538: p_token1 => 'VALUE',
5539: p_token1_value => p_SALES_STAGE_ID );
5540:
5545: l_max_winprob < p_win_probability
5546: THEN
5547: IF l_prob_ss_link = 'WARNING'
5548: THEN
5549: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
5550: THEN
5551:
5552: NULL; -- bug 2437635
5553: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5550: THEN
5551:
5552: NULL; -- bug 2437635
5553: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5554: --FND_MSG_PUB.ADD;
5555: --FND_MSG_PUB.G_MSG_LVL_ERROR
5556:
5557: --AS_UTILITY_PVT.Set_Message(
5558: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5551:
5552: NULL; -- bug 2437635
5553: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5554: --FND_MSG_PUB.ADD;
5555: --FND_MSG_PUB.G_MSG_LVL_ERROR
5556:
5557: --AS_UTILITY_PVT.Set_Message(
5558: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5559: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5554: --FND_MSG_PUB.ADD;
5555: --FND_MSG_PUB.G_MSG_LVL_ERROR
5556:
5557: --AS_UTILITY_PVT.Set_Message(
5558: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5559: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5560:
5561: l_warning_msg := FND_MESSAGE.GET_STRING('AS','API_WARN_PROB_SS_LINK');
5562: -- x_return_status := FND_API.G_RET_STS_ERROR;
5565: END IF;
5566:
5567: ELSIF l_prob_ss_link = 'ERROR'
5568: THEN
5569: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5570: THEN
5571: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5572: -- FND_MSG_PUB.ADD;
5573:
5568: THEN
5569: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5570: THEN
5571: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5572: -- FND_MSG_PUB.ADD;
5573:
5574: AS_UTILITY_PVT.Set_Message(
5575: p_module => l_module,
5576: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5572: -- FND_MSG_PUB.ADD;
5573:
5574: AS_UTILITY_PVT.Set_Message(
5575: p_module => l_module,
5576: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5577: p_msg_name => 'API_ERROR_PROB_SS_LINK');
5578:
5579: END IF;
5580:
5597: OPEN C_Get_Stage_Info (p_SALES_STAGE_ID);
5598: FETCH C_Get_Stage_Info into l_min_winprob, l_max_winprob;
5599:
5600: IF C_Get_Stage_Info%NOTFOUND THEN
5601: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5602: -- 'Private API: SALES_STAGE_ID is invalid');
5603:
5604: AS_UTILITY_PVT.Set_Message(
5605: p_module => l_module,
5602: -- 'Private API: SALES_STAGE_ID is invalid');
5603:
5604: AS_UTILITY_PVT.Set_Message(
5605: p_module => l_module,
5606: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5607: p_msg_name => 'API_INVALID_SALES_STAGE_ID',
5608: p_token1 => 'VALUE',
5609: p_token1_value => p_SALES_STAGE_ID );
5610:
5615: l_max_winprob < p_win_probability
5616: THEN
5617: IF l_prob_ss_link = 'WARNING'
5618: THEN
5619: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
5620: THEN
5621: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5622: --FND_MSG_PUB.ADD;
5623:
5618: THEN
5619: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
5620: THEN
5621: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5622: --FND_MSG_PUB.ADD;
5623:
5624: --AS_UTILITY_PVT.Set_Message(
5625: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5626: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5621: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5622: --FND_MSG_PUB.ADD;
5623:
5624: --AS_UTILITY_PVT.Set_Message(
5625: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5626: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5627: l_warning_msg := FND_MESSAGE.GET_STRING('AS','API_WARN_PROB_SS_LINK');
5628: -- x_return_status := FND_API.G_RET_STS_ERROR;
5629:
5631: END IF;
5632:
5633: ELSIF l_prob_ss_link = 'ERROR'
5634: THEN
5635: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5636: THEN
5637: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5638: -- FND_MSG_PUB.ADD;
5639:
5634: THEN
5635: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5636: THEN
5637: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5638: -- FND_MSG_PUB.ADD;
5639:
5640: AS_UTILITY_PVT.Set_Message(
5641: p_module => l_module,
5642: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5638: -- FND_MSG_PUB.ADD;
5639:
5640: AS_UTILITY_PVT.Set_Message(
5641: p_module => l_module,
5642: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5643: p_msg_name => 'API_ERROR_PROB_SS_LINK');
5644:
5645: END IF;
5646:
5654:
5655: END IF;
5656:
5657: -- Standard call to get message count and if count is 1, get message info.
5658: FND_MSG_PUB.Count_And_Get
5659: ( p_count => x_msg_count,
5660: p_data => x_msg_data
5661: );
5662:
5691:
5692: -- Initialize message list if p_init_msg_list is set to TRUE.
5693: IF FND_API.to_Boolean( p_init_msg_list )
5694: THEN
5695: FND_MSG_PUB.initialize;
5696: END IF;
5697:
5698:
5699: -- Initialize API return status to SUCCESS
5707: OPEN C_Get_OppOpenStatusFlag (p_STATUS);
5708: FETCH C_Get_OppOpenStatusFlag into l_val;
5709:
5710: IF C_Get_OppOpenStatusFlag%NOTFOUND THEN
5711: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5712: -- 'Private API: STATUS is invalid');
5713:
5714: AS_UTILITY_PVT.Set_Message(
5715: p_module => l_module,
5712: -- 'Private API: STATUS is invalid');
5713:
5714: AS_UTILITY_PVT.Set_Message(
5715: p_module => l_module,
5716: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5717: p_msg_name => 'API_INVALID_OPP_STATUS',
5718: p_token1 => 'VALUE',
5719: p_token1_value => p_STATUS );
5720:
5723: -- If opp_open_status_flag = 'N' (closed status),
5724: -- then close_reason should exist
5725: ELSIF l_val = 'N'
5726: THEN
5727: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5728: -- 'Private API: CLOSE_REASON is missing');
5729:
5730: AS_UTILITY_PVT.Set_Message(
5731: p_module => l_module,
5728: -- 'Private API: CLOSE_REASON is missing');
5729:
5730: AS_UTILITY_PVT.Set_Message(
5731: p_module => l_module,
5732: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5733: p_msg_name => 'API_MISSING_CLOSE_REASON');
5734:
5735: x_return_status := FND_API.G_RET_STS_ERROR;
5736:
5740: END IF;
5741: END IF;
5742:
5743: -- Standard call to get message count and if count is 1, get message info.
5744: FND_MSG_PUB.Count_And_Get
5745: ( p_count => x_msg_count,
5746: p_data => x_msg_data
5747: );
5748:
5769:
5770: -- Initialize message list if p_init_msg_list is set to TRUE.
5771: IF FND_API.to_Boolean( p_init_msg_list )
5772: THEN
5773: FND_MSG_PUB.initialize;
5774: END IF;
5775:
5776:
5777: -- Initialize API return status to SUCCESS
5784: --DBMS_OUTPUT.PUT_LINE('rAISE ERROR');
5785: x_return_status := FND_API.G_RET_STS_ERROR;
5786: AS_UTILITY_PVT.Set_Message(
5787: p_module => l_module,
5788: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5789: p_msg_name => 'AS_CLOSE_DATE_VALIDATION',
5790: p_token1 => 'DATE',
5791: p_token1_value => TO_CHAR(l_max_date));
5792: END IF;
5793: END IF;
5794:
5795:
5796: -- Standard call to get message count and if count is 1, get message info.
5797: FND_MSG_PUB.Count_And_Get
5798: ( p_count => x_msg_count,
5799: p_data => x_msg_data
5800: );
5801:
5804: --DBMS_OUTPUT.PUT_LINE('In VALUE_ERROR exception');
5805: x_return_status := FND_API.G_RET_STS_ERROR;
5806: AS_UTILITY_PVT.Set_Message(
5807: p_module => l_module,
5808: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5809: p_msg_name => 'AS_MAX_DAY_ERROR');
5810:
5811: END Validate_DecisionDate;
5812:
5828:
5829: -- Initialize message list if p_init_msg_list is set to TRUE.
5830: IF FND_API.to_Boolean( p_init_msg_list )
5831: THEN
5832: FND_MSG_PUB.initialize;
5833: END IF;
5834:
5835:
5836: -- Initialize API return status to SUCCESS
5845: (p_CURRENCY_CODE = FND_API.G_MISS_CHAR)
5846: THEN
5847: AS_UTILITY_PVT.Set_Message(
5848: p_module => l_module,
5849: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5850: p_msg_name => 'API_MISSING_CURRENCY_CODE');
5851:
5852: x_return_status := FND_API.G_RET_STS_ERROR;
5853: END IF;
5853: END IF;
5854: END IF;
5855:
5856: -- Standard call to get message count and if count is 1, get message info.
5857: FND_MSG_PUB.Count_And_Get
5858: ( p_count => x_msg_count,
5859: p_data => x_msg_data
5860: );
5861:
5876: )
5877: IS
5878: l_api_name CONSTANT VARCHAR2(30) := 'Validate_opp_header';
5879: l_Item_Property_Rec AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE;
5880: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
5881: l_Win_prob_warning_msg VARCHAR2(2000) := '';
5882: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_opp_header';
5883: BEGIN
5884:
5883: BEGIN
5884:
5885: -- Debug Message
5886: IF l_debug THEN
5887: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5888: 'Private API: ' || l_api_name || ' start');
5889: END IF;
5890:
5891:
5907: -- Calling item level validation procedures
5908: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
5909: THEN
5910: IF l_debug THEN
5911: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5912: 'Validate_LEAD_ID');
5913: END IF;
5914:
5915: Validate_LEAD_ID(
5926:
5927:
5928:
5929: IF l_debug THEN
5930: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5931: 'Validate_STATUS');
5932: END IF;
5933:
5934: Validate_STATUS(
5943: raise FND_API.G_EXC_ERROR;
5944: END IF;
5945:
5946: IF l_debug THEN
5947: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5948: 'Validate_SALES_STAGE_ID');
5949: END IF;
5950:
5951: Validate_SALES_STAGE_ID(
5960: raise FND_API.G_EXC_ERROR;
5961: END IF;
5962:
5963: IF l_debug THEN
5964: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Validate_CHANNEL_CODE');
5965: END IF;
5966:
5967: Validate_CHANNEL_CODE(
5968: p_init_msg_list => FND_API.G_FALSE,
5976: raise FND_API.G_EXC_ERROR;
5977: END IF;
5978:
5979: IF l_debug THEN
5980: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Validate_CURRENCY_CODE');
5981: END IF;
5982:
5983: Validate_CURRENCY_CODE(
5984: p_init_msg_list => FND_API.G_FALSE,
5992: raise FND_API.G_EXC_ERROR;
5993: END IF;
5994:
5995: IF l_debug THEN
5996: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5997: 'Validate_DecisionDate');
5998: END IF;
5999: Validate_DecisionDate(
6000: p_init_msg_list => FND_API.G_FALSE,
6008: raise FND_API.G_EXC_ERROR;
6009: END IF;
6010:
6011: IF l_debug THEN
6012: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6013: 'Validate_BudgetAmt_Currency');
6014:
6015: END IF;
6016:
6014:
6015: END IF;
6016:
6017: IF l_debug THEN
6018: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6019: 'Validate_WIN_PROBABILITY');
6020:
6021: END IF;
6022:
6032: raise FND_API.G_EXC_ERROR;
6033: END IF;
6034:
6035: IF l_debug THEN
6036: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6037: 'Validate_CLOSE_REASON');
6038: END IF;
6039:
6040: Validate_CLOSE_REASON(
6049: raise FND_API.G_EXC_ERROR;
6050: END IF;
6051:
6052: IF l_debug THEN
6053: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6054: 'Validate_SOURCE_PROMOTION_ID');
6055: END IF;
6056:
6057: Validate_SOURCE_PROMOTION_ID(
6066: raise FND_API.G_EXC_ERROR;
6067: END IF;
6068:
6069: IF l_debug THEN
6070: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6071: 'Validate_NO_OPP_ALLOWED_FLAG');
6072: END IF;
6073:
6074: Validate_NO_OPP_ALLOWED_FLAG(
6083: raise FND_API.G_EXC_ERROR;
6084: END IF;
6085:
6086: IF l_debug THEN
6087: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6088: 'Validate_DELETE_ALLOWED_FLAG');
6089: END IF;
6090:
6091: Validate_DELETE_ALLOWED_FLAG(
6100: raise FND_API.G_EXC_ERROR;
6101: END IF;
6102:
6103: IF l_debug THEN
6104: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6105: 'Validate_LEAD_SOURCE_CODE');
6106: END IF;
6107:
6108: Validate_LEAD_SOURCE_CODE(
6117: raise FND_API.G_EXC_ERROR;
6118: END IF;
6119:
6120: IF l_debug THEN
6121: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6122: 'Validate_PRICE_LIST_ID');
6123: END IF;
6124:
6125: Validate_PRICE_LIST_ID(
6135: raise FND_API.G_EXC_ERROR;
6136: END IF;
6137:
6138: IF l_debug THEN
6139: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6140: 'Validate_DELETED_FLAG');
6141: END IF;
6142:
6143: Validate_DELETED_FLAG(
6152: raise FND_API.G_EXC_ERROR;
6153: END IF;
6154:
6155: IF l_debug THEN
6156: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6157: 'Validate_METHODOLOGY_CODE');
6158: END IF;
6159:
6160: Validate_METHODOLOGY_CODE(
6169: raise FND_API.G_EXC_ERROR;
6170: END IF;
6171:
6172: IF l_debug THEN
6173: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6174: 'Validate_ORIGINAL_LEAD_ID');
6175: END IF;
6176:
6177: Validate_ORIGINAL_LEAD_ID(
6186: raise FND_API.G_EXC_ERROR;
6187: END IF;
6188:
6189: IF l_debug THEN
6190: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6191: 'Validate_DECN_TIMEFRAME_CODE');
6192: END IF;
6193:
6194: Validate_DECN_TIMEFRAME_CODE(
6204: raise FND_API.G_EXC_ERROR;
6205: END IF;
6206:
6207: IF l_debug THEN
6208: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6209: 'Validate_OFFER_ID');
6210: END IF;
6211:
6212: Validate_OFFER_ID(
6222: raise FND_API.G_EXC_ERROR;
6223: END IF;
6224:
6225: IF l_debug THEN
6226: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6227: 'Validate_VEHICLE_RESPONSE_CODE');
6228: END IF;
6229:
6230: Validate_VEHICLE_RESPONSE_CODE(
6239: raise FND_API.G_EXC_ERROR;
6240: END IF;
6241:
6242: IF l_debug THEN
6243: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6244: 'Validate_BUDGET_STATUS_CODE');
6245: END IF;
6246:
6247: Validate_BUDGET_STATUS_CODE(
6256: raise FND_API.G_EXC_ERROR;
6257: END IF;
6258:
6259: IF l_debug THEN
6260: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6261: 'Validate_PRM_LEAD_TYPE');
6262: END IF;
6263:
6264: Validate_PRM_LEAD_TYPE(
6273: raise FND_API.G_EXC_ERROR;
6274: END IF;
6275:
6276: IF l_debug THEN
6277: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6278: 'Validate_CUSTOMER_ID');
6279: END IF;
6280:
6281: Validate_CUSTOMER_ID(
6290: raise FND_API.G_EXC_ERROR;
6291: END IF;
6292:
6293: IF l_debug THEN
6294: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6295: 'Validate_INC_PARTNER_PARTY_ID');
6296: END IF;
6297:
6298: Validate_INC_PARTNER_PARTY_ID(
6308: raise FND_API.G_EXC_ERROR;
6309: END IF;
6310:
6311: IF l_debug THEN
6312: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6313: 'Validate_CLOSE_COMPETITOR_ID');
6314: END IF;
6315:
6316: Validate_CLOSE_COMPETITOR_ID(
6325: raise FND_API.G_EXC_ERROR;
6326: END IF;
6327:
6328: IF l_debug THEN
6329: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6330: 'Validate_END_USER_CUSTOMER_ID');
6331: END IF;
6332:
6333: Validate_END_USER_CUSTOMER_ID(
6342: raise FND_API.G_EXC_ERROR;
6343: END IF;
6344:
6345: IF l_debug THEN
6346: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6347: 'Validate_ADDRESS_ID');
6348: END IF;
6349:
6350: Validate_ADDRESS_ID(
6360: raise FND_API.G_EXC_ERROR;
6361: END IF;
6362:
6363: IF l_debug THEN
6364: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6365: 'Validate_END_USER_ADDRESS_ID');
6366: END IF;
6367:
6368: Validate_END_USER_ADDRESS_ID(
6378: raise FND_API.G_EXC_ERROR;
6379: END IF;
6380:
6381: IF l_debug THEN
6382: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6383: 'Validate_AUTO_ASGN_TYPE');
6384: END IF;
6385:
6386: Validate_AUTO_ASGN_TYPE(
6395: raise FND_API.G_EXC_ERROR;
6396: END IF;
6397:
6398: IF l_debug THEN
6399: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6400: 'Validate_PRM_ASGN_TYPE');
6401: END IF;
6402:
6403: Validate_PRM_ASGN_TYPE(
6412: raise FND_API.G_EXC_ERROR;
6413: END IF;
6414:
6415: IF l_debug THEN
6416: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6417: 'Validate_INC_PRTNR_RESOURCE_ID');
6418: END IF;
6419:
6420: Validate_INC_PRTNR_RESOURCE_ID(
6430: raise FND_API.G_EXC_ERROR;
6431: END IF;
6432:
6433: IF l_debug THEN
6434: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6435: 'Validate_PRM_IND_CLS_CODE');
6436: END IF;
6437:
6438: Validate_PRM_IND_CLS_CODE(
6448: raise FND_API.G_EXC_ERROR;
6449: END IF;
6450:
6451: IF l_debug THEN
6452: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6453: 'Validate_PRM_EXEC_SPONSOR_FLAG');
6454: END IF;
6455:
6456: Validate_PRM_EXEC_SPONSOR_FLAG(
6465: raise FND_API.G_EXC_ERROR;
6466: END IF;
6467:
6468: IF l_debug THEN
6469: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6470: 'Validate_PRM_PRJ_LDINPLE_FLAG');
6471: END IF;
6472:
6473: Validate_PRM_PRJ_LDINPLE_FLAG(
6484: END IF;
6485:
6486: -- 091200 ffang, for bug 1402449
6487: IF l_debug THEN
6488: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6489: 'Validate_DESCRIPTION');
6490: END IF;
6491:
6492: Validate_DESCRIPTION(
6503: -- end 091200 ffang
6504:
6505: -- solin, for bug 1554330
6506: IF l_debug THEN
6507: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6508: 'Validate_FREEZE_FLAG');
6509: END IF;
6510:
6511: Validate_FREEZE_FLAG(
6545: -- Calling record level validation procedures
6546: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_RECORD)
6547: THEN
6548: IF l_debug THEN
6549: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6550: 'Validate_WinPorb_StageID');
6551: END IF;
6552:
6553: Validate_WinPorb_StageID(
6568: l_Win_prob_warning_msg := x_msg_data;
6569: END IF;
6570:
6571: IF l_debug THEN
6572: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6573: 'Validate_Status_CloseReason');
6574: END IF;
6575:
6576: Validate_Status_CloseReason(
6615:
6616:
6617: -- Debug Message
6618: IF l_debug THEN
6619: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6620: 'Private API: ' || l_api_name || ' end');
6621:
6622: END IF;
6623:
6621:
6622: END IF;
6623:
6624: -- Standard call to get message count and if count is 1, get message info.
6625: FND_MSG_PUB.Count_And_Get
6626: ( p_count => x_msg_count,
6627: p_data => x_msg_data
6628: );
6629: