[Home] [Help]
3858: pa_debug.write_file('Create_Version_OrgFcst: ' || ' the new period profile id is ' || l_period_profile_id);
3859: END IF;
3860: /* create the plan version */
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3862: pa_debug.write_file('Create_Version_OrgFcst: ' || 'calling pa_fp_budget_versions_pkg.Insert_Row to create a budget version');
3863: END IF;
3864: select pa_budget_versions_s.nextVal into l_budget_version_id from dual;
3865: /* the new version is the current working only if it's the ONLY working version */
3866: if (l_max_version = 0) then
3867: l_current_working_flag := 'Y';
3868: else
3869: l_current_working_flag := 'N';
3870: end if;
3871: pa_fp_budget_versions_pkg.Insert_Row
3872: (px_budget_version_id => l_budget_version_id, /* unique budget_version_id for new version */
3873: p_project_id => p_project_id, /* the ID of the project */
3874: p_budget_type_code => NULL,
3875: p_version_number => l_max_version+1, /* version_number incremented */
5123:
5124: -- 26-JUN-2003 jwhite - Plannable Task Dev Effort:
5125: -- Make code changes to Create_Version procedure to
5126: -- enable population of new parameters on
5127: -- PA_FP_BUDGET_VERSIONS_PKG.Insert_Row table handler.
5128:
5129: --
5130: -- 01-JUL-2003 jwhite - bug 2989874
5131: -- For Create_Version procedure, default ci from the current
6045: When No_Data_Found Then
6046: Null;
6047: End;
6048:
6049: pa_fp_budget_versions_pkg.Insert_Row
6050: (px_budget_version_id => l_new_budget_version_id, -- unique budget_version_id for new version
6051: p_project_id => p_project_id, -- the ID of the project
6052: p_budget_type_code => NULL,
6053: p_version_number => l_max_version_number+1, -- version_number incremented