[Home] [Help]
23: FUNCTION salesTeam_flags_are_Valid(p_sales_team_rec IN OUT NOCOPY SALES_TEAM_REC_TYPE)
24: RETURN BOOLEAN IS
25: begin
26: if (p_sales_team_rec.freeze_flag is NOT NULL
27: and p_sales_team_rec.freeze_flag <> FND_API.G_MISS_CHAR)
28: then
29: if (AS_FOUNDATION_PVT.get_lookupMeaning('YES/NO',
30: p_sales_team_rec.freeze_flag, AS_FOUNDATION_PVT.G_AR_LOOKUPS )
31: is NULL)
41: end if;
42: end if;
43:
44: if (p_sales_team_rec.reassign_flag is NOT NULL
45: and p_sales_team_rec.reassign_flag <> FND_API.G_MISS_CHAR)
46: then
47: if (AS_FOUNDATION_PVT.get_lookupMeaning('YES/NO',
48: p_sales_team_rec.reassign_flag, AS_FOUNDATION_PVT.G_AR_LOOKUPS )
49: is NULL)
59: end if;
60: end if;
61:
62: if (p_sales_team_rec.team_leader_flag is NOT NULL
63: and p_sales_team_rec.team_leader_flag <> FND_API.G_MISS_CHAR)
64: then
65: if (AS_FOUNDATION_PVT.get_lookupMeaning('YES/NO',
66: p_sales_team_rec.team_leader_flag, AS_FOUNDATION_PVT.G_AR_LOOKUPS )
67: is NULL)
101: FND_MESSAGE.Set_Token('COLUMN', 'SALESFORCE_ID', FALSE);
102: fnd_message.set_token('VALUE', p_salesforce_id, FALSE);
103: FND_MSG_PUB.ADD;
104: END IF;
105: raise FND_API.G_EXC_ERROR;
106: end if;
107: close get_person_id_csr;
108: end;
109:
114: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
115: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.get_accessProfileValues';
116: begin
117: IF px_access_profile_rec.opp_access_profile_value IS NULL OR
118: px_access_profile_rec.opp_access_profile_value = FND_API.G_MISS_CHAR
119: THEN
120: px_access_profile_rec.opp_access_profile_value
121: := FND_PROFILE.Value('AS_OPP_ACCESS');
122: END IF;
121: := FND_PROFILE.Value('AS_OPP_ACCESS');
122: END IF;
123:
124: IF px_access_profile_rec.lead_access_profile_value IS NULL OR
125: px_access_profile_rec.lead_access_profile_value = FND_API.G_MISS_CHAR
126: THEN
127: px_access_profile_rec.lead_access_profile_value
128: := FND_PROFILE.Value('AS_LEAD_ACCESS');
129: END IF;
128: := FND_PROFILE.Value('AS_LEAD_ACCESS');
129: END IF;
130:
131: IF px_access_profile_rec.cust_access_profile_value IS NULL OR
132: px_access_profile_rec.cust_access_profile_value = FND_API.G_MISS_CHAR
133: THEN
134: px_access_profile_rec.cust_access_profile_value
135: := FND_PROFILE.Value('AS_CUST_ACCESS');
136: END IF;
135: := FND_PROFILE.Value('AS_CUST_ACCESS');
136: END IF;
137:
138: IF px_access_profile_rec.mgr_update_profile_value IS NULL OR
139: px_access_profile_rec.mgr_update_profile_value = FND_API.G_MISS_CHAR
140: THEN
141: px_access_profile_rec.mgr_update_profile_value
142: := FND_PROFILE.Value('AS_MGR_UPDATE');
143: END IF;
142: := FND_PROFILE.Value('AS_MGR_UPDATE');
143: END IF;
144:
145: IF px_access_profile_rec.admin_update_profile_value IS NULL OR
146: px_access_profile_rec.admin_update_profile_value = FND_API.G_MISS_CHAR
147: THEN
148: px_access_profile_rec.admin_update_profile_value
149: := FND_PROFILE.Value('AS_ADMIN_UPDATE');
150: END IF;
171:
172: --- has_leadOwnerAccess is a private procedure currently.
173: procedure has_leadOwnerAccess
174: ( p_api_version_number IN NUMBER
175: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
176: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
177: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
178: ,p_admin_flag IN VARCHAR2
179: ,p_admin_group_id IN NUMBER
172: --- has_leadOwnerAccess is a private procedure currently.
173: procedure has_leadOwnerAccess
174: ( p_api_version_number IN NUMBER
175: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
176: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
177: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
178: ,p_admin_flag IN VARCHAR2
179: ,p_admin_group_id IN NUMBER
180: ,p_person_id IN NUMBER
266: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
267: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_leadOwnerAccess';
268: begin
269: -- Standard call to check for call compatibility.
270: /* IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
271: p_api_version_number,
272: l_api_name,
273: G_PKG_NAME)
274: THEN
271: p_api_version_number,
272: l_api_name,
273: G_PKG_NAME)
274: THEN
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: END IF;
277:
278: -- Initialize message list if p_init_msg_list is set to TRUE.
279: IF FND_API.to_Boolean( p_init_msg_list )
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: END IF;
277:
278: -- Initialize message list if p_init_msg_list is set to TRUE.
279: IF FND_API.to_Boolean( p_init_msg_list )
280: THEN
281: FND_MSG_PUB.initialize;
282: END IF;
283: */
290: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
291: END IF;
292:
293: -- Initialize API return status to SUCCESS
294: x_return_status := FND_API.G_RET_STS_SUCCESS;
295:
296: IF l_debug THEN
297: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
298: 'p_sales_lead_id: ' || p_sales_lead_id);
316: -- PRM security
317: open resource_access_csr;
318: fetch resource_access_csr into l_tmp;
319: /* if p_partner_cont_party_id is not null
320: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
321: then
322: if (resource_access_csr%FOUND)
323: then
324: x_update_access_flag := 'Y';
325: close resource_access_csr;
326: return;
327: end if;
328: end if; */
329: /* if p_person_id is null or p_person_id = fnd_api.g_miss_num
330: then
331: get_person_id(p_identity_salesforce_id, l_person_id);
332: else
333: l_person_id := p_person_id;
432: p_data => x_msg_data
433: );
434:
435: EXCEPTION
436: WHEN FND_API.G_EXC_ERROR THEN
437: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
438: P_MODULE => l_module
439: ,P_API_NAME => L_API_NAME
440: ,P_PKG_NAME => G_PKG_NAME
444: ,X_MSG_COUNT => X_MSG_COUNT
445: ,X_MSG_DATA => X_MSG_DATA
446: ,X_RETURN_STATUS => X_RETURN_STATUS);
447:
448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
449: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
450: P_MODULE => l_module
451: ,P_API_NAME => L_API_NAME
452: ,P_PKG_NAME => G_PKG_NAME
476:
477: --- has_oppOwnerAccess is a private procedure currently.
478: procedure has_oppOwnerAccess
479: ( p_api_version_number IN NUMBER
480: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
481: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
482: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
483: ,p_admin_flag IN VARCHAR2
484: ,p_admin_group_id IN NUMBER
477: --- has_oppOwnerAccess is a private procedure currently.
478: procedure has_oppOwnerAccess
479: ( p_api_version_number IN NUMBER
480: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
481: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
482: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
483: ,p_admin_flag IN VARCHAR2
484: ,p_admin_group_id IN NUMBER
485: ,p_person_id IN NUMBER
583: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
584: END IF;
585:
586: -- Initialize API return status to SUCCESS
587: x_return_status := FND_API.G_RET_STS_SUCCESS;
588:
589: IF l_debug THEN
590: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
591: 'p_lead_id: ' || p_lead_id);
710: p_data => x_msg_data
711: );
712:
713: EXCEPTION
714: WHEN FND_API.G_EXC_ERROR THEN
715: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
716: P_MODULE => l_module
717: ,P_API_NAME => L_API_NAME
718: ,P_PKG_NAME => G_PKG_NAME
722: ,X_MSG_COUNT => X_MSG_COUNT
723: ,X_MSG_DATA => X_MSG_DATA
724: ,X_RETURN_STATUS => X_RETURN_STATUS);
725:
726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
727: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
728: P_MODULE => l_module
729: ,P_API_NAME => L_API_NAME
730: ,P_PKG_NAME => G_PKG_NAME
848: end if;
849: end unmark_owner_flag;
850:
851: PROCEDURE Validate_PERSON_ID (
852: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
853: P_PERSON_ID IN NUMBER,
854: X_Return_Status OUT NOCOPY VARCHAR2,
855: X_Msg_Count OUT NOCOPY NUMBER,
856: X_Msg_Data OUT NOCOPY VARCHAR2
871: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
872: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.Validate_PERSON_ID';
873: BEGIN
874: -- Initialize message list IF p_init_msg_list is set to TRUE.
875: IF FND_API.to_Boolean( p_init_msg_list )
876: THEN
877: FND_MSG_PUB.initialize;
878: END IF;
879:
877: FND_MSG_PUB.initialize;
878: END IF;
879:
880: -- Initialize API return status to SUCCESS
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882:
883: -- Debug Message
884: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
885: -- 'Validate person id');
885: -- 'Validate person id');
886:
887: -- Validate PERSON_ID
888: IF (p_person_id IS NOT NULL
889: AND p_person_id <> FND_API.G_MISS_NUM)
890: THEN
891: OPEN C_Check_Assign_Person (p_person_id);
892: FETCH C_Check_Assign_Person INTO l_val;
893: IF (C_Check_Assign_Person%NOTFOUND)
900: p_token1_value => 'PERSON_ID',
901: p_token2 => 'VALUE',
902: p_token2_value => P_PERSON_ID );
903:
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: END IF;
906: CLOSE C_Check_Assign_Person;
907: END IF;
908:
912: END;
913:
914:
915: PROCEDURE Validate_SALESFORCE_ID (
916: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
917: P_SALESFORCE_ID IN NUMBER,
918: X_Return_Status OUT NOCOPY VARCHAR2,
919: X_Msg_Count OUT NOCOPY NUMBER,
920: X_Msg_Data OUT NOCOPY VARCHAR2
941: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.Validate_SALESFORCE_ID';
942:
943: BEGIN
944: -- Initialize message list IF p_init_msg_list is set to TRUE.
945: IF FND_API.to_Boolean( p_init_msg_list )
946: THEN
947: FND_MSG_PUB.initialize;
948: END IF;
949:
947: FND_MSG_PUB.initialize;
948: END IF;
949:
950: -- Initialize API return status to SUCCESS
951: x_return_status := FND_API.G_RET_STS_SUCCESS;
952:
953: -- Debug Message
954: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
955: -- 'Validate salesforce id');
955: -- 'Validate salesforce id');
956:
957:
958: IF (p_salesforce_id IS NOT NULL
959: AND p_salesforce_id <> FND_API.G_MISS_NUM)
960: THEN
961: OPEN C_Check_Assign_Salesforce (p_salesforce_id);
962: FETCH C_Check_Assign_Salesforce INTO l_val;
963: IF (C_Check_Assign_Salesforce%NOTFOUND)
970: p_token1_value => 'SALESFORCE_ID',
971: p_token2 => 'VALUE',
972: p_token2_value => P_SALESFORCE_ID );
973:
974: x_return_status := FND_API.G_RET_STS_ERROR;
975: END IF;
976: CLOSE C_Check_Assign_Salesforce;
977: END IF;
978:
981: p_data => x_msg_data );
982: END;
983:
984: procedure validate_sales_group_id(
985: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
986: p_sales_group_id IN NUMBER,
987: p_salesforce_id IN NUMBER,
988: x_return_status OUT NOCOPY VARCHAR2,
989: x_msg_count OUT NOCOPY NUMBER,
1018: AND role_id IN (SELECT role_id FROM jtf_rs_roles_b WHERE role_type_code IN ('SALES','TELESALES','FIELDSALES','PRM')));
1019: begin
1020: -- initialize message list if p_init_msg_list is set to TRUE;
1021:
1022: IF FND_API.to_Boolean(p_init_msg_list) THEN
1023: FND_MSG_PUB.initialize;
1024: END IF;
1025: l_return_status := FND_API.G_RET_STS_SUCCESS;
1026: OPEN VALIDATE_SALESGROUP (p_sales_group_id);
1021:
1022: IF FND_API.to_Boolean(p_init_msg_list) THEN
1023: FND_MSG_PUB.initialize;
1024: END IF;
1025: l_return_status := FND_API.G_RET_STS_SUCCESS;
1026: OPEN VALIDATE_SALESGROUP (p_sales_group_id);
1027: FETCH VALIDATE_SALESGROUP into l_val;
1028: IF VALIDATE_SALESGROUP%NOTFOUND THEN
1029: IF l_debug THEN
1042: p_token1_value => 'SALESGROUP_ID',
1043: p_token2 => 'VALUE',
1044: p_token2_value => p_sales_group_id );
1045: END IF;
1046: x_return_status := FND_API.G_RET_STS_ERROR;
1047: END IF;
1048: CLOSE VALIDATE_SALESGROUP;
1049:
1050: OPEN VALIDATE_COMBINATION (p_salesforce_id,p_sales_group_id);
1066: p_token1_value => 'SALESFORCE/SALESGROUP COMBINATION',
1067: p_token2 => 'VALUE',
1068: p_token2_value => to_char(p_salesforce_id) || '/' || to_char(p_sales_group_id) );
1069: END IF;
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: END IF;
1072: CLOSE VALIDATE_COMBINATION;
1073: FND_MSG_PUB.Count_And_Get
1074: ( p_count => x_msg_count,
1078: END Validate_sales_group_id;
1079:
1080:
1081: PROCEDURE Validate_SALES_LEAD_ID (
1082: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
1083: ,P_Sales_Lead_Id IN NUMBER
1084: ,X_Return_Status OUT NOCOPY VARCHAR2
1085: ,X_Msg_Count OUT NOCOPY NUMBER
1086: ,X_Msg_Data OUT NOCOPY VARCHAR2
1096: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.Validate_SALES_LEAD_ID';
1097:
1098: BEGIN
1099: -- Initialize message list if p_init_msg_list is set to TRUE.
1100: IF FND_API.to_Boolean( p_init_msg_list )
1101: THEN
1102: FND_MSG_PUB.initialize;
1103: END IF;
1104:
1102: FND_MSG_PUB.initialize;
1103: END IF;
1104:
1105: -- Initialize API return status to SUCCESS
1106: x_return_status := FND_API.G_RET_STS_SUCCESS;
1107:
1108: -- Debug Message
1109: IF l_debug THEN
1110: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1124: FND_MESSAGE.Set_Token('VALUE', p_Sales_Lead_Id, FALSE);
1125: FND_MSG_PUB.ADD;
1126: END IF;
1127:
1128: x_return_status := FND_API.G_RET_STS_ERROR;
1129: END IF;
1130: CLOSE C_Sales_Lead_Id_Exists ;
1131:
1132: -- Standard call to get message count and if count is 1, get message info.
1136:
1137: END Validate_SALES_LEAD_ID;
1138:
1139: PROCEDURE Validate_Opportunity_ID (
1140: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
1141: ,P_Lead_Id IN NUMBER
1142: ,X_Return_Status OUT NOCOPY VARCHAR2
1143: ,X_Msg_Count OUT NOCOPY NUMBER
1144: ,X_Msg_Data OUT NOCOPY VARCHAR2
1154: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.Validate_Opportunity_ID';
1155:
1156: BEGIN
1157: -- Initialize message list if p_init_msg_list is set to TRUE.
1158: IF FND_API.to_Boolean( p_init_msg_list )
1159: THEN
1160: FND_MSG_PUB.initialize;
1161: END IF;
1162:
1160: FND_MSG_PUB.initialize;
1161: END IF;
1162:
1163: -- Initialize API return status to SUCCESS
1164: x_return_status := FND_API.G_RET_STS_SUCCESS;
1165:
1166: -- Debug Message
1167: IF l_debug THEN
1168: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1182: FND_MESSAGE.Set_Token('VALUE', p_Lead_Id, FALSE);
1183: FND_MSG_PUB.ADD;
1184: END IF;
1185:
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: END IF;
1188: CLOSE C_Lead_Id_Exists ;
1189:
1190: -- Standard call to get message count and if count is 1, get message info.
1194:
1195: END Validate_Opportunity_ID;
1196:
1197: PROCEDURE Validate_partner_party_id (
1198: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1199: p_party_id IN NUMBER,
1200: x_return_status OUT NOCOPY VARCHAR2,
1201: x_msg_count OUT NOCOPY NUMBER,
1202: x_msg_data OUT NOCOPY VARCHAR2
1213: BEGIN
1214:
1215: -- initialize message list if p_init_msg_list is set to TRUE;
1216:
1217: IF FND_API.to_Boolean(p_init_msg_list) THEN
1218: FND_MSG_PUB.initialize;
1219: END IF;
1220:
1221: l_return_status := FND_API.G_RET_STS_SUCCESS;
1217: IF FND_API.to_Boolean(p_init_msg_list) THEN
1218: FND_MSG_PUB.initialize;
1219: END IF;
1220:
1221: l_return_status := FND_API.G_RET_STS_SUCCESS;
1222: open C_Party_Exists(p_party_id);
1223: fetch C_Party_Exists into l_val;
1224: IF (C_Party_Exists%NOTFOUND) THEN
1225: x_return_status := FND_API.G_RET_STS_ERROR;
1221: l_return_status := FND_API.G_RET_STS_SUCCESS;
1222: open C_Party_Exists(p_party_id);
1223: fetch C_Party_Exists into l_val;
1224: IF (C_Party_Exists%NOTFOUND) THEN
1225: x_return_status := FND_API.G_RET_STS_ERROR;
1226: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1227: THEN
1228: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1229: FND_MESSAGE.Set_Token('COLUMN', 'PARTNER_CUSTOMER_ID', FALSE);
1246: --
1247: -- NOTES:
1248: --
1249: PROCEDURE Validate_partner_party_site_id (
1250: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1251: p_party_id IN NUMBER,
1252: p_party_site_id IN NUMBER,
1253: x_return_status OUT NOCOPY VARCHAR2,
1254: x_msg_count OUT NOCOPY NUMBER,
1275: BEGIN
1276:
1277: -- initialize message list if p_init_msg_list is set to TRUE;
1278:
1279: IF FND_API.to_Boolean(p_init_msg_list) THEN
1280: FND_MSG_PUB.initialize;
1281: END IF;
1282:
1283: l_return_status := FND_API.G_RET_STS_SUCCESS;
1279: IF FND_API.to_Boolean(p_init_msg_list) THEN
1280: FND_MSG_PUB.initialize;
1281: END IF;
1282:
1283: l_return_status := FND_API.G_RET_STS_SUCCESS;
1284: open C_Party_Site_Exists(p_party_id, p_party_site_id);
1285: fetch C_Party_Site_Exists into l_val_1;
1286:
1287: IF (C_Party_Site_Exists%NOTFOUND) THEN
1289: open C_Party_Site_Exists_Partner(p_party_id, p_party_site_id);
1290: fetch C_Party_Site_Exists_Partner into l_val_2;
1291:
1292: IF (C_Party_Site_Exists_Partner%NOTFOUND) THEN
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1295: FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
1296: FND_MESSAGE.Set_Token('COLUMN', 'PARTNER_ADDRESS_ID', FALSE);
1297: FND_MSG_PUB.ADD;
1321: -- Sales group id is valid
1322: PROCEDURE Validate_SalesTeamItems
1323: ( p_api_version_number IN NUMBER,
1324: p_init_msg_list IN VARCHAR2
1325: := FND_API.G_FALSE,
1326: p_validation_level IN NUMBER
1327: := FND_API.G_VALID_LEVEL_FULL,
1328: p_sales_team_rec IN SALES_TEAM_REC_TYPE,
1329: x_return_status OUT NOCOPY VARCHAR2,
1323: ( p_api_version_number IN NUMBER,
1324: p_init_msg_list IN VARCHAR2
1325: := FND_API.G_FALSE,
1326: p_validation_level IN NUMBER
1327: := FND_API.G_VALID_LEVEL_FULL,
1328: p_sales_team_rec IN SALES_TEAM_REC_TYPE,
1329: x_return_status OUT NOCOPY VARCHAR2,
1330: x_msg_count OUT NOCOPY NUMBER,
1331: x_msg_data OUT NOCOPY VARCHAR2
1340: l_sales_team_rec SALES_TEAM_REC_TYPE;
1341: l_check_address VARCHAR2(1);
1342: begin
1343: l_sales_team_rec := p_sales_team_rec;
1344: x_return_status := FND_API.G_RET_STS_SUCCESS;
1345:
1346: open partner_exist_csr;
1347: fetch partner_exist_csr into l_val;
1348: close partner_exist_csr;
1351: -- if user pass in PARTNER type information without any partner_cont_party_id
1352: -- then allow them to do so
1353:
1354: if (p_sales_team_rec.person_id is NULL
1355: or p_sales_team_rec.person_id = FND_API.G_MISS_NUM)
1356: and (l_val <> 1)
1357: and (p_sales_team_rec.partner_cont_party_id is NULL
1358: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1359: then
1354: if (p_sales_team_rec.person_id is NULL
1355: or p_sales_team_rec.person_id = FND_API.G_MISS_NUM)
1356: and (l_val <> 1)
1357: and (p_sales_team_rec.partner_cont_party_id is NULL
1358: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1359: then
1360: x_return_status := FND_API.G_RET_STS_ERROR;
1361: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1362: THEN
1356: and (l_val <> 1)
1357: and (p_sales_team_rec.partner_cont_party_id is NULL
1358: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1359: then
1360: x_return_status := FND_API.G_RET_STS_ERROR;
1361: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1362: THEN
1363: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1364: FND_MESSAGE.Set_Token('COLUMN', 'PERSON_ID', FALSE);
1363: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1364: FND_MESSAGE.Set_Token('COLUMN', 'PERSON_ID', FALSE);
1365: FND_MSG_PUB.ADD;
1366: END IF;
1367: raise FND_API.G_EXC_ERROR;
1368: end if;
1369: IF (p_sales_team_rec.partner_customer_id IS NULL
1370: or p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1371: THEN
1366: END IF;
1367: raise FND_API.G_EXC_ERROR;
1368: end if;
1369: IF (p_sales_team_rec.partner_customer_id IS NULL
1370: or p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1371: THEN
1372: -- validate employee person id
1373: Validate_PERSON_ID(
1374: p_init_msg_list => FND_API.G_FALSE,
1370: or p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1371: THEN
1372: -- validate employee person id
1373: Validate_PERSON_ID(
1374: p_init_msg_list => FND_API.G_FALSE,
1375: p_PERSON_ID => p_sales_team_rec.PERSON_ID,
1376: x_return_status => x_return_status,
1377: x_msg_count => x_msg_count,
1378: x_msg_data => x_msg_data);
1375: p_PERSON_ID => p_sales_team_rec.PERSON_ID,
1376: x_return_status => x_return_status,
1377: x_msg_count => x_msg_count,
1378: x_msg_data => x_msg_data);
1379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1380: x_return_status := FND_API.G_RET_STS_ERROR;
1381: -- raise FND_API.G_EXC_ERROR;
1382: END IF;
1383:
1376: x_return_status => x_return_status,
1377: x_msg_count => x_msg_count,
1378: x_msg_data => x_msg_data);
1379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1380: x_return_status := FND_API.G_RET_STS_ERROR;
1381: -- raise FND_API.G_EXC_ERROR;
1382: END IF;
1383:
1384:
1377: x_msg_count => x_msg_count,
1378: x_msg_data => x_msg_data);
1379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1380: x_return_status := FND_API.G_RET_STS_ERROR;
1381: -- raise FND_API.G_EXC_ERROR;
1382: END IF;
1383:
1384:
1385: -- validate employee salesforce id
1383:
1384:
1385: -- validate employee salesforce id
1386: Validate_SALESFORCE_ID(
1387: p_init_msg_list => FND_API.G_FALSE,
1388: p_SALESFORCE_ID => p_sales_team_rec.SALESFORCE_ID,
1389: x_return_status => x_return_status,
1390: x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data);
1388: p_SALESFORCE_ID => p_sales_team_rec.SALESFORCE_ID,
1389: x_return_status => x_return_status,
1390: x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data);
1392: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: -- raise FND_API.G_EXC_ERROR;
1395: END IF;
1396: end if;
1389: x_return_status => x_return_status,
1390: x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data);
1392: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: -- raise FND_API.G_EXC_ERROR;
1395: END IF;
1396: end if;
1397:
1390: x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data);
1392: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: -- raise FND_API.G_EXC_ERROR;
1395: END IF;
1396: end if;
1397:
1398: if (p_sales_team_rec.customer_id is NULL
1395: END IF;
1396: end if;
1397:
1398: if (p_sales_team_rec.customer_id is NULL
1399: or p_sales_team_rec.customer_id = FND_API.G_MISS_NUM)
1400: or (p_sales_team_rec.salesforce_id is NULL
1401: or p_sales_team_rec.salesforce_id = FND_API.G_MISS_NUM)
1402: then
1403: x_return_status := FND_API.G_RET_STS_ERROR;
1397:
1398: if (p_sales_team_rec.customer_id is NULL
1399: or p_sales_team_rec.customer_id = FND_API.G_MISS_NUM)
1400: or (p_sales_team_rec.salesforce_id is NULL
1401: or p_sales_team_rec.salesforce_id = FND_API.G_MISS_NUM)
1402: then
1403: x_return_status := FND_API.G_RET_STS_ERROR;
1404: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1405: THEN
1399: or p_sales_team_rec.customer_id = FND_API.G_MISS_NUM)
1400: or (p_sales_team_rec.salesforce_id is NULL
1401: or p_sales_team_rec.salesforce_id = FND_API.G_MISS_NUM)
1402: then
1403: x_return_status := FND_API.G_RET_STS_ERROR;
1404: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1405: THEN
1406: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1407: FND_MESSAGE.Set_Token('COLUMN', 'CUSTOMER_ID, SALESFORCE_ID', FALSE);
1406: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1407: FND_MESSAGE.Set_Token('COLUMN', 'CUSTOMER_ID, SALESFORCE_ID', FALSE);
1408: FND_MSG_PUB.ADD;
1409: END IF;
1410: raise FND_API.G_EXC_ERROR;
1411: end if;
1412:
1413:
1414: if (l_val = 1) and (p_sales_team_rec.partner_customer_id is NULL or
1411: end if;
1412:
1413:
1414: if (l_val = 1) and (p_sales_team_rec.partner_customer_id is NULL or
1415: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1416: and (p_sales_team_rec.partner_cont_party_id is NULL
1417: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1418: then
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1413:
1414: if (l_val = 1) and (p_sales_team_rec.partner_customer_id is NULL or
1415: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1416: and (p_sales_team_rec.partner_cont_party_id is NULL
1417: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1418: then
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1421: THEN
1415: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1416: and (p_sales_team_rec.partner_cont_party_id is NULL
1417: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1418: then
1419: x_return_status := FND_API.G_RET_STS_ERROR;
1420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1421: THEN
1422: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1423: FND_MESSAGE.Set_Token('COLUMN', 'PARTNER_CUSTOMER_ID', FALSE);
1422: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1423: FND_MESSAGE.Set_Token('COLUMN', 'PARTNER_CUSTOMER_ID', FALSE);
1424: FND_MSG_PUB.ADD;
1425: END IF;
1426: raise FND_API.G_EXC_ERROR;
1427: end if;
1428:
1429: if (p_sales_team_rec.partner_customer_id is NULL or
1430: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1426: raise FND_API.G_EXC_ERROR;
1427: end if;
1428:
1429: if (p_sales_team_rec.partner_customer_id is NULL or
1430: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1431: and (p_sales_team_rec.partner_cont_party_id is NULL
1432: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1433: and (p_sales_team_rec.sales_group_id is NULL
1434: or p_sales_team_rec.sales_group_id = FND_API.G_MISS_NUM)
1428:
1429: if (p_sales_team_rec.partner_customer_id is NULL or
1430: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1431: and (p_sales_team_rec.partner_cont_party_id is NULL
1432: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1433: and (p_sales_team_rec.sales_group_id is NULL
1434: or p_sales_team_rec.sales_group_id = FND_API.G_MISS_NUM)
1435: then
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1430: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1431: and (p_sales_team_rec.partner_cont_party_id is NULL
1432: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1433: and (p_sales_team_rec.sales_group_id is NULL
1434: or p_sales_team_rec.sales_group_id = FND_API.G_MISS_NUM)
1435: then
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1438: THEN
1432: or p_sales_team_rec. partner_cont_party_id = FND_API.G_MISS_NUM)
1433: and (p_sales_team_rec.sales_group_id is NULL
1434: or p_sales_team_rec.sales_group_id = FND_API.G_MISS_NUM)
1435: then
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1438: THEN
1439: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1440: FND_MESSAGE.Set_Token('COLUMN', 'SALES_GROUP_ID', FALSE);
1439: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1440: FND_MESSAGE.Set_Token('COLUMN', 'SALES_GROUP_ID', FALSE);
1441: FND_MSG_PUB.ADD;
1442: END IF;
1443: raise FND_API.G_EXC_ERROR;
1444: end if;
1445:
1446: /*
1447: open partner_exist_csr;
1447: open partner_exist_csr;
1448: fetch partner_exist_csr into l_val;
1449: if partner_exist_csr%FOUND
1450: and (p_sales_team_rec.partner_customer_id is NULL or
1451: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1452: then
1453: x_return_status := FND_API.G_RET_STS_ERROR;
1454: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1455: THEN
1449: if partner_exist_csr%FOUND
1450: and (p_sales_team_rec.partner_customer_id is NULL or
1451: p_sales_team_rec.partner_customer_id = FND_API.G_MISS_NUM)
1452: then
1453: x_return_status := FND_API.G_RET_STS_ERROR;
1454: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1455: THEN
1456: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1457: FND_MESSAGE.Set_Token('COLUMN', 'PARTNER_CUSTOMER_ID', FALSE);
1461: close partner_exist_csr;
1462: */
1463: -- validate sales_group_id
1464: if (p_sales_team_rec.sales_group_id is not null)
1465: and (p_sales_team_rec.sales_group_id<> fnd_api.g_miss_num)
1466: then
1467: validate_sales_group_id(
1468: p_init_msg_list => FND_API.G_FALSE,
1469: p_sales_group_id => p_sales_team_rec.sales_group_id,
1464: if (p_sales_team_rec.sales_group_id is not null)
1465: and (p_sales_team_rec.sales_group_id<> fnd_api.g_miss_num)
1466: then
1467: validate_sales_group_id(
1468: p_init_msg_list => FND_API.G_FALSE,
1469: p_sales_group_id => p_sales_team_rec.sales_group_id,
1470: p_salesforce_id => p_sales_team_rec.salesforce_id,
1471: x_return_status => x_return_status,
1472: x_msg_count => x_msg_count,
1470: p_salesforce_id => p_sales_team_rec.salesforce_id,
1471: x_return_status => x_return_status,
1472: x_msg_count => x_msg_count,
1473: x_msg_data => x_msg_data);
1474: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1475: raise FND_API.G_EXC_ERROR;
1476: END IF;
1477: end if;
1478:
1471: x_return_status => x_return_status,
1472: x_msg_count => x_msg_count,
1473: x_msg_data => x_msg_data);
1474: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1475: raise FND_API.G_EXC_ERROR;
1476: END IF;
1477: end if;
1478:
1479:
1478:
1479:
1480: -- validate customer_id
1481: AS_TCA_PVT.validate_party_id(
1482: p_init_msg_list => FND_API.G_FALSE,
1483: p_party_id => p_sales_team_rec.customer_id,
1484: x_return_status => x_return_status,
1485: x_msg_count => x_msg_count,
1486: x_msg_data => x_msg_data);
1483: p_party_id => p_sales_team_rec.customer_id,
1484: x_return_status => x_return_status,
1485: x_msg_count => x_msg_count,
1486: x_msg_data => x_msg_data);
1487: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: raise FND_API.G_EXC_ERROR;
1489: END IF;
1490:
1491: IF(p_sales_team_rec.address_id is not null
1484: x_return_status => x_return_status,
1485: x_msg_count => x_msg_count,
1486: x_msg_data => x_msg_data);
1487: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: raise FND_API.G_EXC_ERROR;
1489: END IF;
1490:
1491: IF(p_sales_team_rec.address_id is not null
1492: and p_sales_team_rec.address_id <> fnd_api.g_miss_num ) then
1488: raise FND_API.G_EXC_ERROR;
1489: END IF;
1490:
1491: IF(p_sales_team_rec.address_id is not null
1492: and p_sales_team_rec.address_id <> fnd_api.g_miss_num ) then
1493: -- validate address_id
1494: AS_TCA_PVT.validate_party_site_id(
1495: p_init_msg_list => FND_API.G_FALSE,
1496: p_party_id => p_sales_team_rec.customer_id,
1491: IF(p_sales_team_rec.address_id is not null
1492: and p_sales_team_rec.address_id <> fnd_api.g_miss_num ) then
1493: -- validate address_id
1494: AS_TCA_PVT.validate_party_site_id(
1495: p_init_msg_list => FND_API.G_FALSE,
1496: p_party_id => p_sales_team_rec.customer_id,
1497: p_party_site_id => p_sales_team_rec.address_id,
1498: x_return_status => x_return_status,
1499: x_msg_count => x_msg_count,
1497: p_party_site_id => p_sales_team_rec.address_id,
1498: x_return_status => x_return_status,
1499: x_msg_count => x_msg_count,
1500: x_msg_data => x_msg_data);
1501: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1502: raise FND_API.G_EXC_ERROR;
1503: END IF;
1504: END IF;
1505:
1498: x_return_status => x_return_status,
1499: x_msg_count => x_msg_count,
1500: x_msg_data => x_msg_data);
1501: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1502: raise FND_API.G_EXC_ERROR;
1503: END IF;
1504: END IF;
1505:
1506:
1504: END IF;
1505:
1506:
1507: IF(p_sales_team_rec.partner_customer_id is not null
1508: and p_sales_team_rec.partner_customer_id <> fnd_api.g_miss_num )
1509: and
1510: (p_sales_team_rec.partner_address_id is not null
1511: and p_sales_team_rec.partner_address_id <> fnd_api.g_miss_num ) then
1512:
1507: IF(p_sales_team_rec.partner_customer_id is not null
1508: and p_sales_team_rec.partner_customer_id <> fnd_api.g_miss_num )
1509: and
1510: (p_sales_team_rec.partner_address_id is not null
1511: and p_sales_team_rec.partner_address_id <> fnd_api.g_miss_num ) then
1512:
1513: validate_partner_party_site_id(
1514: p_init_msg_list => FND_API.G_FALSE,
1515: p_party_id => p_sales_team_rec.partner_customer_id,
1510: (p_sales_team_rec.partner_address_id is not null
1511: and p_sales_team_rec.partner_address_id <> fnd_api.g_miss_num ) then
1512:
1513: validate_partner_party_site_id(
1514: p_init_msg_list => FND_API.G_FALSE,
1515: p_party_id => p_sales_team_rec.partner_customer_id,
1516: p_party_site_id => p_sales_team_rec.partner_address_id,
1517: x_return_status => x_return_status,
1518: x_msg_count => x_msg_count,
1516: p_party_site_id => p_sales_team_rec.partner_address_id,
1517: x_return_status => x_return_status,
1518: x_msg_count => x_msg_count,
1519: x_msg_data => x_msg_data);
1520: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1521: raise FND_API.G_EXC_ERROR;
1522: END IF;
1523: END IF;
1524:
1517: x_return_status => x_return_status,
1518: x_msg_count => x_msg_count,
1519: x_msg_data => x_msg_data);
1520: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1521: raise FND_API.G_EXC_ERROR;
1522: END IF;
1523: END IF;
1524:
1525: if (p_sales_team_rec.partner_customer_id is not null
1522: END IF;
1523: END IF;
1524:
1525: if (p_sales_team_rec.partner_customer_id is not null
1526: and p_sales_team_rec.partner_customer_id <> fnd_api.g_miss_num )
1527: then
1528: validate_partner_party_id(
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_party_id => p_sales_team_rec.partner_customer_id,
1525: if (p_sales_team_rec.partner_customer_id is not null
1526: and p_sales_team_rec.partner_customer_id <> fnd_api.g_miss_num )
1527: then
1528: validate_partner_party_id(
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_party_id => p_sales_team_rec.partner_customer_id,
1531: x_return_status => x_return_status,
1532: x_msg_count => x_msg_count,
1533: x_msg_data => x_msg_data);
1530: p_party_id => p_sales_team_rec.partner_customer_id,
1531: x_return_status => x_return_status,
1532: x_msg_count => x_msg_count,
1533: x_msg_data => x_msg_data);
1534: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1535: raise FND_API.G_EXC_ERROR;
1536: END IF;
1537: end if;
1538:
1531: x_return_status => x_return_status,
1532: x_msg_count => x_msg_count,
1533: x_msg_data => x_msg_data);
1534: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1535: raise FND_API.G_EXC_ERROR;
1536: END IF;
1537: end if;
1538:
1539:
1539:
1540:
1541: -- validate sales_lead_id
1542: if (p_sales_team_rec.sales_lead_id is NOT NULL
1543: and p_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
1544: then
1545: Validate_Sales_Lead_Id (
1546: P_Init_Msg_List => FND_API.G_FALSE
1547: ,P_Sales_Lead_Id => P_sales_team_rec.Sales_Lead_Id
1542: if (p_sales_team_rec.sales_lead_id is NOT NULL
1543: and p_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
1544: then
1545: Validate_Sales_Lead_Id (
1546: P_Init_Msg_List => FND_API.G_FALSE
1547: ,P_Sales_Lead_Id => P_sales_team_rec.Sales_Lead_Id
1548: ,X_Return_Status => X_Return_Status
1549: ,X_Msg_Count => X_Msg_Count
1550: ,X_Msg_Data => X_Msg_Data);
1548: ,X_Return_Status => X_Return_Status
1549: ,X_Msg_Count => X_Msg_Count
1550: ,X_Msg_Data => X_Msg_Data);
1551:
1552: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1553: raise FND_API.G_EXC_ERROR;
1554: END IF;
1555: end if;
1556:
1549: ,X_Msg_Count => X_Msg_Count
1550: ,X_Msg_Data => X_Msg_Data);
1551:
1552: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1553: raise FND_API.G_EXC_ERROR;
1554: END IF;
1555: end if;
1556:
1557: -- validate opportunity_id
1555: end if;
1556:
1557: -- validate opportunity_id
1558: if (p_sales_team_rec.lead_id is NOT NULL
1559: and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
1560: then
1561: Validate_Opportunity_Id (
1562: P_Init_Msg_List => FND_API.G_FALSE
1563: ,P_Lead_Id => p_sales_team_rec.lead_id
1558: if (p_sales_team_rec.lead_id is NOT NULL
1559: and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
1560: then
1561: Validate_Opportunity_Id (
1562: P_Init_Msg_List => FND_API.G_FALSE
1563: ,P_Lead_Id => p_sales_team_rec.lead_id
1564: ,X_Return_Status => X_Return_Status
1565: ,X_Msg_Count => X_Msg_Count
1566: ,X_Msg_Data => X_Msg_Data);
1564: ,X_Return_Status => X_Return_Status
1565: ,X_Msg_Count => X_Msg_Count
1566: ,X_Msg_Data => X_Msg_Data);
1567:
1568: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1569: raise FND_API.G_EXC_ERROR;
1570: END IF;
1571: end if;
1572:
1565: ,X_Msg_Count => X_Msg_Count
1566: ,X_Msg_Data => X_Msg_Data);
1567:
1568: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1569: raise FND_API.G_EXC_ERROR;
1570: END IF;
1571: end if;
1572:
1573:
1574: if not salesTeam_flags_are_valid( l_sales_team_rec )
1575: then
1576: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1577: THEN
1578: x_return_status := fnd_api.g_ret_sts_error;
1579: FND_MESSAGE.Set_Name('AS', 'API_INVALID_INFO');
1580: FND_MESSAGE.Set_Token('ROW', 'AS_ACCESSES', TRUE);
1581: FND_MSG_PUB.ADD;
1582: END IF;
1621:
1622: PROCEDURE Create_SalesTeam
1623: ( p_api_version_number IN NUMBER,
1624: p_init_msg_list IN VARCHAR2
1625: := FND_API.G_FALSE,
1626: p_commit IN VARCHAR2
1627: := FND_API.G_FALSE,
1628: p_validation_level IN NUMBER
1629: := FND_API.G_VALID_LEVEL_FULL,
1623: ( p_api_version_number IN NUMBER,
1624: p_init_msg_list IN VARCHAR2
1625: := FND_API.G_FALSE,
1626: p_commit IN VARCHAR2
1627: := FND_API.G_FALSE,
1628: p_validation_level IN NUMBER
1629: := FND_API.G_VALID_LEVEL_FULL,
1630: p_access_profile_rec IN AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE,
1631: p_check_access_flag IN VARCHAR2,
1625: := FND_API.G_FALSE,
1626: p_commit IN VARCHAR2
1627: := FND_API.G_FALSE,
1628: p_validation_level IN NUMBER
1629: := FND_API.G_VALID_LEVEL_FULL,
1630: p_access_profile_rec IN AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE,
1631: p_check_access_flag IN VARCHAR2,
1632: p_admin_flag IN VARCHAR2,
1633: p_admin_group_id IN NUMBER,
1700: -- Standard Start of API savepoint
1701: SAVEPOINT CREATE_SALESTEAM_PVT;
1702:
1703: -- Standard call to check for call compatibility.
1704: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1705: p_api_version_number,
1706: l_api_name,
1707: G_PKG_NAME)
1708: THEN
1705: p_api_version_number,
1706: l_api_name,
1707: G_PKG_NAME)
1708: THEN
1709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1710: END IF;
1711:
1712:
1713: -- Initialize message list if p_init_msg_list is set to TRUE.
1710: END IF;
1711:
1712:
1713: -- Initialize message list if p_init_msg_list is set to TRUE.
1714: IF FND_API.to_Boolean( p_init_msg_list )
1715: THEN
1716: FND_MSG_PUB.initialize;
1717: END IF;
1718:
1716: FND_MSG_PUB.initialize;
1717: END IF;
1718:
1719: -- Initialize API return status to success
1720: x_return_status := FND_API.G_RET_STS_SUCCESS;
1721: l_return_status := FND_API.G_RET_STS_SUCCESS;
1722: --
1723: -- API body
1724: --
1717: END IF;
1718:
1719: -- Initialize API return status to success
1720: x_return_status := FND_API.G_RET_STS_SUCCESS;
1721: l_return_status := FND_API.G_RET_STS_SUCCESS;
1722: --
1723: -- API body
1724: --
1725:
1733: FND_MESSAGE.Set_Name('AS', 'UT_CANNOT_GET_PROFILE_VALUE');
1734: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1735: FND_MSG_PUB.ADD;
1736: END IF;
1737: RAISE FND_API.G_EXC_ERROR;
1738: END IF;
1739:
1740: if p_validation_level = FND_API.G_VALID_LEVEL_FULL
1741: then
1736: END IF;
1737: RAISE FND_API.G_EXC_ERROR;
1738: END IF;
1739:
1740: if p_validation_level = FND_API.G_VALID_LEVEL_FULL
1741: then
1742:
1743: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
1744: p_api_version_number => 2.0
1748: ,x_msg_count => x_msg_count
1749: ,x_msg_data => x_msg_data
1750: ,x_sales_member_rec => l_identity_sales_member_rec);
1751:
1752: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: END IF;
1755: end if;
1756:
1749: ,x_msg_data => x_msg_data
1750: ,x_sales_member_rec => l_identity_sales_member_rec);
1751:
1752: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: END IF;
1755: end if;
1756:
1757: -- ******************************************************************
1758:
1759: l_sales_team_rec := p_sales_team_rec;
1760:
1761: if l_sales_team_rec.partner_cont_party_id is null
1762: or l_sales_team_rec.partner_cont_party_id = fnd_api.g_miss_num
1763: then
1764: open lc_resource_type (l_sales_team_rec.salesforce_id);
1765: fetch lc_resource_type into l_sales_team_rec.partner_cont_party_id;
1766: close lc_resource_type;
1769: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
1770: THEN
1771: Validate_SalesTeamItems(
1772: p_api_version_number => 2.0,
1773: p_init_msg_list => FND_API.G_FALSE,
1774: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1775: p_sales_team_rec => l_sales_team_rec,
1776: x_return_status => x_return_status,
1777: x_msg_count => x_msg_count,
1770: THEN
1771: Validate_SalesTeamItems(
1772: p_api_version_number => 2.0,
1773: p_init_msg_list => FND_API.G_FALSE,
1774: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1775: p_sales_team_rec => l_sales_team_rec,
1776: x_return_status => x_return_status,
1777: x_msg_count => x_msg_count,
1778: x_msg_data => x_msg_data);
1775: p_sales_team_rec => l_sales_team_rec,
1776: x_return_status => x_return_status,
1777: x_msg_count => x_msg_count,
1778: x_msg_data => x_msg_data);
1779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1780: THEN
1781: RAISE FND_API.G_EXC_ERROR;
1782: END IF;
1783: end if;
1777: x_msg_count => x_msg_count,
1778: x_msg_data => x_msg_data);
1779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1780: THEN
1781: RAISE FND_API.G_EXC_ERROR;
1782: END IF;
1783: end if;
1784:
1785: if p_check_access_flag = 'Y'
1783: end if;
1784:
1785: if p_check_access_flag = 'Y'
1786: then
1787: IF (p_sales_team_rec.lead_id is NULL or p_sales_team_rec.lead_id = FND_API.G_MISS_NUM)
1788: and (p_sales_team_rec.sales_lead_id is NULL or p_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM)
1789: THEN
1790: AS_ACCESS_PUB.has_updateCustomerAccess
1791: ( p_api_version_number => 2.0
1784:
1785: if p_check_access_flag = 'Y'
1786: then
1787: IF (p_sales_team_rec.lead_id is NULL or p_sales_team_rec.lead_id = FND_API.G_MISS_NUM)
1788: and (p_sales_team_rec.sales_lead_id is NULL or p_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM)
1789: THEN
1790: AS_ACCESS_PUB.has_updateCustomerAccess
1791: ( p_api_version_number => 2.0
1792: ,p_init_msg_list => p_init_msg_list
1804: ,x_msg_data => x_msg_data
1805: ,x_update_access_flag => l_update_access_flag
1806: );
1807:
1808: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: END IF;
1811:
1812: IF (l_update_access_flag <> 'Y') THEN
1805: ,x_update_access_flag => l_update_access_flag
1806: );
1807:
1808: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: END IF;
1811:
1812: IF (l_update_access_flag <> 'Y') THEN
1813: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1813: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1814: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
1815: FND_MSG_PUB.ADD;
1816: END IF;
1817: RAISE FND_API.G_EXC_ERROR;
1818: END IF;
1819: ELSIF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
1820: then
1821:
1815: FND_MSG_PUB.ADD;
1816: END IF;
1817: RAISE FND_API.G_EXC_ERROR;
1818: END IF;
1819: ELSIF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
1820: then
1821:
1822: AS_ACCESS_PUB.has_updateOpportunityAccess
1823: ( p_api_version_number => 2.0
1836: ,x_msg_data => x_msg_data
1837: ,x_update_access_flag => l_update_access_flag
1838: );
1839:
1840: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1841: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1842: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
1843: END IF;
1844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1840: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1841: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1842: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
1843: END IF;
1844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1845: END IF;
1846:
1847: IF (l_update_access_flag <> 'Y') THEN
1848: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1848: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1849: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
1850: FND_MSG_PUB.ADD;
1851: END IF;
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854: ELSIF (p_sales_team_rec.sales_lead_id is not NULL and p_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
1855: then
1856: AS_ACCESS_PUB.has_updateLeadAccess
1850: FND_MSG_PUB.ADD;
1851: END IF;
1852: RAISE FND_API.G_EXC_ERROR;
1853: END IF;
1854: ELSIF (p_sales_team_rec.sales_lead_id is not NULL and p_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
1855: then
1856: AS_ACCESS_PUB.has_updateLeadAccess
1857: ( p_api_version_number => 2.0
1858: ,p_init_msg_list => p_init_msg_list
1870: ,x_msg_data => x_msg_data
1871: ,x_update_access_flag => l_update_access_flag
1872: );
1873:
1874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1875: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1876: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
1877: END IF;
1878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1874: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1875: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1876: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
1877: END IF;
1878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1879: END IF;
1880:
1881: IF (l_update_access_flag <> 'Y') THEN
1882: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1882: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1883: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
1884: FND_MSG_PUB.ADD;
1885: END IF;
1886: RAISE FND_API.G_EXC_ERROR;
1887: END IF;
1888: END IF;
1889: end if; -- p_check_access_flag = 'Y'
1890:
1887: END IF;
1888: END IF;
1889: end if; -- p_check_access_flag = 'Y'
1890:
1891: if l_sales_team_rec.address_id = FND_API.G_MISS_NUM then
1892: l_sales_team_rec.address_id := NULL;
1893: end if;
1894: if l_sales_team_rec.lead_id = FND_API.G_MISS_NUM then
1895: l_sales_team_rec.lead_id := NULL;
1890:
1891: if l_sales_team_rec.address_id = FND_API.G_MISS_NUM then
1892: l_sales_team_rec.address_id := NULL;
1893: end if;
1894: if l_sales_team_rec.lead_id = FND_API.G_MISS_NUM then
1895: l_sales_team_rec.lead_id := NULL;
1896: end if;
1897: if l_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM then
1898: l_sales_team_rec.sales_lead_id := NULL;
1893: end if;
1894: if l_sales_team_rec.lead_id = FND_API.G_MISS_NUM then
1895: l_sales_team_rec.lead_id := NULL;
1896: end if;
1897: if l_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM then
1898: l_sales_team_rec.sales_lead_id := NULL;
1899: end if;
1900: if l_sales_team_rec.sales_group_id = FND_API.G_MISS_NUM then
1901: l_sales_team_rec.sales_group_id := NULL;
1896: end if;
1897: if l_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM then
1898: l_sales_team_rec.sales_lead_id := NULL;
1899: end if;
1900: if l_sales_team_rec.sales_group_id = FND_API.G_MISS_NUM then
1901: l_sales_team_rec.sales_group_id := NULL;
1902: end if;
1903:
1904: if l_sales_team_rec.salesforce_role_code = FND_API.G_MISS_CHAR then
1900: if l_sales_team_rec.sales_group_id = FND_API.G_MISS_NUM then
1901: l_sales_team_rec.sales_group_id := NULL;
1902: end if;
1903:
1904: if l_sales_team_rec.salesforce_role_code = FND_API.G_MISS_CHAR then
1905: l_sales_team_rec.salesforce_role_code := NULL;
1906: end if;
1907:
1908: --Owner is always a team leader
1912:
1913:
1914: if duplicate_salesTeam(l_sales_team_rec)
1915: then
1916: x_return_status := FND_API.G_RET_STS_SUCCESS;
1917: -- open get_dup_access_id_csr(l_sales_team_rec);
1918: -- fetch get_dup_access_id_csr into x_access_id;
1919: -- close get_dup_access_id_csr;
1920: return;
1928: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1929: FND_MESSAGE.Set_Token('COLUMN', 'reassign_reason', FALSE);
1930: FND_MSG_PUB.ADD;
1931: END IF;
1932: raise fnd_api.g_exc_error;
1933: end if;
1934:
1935: --if (l_sales_team_rec.sales_lead_id is NOT NULL
1936: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
1932: raise fnd_api.g_exc_error;
1933: end if;
1934:
1935: --if (l_sales_team_rec.sales_lead_id is NOT NULL
1936: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
1937: -- and l_sales_team_rec.owner_flag = 'Y'
1938: -- and p_check_access_flag = 'Y'
1939:
1940: if (l_sales_team_rec.sales_lead_id is NOT NULL
1937: -- and l_sales_team_rec.owner_flag = 'Y'
1938: -- and p_check_access_flag = 'Y'
1939:
1940: if (l_sales_team_rec.sales_lead_id is NOT NULL
1941: and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
1942: and l_sales_team_rec.owner_flag = 'Y'
1943: and fnd_profile.value('AS_ALLOW_CHANGE_LEAD_OWNER')<>'Y'
1944: and p_check_access_flag = 'Y'
1945: then
1960: ,x_msg_data => x_msg_data
1961: ,x_update_access_flag => l_update_access_flag
1962: );
1963:
1964: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1965: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1966: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
1967: END IF;
1968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1964: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1965: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1966: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
1967: END IF;
1968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1969: END IF;
1970:
1971: IF (l_update_access_flag <> 'Y') THEN
1972: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1972: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1973: FND_MESSAGE.Set_Name('AS', 'API_NO_OWNER_PRIVILEGE');
1974: FND_MSG_PUB.ADD;
1975: END IF;
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1978: end if; -- check owner privilege
1979:
1980:
1978: end if; -- check owner privilege
1979:
1980:
1981: if (l_sales_team_rec.lead_id is NOT NULL
1982: and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
1983: and l_sales_team_rec.owner_flag = 'Y'
1984: and fnd_profile.value('AS_ALLOW_CHANGE_OPP_OWNER')<>'Y'
1985: --and p_check_access_flag = 'Y'
1986: then
1999: ,x_return_status => l_return_status
2000: ,x_msg_count => x_msg_count
2001: ,x_msg_data => x_msg_data
2002: ,x_update_access_flag => l_update_access_flag );
2003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2004: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2005: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOppAccess fail');
2006: END IF;
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2004: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2005: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOppAccess fail');
2006: END IF;
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: END IF;
2009:
2010: IF (l_update_access_flag <> 'Y') THEN
2011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2012: FND_MESSAGE.Set_Name('AS', 'API_NO_OPP_OWNER_PRIVILEGE');
2013: FND_MSG_PUB.ADD;
2014: END IF;
2015: RAISE FND_API.G_EXC_ERROR;
2016: END IF;
2017:
2018: end if;
2019:
2036: THEN
2037: FND_MESSAGE.Set_Name('AS','API_NO_ACC_MGR_PRIVILEGE');
2038: FND_MSG_PUB.ADD;
2039: END IF;
2040: RAISE FND_API.G_EXC_ERROR;
2041: end if;
2042: end if;
2043: -- changes made by Jean. for HP security enhancement
2044: --if (l_sales_team_rec.lead_id is NOT NULL
2041: end if;
2042: end if;
2043: -- changes made by Jean. for HP security enhancement
2044: --if (l_sales_team_rec.lead_id is NOT NULL
2045: -- and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2046: -- or (l_sales_team_rec.sales_lead_id is NOT NULL
2047: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
2048: -- then
2049: if l_sales_team_rec.team_leader_flag = 'Y' or l_sales_team_rec.owner_flag = 'Y'
2043: -- changes made by Jean. for HP security enhancement
2044: --if (l_sales_team_rec.lead_id is NOT NULL
2045: -- and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2046: -- or (l_sales_team_rec.sales_lead_id is NOT NULL
2047: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
2048: -- then
2049: if l_sales_team_rec.team_leader_flag = 'Y' or l_sales_team_rec.owner_flag = 'Y'
2050: then
2051: l_internal_update_access := 1;
2053: end if;
2054: -- else l_internal_update_access := 1;
2055: -- end if;
2056: if l_sales_team_rec.freeze_flag is null
2057: or l_sales_team_rec.freeze_flag = fnd_api.g_miss_char
2058: then
2059: l_sales_team_rec.freeze_flag := Nvl(FND_PROFILE.Value('AS_DEFAULT_FREEZE_FLAG'), 'Y');
2060: end if;
2061:
2059: l_sales_team_rec.freeze_flag := Nvl(FND_PROFILE.Value('AS_DEFAULT_FREEZE_FLAG'), 'Y');
2060: end if;
2061:
2062: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.sales_lead_id is NOT NULL
2063: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
2064:
2065: --then
2066: -- unmark_owner_flag(l_sales_team_rec.sales_lead_id);
2067: --end if;
2066: -- unmark_owner_flag(l_sales_team_rec.sales_lead_id);
2067: --end if;
2068:
2069: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.lead_id is NOT NULL
2070: -- and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2071:
2072: --then
2073: -- unmark_opp_owner_flag(l_sales_team_rec.lead_id);
2074: --end if;
2165: end if;
2166:
2167: if is_sales_lead_owner_row(x_access_id)
2168: and (l_sales_team_rec.sales_lead_id is NOT NULL
2169: and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
2170:
2171: then
2172: unmark_owner_flag(l_sales_team_rec.sales_lead_id, x_access_id);
2173: end if;
2173: end if;
2174:
2175: if is_sales_lead_owner_row(x_access_id)
2176: and (l_sales_team_rec.lead_id is NOT NULL
2177: and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2178: then
2179: unmark_opp_owner_flag(l_sales_team_rec.lead_id, x_access_id);
2180: end if;
2181:
2180: end if;
2181:
2182:
2183: -- Standard check of p_commit.
2184: IF FND_API.To_Boolean ( p_commit )
2185: THEN
2186: COMMIT WORK;
2187: END IF;
2188:
2197:
2198: WHEN DUP_VAL_ON_INDEX THEN
2199: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2200: THEN
2201: x_return_status := FND_API.G_RET_STS_SUCCESS;
2202: open get_dup_access_id_csr(l_sales_team_rec);
2203: fetch get_dup_access_id_csr into x_access_id;
2204: close get_dup_access_id_csr;
2205: FND_MESSAGE.Set_Name('AS', 'API_DUP_SALESTEAM');
2206: FND_MSG_PUB.ADD;
2207:
2208: END IF;
2209:
2210: WHEN FND_API.G_EXC_ERROR THEN
2211: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2212: P_MODULE => l_module
2213: ,P_API_NAME => L_API_NAME
2214: ,P_PKG_NAME => G_PKG_NAME
2217: ,X_MSG_COUNT => X_MSG_COUNT
2218: ,X_MSG_DATA => X_MSG_DATA
2219: ,X_RETURN_STATUS => X_RETURN_STATUS);
2220:
2221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2222: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2223: P_MODULE => l_module
2224: ,P_API_NAME => L_API_NAME
2225: ,P_PKG_NAME => G_PKG_NAME
2248:
2249: PROCEDURE Delete_SalesTeam
2250: ( p_api_version_number IN NUMBER,
2251: p_init_msg_list IN VARCHAR2
2252: := FND_API.G_FALSE,
2253: p_commit IN VARCHAR2
2254: := FND_API.G_FALSE,
2255: p_validation_level IN NUMBER
2256: := FND_API.G_VALID_LEVEL_FULL,
2250: ( p_api_version_number IN NUMBER,
2251: p_init_msg_list IN VARCHAR2
2252: := FND_API.G_FALSE,
2253: p_commit IN VARCHAR2
2254: := FND_API.G_FALSE,
2255: p_validation_level IN NUMBER
2256: := FND_API.G_VALID_LEVEL_FULL,
2257: p_access_profile_rec IN AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE,
2258: p_check_access_flag IN VARCHAR2,
2252: := FND_API.G_FALSE,
2253: p_commit IN VARCHAR2
2254: := FND_API.G_FALSE,
2255: p_validation_level IN NUMBER
2256: := FND_API.G_VALID_LEVEL_FULL,
2257: p_access_profile_rec IN AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE,
2258: p_check_access_flag IN VARCHAR2,
2259: p_admin_flag IN VARCHAR2,
2260: p_admin_group_id IN NUMBER,
2285: -- Standard Start of API savepoint
2286: SAVEPOINT DELETE_SALESTEAM_PVT;
2287:
2288: -- Standard call to check for call compatibility.
2289: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2290: p_api_version_number,
2291: l_api_name,
2292: G_PKG_NAME)
2293: THEN
2290: p_api_version_number,
2291: l_api_name,
2292: G_PKG_NAME)
2293: THEN
2294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2295: END IF;
2296:
2297:
2298: -- Initialize message list if p_init_msg_list is set to TRUE.
2295: END IF;
2296:
2297:
2298: -- Initialize message list if p_init_msg_list is set to TRUE.
2299: IF FND_API.to_Boolean( p_init_msg_list )
2300: THEN
2301: FND_MSG_PUB.initialize;
2302: END IF;
2303:
2301: FND_MSG_PUB.initialize;
2302: END IF;
2303:
2304: -- Initialize API return status to success
2305: x_return_status := FND_API.G_RET_STS_SUCCESS;
2306: l_return_status := FND_API.G_RET_STS_SUCCESS;
2307: --
2308: -- API body
2309: --
2302: END IF;
2303:
2304: -- Initialize API return status to success
2305: x_return_status := FND_API.G_RET_STS_SUCCESS;
2306: l_return_status := FND_API.G_RET_STS_SUCCESS;
2307: --
2308: -- API body
2309: --
2310:
2318: FND_MESSAGE.Set_Name('AS', 'UT_CANNOT_GET_PROFILE_VALUE');
2319: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2320: FND_MSG_PUB.ADD;
2321: END IF;
2322: RAISE FND_API.G_EXC_ERROR;
2323: END IF;
2324:
2325: if p_validation_level = FND_API.G_VALID_LEVEL_FULL
2326: then
2321: END IF;
2322: RAISE FND_API.G_EXC_ERROR;
2323: END IF;
2324:
2325: if p_validation_level = FND_API.G_VALID_LEVEL_FULL
2326: then
2327:
2328: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
2329: p_api_version_number => 2.0
2333: ,x_msg_count => x_msg_count
2334: ,x_msg_data => x_msg_data
2335: ,x_sales_member_rec => l_identity_sales_member_rec);
2336:
2337: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: END IF;
2340: end if;
2341:
2334: ,x_msg_data => x_msg_data
2335: ,x_sales_member_rec => l_identity_sales_member_rec);
2336:
2337: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2338: RAISE FND_API.G_EXC_ERROR;
2339: END IF;
2340: end if;
2341:
2342:
2364: fnd_message.set_token('VALUE', p_sales_team_rec.access_id, FALSE);
2365: FND_MSG_PUB.ADD;
2366: END IF;
2367: close get_access_info_csr;
2368: raise FND_API.G_EXC_ERROR;
2369: End if;
2370:
2371: if p_check_access_flag = 'Y'
2372: then
2369: End if;
2370:
2371: if p_check_access_flag = 'Y'
2372: then
2373: IF (p_sales_team_rec.lead_id is NULL or p_sales_team_rec.lead_id = FND_API.G_MISS_NUM)
2374: and (p_sales_team_rec.sales_lead_id is NULL or p_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM)
2375: THEN
2376: AS_ACCESS_PUB.has_updateCustomerAccess
2377: ( p_api_version_number => 2.0
2370:
2371: if p_check_access_flag = 'Y'
2372: then
2373: IF (p_sales_team_rec.lead_id is NULL or p_sales_team_rec.lead_id = FND_API.G_MISS_NUM)
2374: and (p_sales_team_rec.sales_lead_id is NULL or p_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM)
2375: THEN
2376: AS_ACCESS_PUB.has_updateCustomerAccess
2377: ( p_api_version_number => 2.0
2378: ,p_init_msg_list => p_init_msg_list
2390: ,x_msg_data => x_msg_data
2391: ,x_update_access_flag => l_update_access_flag
2392: );
2393:
2394: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2396: END IF;
2397:
2398: IF (l_update_access_flag <> 'Y') THEN
2391: ,x_update_access_flag => l_update_access_flag
2392: );
2393:
2394: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2396: END IF;
2397:
2398: IF (l_update_access_flag <> 'Y') THEN
2399: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2399: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2400: FND_MESSAGE.Set_Name('AS', 'API_NO_DELETE_PRIVILEGE');
2401: FND_MSG_PUB.ADD;
2402: END IF;
2403: RAISE FND_API.G_EXC_ERROR;
2404: END IF;
2405: ELSIF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2406: then
2407:
2401: FND_MSG_PUB.ADD;
2402: END IF;
2403: RAISE FND_API.G_EXC_ERROR;
2404: END IF;
2405: ELSIF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2406: then
2407:
2408: AS_ACCESS_PUB.has_updateOpportunityAccess
2409: ( p_api_version_number => 2.0
2422: ,x_msg_data => x_msg_data
2423: ,x_update_access_flag => l_update_access_flag
2424: );
2425:
2426: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2427: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2428: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
2429: END IF;
2430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2426: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2427: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2428: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
2429: END IF;
2430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2431: END IF;
2432:
2433: IF (l_update_access_flag <> 'Y') THEN
2434: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2434: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2435: FND_MESSAGE.Set_Name('AS', 'API_NO_DELETE_PRIVILEGE');
2436: FND_MSG_PUB.ADD;
2437: END IF;
2438: RAISE FND_API.G_EXC_ERROR;
2439: END IF;
2440:
2441: ELSIF (p_sales_team_rec.sales_lead_id is not NULL and p_sales_team_rec.sales_lead_id <>FND_API.G_MISS_NUM)
2442: then
2437: END IF;
2438: RAISE FND_API.G_EXC_ERROR;
2439: END IF;
2440:
2441: ELSIF (p_sales_team_rec.sales_lead_id is not NULL and p_sales_team_rec.sales_lead_id <>FND_API.G_MISS_NUM)
2442: then
2443: has_updateLeadAccess
2444: ( p_api_version_number => 2.0
2445: ,p_init_msg_list => p_init_msg_list
2457: ,x_msg_data => x_msg_data
2458: ,x_update_access_flag => l_update_access_flag
2459: );
2460:
2461: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2462: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2463: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
2464: END IF;
2465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2462: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2463: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
2464: END IF;
2465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2466: END IF;
2467:
2468: IF (l_update_access_flag <> 'Y') THEN
2469: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2469: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2470: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
2471: FND_MSG_PUB.ADD;
2472: END IF;
2473: RAISE FND_API.G_EXC_ERROR;
2474: END IF;
2475: --end if; -- owner check
2476: END IF;
2477: end if; -- p_check_access_flag = 'Y'
2475: --end if; -- owner check
2476: END IF;
2477: end if; -- p_check_access_flag = 'Y'
2478:
2479: IF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2480: then
2481: if is_sales_lead_owner_row(p_sales_team_rec.access_id)
2482: then -- only owner can delete owner row
2483: has_oppOwnerAccess
2497: ,x_msg_data => x_msg_data
2498: ,x_update_access_flag => l_update_access_flag
2499: );
2500:
2501: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2502: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2503: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOppAccess fail');
2504: END IF;
2505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2501: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2502: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2503: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOppAccess fail');
2504: END IF;
2505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2506: END IF;
2507:
2508: IF (l_update_access_flag <> 'Y') THEN
2509: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2509: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2510: FND_MESSAGE.Set_Name('AS', 'API_NO_OPP_OWNER_PRIVILEGE');
2511: FND_MSG_PUB.ADD;
2512: END IF;
2513: RAISE FND_API.G_EXC_ERROR;
2514: END IF;
2515: end if; -- is_sales_lead_owner_row(p_sales_team_rec.access_id)
2516: END IF;
2517:
2514: END IF;
2515: end if; -- is_sales_lead_owner_row(p_sales_team_rec.access_id)
2516: END IF;
2517:
2518: IF (p_sales_team_rec.sales_lead_id is not NULL and p_sales_team_rec.sales_lead_id <>FND_API.G_MISS_NUM)
2519: then
2520: if is_sales_lead_owner_row(p_sales_team_rec.access_id)
2521: then -- only owner can delete owner row
2522: has_leadOwnerAccess
2536: ,x_msg_data => x_msg_data
2537: ,x_update_access_flag => l_update_access_flag
2538: );
2539:
2540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2541: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2542: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
2543: END IF;
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2541: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2542: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
2543: END IF;
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546:
2547: IF (l_update_access_flag <> 'Y') THEN
2548: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2548: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2549: FND_MESSAGE.Set_Name('AS', 'API_NO_OWNER_PRIVILEGE');
2550: FND_MSG_PUB.ADD;
2551: END IF;
2552: RAISE FND_API.G_EXC_ERROR;
2553: END IF;
2554: end if;
2555: END IF;
2556:
2568: -- End of API body.
2569: --
2570:
2571: -- Standard check of p_commit.
2572: IF FND_API.To_Boolean ( p_commit )
2573: THEN
2574: COMMIT WORK;
2575: END IF;
2576:
2580: p_data => x_msg_data
2581: );
2582:
2583: EXCEPTION
2584: WHEN FND_API.G_EXC_ERROR THEN
2585: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2586: P_MODULE => l_module
2587: ,P_API_NAME => L_API_NAME
2588: ,P_PKG_NAME => G_PKG_NAME
2591: ,X_MSG_COUNT => X_MSG_COUNT
2592: ,X_MSG_DATA => X_MSG_DATA
2593: ,X_RETURN_STATUS => X_RETURN_STATUS);
2594:
2595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2596: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2597: P_MODULE => l_module
2598: ,P_API_NAME => L_API_NAME
2599: ,P_PKG_NAME => G_PKG_NAME
2621:
2622: PROCEDURE Update_SalesTeam
2623: ( p_api_version_number IN NUMBER,
2624: p_init_msg_list IN VARCHAR2
2625: := FND_API.G_FALSE,
2626: p_commit IN VARCHAR2
2627: := FND_API.G_FALSE,
2628: p_validation_level IN NUMBER
2629: := FND_API.G_VALID_LEVEL_FULL,
2623: ( p_api_version_number IN NUMBER,
2624: p_init_msg_list IN VARCHAR2
2625: := FND_API.G_FALSE,
2626: p_commit IN VARCHAR2
2627: := FND_API.G_FALSE,
2628: p_validation_level IN NUMBER
2629: := FND_API.G_VALID_LEVEL_FULL,
2630: p_access_profile_rec IN AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE,
2631: p_check_access_flag IN VARCHAR2,
2625: := FND_API.G_FALSE,
2626: p_commit IN VARCHAR2
2627: := FND_API.G_FALSE,
2628: p_validation_level IN NUMBER
2629: := FND_API.G_VALID_LEVEL_FULL,
2630: p_access_profile_rec IN AS_ACCESS_PUB.ACCESS_PROFILE_REC_TYPE,
2631: p_check_access_flag IN VARCHAR2,
2632: p_admin_flag IN VARCHAR2,
2633: p_admin_group_id IN NUMBER,
2676: -- Standard Start of API savepoint
2677: SAVEPOINT UPDATE_SALESTEAM_PVT;
2678:
2679: -- Standard call to check for call compatibility.
2680: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2681: p_api_version_number,
2682: l_api_name,
2683: G_PKG_NAME)
2684: THEN
2681: p_api_version_number,
2682: l_api_name,
2683: G_PKG_NAME)
2684: THEN
2685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2686: END IF;
2687:
2688:
2689: -- Initialize message list if p_init_msg_list is set to TRUE.
2686: END IF;
2687:
2688:
2689: -- Initialize message list if p_init_msg_list is set to TRUE.
2690: IF FND_API.to_Boolean( p_init_msg_list )
2691: THEN
2692: FND_MSG_PUB.initialize;
2693: END IF;
2694:
2692: FND_MSG_PUB.initialize;
2693: END IF;
2694:
2695: -- Initialize API return status to success
2696: x_return_status := FND_API.G_RET_STS_SUCCESS;
2697: l_return_status := FND_API.G_RET_STS_SUCCESS;
2698: --
2699: -- API body
2700: --
2693: END IF;
2694:
2695: -- Initialize API return status to success
2696: x_return_status := FND_API.G_RET_STS_SUCCESS;
2697: l_return_status := FND_API.G_RET_STS_SUCCESS;
2698: --
2699: -- API body
2700: --
2701:
2709: FND_MESSAGE.Set_Name('AS', 'UT_CANNOT_GET_PROFILE_VALUE');
2710: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2711: FND_MSG_PUB.ADD;
2712: END IF;
2713: RAISE FND_API.G_EXC_ERROR;
2714: END IF;
2715:
2716: if p_validation_level = FND_API.G_VALID_LEVEL_FULL
2717: then
2712: END IF;
2713: RAISE FND_API.G_EXC_ERROR;
2714: END IF;
2715:
2716: if p_validation_level = FND_API.G_VALID_LEVEL_FULL
2717: then
2718:
2719: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
2720: p_api_version_number => 2.0
2724: ,x_msg_count => x_msg_count
2725: ,x_msg_data => x_msg_data
2726: ,x_sales_member_rec => l_identity_sales_member_rec);
2727:
2728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2729: RAISE FND_API.G_EXC_ERROR;
2730: END IF;
2731: end if;
2732:
2725: ,x_msg_data => x_msg_data
2726: ,x_sales_member_rec => l_identity_sales_member_rec);
2727:
2728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2729: RAISE FND_API.G_EXC_ERROR;
2730: END IF;
2731: end if;
2732:
2733:
2749: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
2750: THEN
2751: Validate_SalesTeamItems(
2752: p_api_version_number => 2.0,
2753: p_init_msg_list => FND_API.G_FALSE,
2754: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2755: p_sales_team_rec => l_sales_team_rec,
2756: x_return_status => x_return_status,
2757: x_msg_count => x_msg_count,
2750: THEN
2751: Validate_SalesTeamItems(
2752: p_api_version_number => 2.0,
2753: p_init_msg_list => FND_API.G_FALSE,
2754: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2755: p_sales_team_rec => l_sales_team_rec,
2756: x_return_status => x_return_status,
2757: x_msg_count => x_msg_count,
2758: x_msg_data => x_msg_data);
2756: x_return_status => x_return_status,
2757: x_msg_count => x_msg_count,
2758: x_msg_data => x_msg_data);
2759:
2760: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2761: THEN
2762: RAISE FND_API.G_EXC_ERROR;
2763: END IF;
2764: end if;
2758: x_msg_data => x_msg_data);
2759:
2760: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2761: THEN
2762: RAISE FND_API.G_EXC_ERROR;
2763: END IF;
2764: end if;
2765:
2766: if p_check_access_flag = 'Y'
2764: end if;
2765:
2766: if p_check_access_flag = 'Y'
2767: then
2768: IF (p_sales_team_rec.lead_id is NULL or p_sales_team_rec.lead_id = FND_API.G_MISS_NUM)
2769: and (p_sales_team_rec.sales_lead_id is NULL or p_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM)
2770: THEN
2771: AS_ACCESS_PUB.has_updateCustomerAccess
2772: ( p_api_version_number => 2.0
2765:
2766: if p_check_access_flag = 'Y'
2767: then
2768: IF (p_sales_team_rec.lead_id is NULL or p_sales_team_rec.lead_id = FND_API.G_MISS_NUM)
2769: and (p_sales_team_rec.sales_lead_id is NULL or p_sales_team_rec.sales_lead_id = FND_API.G_MISS_NUM)
2770: THEN
2771: AS_ACCESS_PUB.has_updateCustomerAccess
2772: ( p_api_version_number => 2.0
2773: ,p_init_msg_list => p_init_msg_list
2785: ,x_msg_data => x_msg_data
2786: ,x_update_access_flag => l_update_access_flag
2787: );
2788:
2789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2791: END IF;
2792:
2793: IF (l_update_access_flag <> 'Y') THEN
2786: ,x_update_access_flag => l_update_access_flag
2787: );
2788:
2789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2791: END IF;
2792:
2793: IF (l_update_access_flag <> 'Y') THEN
2794: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2794: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2795: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
2796: FND_MSG_PUB.ADD;
2797: END IF;
2798: RAISE FND_API.G_EXC_ERROR;
2799: END IF;
2800: ELSIF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2801: then
2802: AS_ACCESS_PUB.has_updateOpportunityAccess
2796: FND_MSG_PUB.ADD;
2797: END IF;
2798: RAISE FND_API.G_EXC_ERROR;
2799: END IF;
2800: ELSIF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2801: then
2802: AS_ACCESS_PUB.has_updateOpportunityAccess
2803: ( p_api_version_number => 2.0
2804: ,p_init_msg_list => p_init_msg_list
2816: ,x_msg_data => x_msg_data
2817: ,x_update_access_flag => l_update_access_flag
2818: );
2819:
2820: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2822: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
2823: END IF;
2824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2820: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2822: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOpportunityAccess fail');
2823: END IF;
2824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2825: END IF;
2826:
2827: IF (l_update_access_flag <> 'Y') THEN
2828: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2828: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2829: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
2830: FND_MSG_PUB.ADD;
2831: END IF;
2832: RAISE FND_API.G_EXC_ERROR;
2833: END IF;
2834: ELSIF (p_sales_team_rec.sales_lead_id is not NULL and p_sales_team_rec.sales_lead_id <>FND_API.G_MISS_NUM)
2835: then
2836: AS_ACCESS_PUB.has_updateLeadAccess
2830: FND_MSG_PUB.ADD;
2831: END IF;
2832: RAISE FND_API.G_EXC_ERROR;
2833: END IF;
2834: ELSIF (p_sales_team_rec.sales_lead_id is not NULL and p_sales_team_rec.sales_lead_id <>FND_API.G_MISS_NUM)
2835: then
2836: AS_ACCESS_PUB.has_updateLeadAccess
2837: ( p_api_version_number => 2.0
2838: ,p_init_msg_list => p_init_msg_list
2850: ,x_msg_data => x_msg_data
2851: ,x_update_access_flag => l_update_access_flag
2852: );
2853:
2854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2855: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2856: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
2857: END IF;
2858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2854: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2855: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2856: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
2857: END IF;
2858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2859: END IF;
2860:
2861: IF (l_update_access_flag <> 'Y') THEN
2862: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2862: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2863: FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
2864: FND_MSG_PUB.ADD;
2865: END IF;
2866: RAISE FND_API.G_EXC_ERROR;
2867: END IF;
2868: END IF;
2869: end if; -- p_check_access_flag = 'Y'
2870:
2867: END IF;
2868: END IF;
2869: end if; -- p_check_access_flag = 'Y'
2870:
2871: IF (p_sales_team_rec.lead_id is not NULL and p_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
2872: then
2873: open get_owner_flag (l_sales_team_rec.access_id);
2874: fetch get_owner_flag into l_owner_flag;
2875: close get_owner_flag;
2882: 'l_sales_team_rec.owner_flag: ' || nvl(l_sales_team_rec.owner_flag, 'N') || '');
2883: END IF;
2884:
2885:
2886: if( l_sales_team_rec.owner_flag <>FND_API.G_MISS_CHAR and (nvl(l_owner_flag, 'N') <> nvl(l_sales_team_rec.owner_flag, 'N')))
2887: then
2888: has_oppOwnerAccess
2889: ( p_api_version_number => 2.0
2890: ,p_init_msg_list => p_init_msg_list
2900: ,x_return_status => l_return_status
2901: ,x_msg_count => x_msg_count
2902: ,x_msg_data => x_msg_data
2903: ,x_update_access_flag => l_update_access_flag );
2904: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2905: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2906: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOppAccess fail');
2907: END IF;
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2904: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2905: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2906: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateOppAccess fail');
2907: END IF;
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2910:
2911: IF (l_update_access_flag <> 'Y') THEN
2912: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2912: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2913: FND_MESSAGE.Set_Name('AS', 'API_NO_OPP_OWNER_PRIVILEGE');
2914: FND_MSG_PUB.ADD;
2915: END IF;
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: end if; --(nvl(l_owner_flag, 'N') <> nvl(l_sales_team_rec.owner_flag, 'N'))
2920:
2925: fetch get_salesTeam_info_csr into l_rowid, l_last_update_date;
2926: close get_salesTeam_info_csr;
2927:
2928: if (l_sales_team_rec.last_update_date is NULL
2929: or l_sales_team_rec.last_update_date = FND_API.G_MISS_DATE)
2930: then
2931: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2932: THEN
2933: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
2933: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
2934: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
2935: FND_MSG_PUB.ADD;
2936: END IF;
2937: RAISE FND_API.G_EXC_ERROR;
2938: end if;
2939: if (l_last_update_date <> l_sales_team_rec.last_update_date)
2940: then
2941: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2943: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
2944: FND_MESSAGE.Set_Token('INFO', 'AS_ACCESSES', FALSE);
2945: FND_MSG_PUB.ADD;
2946: END IF;
2947: RAISE FND_API.G_EXC_ERROR;
2948: end if;
2949:
2950: --if (l_sales_team_rec.lead_id is NOT NULL)
2951: -- and (l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM) then
2947: RAISE FND_API.G_EXC_ERROR;
2948: end if;
2949:
2950: --if (l_sales_team_rec.lead_id is NOT NULL)
2951: -- and (l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM) then
2952: if l_sales_team_rec.team_leader_flag = 'Y'
2953: then
2954: l_internal_update_access := 1;
2955: else l_internal_update_access := 0;
2957: --else l_internal_update_access := 1;
2958: --end if;
2959:
2960: --if (l_sales_team_rec.sales_lead_id is NOT NULL
2961: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
2962: -- and l_sales_team_rec.owner_flag = 'Y'
2963: -- and p_check_access_flag = 'Y'
2964: -- and fnd_profile.value('AS_ALLOW_CHANGE_LEAD_OWNER')<>'Y'
2965:
2963: -- and p_check_access_flag = 'Y'
2964: -- and fnd_profile.value('AS_ALLOW_CHANGE_LEAD_OWNER')<>'Y'
2965:
2966: if (l_sales_team_rec.sales_lead_id is NOT NULL
2967: and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
2968: and l_sales_team_rec.owner_flag = 'Y'
2969: and fnd_profile.value('AS_ALLOW_CHANGE_LEAD_OWNER')<>'Y'
2970:
2971: then
2999: ,x_msg_data => x_msg_data
3000: ,x_update_access_flag => l_update_access_flag
3001: );
3002:
3003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3004: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
3005: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
3006: END IF;
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3004: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
3005: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'has_updateLeadAccess fail');
3006: END IF;
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009:
3010: IF (l_update_access_flag <> 'Y') THEN
3011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3012: FND_MESSAGE.Set_Name('AS', 'API_NO_OWNER_PRIVILEGE');
3013: FND_MSG_PUB.ADD;
3014: END IF;
3015: RAISE FND_API.G_EXC_ERROR;
3016: END IF;
3017: end if;
3018: end if;
3019:
3040: THEN
3041: FND_MESSAGE.Set_Name('AS','API_NO_ACC_MGR_PRIVILEGE');
3042: FND_MSG_PUB.ADD;
3043: END IF;
3044: RAISE FND_API.G_EXC_ERROR;
3045: end if;
3046: end if;
3047:
3048: if l_sales_team_rec.reassign_flag = 'Y'
3046: end if;
3047:
3048: if l_sales_team_rec.reassign_flag = 'Y'
3049: and (l_sales_team_rec.reassign_reason is null
3050: or l_sales_team_rec.reassign_reason = fnd_api.g_miss_char)
3051: then
3052: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3053: THEN
3054: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
3054: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
3055: FND_MESSAGE.Set_Token('COLUMN', 'reassign_reason', FALSE);
3056: FND_MSG_PUB.ADD;
3057: END IF;
3058: raise fnd_api.g_exc_error;
3059: end if;
3060: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.sales_lead_id is NOT NULL
3061: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
3062:
3057: END IF;
3058: raise fnd_api.g_exc_error;
3059: end if;
3060: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.sales_lead_id is NOT NULL
3061: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
3062:
3063: --then
3064: -- unmark_owner_flag(l_sales_team_rec.sales_lead_id);
3065: --end if;
3064: -- unmark_owner_flag(l_sales_team_rec.sales_lead_id);
3065: --end if;
3066:
3067: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.lead_id is NOT NULL
3068: -- and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
3069:
3070: --then
3071: -- unmark_opp_owner_flag(l_sales_team_rec.lead_id);
3072: --end if;
3077: then
3078: l_sales_team_rec.team_leader_flag :='Y';
3079: end if;
3080:
3081: if l_sales_team_rec.owner_flag <> 'Y' and (l_sales_team_rec.lead_id is NOT NULL and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
3082: then
3083: l_sales_team_rec.owner_flag := FND_API.G_MISS_CHAR;
3084: end if;
3085:
3079: end if;
3080:
3081: if l_sales_team_rec.owner_flag <> 'Y' and (l_sales_team_rec.lead_id is NOT NULL and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
3082: then
3083: l_sales_team_rec.owner_flag := FND_API.G_MISS_CHAR;
3084: end if;
3085:
3086:
3087: as_accesses_pkg.update_row(
3146: end if;
3147:
3148: if is_sales_lead_owner_row(x_access_id)
3149: and (l_sales_team_rec.sales_lead_id is NOT NULL
3150: and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
3151:
3152: then
3153: unmark_owner_flag(l_sales_team_rec.sales_lead_id, x_access_id);
3154: end if;
3154: end if;
3155:
3156: if is_sales_lead_owner_row(x_access_id)
3157: and (l_sales_team_rec.lead_id is NOT NULL
3158: and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
3159: then
3160: unmark_opp_owner_flag(l_sales_team_rec.lead_id, x_access_id);
3161: end if;
3162:
3160: unmark_opp_owner_flag(l_sales_team_rec.lead_id, x_access_id);
3161: end if;
3162:
3163: -- Standard check of p_commit.
3164: IF FND_API.To_Boolean ( p_commit )
3165: THEN
3166: COMMIT WORK;
3167: END IF;
3168:
3179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3180: THEN
3181: FND_MESSAGE.Set_Name('AS', 'API_DUP_SALESTEAM');
3182: FND_MSG_PUB.ADD;
3183: x_return_status := FND_API.G_RET_STS_ERROR ;
3184: END IF;
3185:
3186:
3187: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
3185:
3186:
3187: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
3188: ROLLBACK TO UPDATE_SALESTEAM_PVT;
3189: x_return_status := FND_API.G_RET_STS_ERROR ;
3190:
3191: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3192: THEN
3193: FND_MESSAGE.Set_Name('AS', 'API_CANNOT_RESERVE_RECORD');
3194: FND_MESSAGE.Set_Token('INFO', 'UPDATE_SALESTEAM', FALSE);
3195: FND_MSG_PUB.Add;
3196: END IF;
3197:
3198: WHEN FND_API.G_EXC_ERROR THEN
3199: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3200: P_MODULE => l_module
3201: ,P_API_NAME => L_API_NAME
3202: ,P_PKG_NAME => G_PKG_NAME
3205: ,X_MSG_COUNT => X_MSG_COUNT
3206: ,X_MSG_DATA => X_MSG_DATA
3207: ,X_RETURN_STATUS => X_RETURN_STATUS);
3208:
3209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3210: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3211: P_MODULE => l_module
3212: ,P_API_NAME => L_API_NAME
3213: ,P_PKG_NAME => G_PKG_NAME
3558:
3559:
3560: procedure has_viewCustomerAccess
3561: ( p_api_version_number IN NUMBER
3562: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3563: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3564: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3565: ,p_admin_flag IN VARCHAR2
3566: ,p_admin_group_id IN NUMBER
3559:
3560: procedure has_viewCustomerAccess
3561: ( p_api_version_number IN NUMBER
3562: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3563: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3564: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3565: ,p_admin_flag IN VARCHAR2
3566: ,p_admin_group_id IN NUMBER
3567: ,p_person_id IN NUMBER
3610:
3611: begin
3612:
3613: -- Standard call to check for call compatibility.
3614: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3615: p_api_version_number,
3616: l_api_name,
3617: G_PKG_NAME)
3618: THEN
3615: p_api_version_number,
3616: l_api_name,
3617: G_PKG_NAME)
3618: THEN
3619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3620: END IF;
3621:
3622: -- Initialize message list if p_init_msg_list is set to TRUE.
3623: IF FND_API.to_Boolean( p_init_msg_list )
3619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3620: END IF;
3621:
3622: -- Initialize message list if p_init_msg_list is set to TRUE.
3623: IF FND_API.to_Boolean( p_init_msg_list )
3624: THEN
3625: FND_MSG_PUB.initialize;
3626: END IF;
3627:
3634: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
3635: END IF;
3636:
3637: -- Initialize API return status to SUCCESS
3638: x_return_status := FND_API.G_RET_STS_SUCCESS;
3639:
3640: IF l_debug THEN
3641: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3642: 'customer_id: ' || p_customer_id);
3655: x_view_access_flag := 'Y';
3656: else -- if p_check_access_flag = 'Y'
3657: --partner security checking. Return point
3658: if p_partner_cont_party_id is not null
3659: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
3660: then
3661: open resource_access_csr;
3662: fetch resource_access_csr into l_tmp;
3663: if (resource_access_csr%FOUND)
3668: end if;
3669: close resource_access_csr;
3670: end if;
3671: /*
3672: if p_person_id is null or p_person_id = fnd_api.g_miss_num
3673: then
3674: get_person_id(p_identity_salesforce_id, l_person_id);
3675: else
3676: l_person_id := p_person_id;
3738: p_data => x_msg_data
3739: );
3740:
3741: EXCEPTION
3742: WHEN FND_API.G_EXC_ERROR THEN
3743: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3744: P_MODULE => l_module
3745: ,P_API_NAME => L_API_NAME
3746: ,P_PKG_NAME => G_PKG_NAME
3750: ,X_MSG_COUNT => X_MSG_COUNT
3751: ,X_MSG_DATA => X_MSG_DATA
3752: ,X_RETURN_STATUS => X_RETURN_STATUS);
3753:
3754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3755: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3756: P_MODULE => l_module
3757: ,P_API_NAME => L_API_NAME
3758: ,P_PKG_NAME => G_PKG_NAME
3780: end has_viewCustomerAccess;
3781:
3782: procedure has_updateCustomerAccess
3783: ( p_api_version_number IN NUMBER
3784: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3785: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3786: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3787: ,p_admin_flag IN VARCHAR2
3788: ,p_admin_group_id IN NUMBER
3781:
3782: procedure has_updateCustomerAccess
3783: ( p_api_version_number IN NUMBER
3784: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3785: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3786: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3787: ,p_admin_flag IN VARCHAR2
3788: ,p_admin_group_id IN NUMBER
3789: ,p_person_id IN NUMBER
3869: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_updateCustomerAccess';
3870:
3871: begin
3872: -- Standard call to check for call compatibility.
3873: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3874: p_api_version_number,
3875: l_api_name,
3876: G_PKG_NAME)
3877: THEN
3874: p_api_version_number,
3875: l_api_name,
3876: G_PKG_NAME)
3877: THEN
3878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3879: END IF;
3880:
3881: -- Initialize message list if p_init_msg_list is set to TRUE.
3882: IF FND_API.to_Boolean( p_init_msg_list )
3878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3879: END IF;
3880:
3881: -- Initialize message list if p_init_msg_list is set to TRUE.
3882: IF FND_API.to_Boolean( p_init_msg_list )
3883: THEN
3884: FND_MSG_PUB.initialize;
3885: END IF;
3886:
3893: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
3894: END IF;
3895:
3896: -- Initialize API return status to SUCCESS
3897: x_return_status := FND_API.G_RET_STS_SUCCESS;
3898:
3899: IF l_debug THEN
3900: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3901: 'customer_id: ' || p_customer_id);
3917: else -- if p_check_access_flag = 'Y'
3918: open resource_access_csr;
3919: fetch resource_access_csr into l_tmp;
3920: if p_partner_cont_party_id is not null
3921: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
3922: then
3923: if (resource_access_csr%FOUND)
3924: then
3925: x_update_access_flag := 'Y';
3927: return;
3928: end if;
3929: end if;
3930: /*
3931: if p_person_id is null or p_person_id = fnd_api.g_miss_num
3932: then
3933: get_person_id(p_identity_salesforce_id, l_person_id);
3934: else
3935: l_person_id := p_person_id;
4027: p_data => x_msg_data
4028: );
4029:
4030: EXCEPTION
4031: WHEN FND_API.G_EXC_ERROR THEN
4032: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4033: P_MODULE => l_module
4034: ,P_API_NAME => L_API_NAME
4035: ,P_PKG_NAME => G_PKG_NAME
4039: ,X_MSG_COUNT => X_MSG_COUNT
4040: ,X_MSG_DATA => X_MSG_DATA
4041: ,X_RETURN_STATUS => X_RETURN_STATUS);
4042:
4043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4044: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4045: P_MODULE => l_module
4046: ,P_API_NAME => L_API_NAME
4047: ,P_PKG_NAME => G_PKG_NAME
4070:
4071:
4072: procedure has_updateLeadAccess
4073: ( p_api_version_number IN NUMBER
4074: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4075: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4076: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4077: ,p_admin_flag IN VARCHAR2
4078: ,p_admin_group_id IN NUMBER
4071:
4072: procedure has_updateLeadAccess
4073: ( p_api_version_number IN NUMBER
4074: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4075: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4076: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4077: ,p_admin_flag IN VARCHAR2
4078: ,p_admin_group_id IN NUMBER
4079: ,p_person_id IN NUMBER
4165: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4166: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_updateLeadAccess';
4167: begin
4168: -- Standard call to check for call compatibility.
4169: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4170: p_api_version_number,
4171: l_api_name,
4172: G_PKG_NAME)
4173: THEN
4170: p_api_version_number,
4171: l_api_name,
4172: G_PKG_NAME)
4173: THEN
4174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4175: END IF;
4176:
4177: -- Initialize message list if p_init_msg_list is set to TRUE.
4178: IF FND_API.to_Boolean( p_init_msg_list )
4174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4175: END IF;
4176:
4177: -- Initialize message list if p_init_msg_list is set to TRUE.
4178: IF FND_API.to_Boolean( p_init_msg_list )
4179: THEN
4180: FND_MSG_PUB.initialize;
4181: END IF;
4182:
4189: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
4190: END IF;
4191:
4192: -- Initialize API return status to SUCCESS
4193: x_return_status := FND_API.G_RET_STS_SUCCESS;
4194:
4195: IF l_debug THEN
4196: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4197: 'p_sales_lead_id: ' || p_sales_lead_id);
4215: -- PRM security
4216: open resource_access_csr;
4217: fetch resource_access_csr into l_tmp;
4218: /* if p_partner_cont_party_id is not null
4219: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
4220: then
4221: if (resource_access_csr%FOUND)
4222: then
4223: x_update_access_flag := 'Y';
4225: return;
4226: end if;
4227: end if; */
4228: /*
4229: if p_person_id is null or p_person_id = fnd_api.g_miss_num
4230: then
4231: get_person_id(p_identity_salesforce_id, l_person_id);
4232: else
4233: l_person_id := p_person_id;
4328: p_data => x_msg_data
4329: );
4330:
4331: EXCEPTION
4332: WHEN FND_API.G_EXC_ERROR THEN
4333: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4334: P_MODULE => l_module
4335: ,P_API_NAME => L_API_NAME
4336: ,P_PKG_NAME => G_PKG_NAME
4340: ,X_MSG_COUNT => X_MSG_COUNT
4341: ,X_MSG_DATA => X_MSG_DATA
4342: ,X_RETURN_STATUS => X_RETURN_STATUS);
4343:
4344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4345: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4346: P_MODULE => l_module
4347: ,P_API_NAME => L_API_NAME
4348: ,P_PKG_NAME => G_PKG_NAME
4370: end has_updateLeadAccess;
4371:
4372: procedure has_viewLeadAccess
4373: ( p_api_version_number IN NUMBER
4374: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4375: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4376: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4377: ,p_admin_flag IN VARCHAR2
4378: ,p_admin_group_id IN NUMBER
4371:
4372: procedure has_viewLeadAccess
4373: ( p_api_version_number IN NUMBER
4374: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4375: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4376: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4377: ,p_admin_flag IN VARCHAR2
4378: ,p_admin_group_id IN NUMBER
4379: ,p_person_id IN NUMBER
4440: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_viewLeadAccess';
4441:
4442: begin
4443: -- Standard call to check for call compatibility.
4444: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4445: p_api_version_number,
4446: l_api_name,
4447: G_PKG_NAME)
4448: THEN
4445: p_api_version_number,
4446: l_api_name,
4447: G_PKG_NAME)
4448: THEN
4449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4450: END IF;
4451:
4452: -- Initialize message list if p_init_msg_list is set to TRUE.
4453: IF FND_API.to_Boolean( p_init_msg_list )
4449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4450: END IF;
4451:
4452: -- Initialize message list if p_init_msg_list is set to TRUE.
4453: IF FND_API.to_Boolean( p_init_msg_list )
4454: THEN
4455: FND_MSG_PUB.initialize;
4456: END IF;
4457:
4464: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
4465: END IF;
4466:
4467: -- Initialize API return status to SUCCESS
4468: x_return_status := FND_API.G_RET_STS_SUCCESS;
4469:
4470: IF l_debug THEN
4471: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4472: 'p_sales_lead_id: ' || p_sales_lead_id);
4562: p_data => x_msg_data
4563: );
4564:
4565: EXCEPTION
4566: WHEN FND_API.G_EXC_ERROR THEN
4567: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4568: P_MODULE => l_module
4569: ,P_API_NAME => L_API_NAME
4570: ,P_PKG_NAME => G_PKG_NAME
4574: ,X_MSG_COUNT => X_MSG_COUNT
4575: ,X_MSG_DATA => X_MSG_DATA
4576: ,X_RETURN_STATUS => X_RETURN_STATUS);
4577:
4578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4579: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4580: P_MODULE => l_module
4581: ,P_API_NAME => L_API_NAME
4582: ,P_PKG_NAME => G_PKG_NAME
4606:
4607:
4608: procedure has_updateOpportunityAccess
4609: ( p_api_version_number IN NUMBER
4610: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4611: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4612: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4613: ,p_admin_flag IN VARCHAR2
4614: ,p_admin_group_id IN NUMBER
4607:
4608: procedure has_updateOpportunityAccess
4609: ( p_api_version_number IN NUMBER
4610: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4611: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4612: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4613: ,p_admin_flag IN VARCHAR2
4614: ,p_admin_group_id IN NUMBER
4615: ,p_person_id IN NUMBER
4719: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_updateOpportunityAccess';
4720:
4721: begin
4722: -- Standard call to check for call compatibility.
4723: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4724: p_api_version_number,
4725: l_api_name,
4726: G_PKG_NAME)
4727: THEN
4724: p_api_version_number,
4725: l_api_name,
4726: G_PKG_NAME)
4727: THEN
4728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4729: END IF;
4730:
4731: -- Initialize message list if p_init_msg_list is set to TRUE.
4732: IF FND_API.to_Boolean( p_init_msg_list )
4728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4729: END IF;
4730:
4731: -- Initialize message list if p_init_msg_list is set to TRUE.
4732: IF FND_API.to_Boolean( p_init_msg_list )
4733: THEN
4734: FND_MSG_PUB.initialize;
4735: END IF;
4736:
4743: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
4744: END IF;
4745:
4746: -- Initialize API return status to SUCCESS
4747: x_return_status := FND_API.G_RET_STS_SUCCESS;
4748:
4749: IF l_debug THEN
4750: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4751: 'p_opportunity_id: ' || p_opportunity_id);
4769: -- PRM security
4770: open resource_access_csr;
4771: fetch resource_access_csr into l_tmp;
4772: /* if p_partner_cont_party_id is not null
4773: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
4774: then
4775: if (resource_access_csr%FOUND)
4776: then
4777: x_update_access_flag := 'Y';
4778: close resource_access_csr;
4779: return;
4780: end if;
4781: end if; */
4782: /* if p_person_id is null or p_person_id = fnd_api.g_miss_num
4783: then
4784: get_person_id(p_identity_salesforce_id, l_person_id);
4785: else
4786: l_person_id := p_person_id;
4914: p_data => x_msg_data
4915: );
4916:
4917: EXCEPTION
4918: WHEN FND_API.G_EXC_ERROR THEN
4919: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4920: P_MODULE => l_module
4921: ,P_API_NAME => L_API_NAME
4922: ,P_PKG_NAME => G_PKG_NAME
4926: ,X_MSG_COUNT => X_MSG_COUNT
4927: ,X_MSG_DATA => X_MSG_DATA
4928: ,X_RETURN_STATUS => X_RETURN_STATUS);
4929:
4930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4931: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4932: P_MODULE => l_module
4933: ,P_API_NAME => L_API_NAME
4934: ,P_PKG_NAME => G_PKG_NAME
4956: end has_updateOpportunityAccess;
4957:
4958: procedure has_viewOpportunityAccess
4959: ( p_api_version_number IN NUMBER
4960: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4961: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4962: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4963: ,p_admin_flag IN VARCHAR2
4964: ,p_admin_group_id IN NUMBER
4957:
4958: procedure has_viewOpportunityAccess
4959: ( p_api_version_number IN NUMBER
4960: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4961: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4962: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4963: ,p_admin_flag IN VARCHAR2
4964: ,p_admin_group_id IN NUMBER
4965: ,p_person_id IN NUMBER
5042: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_viewOpportunityAccess';
5043:
5044: begin
5045: -- Standard call to check for call compatibility.
5046: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5047: p_api_version_number,
5048: l_api_name,
5049: G_PKG_NAME)
5050: THEN
5047: p_api_version_number,
5048: l_api_name,
5049: G_PKG_NAME)
5050: THEN
5051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5052: END IF;
5053:
5054: -- Initialize message list if p_init_msg_list is set to TRUE.
5055: IF FND_API.to_Boolean( p_init_msg_list )
5051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5052: END IF;
5053:
5054: -- Initialize message list if p_init_msg_list is set to TRUE.
5055: IF FND_API.to_Boolean( p_init_msg_list )
5056: THEN
5057: FND_MSG_PUB.initialize;
5058: END IF;
5059:
5066: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
5067: END IF;
5068:
5069: -- Initialize API return status to SUCCESS
5070: x_return_status := FND_API.G_RET_STS_SUCCESS;
5071:
5072: IF l_debug THEN
5073: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5074: 'p_opportunity_id: ' || p_opportunity_id);
5198: p_data => x_msg_data
5199: );
5200:
5201: EXCEPTION
5202: WHEN FND_API.G_EXC_ERROR THEN
5203: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
5204: P_MODULE => l_module
5205: ,P_API_NAME => L_API_NAME
5206: ,P_PKG_NAME => G_PKG_NAME
5210: ,X_MSG_COUNT => X_MSG_COUNT
5211: ,X_MSG_DATA => X_MSG_DATA
5212: ,X_RETURN_STATUS => X_RETURN_STATUS);
5213:
5214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5215: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
5216: P_MODULE => l_module
5217: ,P_API_NAME => L_API_NAME
5218: ,P_PKG_NAME => G_PKG_NAME