558: ELSIF l_calling_context = lc_ForecastGeneration THEN
559: l_gen_src_code := l_fp_cols_rec_target.x_gen_etc_src_code;
560: END IF;
561:
562: l_stru_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(
563: p_project_id=> p_project_id );
564: -- SHARE_FULL
565: -- SHARE_PARTIAL
566: -- SPLIT_NO_MAPPING
568: -- dbms_output.put_line('proj id '||p_project_id );
569: -- dbms_output.put_line('bv id '||p_budget_version_id );
570: -- dbms_output.put_line('stru sharing code '||l_stru_sharing_code );
571: IF l_stru_sharing_code is null
572: AND PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( p_project_id )= 'Y'
573: AND l_gen_src_code = 'WORKPLAN_RESOURCES' THEN
574: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
575: p_msg_name => 'PA_ONLY_FIN_STRUCT');
576: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
609: IF l_versioning_enabled = 'Y' THEN
610: l_wp_status := l_fp_cols_rec_target.x_gen_src_wp_ver_code;
611: --dbms_output.put_line('ver code val :'||l_wp_status );
612: IF (l_wp_status = 'LAST_PUBLISHED') THEN
613: l_wp_id := PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION
614: ( P_PROJECT_ID => p_project_id );
615: IF l_wp_id is null THEN
616: PA_UTILS.ADD_MESSAGE
617: ( p_app_short_name => 'PA',
619: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
620: END IF;
621: ELSIF (l_wp_status = 'CURRENT_WORKING') THEN
622: --dbms_output.put_line('inside cw chk :');
623: l_wp_id := PA_PROJECT_STRUCTURE_UTILS.GET_CURRENT_WORKING_VER_ID
624: ( P_PROJECT_ID => p_project_id);
625: IF l_wp_id is null THEN
626: --dbms_output.put_line('cw id is null calling latest pub :');
627: l_wp_id := PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION
623: l_wp_id := PA_PROJECT_STRUCTURE_UTILS.GET_CURRENT_WORKING_VER_ID
624: ( P_PROJECT_ID => p_project_id);
625: IF l_wp_id is null THEN
626: --dbms_output.put_line('cw id is null calling latest pub :');
627: l_wp_id := PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION
628: ( P_PROJECT_ID => p_project_id );
629: END IF;
630: --dbms_output.put_line('wp id value : '||l_wp_id);
631: IF l_wp_id is null THEN
635: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
636: END IF;
637: -- Bug 4426511: Changed 'BASELINE', which was INCORRECT, to 'BASELINED'.
638: ELSIF (l_wp_status = 'BASELINED') THEN
639: l_wp_id := PA_PROJECT_STRUCTURE_UTILS.GET_BASELINE_STRUCT_VER
640: ( P_PROJECT_ID => p_project_id );
641: IF l_wp_id is null THEN
642: PA_UTILS.ADD_MESSAGE
643: ( p_app_short_name => 'PA',
645: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
646: END IF;
647: END IF;
648: ELSE
649: l_wp_id := PA_PROJECT_STRUCTURE_UTILS.GET_LATEST_WP_VERSION
650: ( P_PROJECT_ID => p_project_id );
651: IF l_wp_id is null THEN
652: PA_UTILS.ADD_MESSAGE
653: ( p_app_short_name => 'PA',