14: END; -- End procedure Log_Mesg
15:
16: PROCEDURE Initialize IS
17: BEGIN
18: G_ACCESS_REC_TYPE.Cust_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_CUST_ACCESS'),'F');
19: G_ACCESS_REC_TYPE.Lead_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_LEAD_ACCESS'),'F');
20: G_ACCESS_REC_TYPE.Opp_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_OPP_ACCESS'),'F');
21: G_ACCESS_REC_TYPE.Mgr_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_MGR_UPDATE'),'R');
22: G_ACCESS_REC_TYPE.Admin_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_ADMIN_UPDATE'),'R');
15:
16: PROCEDURE Initialize IS
17: BEGIN
18: G_ACCESS_REC_TYPE.Cust_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_CUST_ACCESS'),'F');
19: G_ACCESS_REC_TYPE.Lead_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_LEAD_ACCESS'),'F');
20: G_ACCESS_REC_TYPE.Opp_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_OPP_ACCESS'),'F');
21: G_ACCESS_REC_TYPE.Mgr_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_MGR_UPDATE'),'R');
22: G_ACCESS_REC_TYPE.Admin_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_ADMIN_UPDATE'),'R');
23: END;
16: PROCEDURE Initialize IS
17: BEGIN
18: G_ACCESS_REC_TYPE.Cust_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_CUST_ACCESS'),'F');
19: G_ACCESS_REC_TYPE.Lead_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_LEAD_ACCESS'),'F');
20: G_ACCESS_REC_TYPE.Opp_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_OPP_ACCESS'),'F');
21: G_ACCESS_REC_TYPE.Mgr_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_MGR_UPDATE'),'R');
22: G_ACCESS_REC_TYPE.Admin_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_ADMIN_UPDATE'),'R');
23: END;
24:
17: BEGIN
18: G_ACCESS_REC_TYPE.Cust_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_CUST_ACCESS'),'F');
19: G_ACCESS_REC_TYPE.Lead_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_LEAD_ACCESS'),'F');
20: G_ACCESS_REC_TYPE.Opp_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_OPP_ACCESS'),'F');
21: G_ACCESS_REC_TYPE.Mgr_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_MGR_UPDATE'),'R');
22: G_ACCESS_REC_TYPE.Admin_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_ADMIN_UPDATE'),'R');
23: END;
24:
25: PROCEDURE Has_Create_LeadOppAccess
18: G_ACCESS_REC_TYPE.Cust_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_CUST_ACCESS'),'F');
19: G_ACCESS_REC_TYPE.Lead_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_LEAD_ACCESS'),'F');
20: G_ACCESS_REC_TYPE.Opp_Access_Profile_Value := NVL(FND_PROFILE.VALUE('AS_OPP_ACCESS'),'F');
21: G_ACCESS_REC_TYPE.Mgr_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_MGR_UPDATE'),'R');
22: G_ACCESS_REC_TYPE.Admin_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_ADMIN_UPDATE'),'R');
23: END;
24:
25: PROCEDURE Has_Create_LeadOppAccess
26: ( p_admin_flag VARCHAR2,
115: l_return_status VARCHAR2(1);
116: l_ret_stat_success VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
117: BEGIN
118: Initialize;
119: l_accessFlag := nvl(fnd_profile.value('AS_ALLOW_CHANGE_LEAD_OWNER'),'N');
120: if (l_accessFlag <> 'Y') then
121: AS_ACCESS_PVT.has_LeadOwnerAccess
122: ( p_api_version_Number => 2.0,
123: p_init_msg_list => l_false,