[Home] [Help]
3874: pa_debug.write_file('Create_Version_OrgFcst: ' || ' the new period profile id is ' || l_period_profile_id);
3875: END IF;
3876: /* create the plan version */
3877: IF P_PA_DEBUG_MODE = 'Y' THEN
3878: pa_debug.write_file('Create_Version_OrgFcst: ' || 'calling pa_fp_budget_versions_pkg.Insert_Row to create a budget version');
3879: END IF;
3880: select pa_budget_versions_s.nextVal into l_budget_version_id from dual;
3881: /* the new version is the current working only if it's the ONLY working version */
3882: if (l_max_version = 0) then
3883: l_current_working_flag := 'Y';
3884: else
3885: l_current_working_flag := 'N';
3886: end if;
3887: pa_fp_budget_versions_pkg.Insert_Row
3888: (px_budget_version_id => l_budget_version_id, /* unique budget_version_id for new version */
3889: p_project_id => p_project_id, /* the ID of the project */
3890: p_budget_type_code => NULL,
3891: p_version_number => l_max_version+1, /* version_number incremented */
5139:
5140: -- 26-JUN-2003 jwhite - Plannable Task Dev Effort:
5141: -- Make code changes to Create_Version procedure to
5142: -- enable population of new parameters on
5143: -- PA_FP_BUDGET_VERSIONS_PKG.Insert_Row table handler.
5144:
5145: --
5146: -- 01-JUL-2003 jwhite - bug 2989874
5147: -- For Create_Version procedure, default ci from the current
6062: When No_Data_Found Then
6063: Null;
6064: End;
6065:
6066: pa_fp_budget_versions_pkg.Insert_Row
6067: (px_budget_version_id => l_new_budget_version_id, -- unique budget_version_id for new version
6068: p_project_id => p_project_id, -- the ID of the project
6069: p_budget_type_code => NULL,
6070: p_version_number => l_max_version_number+1, -- version_number incremented