8: based on the funding lines when automatic baseline feature is enabled for
9: the project.
10: ===============================================================================*/
11:
12: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
13:
14: PROCEDURE CREATE_BASELINED_VERSION
15: ( p_project_id IN pa_budget_versions.project_id%TYPE
16: ,p_fin_plan_type_id IN pa_budget_versions.fin_plan_type_id%TYPE
40: l_uncateg_resource_list_id pa_proj_fp_options.cost_resource_list_id%TYPE;
41: l_uncateg_rlm_id pa_resource_assignments.resource_list_member_id%TYPE;
42: l_uncateg_resource_id pa_resource_list_members.resource_id%TYPE;
43: l_uncateg_trk_as_labor_flg pa_resource_list_members.track_as_labor_flag%TYPE;
44: l_err_code pa_debug.G_Err_Code%TYPE;
45: l_err_stage pa_debug.g_err_stage%TYPE;
46:
47: l_plan_in_mc_flag pa_proj_fp_options.plan_in_multi_curr_flag%TYPE;
48: l_budget_lines_tab pa_fin_plan_pvt.budget_lines_tab;
41: l_uncateg_rlm_id pa_resource_assignments.resource_list_member_id%TYPE;
42: l_uncateg_resource_id pa_resource_list_members.resource_id%TYPE;
43: l_uncateg_trk_as_labor_flg pa_resource_list_members.track_as_labor_flag%TYPE;
44: l_err_code pa_debug.G_Err_Code%TYPE;
45: l_err_stage pa_debug.g_err_stage%TYPE;
46:
47: l_plan_in_mc_flag pa_proj_fp_options.plan_in_multi_curr_flag%TYPE;
48: l_budget_lines_tab pa_fin_plan_pvt.budget_lines_tab;
49:
71: BEGIN
72:
73: x_msg_count := 0;
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: pa_debug.set_err_stack('PA_FP_AUTO_BASELINE_PKG.CREATE_AUTO_BASELINE_VERSION');
76: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
77: l_debug_mode := NVL(l_debug_mode, 'Y');
78: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
79:
72:
73: x_msg_count := 0;
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: pa_debug.set_err_stack('PA_FP_AUTO_BASELINE_PKG.CREATE_AUTO_BASELINE_VERSION');
76: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
77: l_debug_mode := NVL(l_debug_mode, 'Y');
78: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
79:
80: -- Check for business rules violations
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: pa_debug.set_err_stack('PA_FP_AUTO_BASELINE_PKG.CREATE_AUTO_BASELINE_VERSION');
76: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
77: l_debug_mode := NVL(l_debug_mode, 'Y');
78: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
79:
80: -- Check for business rules violations
81:
82: pa_debug.g_err_stage:= 'Validating input parameters';
78: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
79:
80: -- Check for business rules violations
81:
82: pa_debug.g_err_stage:= 'Validating input parameters';
83: IF P_PA_DEBUG_MODE = 'Y' THEN
84: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
85: END IF;
86:
79:
80: -- Check for business rules violations
81:
82: pa_debug.g_err_stage:= 'Validating input parameters';
83: IF P_PA_DEBUG_MODE = 'Y' THEN
84: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
85: END IF;
86:
87: --Check if project id or plan type id or plan level code
80: -- Check for business rules violations
81:
82: pa_debug.g_err_stage:= 'Validating input parameters';
83: IF P_PA_DEBUG_MODE = 'Y' THEN
84: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
85: END IF;
86:
87: --Check if project id or plan type id or plan level code
88: --is null
91: or p_funding_level_code not in (PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT,
92: PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP))
93: THEN
94:
95: pa_debug.g_err_stage:= 'project id = '|| p_project_id ;
96: IF P_PA_DEBUG_MODE = 'Y' THEN
97: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
98: END IF;
99:
92: PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_TOP))
93: THEN
94:
95: pa_debug.g_err_stage:= 'project id = '|| p_project_id ;
96: IF P_PA_DEBUG_MODE = 'Y' THEN
97: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
98: END IF;
99:
100: pa_debug.g_err_stage:= 'plan type id = '|| p_fin_plan_type_id;
93: THEN
94:
95: pa_debug.g_err_stage:= 'project id = '|| p_project_id ;
96: IF P_PA_DEBUG_MODE = 'Y' THEN
97: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
98: END IF;
99:
100: pa_debug.g_err_stage:= 'plan type id = '|| p_fin_plan_type_id;
101: IF P_PA_DEBUG_MODE = 'Y' THEN
96: IF P_PA_DEBUG_MODE = 'Y' THEN
97: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
98: END IF;
99:
100: pa_debug.g_err_stage:= 'plan type id = '|| p_fin_plan_type_id;
101: IF P_PA_DEBUG_MODE = 'Y' THEN
102: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
103: END IF;
104:
97: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
98: END IF;
99:
100: pa_debug.g_err_stage:= 'plan type id = '|| p_fin_plan_type_id;
101: IF P_PA_DEBUG_MODE = 'Y' THEN
102: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
103: END IF;
104:
105: pa_debug.g_err_stage:= 'finplan level code = '|| p_funding_level_code;
98: END IF;
99:
100: pa_debug.g_err_stage:= 'plan type id = '|| p_fin_plan_type_id;
101: IF P_PA_DEBUG_MODE = 'Y' THEN
102: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
103: END IF;
104:
105: pa_debug.g_err_stage:= 'finplan level code = '|| p_funding_level_code;
106: IF P_PA_DEBUG_MODE = 'Y' THEN
101: IF P_PA_DEBUG_MODE = 'Y' THEN
102: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
103: END IF;
104:
105: pa_debug.g_err_stage:= 'finplan level code = '|| p_funding_level_code;
106: IF P_PA_DEBUG_MODE = 'Y' THEN
107: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
108: END IF;
109:
102: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
103: END IF;
104:
105: pa_debug.g_err_stage:= 'finplan level code = '|| p_funding_level_code;
106: IF P_PA_DEBUG_MODE = 'Y' THEN
107: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
108: END IF;
109:
110: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
103: END IF;
104:
105: pa_debug.g_err_stage:= 'finplan level code = '|| p_funding_level_code;
106: IF P_PA_DEBUG_MODE = 'Y' THEN
107: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
108: END IF;
109:
110: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
111: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
113: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
114:
115: END IF;
116:
117: pa_debug.g_err_stage:= 'Input parameters validated';
118: IF P_PA_DEBUG_MODE = 'Y' THEN
119: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
120: END IF;
121:
114:
115: END IF;
116:
117: pa_debug.g_err_stage:= 'Input parameters validated';
118: IF P_PA_DEBUG_MODE = 'Y' THEN
119: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
120: END IF;
121:
122: l_calling_context := PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE; /* Bug# 2674353 */
115: END IF;
116:
117: pa_debug.g_err_stage:= 'Input parameters validated';
118: IF P_PA_DEBUG_MODE = 'Y' THEN
119: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
120: END IF;
121:
122: l_calling_context := PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE; /* Bug# 2674353 */
123:
120: END IF;
121:
122: l_calling_context := PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE; /* Bug# 2674353 */
123:
124: pa_debug.g_err_stage:= 'Get the uncategorized resource list id';
125: IF P_PA_DEBUG_MODE = 'Y' THEN
126: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
127: END IF;
128:
121:
122: l_calling_context := PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE; /* Bug# 2674353 */
123:
124: pa_debug.g_err_stage:= 'Get the uncategorized resource list id';
125: IF P_PA_DEBUG_MODE = 'Y' THEN
126: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
127: END IF;
128:
129: PA_GET_RESOURCE.Get_Uncateg_Resource_Info( p_resource_list_id => l_uncateg_resource_list_id
122: l_calling_context := PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE; /* Bug# 2674353 */
123:
124: pa_debug.g_err_stage:= 'Get the uncategorized resource list id';
125: IF P_PA_DEBUG_MODE = 'Y' THEN
126: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
127: END IF;
128:
129: PA_GET_RESOURCE.Get_Uncateg_Resource_Info( p_resource_list_id => l_uncateg_resource_list_id
130: ,p_resource_list_member_id => l_uncateg_rlm_id
131: ,p_resource_id => l_uncateg_resource_id
132: ,p_track_as_labor_flag => l_uncateg_trk_as_labor_flg
133: ,p_err_code => l_err_code
134: ,p_err_stage => l_err_stage
135: ,p_err_stack => PA_DEBUG.G_Err_Stack);
136:
137: pa_debug.g_err_stage:= 'uncategorized resource list id ' || l_uncateg_resource_list_id;
138: IF P_PA_DEBUG_MODE = 'Y' THEN
139: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
133: ,p_err_code => l_err_code
134: ,p_err_stage => l_err_stage
135: ,p_err_stack => PA_DEBUG.G_Err_Stack);
136:
137: pa_debug.g_err_stage:= 'uncategorized resource list id ' || l_uncateg_resource_list_id;
138: IF P_PA_DEBUG_MODE = 'Y' THEN
139: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
140: END IF;
141:
134: ,p_err_stage => l_err_stage
135: ,p_err_stack => PA_DEBUG.G_Err_Stack);
136:
137: pa_debug.g_err_stage:= 'uncategorized resource list id ' || l_uncateg_resource_list_id;
138: IF P_PA_DEBUG_MODE = 'Y' THEN
139: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
140: END IF;
141:
142: pa_debug.g_err_stage:= 'Determine the MC flag';
135: ,p_err_stack => PA_DEBUG.G_Err_Stack);
136:
137: pa_debug.g_err_stage:= 'uncategorized resource list id ' || l_uncateg_resource_list_id;
138: IF P_PA_DEBUG_MODE = 'Y' THEN
139: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
140: END IF;
141:
142: pa_debug.g_err_stage:= 'Determine the MC flag';
143: IF P_PA_DEBUG_MODE = 'Y' THEN
138: IF P_PA_DEBUG_MODE = 'Y' THEN
139: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
140: END IF;
141:
142: pa_debug.g_err_stage:= 'Determine the MC flag';
143: IF P_PA_DEBUG_MODE = 'Y' THEN
144: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
145: END IF;
146:
139: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
140: END IF;
141:
142: pa_debug.g_err_stage:= 'Determine the MC flag';
143: IF P_PA_DEBUG_MODE = 'Y' THEN
144: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
145: END IF;
146:
147: pa_budget_utils.Get_Project_Currency_Info
140: END IF;
141:
142: pa_debug.g_err_stage:= 'Determine the MC flag';
143: IF P_PA_DEBUG_MODE = 'Y' THEN
144: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
145: END IF;
146:
147: pa_budget_utils.Get_Project_Currency_Info
148: (
155: , x_return_status => x_return_status
156: );
157:
158: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
159: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
160: IF P_PA_DEBUG_MODE = 'Y' THEN
161: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
162: END IF;
163: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
156: );
157:
158: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
159: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
160: IF P_PA_DEBUG_MODE = 'Y' THEN
161: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
162: END IF;
163: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
164: END IF;
157:
158: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
159: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
160: IF P_PA_DEBUG_MODE = 'Y' THEN
161: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
162: END IF;
163: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
164: END IF;
165:
169: ELSE
170: l_plan_in_mc_flag := 'N';
171: END IF;
172:
173: pa_debug.g_err_stage:= 'MC flag -> ' || l_plan_in_mc_flag;
174: IF P_PA_DEBUG_MODE = 'Y' THEN
175: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
176: END IF;
177:
170: l_plan_in_mc_flag := 'N';
171: END IF;
172:
173: pa_debug.g_err_stage:= 'MC flag -> ' || l_plan_in_mc_flag;
174: IF P_PA_DEBUG_MODE = 'Y' THEN
175: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
176: END IF;
177:
178:
171: END IF;
172:
173: pa_debug.g_err_stage:= 'MC flag -> ' || l_plan_in_mc_flag;
174: IF P_PA_DEBUG_MODE = 'Y' THEN
175: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
176: END IF;
177:
178:
179: pa_debug.g_err_stage:= 'Get the currency attributes from the plan type';
175: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
176: END IF;
177:
178:
179: pa_debug.g_err_stage:= 'Get the currency attributes from the plan type';
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
182: END IF;
183:
176: END IF;
177:
178:
179: pa_debug.g_err_stage:= 'Get the currency attributes from the plan type';
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
182: END IF;
183:
184: l_fp_options_id := pa_proj_fp_options_pub.get_fp_option_id( p_project_id => p_project_id
177:
178:
179: pa_debug.g_err_stage:= 'Get the currency attributes from the plan type';
180: IF P_PA_DEBUG_MODE = 'Y' THEN
181: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
182: END IF;
183:
184: l_fp_options_id := pa_proj_fp_options_pub.get_fp_option_id( p_project_id => p_project_id
185: ,p_plan_type_id => p_fin_plan_type_id
184: l_fp_options_id := pa_proj_fp_options_pub.get_fp_option_id( p_project_id => p_project_id
185: ,p_plan_type_id => p_fin_plan_type_id
186: ,p_plan_version_id => NULL );
187:
188: pa_debug.g_err_stage:= 'plan type option id is ' || l_fp_options_id;
189: IF P_PA_DEBUG_MODE = 'Y' THEN
190: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
191: END IF;
192:
185: ,p_plan_type_id => p_fin_plan_type_id
186: ,p_plan_version_id => NULL );
187:
188: pa_debug.g_err_stage:= 'plan type option id is ' || l_fp_options_id;
189: IF P_PA_DEBUG_MODE = 'Y' THEN
190: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
191: END IF;
192:
193: l_fp_mc_cols := pa_proj_fp_options_pub.Get_FP_Proj_Mc_Options(p_proj_fp_options_id => l_fp_options_id);
186: ,p_plan_version_id => NULL );
187:
188: pa_debug.g_err_stage:= 'plan type option id is ' || l_fp_options_id;
189: IF P_PA_DEBUG_MODE = 'Y' THEN
190: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
191: END IF;
192:
193: l_fp_mc_cols := pa_proj_fp_options_pub.Get_FP_Proj_Mc_Options(p_proj_fp_options_id => l_fp_options_id);
194:
192:
193: l_fp_mc_cols := pa_proj_fp_options_pub.Get_FP_Proj_Mc_Options(p_proj_fp_options_id => l_fp_options_id);
194:
195:
196: pa_debug.g_err_stage:= 'Prepare the budget lines tab from funding lines tab';
197: IF P_PA_DEBUG_MODE = 'Y' THEN
198: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
199: END IF;
200:
193: l_fp_mc_cols := pa_proj_fp_options_pub.Get_FP_Proj_Mc_Options(p_proj_fp_options_id => l_fp_options_id);
194:
195:
196: pa_debug.g_err_stage:= 'Prepare the budget lines tab from funding lines tab';
197: IF P_PA_DEBUG_MODE = 'Y' THEN
198: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
199: END IF;
200:
201:
194:
195:
196: pa_debug.g_err_stage:= 'Prepare the budget lines tab from funding lines tab';
197: IF P_PA_DEBUG_MODE = 'Y' THEN
198: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
199: END IF;
200:
201:
202:
215: END IF;
216:
217: l_budget_lines_tab(i).description := p_funding_bl_tab(i).description;
218: IF(p_funding_bl_tab(i).start_date IS NULL) THEN
219: pa_debug.g_err_stage:= 'start date is null';
220: IF P_PA_DEBUG_MODE = 'Y' THEN
221: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
222: END IF;
223: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
216:
217: l_budget_lines_tab(i).description := p_funding_bl_tab(i).description;
218: IF(p_funding_bl_tab(i).start_date IS NULL) THEN
219: pa_debug.g_err_stage:= 'start date is null';
220: IF P_PA_DEBUG_MODE = 'Y' THEN
221: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
222: END IF;
223: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
224: ELSE
217: l_budget_lines_tab(i).description := p_funding_bl_tab(i).description;
218: IF(p_funding_bl_tab(i).start_date IS NULL) THEN
219: pa_debug.g_err_stage:= 'start date is null';
220: IF P_PA_DEBUG_MODE = 'Y' THEN
221: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
222: END IF;
223: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
224: ELSE
225: l_budget_lines_tab(i).start_date := p_funding_bl_tab(i).start_date;
228:
229: /* In budget lines table the end date is a not null column. Hence including
230: the following validation */
231: IF(p_funding_bl_tab(i).end_date IS NULL) THEN --Included after UT.
232: pa_debug.g_err_stage:= 'end date is null';
233: IF P_PA_DEBUG_MODE = 'Y' THEN
234: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
235: END IF;
236: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
229: /* In budget lines table the end date is a not null column. Hence including
230: the following validation */
231: IF(p_funding_bl_tab(i).end_date IS NULL) THEN --Included after UT.
232: pa_debug.g_err_stage:= 'end date is null';
233: IF P_PA_DEBUG_MODE = 'Y' THEN
234: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
235: END IF;
236: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
237: ELSE
230: the following validation */
231: IF(p_funding_bl_tab(i).end_date IS NULL) THEN --Included after UT.
232: pa_debug.g_err_stage:= 'end date is null';
233: IF P_PA_DEBUG_MODE = 'Y' THEN
234: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
235: END IF;
236: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
237: ELSE
238: l_budget_lines_tab(i).end_date := p_funding_bl_tab(i).end_date;
297: l_budget_lines_tab(i).resource_assignment_id := -1;
298: END LOOP;
299: END IF;
300:
301: pa_debug.g_err_stage:= 'Calling pa_fin_plan_pvt.create_draft';
302: IF P_PA_DEBUG_MODE = 'Y' THEN
303: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
304: END IF;
305:
298: END LOOP;
299: END IF;
300:
301: pa_debug.g_err_stage:= 'Calling pa_fin_plan_pvt.create_draft';
302: IF P_PA_DEBUG_MODE = 'Y' THEN
303: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
304: END IF;
305:
306: pa_fin_plan_pvt.create_draft
299: END IF;
300:
301: pa_debug.g_err_stage:= 'Calling pa_fin_plan_pvt.create_draft';
302: IF P_PA_DEBUG_MODE = 'Y' THEN
303: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
304: END IF;
305:
306: pa_fin_plan_pvt.create_draft
307: ( p_project_id => p_project_id
373: ,x_msg_count => x_msg_count
374: ,x_msg_data => x_msg_data );
375:
376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
377: pa_debug.g_err_stage:= 'Error Calling Create_Draft';
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
380: END IF;
381: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
374: ,x_msg_data => x_msg_data );
375:
376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
377: pa_debug.g_err_stage:= 'Error Calling Create_Draft';
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
380: END IF;
381: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
382: ELSE
375:
376: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
377: pa_debug.g_err_stage:= 'Error Calling Create_Draft';
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
380: END IF;
381: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
382: ELSE
383: x_budget_version_id := l_created_version_id;
380: END IF;
381: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
382: ELSE
383: x_budget_version_id := l_created_version_id;
384: pa_debug.g_err_stage:= 'successful call of Create_Draft. Created Version id : ' || l_created_version_id;
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
387: END IF;
388: END IF;
381: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
382: ELSE
383: x_budget_version_id := l_created_version_id;
384: pa_debug.g_err_stage:= 'successful call of Create_Draft. Created Version id : ' || l_created_version_id;
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
387: END IF;
388: END IF;
389:
382: ELSE
383: x_budget_version_id := l_created_version_id;
384: pa_debug.g_err_stage:= 'successful call of Create_Draft. Created Version id : ' || l_created_version_id;
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
387: END IF;
388: END IF;
389:
390: /* Review Comment */
392: (p_budget_version_id => l_created_version_id);
393:
394: /* The version needs to be baselined only if the ci_id is null - Bug 2672654 */
395: IF (p_ci_id is null) THEN
396: pa_debug.g_err_stage:= 'This is not a control item version - Going ahead to baseline';
397: IF P_PA_DEBUG_MODE = 'Y' THEN
398: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
399: END IF;
400:
393:
394: /* The version needs to be baselined only if the ci_id is null - Bug 2672654 */
395: IF (p_ci_id is null) THEN
396: pa_debug.g_err_stage:= 'This is not a control item version - Going ahead to baseline';
397: IF P_PA_DEBUG_MODE = 'Y' THEN
398: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
399: END IF;
400:
401: pa_debug.g_err_stage:= 'Get details of the existing baselined version';
394: /* The version needs to be baselined only if the ci_id is null - Bug 2672654 */
395: IF (p_ci_id is null) THEN
396: pa_debug.g_err_stage:= 'This is not a control item version - Going ahead to baseline';
397: IF P_PA_DEBUG_MODE = 'Y' THEN
398: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
399: END IF;
400:
401: pa_debug.g_err_stage:= 'Get details of the existing baselined version';
402: IF P_PA_DEBUG_MODE = 'Y' THEN
397: IF P_PA_DEBUG_MODE = 'Y' THEN
398: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
399: END IF;
400:
401: pa_debug.g_err_stage:= 'Get details of the existing baselined version';
402: IF P_PA_DEBUG_MODE = 'Y' THEN
403: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
404: END IF;
405:
398: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
399: END IF;
400:
401: pa_debug.g_err_stage:= 'Get details of the existing baselined version';
402: IF P_PA_DEBUG_MODE = 'Y' THEN
403: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
404: END IF;
405:
406: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
399: END IF;
400:
401: pa_debug.g_err_stage:= 'Get details of the existing baselined version';
402: IF P_PA_DEBUG_MODE = 'Y' THEN
403: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
404: END IF;
405:
406: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
407: p_project_id => p_project_id
413: ,x_msg_count => x_msg_count
414: ,x_msg_data => x_msg_data );
415:
416: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
417: pa_debug.g_err_stage:= 'Error Getting current baselined version info';
418: IF P_PA_DEBUG_MODE = 'Y' THEN
419: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
420: END IF;
421: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
414: ,x_msg_data => x_msg_data );
415:
416: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
417: pa_debug.g_err_stage:= 'Error Getting current baselined version info';
418: IF P_PA_DEBUG_MODE = 'Y' THEN
419: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
420: END IF;
421: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
422: END IF;
415:
416: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
417: pa_debug.g_err_stage:= 'Error Getting current baselined version info';
418: IF P_PA_DEBUG_MODE = 'Y' THEN
419: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
420: END IF;
421: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
422: END IF;
423:
420: END IF;
421: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
422: END IF;
423:
424: pa_debug.g_err_stage:= 'current baselined version id -> ' || l_baselined_version_id;
425: IF P_PA_DEBUG_MODE = 'Y' THEN
426: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
427: END IF;
428:
421: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
422: END IF;
423:
424: pa_debug.g_err_stage:= 'current baselined version id -> ' || l_baselined_version_id;
425: IF P_PA_DEBUG_MODE = 'Y' THEN
426: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
427: END IF;
428:
429:
422: END IF;
423:
424: pa_debug.g_err_stage:= 'current baselined version id -> ' || l_baselined_version_id;
425: IF P_PA_DEBUG_MODE = 'Y' THEN
426: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
427: END IF;
428:
429:
430:
451: -- Bug Fix: 4569365. Removed MRC code.
452: -- PA_MRC_FINPLAN.G_CALLING_MODULE := null; /* Bug 2881994 */
453:
454: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
455: pa_debug.g_err_stage:= 'Error baselining version - Version id->' || l_created_version_id;
456: IF P_PA_DEBUG_MODE = 'Y' THEN
457: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
458: END IF;
459: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
452: -- PA_MRC_FINPLAN.G_CALLING_MODULE := null; /* Bug 2881994 */
453:
454: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
455: pa_debug.g_err_stage:= 'Error baselining version - Version id->' || l_created_version_id;
456: IF P_PA_DEBUG_MODE = 'Y' THEN
457: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
458: END IF;
459: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
460: END IF;
453:
454: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
455: pa_debug.g_err_stage:= 'Error baselining version - Version id->' || l_created_version_id;
456: IF P_PA_DEBUG_MODE = 'Y' THEN
457: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
458: END IF;
459: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
460: END IF;
461:
459: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
460: END IF;
461:
462: ELSE
463: pa_debug.g_err_stage:= 'This is a control item version - Skipped baseline';
464: IF P_PA_DEBUG_MODE = 'Y' THEN
465: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
466: END IF;
467: END IF;
460: END IF;
461:
462: ELSE
463: pa_debug.g_err_stage:= 'This is a control item version - Skipped baseline';
464: IF P_PA_DEBUG_MODE = 'Y' THEN
465: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
466: END IF;
467: END IF;
468:
461:
462: ELSE
463: pa_debug.g_err_stage:= 'This is a control item version - Skipped baseline';
464: IF P_PA_DEBUG_MODE = 'Y' THEN
465: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
466: END IF;
467: END IF;
468:
469: pa_debug.g_err_stage:= 'Exiting CREATE_AUTO_BASELINE_VERSION';
465: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
466: END IF;
467: END IF;
468:
469: pa_debug.g_err_stage:= 'Exiting CREATE_AUTO_BASELINE_VERSION';
470: IF P_PA_DEBUG_MODE = 'Y' THEN
471: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
472: END IF;
473: pa_debug.reset_err_stack;
466: END IF;
467: END IF;
468:
469: pa_debug.g_err_stage:= 'Exiting CREATE_AUTO_BASELINE_VERSION';
470: IF P_PA_DEBUG_MODE = 'Y' THEN
471: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
472: END IF;
473: pa_debug.reset_err_stack;
474:
467: END IF;
468:
469: pa_debug.g_err_stage:= 'Exiting CREATE_AUTO_BASELINE_VERSION';
470: IF P_PA_DEBUG_MODE = 'Y' THEN
471: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
472: END IF;
473: pa_debug.reset_err_stack;
474:
475: EXCEPTION
469: pa_debug.g_err_stage:= 'Exiting CREATE_AUTO_BASELINE_VERSION';
470: IF P_PA_DEBUG_MODE = 'Y' THEN
471: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
472: END IF;
473: pa_debug.reset_err_stack;
474:
475: EXCEPTION
476:
477: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
493: ELSE
494: x_msg_count := l_msg_count;
495: END IF;
496:
497: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
498: IF P_PA_DEBUG_MODE = 'Y' THEN
499: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
500: END IF;
501: pa_debug.reset_err_stack;
494: x_msg_count := l_msg_count;
495: END IF;
496:
497: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
498: IF P_PA_DEBUG_MODE = 'Y' THEN
499: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
500: END IF;
501: pa_debug.reset_err_stack;
502: RAISE;
495: END IF;
496:
497: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
498: IF P_PA_DEBUG_MODE = 'Y' THEN
499: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
500: END IF;
501: pa_debug.reset_err_stack;
502: RAISE;
503:
497: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
498: IF P_PA_DEBUG_MODE = 'Y' THEN
499: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
500: END IF;
501: pa_debug.reset_err_stack;
502: RAISE;
503:
504: WHEN others THEN
505:
510: -- Bug Fix: 4569365. Removed MRC code.
511: -- PA_MRC_FINPLAN.G_CALLING_MODULE := null; /* Bug 2881994 */
512: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_AUTO_BASELINE_PKG'
513: ,p_procedure_name => 'CREATE_BASELINED_VERSION');
514: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
515: IF P_PA_DEBUG_MODE = 'Y' THEN
516: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
517: END IF;
518: pa_debug.reset_err_stack;
511: -- PA_MRC_FINPLAN.G_CALLING_MODULE := null; /* Bug 2881994 */
512: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_AUTO_BASELINE_PKG'
513: ,p_procedure_name => 'CREATE_BASELINED_VERSION');
514: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
515: IF P_PA_DEBUG_MODE = 'Y' THEN
516: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
517: END IF;
518: pa_debug.reset_err_stack;
519: RAISE;
512: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_AUTO_BASELINE_PKG'
513: ,p_procedure_name => 'CREATE_BASELINED_VERSION');
514: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
515: IF P_PA_DEBUG_MODE = 'Y' THEN
516: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
517: END IF;
518: pa_debug.reset_err_stack;
519: RAISE;
520:
514: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
515: IF P_PA_DEBUG_MODE = 'Y' THEN
516: pa_debug.write('CREATE_BASELINED_VERSION: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
517: END IF;
518: pa_debug.reset_err_stack;
519: RAISE;
520:
521: END CREATE_BASELINED_VERSION;
522: