34: FND_MESSAGE.Set_Token('COLUMN', 'SALESFORCE_ID', FALSE);
35: fnd_message.set_token('VALUE', p_salesforce_id, FALSE);
36: FND_MSG_PUB.ADD;
37: END IF;
38: raise FND_API.G_EXC_ERROR;
39: end if;
40: close get_person_id_csr;
41: end;
42: */
95:
96:
97: PROCEDURE Create_SalesTeam
98: ( p_api_version_number IN NUMBER,
99: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
100: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
101: p_validation_level IN NUMBER
102: DEFAULT FND_API.G_VALID_LEVEL_FULL,
103: p_access_profile_rec IN access_profile_rec_type,
96:
97: PROCEDURE Create_SalesTeam
98: ( p_api_version_number IN NUMBER,
99: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
100: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
101: p_validation_level IN NUMBER
102: DEFAULT FND_API.G_VALID_LEVEL_FULL,
103: p_access_profile_rec IN access_profile_rec_type,
104: p_check_access_flag IN VARCHAR2,
98: ( p_api_version_number IN NUMBER,
99: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
100: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
101: p_validation_level IN NUMBER
102: DEFAULT FND_API.G_VALID_LEVEL_FULL,
103: p_access_profile_rec IN access_profile_rec_type,
104: p_check_access_flag IN VARCHAR2,
105: p_admin_flag IN VARCHAR2,
106: p_admin_group_id IN NUMBER,
119: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.Create_SalesTeam';
120: BEGIN
121: SAVEPOINT CREATE_SALESTEAM_PUB;
122: -- Standard call to check for call compatibility.
123: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
124: p_api_version_number,
125: l_api_name,
126: G_PKG_NAME)
127: THEN
130: FND_MESSAGE.Set_Name('AS', 'API_UNEXP_ERROR_IN_PROCESSING');
131: FND_MESSAGE.Set_Token('ROW', 'AS_ACCESS', TRUE);
132: FND_MSG_PUB.ADD;
133: END IF;
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: -- Initialize message list if p_init_msg_list is set to TRUE.
138: IF FND_API.to_Boolean( p_init_msg_list )
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: -- Initialize message list if p_init_msg_list is set to TRUE.
138: IF FND_API.to_Boolean( p_init_msg_list )
139: THEN
140: FND_MSG_PUB.initialize;
141: END IF;
142:
141: END IF;
142:
143: -- Initialize API return status to success
144: --
145: x_return_status := FND_API.G_RET_STS_SUCCESS;
146: l_sales_team_rec := p_sales_team_rec;
147: Convert_Pub_Sales_Team_To_Pvt(l_sales_team_rec, l_pvt_sales_team_rec);
148: -- get_person_id(l_sales_team_rec.salesforce_id, l_pvt_sales_team_rec.person_id);
149:
165: x_access_id => x_access_id
166: );
167:
168:
169: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
170: RAISE fnd_api.g_exc_error;
171: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
172: RAISE fnd_api.g_exc_unexpected_error;
173: END IF;
166: );
167:
168:
169: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
170: RAISE fnd_api.g_exc_error;
171: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
172: RAISE fnd_api.g_exc_unexpected_error;
173: END IF;
174:
167:
168:
169: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
170: RAISE fnd_api.g_exc_error;
171: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
172: RAISE fnd_api.g_exc_unexpected_error;
173: END IF;
174:
175: -- Assign return access_id to rec type so that it can pass the created access_id
168:
169: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
170: RAISE fnd_api.g_exc_error;
171: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
172: RAISE fnd_api.g_exc_unexpected_error;
173: END IF;
174:
175: -- Assign return access_id to rec type so that it can pass the created access_id
176: -- to post User_Hook
178: l_pvt_sales_team_rec.access_id := x_access_id;
179:
180:
181: EXCEPTION
182: WHEN FND_API.G_EXC_ERROR THEN
183: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
184: P_MODULE => l_module
185: ,P_API_NAME => L_API_NAME
186: ,P_PKG_NAME => G_PKG_NAME
189: ,X_MSG_COUNT => X_MSG_COUNT
190: ,X_MSG_DATA => X_MSG_DATA
191: ,X_RETURN_STATUS => X_RETURN_STATUS);
192:
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
195: P_MODULE => l_module
196: ,P_API_NAME => L_API_NAME
197: ,P_PKG_NAME => G_PKG_NAME
220:
221: PROCEDURE Update_SalesTeam
222: ( p_api_version_number IN NUMBER,
223: p_init_msg_list IN VARCHAR2
224: DEFAULT FND_API.G_FALSE,
225: p_commit IN VARCHAR2
226: DEFAULT FND_API.G_FALSE,
227: p_validation_level IN NUMBER
228: DEFAULT FND_API.G_VALID_LEVEL_FULL,
222: ( p_api_version_number IN NUMBER,
223: p_init_msg_list IN VARCHAR2
224: DEFAULT FND_API.G_FALSE,
225: p_commit IN VARCHAR2
226: DEFAULT FND_API.G_FALSE,
227: p_validation_level IN NUMBER
228: DEFAULT FND_API.G_VALID_LEVEL_FULL,
229: p_access_profile_rec IN access_profile_rec_type,
230: p_check_access_flag IN VARCHAR2,
224: DEFAULT FND_API.G_FALSE,
225: p_commit IN VARCHAR2
226: DEFAULT FND_API.G_FALSE,
227: p_validation_level IN NUMBER
228: DEFAULT FND_API.G_VALID_LEVEL_FULL,
229: p_access_profile_rec IN access_profile_rec_type,
230: p_check_access_flag IN VARCHAR2,
231: p_admin_flag IN VARCHAR2,
232: p_admin_group_id IN NUMBER,
244: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.Update_SalesTeam';
245: BEGIN
246: SAVEPOINT UPDATE_SALESTEAM_PUB;
247: -- Standard call to check for call compatibility.
248: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
249: p_api_version_number,
250: l_api_name,
251: G_PKG_NAME)
252: THEN
255: FND_MESSAGE.Set_Name('AS', 'API_UNEXP_ERROR_IN_PROCESSING');
256: FND_MESSAGE.Set_Token('ROW', 'AS_ACCESS', TRUE);
257: FND_MSG_PUB.ADD;
258: END IF;
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: END IF;
261:
262: -- Initialize message list if p_init_msg_list is set to TRUE.
263: IF FND_API.to_Boolean( p_init_msg_list )
259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
260: END IF;
261:
262: -- Initialize message list if p_init_msg_list is set to TRUE.
263: IF FND_API.to_Boolean( p_init_msg_list )
264: THEN
265: FND_MSG_PUB.initialize;
266: END IF;
267:
266: END IF;
267:
268: -- Initialize API return status to success
269: --
270: x_return_status := FND_API.G_RET_STS_SUCCESS;
271:
272: Convert_Pub_Sales_Team_To_Pvt(p_sales_team_rec, l_pvt_sales_team_rec);
273: -- get_person_id(p_sales_team_rec.salesforce_id, l_pvt_sales_team_rec.person_id);
274:
287: x_msg_data => x_msg_data,
288: x_access_id => x_access_id
289: );
290:
291: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
292: RAISE fnd_api.g_exc_error;
293: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
294: RAISE fnd_api.g_exc_unexpected_error;
295: END IF;
288: x_access_id => x_access_id
289: );
290:
291: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
292: RAISE fnd_api.g_exc_error;
293: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
294: RAISE fnd_api.g_exc_unexpected_error;
295: END IF;
296:
289: );
290:
291: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
292: RAISE fnd_api.g_exc_error;
293: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
294: RAISE fnd_api.g_exc_unexpected_error;
295: END IF;
296:
297:
290:
291: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
292: RAISE fnd_api.g_exc_error;
293: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
294: RAISE fnd_api.g_exc_unexpected_error;
295: END IF;
296:
297:
298:
297:
298:
299:
300: EXCEPTION
301: WHEN FND_API.G_EXC_ERROR THEN
302: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
303: P_MODULE => l_module
304: ,P_API_NAME => L_API_NAME
305: ,P_PKG_NAME => G_PKG_NAME
308: ,X_MSG_COUNT => X_MSG_COUNT
309: ,X_MSG_DATA => X_MSG_DATA
310: ,X_RETURN_STATUS => X_RETURN_STATUS);
311:
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
314: P_MODULE => l_module
315: ,P_API_NAME => L_API_NAME
316: ,P_PKG_NAME => G_PKG_NAME
370:
371: PROCEDURE Delete_SalesTeam
372: ( p_api_version_number IN NUMBER,
373: p_init_msg_list IN VARCHAR2
374: DEFAULT FND_API.G_FALSE,
375: p_commit IN VARCHAR2
376: DEFAULT FND_API.G_FALSE,
377: p_validation_level IN NUMBER
378: DEFAULT FND_API.G_VALID_LEVEL_FULL,
372: ( p_api_version_number IN NUMBER,
373: p_init_msg_list IN VARCHAR2
374: DEFAULT FND_API.G_FALSE,
375: p_commit IN VARCHAR2
376: DEFAULT FND_API.G_FALSE,
377: p_validation_level IN NUMBER
378: DEFAULT FND_API.G_VALID_LEVEL_FULL,
379: p_access_profile_rec IN access_profile_rec_type,
380: p_check_access_flag IN VARCHAR2,
374: DEFAULT FND_API.G_FALSE,
375: p_commit IN VARCHAR2
376: DEFAULT FND_API.G_FALSE,
377: p_validation_level IN NUMBER
378: DEFAULT FND_API.G_VALID_LEVEL_FULL,
379: p_access_profile_rec IN access_profile_rec_type,
380: p_check_access_flag IN VARCHAR2,
381: p_admin_flag IN VARCHAR2,
382: p_admin_group_id IN NUMBER,
394:
395: begin
396: SAVEPOINT DELETE_SALESTEAM_PUB;
397: -- Standard call to check for call compatibility.
398: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
399: p_api_version_number,
400: l_api_name,
401: G_PKG_NAME)
402: THEN
399: p_api_version_number,
400: l_api_name,
401: G_PKG_NAME)
402: THEN
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: END IF;
405:
406: -- Initialize message list if p_init_msg_list is set to TRUE.
407: IF FND_API.to_Boolean( p_init_msg_list )
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: END IF;
405:
406: -- Initialize message list if p_init_msg_list is set to TRUE.
407: IF FND_API.to_Boolean( p_init_msg_list )
408: THEN
409: FND_MSG_PUB.initialize;
410: END IF;
411:
418: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
419: END IF;
420:
421: -- Initialize API return status to SUCCESS
422: x_return_status := FND_API.G_RET_STS_SUCCESS;
423:
424: --
425: -- API body
426: --
434:
435:
436: as_access_pvt.Delete_SalesTeam
437: (P_Api_Version_Number => 2.0,
438: P_Init_Msg_List => FND_API.G_FALSE,
439: P_Commit => FND_API.G_FALSE,
440: p_validation_level => P_Validation_Level,
441: p_access_profile_rec => p_access_profile_rec,
442: p_check_access_flag => p_check_access_flag,
435:
436: as_access_pvt.Delete_SalesTeam
437: (P_Api_Version_Number => 2.0,
438: P_Init_Msg_List => FND_API.G_FALSE,
439: P_Commit => FND_API.G_FALSE,
440: p_validation_level => P_Validation_Level,
441: p_access_profile_rec => p_access_profile_rec,
442: p_check_access_flag => p_check_access_flag,
443: p_admin_flag => p_admin_flag,
447: x_return_status => x_return_status,
448: x_msg_count => x_msg_count,
449: x_msg_data => x_msg_data
450: );
451: IF x_return_status = FND_API.G_RET_STS_ERROR then
452: raise FND_API.G_EXC_ERROR;
453: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
454: raise FND_API.G_EXC_UNEXPECTED_ERROR;
455: END IF;
448: x_msg_count => x_msg_count,
449: x_msg_data => x_msg_data
450: );
451: IF x_return_status = FND_API.G_RET_STS_ERROR then
452: raise FND_API.G_EXC_ERROR;
453: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
454: raise FND_API.G_EXC_UNEXPECTED_ERROR;
455: END IF;
456:
449: x_msg_data => x_msg_data
450: );
451: IF x_return_status = FND_API.G_RET_STS_ERROR then
452: raise FND_API.G_EXC_ERROR;
453: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
454: raise FND_API.G_EXC_UNEXPECTED_ERROR;
455: END IF;
456:
457:
450: );
451: IF x_return_status = FND_API.G_RET_STS_ERROR then
452: raise FND_API.G_EXC_ERROR;
453: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
454: raise FND_API.G_EXC_UNEXPECTED_ERROR;
455: END IF;
456:
457:
458:
459: --
460: -- End of API body.
461: --
462:
463: IF FND_API.to_Boolean( p_commit )
464: THEN
465: COMMIT WORK;
466: END IF;
467:
481: p_data => x_msg_data
482: );
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_ERROR THEN
486: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
487: P_MODULE => l_module
488: ,P_API_NAME => L_API_NAME
489: ,P_PKG_NAME => G_PKG_NAME
492: ,X_MSG_COUNT => X_MSG_COUNT
493: ,X_MSG_DATA => X_MSG_DATA
494: ,X_RETURN_STATUS => X_RETURN_STATUS);
495:
496: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
497: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
498: P_MODULE => l_module
499: ,P_API_NAME => L_API_NAME
500: ,P_PKG_NAME => G_PKG_NAME
519:
520: End delete_salesteam;
521:
522: Procedure validate_accessProfiles
523: ( p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
524: p_access_profile_rec IN ACCESS_PROFILE_REC_TYPE,
525: x_return_status OUT NOCOPY VARCHAR2,
526: x_msg_count OUT NOCOPY NUMBER,
527: x_msg_data OUT NOCOPY VARCHAR2
534: IF l_debug THEN
535: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
536: 'Val Access Profile start');
537: END IF;
538: x_return_status := FND_API.G_RET_STS_SUCCESS;
539:
540: if p_access_profile_rec.cust_access_profile_value = 'T'
541: and (p_access_profile_rec.lead_access_profile_value in ('F', 'P')
542: or p_access_profile_rec.opp_access_profile_value in ('F', 'P'))
540: if p_access_profile_rec.cust_access_profile_value = 'T'
541: and (p_access_profile_rec.lead_access_profile_value in ('F', 'P')
542: or p_access_profile_rec.opp_access_profile_value in ('F', 'P'))
543: then
544: x_return_status := FND_API.G_RET_STS_ERROR;
545: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
546: THEN
547: FND_MESSAGE.Set_Name('AS', 'API_INVALID_COMINATION');
548: FND_MSG_PUB.ADD;
563:
564:
565: procedure has_viewCustomerAccess
566: ( p_api_version_number IN NUMBER
567: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
568: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
569: ,p_access_profile_rec IN access_profile_rec_type
570: ,p_admin_flag IN VARCHAR2
571: ,p_admin_group_id IN NUMBER
564:
565: procedure has_viewCustomerAccess
566: ( p_api_version_number IN NUMBER
567: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
568: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
569: ,p_access_profile_rec IN access_profile_rec_type
570: ,p_admin_flag IN VARCHAR2
571: ,p_admin_group_id IN NUMBER
572: ,p_person_id IN NUMBER
585: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_viewCustomerAccess';
586:
587: begin
588: -- Standard call to check for call compatibility.
589: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
590: p_api_version_number,
591: l_api_name,
592: G_PKG_NAME)
593: THEN
590: p_api_version_number,
591: l_api_name,
592: G_PKG_NAME)
593: THEN
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: END IF;
596:
597: -- Initialize message list if p_init_msg_list is set to TRUE.
598: IF FND_API.to_Boolean( p_init_msg_list )
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: END IF;
596:
597: -- Initialize message list if p_init_msg_list is set to TRUE.
598: IF FND_API.to_Boolean( p_init_msg_list )
599: THEN
600: FND_MSG_PUB.initialize;
601: END IF;
602:
609: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
610: END IF;
611:
612: -- Initialize API return status to SUCCESS
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614:
615: IF l_debug THEN
616: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
617: 'Public API: Calling as_access_pvt.has_viewCustomerAccess');
619:
620:
621: as_access_pvt.has_viewCustomerAccess
622: (p_api_version_number => 2.0
623: ,p_init_msg_list => FND_API.G_FALSE
624: ,p_validation_level => p_validation_level
625: ,p_access_profile_rec => p_access_profile_rec
626: ,p_admin_flag => p_admin_flag
627: ,p_admin_group_id => p_admin_group_id
634: ,x_msg_count => x_msg_count
635: ,x_msg_data => x_msg_data
636: ,x_view_access_flag => x_view_access_flag);
637:
638: IF x_return_status = FND_API.G_RET_STS_ERROR then
639: raise FND_API.G_EXC_ERROR;
640: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
635: ,x_msg_data => x_msg_data
636: ,x_view_access_flag => x_view_access_flag);
637:
638: IF x_return_status = FND_API.G_RET_STS_ERROR then
639: raise FND_API.G_EXC_ERROR;
640: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
636: ,x_view_access_flag => x_view_access_flag);
637:
638: IF x_return_status = FND_API.G_RET_STS_ERROR then
639: raise FND_API.G_EXC_ERROR;
640: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
644:
637:
638: IF x_return_status = FND_API.G_RET_STS_ERROR then
639: raise FND_API.G_EXC_ERROR;
640: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
642: END IF;
643:
644:
645: --
661: p_data => x_msg_data
662: );
663:
664: EXCEPTION
665: WHEN FND_API.G_EXC_ERROR THEN
666: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
667: P_MODULE => l_module
668: ,P_API_NAME => L_API_NAME
669: ,P_PKG_NAME => G_PKG_NAME
673: ,X_MSG_COUNT => X_MSG_COUNT
674: ,X_MSG_DATA => X_MSG_DATA
675: ,X_RETURN_STATUS => X_RETURN_STATUS);
676:
677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
678: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
679: P_MODULE => l_module
680: ,P_API_NAME => L_API_NAME
681: ,P_PKG_NAME => G_PKG_NAME
704: end has_viewCustomerAccess ;
705:
706: procedure has_updateCustomerAccess
707: ( p_api_version_number IN NUMBER
708: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
709: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
710: ,p_access_profile_rec IN access_profile_rec_type
711: ,p_admin_flag IN VARCHAR2
712: ,p_admin_group_id IN NUMBER
705:
706: procedure has_updateCustomerAccess
707: ( p_api_version_number IN NUMBER
708: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
709: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
710: ,p_access_profile_rec IN access_profile_rec_type
711: ,p_admin_flag IN VARCHAR2
712: ,p_admin_group_id IN NUMBER
713: ,p_person_id IN NUMBER
726: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_updateCustomerAccess';
727:
728: begin
729: -- Standard call to check for call compatibility.
730: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
731: p_api_version_number,
732: l_api_name,
733: G_PKG_NAME)
734: THEN
731: p_api_version_number,
732: l_api_name,
733: G_PKG_NAME)
734: THEN
735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
736: END IF;
737:
738: -- Initialize message list if p_init_msg_list is set to TRUE.
739: IF FND_API.to_Boolean( p_init_msg_list )
735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
736: END IF;
737:
738: -- Initialize message list if p_init_msg_list is set to TRUE.
739: IF FND_API.to_Boolean( p_init_msg_list )
740: THEN
741: FND_MSG_PUB.initialize;
742: END IF;
743:
750: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
751: END IF;
752:
753: -- Initialize API return status to SUCCESS
754: x_return_status := FND_API.G_RET_STS_SUCCESS;
755:
756:
757: IF l_debug THEN
758: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
761:
762:
763: as_access_pvt.has_updateCustomerAccess
764: (p_api_version_number => 2.0
765: ,p_init_msg_list => FND_API.G_FALSE
766: ,p_validation_level => p_validation_level
767: ,p_access_profile_rec => p_access_profile_rec
768: ,p_admin_flag => p_admin_flag
769: ,p_admin_group_id => p_admin_group_id
776: ,x_msg_count => x_msg_count
777: ,x_msg_data => x_msg_data
778: ,x_update_access_flag => x_update_access_flag);
779:
780: IF x_return_status = FND_API.G_RET_STS_ERROR then
781: raise FND_API.G_EXC_ERROR;
782: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
783: raise FND_API.G_EXC_UNEXPECTED_ERROR;
784: END IF;
777: ,x_msg_data => x_msg_data
778: ,x_update_access_flag => x_update_access_flag);
779:
780: IF x_return_status = FND_API.G_RET_STS_ERROR then
781: raise FND_API.G_EXC_ERROR;
782: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
783: raise FND_API.G_EXC_UNEXPECTED_ERROR;
784: END IF;
785:
778: ,x_update_access_flag => x_update_access_flag);
779:
780: IF x_return_status = FND_API.G_RET_STS_ERROR then
781: raise FND_API.G_EXC_ERROR;
782: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
783: raise FND_API.G_EXC_UNEXPECTED_ERROR;
784: END IF;
785:
786:
779:
780: IF x_return_status = FND_API.G_RET_STS_ERROR then
781: raise FND_API.G_EXC_ERROR;
782: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
783: raise FND_API.G_EXC_UNEXPECTED_ERROR;
784: END IF;
785:
786:
787: --
803: p_data => x_msg_data
804: );
805:
806: EXCEPTION
807: WHEN FND_API.G_EXC_ERROR THEN
808: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
809: P_MODULE => l_module
810: ,P_API_NAME => L_API_NAME
811: ,P_PKG_NAME => G_PKG_NAME
815: ,X_MSG_COUNT => X_MSG_COUNT
816: ,X_MSG_DATA => X_MSG_DATA
817: ,X_RETURN_STATUS => X_RETURN_STATUS);
818:
819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
820: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
821: P_MODULE => l_module
822: ,P_API_NAME => L_API_NAME
823: ,P_PKG_NAME => G_PKG_NAME
846: end has_updateCustomerAccess;
847:
848: procedure has_updateLeadAccess
849: ( p_api_version_number IN NUMBER
850: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
851: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
852: ,p_access_profile_rec IN access_profile_rec_type
853: ,p_admin_flag IN VARCHAR2
854: ,p_admin_group_id IN NUMBER
847:
848: procedure has_updateLeadAccess
849: ( p_api_version_number IN NUMBER
850: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
851: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
852: ,p_access_profile_rec IN access_profile_rec_type
853: ,p_admin_flag IN VARCHAR2
854: ,p_admin_group_id IN NUMBER
855: ,p_person_id IN NUMBER
868: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_updateLeadAccess';
869:
870: begin
871: -- Standard call to check for call compatibility.
872: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
873: p_api_version_number,
874: l_api_name,
875: G_PKG_NAME)
876: THEN
873: p_api_version_number,
874: l_api_name,
875: G_PKG_NAME)
876: THEN
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
880: -- Initialize message list if p_init_msg_list is set to TRUE.
881: IF FND_API.to_Boolean( p_init_msg_list )
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
880: -- Initialize message list if p_init_msg_list is set to TRUE.
881: IF FND_API.to_Boolean( p_init_msg_list )
882: THEN
883: FND_MSG_PUB.initialize;
884: END IF;
885:
892: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
893: END IF;
894:
895: -- Initialize API return status to SUCCESS
896: x_return_status := FND_API.G_RET_STS_SUCCESS;
897:
898:
899: IF l_debug THEN
900: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
903:
904:
905: as_access_pvt.has_updateLeadAccess
906: (p_api_version_number => 2.0
907: ,p_init_msg_list => FND_API.G_FALSE
908: ,p_validation_level => p_validation_level
909: ,p_access_profile_rec => p_access_profile_rec
910: ,p_admin_flag => p_admin_flag
911: ,p_admin_group_id => p_admin_group_id
918: ,x_msg_count => x_msg_count
919: ,x_msg_data => x_msg_data
920: ,x_update_access_flag => x_update_access_flag);
921:
922: IF x_return_status = FND_API.G_RET_STS_ERROR then
923: raise FND_API.G_EXC_ERROR;
924: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
925: raise FND_API.G_EXC_UNEXPECTED_ERROR;
926: END IF;
919: ,x_msg_data => x_msg_data
920: ,x_update_access_flag => x_update_access_flag);
921:
922: IF x_return_status = FND_API.G_RET_STS_ERROR then
923: raise FND_API.G_EXC_ERROR;
924: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
925: raise FND_API.G_EXC_UNEXPECTED_ERROR;
926: END IF;
927:
920: ,x_update_access_flag => x_update_access_flag);
921:
922: IF x_return_status = FND_API.G_RET_STS_ERROR then
923: raise FND_API.G_EXC_ERROR;
924: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
925: raise FND_API.G_EXC_UNEXPECTED_ERROR;
926: END IF;
927:
928:
921:
922: IF x_return_status = FND_API.G_RET_STS_ERROR then
923: raise FND_API.G_EXC_ERROR;
924: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
925: raise FND_API.G_EXC_UNEXPECTED_ERROR;
926: END IF;
927:
928:
929: --
944: p_data => x_msg_data
945: );
946:
947: EXCEPTION
948: WHEN FND_API.G_EXC_ERROR THEN
949: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
950: P_MODULE => l_module
951: ,P_API_NAME => L_API_NAME
952: ,P_PKG_NAME => G_PKG_NAME
956: ,X_MSG_COUNT => X_MSG_COUNT
957: ,X_MSG_DATA => X_MSG_DATA
958: ,X_RETURN_STATUS => X_RETURN_STATUS);
959:
960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
961: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
962: P_MODULE => l_module
963: ,P_API_NAME => L_API_NAME
964: ,P_PKG_NAME => G_PKG_NAME
987: end has_updateLeadAccess;
988:
989: procedure has_updateOpportunityAccess
990: ( p_api_version_number IN NUMBER
991: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
992: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
993: ,p_access_profile_rec IN access_profile_rec_type
994: ,p_admin_flag IN VARCHAR2
995: ,p_admin_group_id IN NUMBER
988:
989: procedure has_updateOpportunityAccess
990: ( p_api_version_number IN NUMBER
991: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
992: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
993: ,p_access_profile_rec IN access_profile_rec_type
994: ,p_admin_flag IN VARCHAR2
995: ,p_admin_group_id IN NUMBER
996: ,p_person_id IN NUMBER
1010:
1011: begin
1012:
1013: -- Standard call to check for call compatibility.
1014: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1015: p_api_version_number,
1016: l_api_name,
1017: G_PKG_NAME)
1018: THEN
1015: p_api_version_number,
1016: l_api_name,
1017: G_PKG_NAME)
1018: THEN
1019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1020: END IF;
1021:
1022: -- Initialize message list if p_init_msg_list is set to TRUE.
1023: IF FND_API.to_Boolean( p_init_msg_list )
1019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1020: END IF;
1021:
1022: -- Initialize message list if p_init_msg_list is set to TRUE.
1023: IF FND_API.to_Boolean( p_init_msg_list )
1024: THEN
1025: FND_MSG_PUB.initialize;
1026: END IF;
1027:
1034: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1035: END IF;
1036:
1037: -- Initialize API return status to SUCCESS
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039:
1040:
1041: IF l_debug THEN
1042: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1045:
1046:
1047: as_access_pvt.has_updateOpportunityAccess
1048: (p_api_version_number => 2.0
1049: ,p_init_msg_list => FND_API.G_FALSE
1050: ,p_validation_level => p_validation_level
1051: ,p_access_profile_rec => p_access_profile_rec
1052: ,p_admin_flag => p_admin_flag
1053: ,p_admin_group_id => p_admin_group_id
1060: ,x_msg_count => x_msg_count
1061: ,x_msg_data => x_msg_data
1062: ,x_update_access_flag => x_update_access_flag);
1063:
1064: IF x_return_status = FND_API.G_RET_STS_ERROR then
1065: raise FND_API.G_EXC_ERROR;
1066: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1067: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1068: END IF;
1061: ,x_msg_data => x_msg_data
1062: ,x_update_access_flag => x_update_access_flag);
1063:
1064: IF x_return_status = FND_API.G_RET_STS_ERROR then
1065: raise FND_API.G_EXC_ERROR;
1066: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1067: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1068: END IF;
1069:
1062: ,x_update_access_flag => x_update_access_flag);
1063:
1064: IF x_return_status = FND_API.G_RET_STS_ERROR then
1065: raise FND_API.G_EXC_ERROR;
1066: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1067: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1068: END IF;
1069:
1070:
1063:
1064: IF x_return_status = FND_API.G_RET_STS_ERROR then
1065: raise FND_API.G_EXC_ERROR;
1066: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1067: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1068: END IF;
1069:
1070:
1071: --
1087: p_data => x_msg_data
1088: );
1089:
1090: EXCEPTION
1091: WHEN FND_API.G_EXC_ERROR THEN
1092: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1093: P_MODULE => l_module
1094: ,P_API_NAME => L_API_NAME
1095: ,P_PKG_NAME => G_PKG_NAME
1099: ,X_MSG_COUNT => X_MSG_COUNT
1100: ,X_MSG_DATA => X_MSG_DATA
1101: ,X_RETURN_STATUS => X_RETURN_STATUS);
1102:
1103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1104: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1105: P_MODULE => l_module
1106: ,P_API_NAME => L_API_NAME
1107: ,P_PKG_NAME => G_PKG_NAME
1220: update access. To check consumer access, you can pass in null for
1221: p_security_id and p_security_type */
1222: procedure has_updatePersonAccess
1223: ( p_api_version_number IN NUMBER
1224: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1225: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1226: ,p_access_profile_rec IN access_profile_rec_type
1227: ,p_admin_flag IN VARCHAR2
1228: ,p_admin_group_id IN NUMBER
1221: p_security_id and p_security_type */
1222: procedure has_updatePersonAccess
1223: ( p_api_version_number IN NUMBER
1224: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1225: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1226: ,p_access_profile_rec IN access_profile_rec_type
1227: ,p_admin_flag IN VARCHAR2
1228: ,p_admin_group_id IN NUMBER
1229: ,p_person_id IN NUMBER
1246:
1247: begin
1248:
1249: -- Standard call to check for call compatibility.
1250: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1251: p_api_version_number,
1252: l_api_name,
1253: G_PKG_NAME)
1254: THEN
1251: p_api_version_number,
1252: l_api_name,
1253: G_PKG_NAME)
1254: THEN
1255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1256: END IF;
1257:
1258: -- Initialize message list if p_init_msg_list is set to TRUE.
1259: IF FND_API.to_Boolean( p_init_msg_list )
1255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1256: END IF;
1257:
1258: -- Initialize message list if p_init_msg_list is set to TRUE.
1259: IF FND_API.to_Boolean( p_init_msg_list )
1260: THEN
1261: FND_MSG_PUB.initialize;
1262: END IF;
1263:
1276: 'p_person_party_id: ' || p_person_party_id);
1277: END IF;
1278:
1279: -- Initialize API return status to SUCCESS
1280: x_return_status := FND_API.G_RET_STS_SUCCESS;
1281: x_update_access_flag := 'N';
1282: validate_id_combination(p_security_id => p_security_id
1283: ,p_security_type => p_security_type
1284: ,p_person_party_id => p_person_party_id
1294: if p_security_type = 'ORGANIZATION'
1295: then
1296: as_access_pvt.has_updateCustomerAccess
1297: (p_api_version_number => 2.0
1298: ,p_init_msg_list => FND_API.G_FALSE
1299: ,p_validation_level => p_validation_level
1300: ,p_access_profile_rec => p_access_profile_rec
1301: ,p_admin_flag => p_admin_flag
1302: ,p_admin_group_id => p_admin_group_id
1309: ,x_msg_count => x_msg_count
1310: ,x_msg_data => x_msg_data
1311: ,x_update_access_flag => x_update_access_flag);
1312:
1313: IF x_return_status = FND_API.G_RET_STS_ERROR then
1314: raise FND_API.G_EXC_ERROR;
1315: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1317: end if;
1310: ,x_msg_data => x_msg_data
1311: ,x_update_access_flag => x_update_access_flag);
1312:
1313: IF x_return_status = FND_API.G_RET_STS_ERROR then
1314: raise FND_API.G_EXC_ERROR;
1315: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1317: end if;
1318: elsif p_security_type = 'OPPORTUNITY'
1311: ,x_update_access_flag => x_update_access_flag);
1312:
1313: IF x_return_status = FND_API.G_RET_STS_ERROR then
1314: raise FND_API.G_EXC_ERROR;
1315: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1317: end if;
1318: elsif p_security_type = 'OPPORTUNITY'
1319: then
1312:
1313: IF x_return_status = FND_API.G_RET_STS_ERROR then
1314: raise FND_API.G_EXC_ERROR;
1315: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1317: end if;
1318: elsif p_security_type = 'OPPORTUNITY'
1319: then
1320: as_access_pvt.has_updateOpportunityAccess
1318: elsif p_security_type = 'OPPORTUNITY'
1319: then
1320: as_access_pvt.has_updateOpportunityAccess
1321: (p_api_version_number => 2.0
1322: ,p_init_msg_list => FND_API.G_FALSE
1323: ,p_validation_level => p_validation_level
1324: ,p_access_profile_rec => p_access_profile_rec
1325: ,p_admin_flag => p_admin_flag
1326: ,p_admin_group_id => p_admin_group_id
1333: ,x_msg_count => x_msg_count
1334: ,x_msg_data => x_msg_data
1335: ,x_update_access_flag => x_update_access_flag);
1336:
1337: IF x_return_status = FND_API.G_RET_STS_ERROR then
1338: raise FND_API.G_EXC_ERROR;
1339: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1340: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1341: end if;
1334: ,x_msg_data => x_msg_data
1335: ,x_update_access_flag => x_update_access_flag);
1336:
1337: IF x_return_status = FND_API.G_RET_STS_ERROR then
1338: raise FND_API.G_EXC_ERROR;
1339: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1340: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1341: end if;
1342: elsif p_security_type = 'LEAD'
1335: ,x_update_access_flag => x_update_access_flag);
1336:
1337: IF x_return_status = FND_API.G_RET_STS_ERROR then
1338: raise FND_API.G_EXC_ERROR;
1339: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1340: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1341: end if;
1342: elsif p_security_type = 'LEAD'
1343: then
1336:
1337: IF x_return_status = FND_API.G_RET_STS_ERROR then
1338: raise FND_API.G_EXC_ERROR;
1339: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1340: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1341: end if;
1342: elsif p_security_type = 'LEAD'
1343: then
1344: as_access_pvt.has_updateLeadAccess
1342: elsif p_security_type = 'LEAD'
1343: then
1344: as_access_pvt.has_updateLeadAccess
1345: (p_api_version_number => 2.0
1346: ,p_init_msg_list => FND_API.G_FALSE
1347: ,p_validation_level => p_validation_level
1348: ,p_access_profile_rec => p_access_profile_rec
1349: ,p_admin_flag => p_admin_flag
1350: ,p_admin_group_id => p_admin_group_id
1357: ,x_msg_count => x_msg_count
1358: ,x_msg_data => x_msg_data
1359: ,x_update_access_flag => x_update_access_flag);
1360:
1361: IF x_return_status = FND_API.G_RET_STS_ERROR then
1362: raise FND_API.G_EXC_ERROR;
1363: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1364: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1365: end if;
1358: ,x_msg_data => x_msg_data
1359: ,x_update_access_flag => x_update_access_flag);
1360:
1361: IF x_return_status = FND_API.G_RET_STS_ERROR then
1362: raise FND_API.G_EXC_ERROR;
1363: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1364: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1365: end if;
1366: elsif p_security_type is null and p_security_id is null
1359: ,x_update_access_flag => x_update_access_flag);
1360:
1361: IF x_return_status = FND_API.G_RET_STS_ERROR then
1362: raise FND_API.G_EXC_ERROR;
1363: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1364: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1365: end if;
1366: elsif p_security_type is null and p_security_id is null
1367: then
1360:
1361: IF x_return_status = FND_API.G_RET_STS_ERROR then
1362: raise FND_API.G_EXC_ERROR;
1363: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1364: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1365: end if;
1366: elsif p_security_type is null and p_security_id is null
1367: then
1368: as_access_pvt.has_updateCustomerAccess
1366: elsif p_security_type is null and p_security_id is null
1367: then
1368: as_access_pvt.has_updateCustomerAccess
1369: (p_api_version_number => 2.0
1370: ,p_init_msg_list => FND_API.G_FALSE
1371: ,p_validation_level => p_validation_level
1372: ,p_access_profile_rec => p_access_profile_rec
1373: ,p_admin_flag => p_admin_flag
1374: ,p_admin_group_id => p_admin_group_id
1381: ,x_msg_count => x_msg_count
1382: ,x_msg_data => x_msg_data
1383: ,x_update_access_flag => x_update_access_flag);
1384:
1385: IF x_return_status = FND_API.G_RET_STS_ERROR then
1386: raise FND_API.G_EXC_ERROR;
1387: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1388: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1389: end if;
1382: ,x_msg_data => x_msg_data
1383: ,x_update_access_flag => x_update_access_flag);
1384:
1385: IF x_return_status = FND_API.G_RET_STS_ERROR then
1386: raise FND_API.G_EXC_ERROR;
1387: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1388: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1389: end if;
1390: END IF; -- if p_security_type = 'ORGANIZATION'
1383: ,x_update_access_flag => x_update_access_flag);
1384:
1385: IF x_return_status = FND_API.G_RET_STS_ERROR then
1386: raise FND_API.G_EXC_ERROR;
1387: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1388: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1389: end if;
1390: END IF; -- if p_security_type = 'ORGANIZATION'
1391: end if; --if l_valid_flag = 'N'
1384:
1385: IF x_return_status = FND_API.G_RET_STS_ERROR then
1386: raise FND_API.G_EXC_ERROR;
1387: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1388: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1389: end if;
1390: END IF; -- if p_security_type = 'ORGANIZATION'
1391: end if; --if l_valid_flag = 'N'
1392:
1409: p_data => x_msg_data
1410: );
1411:
1412: EXCEPTION
1413: WHEN FND_API.G_EXC_ERROR THEN
1414: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1415: P_MODULE => l_module
1416: ,P_API_NAME => L_API_NAME
1417: ,P_PKG_NAME => G_PKG_NAME
1421: ,X_MSG_COUNT => X_MSG_COUNT
1422: ,X_MSG_DATA => X_MSG_DATA
1423: ,X_RETURN_STATUS => X_RETURN_STATUS);
1424:
1425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1426: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1427: P_MODULE => l_module
1428: ,P_API_NAME => L_API_NAME
1429: ,P_PKG_NAME => G_PKG_NAME
1451: end has_updatePersonAccess;
1452:
1453: procedure has_viewPersonAccess
1454: ( p_api_version_number IN NUMBER
1455: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1456: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1457: ,p_access_profile_rec IN access_profile_rec_type
1458: ,p_admin_flag IN VARCHAR2
1459: ,p_admin_group_id IN NUMBER
1452:
1453: procedure has_viewPersonAccess
1454: ( p_api_version_number IN NUMBER
1455: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1456: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1457: ,p_access_profile_rec IN access_profile_rec_type
1458: ,p_admin_flag IN VARCHAR2
1459: ,p_admin_group_id IN NUMBER
1460: ,p_person_id IN NUMBER
1477:
1478: begin
1479:
1480: -- Standard call to check for call compatibility.
1481: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1482: p_api_version_number,
1483: l_api_name,
1484: G_PKG_NAME)
1485: THEN
1482: p_api_version_number,
1483: l_api_name,
1484: G_PKG_NAME)
1485: THEN
1486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488:
1489: -- Initialize message list if p_init_msg_list is set to TRUE.
1490: IF FND_API.to_Boolean( p_init_msg_list )
1486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488:
1489: -- Initialize message list if p_init_msg_list is set to TRUE.
1490: IF FND_API.to_Boolean( p_init_msg_list )
1491: THEN
1492: FND_MSG_PUB.initialize;
1493: END IF;
1494:
1507: 'p_person_party_id: ' || p_person_party_id);
1508: END IF;
1509:
1510: -- Initialize API return status to SUCCESS
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
1512: x_view_access_flag := 'N';
1513: validate_id_combination(p_security_id => p_security_id
1514: ,p_security_type => p_security_type
1515: ,p_person_party_id => p_person_party_id
1526: if p_security_type = 'ORGANIZATION'
1527: then
1528: as_access_pvt.has_viewCustomerAccess
1529: (p_api_version_number => 2.0
1530: ,p_init_msg_list => FND_API.G_FALSE
1531: ,p_validation_level => p_validation_level
1532: ,p_access_profile_rec => p_access_profile_rec
1533: ,p_admin_flag => p_admin_flag
1534: ,p_admin_group_id => p_admin_group_id
1541: ,x_msg_count => x_msg_count
1542: ,x_msg_data => x_msg_data
1543: ,x_view_access_flag => x_view_access_flag);
1544:
1545: IF x_return_status = FND_API.G_RET_STS_ERROR then
1546: raise FND_API.G_EXC_ERROR;
1547: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1548: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1549: end if;
1542: ,x_msg_data => x_msg_data
1543: ,x_view_access_flag => x_view_access_flag);
1544:
1545: IF x_return_status = FND_API.G_RET_STS_ERROR then
1546: raise FND_API.G_EXC_ERROR;
1547: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1548: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1549: end if;
1550: elsif p_security_type = 'OPPORTUNITY'
1543: ,x_view_access_flag => x_view_access_flag);
1544:
1545: IF x_return_status = FND_API.G_RET_STS_ERROR then
1546: raise FND_API.G_EXC_ERROR;
1547: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1548: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1549: end if;
1550: elsif p_security_type = 'OPPORTUNITY'
1551: then
1544:
1545: IF x_return_status = FND_API.G_RET_STS_ERROR then
1546: raise FND_API.G_EXC_ERROR;
1547: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1548: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1549: end if;
1550: elsif p_security_type = 'OPPORTUNITY'
1551: then
1552: as_access_pvt.has_viewOpportunityAccess
1550: elsif p_security_type = 'OPPORTUNITY'
1551: then
1552: as_access_pvt.has_viewOpportunityAccess
1553: (p_api_version_number => 2.0
1554: ,p_init_msg_list => FND_API.G_FALSE
1555: ,p_validation_level => p_validation_level
1556: ,p_access_profile_rec => p_access_profile_rec
1557: ,p_admin_flag => p_admin_flag
1558: ,p_admin_group_id => p_admin_group_id
1565: ,x_msg_count => x_msg_count
1566: ,x_msg_data => x_msg_data
1567: ,x_view_access_flag => x_view_access_flag);
1568:
1569: IF x_return_status = FND_API.G_RET_STS_ERROR then
1570: raise FND_API.G_EXC_ERROR;
1571: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1572: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1573: end if;
1566: ,x_msg_data => x_msg_data
1567: ,x_view_access_flag => x_view_access_flag);
1568:
1569: IF x_return_status = FND_API.G_RET_STS_ERROR then
1570: raise FND_API.G_EXC_ERROR;
1571: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1572: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1573: end if;
1574: elsif p_security_type = 'LEAD'
1567: ,x_view_access_flag => x_view_access_flag);
1568:
1569: IF x_return_status = FND_API.G_RET_STS_ERROR then
1570: raise FND_API.G_EXC_ERROR;
1571: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1572: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1573: end if;
1574: elsif p_security_type = 'LEAD'
1575: then
1568:
1569: IF x_return_status = FND_API.G_RET_STS_ERROR then
1570: raise FND_API.G_EXC_ERROR;
1571: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1572: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1573: end if;
1574: elsif p_security_type = 'LEAD'
1575: then
1576: as_access_pvt.has_viewLeadAccess
1574: elsif p_security_type = 'LEAD'
1575: then
1576: as_access_pvt.has_viewLeadAccess
1577: (p_api_version_number => 2.0
1578: ,p_init_msg_list => FND_API.G_FALSE
1579: ,p_validation_level => p_validation_level
1580: ,p_access_profile_rec => p_access_profile_rec
1581: ,p_admin_flag => p_admin_flag
1582: ,p_admin_group_id => p_admin_group_id
1589: ,x_msg_count => x_msg_count
1590: ,x_msg_data => x_msg_data
1591: ,x_view_access_flag => x_view_access_flag);
1592:
1593: IF x_return_status = FND_API.G_RET_STS_ERROR then
1594: raise FND_API.G_EXC_ERROR;
1595: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1596: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1597: end if;
1590: ,x_msg_data => x_msg_data
1591: ,x_view_access_flag => x_view_access_flag);
1592:
1593: IF x_return_status = FND_API.G_RET_STS_ERROR then
1594: raise FND_API.G_EXC_ERROR;
1595: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1596: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1597: end if;
1598: elsif p_security_type is null and p_security_id is null
1591: ,x_view_access_flag => x_view_access_flag);
1592:
1593: IF x_return_status = FND_API.G_RET_STS_ERROR then
1594: raise FND_API.G_EXC_ERROR;
1595: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1596: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1597: end if;
1598: elsif p_security_type is null and p_security_id is null
1599: then
1592:
1593: IF x_return_status = FND_API.G_RET_STS_ERROR then
1594: raise FND_API.G_EXC_ERROR;
1595: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1596: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1597: end if;
1598: elsif p_security_type is null and p_security_id is null
1599: then
1600: as_access_pvt.has_viewCustomerAccess
1598: elsif p_security_type is null and p_security_id is null
1599: then
1600: as_access_pvt.has_viewCustomerAccess
1601: (p_api_version_number => 2.0
1602: ,p_init_msg_list => FND_API.G_FALSE
1603: ,p_validation_level => p_validation_level
1604: ,p_access_profile_rec => p_access_profile_rec
1605: ,p_admin_flag => p_admin_flag
1606: ,p_admin_group_id => p_admin_group_id
1613: ,x_msg_count => x_msg_count
1614: ,x_msg_data => x_msg_data
1615: ,x_view_access_flag => x_view_access_flag);
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR then
1618: raise FND_API.G_EXC_ERROR;
1619: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1620: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1621: end if;
1614: ,x_msg_data => x_msg_data
1615: ,x_view_access_flag => x_view_access_flag);
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR then
1618: raise FND_API.G_EXC_ERROR;
1619: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1620: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1621: end if;
1622: END IF; -- if p_security_type = 'ORGANIZATION'
1615: ,x_view_access_flag => x_view_access_flag);
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR then
1618: raise FND_API.G_EXC_ERROR;
1619: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1620: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1621: end if;
1622: END IF; -- if p_security_type = 'ORGANIZATION'
1623: end if; --if l_valid_flag = 'N'
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR then
1618: raise FND_API.G_EXC_ERROR;
1619: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1620: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1621: end if;
1622: END IF; -- if p_security_type = 'ORGANIZATION'
1623: end if; --if l_valid_flag = 'N'
1624:
1641: p_data => x_msg_data
1642: );
1643:
1644: EXCEPTION
1645: WHEN FND_API.G_EXC_ERROR THEN
1646: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1647: P_MODULE => l_module
1648: ,P_API_NAME => L_API_NAME
1649: ,P_PKG_NAME => G_PKG_NAME
1653: ,X_MSG_COUNT => X_MSG_COUNT
1654: ,X_MSG_DATA => X_MSG_DATA
1655: ,X_RETURN_STATUS => X_RETURN_STATUS);
1656:
1657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1658: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1659: P_MODULE => l_module
1660: ,P_API_NAME => L_API_NAME
1661: ,P_PKG_NAME => G_PKG_NAME
1684:
1685:
1686: procedure has_viewLeadAccess
1687: ( p_api_version_number IN NUMBER
1688: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1689: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1690: ,p_access_profile_rec IN access_profile_rec_type
1691: ,p_admin_flag IN VARCHAR2
1692: ,p_admin_group_id IN NUMBER
1685:
1686: procedure has_viewLeadAccess
1687: ( p_api_version_number IN NUMBER
1688: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1689: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1690: ,p_access_profile_rec IN access_profile_rec_type
1691: ,p_admin_flag IN VARCHAR2
1692: ,p_admin_group_id IN NUMBER
1693: ,p_person_id IN NUMBER
1706: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_viewLeadAccess';
1707:
1708: begin
1709: -- Standard call to check for call compatibility.
1710: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1711: p_api_version_number,
1712: l_api_name,
1713: G_PKG_NAME)
1714: THEN
1711: p_api_version_number,
1712: l_api_name,
1713: G_PKG_NAME)
1714: THEN
1715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1716: END IF;
1717:
1718: -- Initialize message list if p_init_msg_list is set to TRUE.
1719: IF FND_API.to_Boolean( p_init_msg_list )
1715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1716: END IF;
1717:
1718: -- Initialize message list if p_init_msg_list is set to TRUE.
1719: IF FND_API.to_Boolean( p_init_msg_list )
1720: THEN
1721: FND_MSG_PUB.initialize;
1722: END IF;
1723:
1730: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1731: END IF;
1732:
1733: -- Initialize API return status to SUCCESS
1734: x_return_status := FND_API.G_RET_STS_SUCCESS;
1735:
1736:
1737: IF l_debug THEN
1738: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1741:
1742:
1743: as_access_pvt.has_viewLeadAccess
1744: (p_api_version_number => 2.0
1745: ,p_init_msg_list => FND_API.G_FALSE
1746: ,p_validation_level => p_validation_level
1747: ,p_access_profile_rec => p_access_profile_rec
1748: ,p_admin_flag => p_admin_flag
1749: ,p_admin_group_id => p_admin_group_id
1756: ,x_msg_count => x_msg_count
1757: ,x_msg_data => x_msg_data
1758: ,x_view_access_flag => x_view_access_flag);
1759:
1760: IF x_return_status = FND_API.G_RET_STS_ERROR then
1761: raise FND_API.G_EXC_ERROR;
1762: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1763: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1764: END IF;
1757: ,x_msg_data => x_msg_data
1758: ,x_view_access_flag => x_view_access_flag);
1759:
1760: IF x_return_status = FND_API.G_RET_STS_ERROR then
1761: raise FND_API.G_EXC_ERROR;
1762: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1763: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1764: END IF;
1765:
1758: ,x_view_access_flag => x_view_access_flag);
1759:
1760: IF x_return_status = FND_API.G_RET_STS_ERROR then
1761: raise FND_API.G_EXC_ERROR;
1762: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1763: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1764: END IF;
1765:
1766:
1759:
1760: IF x_return_status = FND_API.G_RET_STS_ERROR then
1761: raise FND_API.G_EXC_ERROR;
1762: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1763: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1764: END IF;
1765:
1766:
1767: --
1783: p_data => x_msg_data
1784: );
1785:
1786: EXCEPTION
1787: WHEN FND_API.G_EXC_ERROR THEN
1788: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1789: P_MODULE => l_module
1790: ,P_API_NAME => L_API_NAME
1791: ,P_PKG_NAME => G_PKG_NAME
1795: ,X_MSG_COUNT => X_MSG_COUNT
1796: ,X_MSG_DATA => X_MSG_DATA
1797: ,X_RETURN_STATUS => X_RETURN_STATUS);
1798:
1799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1800: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1801: P_MODULE => l_module
1802: ,P_API_NAME => L_API_NAME
1803: ,P_PKG_NAME => G_PKG_NAME
1826: end has_viewLeadAccess;
1827:
1828: procedure has_viewOpportunityAccess
1829: ( p_api_version_number IN NUMBER
1830: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1831: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1832: ,p_access_profile_rec IN access_profile_rec_type
1833: ,p_admin_flag IN VARCHAR2
1834: ,p_admin_group_id IN NUMBER
1827:
1828: procedure has_viewOpportunityAccess
1829: ( p_api_version_number IN NUMBER
1830: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1831: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1832: ,p_access_profile_rec IN access_profile_rec_type
1833: ,p_admin_flag IN VARCHAR2
1834: ,p_admin_group_id IN NUMBER
1835: ,p_person_id IN NUMBER
1849:
1850: begin
1851:
1852: -- Standard call to check for call compatibility.
1853: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1854: p_api_version_number,
1855: l_api_name,
1856: G_PKG_NAME)
1857: THEN
1854: p_api_version_number,
1855: l_api_name,
1856: G_PKG_NAME)
1857: THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1860:
1861: -- Initialize message list if p_init_msg_list is set to TRUE.
1862: IF FND_API.to_Boolean( p_init_msg_list )
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1860:
1861: -- Initialize message list if p_init_msg_list is set to TRUE.
1862: IF FND_API.to_Boolean( p_init_msg_list )
1863: THEN
1864: FND_MSG_PUB.initialize;
1865: END IF;
1866:
1873: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1874: END IF;
1875:
1876: -- Initialize API return status to SUCCESS
1877: x_return_status := FND_API.G_RET_STS_SUCCESS;
1878:
1879:
1880: IF l_debug THEN
1881: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1884:
1885:
1886: as_access_pvt.has_viewOpportunityAccess
1887: (p_api_version_number => 2.0
1888: ,p_init_msg_list => FND_API.G_FALSE
1889: ,p_validation_level => p_validation_level
1890: ,p_access_profile_rec => p_access_profile_rec
1891: ,p_admin_flag => p_admin_flag
1892: ,p_admin_group_id => p_admin_group_id
1899: ,x_msg_count => x_msg_count
1900: ,x_msg_data => x_msg_data
1901: ,x_view_access_flag => x_view_access_flag);
1902:
1903: IF x_return_status = FND_API.G_RET_STS_ERROR then
1904: raise FND_API.G_EXC_ERROR;
1905: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1906: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1900: ,x_msg_data => x_msg_data
1901: ,x_view_access_flag => x_view_access_flag);
1902:
1903: IF x_return_status = FND_API.G_RET_STS_ERROR then
1904: raise FND_API.G_EXC_ERROR;
1905: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1906: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1908:
1901: ,x_view_access_flag => x_view_access_flag);
1902:
1903: IF x_return_status = FND_API.G_RET_STS_ERROR then
1904: raise FND_API.G_EXC_ERROR;
1905: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1906: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1908:
1909:
1902:
1903: IF x_return_status = FND_API.G_RET_STS_ERROR then
1904: raise FND_API.G_EXC_ERROR;
1905: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1906: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1907: END IF;
1908:
1909:
1910: --
1926: p_data => x_msg_data
1927: );
1928:
1929: EXCEPTION
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1932: P_MODULE => l_module
1933: ,P_API_NAME => L_API_NAME
1934: ,P_PKG_NAME => G_PKG_NAME
1938: ,X_MSG_COUNT => X_MSG_COUNT
1939: ,X_MSG_DATA => X_MSG_DATA
1940: ,X_RETURN_STATUS => X_RETURN_STATUS);
1941:
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1944: P_MODULE => l_module
1945: ,P_API_NAME => L_API_NAME
1946: ,P_PKG_NAME => G_PKG_NAME
1974: */
1975:
1976: procedure has_organizationAccess
1977: ( p_api_version_number IN NUMBER
1978: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1979: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1980: ,p_access_profile_rec IN access_profile_rec_type
1981: ,p_admin_flag IN VARCHAR2
1982: ,p_admin_group_id IN NUMBER
1975:
1976: procedure has_organizationAccess
1977: ( p_api_version_number IN NUMBER
1978: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1979: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1980: ,p_access_profile_rec IN access_profile_rec_type
1981: ,p_admin_flag IN VARCHAR2
1982: ,p_admin_group_id IN NUMBER
1983: ,p_person_id IN NUMBER
1998: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_organizationAccess';
1999:
2000: begin
2001: -- Standard call to check for call compatibility.
2002: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2003: p_api_version_number,
2004: l_api_name,
2005: G_PKG_NAME)
2006: THEN
2003: p_api_version_number,
2004: l_api_name,
2005: G_PKG_NAME)
2006: THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: END IF;
2009:
2010: -- Initialize message list if p_init_msg_list is set to TRUE.
2011: IF FND_API.to_Boolean( p_init_msg_list )
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: END IF;
2009:
2010: -- Initialize message list if p_init_msg_list is set to TRUE.
2011: IF FND_API.to_Boolean( p_init_msg_list )
2012: THEN
2013: FND_MSG_PUB.initialize;
2014: END IF;
2015:
2022: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
2023: END IF;
2024:
2025: -- Initialize API return status to SUCCESS
2026: x_return_status := FND_API.G_RET_STS_SUCCESS;
2027:
2028: IF l_debug THEN
2029: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2030: 'Public API: Calling as_access_pvt.has_viewCustomerAccess');
2032:
2033: x_access_privilege := 'N';
2034: as_access_pvt.has_viewCustomerAccess
2035: (p_api_version_number => 2.0
2036: ,p_init_msg_list => FND_API.G_FALSE
2037: ,p_validation_level => p_validation_level
2038: ,p_access_profile_rec => p_access_profile_rec
2039: ,p_admin_flag => p_admin_flag
2040: ,p_admin_group_id => p_admin_group_id
2047: ,x_msg_count => x_msg_count
2048: ,x_msg_data => x_msg_data
2049: ,x_view_access_flag => l_view_access_flag);
2050:
2051: IF x_return_status = FND_API.G_RET_STS_ERROR then
2052: raise FND_API.G_EXC_ERROR;
2053: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2054: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2048: ,x_msg_data => x_msg_data
2049: ,x_view_access_flag => l_view_access_flag);
2050:
2051: IF x_return_status = FND_API.G_RET_STS_ERROR then
2052: raise FND_API.G_EXC_ERROR;
2053: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2054: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2049: ,x_view_access_flag => l_view_access_flag);
2050:
2051: IF x_return_status = FND_API.G_RET_STS_ERROR then
2052: raise FND_API.G_EXC_ERROR;
2053: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2054: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2057: if l_view_access_flag = 'Y'
2050:
2051: IF x_return_status = FND_API.G_RET_STS_ERROR then
2052: raise FND_API.G_EXC_ERROR;
2053: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2054: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2057: if l_view_access_flag = 'Y'
2058: then
2058: then
2059: x_access_privilege := 'R';
2060: as_access_pvt.has_updateCustomerAccess
2061: (p_api_version_number => 2.0
2062: ,p_init_msg_list => FND_API.G_FALSE
2063: ,p_validation_level => p_validation_level
2064: ,p_access_profile_rec => p_access_profile_rec
2065: ,p_admin_flag => p_admin_flag
2066: ,p_admin_group_id => p_admin_group_id
2073: ,x_msg_count => x_msg_count
2074: ,x_msg_data => x_msg_data
2075: ,x_update_access_flag => l_update_access_flag);
2076:
2077: IF x_return_status = FND_API.G_RET_STS_ERROR then
2078: raise FND_API.G_EXC_ERROR;
2079: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2080: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2081: END IF;
2074: ,x_msg_data => x_msg_data
2075: ,x_update_access_flag => l_update_access_flag);
2076:
2077: IF x_return_status = FND_API.G_RET_STS_ERROR then
2078: raise FND_API.G_EXC_ERROR;
2079: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2080: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2081: END IF;
2082:
2075: ,x_update_access_flag => l_update_access_flag);
2076:
2077: IF x_return_status = FND_API.G_RET_STS_ERROR then
2078: raise FND_API.G_EXC_ERROR;
2079: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2080: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2081: END IF;
2082:
2083: if l_update_access_flag = 'Y'
2076:
2077: IF x_return_status = FND_API.G_RET_STS_ERROR then
2078: raise FND_API.G_EXC_ERROR;
2079: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2080: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2081: END IF;
2082:
2083: if l_update_access_flag = 'Y'
2084: then
2105: p_data => x_msg_data
2106: );
2107:
2108: EXCEPTION
2109: WHEN FND_API.G_EXC_ERROR THEN
2110: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2111: P_MODULE => l_module
2112: ,P_API_NAME => L_API_NAME
2113: ,P_PKG_NAME => G_PKG_NAME
2117: ,X_MSG_COUNT => X_MSG_COUNT
2118: ,X_MSG_DATA => X_MSG_DATA
2119: ,X_RETURN_STATUS => X_RETURN_STATUS);
2120:
2121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2122: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2123: P_MODULE => l_module
2124: ,P_API_NAME => L_API_NAME
2125: ,P_PKG_NAME => G_PKG_NAME
2148: end has_organizationAccess ;
2149:
2150: procedure has_opportunityAccess
2151: ( p_api_version_number IN NUMBER
2152: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2153: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2154: ,p_access_profile_rec IN access_profile_rec_type
2155: ,p_admin_flag IN VARCHAR2
2156: ,p_admin_group_id IN NUMBER
2149:
2150: procedure has_opportunityAccess
2151: ( p_api_version_number IN NUMBER
2152: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2153: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2154: ,p_access_profile_rec IN access_profile_rec_type
2155: ,p_admin_flag IN VARCHAR2
2156: ,p_admin_group_id IN NUMBER
2157: ,p_person_id IN NUMBER
2172: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_opportunityAccess';
2173:
2174: begin
2175: -- Standard call to check for call compatibility.
2176: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2177: p_api_version_number,
2178: l_api_name,
2179: G_PKG_NAME)
2180: THEN
2177: p_api_version_number,
2178: l_api_name,
2179: G_PKG_NAME)
2180: THEN
2181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2182: END IF;
2183:
2184: -- Initialize message list if p_init_msg_list is set to TRUE.
2185: IF FND_API.to_Boolean( p_init_msg_list )
2181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2182: END IF;
2183:
2184: -- Initialize message list if p_init_msg_list is set to TRUE.
2185: IF FND_API.to_Boolean( p_init_msg_list )
2186: THEN
2187: FND_MSG_PUB.initialize;
2188: END IF;
2189:
2196: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
2197: END IF;
2198:
2199: -- Initialize API return status to SUCCESS
2200: x_return_status := FND_API.G_RET_STS_SUCCESS;
2201:
2202: IF l_debug THEN
2203: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2204: 'Public API: Calling as_access_pvt.has_viewCustomerAccess');
2206:
2207: x_access_privilege := 'N';
2208: as_access_pvt.has_viewOpportunityAccess
2209: (p_api_version_number => 2.0
2210: ,p_init_msg_list => FND_API.G_FALSE
2211: ,p_validation_level => p_validation_level
2212: ,p_access_profile_rec => p_access_profile_rec
2213: ,p_admin_flag => p_admin_flag
2214: ,p_admin_group_id => p_admin_group_id
2221: ,x_msg_count => x_msg_count
2222: ,x_msg_data => x_msg_data
2223: ,x_view_access_flag => l_view_access_flag);
2224:
2225: IF x_return_status = FND_API.G_RET_STS_ERROR then
2226: raise FND_API.G_EXC_ERROR;
2227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2228: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2222: ,x_msg_data => x_msg_data
2223: ,x_view_access_flag => l_view_access_flag);
2224:
2225: IF x_return_status = FND_API.G_RET_STS_ERROR then
2226: raise FND_API.G_EXC_ERROR;
2227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2228: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230:
2223: ,x_view_access_flag => l_view_access_flag);
2224:
2225: IF x_return_status = FND_API.G_RET_STS_ERROR then
2226: raise FND_API.G_EXC_ERROR;
2227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2228: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230:
2231: if l_view_access_flag = 'Y'
2224:
2225: IF x_return_status = FND_API.G_RET_STS_ERROR then
2226: raise FND_API.G_EXC_ERROR;
2227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2228: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230:
2231: if l_view_access_flag = 'Y'
2232: then
2232: then
2233: x_access_privilege := 'R';
2234: as_access_pvt.has_updateOpportunityAccess
2235: (p_api_version_number => 2.0
2236: ,p_init_msg_list => FND_API.G_FALSE
2237: ,p_validation_level => p_validation_level
2238: ,p_access_profile_rec => p_access_profile_rec
2239: ,p_admin_flag => p_admin_flag
2240: ,p_admin_group_id => p_admin_group_id
2247: ,x_msg_count => x_msg_count
2248: ,x_msg_data => x_msg_data
2249: ,x_update_access_flag => l_update_access_flag);
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR then
2252: raise FND_API.G_EXC_ERROR;
2253: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2248: ,x_msg_data => x_msg_data
2249: ,x_update_access_flag => l_update_access_flag);
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR then
2252: raise FND_API.G_EXC_ERROR;
2253: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2249: ,x_update_access_flag => l_update_access_flag);
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR then
2252: raise FND_API.G_EXC_ERROR;
2253: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: if l_update_access_flag = 'Y'
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR then
2252: raise FND_API.G_EXC_ERROR;
2253: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: if l_update_access_flag = 'Y'
2258: then
2279: p_data => x_msg_data
2280: );
2281:
2282: EXCEPTION
2283: WHEN FND_API.G_EXC_ERROR THEN
2284: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2285: P_MODULE => l_module
2286: ,P_API_NAME => L_API_NAME
2287: ,P_PKG_NAME => G_PKG_NAME
2291: ,X_MSG_COUNT => X_MSG_COUNT
2292: ,X_MSG_DATA => X_MSG_DATA
2293: ,X_RETURN_STATUS => X_RETURN_STATUS);
2294:
2295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2296: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2297: P_MODULE => l_module
2298: ,P_API_NAME => L_API_NAME
2299: ,P_PKG_NAME => G_PKG_NAME
2322: end has_opportunityAccess ;
2323:
2324: procedure has_leadAccess
2325: ( p_api_version_number IN NUMBER
2326: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2327: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2328: ,p_access_profile_rec IN access_profile_rec_type
2329: ,p_admin_flag IN VARCHAR2
2330: ,p_admin_group_id IN NUMBER
2323:
2324: procedure has_leadAccess
2325: ( p_api_version_number IN NUMBER
2326: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2327: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2328: ,p_access_profile_rec IN access_profile_rec_type
2329: ,p_admin_flag IN VARCHAR2
2330: ,p_admin_group_id IN NUMBER
2331: ,p_person_id IN NUMBER
2346: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_leadAccess';
2347:
2348: begin
2349: -- Standard call to check for call compatibility.
2350: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2351: p_api_version_number,
2352: l_api_name,
2353: G_PKG_NAME)
2354: THEN
2351: p_api_version_number,
2352: l_api_name,
2353: G_PKG_NAME)
2354: THEN
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2357:
2358: -- Initialize message list if p_init_msg_list is set to TRUE.
2359: IF FND_API.to_Boolean( p_init_msg_list )
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2357:
2358: -- Initialize message list if p_init_msg_list is set to TRUE.
2359: IF FND_API.to_Boolean( p_init_msg_list )
2360: THEN
2361: FND_MSG_PUB.initialize;
2362: END IF;
2363:
2370: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
2371: END IF;
2372:
2373: -- Initialize API return status to SUCCESS
2374: x_return_status := FND_API.G_RET_STS_SUCCESS;
2375:
2376: IF l_debug THEN
2377: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2378: 'Public API: Calling as_access_pvt.has_viewCustomerAccess');
2380:
2381: x_access_privilege := 'N';
2382: as_access_pvt.has_viewLeadAccess
2383: (p_api_version_number => 2.0
2384: ,p_init_msg_list => FND_API.G_FALSE
2385: ,p_validation_level => p_validation_level
2386: ,p_access_profile_rec => p_access_profile_rec
2387: ,p_admin_flag => p_admin_flag
2388: ,p_admin_group_id => p_admin_group_id
2395: ,x_msg_count => x_msg_count
2396: ,x_msg_data => x_msg_data
2397: ,x_view_access_flag => l_view_access_flag);
2398:
2399: IF x_return_status = FND_API.G_RET_STS_ERROR then
2400: raise FND_API.G_EXC_ERROR;
2401: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2402: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2403: END IF;
2396: ,x_msg_data => x_msg_data
2397: ,x_view_access_flag => l_view_access_flag);
2398:
2399: IF x_return_status = FND_API.G_RET_STS_ERROR then
2400: raise FND_API.G_EXC_ERROR;
2401: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2402: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2403: END IF;
2404:
2397: ,x_view_access_flag => l_view_access_flag);
2398:
2399: IF x_return_status = FND_API.G_RET_STS_ERROR then
2400: raise FND_API.G_EXC_ERROR;
2401: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2402: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2403: END IF;
2404:
2405: if l_view_access_flag = 'Y'
2398:
2399: IF x_return_status = FND_API.G_RET_STS_ERROR then
2400: raise FND_API.G_EXC_ERROR;
2401: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2402: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2403: END IF;
2404:
2405: if l_view_access_flag = 'Y'
2406: then
2406: then
2407: x_access_privilege := 'R';
2408: as_access_pvt.has_updateLeadAccess
2409: (p_api_version_number => 2.0
2410: ,p_init_msg_list => FND_API.G_FALSE
2411: ,p_validation_level => p_validation_level
2412: ,p_access_profile_rec => p_access_profile_rec
2413: ,p_admin_flag => p_admin_flag
2414: ,p_admin_group_id => p_admin_group_id
2421: ,x_msg_count => x_msg_count
2422: ,x_msg_data => x_msg_data
2423: ,x_update_access_flag => l_update_access_flag);
2424:
2425: IF x_return_status = FND_API.G_RET_STS_ERROR then
2426: raise FND_API.G_EXC_ERROR;
2427: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2429: END IF;
2422: ,x_msg_data => x_msg_data
2423: ,x_update_access_flag => l_update_access_flag);
2424:
2425: IF x_return_status = FND_API.G_RET_STS_ERROR then
2426: raise FND_API.G_EXC_ERROR;
2427: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2429: END IF;
2430:
2423: ,x_update_access_flag => l_update_access_flag);
2424:
2425: IF x_return_status = FND_API.G_RET_STS_ERROR then
2426: raise FND_API.G_EXC_ERROR;
2427: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2429: END IF;
2430:
2431: if l_update_access_flag = 'Y'
2424:
2425: IF x_return_status = FND_API.G_RET_STS_ERROR then
2426: raise FND_API.G_EXC_ERROR;
2427: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2429: END IF;
2430:
2431: if l_update_access_flag = 'Y'
2432: then
2453: p_data => x_msg_data
2454: );
2455:
2456: EXCEPTION
2457: WHEN FND_API.G_EXC_ERROR THEN
2458: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2459: P_MODULE => l_module
2460: ,P_API_NAME => L_API_NAME
2461: ,P_PKG_NAME => G_PKG_NAME
2465: ,X_MSG_COUNT => X_MSG_COUNT
2466: ,X_MSG_DATA => X_MSG_DATA
2467: ,X_RETURN_STATUS => X_RETURN_STATUS);
2468:
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2471: P_MODULE => l_module
2472: ,P_API_NAME => L_API_NAME
2473: ,P_PKG_NAME => G_PKG_NAME
2496: end has_leadAccess ;
2497:
2498: procedure has_personAccess
2499: ( p_api_version_number IN NUMBER
2500: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2501: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2502: ,p_access_profile_rec IN access_profile_rec_type
2503: ,p_admin_flag IN VARCHAR2
2504: ,p_admin_group_id IN NUMBER
2497:
2498: procedure has_personAccess
2499: ( p_api_version_number IN NUMBER
2500: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
2501: ,p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
2502: ,p_access_profile_rec IN access_profile_rec_type
2503: ,p_admin_flag IN VARCHAR2
2504: ,p_admin_group_id IN NUMBER
2505: ,p_person_id IN NUMBER
2522: l_module CONSTANT VARCHAR2(255) := 'as.plsql.acpub.has_personAccess';
2523:
2524: begin
2525: -- Standard call to check for call compatibility.
2526: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2527: p_api_version_number,
2528: l_api_name,
2529: G_PKG_NAME)
2530: THEN
2527: p_api_version_number,
2528: l_api_name,
2529: G_PKG_NAME)
2530: THEN
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: END IF;
2533:
2534: -- Initialize message list if p_init_msg_list is set to TRUE.
2535: IF FND_API.to_Boolean( p_init_msg_list )
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: END IF;
2533:
2534: -- Initialize message list if p_init_msg_list is set to TRUE.
2535: IF FND_API.to_Boolean( p_init_msg_list )
2536: THEN
2537: FND_MSG_PUB.initialize;
2538: END IF;
2539:
2546: 'Start time: ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
2547: END IF;
2548:
2549: -- Initialize API return status to SUCCESS
2550: x_return_status := FND_API.G_RET_STS_SUCCESS;
2551:
2552: x_access_privilege := 'N';
2553: as_access_pub.has_viewPersonAccess
2554: (p_api_version_number => 2.0
2551:
2552: x_access_privilege := 'N';
2553: as_access_pub.has_viewPersonAccess
2554: (p_api_version_number => 2.0
2555: ,p_init_msg_list => FND_API.G_FALSE
2556: ,p_validation_level => p_validation_level
2557: ,p_access_profile_rec => p_access_profile_rec
2558: ,p_admin_flag => p_admin_flag
2559: ,p_admin_group_id => p_admin_group_id
2568: ,x_msg_count => x_msg_count
2569: ,x_msg_data => x_msg_data
2570: ,x_view_access_flag => l_view_access_flag);
2571:
2572: IF x_return_status = FND_API.G_RET_STS_ERROR then
2573: raise FND_API.G_EXC_ERROR;
2574: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2575: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2569: ,x_msg_data => x_msg_data
2570: ,x_view_access_flag => l_view_access_flag);
2571:
2572: IF x_return_status = FND_API.G_RET_STS_ERROR then
2573: raise FND_API.G_EXC_ERROR;
2574: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2575: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2577:
2570: ,x_view_access_flag => l_view_access_flag);
2571:
2572: IF x_return_status = FND_API.G_RET_STS_ERROR then
2573: raise FND_API.G_EXC_ERROR;
2574: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2575: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2577:
2578: if l_view_access_flag = 'Y'
2571:
2572: IF x_return_status = FND_API.G_RET_STS_ERROR then
2573: raise FND_API.G_EXC_ERROR;
2574: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2575: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2576: END IF;
2577:
2578: if l_view_access_flag = 'Y'
2579: then
2579: then
2580: x_access_privilege := 'R';
2581: as_access_pub.has_updatePersonAccess
2582: (p_api_version_number => 2.0
2583: ,p_init_msg_list => FND_API.G_FALSE
2584: ,p_validation_level => p_validation_level
2585: ,p_access_profile_rec => p_access_profile_rec
2586: ,p_admin_flag => p_admin_flag
2587: ,p_admin_group_id => p_admin_group_id
2596: ,x_msg_count => x_msg_count
2597: ,x_msg_data => x_msg_data
2598: ,x_update_access_flag => l_update_access_flag);
2599:
2600: IF x_return_status = FND_API.G_RET_STS_ERROR then
2601: raise FND_API.G_EXC_ERROR;
2602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2597: ,x_msg_data => x_msg_data
2598: ,x_update_access_flag => l_update_access_flag);
2599:
2600: IF x_return_status = FND_API.G_RET_STS_ERROR then
2601: raise FND_API.G_EXC_ERROR;
2602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2598: ,x_update_access_flag => l_update_access_flag);
2599:
2600: IF x_return_status = FND_API.G_RET_STS_ERROR then
2601: raise FND_API.G_EXC_ERROR;
2602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: if l_update_access_flag = 'Y'
2599:
2600: IF x_return_status = FND_API.G_RET_STS_ERROR then
2601: raise FND_API.G_EXC_ERROR;
2602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2604: END IF;
2605:
2606: if l_update_access_flag = 'Y'
2607: then
2628: p_data => x_msg_data
2629: );
2630:
2631: EXCEPTION
2632: WHEN FND_API.G_EXC_ERROR THEN
2633: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2634: P_MODULE => l_module
2635: ,P_API_NAME => L_API_NAME
2636: ,P_PKG_NAME => G_PKG_NAME
2640: ,X_MSG_COUNT => X_MSG_COUNT
2641: ,X_MSG_DATA => X_MSG_DATA
2642: ,X_RETURN_STATUS => X_RETURN_STATUS);
2643:
2644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2645: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2646: P_MODULE => l_module
2647: ,P_API_NAME => L_API_NAME
2648: ,P_PKG_NAME => G_PKG_NAME