96: p_debug_mode => p_pa_debug_mode );
97: END IF;
98:
99: /* Getting token values for use by possible error messages. */
100: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO');
101: l_project_name_err_token := FND_MESSAGE.GET;
102: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO1');
103: l_fin_plan_type_err_token := FND_MESSAGE.GET;
104:
97: END IF;
98:
99: /* Getting token values for use by possible error messages. */
100: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO');
101: l_project_name_err_token := FND_MESSAGE.GET;
102: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO1');
103: l_fin_plan_type_err_token := FND_MESSAGE.GET;
104:
105: retcode := '0';
98:
99: /* Getting token values for use by possible error messages. */
100: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO');
101: l_project_name_err_token := FND_MESSAGE.GET;
102: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO1');
103: l_fin_plan_type_err_token := FND_MESSAGE.GET;
104:
105: retcode := '0';
106:
99: /* Getting token values for use by possible error messages. */
100: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO');
101: l_project_name_err_token := FND_MESSAGE.GET;
102: FND_MESSAGE.SET_NAME('PA','PA_FP_GEN_EXCEPTION_INFO1');
103: l_fin_plan_type_err_token := FND_MESSAGE.GET;
104:
105: retcode := '0';
106:
107: sql_cursor := DBMS_SQL.OPEN_CURSOR;
308: END IF;
309:
310:
311: IF l_plan_class_code = 'BUDGET' THEN
312: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_BUDGET_GENERATION' );
313: l_version_name := FND_MESSAGE.GET;
314: ELSIF l_plan_class_code = 'FORECAST' THEN
315: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_FORECAST_GENERATION' );
316: l_version_name := FND_MESSAGE.GET;
309:
310:
311: IF l_plan_class_code = 'BUDGET' THEN
312: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_BUDGET_GENERATION' );
313: l_version_name := FND_MESSAGE.GET;
314: ELSIF l_plan_class_code = 'FORECAST' THEN
315: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_FORECAST_GENERATION' );
316: l_version_name := FND_MESSAGE.GET;
317: END IF;
311: IF l_plan_class_code = 'BUDGET' THEN
312: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_BUDGET_GENERATION' );
313: l_version_name := FND_MESSAGE.GET;
314: ELSIF l_plan_class_code = 'FORECAST' THEN
315: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_FORECAST_GENERATION' );
316: l_version_name := FND_MESSAGE.GET;
317: END IF;
318:
319: FOR i in 1..l_count LOOP
312: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_BUDGET_GENERATION' );
313: l_version_name := FND_MESSAGE.GET;
314: ELSIF l_plan_class_code = 'FORECAST' THEN
315: FND_MESSAGE.SET_NAME( 'PA', 'PA_FP_FORECAST_GENERATION' );
316: l_version_name := FND_MESSAGE.GET;
317: END IF;
318:
319: FOR i in 1..l_count LOOP
320: l_generation_flag := 'Y';
363: lx_budget_version_id := NULL;
364: lx_proj_fp_option_id := NULL;
365:
366: /* The hard-coded values Project Name and the Financial Plan Type
367: should be replaced with FND Message. (This will be done
368: based on the release team response for the processing of
369: the SEED bug. */
370: BEGIN
371: SELECT name INTO l_plan_type_name FROM pa_fin_plan_types_tl