3:
4: /* package global to be used during updates */
5:
6: -- To check on, whether to print debug messages in log file or not
7: L_DEBUG varchar2(1) := NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N');
8:
9: G_USER_ID CONSTANT NUMBER := FND_GLOBAL.user_id;
10: G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.login_id;
11:
2780: l_user_profile_value1 VARCHAR2(30);
2781: l_set_profile_success1 BOOLEAN := FALSE;
2782: l_user_profile_value2 VARCHAR2(30);
2783: l_set_profile_success2 BOOLEAN := FALSE;
2784: l_funds_check_at_submit VARCHAR2(1) := NVL(FND_PROFILE.value('GMS_ENABLE_FUNDS_CHECK_AT_SUBMIT'),'Y'); -- Bug 2290959
2785: l_wf_enabled_flag VARCHAR2(1);--Added for bug 5620089
2786: BEGIN
2787:
2788: gms_error_pkg.set_debug_context; -- Added for Bug: 2510024
3781: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Project Budget Summarization ', 'C');
3782: END IF;
3783:
3784: -- Bug 2386041
3785: l_user_profile_value1 := fnd_profile.value_specific('PA_SUPER_PROJECT', fnd_global.user_id, fnd_global.resp_id, fnd_global.resp_appl_id);
3786: if ((l_user_profile_value1 = 'N') OR (l_user_profile_value1 is null)) then
3787:
3788: BEGIN
3789:
3788: BEGIN
3789:
3790: SELECT profile_option_value
3791: INTO l_user_profile_value1
3792: FROM fnd_profile_options p,
3793: fnd_profile_option_values v
3794: WHERE p.profile_option_name = 'PA_SUPER_PROJECT'
3795: AND v.profile_option_id = p.profile_option_id
3796: AND v.level_id = 10004
3789:
3790: SELECT profile_option_value
3791: INTO l_user_profile_value1
3792: FROM fnd_profile_options p,
3793: fnd_profile_option_values v
3794: WHERE p.profile_option_name = 'PA_SUPER_PROJECT'
3795: AND v.profile_option_id = p.profile_option_id
3796: AND v.level_id = 10004
3797: AND v.level_value = fnd_global.user_id;
3805: l_user_profile_value1 := null;
3806:
3807: END;
3808:
3809: l_set_profile_success1 := fnd_profile.save('PA_SUPER_PROJECT', 'Y', 'USER', fnd_global.user_id);
3810: end if;
3811:
3812: l_user_profile_value2 := fnd_profile.value_specific('PA_SUPER_PROJECT_VIEW', fnd_global.user_id, fnd_global.resp_id, fnd_global.resp_appl_id);
3813: if ((l_user_profile_value2 = 'N') OR (l_user_profile_value2 is null)) then
3808:
3809: l_set_profile_success1 := fnd_profile.save('PA_SUPER_PROJECT', 'Y', 'USER', fnd_global.user_id);
3810: end if;
3811:
3812: l_user_profile_value2 := fnd_profile.value_specific('PA_SUPER_PROJECT_VIEW', fnd_global.user_id, fnd_global.resp_id, fnd_global.resp_appl_id);
3813: if ((l_user_profile_value2 = 'N') OR (l_user_profile_value2 is null)) then
3814:
3815: BEGIN
3816:
3815: BEGIN
3816:
3817: SELECT profile_option_value
3818: INTO l_user_profile_value2
3819: FROM fnd_profile_options p,
3820: fnd_profile_option_values v
3821: WHERE p.profile_option_name = 'PA_SUPER_PROJECT_VIEW'
3822: AND v.profile_option_id = p.profile_option_id
3823: AND v.level_id = 10004
3816:
3817: SELECT profile_option_value
3818: INTO l_user_profile_value2
3819: FROM fnd_profile_options p,
3820: fnd_profile_option_values v
3821: WHERE p.profile_option_name = 'PA_SUPER_PROJECT_VIEW'
3822: AND v.profile_option_id = p.profile_option_id
3823: AND v.level_id = 10004
3824: AND v.level_value = fnd_global.user_id;
3832: l_user_profile_value2 := null;
3833:
3834: END;
3835:
3836: l_set_profile_success2 := fnd_profile.save('PA_SUPER_PROJECT_VIEW', 'Y', 'USER', fnd_global.user_id);
3837:
3838: end if;
3839:
3840:
3850: , ERRBUF => x_err_stage);
3851:
3852: -- Bug 2386041
3853: if (l_set_profile_success1 = TRUE) then
3854: l_set_profile_success1 := fnd_profile.save('PA_SUPER_PROJECT', l_user_profile_value1, 'USER', fnd_global.user_id);
3855: end if;
3856: if (l_set_profile_success2 = TRUE) then
3857: l_set_profile_success2 := fnd_profile.save('PA_SUPER_PROJECT_VIEW', l_user_profile_value2, 'USER', fnd_global.user_id);
3858: end if;
3853: if (l_set_profile_success1 = TRUE) then
3854: l_set_profile_success1 := fnd_profile.save('PA_SUPER_PROJECT', l_user_profile_value1, 'USER', fnd_global.user_id);
3855: end if;
3856: if (l_set_profile_success2 = TRUE) then
3857: l_set_profile_success2 := fnd_profile.save('PA_SUPER_PROJECT_VIEW', l_user_profile_value2, 'USER', fnd_global.user_id);
3858: end if;
3859: -- Bug 2386041
3860:
3861: -- Fix for bug : 5511910. We retrun stasus values as 'P' if summarization does not happen.