[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:
1120: END IF;
1121:
1122: -- Debug Message
1123: IF l_debug THEN
1124: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1125: 'Calling Create_SalesTeam');
1126: END IF;
1127:
1128: AS_ACCESS_PUB.Create_SalesTeam (
1143: );
1144:
1145: -- Debug Message
1146: IF l_debug THEN
1147: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1148: 'Create_SalesTeam:l_access_id = ' || l_access_id);
1149: END IF;
1150:
1151:
1176: l_is_owner := 'Y';
1177:
1178: -- Debug Message
1179: IF l_debug THEN
1180: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1181: 'Calling Create_SalesTeam for owner');
1182: END IF;
1183:
1184: AS_ACCESS_PUB.Create_SalesTeam (
1199: );
1200:
1201: -- Debug Message
1202: IF l_debug THEN
1203: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Create_Owner_ST:l_access_id = ' || l_access_id);
1204: END IF;
1205:
1206:
1207:
1217:
1218: -- Assign/Reassign the territory resources for the opportunity
1219: -- Debug Message
1220: IF l_debug THEN
1221: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Opportunity Real Time API');
1222: END IF;
1223:
1224:
1225: AS_RTTAP_OPPTY.RTTAP_WRAPPER(
1233: );
1234:
1235: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1236: IF l_debug THEN
1237: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Opportunity Real Time API fail');
1238: END IF;
1239: RAISE FND_API.G_EXC_ERROR;
1240: END IF;
1241:
1241:
1242:
1243: -- Debug Message
1244: IF l_debug THEN
1245: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Recreate_tasks');
1246: END IF;
1247:
1248: Recreate_tasks(
1249: p_LEAD_ID => l_lead_id,
1258: X_Warning_Message => l_warning_msg );
1259:
1260: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1261: IF l_debug THEN
1262: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Recreate_tasks fail');
1263: END IF;
1264:
1265: RAISE FND_API.G_EXC_ERROR;
1266: END IF;
1289: X_Msg_Data => x_msg_data);
1290:
1291: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1292: IF l_debug THEN
1293: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Create lead competitor fail');
1294: END IF;
1295:
1296: RAISE FND_API.G_EXC_ERROR;
1297: END IF;
1309: x_return_status => x_return_status);
1310:
1311: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1312: IF l_debug THEN
1313: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Update competitor Products fail');
1314: END IF;
1315: RAISE FND_API.G_EXC_ERROR;
1316: END IF;
1317:
1330:
1331:
1332: -- Debug Message
1333: IF l_debug THEN
1334: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: ' || l_api_name || ' end');
1335: END IF;
1336:
1337:
1338:
1336:
1337:
1338:
1339: -- Standard call to get message count and if count is 1, get message info.
1340: FND_MSG_PUB.Count_And_Get
1341: ( p_count => x_msg_count,
1342: p_data => x_msg_data
1343: );
1344:
1373: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1374: P_MODULE => l_module
1375: ,P_API_NAME => L_API_NAME
1376: ,P_PKG_NAME => G_PKG_NAME
1377: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1378: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1379: ,X_MSG_COUNT => X_MSG_COUNT
1380: ,X_MSG_DATA => X_MSG_DATA
1381: ,X_RETURN_STATUS => X_RETURN_STATUS);
1384: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1385: P_MODULE => l_module
1386: ,P_API_NAME => L_API_NAME
1387: ,P_PKG_NAME => G_PKG_NAME
1388: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1389: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
1390: ,X_MSG_COUNT => X_MSG_COUNT
1391: ,X_MSG_DATA => X_MSG_DATA
1392: ,X_RETURN_STATUS => X_RETURN_STATUS);
1524: l_update_count NUMBER;
1525: l_count NUMBER;
1526: l_forecast_credit_type_id CONSTANT NUMBER := FND_PROFILE.VALUE('AS_FORECAST_CREDIT_TYPE_ID');
1527: l_temp_bool BOOLEAN;
1528: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1529: x_lead_id NUMBER;
1530: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Update_opp_header';
1531:
1532: BEGIN
1545:
1546: -- Initialize message list if p_init_msg_list is set to TRUE.
1547: IF FND_API.to_Boolean( p_init_msg_list )
1548: THEN
1549: FND_MSG_PUB.initialize;
1550: END IF;
1551:
1552:
1553: -- Debug Message
1551:
1552:
1553: -- Debug Message
1554: IF l_debug THEN
1555: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: ' || l_api_name || ' start');
1556: END IF;
1557:
1558:
1559: -- Initialize API return status to SUCCESS
1601: END IF;
1602:
1603: -- Debug Message
1604: IF l_debug THEN
1605: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Open Cursor to Select');
1606: END IF;
1607:
1608:
1609: Open C_Get_opp_header( l_Header_rec.LEAD_ID);
1622: IF (UPPER(l_deleted_flag) = 'Y')
1623: THEN
1624: AS_UTILITY_PVT.Set_Message(
1625: p_module => l_module,
1626: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1627: p_msg_name => 'API_DELETED_OPP_HEADER');
1628:
1629: raise FND_API.G_EXC_ERROR;
1630: END IF;
1634: IF l_freeze_flag = 'Y'
1635: THEN
1636: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
1637: IF l_allow_flag <> 'Y' THEN
1638: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
1639: 'API_OPP_FROZEN');
1640: RAISE FND_API.G_EXC_ERROR;
1641: END IF;
1642: END IF;
1643: -- end 1554330
1644:
1645: IF ( C_Get_opp_header%NOTFOUND)
1646: THEN
1647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1648: THEN
1649: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1650: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
1651: -- FND_MSG_PUB.Add;
1647: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1648: THEN
1649: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
1650: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
1651: -- FND_MSG_PUB.Add;
1652:
1653: AS_UTILITY_PVT.Set_Message(
1654: p_module => l_module,
1655: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1651: -- FND_MSG_PUB.Add;
1652:
1653: AS_UTILITY_PVT.Set_Message(
1654: p_module => l_module,
1655: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1656: p_msg_name => 'API_MISSING_OPP_HEADER_UPDATE');
1657:
1658: END IF;
1659: raise FND_API.G_EXC_ERROR;
1660: END IF;
1661:
1662: -- Debug Message
1663: IF l_debug THEN
1664: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
1665: END IF;
1666: close C_Get_opp_header;
1667:
1668: If (l_Header_rec.last_update_date is NULL or
1666: close C_Get_opp_header;
1667:
1668: If (l_Header_rec.last_update_date is NULL or
1669: l_Header_rec.last_update_date = FND_API.G_MISS_Date ) Then
1670: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1671: THEN
1672: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1673: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1674: -- FND_MSG_PUB.ADD;
1670: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1671: THEN
1672: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1673: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
1674: -- FND_MSG_PUB.ADD;
1675:
1676: AS_UTILITY_PVT.Set_Message(
1677: p_module => l_module,
1678: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1674: -- FND_MSG_PUB.ADD;
1675:
1676: AS_UTILITY_PVT.Set_Message(
1677: p_module => l_module,
1678: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1679: p_msg_name => 'API_MISSING_LAST_UPDATE_DATE');
1680:
1681: END IF;
1682: raise FND_API.G_EXC_ERROR;
1682: raise FND_API.G_EXC_ERROR;
1683: End if;
1684: -- Check Whether record has been changed by someone else
1685: If (l_Header_rec.last_update_date <> l_last_update_date) Then
1686: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1687: THEN
1688: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
1689: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
1690: -- FND_MSG_PUB.ADD;
1686: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1687: THEN
1688: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
1689: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
1690: -- FND_MSG_PUB.ADD;
1691:
1692: AS_UTILITY_PVT.Set_Message(
1693: p_module => l_module,
1694: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1690: -- FND_MSG_PUB.ADD;
1691:
1692: AS_UTILITY_PVT.Set_Message(
1693: p_module => l_module,
1694: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1695: p_msg_name => 'API_OPP_HEADER_CHANGED');
1696:
1697: END IF;
1698: raise FND_API.G_EXC_ERROR;
1711: (l_Header_Rec.auto_assignment_type IS NULL) or --ffang 091500 for B1407007
1712: (l_Header_Rec.prm_assignment_type IS NULL) --ffang 091500 for B1407007
1713: THEN
1714: IF l_debug THEN
1715: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Set_opp_default_values');
1716: END IF;
1717:
1718: l_header_rec1 := l_header_rec;
1719: Set_opp_default_values(
1734: END IF;
1735:
1736: -- Debug message
1737: IF l_debug THEN
1738: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_opp_header');
1739: END IF;
1740:
1741:
1742: -- Invoke validation procedures
1776: l_comp_required := 'Y';
1777: END IF;
1778:
1779: IF nvl(l_comp_required, 'N') = 'Y' THEN
1780: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1781: THEN
1782: AS_UTILITY_PVT.Set_Message(
1783: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1784: p_msg_name => 'API_CLOSE_COMPETITOR_REQUIRED');
1779: IF nvl(l_comp_required, 'N') = 'Y' THEN
1780: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1781: THEN
1782: AS_UTILITY_PVT.Set_Message(
1783: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1784: p_msg_name => 'API_CLOSE_COMPETITOR_REQUIRED');
1785: END IF;
1786: raise FND_API.G_EXC_ERROR;
1787: END IF;
1817: x_msg_data => x_msg_data,
1818: x_update_access_flag => l_access_flag);
1819:
1820: IF l_access_flag <> 'Y' THEN
1821: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
1822: 'API_NO_UPDATE_PRIVILEGE');
1823: RAISE FND_API.G_EXC_ERROR;
1824: END IF;
1825:
1857: (l_header_rec.win_probability <> l_win_prob)
1858: THEN
1859: -- Debug message
1860: IF l_debug THEN
1861: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Create notes');
1862: END IF;
1863:
1864: IF (l_header_rec.lead_number is NOT NULL) and
1865: (l_header_rec.lead_number <> FND_API.G_MISS_CHAR)
1884: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1885: RAISE FND_API.G_EXC_ERROR;
1886: ELSE
1887: IF l_debug THEN
1888: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Notes created. note_id=' || l_note_id);
1889: END IF;
1890: END IF;
1891: END IF;
1892: END IF;
1917: ,x_update_access_flag => l_access_flag
1918: );
1919:
1920: IF (l_access_flag <> 'Y') THEN
1921: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1922: FND_MESSAGE.Set_Name('AS', 'API_NO_OPP_OWNER_PRIVILEGE');
1923: FND_MSG_PUB.ADD;
1924: END IF;
1925: RAISE FND_API.G_EXC_ERROR;
1919:
1920: IF (l_access_flag <> 'Y') THEN
1921: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1922: FND_MESSAGE.Set_Name('AS', 'API_NO_OPP_OWNER_PRIVILEGE');
1923: FND_MSG_PUB.ADD;
1924: END IF;
1925: RAISE FND_API.G_EXC_ERROR;
1926: END IF;
1927:
1925: RAISE FND_API.G_EXC_ERROR;
1926: END IF;
1927:
1928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1929: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1930: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_oppOwnerAccess fail');
1931: END IF;
1932: RAISE FND_API.G_EXC_ERROR;
1933: END IF;
1926: END IF;
1927:
1928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1929: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1930: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_oppOwnerAccess fail');
1931: END IF;
1932: RAISE FND_API.G_EXC_ERROR;
1933: END IF;
1934: END IF;
1938: -- Hint: Add corresponding Master-Detail business logic here if necessary.
1939:
1940: -- Debug Message
1941: IF l_debug THEN
1942: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1943: 'Private API: Calling update table handler');
1944:
1945: END IF;
1946:
2150:
2151: -- Reset the owner in the sales team
2152: -- Debug Message
2153: IF l_debug THEN
2154: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2155: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
2156: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2157: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2158:
2152: -- Debug Message
2153: IF l_debug THEN
2154: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2155: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
2156: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2157: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2158:
2159: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2160: 'l_owner_sf_id: '||l_owner_salesforce_id );
2155: 'owner_sf_id: '||l_header_rec.owner_salesforce_id );
2156: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2157: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2158:
2159: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2160: 'l_owner_sf_id: '||l_owner_salesforce_id );
2161: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2162: 'l_owner_sg_id: '||l_owner_sales_group_id );
2163: END IF;
2157: 'owner_sg_id: '||l_header_rec.owner_sales_group_id );
2158:
2159: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2160: 'l_owner_sf_id: '||l_owner_salesforce_id );
2161: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2162: 'l_owner_sg_id: '||l_owner_sales_group_id );
2163: END IF;
2164:
2165:
2213: CLOSE get_person_id_csr;
2214:
2215: -- Debug Message
2216: IF l_debug THEN
2217: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2218: 'Calling Create_SalesTeam');
2219:
2220: END IF;
2221:
2237: );
2238:
2239: -- Debug Message
2240: IF l_debug THEN
2241: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2242: 'Create_owner_ST :l_access_id = ' || l_access_id);
2243: END IF;
2244:
2245:
2268: -- Assign/Reassign the territory resources for the opportunity
2269:
2270: -- Debug Message
2271: IF l_debug THEN
2272: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Opportunity Real Time API');
2273: END IF;
2274:
2275: AS_RTTAP_OPPTY.RTTAP_WRAPPER(
2276: P_Api_Version_Number => 1.0,
2283: );
2284:
2285: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2286: IF l_debug THEN
2287: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Opportunity Real Time API fail');
2288: END IF;
2289: RAISE FND_API.G_EXC_ERROR;
2290: END IF;
2291:
2291:
2292:
2293: -- Debug Message
2294: IF l_debug THEN
2295: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Calling Recreate_tasks');
2296: END IF;
2297:
2298:
2299: l_new_SALES_METHODOLOGY_ID := l_header_rec.SALES_METHODOLOGY_ID;
2309: IF l_old_sales_methodology_id IS NOT NULL AND
2310: nvl(l_new_SALES_METHODOLOGY_ID, -99) <> l_old_sales_methodology_id THEN
2311:
2312: IF l_debug THEN
2313: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2314: 'Should not change Sales methodology');
2315: END IF;
2316:
2317: AS_UTILITY_PVT.Set_Message(
2315: END IF;
2316:
2317: AS_UTILITY_PVT.Set_Message(
2318: p_module => l_module,
2319: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2320: p_msg_name => 'API_NO_UPDATE_SALES_METHODOLOGY');
2321:
2322:
2323: RAISE FND_API.G_EXC_ERROR;
2336: X_Warning_Message => l_warning_msg );
2337:
2338: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2339: IF l_debug THEN
2340: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2341: 'Recreate_tasks fail');
2342: END IF;
2343:
2344: RAISE FND_API.G_EXC_ERROR;
2366: X_Msg_Data => x_msg_data);
2367:
2368: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2369: IF l_debug THEN
2370: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2371: 'Create lead competitor fail');
2372: END IF;
2373:
2374: RAISE FND_API.G_EXC_ERROR;
2388: x_return_status => x_return_status);
2389:
2390: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2391: IF l_debug THEN
2392: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2393: 'Update competitor Products fail');
2394: END IF;
2395: RAISE FND_API.G_EXC_ERROR;
2396: END IF;
2410:
2411:
2412: -- Debug Message
2413: IF l_debug THEN
2414: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2415: 'Private API: ' || l_api_name || ' end');
2416: END IF;
2417:
2418:
2416: END IF;
2417:
2418:
2419: -- Standard call to get message count and if count is 1, get message info.
2420: FND_MSG_PUB.Count_And_Get
2421: ( p_count => x_msg_count,
2422: p_data => x_msg_data
2423: );
2424:
2452: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2453: P_MODULE => l_module
2454: ,P_API_NAME => L_API_NAME
2455: ,P_PKG_NAME => G_PKG_NAME
2456: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2457: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2458: ,X_MSG_COUNT => X_MSG_COUNT
2459: ,X_MSG_DATA => X_MSG_DATA
2460: ,X_RETURN_STATUS => X_RETURN_STATUS);
2463: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2464: P_MODULE => l_module
2465: ,P_API_NAME => L_API_NAME
2466: ,P_PKG_NAME => G_PKG_NAME
2467: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2468: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2469: ,X_MSG_COUNT => X_MSG_COUNT
2470: ,X_MSG_DATA => X_MSG_DATA
2471: ,X_RETURN_STATUS => X_RETURN_STATUS);
2518: l_allow_flag VARCHAR2(1); -- solin, for bug 1554330
2519: l_access_profile_rec AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE;
2520: l_access_flag VARCHAR2(1);
2521: l_val VARCHAR2(1);
2522: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
2523: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Delete_opp_header';
2524:
2525: BEGIN
2526: -- Standard Start of API savepoint
2538:
2539: -- Initialize message list if p_init_msg_list is set to TRUE.
2540: IF FND_API.to_Boolean( p_init_msg_list )
2541: THEN
2542: FND_MSG_PUB.initialize;
2543: END IF;
2544:
2545:
2546: -- Debug Message
2544:
2545:
2546: -- Debug Message
2547: IF l_debug THEN
2548: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2549: 'Private API: ' || l_api_name || ' start');
2550: END IF;
2551:
2552:
2591: END IF;
2592:
2593: -- Debug Message
2594: IF l_debug THEN
2595: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Open Cursor to Select');
2596: END IF;
2597:
2598: Open C_Get_opp_header( p_LEAD_ID);
2599: Fetch C_Get_opp_header into l_last_update_date, l_freeze_flag;
2598: Open C_Get_opp_header( p_LEAD_ID);
2599: Fetch C_Get_opp_header into l_last_update_date, l_freeze_flag;
2600:
2601: If ( C_Get_opp_header%NOTFOUND) Then
2602: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2603: THEN
2604: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2605: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
2606: -- FND_MSG_PUB.Add;
2602: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2603: THEN
2604: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
2605: -- FND_MESSAGE.Set_Token ('INFO', 'opp_header', FALSE);
2606: -- FND_MSG_PUB.Add;
2607:
2608: AS_UTILITY_PVT.Set_Message(
2609: p_module => l_module,
2610: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2606: -- FND_MSG_PUB.Add;
2607:
2608: AS_UTILITY_PVT.Set_Message(
2609: p_module => l_module,
2610: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2611: p_msg_name => 'API_MISSING_OPP_HEADER_UPDATE');
2612:
2613: END IF;
2614: raise FND_API.G_EXC_ERROR;
2615: END IF;
2616:
2617: -- Debug Message
2618: IF l_debug THEN
2619: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
2620: END IF;
2621: close C_Get_opp_header;
2622:
2623: /*
2622:
2623: /*
2624: If (p_Header_rec.last_update_date is NULL or
2625: p_Header_rec.last_update_date = FND_API.G_MISS_Date ) Then
2626: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2627: THEN
2628: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
2629: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2630: -- FND_MSG_PUB.ADD;
2626: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2627: THEN
2628: -- FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
2629: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2630: -- FND_MSG_PUB.ADD;
2631:
2632: AS_UTILITY_PVT.Set_Message(
2633: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2634: p_msg_name => 'API_MISSING_LAST_UPDATE_DATE');
2629: -- FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2630: -- FND_MSG_PUB.ADD;
2631:
2632: AS_UTILITY_PVT.Set_Message(
2633: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2634: p_msg_name => 'API_MISSING_LAST_UPDATE_DATE');
2635:
2636: END IF;
2637: raise FND_API.G_EXC_ERROR;
2637: raise FND_API.G_EXC_ERROR;
2638: End if;
2639: -- Check Whether record has been changed by someone else
2640: If (p_Header_rec.last_update_date <> l_last_update_date) Then
2641: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2642: THEN
2643: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
2644: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
2645: -- FND_MSG_PUB.ADD;
2641: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2642: THEN
2643: -- FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
2644: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
2645: -- FND_MSG_PUB.ADD;
2646:
2647: AS_UTILITY_PVT.Set_Message(
2648: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2649: p_msg_name => 'API_OPP_HEADER_CHANGED');
2644: -- FND_MESSAGE.Set_Token('INFO', 'opp_header', FALSE);
2645: -- FND_MSG_PUB.ADD;
2646:
2647: AS_UTILITY_PVT.Set_Message(
2648: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2649: p_msg_name => 'API_OPP_HEADER_CHANGED');
2650:
2651: END IF;
2652: raise FND_API.G_EXC_ERROR;
2656:
2657: /*
2658: -- Debug message
2659: IF l_debug THEN
2660: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_opp_header');
2661: END IF;
2662:
2663: -- Invoke validation procedures
2664: Validate_opp_header(
2704: x_msg_data => x_msg_data,
2705: x_update_access_flag => l_access_flag);
2706:
2707: IF l_access_flag <> 'Y' THEN
2708: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2709: 'API_NO_UPDATE_PRIVILEGE');
2710: RAISE FND_API.G_EXC_ERROR;
2711: END IF;
2712:
2720: IF l_freeze_flag = 'Y'
2721: THEN
2722: l_allow_flag := NVL(FND_PROFILE.VALUE('AS_ALLOW_UPDATE_FROZEN_OPP'),'Y');
2723: IF l_allow_flag <> 'Y' THEN
2724: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
2725: 'API_OPP_FROZEN');
2726: RAISE FND_API.G_EXC_ERROR;
2727: END IF;
2728: END IF;
2732: -- Hint: Add corresponding Master-Detail business logic here if necessary.
2733:
2734: -- Debug Message
2735: IF l_debug THEN
2736: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2737: 'Private API: Calling update table handler');
2738:
2739: END IF;
2740:
2831:
2832:
2833: -- Debug Message
2834: IF l_debug THEN
2835: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2836: 'Private API: ' || l_api_name || ' end');
2837: END IF;
2838:
2839:
2838:
2839:
2840:
2841: -- Standard call to get message count and if count is 1, get message info.
2842: FND_MSG_PUB.Count_And_Get
2843: ( p_count => x_msg_count,
2844: p_data => x_msg_data
2845: );
2846:
2869: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2870: P_MODULE => l_module
2871: ,P_API_NAME => L_API_NAME
2872: ,P_PKG_NAME => G_PKG_NAME
2873: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2874: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2875: ,X_MSG_COUNT => X_MSG_COUNT
2876: ,X_MSG_DATA => X_MSG_DATA
2877: ,X_RETURN_STATUS => X_RETURN_STATUS);
2880: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2881: P_MODULE => l_module
2882: ,P_API_NAME => L_API_NAME
2883: ,P_PKG_NAME => G_PKG_NAME
2884: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2885: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
2886: ,X_MSG_COUNT => X_MSG_COUNT
2887: ,X_MSG_DATA => X_MSG_DATA
2888: ,X_RETURN_STATUS => X_RETURN_STATUS);
2921: FROM as_leads
2922: WHERE lead_id = c_Lead_Id;
2923:
2924: l_val VARCHAR2(1);
2925: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
2926: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_LEAD_ID';
2927:
2928: BEGIN
2929: -- Initialize message list if p_init_msg_list is set to TRUE.
2928: BEGIN
2929: -- Initialize message list if p_init_msg_list is set to TRUE.
2930: IF FND_API.to_Boolean( p_init_msg_list )
2931: THEN
2932: FND_MSG_PUB.initialize;
2933: END IF;
2934:
2935: -- Initialize API return status to SUCCESS
2936: x_return_status := FND_API.G_RET_STS_SUCCESS;
2943: OPEN C_Lead_Id_Exists (p_Lead_Id);
2944: FETCH C_Lead_Id_Exists into l_val;
2945:
2946: IF C_Lead_Id_Exists%FOUND THEN
2947: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2948: -- 'Private API: LEAD_ID exist');
2949:
2950: AS_UTILITY_PVT.Set_Message(
2951: p_module => l_module,
2948: -- 'Private API: LEAD_ID exist');
2949:
2950: AS_UTILITY_PVT.Set_Message(
2951: p_module => l_module,
2952: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2953: p_msg_name => 'API_DUPLICATE_LEAD_ID',
2954: p_token1 => 'VALUE',
2955: p_token1_value => p_LEAD_ID );
2956:
2965: THEN
2966: -- validate NOT NULL column
2967: IF (p_LEAD_ID is NULL) or (p_LEAD_ID = FND_API.G_MISS_NUM)
2968: THEN
2969: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2970: -- 'Private API: Violate NOT NULL constraint(LEAD_ID)');
2971:
2972: AS_UTILITY_PVT.Set_Message(
2973: p_module => l_module,
2970: -- 'Private API: Violate NOT NULL constraint(LEAD_ID)');
2971:
2972: AS_UTILITY_PVT.Set_Message(
2973: p_module => l_module,
2974: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2975: p_msg_name => 'API_MISSING_LEAD_ID');
2976:
2977: x_return_status := FND_API.G_RET_STS_ERROR;
2978: ELSE
2980: FETCH C_Lead_Id_Exists into l_val;
2981:
2982: IF C_Lead_Id_Exists%NOTFOUND
2983: THEN
2984: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2985: -- 'Private API: LEAD_ID is not valid');
2986:
2987: AS_UTILITY_PVT.Set_Message(
2988: p_module => l_module,
2985: -- 'Private API: LEAD_ID is not valid');
2986:
2987: AS_UTILITY_PVT.Set_Message(
2988: p_module => l_module,
2989: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2990: p_msg_name => 'API_INVALID_LEAD_ID',
2991: p_token1 => 'VALUE',
2992: p_token1_value => p_LEAD_ID );
2993:
2998: END IF;
2999: END IF;
3000:
3001: -- Standard call to get message count and if count is 1, get message info.
3002: FND_MSG_PUB.Count_And_Get
3003: ( p_count => x_msg_count,
3004: p_data => x_msg_data
3005: );
3006:
3023: FROM as_leads
3024: WHERE lead_number = c_lead_number;
3025:
3026: l_val VARCHAR2(1);
3027: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3028:
3029: BEGIN
3030:
3031: -- Initialize message list if p_init_msg_list is set to TRUE.
3030:
3031: -- Initialize message list if p_init_msg_list is set to TRUE.
3032: IF FND_API.to_Boolean( p_init_msg_list )
3033: THEN
3034: FND_MSG_PUB.initialize;
3035: END IF;
3036:
3037:
3038: -- Initialize API return status to SUCCESS
3040:
3041: IF(p_LEAD_NUMBER is NULL)
3042: THEN
3043: -- validate NOT NULL column
3044: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3045: -- 'Private API: Violate NOT NULL constraint(LEAD_NUMBER)');
3046:
3047: AS_UTILITY_PVT.Set_Message(
3048: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3044: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3045: -- 'Private API: Violate NOT NULL constraint(LEAD_NUMBER)');
3046:
3047: AS_UTILITY_PVT.Set_Message(
3048: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3049: p_msg_name => 'API_MISSING_LEAD_NUMBER');
3050:
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052: ELSE
3053: -- Calling from Create API, LEAD_NUMBER can not be G_MISS_CHAR
3054: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE) and
3055: (p_LEAD_NUMBER = FND_API.G_MISS_CHAR)
3056: THEN
3057: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3058: -- 'Private API: missing LEAD_NUMBER');
3059:
3060: AS_UTILITY_PVT.Set_Message(
3061: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3057: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3058: -- 'Private API: missing LEAD_NUMBER');
3059:
3060: AS_UTILITY_PVT.Set_Message(
3061: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3062: p_msg_name => 'API_MISSING_LEAD_NUMBER');
3063:
3064: END IF;
3065:
3069: OPEN C_LEAD_NUMBER_Exists (p_LEAD_NUMBER);
3070: FETCH C_LEAD_NUMBER_Exists into l_val;
3071:
3072: IF C_LEAD_NUMBER_Exists%FOUND THEN
3073: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3074: -- 'Private API: LEAD_NUMBER exist');
3075:
3076: AS_UTILITY_PVT.Set_Message(
3077: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3073: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3074: -- 'Private API: LEAD_NUMBER exist');
3075:
3076: AS_UTILITY_PVT.Set_Message(
3077: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3078: p_msg_name => 'API_DUPLICATE_LEAD_NUMBER',
3079: p_token1 => 'VALUE',
3080: p_token1_value => p_LEAD_NUMBER );
3081:
3086: END IF;
3087: END IF;
3088:
3089: -- Standard call to get message count and if count is 1, get message info.
3090: FND_MSG_PUB.Count_And_Get
3091: ( p_count => x_msg_count,
3092: p_data => x_msg_data
3093: );
3094:
3113: and enabled_flag = 'Y'
3114: and opp_flag = 'Y';
3115:
3116: l_val VARCHAR2(1);
3117: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3118: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_STATUS';
3119:
3120: BEGIN
3121:
3121:
3122: -- Initialize message list if p_init_msg_list is set to TRUE.
3123: IF FND_API.to_Boolean( p_init_msg_list )
3124: THEN
3125: FND_MSG_PUB.initialize;
3126: END IF;
3127:
3128:
3129: -- Initialize API return status to SUCCESS
3131:
3132: -- validate NOT NULL column
3133: IF(p_STATUS is NULL)
3134: THEN
3135: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3136: -- 'Private API: Violate NOT NULL constraint(STATUS)');
3137:
3138: AS_UTILITY_PVT.Set_Message(
3139: p_module => l_module,
3136: -- 'Private API: Violate NOT NULL constraint(STATUS)');
3137:
3138: AS_UTILITY_PVT.Set_Message(
3139: p_module => l_module,
3140: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3141: p_msg_name => 'API_MISSING_STATUS');
3142:
3143: x_return_status := FND_API.G_RET_STS_ERROR;
3144: ELSE
3145: -- Calling from Create API, STATUS can not be G_MISS_CHAR
3146: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE) and
3147: (p_STATUS = FND_API.G_MISS_CHAR)
3148: THEN
3149: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3150: -- 'Private API: STATUS is missing');
3151:
3152: AS_UTILITY_PVT.Set_Message(
3153: p_module => l_module,
3150: -- 'Private API: STATUS is missing');
3151:
3152: AS_UTILITY_PVT.Set_Message(
3153: p_module => l_module,
3154: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3155: p_msg_name => 'API_MISSING_STATUS');
3156:
3157: x_return_status := FND_API.G_RET_STS_ERROR;
3158:
3162: OPEN C_STATUS_Exists (p_STATUS);
3163: FETCH C_STATUS_Exists into l_val;
3164:
3165: IF C_STATUS_Exists%NOTFOUND THEN
3166: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3167: -- 'Private API: STATUS is invalid');
3168:
3169: AS_UTILITY_PVT.Set_Message(
3170: p_module => l_module,
3167: -- 'Private API: STATUS is invalid');
3168:
3169: AS_UTILITY_PVT.Set_Message(
3170: p_module => l_module,
3171: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3172: p_msg_name => 'API_INVALID_OPP_STATUS',
3173: p_token1 => 'VALUE',
3174: p_token1_value => p_STATUS );
3175:
3180: END IF;
3181: END IF;
3182:
3183: -- Standard call to get message count and if count is 1, get message info.
3184: FND_MSG_PUB.Count_And_Get
3185: ( p_count => x_msg_count,
3186: p_data => x_msg_data
3187: );
3188:
3212:
3213: -- Initialize message list if p_init_msg_list is set to TRUE.
3214: IF FND_API.to_Boolean( p_init_msg_list )
3215: THEN
3216: FND_MSG_PUB.initialize;
3217: END IF;
3218:
3219:
3220: -- Initialize API return status to SUCCESS
3227: IF C_ORG_ID_Exists%NOTFOUND THEN
3228:
3229: AS_UTILITY_PVT.Set_Message(
3230: p_module => l_module,
3231: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3232: p_msg_name => 'AS_ORG_NULL_OR_INVALID');
3233:
3234: x_return_status := FND_API.G_RET_STS_ERROR;
3235: END IF;
3237: CLOSE C_ORG_ID_Exists;
3238: END IF;
3239:
3240: -- Standard call to get message count and if count is 1, get message info.
3241: FND_MSG_PUB.Count_And_Get
3242: ( p_count => x_msg_count,
3243: p_data => x_msg_data
3244: );
3245:
3266: and enabled_flag = 'Y';
3267: -- end ffang 091200
3268:
3269: l_val VARCHAR2(1);
3270: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3271: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_SALES_STAGE_ID';
3272:
3273: BEGIN
3274:
3274:
3275: -- Initialize message list if p_init_msg_list is set to TRUE.
3276: IF FND_API.to_Boolean( p_init_msg_list )
3277: THEN
3278: FND_MSG_PUB.initialize;
3279: END IF;
3280:
3281:
3282: -- Initialize API return status to SUCCESS
3289: OPEN C_SALES_STAGE_ID_Exists (p_SALES_STAGE_ID);
3290: FETCH C_SALES_STAGE_ID_Exists into l_val;
3291:
3292: IF C_SALES_STAGE_ID_Exists%NOTFOUND THEN
3293: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3294: -- 'Private API: SALES_STAGE_ID is invalid');
3295:
3296: AS_UTILITY_PVT.Set_Message(
3297: p_module => l_module,
3294: -- 'Private API: SALES_STAGE_ID is invalid');
3295:
3296: AS_UTILITY_PVT.Set_Message(
3297: p_module => l_module,
3298: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3299: p_msg_name => 'API_INVALID_SALES_STAGE_ID',
3300: p_token1 => 'VALUE',
3301: p_token1_value => p_SALES_STAGE_ID );
3302:
3306: CLOSE C_SALES_STAGE_ID_Exists;
3307: END IF;
3308:
3309: -- Standard call to get message count and if count is 1, get message info.
3310: FND_MSG_PUB.Count_And_Get
3311: ( p_count => x_msg_count,
3312: p_data => x_msg_data
3313: );
3314:
3334: AND nvl(end_date_active, sysdate) >= sysdate
3335: AND enabled_flag = 'Y';
3336:
3337: l_val VARCHAR2(1);
3338: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3339: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_CHANNEL_CODE';
3340:
3341: BEGIN
3342:
3342:
3343: -- Initialize message list if p_init_msg_list is set to TRUE.
3344: IF FND_API.to_Boolean( p_init_msg_list )
3345: THEN
3346: FND_MSG_PUB.initialize;
3347: END IF;
3348:
3349:
3350: -- Initialize API return status to SUCCESS
3357: OPEN C_CHANNEL_CODE_Exists (p_CHANNEL_CODE);
3358: FETCH C_CHANNEL_CODE_Exists into l_val;
3359:
3360: IF C_CHANNEL_CODE_Exists%NOTFOUND THEN
3361: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3362: -- 'Private API: CHANNEL_CODE is invalid');
3363:
3364: AS_UTILITY_PVT.Set_Message(
3365: p_module => l_module,
3362: -- 'Private API: CHANNEL_CODE is invalid');
3363:
3364: AS_UTILITY_PVT.Set_Message(
3365: p_module => l_module,
3366: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3367: p_msg_name => 'API_INVALID_CHANNEL_CODE',
3368: p_token1 => 'VALUE',
3369: p_token1_value => p_CHANNEL_CODE );
3370:
3374: CLOSE C_CHANNEL_CODE_Exists;
3375: END IF;
3376:
3377: -- Standard call to get message count and if count is 1, get message info.
3378: FND_MSG_PUB.Count_And_Get
3379: ( p_count => x_msg_count,
3380: p_data => x_msg_data
3381: );
3382:
3403: and enabled_flag = 'Y';
3404: -- end ffang 091200
3405:
3406: l_val VARCHAR2(1);
3407: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3408: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_CURRENCY_CODE';
3409:
3410: BEGIN
3411:
3411:
3412: -- Initialize message list if p_init_msg_list is set to TRUE.
3413: IF FND_API.to_Boolean( p_init_msg_list )
3414: THEN
3415: FND_MSG_PUB.initialize;
3416: END IF;
3417:
3418:
3419: -- Initialize API return status to SUCCESS
3426: OPEN C_Currency_Exists (p_CURRENCY_CODE);
3427: FETCH C_Currency_Exists into l_val;
3428:
3429: IF C_Currency_Exists%NOTFOUND THEN
3430: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3431: -- 'Private API: CURRENCY_CODE is invalid');
3432:
3433: AS_UTILITY_PVT.Set_Message(
3434: p_module => l_module,
3431: -- 'Private API: CURRENCY_CODE is invalid');
3432:
3433: AS_UTILITY_PVT.Set_Message(
3434: p_module => l_module,
3435: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3436: p_msg_name => 'API_INVALID_CURRENCY_CODE',
3437: p_token1 => 'VALUE',
3438: p_token1_value => p_CURRENCY_CODE );
3439:
3443: CLOSE C_Currency_Exists;
3444: END IF;
3445:
3446: -- Standard call to get message count and if count is 1, get message info.
3447: FND_MSG_PUB.Count_And_Get
3448: ( p_count => x_msg_count,
3449: p_data => x_msg_data
3450: );
3451:
3472: and enabled_flag = 'Y';
3473: -- end ffang 091200
3474:
3475: l_val VARCHAR2(1);
3476: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3477: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_WIN_PROBABILITY';
3478:
3479: BEGIN
3480:
3480:
3481: -- Initialize message list if p_init_msg_list is set to TRUE.
3482: IF FND_API.to_Boolean( p_init_msg_list )
3483: THEN
3484: FND_MSG_PUB.initialize;
3485: END IF;
3486:
3487:
3488: -- Initialize API return status to SUCCESS
3495: OPEN C_Win_Prob_Exists (p_WIN_PROBABILITY);
3496: FETCH C_Win_Prob_Exists into l_val;
3497:
3498: IF C_Win_Prob_Exists%NOTFOUND THEN
3499: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3500: -- 'Private API: WIN_PROBABILITY is invalid');
3501:
3502: AS_UTILITY_PVT.Set_Message(
3503: p_module => l_module,
3500: -- 'Private API: WIN_PROBABILITY is invalid');
3501:
3502: AS_UTILITY_PVT.Set_Message(
3503: p_module => l_module,
3504: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3505: p_msg_name => 'API_INVALID_WIN_PROB',
3506: p_token1 => 'VALUE',
3507: p_token1_value => p_WIN_PROBABILITY );
3508:
3512: CLOSE C_Win_Prob_Exists;
3513: END IF;
3514:
3515: -- Standard call to get message count and if count is 1, get message info.
3516: FND_MSG_PUB.Count_And_Get
3517: ( p_count => x_msg_count,
3518: p_data => x_msg_data
3519: );
3520:
3539: and lookup_code = c_CLOSE_REASON;
3540: -- and enabled_flag = 'Y';
3541:
3542: l_val VARCHAR2(1);
3543: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3544: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_CLOSE_REASON';
3545: BEGIN
3546:
3547: -- Initialize message list if p_init_msg_list is set to TRUE.
3546:
3547: -- Initialize message list if p_init_msg_list is set to TRUE.
3548: IF FND_API.to_Boolean( p_init_msg_list )
3549: THEN
3550: FND_MSG_PUB.initialize;
3551: END IF;
3552:
3553:
3554: -- Initialize API return status to SUCCESS
3561: OPEN C_CLOSE_REASON_Exists ('CLOSE_REASON', p_CLOSE_REASON);
3562: FETCH C_CLOSE_REASON_Exists into l_val;
3563:
3564: IF C_CLOSE_REASON_Exists%NOTFOUND THEN
3565: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3566: -- 'Private API: CLOSE_REASON is invalid');
3567:
3568: AS_UTILITY_PVT.Set_Message(
3569: p_module => l_module,
3566: -- 'Private API: CLOSE_REASON is invalid');
3567:
3568: AS_UTILITY_PVT.Set_Message(
3569: p_module => l_module,
3570: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3571: p_msg_name => 'API_INVALID_CLOSE_REASON',
3572: p_token1 => 'VALUE',
3573: p_token1_value => p_CLOSE_REASON );
3574:
3578: CLOSE C_CLOSE_REASON_Exists;
3579: END IF;
3580:
3581: -- Standard call to get message count and if count is 1, get message info.
3582: FND_MSG_PUB.Count_And_Get
3583: ( p_count => x_msg_count,
3584: p_data => x_msg_data
3585: );
3586:
3608:
3609: l_source_code_required VARCHAR2(1) := FND_PROFILE.value('AS_OPP_SOURCE_CODE_REQUIRED');
3610:
3611: l_val VARCHAR2(1);
3612: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3613: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_SOURCE_PROMOTION_ID';
3614: BEGIN
3615:
3616: -- Initialize message list if p_init_msg_list is set to TRUE.
3615:
3616: -- Initialize message list if p_init_msg_list is set to TRUE.
3617: IF FND_API.to_Boolean( p_init_msg_list )
3618: THEN
3619: FND_MSG_PUB.initialize;
3620: END IF;
3621:
3622:
3623: -- Initialize API return status to SUCCESS
3628: p_SOURCE_PROMOTION_ID = FND_API.G_MISS_NUM ) ) AND
3629: nvl(l_source_code_required, 'N') = 'Y' THEN
3630: AS_UTILITY_PVT.Set_Message(
3631: p_module => l_module,
3632: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3633: p_msg_name => 'API_MISSING_SOURCE_PROM_ID');
3634:
3635: x_return_status := FND_API.G_RET_STS_ERROR;
3636: END IF;
3642: OPEN C_SOURCE_PROMOTION_ID_Exists (p_SOURCE_PROMOTION_ID);
3643: FETCH C_SOURCE_PROMOTION_ID_Exists into l_val;
3644:
3645: IF C_SOURCE_PROMOTION_ID_Exists%NOTFOUND THEN
3646: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3647: -- 'Private API: SOURCE_PROMOTION_ID is invalid');
3648:
3649: AS_UTILITY_PVT.Set_Message(
3650: p_module => l_module,
3647: -- 'Private API: SOURCE_PROMOTION_ID is invalid');
3648:
3649: AS_UTILITY_PVT.Set_Message(
3650: p_module => l_module,
3651: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3652: p_msg_name => 'API_INVALID_SOURCE_PROM_ID',
3653: p_token1 => 'VALUE',
3654: p_token1_value => p_SOURCE_PROMOTION_ID );
3655:
3659: CLOSE C_SOURCE_PROMOTION_ID_Exists;
3660: END IF;
3661:
3662: -- Standard call to get message count and if count is 1, get message info.
3663: FND_MSG_PUB.Count_And_Get
3664: ( p_count => x_msg_count,
3665: p_data => x_msg_data
3666: );
3667:
3678: X_Msg_Data OUT NOCOPY VARCHAR2
3679: )
3680: IS
3681:
3682: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3683: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_NO_OPP_ALLOWED_FLAG';
3684: BEGIN
3685:
3686: -- Initialize message list if p_init_msg_list is set to TRUE.
3685:
3686: -- Initialize message list if p_init_msg_list is set to TRUE.
3687: IF FND_API.to_Boolean( p_init_msg_list )
3688: THEN
3689: FND_MSG_PUB.initialize;
3690: END IF;
3691:
3692:
3693: -- Initialize API return status to SUCCESS
3698: THEN
3699: IF (UPPER(p_NO_OPP_ALLOWED_FLAG) <> 'Y') and
3700: (UPPER(p_NO_OPP_ALLOWED_FLAG) <> 'N')
3701: THEN
3702: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3703: -- 'Private API: NO_OPP_ALLOWED_FLAG is invalid');
3704:
3705: AS_UTILITY_PVT.Set_Message(
3706: p_module => l_module,
3703: -- 'Private API: NO_OPP_ALLOWED_FLAG is invalid');
3704:
3705: AS_UTILITY_PVT.Set_Message(
3706: p_module => l_module,
3707: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3708: p_msg_name => 'API_INVALID_NO_OPP_ALLOWED_FLG',
3709: p_token1 => 'VALUE',
3710: p_token1_value => p_NO_OPP_ALLOWED_FLAG );
3711:
3713: END IF;
3714: END IF;
3715:
3716: -- Standard call to get message count and if count is 1, get message info.
3717: FND_MSG_PUB.Count_And_Get
3718: ( p_count => x_msg_count,
3719: p_data => x_msg_data
3720: );
3721:
3731: X_Msg_Count OUT NOCOPY NUMBER,
3732: X_Msg_Data OUT NOCOPY VARCHAR2
3733: )
3734: IS
3735: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3736: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_DELETE_ALLOWED_FLAG';
3737: BEGIN
3738: -- Initialize message list if p_init_msg_list is set to TRUE.
3739: IF FND_API.to_Boolean( p_init_msg_list )
3737: BEGIN
3738: -- Initialize message list if p_init_msg_list is set to TRUE.
3739: IF FND_API.to_Boolean( p_init_msg_list )
3740: THEN
3741: FND_MSG_PUB.initialize;
3742: END IF;
3743:
3744: -- Initialize API return status to SUCCESS
3745: x_return_status := FND_API.G_RET_STS_SUCCESS;
3749: THEN
3750: IF (UPPER(p_DELETE_ALLOWED_FLAG) <> 'Y') and
3751: (UPPER(p_DELETE_ALLOWED_FLAG) <> 'N')
3752: THEN
3753: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3754: -- 'Private API: DELETE_ALLOWED_FLAG is invalid');
3755:
3756: AS_UTILITY_PVT.Set_Message(
3757: p_module => l_module,
3754: -- 'Private API: DELETE_ALLOWED_FLAG is invalid');
3755:
3756: AS_UTILITY_PVT.Set_Message(
3757: p_module => l_module,
3758: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3759: p_msg_name => 'API_INVALID_DEL_ALLOWED_FLAG',
3760: p_token1 => 'VALUE',
3761: p_token1_value => p_DELETE_ALLOWED_FLAG );
3762:
3764: END IF;
3765: END IF;
3766:
3767: -- Standard call to get message count and if count is 1, get message info.
3768: FND_MSG_PUB.Count_And_Get
3769: ( p_count => x_msg_count,
3770: p_data => x_msg_data
3771: );
3772:
3791: and lookup_code = c_LEAD_SOURCE_CODE
3792: and enabled_flag = 'Y';
3793:
3794: l_val VARCHAR2(1);
3795: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3796: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_LEAD_SOURCE_CODE';
3797: BEGIN
3798: -- Initialize message list if p_init_msg_list is set to TRUE.
3799: IF FND_API.to_Boolean( p_init_msg_list )
3797: BEGIN
3798: -- Initialize message list if p_init_msg_list is set to TRUE.
3799: IF FND_API.to_Boolean( p_init_msg_list )
3800: THEN
3801: FND_MSG_PUB.initialize;
3802: END IF;
3803:
3804: -- Initialize API return status to SUCCESS
3805: x_return_status := FND_API.G_RET_STS_SUCCESS;
3811: OPEN C_LEAD_SOURCE_CODE_Exists ('LEAD_SOURCE', p_LEAD_SOURCE_CODE);
3812: FETCH C_LEAD_SOURCE_CODE_Exists into l_val;
3813:
3814: IF C_LEAD_SOURCE_CODE_Exists%NOTFOUND THEN
3815: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3816: -- 'Private API: LEAD_SOURCE_CODE is invalid');
3817:
3818: AS_UTILITY_PVT.Set_Message(
3819: p_module => l_module,
3816: -- 'Private API: LEAD_SOURCE_CODE is invalid');
3817:
3818: AS_UTILITY_PVT.Set_Message(
3819: p_module => l_module,
3820: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3821: p_msg_name => 'API_INVALID_LEAD_SOURCE_CODE',
3822: p_token1 => 'VALUE',
3823: p_token1_value => p_LEAD_SOURCE_CODE );
3824:
3828: CLOSE C_LEAD_SOURCE_CODE_Exists;
3829: END IF;
3830:
3831: -- Standard call to get message count and if count is 1, get message info.
3832: FND_MSG_PUB.Count_And_Get
3833: ( p_count => x_msg_count,
3834: p_data => x_msg_data
3835: );
3836:
3857: and nvl(start_date_active, sysdate) <= sysdate
3858: and nvl(end_date_active, sysdate) >= sysdate;
3859:
3860: l_val VARCHAR2(1);
3861: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3862: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_PRICE_LIST_ID';
3863: BEGIN
3864: -- Initialize message list if p_init_msg_list is set to TRUE.
3865: IF FND_API.to_Boolean( p_init_msg_list )
3863: BEGIN
3864: -- Initialize message list if p_init_msg_list is set to TRUE.
3865: IF FND_API.to_Boolean( p_init_msg_list )
3866: THEN
3867: FND_MSG_PUB.initialize;
3868: END IF;
3869:
3870: -- Initialize API return status to SUCCESS
3871: x_return_status := FND_API.G_RET_STS_SUCCESS;
3877: OPEN C_Price_List_Exists (p_PRICE_LIST_ID, p_CURRENCY_CODE);
3878: FETCH C_Price_List_Exists into l_val;
3879:
3880: IF C_Price_List_Exists%NOTFOUND THEN
3881: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3882: -- 'Private API: PRICE_LIST_ID is invalid');
3883:
3884: AS_UTILITY_PVT.Set_Message(
3885: p_module => l_module,
3882: -- 'Private API: PRICE_LIST_ID is invalid');
3883:
3884: AS_UTILITY_PVT.Set_Message(
3885: p_module => l_module,
3886: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3887: p_msg_name => 'API_INVALID_PRICE_LIST_ID',
3888: p_token1 => 'VALUE',
3889: p_token1_value => p_PRICE_LIST_ID );
3890:
3894: CLOSE C_Price_List_Exists;
3895: END IF;
3896:
3897: -- Standard call to get message count and if count is 1, get message info.
3898: FND_MSG_PUB.Count_And_Get
3899: ( p_count => x_msg_count,
3900: p_data => x_msg_data
3901: );
3902:
3913: X_Msg_Data OUT NOCOPY VARCHAR2
3914: )
3915: IS
3916:
3917: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3918: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_DELETED_FLAG';
3919: BEGIN
3920:
3921: -- Initialize message list if p_init_msg_list is set to TRUE.
3920:
3921: -- Initialize message list if p_init_msg_list is set to TRUE.
3922: IF FND_API.to_Boolean( p_init_msg_list )
3923: THEN
3924: FND_MSG_PUB.initialize;
3925: END IF;
3926:
3927:
3928: -- Initialize API return status to SUCCESS
3932: (p_DELETED_FLAG <> FND_API.G_MISS_CHAR)
3933: THEN
3934: IF (p_DELETED_FLAG <> 'Y') and (p_DELETED_FLAG <> 'N')
3935: THEN
3936: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3937: -- 'Private API: DELETED_FLAG is invalid');
3938:
3939: AS_UTILITY_PVT.Set_Message(
3940: p_module => l_module,
3937: -- 'Private API: DELETED_FLAG is invalid');
3938:
3939: AS_UTILITY_PVT.Set_Message(
3940: p_module => l_module,
3941: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3942: p_msg_name => 'API_INVALID_DELETED_FLAG',
3943: p_token1 => 'VALUE',
3944: p_token1_value => p_DELETED_FLAG );
3945:
3947: END IF;
3948: END IF;
3949:
3950: -- Standard call to get message count and if count is 1, get message info.
3951: FND_MSG_PUB.Count_And_Get
3952: ( p_count => x_msg_count,
3953: p_data => x_msg_data
3954: );
3955:
3974: and lookup_code = c_METHODOLOGY_CODE
3975: and enabled_flag = 'Y';
3976:
3977: l_val VARCHAR2(1);
3978: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
3979: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_METHODOLOGY_CODE';
3980:
3981: BEGIN
3982:
3982:
3983: -- Initialize message list if p_init_msg_list is set to TRUE.
3984: IF FND_API.to_Boolean( p_init_msg_list )
3985: THEN
3986: FND_MSG_PUB.initialize;
3987: END IF;
3988:
3989:
3990: -- Initialize API return status to SUCCESS
3998: p_METHODOLOGY_CODE);
3999: FETCH C_METHODOLOGY_CODE_Exists into l_val;
4000:
4001: IF C_METHODOLOGY_CODE_Exists%NOTFOUND THEN
4002: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4003: -- 'Private API: METHODOLOGY_CODE is invalid');
4004:
4005: AS_UTILITY_PVT.Set_Message(
4006: p_module => l_module,
4003: -- 'Private API: METHODOLOGY_CODE is invalid');
4004:
4005: AS_UTILITY_PVT.Set_Message(
4006: p_module => l_module,
4007: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4008: p_msg_name => 'API_INVALID_METHODOLOGY_CODE',
4009: p_token1 => 'VALUE',
4010: p_token1_value => p_METHODOLOGY_CODE );
4011:
4015: CLOSE C_METHODOLOGY_CODE_Exists;
4016: END IF;
4017:
4018: -- Standard call to get message count and if count is 1, get message info.
4019: FND_MSG_PUB.Count_And_Get
4020: ( p_count => x_msg_count,
4021: p_data => x_msg_data
4022: );
4023:
4047:
4048: -- Initialize message list if p_init_msg_list is set to TRUE.
4049: IF FND_API.to_Boolean( p_init_msg_list )
4050: THEN
4051: FND_MSG_PUB.initialize;
4052: END IF;
4053:
4054:
4055: -- Initialize API return status to SUCCESS
4062: OPEN C_ORIGINAL_LEAD_ID_Exists (p_ORIGINAL_LEAD_ID);
4063: FETCH C_ORIGINAL_LEAD_ID_Exists into l_val;
4064:
4065: IF C_ORIGINAL_LEAD_ID_Exists%NOTFOUND THEN
4066: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4067: -- 'Private API: ORIGINAL_LEAD_ID is invalid');
4068:
4069: AS_UTILITY_PVT.Set_Message(
4070: p_module => l_module,
4067: -- 'Private API: ORIGINAL_LEAD_ID is invalid');
4068:
4069: AS_UTILITY_PVT.Set_Message(
4070: p_module => l_module,
4071: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4072: p_msg_name => 'API_INVALID_ORIG_LEAD_ID',
4073: p_token1 => 'VALUE',
4074: p_token1_value => p_ORIGINAL_LEAD_ID );
4075:
4079: CLOSE C_ORIGINAL_LEAD_ID_Exists;
4080: END IF;
4081:
4082: -- Standard call to get message count and if count is 1, get message info.
4083: FND_MSG_PUB.Count_And_Get
4084: ( p_count => x_msg_count,
4085: p_data => x_msg_data
4086: );
4087:
4113:
4114: -- Initialize message list if p_init_msg_list is set to TRUE.
4115: IF FND_API.to_Boolean( p_init_msg_list )
4116: THEN
4117: FND_MSG_PUB.initialize;
4118: END IF;
4119:
4120:
4121: -- Initialize API return status to SUCCESS
4129: p_DECISION_TIMEFRAME_CODE);
4130: FETCH C_DECN_TIMEFRAME_Exists into l_val;
4131:
4132: IF C_DECN_TIMEFRAME_Exists%NOTFOUND THEN
4133: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4134: -- 'Private API: DECISION_TIMEFRAME_CODE is invalid');
4135:
4136: AS_UTILITY_PVT.Set_Message(
4137: p_module => l_module,
4134: -- 'Private API: DECISION_TIMEFRAME_CODE is invalid');
4135:
4136: AS_UTILITY_PVT.Set_Message(
4137: p_module => l_module,
4138: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4139: p_msg_name => 'API_INVALID_DCN_TIMEFRAME_CODE',
4140: p_token1 => 'VALUE',
4141: p_token1_value => p_DECISION_TIMEFRAME_CODE );
4142:
4146: CLOSE C_DECN_TIMEFRAME_Exists;
4147: END IF;
4148:
4149: -- Standard call to get message count and if count is 1, get message info.
4150: FND_MSG_PUB.Count_And_Get
4151: ( p_count => x_msg_count,
4152: p_data => x_msg_data
4153: );
4154:
4184: -- WHERE c.SOURCE_CODE = s.SOURCE_CODE
4185: -- AND s.SOURCE_CODE_ID = P_SOURCE_PROMOTION_ID);
4186:
4187: l_val VARCHAR2(1);
4188: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4189: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_OFFER_ID';
4190: BEGIN
4191:
4192: -- Initialize message list IF p_init_msg_list is set to TRUE.
4191:
4192: -- Initialize message list IF p_init_msg_list is set to TRUE.
4193: IF FND_API.to_Boolean( p_init_msg_list )
4194: THEN
4195: FND_MSG_PUB.initialize;
4196: END IF;
4197:
4198: -- Initialize API return status to SUCCESS
4199: x_return_status := FND_API.G_RET_STS_SUCCESS;
4198: -- Initialize API return status to SUCCESS
4199: x_return_status := FND_API.G_RET_STS_SUCCESS;
4200:
4201: -- Debug Message
4202: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4203: -- 'Validate offer id');
4204:
4205: IF (p_OFFER_ID is NOT NULL) and (p_OFFER_ID <> FND_API.G_MISS_NUM)
4206: THEN
4209: FETCH C_OFFER_ID_Exists into l_val;
4210:
4211: IF C_OFFER_ID_Exists%NOTFOUND THEN
4212: IF l_debug THEN
4213: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4214: 'Private API: OFFER_ID is invalid');
4215: END IF;
4216: AS_UTILITY_PVT.Set_Message(
4217: p_module => l_module,
4214: 'Private API: OFFER_ID is invalid');
4215: END IF;
4216: AS_UTILITY_PVT.Set_Message(
4217: p_module => l_module,
4218: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4219: p_msg_name => 'API_INVALID_ID',
4220: p_token1 => 'COLUMN',
4221: p_token1_value => 'OFFER',
4222: p_token2 => 'VALUE',
4227: CLOSE C_OFFER_ID_Exists;
4228: END IF;
4229:
4230: -- Standard call to get message count and IF count is 1, get message info.
4231: FND_MSG_PUB.Count_And_Get
4232: ( p_count => x_msg_count,
4233: p_data => x_msg_data
4234: );
4235:
4255: and enabled_flag = 'Y'
4256: and (end_date_active > SYSDATE OR end_date_active IS NULL);
4257:
4258: l_val VARCHAR2(1);
4259: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4260: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_VEHICLE_RESPONSE_CODE';
4261: BEGIN
4262:
4263: -- Initialize message list if p_init_msg_list is set to TRUE.
4262:
4263: -- Initialize message list if p_init_msg_list is set to TRUE.
4264: IF FND_API.to_Boolean( p_init_msg_list )
4265: THEN
4266: FND_MSG_PUB.initialize;
4267: END IF;
4268:
4269:
4270: -- Initialize API return status to SUCCESS
4278: p_VEHICLE_RESPONSE_CODE);
4279: FETCH C_VEHICLE_RESPONSE_Exists into l_val;
4280:
4281: IF C_VEHICLE_RESPONSE_Exists%NOTFOUND THEN
4282: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4283: -- 'Private API: VEHICLE_RESPONSE_CODE is invalid');
4284:
4285: AS_UTILITY_PVT.Set_Message(
4286: p_module => l_module,
4283: -- 'Private API: VEHICLE_RESPONSE_CODE is invalid');
4284:
4285: AS_UTILITY_PVT.Set_Message(
4286: p_module => l_module,
4287: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4288: p_msg_name => 'API_INVALID_VEHICLE_RESP_CODE',
4289: p_token1 => 'VALUE',
4290: p_token1_value => p_VEHICLE_RESPONSE_CODE );
4291:
4295: CLOSE C_VEHICLE_RESPONSE_Exists;
4296: END IF;
4297:
4298: -- Standard call to get message count and if count is 1, get message info.
4299: FND_MSG_PUB.Count_And_Get
4300: ( p_count => x_msg_count,
4301: p_data => x_msg_data
4302: );
4303:
4328:
4329: -- Initialize message list if p_init_msg_list is set to TRUE.
4330: IF FND_API.to_Boolean( p_init_msg_list )
4331: THEN
4332: FND_MSG_PUB.initialize;
4333: END IF;
4334:
4335:
4336: -- Initialize API return status to SUCCESS
4343: OPEN C_BUDGET_STATUS_Exists ('BUDGET_STATUS', p_BUDGET_STATUS_CODE);
4344: FETCH C_BUDGET_STATUS_Exists into l_val;
4345:
4346: IF C_BUDGET_STATUS_Exists%NOTFOUND THEN
4347: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4348: -- 'Private API: BUDGET_STATUS_CODE is invalid');
4349:
4350: AS_UTILITY_PVT.Set_Message(
4351: p_module => l_module,
4348: -- 'Private API: BUDGET_STATUS_CODE is invalid');
4349:
4350: AS_UTILITY_PVT.Set_Message(
4351: p_module => l_module,
4352: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4353: p_msg_name => 'API_INVALID_BUDGET_STATUS_CODE',
4354: p_token1 => 'VALUE',
4355: p_token1_value => p_BUDGET_STATUS_CODE );
4356:
4360: CLOSE C_BUDGET_STATUS_Exists;
4361: END IF;
4362:
4363: -- Standard call to get message count and if count is 1, get message info.
4364: FND_MSG_PUB.Count_And_Get
4365: ( p_count => x_msg_count,
4366: p_data => x_msg_data
4367: );
4368:
4392:
4393: -- Initialize message list if p_init_msg_list is set to TRUE.
4394: IF FND_API.to_Boolean( p_init_msg_list )
4395: THEN
4396: FND_MSG_PUB.initialize;
4397: END IF;
4398:
4399:
4400: -- Initialize API return status to SUCCESS
4407: OPEN C_PRM_LEAD_TYPE_Exists ('PRM_LEAD_TYPE', p_PRM_LEAD_TYPE);
4408: FETCH C_PRM_LEAD_TYPE_Exists into l_val;
4409:
4410: IF C_PRM_LEAD_TYPE_Exists%NOTFOUND THEN
4411: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4412: -- 'Private API: PRM_LEAD_TYPE is invalid');
4413:
4414: AS_UTILITY_PVT.Set_Message(
4415: p_module => l_module,
4412: -- 'Private API: PRM_LEAD_TYPE is invalid');
4413:
4414: AS_UTILITY_PVT.Set_Message(
4415: p_module => l_module,
4416: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4417: p_msg_name => 'API_INVALID_PRM_LEAD_TYPE',
4418: p_token1 => 'VALUE',
4419: p_token1_value => p_PRM_LEAD_TYPE );
4420:
4424: CLOSE C_PRM_LEAD_TYPE_Exists;
4425: END IF;
4426:
4427: -- Standard call to get message count and if count is 1, get message info.
4428: FND_MSG_PUB.Count_And_Get
4429: ( p_count => x_msg_count,
4430: p_data => x_msg_data
4431: );
4432:
4454: BEGIN
4455: -- Initialize message list if p_init_msg_list is set to TRUE.
4456: IF FND_API.to_Boolean( p_init_msg_list )
4457: THEN
4458: FND_MSG_PUB.initialize;
4459: END IF;
4460:
4461: -- Initialize API return status to SUCCESS
4462: x_return_status := FND_API.G_RET_STS_SUCCESS;
4463:
4464: -- validate NOT NULL column
4465: IF(p_CUSTOMER_ID is NULL)
4466: THEN
4467: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4468: -- 'Private API: Violate NOT NULL constraint(CUSTOMER_ID)');
4469:
4470: AS_UTILITY_PVT.Set_Message(
4471: p_module => l_module,
4468: -- 'Private API: Violate NOT NULL constraint(CUSTOMER_ID)');
4469:
4470: AS_UTILITY_PVT.Set_Message(
4471: p_module => l_module,
4472: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4473: p_msg_name => 'API_MISSING_CUSTOMER_ID');
4474:
4475: x_return_status := FND_API.G_RET_STS_ERROR;
4476: ELSE
4481: OPEN c_customer_status(P_CUSTOMER_ID);
4482: FETCH c_customer_status into l_status;
4483: CLOSE c_customer_status;
4484: IF l_status = 'I' THEN
4485: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4486: THEN
4487: AS_UTILITY_PVT.Set_Message(
4488: p_module => l_module,
4489: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4485: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4486: THEN
4487: AS_UTILITY_PVT.Set_Message(
4488: p_module => l_module,
4489: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4490: p_msg_name => 'WARN_INACTIVE_CUSTOMER');
4491:
4492: END IF;
4493: x_return_status := FND_API.G_RET_STS_ERROR;
4498: -- Calling from Create APIs, customer_id can not be G_MISS_NUM
4499: IF (p_validation_mode = AS_UTILITY_PVT.G_CREATE) and
4500: (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
4501: THEN
4502: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4503: -- 'Private API: CUSTOMER_ID is missing');
4504:
4505: AS_UTILITY_PVT.Set_Message(
4506: p_module => l_module,
4503: -- 'Private API: CUSTOMER_ID is missing');
4504:
4505: AS_UTILITY_PVT.Set_Message(
4506: p_module => l_module,
4507: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4508: p_msg_name => 'API_MISSING_CUSTOMER_ID');
4509:
4510: x_return_status := FND_API.G_RET_STS_ERROR;
4511:
4519: x_msg_count => x_msg_count,
4520: x_msg_data => x_msg_data);
4521:
4522: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4523: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4524: -- 'Private API: CUSTOMER_ID is invalid');
4525:
4526: AS_UTILITY_PVT.Set_Message(
4527: p_module => l_module,
4524: -- 'Private API: CUSTOMER_ID is invalid');
4525:
4526: AS_UTILITY_PVT.Set_Message(
4527: p_module => l_module,
4528: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4529: p_msg_name => 'API_INVALID_CUSTOMER_ID',
4530: p_token1 => 'VALUE',
4531: p_token1_value => p_CUSTOMER_ID );
4532:
4535: END IF;
4536: END IF;
4537:
4538: -- Standard call to get message count and if count is 1, get message info.
4539: FND_MSG_PUB.Count_And_Get
4540: ( p_count => x_msg_count,
4541: p_data => x_msg_data
4542: );
4543: END Validate_CUSTOMER_ID;
4567:
4568: -- Initialize message list if p_init_msg_list is set to TRUE.
4569: IF FND_API.to_Boolean( p_init_msg_list )
4570: THEN
4571: FND_MSG_PUB.initialize;
4572: END IF;
4573:
4574:
4575: -- Initialize API return status to SUCCESS
4585: -- x_msg_count => x_msg_count,
4586: -- x_msg_data => x_msg_data);
4587:
4588: -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4589: -- -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4590: -- -- 'Private API: INC_PARTNER_PARTY_ID is invalid');
4591:
4592:
4593: OPEN C_INC_PRTN_PARTY_ID_Exist (P_INC_PARTNER_PARTY_ID);
4596: IF C_INC_PRTN_PARTY_ID_Exist%NOTFOUND THEN
4597:
4598: AS_UTILITY_PVT.Set_Message(
4599: p_module => l_module,
4600: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4601: p_msg_name => 'API_INVALID_INC_PTNR_PARTY_ID',
4602: p_token1 => 'VALUE',
4603: p_token1_value => p_INC_PARTNER_PARTY_ID );
4604:
4605: END IF;
4606: END IF;
4607:
4608: -- Standard call to get message count and if count is 1, get message info.
4609: FND_MSG_PUB.Count_And_Get
4610: ( p_count => x_msg_count,
4611: p_data => x_msg_data
4612: );
4613:
4629:
4630: -- Initialize message list if p_init_msg_list is set to TRUE.
4631: IF FND_API.to_Boolean( p_init_msg_list )
4632: THEN
4633: FND_MSG_PUB.initialize;
4634: END IF;
4635:
4636:
4637: -- Initialize API return status to SUCCESS
4647: x_msg_count => x_msg_count,
4648: x_msg_data => x_msg_data);
4649:
4650: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4651: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4652: -- 'Private API: CLOSE_COMPETITOR_ID is invalid');
4653:
4654: AS_UTILITY_PVT.Set_Message(
4655: p_module => l_module,
4652: -- 'Private API: CLOSE_COMPETITOR_ID is invalid');
4653:
4654: AS_UTILITY_PVT.Set_Message(
4655: p_module => l_module,
4656: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4657: p_msg_name => 'API_INVALID_CLOSE_COMP_ID',
4658: p_token1 => 'VALUE',
4659: p_token1_value => p_CLOSE_COMPETITOR_ID );
4660:
4661: END IF;
4662: END IF;
4663:
4664: -- Standard call to get message count and if count is 1, get message info.
4665: FND_MSG_PUB.Count_And_Get
4666: ( p_count => x_msg_count,
4667: p_data => x_msg_data
4668: );
4669:
4685:
4686: -- Initialize message list if p_init_msg_list is set to TRUE.
4687: IF FND_API.to_Boolean( p_init_msg_list )
4688: THEN
4689: FND_MSG_PUB.initialize;
4690: END IF;
4691:
4692:
4693: -- Initialize API return status to SUCCESS
4703: x_msg_count => x_msg_count,
4704: x_msg_data => x_msg_data);
4705:
4706: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4707: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4708: -- 'Private API: END_USER_CUSTOMER_ID is invalid');
4709:
4710: AS_UTILITY_PVT.Set_Message(
4711: p_module => l_module,
4708: -- 'Private API: END_USER_CUSTOMER_ID is invalid');
4709:
4710: AS_UTILITY_PVT.Set_Message(
4711: p_module => l_module,
4712: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4713: p_msg_name => 'API_INVALID_END_USER_CUST_ID',
4714: p_token1 => 'VALUE',
4715: p_token1_value => p_END_USER_CUSTOMER_ID );
4716:
4717: END IF;
4718: END IF;
4719:
4720: -- Standard call to get message count and if count is 1, get message info.
4721: FND_MSG_PUB.Count_And_Get
4722: ( p_count => x_msg_count,
4723: p_data => x_msg_data
4724: );
4725:
4738: X_Msg_Data OUT NOCOPY VARCHAR2
4739: )
4740: IS
4741: l_check_address VARCHAR2(1);
4742: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4743: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_ADDRESS_ID';
4744:
4745: BEGIN
4746: -- Initialize message list if p_init_msg_list is set to TRUE.
4745: BEGIN
4746: -- Initialize message list if p_init_msg_list is set to TRUE.
4747: IF FND_API.to_Boolean( p_init_msg_list )
4748: THEN
4749: FND_MSG_PUB.initialize;
4750: END IF;
4751:
4752: -- Initialize API return status to SUCCESS
4753: x_return_status := FND_API.G_RET_STS_SUCCESS;
4755: IF (p_ADDRESS_ID is not NULL) and (p_ADDRESS_ID <> FND_API.G_MISS_NUM)
4756: THEN
4757: IF (p_CUSTOMER_ID is NULL) or (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
4758: THEN
4759: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4760: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4761:
4762: AS_UTILITY_PVT.Set_Message(
4763: p_module => l_module,
4760: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4761:
4762: AS_UTILITY_PVT.Set_Message(
4763: p_module => l_module,
4764: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4765: p_msg_name => 'API_MISSING_CUSTOMER_ID');
4766:
4767: x_return_status := FND_API.G_RET_STS_ERROR;
4768:
4775: x_msg_count => x_msg_count,
4776: x_msg_data => x_msg_data);
4777:
4778: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4779: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4780: -- 'Private API: ADDRESS_ID is invalid');
4781: FND_MSG_PUB.initialize;
4782: AS_UTILITY_PVT.Set_Message(
4783: p_module => l_module,
4777:
4778: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4779: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4780: -- 'Private API: ADDRESS_ID is invalid');
4781: FND_MSG_PUB.initialize;
4782: AS_UTILITY_PVT.Set_Message(
4783: p_module => l_module,
4784: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4785: p_msg_name => 'AS_INVALID_ADDRESS_ID');
4780: -- 'Private API: ADDRESS_ID is invalid');
4781: FND_MSG_PUB.initialize;
4782: AS_UTILITY_PVT.Set_Message(
4783: p_module => l_module,
4784: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4785: p_msg_name => 'AS_INVALID_ADDRESS_ID');
4786:
4787: END IF;
4788: END IF;
4792: NULL;
4793:
4794: ELSE -- address_id is NULL or g_miss_num in creation mode
4795: IF l_debug THEN
4796: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4797: 'ADDRESS_ID is not entered');
4798: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4799: FND_PROFILE.Value('AS_OPP_ADDRESS_REQUIRED'));
4800:
4794: ELSE -- address_id is NULL or g_miss_num in creation mode
4795: IF l_debug THEN
4796: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4797: 'ADDRESS_ID is not entered');
4798: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4799: FND_PROFILE.Value('AS_OPP_ADDRESS_REQUIRED'));
4800:
4801: END IF;
4802:
4805: IF (l_check_address = 'Y')
4806: THEN
4807: AS_UTILITY_PVT.Set_Message(
4808: p_module => l_module,
4809: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4810: p_msg_name => 'API_MISSING_ADDRESS_ID');
4811:
4812: x_return_status := FND_API.G_RET_STS_ERROR;
4813: END IF;
4813: END IF;
4814: END IF;
4815:
4816: -- Standard call to get message count and if count is 1, get message info.
4817: FND_MSG_PUB.Count_And_Get
4818: ( p_count => x_msg_count,
4819: p_data => x_msg_data
4820: );
4821:
4838:
4839: -- Initialize message list if p_init_msg_list is set to TRUE.
4840: IF FND_API.to_Boolean( p_init_msg_list )
4841: THEN
4842: FND_MSG_PUB.initialize;
4843: END IF;
4844:
4845:
4846: -- Initialize API return status to SUCCESS
4851: THEN
4852: IF (p_END_USER_CUSTOMER_ID is NULL) or
4853: (p_END_USER_CUSTOMER_ID = FND_API.G_MISS_NUM)
4854: THEN
4855: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4856: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4857:
4858: AS_UTILITY_PVT.Set_Message(
4859: p_module => l_module,
4856: -- 'Private API: need CUSTOMER_ID to validate ADDRESS_ID');
4857:
4858: AS_UTILITY_PVT.Set_Message(
4859: p_module => l_module,
4860: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4861: p_msg_name => 'API_MISSING_END_USER_CUST_ID');
4862:
4863: x_return_status := FND_API.G_RET_STS_ERROR;
4864:
4871: x_msg_count => x_msg_count,
4872: x_msg_data => x_msg_data);
4873:
4874: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4875: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4876: -- 'Private API: END_USER_ADDRESS_ID is invalid');
4877:
4878: AS_UTILITY_PVT.Set_Message(
4879: p_module => l_module,
4876: -- 'Private API: END_USER_ADDRESS_ID is invalid');
4877:
4878: AS_UTILITY_PVT.Set_Message(
4879: p_module => l_module,
4880: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4881: p_msg_name => 'API_INVALID_END_USER_ADDR_ID',
4882: p_token1 => 'VALUE',
4883: p_token1_value => p_END_USER_ADDRESS_ID );
4884:
4886: END IF;
4887: END IF;
4888:
4889: -- Standard call to get message count and if count is 1, get message info.
4890: FND_MSG_PUB.Count_And_Get
4891: ( p_count => x_msg_count,
4892: p_data => x_msg_data
4893: );
4894:
4946: AND res.resource_id = p_SALESREP_ID
4947: AND res.category = 'EMPLOYEE';
4948:
4949: l_val VARCHAR2(1);
4950: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4951: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_OPP_OWNER';
4952:
4953: BEGIN
4954:
4954:
4955: -- Initialize message list if p_init_msg_list is set to TRUE.
4956: IF FND_API.to_Boolean( p_init_msg_list )
4957: THEN
4958: FND_MSG_PUB.initialize;
4959: END IF;
4960:
4961: -- Initialize API return status to SUCCESS
4962: x_return_status := FND_API.G_RET_STS_SUCCESS;
4964: OPEN VALIDATE_SALESREP (p_owner_salesforce_id);
4965: FETCH VALIDATE_SALESREP into l_val;
4966: IF VALIDATE_SALESREP%NOTFOUND THEN
4967: IF l_debug THEN
4968: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
4969: 'Private API: OWNER_SALESFORCE_ID is not valid');
4970: END IF;
4971: AS_UTILITY_PVT.Set_Message(
4972: p_module => l_module,
4969: 'Private API: OWNER_SALESFORCE_ID is not valid');
4970: END IF;
4971: AS_UTILITY_PVT.Set_Message(
4972: p_module => l_module,
4973: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4974: p_msg_name => 'API_INVALID_ID',
4975: p_token1 => 'COLUMN',
4976: p_token1_value => 'OWNER SALESFORCE_ID',
4977: p_token2 => 'VALUE',
4983: OPEN VALIDATE_SALESGROUP (p_owner_sales_group_id);
4984: FETCH VALIDATE_SALESGROUP into l_val;
4985: IF VALIDATE_SALESGROUP%NOTFOUND THEN
4986: IF l_debug THEN
4987: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
4988: 'Private API: OWNER_SALES_GROUP_ID is not valid');
4989: END IF;
4990: AS_UTILITY_PVT.Set_Message(
4991: p_module => l_module,
4988: 'Private API: OWNER_SALES_GROUP_ID is not valid');
4989: END IF;
4990: AS_UTILITY_PVT.Set_Message(
4991: p_module => l_module,
4992: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4993: p_msg_name => 'API_INVALID_ID',
4994: p_token1 => 'COLUMN',
4995: p_token1_value => 'OWNER SALESGROUP_ID',
4996: p_token2 => 'VALUE',
5002: OPEN VALIDATE_COMBINATION (p_owner_salesforce_id,p_owner_sales_group_id);
5003: FETCH VALIDATE_COMBINATION into l_val;
5004: IF VALIDATE_COMBINATION%NOTFOUND THEN
5005: IF l_debug THEN
5006: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
5007: 'Private API: OWNER_SALES_GROUP_ID is not valid');
5008: END IF;
5009: AS_UTILITY_PVT.Set_Message(
5010: p_module => l_module,
5007: 'Private API: OWNER_SALES_GROUP_ID is not valid');
5008: END IF;
5009: AS_UTILITY_PVT.Set_Message(
5010: p_module => l_module,
5011: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5012: p_msg_name => 'API_INVALID_ID',
5013: p_token1 => 'COLUMN',
5014: p_token1_value => 'OWNER SALESFORCE/SALESGROUP COMBINATION',
5015: p_token2 => 'VALUE',
5018: END IF;
5019: CLOSE VALIDATE_COMBINATION;
5020:
5021: -- Standard call to get message count and if count is 1, get message info.
5022: FND_MSG_PUB.Count_And_Get
5023: ( p_count => x_msg_count,
5024: p_data => x_msg_data
5025: );
5026:
5049:
5050: -- Initialize message list if p_init_msg_list is set to TRUE.
5051: IF FND_API.to_Boolean( p_init_msg_list )
5052: THEN
5053: FND_MSG_PUB.initialize;
5054: END IF;
5055:
5056:
5057: -- Initialize API return status to SUCCESS
5065: p_AUTO_ASSIGNMENT_TYPE);
5066: FETCH C_AUTO_ASGN_TYPE_Exists into l_val;
5067:
5068: IF C_AUTO_ASGN_TYPE_Exists%NOTFOUND THEN
5069: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5070: -- 'Private API: AUTO_ASSIGNMENT_TYPE is invalid');
5071:
5072: AS_UTILITY_PVT.Set_Message(
5073: p_module => l_module,
5070: -- 'Private API: AUTO_ASSIGNMENT_TYPE is invalid');
5071:
5072: AS_UTILITY_PVT.Set_Message(
5073: p_module => l_module,
5074: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5075: p_msg_name => 'API_INVALID_AUTO_ASGN_TYPE',
5076: p_token1 => 'VALUE',
5077: p_token1_value => p_AUTO_ASSIGNMENT_TYPE );
5078:
5082: CLOSE C_AUTO_ASGN_TYPE_Exists;
5083: END IF;
5084:
5085: -- Standard call to get message count and if count is 1, get message info.
5086: FND_MSG_PUB.Count_And_Get
5087: ( p_count => x_msg_count,
5088: p_data => x_msg_data
5089: );
5090:
5113: BEGIN
5114: -- Initialize message list if p_init_msg_list is set to TRUE.
5115: IF FND_API.to_Boolean( p_init_msg_list )
5116: THEN
5117: FND_MSG_PUB.initialize;
5118: END IF;
5119:
5120: -- Initialize API return status to SUCCESS
5121: x_return_status := FND_API.G_RET_STS_SUCCESS;
5128: p_PRM_ASSIGNMENT_TYPE);
5129: FETCH C_PRM_ASGN_TYPE_Exists into l_val;
5130:
5131: IF C_PRM_ASGN_TYPE_Exists%NOTFOUND THEN
5132: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5133: -- 'Private API: PRM_ASSIGNMENT_TYPE is invalid');
5134:
5135: AS_UTILITY_PVT.Set_Message(
5136: p_module => l_module,
5133: -- 'Private API: PRM_ASSIGNMENT_TYPE is invalid');
5134:
5135: AS_UTILITY_PVT.Set_Message(
5136: p_module => l_module,
5137: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5138: p_msg_name => 'API_INVALID_PRM_ASGN_TYPE',
5139: p_token1 => 'VALUE',
5140: p_token1_value => p_PRM_ASSIGNMENT_TYPE );
5141:
5145: CLOSE C_PRM_ASGN_TYPE_Exists;
5146: END IF;
5147:
5148: -- Standard call to get message count and if count is 1, get message info.
5149: FND_MSG_PUB.Count_And_Get
5150: ( p_count => x_msg_count,
5151: p_data => x_msg_data
5152: );
5153:
5176: BEGIN
5177: -- Initialize message list if p_init_msg_list is set to TRUE.
5178: IF FND_API.to_Boolean( p_init_msg_list )
5179: THEN
5180: FND_MSG_PUB.initialize;
5181: END IF;
5182:
5183: -- Initialize API return status to SUCCESS
5184: x_return_status := FND_API.G_RET_STS_SUCCESS;
5190: OPEN C_RESOURCE_ID_Exists (p_INC_PARTNER_RESOURCE_ID);
5191: FETCH C_RESOURCE_ID_Exists into l_val;
5192:
5193: IF C_RESOURCE_ID_Exists%NOTFOUND THEN
5194: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5195: -- 'Private API: INC_PARTNER_RESOURCE_ID is invalid');
5196:
5197: AS_UTILITY_PVT.Set_Message(
5198: p_module => l_module,
5195: -- 'Private API: INC_PARTNER_RESOURCE_ID is invalid');
5196:
5197: AS_UTILITY_PVT.Set_Message(
5198: p_module => l_module,
5199: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5200: p_msg_name => 'API_INVALID_INC_PRTN_RS_ID',
5201: p_token1 => 'VALUE',
5202: p_token1_value => p_INC_PARTNER_RESOURCE_ID );
5203:
5207: CLOSE C_RESOURCE_ID_Exists;
5208: END IF;
5209:
5210: -- Standard call to get message count and if count is 1, get message info.
5211: FND_MSG_PUB.Count_And_Get
5212: ( p_count => x_msg_count,
5213: p_data => x_msg_data
5214: );
5215:
5239:
5240: -- Initialize message list if p_init_msg_list is set to TRUE.
5241: IF FND_API.to_Boolean( p_init_msg_list )
5242: THEN
5243: FND_MSG_PUB.initialize;
5244: END IF;
5245:
5246:
5247: -- Initialize API return status to SUCCESS
5255: p_PRM_IND_CLASSIFICATION_CODE);
5256: FETCH C_PRM_IND_CLS_CODE_Exists into l_val;
5257:
5258: IF C_PRM_IND_CLS_CODE_Exists%NOTFOUND THEN
5259: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5260: -- 'Private API: PRM_IND_CLASSIFICATION_CODE is invalid');
5261:
5262: AS_UTILITY_PVT.Set_Message(
5263: p_module => l_module,
5260: -- 'Private API: PRM_IND_CLASSIFICATION_CODE is invalid');
5261:
5262: AS_UTILITY_PVT.Set_Message(
5263: p_module => l_module,
5264: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5265: p_msg_name => 'API_INVALID_PRM_IND_CLS_CODE',
5266: p_token1 => 'VALUE',
5267: p_token1_value => p_PRM_IND_CLASSIFICATION_CODE );
5268:
5272: CLOSE C_PRM_IND_CLS_CODE_Exists;
5273: END IF;
5274:
5275: -- Standard call to get message count and if count is 1, get message info.
5276: FND_MSG_PUB.Count_And_Get
5277: ( p_count => x_msg_count,
5278: p_data => x_msg_data
5279: );
5280:
5295: BEGIN
5296: -- Initialize message list if p_init_msg_list is set to TRUE.
5297: IF FND_API.to_Boolean( p_init_msg_list )
5298: THEN
5299: FND_MSG_PUB.initialize;
5300: END IF;
5301:
5302: -- Initialize API return status to SUCCESS
5303: x_return_status := FND_API.G_RET_STS_SUCCESS;
5307: THEN
5308: IF (UPPER(p_PRM_EXEC_SPONSOR_FLAG) <> 'Y') and
5309: (UPPER(p_PRM_EXEC_SPONSOR_FLAG) <> 'N')
5310: THEN
5311: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5312: -- 'Private API: PRM_EXEC_SPONSOR_FLAG is invalid');
5313:
5314: AS_UTILITY_PVT.Set_Message(
5315: p_module => l_module,
5312: -- 'Private API: PRM_EXEC_SPONSOR_FLAG is invalid');
5313:
5314: AS_UTILITY_PVT.Set_Message(
5315: p_module => l_module,
5316: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5317: p_msg_name => 'API_INVALID_PRM_EXEC_SPNR_FLAG',
5318: p_token1 => 'VALUE',
5319: p_token1_value => p_PRM_EXEC_SPONSOR_FLAG );
5320:
5322: END IF;
5323: END IF;
5324:
5325: -- Standard call to get message count and if count is 1, get message info.
5326: FND_MSG_PUB.Count_And_Get
5327: ( p_count => x_msg_count,
5328: p_data => x_msg_data
5329: );
5330:
5345: BEGIN
5346: -- Initialize message list if p_init_msg_list is set to TRUE.
5347: IF FND_API.to_Boolean( p_init_msg_list )
5348: THEN
5349: FND_MSG_PUB.initialize;
5350: END IF;
5351:
5352: -- Initialize API return status to SUCCESS
5353: x_return_status := FND_API.G_RET_STS_SUCCESS;
5357: THEN
5358: IF (UPPER(p_PRM_PRJ_LEAD_IN_PLACE_FLAG) <> 'Y') and
5359: (UPPER(p_PRM_PRJ_LEAD_IN_PLACE_FLAG) <> 'N')
5360: THEN
5361: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5362: -- 'Private API: PRM_PRJ_LEAD_IN_PLACE_FLAG is invalid');
5363:
5364: AS_UTILITY_PVT.Set_Message(
5365: p_module => l_module,
5362: -- 'Private API: PRM_PRJ_LEAD_IN_PLACE_FLAG is invalid');
5363:
5364: AS_UTILITY_PVT.Set_Message(
5365: p_module => l_module,
5366: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5367: p_msg_name => 'API_INVALID_PRM_PRJ_LDINPL_FLG',
5368: p_token1 => 'VALUE',
5369: p_token1_value => p_PRM_PRJ_LEAD_IN_PLACE_FLAG );
5370:
5372: END IF;
5373: END IF;
5374:
5375: -- Standard call to get message count and if count is 1, get message info.
5376: FND_MSG_PUB.Count_And_Get
5377: ( p_count => x_msg_count,
5378: p_data => x_msg_data
5379: );
5380:
5397:
5398: -- Initialize message list if p_init_msg_list is set to TRUE.
5399: IF FND_API.to_Boolean( p_init_msg_list )
5400: THEN
5401: FND_MSG_PUB.initialize;
5402: END IF;
5403:
5404:
5405: -- Initialize API return status to SUCCESS
5409: IF(p_Description is NULL)
5410: THEN
5411: AS_UTILITY_PVT.Set_Message(
5412: p_module => l_module,
5413: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5414: p_msg_name => 'API_MISSING_DESCRIPTION');
5415:
5416: x_return_status := FND_API.G_RET_STS_ERROR;
5417: END IF;
5433: BEGIN
5434: -- Initialize message list if p_init_msg_list is set to TRUE.
5435: IF FND_API.to_Boolean( p_init_msg_list )
5436: THEN
5437: FND_MSG_PUB.initialize;
5438: END IF;
5439:
5440: -- Initialize API return status to SUCCESS
5441: x_return_status := FND_API.G_RET_STS_SUCCESS;
5448: THEN
5449:
5450: AS_UTILITY_PVT.Set_Message(
5451: p_module => l_module,
5452: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5453: p_msg_name => 'API_INVALID_FREEZE_FLAG',
5454: p_token1 => 'VALUE',
5455: p_token1_value => p_FREEZE_FLAG );
5456:
5458: END IF;
5459: END IF;
5460:
5461: -- Standard call to get message count and if count is 1, get message info.
5462: FND_MSG_PUB.Count_And_Get
5463: ( p_count => x_msg_count,
5464: p_data => x_msg_data
5465: );
5466:
5509:
5510: -- Initialize message list if p_init_msg_list is set to TRUE.
5511: IF FND_API.to_Boolean( p_init_msg_list )
5512: THEN
5513: FND_MSG_PUB.initialize;
5514: END IF;
5515:
5516:
5517: -- Initialize API return status to SUCCESS
5531:
5532: IF c_Win_Prob_Limit%NOTFOUND THEN
5533: AS_UTILITY_PVT.Set_Message(
5534: p_module => l_module,
5535: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5536: p_msg_name => 'API_INVALID_SALES_STAGE_ID',
5537: p_token1 => 'VALUE',
5538: p_token1_value => p_SALES_STAGE_ID );
5539:
5544: l_max_winprob < p_win_probability
5545: THEN
5546: IF l_prob_ss_link = 'WARNING'
5547: THEN
5548: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
5549: THEN
5550:
5551: NULL; -- bug 2437635
5552: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5549: THEN
5550:
5551: NULL; -- bug 2437635
5552: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5553: --FND_MSG_PUB.ADD;
5554: --FND_MSG_PUB.G_MSG_LVL_ERROR
5555:
5556: --AS_UTILITY_PVT.Set_Message(
5557: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5550:
5551: NULL; -- bug 2437635
5552: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5553: --FND_MSG_PUB.ADD;
5554: --FND_MSG_PUB.G_MSG_LVL_ERROR
5555:
5556: --AS_UTILITY_PVT.Set_Message(
5557: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5558: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5553: --FND_MSG_PUB.ADD;
5554: --FND_MSG_PUB.G_MSG_LVL_ERROR
5555:
5556: --AS_UTILITY_PVT.Set_Message(
5557: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5558: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5559:
5560: l_warning_msg := FND_MESSAGE.GET_STRING('AS','API_WARN_PROB_SS_LINK');
5561: -- x_return_status := FND_API.G_RET_STS_ERROR;
5564: END IF;
5565:
5566: ELSIF l_prob_ss_link = 'ERROR'
5567: THEN
5568: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5569: THEN
5570: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5571: -- FND_MSG_PUB.ADD;
5572:
5567: THEN
5568: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5569: THEN
5570: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5571: -- FND_MSG_PUB.ADD;
5572:
5573: AS_UTILITY_PVT.Set_Message(
5574: p_module => l_module,
5575: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5571: -- FND_MSG_PUB.ADD;
5572:
5573: AS_UTILITY_PVT.Set_Message(
5574: p_module => l_module,
5575: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5576: p_msg_name => 'API_ERROR_PROB_SS_LINK');
5577:
5578: END IF;
5579:
5596: OPEN C_Get_Stage_Info (p_SALES_STAGE_ID);
5597: FETCH C_Get_Stage_Info into l_min_winprob, l_max_winprob;
5598:
5599: IF C_Get_Stage_Info%NOTFOUND THEN
5600: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5601: -- 'Private API: SALES_STAGE_ID is invalid');
5602:
5603: AS_UTILITY_PVT.Set_Message(
5604: p_module => l_module,
5601: -- 'Private API: SALES_STAGE_ID is invalid');
5602:
5603: AS_UTILITY_PVT.Set_Message(
5604: p_module => l_module,
5605: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5606: p_msg_name => 'API_INVALID_SALES_STAGE_ID',
5607: p_token1 => 'VALUE',
5608: p_token1_value => p_SALES_STAGE_ID );
5609:
5614: l_max_winprob < p_win_probability
5615: THEN
5616: IF l_prob_ss_link = 'WARNING'
5617: THEN
5618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
5619: THEN
5620: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5621: --FND_MSG_PUB.ADD;
5622:
5617: THEN
5618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
5619: THEN
5620: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5621: --FND_MSG_PUB.ADD;
5622:
5623: --AS_UTILITY_PVT.Set_Message(
5624: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5625: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5620: --FND_MESSAGE.Set_Name('AS', 'API_WARN_PROB_SS_LINK');
5621: --FND_MSG_PUB.ADD;
5622:
5623: --AS_UTILITY_PVT.Set_Message(
5624: --p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5625: --p_msg_name => 'API_WARN_PROB_SS_LINK');
5626: l_warning_msg := FND_MESSAGE.GET_STRING('AS','API_WARN_PROB_SS_LINK');
5627: -- x_return_status := FND_API.G_RET_STS_ERROR;
5628:
5630: END IF;
5631:
5632: ELSIF l_prob_ss_link = 'ERROR'
5633: THEN
5634: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5635: THEN
5636: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5637: -- FND_MSG_PUB.ADD;
5638:
5633: THEN
5634: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
5635: THEN
5636: -- FND_MESSAGE.Set_Name('AS', 'API_ERROR_PROB_SS_LINK');
5637: -- FND_MSG_PUB.ADD;
5638:
5639: AS_UTILITY_PVT.Set_Message(
5640: p_module => l_module,
5641: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5637: -- FND_MSG_PUB.ADD;
5638:
5639: AS_UTILITY_PVT.Set_Message(
5640: p_module => l_module,
5641: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5642: p_msg_name => 'API_ERROR_PROB_SS_LINK');
5643:
5644: END IF;
5645:
5653:
5654: END IF;
5655:
5656: -- Standard call to get message count and if count is 1, get message info.
5657: FND_MSG_PUB.Count_And_Get
5658: ( p_count => x_msg_count,
5659: p_data => x_msg_data
5660: );
5661:
5690:
5691: -- Initialize message list if p_init_msg_list is set to TRUE.
5692: IF FND_API.to_Boolean( p_init_msg_list )
5693: THEN
5694: FND_MSG_PUB.initialize;
5695: END IF;
5696:
5697:
5698: -- Initialize API return status to SUCCESS
5706: OPEN C_Get_OppOpenStatusFlag (p_STATUS);
5707: FETCH C_Get_OppOpenStatusFlag into l_val;
5708:
5709: IF C_Get_OppOpenStatusFlag%NOTFOUND THEN
5710: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5711: -- 'Private API: STATUS is invalid');
5712:
5713: AS_UTILITY_PVT.Set_Message(
5714: p_module => l_module,
5711: -- 'Private API: STATUS is invalid');
5712:
5713: AS_UTILITY_PVT.Set_Message(
5714: p_module => l_module,
5715: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5716: p_msg_name => 'API_INVALID_OPP_STATUS',
5717: p_token1 => 'VALUE',
5718: p_token1_value => p_STATUS );
5719:
5722: -- If opp_open_status_flag = 'N' (closed status),
5723: -- then close_reason should exist
5724: ELSIF l_val = 'N'
5725: THEN
5726: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5727: -- 'Private API: CLOSE_REASON is missing');
5728:
5729: AS_UTILITY_PVT.Set_Message(
5730: p_module => l_module,
5727: -- 'Private API: CLOSE_REASON is missing');
5728:
5729: AS_UTILITY_PVT.Set_Message(
5730: p_module => l_module,
5731: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5732: p_msg_name => 'API_MISSING_CLOSE_REASON');
5733:
5734: x_return_status := FND_API.G_RET_STS_ERROR;
5735:
5739: END IF;
5740: END IF;
5741:
5742: -- Standard call to get message count and if count is 1, get message info.
5743: FND_MSG_PUB.Count_And_Get
5744: ( p_count => x_msg_count,
5745: p_data => x_msg_data
5746: );
5747:
5768:
5769: -- Initialize message list if p_init_msg_list is set to TRUE.
5770: IF FND_API.to_Boolean( p_init_msg_list )
5771: THEN
5772: FND_MSG_PUB.initialize;
5773: END IF;
5774:
5775:
5776: -- Initialize API return status to SUCCESS
5783: --DBMS_OUTPUT.PUT_LINE('rAISE ERROR');
5784: x_return_status := FND_API.G_RET_STS_ERROR;
5785: AS_UTILITY_PVT.Set_Message(
5786: p_module => l_module,
5787: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5788: p_msg_name => 'AS_CLOSE_DATE_VALIDATION',
5789: p_token1 => 'DATE',
5790: p_token1_value => TO_CHAR(l_max_date));
5791: END IF;
5792: END IF;
5793:
5794:
5795: -- Standard call to get message count and if count is 1, get message info.
5796: FND_MSG_PUB.Count_And_Get
5797: ( p_count => x_msg_count,
5798: p_data => x_msg_data
5799: );
5800:
5803: --DBMS_OUTPUT.PUT_LINE('In VALUE_ERROR exception');
5804: x_return_status := FND_API.G_RET_STS_ERROR;
5805: AS_UTILITY_PVT.Set_Message(
5806: p_module => l_module,
5807: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5808: p_msg_name => 'AS_MAX_DAY_ERROR');
5809:
5810: END Validate_DecisionDate;
5811:
5827:
5828: -- Initialize message list if p_init_msg_list is set to TRUE.
5829: IF FND_API.to_Boolean( p_init_msg_list )
5830: THEN
5831: FND_MSG_PUB.initialize;
5832: END IF;
5833:
5834:
5835: -- Initialize API return status to SUCCESS
5844: (p_CURRENCY_CODE = FND_API.G_MISS_CHAR)
5845: THEN
5846: AS_UTILITY_PVT.Set_Message(
5847: p_module => l_module,
5848: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
5849: p_msg_name => 'API_MISSING_CURRENCY_CODE');
5850:
5851: x_return_status := FND_API.G_RET_STS_ERROR;
5852: END IF;
5852: END IF;
5853: END IF;
5854:
5855: -- Standard call to get message count and if count is 1, get message info.
5856: FND_MSG_PUB.Count_And_Get
5857: ( p_count => x_msg_count,
5858: p_data => x_msg_data
5859: );
5860:
5875: )
5876: IS
5877: l_api_name CONSTANT VARCHAR2(30) := 'Validate_opp_header';
5878: l_Item_Property_Rec AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE;
5879: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
5880: l_Win_prob_warning_msg VARCHAR2(2000) := '';
5881: l_module CONSTANT VARCHAR2(255) := 'as.plsql.ldhpv.Validate_opp_header';
5882: BEGIN
5883:
5882: BEGIN
5883:
5884: -- Debug Message
5885: IF l_debug THEN
5886: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5887: 'Private API: ' || l_api_name || ' start');
5888: END IF;
5889:
5890:
5906: -- Calling item level validation procedures
5907: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
5908: THEN
5909: IF l_debug THEN
5910: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5911: 'Validate_LEAD_ID');
5912: END IF;
5913:
5914: Validate_LEAD_ID(
5925:
5926:
5927:
5928: IF l_debug THEN
5929: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5930: 'Validate_STATUS');
5931: END IF;
5932:
5933: Validate_STATUS(
5942: raise FND_API.G_EXC_ERROR;
5943: END IF;
5944:
5945: IF l_debug THEN
5946: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5947: 'Validate_SALES_STAGE_ID');
5948: END IF;
5949:
5950: Validate_SALES_STAGE_ID(
5959: raise FND_API.G_EXC_ERROR;
5960: END IF;
5961:
5962: IF l_debug THEN
5963: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Validate_CHANNEL_CODE');
5964: END IF;
5965:
5966: Validate_CHANNEL_CODE(
5967: p_init_msg_list => FND_API.G_FALSE,
5975: raise FND_API.G_EXC_ERROR;
5976: END IF;
5977:
5978: IF l_debug THEN
5979: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Validate_CURRENCY_CODE');
5980: END IF;
5981:
5982: Validate_CURRENCY_CODE(
5983: p_init_msg_list => FND_API.G_FALSE,
5991: raise FND_API.G_EXC_ERROR;
5992: END IF;
5993:
5994: IF l_debug THEN
5995: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5996: 'Validate_DecisionDate');
5997: END IF;
5998: Validate_DecisionDate(
5999: p_init_msg_list => FND_API.G_FALSE,
6007: raise FND_API.G_EXC_ERROR;
6008: END IF;
6009:
6010: IF l_debug THEN
6011: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6012: 'Validate_BudgetAmt_Currency');
6013:
6014: END IF;
6015:
6013:
6014: END IF;
6015:
6016: IF l_debug THEN
6017: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6018: 'Validate_WIN_PROBABILITY');
6019:
6020: END IF;
6021:
6031: raise FND_API.G_EXC_ERROR;
6032: END IF;
6033:
6034: IF l_debug THEN
6035: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6036: 'Validate_CLOSE_REASON');
6037: END IF;
6038:
6039: Validate_CLOSE_REASON(
6048: raise FND_API.G_EXC_ERROR;
6049: END IF;
6050:
6051: IF l_debug THEN
6052: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6053: 'Validate_SOURCE_PROMOTION_ID');
6054: END IF;
6055:
6056: Validate_SOURCE_PROMOTION_ID(
6065: raise FND_API.G_EXC_ERROR;
6066: END IF;
6067:
6068: IF l_debug THEN
6069: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6070: 'Validate_NO_OPP_ALLOWED_FLAG');
6071: END IF;
6072:
6073: Validate_NO_OPP_ALLOWED_FLAG(
6082: raise FND_API.G_EXC_ERROR;
6083: END IF;
6084:
6085: IF l_debug THEN
6086: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6087: 'Validate_DELETE_ALLOWED_FLAG');
6088: END IF;
6089:
6090: Validate_DELETE_ALLOWED_FLAG(
6099: raise FND_API.G_EXC_ERROR;
6100: END IF;
6101:
6102: IF l_debug THEN
6103: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6104: 'Validate_LEAD_SOURCE_CODE');
6105: END IF;
6106:
6107: Validate_LEAD_SOURCE_CODE(
6116: raise FND_API.G_EXC_ERROR;
6117: END IF;
6118:
6119: IF l_debug THEN
6120: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6121: 'Validate_PRICE_LIST_ID');
6122: END IF;
6123:
6124: Validate_PRICE_LIST_ID(
6134: raise FND_API.G_EXC_ERROR;
6135: END IF;
6136:
6137: IF l_debug THEN
6138: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6139: 'Validate_DELETED_FLAG');
6140: END IF;
6141:
6142: Validate_DELETED_FLAG(
6151: raise FND_API.G_EXC_ERROR;
6152: END IF;
6153:
6154: IF l_debug THEN
6155: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6156: 'Validate_METHODOLOGY_CODE');
6157: END IF;
6158:
6159: Validate_METHODOLOGY_CODE(
6168: raise FND_API.G_EXC_ERROR;
6169: END IF;
6170:
6171: IF l_debug THEN
6172: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6173: 'Validate_ORIGINAL_LEAD_ID');
6174: END IF;
6175:
6176: Validate_ORIGINAL_LEAD_ID(
6185: raise FND_API.G_EXC_ERROR;
6186: END IF;
6187:
6188: IF l_debug THEN
6189: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6190: 'Validate_DECN_TIMEFRAME_CODE');
6191: END IF;
6192:
6193: Validate_DECN_TIMEFRAME_CODE(
6203: raise FND_API.G_EXC_ERROR;
6204: END IF;
6205:
6206: IF l_debug THEN
6207: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6208: 'Validate_OFFER_ID');
6209: END IF;
6210:
6211: Validate_OFFER_ID(
6221: raise FND_API.G_EXC_ERROR;
6222: END IF;
6223:
6224: IF l_debug THEN
6225: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6226: 'Validate_VEHICLE_RESPONSE_CODE');
6227: END IF;
6228:
6229: Validate_VEHICLE_RESPONSE_CODE(
6238: raise FND_API.G_EXC_ERROR;
6239: END IF;
6240:
6241: IF l_debug THEN
6242: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6243: 'Validate_BUDGET_STATUS_CODE');
6244: END IF;
6245:
6246: Validate_BUDGET_STATUS_CODE(
6255: raise FND_API.G_EXC_ERROR;
6256: END IF;
6257:
6258: IF l_debug THEN
6259: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6260: 'Validate_PRM_LEAD_TYPE');
6261: END IF;
6262:
6263: Validate_PRM_LEAD_TYPE(
6272: raise FND_API.G_EXC_ERROR;
6273: END IF;
6274:
6275: IF l_debug THEN
6276: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6277: 'Validate_CUSTOMER_ID');
6278: END IF;
6279:
6280: Validate_CUSTOMER_ID(
6289: raise FND_API.G_EXC_ERROR;
6290: END IF;
6291:
6292: IF l_debug THEN
6293: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6294: 'Validate_INC_PARTNER_PARTY_ID');
6295: END IF;
6296:
6297: Validate_INC_PARTNER_PARTY_ID(
6307: raise FND_API.G_EXC_ERROR;
6308: END IF;
6309:
6310: IF l_debug THEN
6311: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6312: 'Validate_CLOSE_COMPETITOR_ID');
6313: END IF;
6314:
6315: Validate_CLOSE_COMPETITOR_ID(
6324: raise FND_API.G_EXC_ERROR;
6325: END IF;
6326:
6327: IF l_debug THEN
6328: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6329: 'Validate_END_USER_CUSTOMER_ID');
6330: END IF;
6331:
6332: Validate_END_USER_CUSTOMER_ID(
6341: raise FND_API.G_EXC_ERROR;
6342: END IF;
6343:
6344: IF l_debug THEN
6345: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6346: 'Validate_ADDRESS_ID');
6347: END IF;
6348:
6349: Validate_ADDRESS_ID(
6359: raise FND_API.G_EXC_ERROR;
6360: END IF;
6361:
6362: IF l_debug THEN
6363: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6364: 'Validate_END_USER_ADDRESS_ID');
6365: END IF;
6366:
6367: Validate_END_USER_ADDRESS_ID(
6377: raise FND_API.G_EXC_ERROR;
6378: END IF;
6379:
6380: IF l_debug THEN
6381: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6382: 'Validate_AUTO_ASGN_TYPE');
6383: END IF;
6384:
6385: Validate_AUTO_ASGN_TYPE(
6394: raise FND_API.G_EXC_ERROR;
6395: END IF;
6396:
6397: IF l_debug THEN
6398: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6399: 'Validate_PRM_ASGN_TYPE');
6400: END IF;
6401:
6402: Validate_PRM_ASGN_TYPE(
6411: raise FND_API.G_EXC_ERROR;
6412: END IF;
6413:
6414: IF l_debug THEN
6415: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6416: 'Validate_INC_PRTNR_RESOURCE_ID');
6417: END IF;
6418:
6419: Validate_INC_PRTNR_RESOURCE_ID(
6429: raise FND_API.G_EXC_ERROR;
6430: END IF;
6431:
6432: IF l_debug THEN
6433: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6434: 'Validate_PRM_IND_CLS_CODE');
6435: END IF;
6436:
6437: Validate_PRM_IND_CLS_CODE(
6447: raise FND_API.G_EXC_ERROR;
6448: END IF;
6449:
6450: IF l_debug THEN
6451: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6452: 'Validate_PRM_EXEC_SPONSOR_FLAG');
6453: END IF;
6454:
6455: Validate_PRM_EXEC_SPONSOR_FLAG(
6464: raise FND_API.G_EXC_ERROR;
6465: END IF;
6466:
6467: IF l_debug THEN
6468: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6469: 'Validate_PRM_PRJ_LDINPLE_FLAG');
6470: END IF;
6471:
6472: Validate_PRM_PRJ_LDINPLE_FLAG(
6483: END IF;
6484:
6485: -- 091200 ffang, for bug 1402449
6486: IF l_debug THEN
6487: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6488: 'Validate_DESCRIPTION');
6489: END IF;
6490:
6491: Validate_DESCRIPTION(
6502: -- end 091200 ffang
6503:
6504: -- solin, for bug 1554330
6505: IF l_debug THEN
6506: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6507: 'Validate_FREEZE_FLAG');
6508: END IF;
6509:
6510: Validate_FREEZE_FLAG(
6544: -- Calling record level validation procedures
6545: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_RECORD)
6546: THEN
6547: IF l_debug THEN
6548: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6549: 'Validate_WinPorb_StageID');
6550: END IF;
6551:
6552: Validate_WinPorb_StageID(
6567: l_Win_prob_warning_msg := x_msg_data;
6568: END IF;
6569:
6570: IF l_debug THEN
6571: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6572: 'Validate_Status_CloseReason');
6573: END IF;
6574:
6575: Validate_Status_CloseReason(
6614:
6615:
6616: -- Debug Message
6617: IF l_debug THEN
6618: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6619: 'Private API: ' || l_api_name || ' end');
6620:
6621: END IF;
6622:
6620:
6621: END IF;
6622:
6623: -- Standard call to get message count and if count is 1, get message info.
6624: FND_MSG_PUB.Count_And_Get
6625: ( p_count => x_msg_count,
6626: p_data => x_msg_data
6627: );
6628: