8: l_proc constant varchar2(100) := g_package || ' initLoginPrsnCtx';
9: CURSOR c_bg IS
10: SELECT business_group_id, nvl(org_information10,'USD') currency_code
11: FROM per_people_f ppf, hr_organization_information oi
12: WHERE ppf.person_id = fnd_global.employee_id
13: AND ppf.business_group_id = oi.organization_id
14: AND oi.org_information_context = 'Business Group Information'
15: AND g_eff_date between ppf.effective_start_date and ppf.effective_end_date;
16: BEGIN
330: open get_sec_person_id(hr_security.get_security_profile);
331: fetch get_sec_person_id into l_person_id;
332: close get_sec_person_id;
333: if l_person_id is null then
334: open get_user_person_id(fnd_global.user_id);
335: fetch get_user_person_id into l_person_id;
336: close get_user_person_id;
337: end if;
338: --
1002: -- 3952978
1003: --
1004: -- Mark HR Security cache as invalid. The next time a secure view
1005: -- is accessed - cache will be rebuilt. This is the equivalent of
1006: -- code calling fnd_global.apps_initialize but where the HR signon
1007: -- callback is not called - ie user/resp/sc context has not changed.
1008: --
1009:
1010: if ( nvl(fnd_profile.value('HR_SEC_INIT_AM'),'N') = 'Y')
1022: BEGIN
1023:
1024: l_enableSecGroups := nvl(fnd_profile.value('ENABLE_SECURITY_GROUPS'),'N');
1025:
1026: IF (nvl(fnd_global.application_short_name,'#') <> 'PER' AND l_enableSecGroups <> 'Y') THEN
1027: fnd_profile.get_specific('ENABLE_SECURITY_GROUPS',NULL,NULL,'800',l_enableSecGroups,defined_z,NULL,NULL);
1028: IF (nvl(l_enableSecGroups,'N') <> nvl(fnd_profile.value('ENABLE_SECURITY_GROUPS'),'N')) THEN
1029: fnd_profile.put('ENABLE_SECURITY_GROUPS', l_enableSecGroups);
1030: END IF;
1061: where security_group_key = p_bgId;
1062:
1063: fnd_client_info.set_security_group_context(to_char(l_secGrpId));
1064: -- Fix for bug 5531282 , this reverts the earlier fix for bug 5084537
1065: --FND_GLOBAL.set_security_group_id_context(l_secGrpId);
1066:
1067: EXCEPTION When Others then
1068: fnd_client_info.set_security_group_context(to_char(l_secGrpId));
1069: -- Fix for bug 5531282 , this reverts the earlier fix for bug 5084537
1066:
1067: EXCEPTION When Others then
1068: fnd_client_info.set_security_group_context(to_char(l_secGrpId));
1069: -- Fix for bug 5531282 , this reverts the earlier fix for bug 5084537
1070: -- FND_GLOBAL.set_security_group_id_context(l_secGrpId);
1071: END;
1072: END IF;
1073:
1074: EXCEPTION