[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:
3041: THEN
3042: FND_MESSAGE.Set_Name('AS','API_NO_ACC_MGR_PRIVILEGE');
3043: FND_MSG_PUB.ADD;
3044: END IF;
3045: RAISE FND_API.G_EXC_ERROR;
3046: end if;
3047: end if;
3048:
3049: if l_sales_team_rec.reassign_flag = 'Y'
3047: end if;
3048:
3049: if l_sales_team_rec.reassign_flag = 'Y'
3050: and (l_sales_team_rec.reassign_reason is null
3051: or l_sales_team_rec.reassign_reason = fnd_api.g_miss_char)
3052: then
3053: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3054: THEN
3055: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
3055: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
3056: FND_MESSAGE.Set_Token('COLUMN', 'reassign_reason', FALSE);
3057: FND_MSG_PUB.ADD;
3058: END IF;
3059: raise fnd_api.g_exc_error;
3060: end if;
3061: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.sales_lead_id is NOT NULL
3062: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
3063:
3058: END IF;
3059: raise fnd_api.g_exc_error;
3060: end if;
3061: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.sales_lead_id is NOT NULL
3062: -- and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
3063:
3064: --then
3065: -- unmark_owner_flag(l_sales_team_rec.sales_lead_id);
3066: --end if;
3065: -- unmark_owner_flag(l_sales_team_rec.sales_lead_id);
3066: --end if;
3067:
3068: --if l_sales_team_rec.owner_flag = 'Y' and (l_sales_team_rec.lead_id is NOT NULL
3069: -- and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
3070:
3071: --then
3072: -- unmark_opp_owner_flag(l_sales_team_rec.lead_id);
3073: --end if;
3078: then
3079: l_sales_team_rec.team_leader_flag :='Y';
3080: end if;
3081:
3082: 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)
3083: then
3084: l_sales_team_rec.owner_flag := FND_API.G_MISS_CHAR;
3085: end if;
3086:
3080: end if;
3081:
3082: 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)
3083: then
3084: l_sales_team_rec.owner_flag := FND_API.G_MISS_CHAR;
3085: end if;
3086:
3087:
3088: as_accesses_pkg.update_row(
3147: end if;
3148:
3149: if is_sales_lead_owner_row(x_access_id)
3150: and (l_sales_team_rec.sales_lead_id is NOT NULL
3151: and l_sales_team_rec.sales_lead_id <> FND_API.G_MISS_NUM)
3152:
3153: then
3154: unmark_owner_flag(l_sales_team_rec.sales_lead_id, x_access_id);
3155: end if;
3155: end if;
3156:
3157: if is_sales_lead_owner_row(x_access_id)
3158: and (l_sales_team_rec.lead_id is NOT NULL
3159: and l_sales_team_rec.lead_id <> FND_API.G_MISS_NUM)
3160: then
3161: unmark_opp_owner_flag(l_sales_team_rec.lead_id, x_access_id);
3162: end if;
3163:
3161: unmark_opp_owner_flag(l_sales_team_rec.lead_id, x_access_id);
3162: end if;
3163:
3164: -- Standard check of p_commit.
3165: IF FND_API.To_Boolean ( p_commit )
3166: THEN
3167: COMMIT WORK;
3168: END IF;
3169:
3180: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3181: THEN
3182: FND_MESSAGE.Set_Name('AS', 'API_DUP_SALESTEAM');
3183: FND_MSG_PUB.ADD;
3184: x_return_status := FND_API.G_RET_STS_ERROR ;
3185: END IF;
3186:
3187:
3188: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
3186:
3187:
3188: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
3189: ROLLBACK TO UPDATE_SALESTEAM_PVT;
3190: x_return_status := FND_API.G_RET_STS_ERROR ;
3191:
3192: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3193: THEN
3194: FND_MESSAGE.Set_Name('AS', 'API_CANNOT_RESERVE_RECORD');
3195: FND_MESSAGE.Set_Token('INFO', 'UPDATE_SALESTEAM', FALSE);
3196: FND_MSG_PUB.Add;
3197: END IF;
3198:
3199: WHEN FND_API.G_EXC_ERROR THEN
3200: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3201: P_MODULE => l_module
3202: ,P_API_NAME => L_API_NAME
3203: ,P_PKG_NAME => G_PKG_NAME
3206: ,X_MSG_COUNT => X_MSG_COUNT
3207: ,X_MSG_DATA => X_MSG_DATA
3208: ,X_RETURN_STATUS => X_RETURN_STATUS);
3209:
3210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3211: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3212: P_MODULE => l_module
3213: ,P_API_NAME => L_API_NAME
3214: ,P_PKG_NAME => G_PKG_NAME
3559:
3560:
3561: procedure has_viewCustomerAccess
3562: ( p_api_version_number IN NUMBER
3563: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3564: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3565: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3566: ,p_admin_flag IN VARCHAR2
3567: ,p_admin_group_id IN NUMBER
3560:
3561: procedure has_viewCustomerAccess
3562: ( p_api_version_number IN NUMBER
3563: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3564: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3565: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3566: ,p_admin_flag IN VARCHAR2
3567: ,p_admin_group_id IN NUMBER
3568: ,p_person_id IN NUMBER
3611:
3612: begin
3613:
3614: -- Standard call to check for call compatibility.
3615: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3616: p_api_version_number,
3617: l_api_name,
3618: G_PKG_NAME)
3619: THEN
3616: p_api_version_number,
3617: l_api_name,
3618: G_PKG_NAME)
3619: THEN
3620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3621: END IF;
3622:
3623: -- Initialize message list if p_init_msg_list is set to TRUE.
3624: IF FND_API.to_Boolean( p_init_msg_list )
3620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3621: END IF;
3622:
3623: -- Initialize message list if p_init_msg_list is set to TRUE.
3624: IF FND_API.to_Boolean( p_init_msg_list )
3625: THEN
3626: FND_MSG_PUB.initialize;
3627: END IF;
3628:
3635: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
3636: END IF;
3637:
3638: -- Initialize API return status to SUCCESS
3639: x_return_status := FND_API.G_RET_STS_SUCCESS;
3640:
3641: IF l_debug THEN
3642: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3643: 'customer_id: ' || p_customer_id);
3656: x_view_access_flag := 'Y';
3657: else -- if p_check_access_flag = 'Y'
3658: --partner security checking. Return point
3659: if p_partner_cont_party_id is not null
3660: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
3661: then
3662: open resource_access_csr;
3663: fetch resource_access_csr into l_tmp;
3664: if (resource_access_csr%FOUND)
3669: end if;
3670: close resource_access_csr;
3671: end if;
3672: /*
3673: if p_person_id is null or p_person_id = fnd_api.g_miss_num
3674: then
3675: get_person_id(p_identity_salesforce_id, l_person_id);
3676: else
3677: l_person_id := p_person_id;
3739: p_data => x_msg_data
3740: );
3741:
3742: EXCEPTION
3743: WHEN FND_API.G_EXC_ERROR THEN
3744: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3745: P_MODULE => l_module
3746: ,P_API_NAME => L_API_NAME
3747: ,P_PKG_NAME => G_PKG_NAME
3751: ,X_MSG_COUNT => X_MSG_COUNT
3752: ,X_MSG_DATA => X_MSG_DATA
3753: ,X_RETURN_STATUS => X_RETURN_STATUS);
3754:
3755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3756: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
3757: P_MODULE => l_module
3758: ,P_API_NAME => L_API_NAME
3759: ,P_PKG_NAME => G_PKG_NAME
3781: end has_viewCustomerAccess;
3782:
3783: procedure has_updateCustomerAccess
3784: ( p_api_version_number IN NUMBER
3785: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3786: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3787: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3788: ,p_admin_flag IN VARCHAR2
3789: ,p_admin_group_id IN NUMBER
3782:
3783: procedure has_updateCustomerAccess
3784: ( p_api_version_number IN NUMBER
3785: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3786: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3787: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
3788: ,p_admin_flag IN VARCHAR2
3789: ,p_admin_group_id IN NUMBER
3790: ,p_person_id IN NUMBER
3870: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_updateCustomerAccess';
3871:
3872: begin
3873: -- Standard call to check for call compatibility.
3874: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3875: p_api_version_number,
3876: l_api_name,
3877: G_PKG_NAME)
3878: THEN
3875: p_api_version_number,
3876: l_api_name,
3877: G_PKG_NAME)
3878: THEN
3879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3880: END IF;
3881:
3882: -- Initialize message list if p_init_msg_list is set to TRUE.
3883: IF FND_API.to_Boolean( p_init_msg_list )
3879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3880: END IF;
3881:
3882: -- Initialize message list if p_init_msg_list is set to TRUE.
3883: IF FND_API.to_Boolean( p_init_msg_list )
3884: THEN
3885: FND_MSG_PUB.initialize;
3886: END IF;
3887:
3894: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
3895: END IF;
3896:
3897: -- Initialize API return status to SUCCESS
3898: x_return_status := FND_API.G_RET_STS_SUCCESS;
3899:
3900: IF l_debug THEN
3901: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3902: 'customer_id: ' || p_customer_id);
3918: else -- if p_check_access_flag = 'Y'
3919: open resource_access_csr;
3920: fetch resource_access_csr into l_tmp;
3921: if p_partner_cont_party_id is not null
3922: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
3923: then
3924: if (resource_access_csr%FOUND)
3925: then
3926: x_update_access_flag := 'Y';
3928: return;
3929: end if;
3930: end if;
3931: /*
3932: if p_person_id is null or p_person_id = fnd_api.g_miss_num
3933: then
3934: get_person_id(p_identity_salesforce_id, l_person_id);
3935: else
3936: l_person_id := p_person_id;
4028: p_data => x_msg_data
4029: );
4030:
4031: EXCEPTION
4032: WHEN FND_API.G_EXC_ERROR THEN
4033: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4034: P_MODULE => l_module
4035: ,P_API_NAME => L_API_NAME
4036: ,P_PKG_NAME => G_PKG_NAME
4040: ,X_MSG_COUNT => X_MSG_COUNT
4041: ,X_MSG_DATA => X_MSG_DATA
4042: ,X_RETURN_STATUS => X_RETURN_STATUS);
4043:
4044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4045: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4046: P_MODULE => l_module
4047: ,P_API_NAME => L_API_NAME
4048: ,P_PKG_NAME => G_PKG_NAME
4071:
4072:
4073: procedure has_updateLeadAccess
4074: ( p_api_version_number IN NUMBER
4075: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4076: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4077: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4078: ,p_admin_flag IN VARCHAR2
4079: ,p_admin_group_id IN NUMBER
4072:
4073: procedure has_updateLeadAccess
4074: ( p_api_version_number IN NUMBER
4075: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4076: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4077: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4078: ,p_admin_flag IN VARCHAR2
4079: ,p_admin_group_id IN NUMBER
4080: ,p_person_id IN NUMBER
4166: l_debug BOOLEAN := FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
4167: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_updateLeadAccess';
4168: begin
4169: -- Standard call to check for call compatibility.
4170: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4171: p_api_version_number,
4172: l_api_name,
4173: G_PKG_NAME)
4174: THEN
4171: p_api_version_number,
4172: l_api_name,
4173: G_PKG_NAME)
4174: THEN
4175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4176: END IF;
4177:
4178: -- Initialize message list if p_init_msg_list is set to TRUE.
4179: IF FND_API.to_Boolean( p_init_msg_list )
4175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4176: END IF;
4177:
4178: -- Initialize message list if p_init_msg_list is set to TRUE.
4179: IF FND_API.to_Boolean( p_init_msg_list )
4180: THEN
4181: FND_MSG_PUB.initialize;
4182: END IF;
4183:
4190: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
4191: END IF;
4192:
4193: -- Initialize API return status to SUCCESS
4194: x_return_status := FND_API.G_RET_STS_SUCCESS;
4195:
4196: IF l_debug THEN
4197: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4198: 'p_sales_lead_id: ' || p_sales_lead_id);
4216: -- PRM security
4217: open resource_access_csr;
4218: fetch resource_access_csr into l_tmp;
4219: /* if p_partner_cont_party_id is not null
4220: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
4221: then
4222: if (resource_access_csr%FOUND)
4223: then
4224: x_update_access_flag := 'Y';
4226: return;
4227: end if;
4228: end if; */
4229: /*
4230: if p_person_id is null or p_person_id = fnd_api.g_miss_num
4231: then
4232: get_person_id(p_identity_salesforce_id, l_person_id);
4233: else
4234: l_person_id := p_person_id;
4329: p_data => x_msg_data
4330: );
4331:
4332: EXCEPTION
4333: WHEN FND_API.G_EXC_ERROR THEN
4334: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4335: P_MODULE => l_module
4336: ,P_API_NAME => L_API_NAME
4337: ,P_PKG_NAME => G_PKG_NAME
4341: ,X_MSG_COUNT => X_MSG_COUNT
4342: ,X_MSG_DATA => X_MSG_DATA
4343: ,X_RETURN_STATUS => X_RETURN_STATUS);
4344:
4345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4346: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4347: P_MODULE => l_module
4348: ,P_API_NAME => L_API_NAME
4349: ,P_PKG_NAME => G_PKG_NAME
4371: end has_updateLeadAccess;
4372:
4373: procedure has_viewLeadAccess
4374: ( p_api_version_number IN NUMBER
4375: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4376: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4377: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4378: ,p_admin_flag IN VARCHAR2
4379: ,p_admin_group_id IN NUMBER
4372:
4373: procedure has_viewLeadAccess
4374: ( p_api_version_number IN NUMBER
4375: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4376: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4377: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4378: ,p_admin_flag IN VARCHAR2
4379: ,p_admin_group_id IN NUMBER
4380: ,p_person_id IN NUMBER
4441: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_viewLeadAccess';
4442:
4443: begin
4444: -- Standard call to check for call compatibility.
4445: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4446: p_api_version_number,
4447: l_api_name,
4448: G_PKG_NAME)
4449: THEN
4446: p_api_version_number,
4447: l_api_name,
4448: G_PKG_NAME)
4449: THEN
4450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4451: END IF;
4452:
4453: -- Initialize message list if p_init_msg_list is set to TRUE.
4454: IF FND_API.to_Boolean( p_init_msg_list )
4450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4451: END IF;
4452:
4453: -- Initialize message list if p_init_msg_list is set to TRUE.
4454: IF FND_API.to_Boolean( p_init_msg_list )
4455: THEN
4456: FND_MSG_PUB.initialize;
4457: END IF;
4458:
4465: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
4466: END IF;
4467:
4468: -- Initialize API return status to SUCCESS
4469: x_return_status := FND_API.G_RET_STS_SUCCESS;
4470:
4471: IF l_debug THEN
4472: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4473: 'p_sales_lead_id: ' || p_sales_lead_id);
4563: p_data => x_msg_data
4564: );
4565:
4566: EXCEPTION
4567: WHEN FND_API.G_EXC_ERROR THEN
4568: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4569: P_MODULE => l_module
4570: ,P_API_NAME => L_API_NAME
4571: ,P_PKG_NAME => G_PKG_NAME
4575: ,X_MSG_COUNT => X_MSG_COUNT
4576: ,X_MSG_DATA => X_MSG_DATA
4577: ,X_RETURN_STATUS => X_RETURN_STATUS);
4578:
4579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4580: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4581: P_MODULE => l_module
4582: ,P_API_NAME => L_API_NAME
4583: ,P_PKG_NAME => G_PKG_NAME
4607:
4608:
4609: procedure has_updateOpportunityAccess
4610: ( p_api_version_number IN NUMBER
4611: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4612: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4613: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4614: ,p_admin_flag IN VARCHAR2
4615: ,p_admin_group_id IN NUMBER
4608:
4609: procedure has_updateOpportunityAccess
4610: ( p_api_version_number IN NUMBER
4611: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4612: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4613: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4614: ,p_admin_flag IN VARCHAR2
4615: ,p_admin_group_id IN NUMBER
4616: ,p_person_id IN NUMBER
4720: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_updateOpportunityAccess';
4721:
4722: begin
4723: -- Standard call to check for call compatibility.
4724: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4725: p_api_version_number,
4726: l_api_name,
4727: G_PKG_NAME)
4728: THEN
4725: p_api_version_number,
4726: l_api_name,
4727: G_PKG_NAME)
4728: THEN
4729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4730: END IF;
4731:
4732: -- Initialize message list if p_init_msg_list is set to TRUE.
4733: IF FND_API.to_Boolean( p_init_msg_list )
4729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4730: END IF;
4731:
4732: -- Initialize message list if p_init_msg_list is set to TRUE.
4733: IF FND_API.to_Boolean( p_init_msg_list )
4734: THEN
4735: FND_MSG_PUB.initialize;
4736: END IF;
4737:
4744: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
4745: END IF;
4746:
4747: -- Initialize API return status to SUCCESS
4748: x_return_status := FND_API.G_RET_STS_SUCCESS;
4749:
4750: IF l_debug THEN
4751: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4752: 'p_opportunity_id: ' || p_opportunity_id);
4770: -- PRM security
4771: open resource_access_csr;
4772: fetch resource_access_csr into l_tmp;
4773: /* if p_partner_cont_party_id is not null
4774: and p_partner_cont_party_id <> FND_API.G_MISS_NUM
4775: then
4776: if (resource_access_csr%FOUND)
4777: then
4778: x_update_access_flag := 'Y';
4779: close resource_access_csr;
4780: return;
4781: end if;
4782: end if; */
4783: /* if p_person_id is null or p_person_id = fnd_api.g_miss_num
4784: then
4785: get_person_id(p_identity_salesforce_id, l_person_id);
4786: else
4787: l_person_id := p_person_id;
4915: p_data => x_msg_data
4916: );
4917:
4918: EXCEPTION
4919: WHEN FND_API.G_EXC_ERROR THEN
4920: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4921: P_MODULE => l_module
4922: ,P_API_NAME => L_API_NAME
4923: ,P_PKG_NAME => G_PKG_NAME
4927: ,X_MSG_COUNT => X_MSG_COUNT
4928: ,X_MSG_DATA => X_MSG_DATA
4929: ,X_RETURN_STATUS => X_RETURN_STATUS);
4930:
4931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4932: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4933: P_MODULE => l_module
4934: ,P_API_NAME => L_API_NAME
4935: ,P_PKG_NAME => G_PKG_NAME
4957: end has_updateOpportunityAccess;
4958:
4959: procedure has_viewOpportunityAccess
4960: ( p_api_version_number IN NUMBER
4961: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4962: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4963: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4964: ,p_admin_flag IN VARCHAR2
4965: ,p_admin_group_id IN NUMBER
4958:
4959: procedure has_viewOpportunityAccess
4960: ( p_api_version_number IN NUMBER
4961: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4962: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4963: ,p_access_profile_rec IN as_access_pub.access_profile_rec_type
4964: ,p_admin_flag IN VARCHAR2
4965: ,p_admin_group_id IN NUMBER
4966: ,p_person_id IN NUMBER
5043: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acspv.has_viewOpportunityAccess';
5044:
5045: begin
5046: -- Standard call to check for call compatibility.
5047: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5048: p_api_version_number,
5049: l_api_name,
5050: G_PKG_NAME)
5051: THEN
5048: p_api_version_number,
5049: l_api_name,
5050: G_PKG_NAME)
5051: THEN
5052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5053: END IF;
5054:
5055: -- Initialize message list if p_init_msg_list is set to TRUE.
5056: IF FND_API.to_Boolean( p_init_msg_list )
5052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5053: END IF;
5054:
5055: -- Initialize message list if p_init_msg_list is set to TRUE.
5056: IF FND_API.to_Boolean( p_init_msg_list )
5057: THEN
5058: FND_MSG_PUB.initialize;
5059: END IF;
5060:
5067: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
5068: END IF;
5069:
5070: -- Initialize API return status to SUCCESS
5071: x_return_status := FND_API.G_RET_STS_SUCCESS;
5072:
5073: IF l_debug THEN
5074: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5075: 'p_opportunity_id: ' || p_opportunity_id);
5199: p_data => x_msg_data
5200: );
5201:
5202: EXCEPTION
5203: WHEN FND_API.G_EXC_ERROR THEN
5204: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
5205: P_MODULE => l_module
5206: ,P_API_NAME => L_API_NAME
5207: ,P_PKG_NAME => G_PKG_NAME
5211: ,X_MSG_COUNT => X_MSG_COUNT
5212: ,X_MSG_DATA => X_MSG_DATA
5213: ,X_RETURN_STATUS => X_RETURN_STATUS);
5214:
5215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5216: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
5217: P_MODULE => l_module
5218: ,P_API_NAME => L_API_NAME
5219: ,P_PKG_NAME => G_PKG_NAME