31: -- End of Comments
32: REM | 03-OCT-2005 Riyengar MRC Elimination Changes:
33: **/
34:
35: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
36: g_module_name VARCHAR2(100):= 'pa.plsql.pa_fp_org_fcst_gen_pub';
37: g_plsql_max_array_size NUMBER := 200;
38:
39: FUNCTION budget_version_in_error
53: EXCEPTION
54: WHEN OTHERS THEN
55: FND_MSG_PUB.add_exc_msg(
56: p_pkg_name => 'PA_FP_ORG_FCST_GEN_PUB.budget_version_in_error'
57: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
58:
59: IF P_PA_DEBUG_MODE = 'Y' THEN
60: pa_debug.write_file('budget_version_in_error: ' || SQLERRM);
61: END IF;
55: FND_MSG_PUB.add_exc_msg(
56: p_pkg_name => 'PA_FP_ORG_FCST_GEN_PUB.budget_version_in_error'
57: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
58:
59: IF P_PA_DEBUG_MODE = 'Y' THEN
60: pa_debug.write_file('budget_version_in_error: ' || SQLERRM);
61: END IF;
62: pa_debug.reset_err_stack;
63: RETURN(-1);
56: p_pkg_name => 'PA_FP_ORG_FCST_GEN_PUB.budget_version_in_error'
57: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
58:
59: IF P_PA_DEBUG_MODE = 'Y' THEN
60: pa_debug.write_file('budget_version_in_error: ' || SQLERRM);
61: END IF;
62: pa_debug.reset_err_stack;
63: RETURN(-1);
64: RAISE;
58:
59: IF P_PA_DEBUG_MODE = 'Y' THEN
60: pa_debug.write_file('budget_version_in_error: ' || SQLERRM);
61: END IF;
62: pa_debug.reset_err_stack;
63: RETURN(-1);
64: RAISE;
65: END budget_version_in_error;
66:
82:
83: l_stage number := 0;
84:
85: BEGIN
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.init_err_stack('PA_FP_ORG_FCST_GEN_PUB.get_amttype_id');
88: END IF;
89:
90: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
83: l_stage number := 0;
84:
85: BEGIN
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.init_err_stack('PA_FP_ORG_FCST_GEN_PUB.get_amttype_id');
88: END IF;
89:
90: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
91: l_debug_mode := NVL(l_debug_mode, 'Y');
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.init_err_stack('PA_FP_ORG_FCST_GEN_PUB.get_amttype_id');
88: END IF;
89:
90: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
91: l_debug_mode := NVL(l_debug_mode, 'Y');
92:
93: IF P_PA_DEBUG_MODE = 'Y' THEN
94: pa_debug.set_process('get_amttype_id: ' || 'PLSQL','LOG',l_debug_mode);
89:
90: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
91: l_debug_mode := NVL(l_debug_mode, 'Y');
92:
93: IF P_PA_DEBUG_MODE = 'Y' THEN
94: pa_debug.set_process('get_amttype_id: ' || 'PLSQL','LOG',l_debug_mode);
95: END IF;
96:
97: l_amount_type_id := -99;
90: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
91: l_debug_mode := NVL(l_debug_mode, 'Y');
92:
93: IF P_PA_DEBUG_MODE = 'Y' THEN
94: pa_debug.set_process('get_amttype_id: ' || 'PLSQL','LOG',l_debug_mode);
95: END IF;
96:
97: l_amount_type_id := -99;
98:
112: END IF;
113: END LOOP;
114: END IF;
115: IF l_amount_type_id = -99 THEN
116: pa_debug.g_err_stage := 'p_amt_typ_code ['||p_amt_typ_code ||']';
117: IF P_PA_DEBUG_MODE = 'Y' THEN
118: pa_debug.write_file('get_amttype_id: ' || pa_debug.g_err_stage);
119: END IF;
120: END IF;
113: END LOOP;
114: END IF;
115: IF l_amount_type_id = -99 THEN
116: pa_debug.g_err_stage := 'p_amt_typ_code ['||p_amt_typ_code ||']';
117: IF P_PA_DEBUG_MODE = 'Y' THEN
118: pa_debug.write_file('get_amttype_id: ' || pa_debug.g_err_stage);
119: END IF;
120: END IF;
121: pa_debug.reset_err_stack;
114: END IF;
115: IF l_amount_type_id = -99 THEN
116: pa_debug.g_err_stage := 'p_amt_typ_code ['||p_amt_typ_code ||']';
117: IF P_PA_DEBUG_MODE = 'Y' THEN
118: pa_debug.write_file('get_amttype_id: ' || pa_debug.g_err_stage);
119: END IF;
120: END IF;
121: pa_debug.reset_err_stack;
122: RETURN(l_amount_type_id);
117: IF P_PA_DEBUG_MODE = 'Y' THEN
118: pa_debug.write_file('get_amttype_id: ' || pa_debug.g_err_stage);
119: END IF;
120: END IF;
121: pa_debug.reset_err_stack;
122: RETURN(l_amount_type_id);
123:
124: EXCEPTION
125: WHEN OTHERS THEN
124: EXCEPTION
125: WHEN OTHERS THEN
126: FND_MSG_PUB.add_exc_msg(
127: p_pkg_name => 'PA_FP_ORG_FCST_GEN_PUB.get_amttype_id'
128: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
129:
130: IF P_PA_DEBUG_MODE = 'Y' THEN
131: pa_debug.write_file('get_amttype_id: ' || SQLERRM);
132: END IF;
126: FND_MSG_PUB.add_exc_msg(
127: p_pkg_name => 'PA_FP_ORG_FCST_GEN_PUB.get_amttype_id'
128: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
129:
130: IF P_PA_DEBUG_MODE = 'Y' THEN
131: pa_debug.write_file('get_amttype_id: ' || SQLERRM);
132: END IF;
133: pa_debug.reset_err_stack;
134: RAISE;
127: p_pkg_name => 'PA_FP_ORG_FCST_GEN_PUB.get_amttype_id'
128: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
129:
130: IF P_PA_DEBUG_MODE = 'Y' THEN
131: pa_debug.write_file('get_amttype_id: ' || SQLERRM);
132: END IF;
133: pa_debug.reset_err_stack;
134: RAISE;
135: END get_amttype_id;
129:
130: IF P_PA_DEBUG_MODE = 'Y' THEN
131: pa_debug.write_file('get_amttype_id: ' || SQLERRM);
132: END IF;
133: pa_debug.reset_err_stack;
134: RAISE;
135: END get_amttype_id;
136:
137: PROCEDURE gen_org_fcst
647: l_bl_head_count_tab pa_fp_org_fcst_gen_pub.number_data_type_table;
648:
649: BEGIN
650:
651: IF P_PA_DEBUG_MODE = 'Y' THEN
652: pa_debug.init_err_stack('PA_FP_ORG_FCST_GEN_PUB.gen_org_fcst');
653: END IF;
654:
655: --fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
648:
649: BEGIN
650:
651: IF P_PA_DEBUG_MODE = 'Y' THEN
652: pa_debug.init_err_stack('PA_FP_ORG_FCST_GEN_PUB.gen_org_fcst');
653: END IF;
654:
655: --fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
656: l_debug_mode := NVL(l_debug_mode, 'Y');
651: IF P_PA_DEBUG_MODE = 'Y' THEN
652: pa_debug.init_err_stack('PA_FP_ORG_FCST_GEN_PUB.gen_org_fcst');
653: END IF;
654:
655: --fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
656: l_debug_mode := NVL(l_debug_mode, 'Y');
657:
658: IF P_PA_DEBUG_MODE = 'Y' THEN
659: pa_debug.set_process('gen_org_fcst: ' || 'PLSQL','LOG',l_debug_mode);
654:
655: --fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
656: l_debug_mode := NVL(l_debug_mode, 'Y');
657:
658: IF P_PA_DEBUG_MODE = 'Y' THEN
659: pa_debug.set_process('gen_org_fcst: ' || 'PLSQL','LOG',l_debug_mode);
660: END IF;
661:
662: l_stage := 100;
655: --fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
656: l_debug_mode := NVL(l_debug_mode, 'Y');
657:
658: IF P_PA_DEBUG_MODE = 'Y' THEN
659: pa_debug.set_process('gen_org_fcst: ' || 'PLSQL','LOG',l_debug_mode);
660: END IF;
661:
662: l_stage := 100;
663: -- hr_utility.trace(to_char(l_stage));
677: ,x_org_id => l_org_id
678: ,x_return_status => l_return_status
679: ,x_err_code => l_err_code);
680:
681: pa_debug.g_err_stage := l_stage||': Forecast Options Data: ';
682: IF P_PA_DEBUG_MODE = 'Y' THEN
683: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
684: END IF;
685: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type||']';
678: ,x_return_status => l_return_status
679: ,x_err_code => l_err_code);
680:
681: pa_debug.g_err_stage := l_stage||': Forecast Options Data: ';
682: IF P_PA_DEBUG_MODE = 'Y' THEN
683: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
684: END IF;
685: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type||']';
686: IF P_PA_DEBUG_MODE = 'Y' THEN
679: ,x_err_code => l_err_code);
680:
681: pa_debug.g_err_stage := l_stage||': Forecast Options Data: ';
682: IF P_PA_DEBUG_MODE = 'Y' THEN
683: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
684: END IF;
685: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type||']';
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
681: pa_debug.g_err_stage := l_stage||': Forecast Options Data: ';
682: IF P_PA_DEBUG_MODE = 'Y' THEN
683: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
684: END IF;
685: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type||']';
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
688: END IF;
689: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name||']';
682: IF P_PA_DEBUG_MODE = 'Y' THEN
683: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
684: END IF;
685: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type||']';
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
688: END IF;
689: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name||']';
690: IF P_PA_DEBUG_MODE = 'Y' THEN
683: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
684: END IF;
685: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type||']';
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
688: END IF;
689: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name||']';
690: IF P_PA_DEBUG_MODE = 'Y' THEN
691: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
685: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type||']';
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
688: END IF;
689: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name||']';
690: IF P_PA_DEBUG_MODE = 'Y' THEN
691: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
692: END IF;
693: pa_debug.g_err_stage := 'l_act_period_type ['||l_act_period_type||']';
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
688: END IF;
689: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name||']';
690: IF P_PA_DEBUG_MODE = 'Y' THEN
691: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
692: END IF;
693: pa_debug.g_err_stage := 'l_act_period_type ['||l_act_period_type||']';
694: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
688: END IF;
689: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name||']';
690: IF P_PA_DEBUG_MODE = 'Y' THEN
691: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
692: END IF;
693: pa_debug.g_err_stage := 'l_act_period_type ['||l_act_period_type||']';
694: IF P_PA_DEBUG_MODE = 'Y' THEN
695: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
689: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name||']';
690: IF P_PA_DEBUG_MODE = 'Y' THEN
691: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
692: END IF;
693: pa_debug.g_err_stage := 'l_act_period_type ['||l_act_period_type||']';
694: IF P_PA_DEBUG_MODE = 'Y' THEN
695: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
696: END IF;
697: pa_debug.g_err_stage := 'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']';
690: IF P_PA_DEBUG_MODE = 'Y' THEN
691: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
692: END IF;
693: pa_debug.g_err_stage := 'l_act_period_type ['||l_act_period_type||']';
694: IF P_PA_DEBUG_MODE = 'Y' THEN
695: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
696: END IF;
697: pa_debug.g_err_stage := 'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']';
698: IF P_PA_DEBUG_MODE = 'Y' THEN
691: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
692: END IF;
693: pa_debug.g_err_stage := 'l_act_period_type ['||l_act_period_type||']';
694: IF P_PA_DEBUG_MODE = 'Y' THEN
695: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
696: END IF;
697: pa_debug.g_err_stage := 'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']';
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
693: pa_debug.g_err_stage := 'l_act_period_type ['||l_act_period_type||']';
694: IF P_PA_DEBUG_MODE = 'Y' THEN
695: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
696: END IF;
697: pa_debug.g_err_stage := 'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']';
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
700: END IF;
701: pa_debug.g_err_stage := 'l_number_of_periods ['||l_number_of_periods||']';
694: IF P_PA_DEBUG_MODE = 'Y' THEN
695: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
696: END IF;
697: pa_debug.g_err_stage := 'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']';
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
700: END IF;
701: pa_debug.g_err_stage := 'l_number_of_periods ['||l_number_of_periods||']';
702: IF P_PA_DEBUG_MODE = 'Y' THEN
695: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
696: END IF;
697: pa_debug.g_err_stage := 'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']';
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
700: END IF;
701: pa_debug.g_err_stage := 'l_number_of_periods ['||l_number_of_periods||']';
702: IF P_PA_DEBUG_MODE = 'Y' THEN
703: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
697: pa_debug.g_err_stage := 'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']';
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
700: END IF;
701: pa_debug.g_err_stage := 'l_number_of_periods ['||l_number_of_periods||']';
702: IF P_PA_DEBUG_MODE = 'Y' THEN
703: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
704: END IF;
705: pa_debug.g_err_stage := 'l_weighted_or_full_code ['||l_weighted_or_full_code||']';
698: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
700: END IF;
701: pa_debug.g_err_stage := 'l_number_of_periods ['||l_number_of_periods||']';
702: IF P_PA_DEBUG_MODE = 'Y' THEN
703: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
704: END IF;
705: pa_debug.g_err_stage := 'l_weighted_or_full_code ['||l_weighted_or_full_code||']';
706: IF P_PA_DEBUG_MODE = 'Y' THEN
699: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
700: END IF;
701: pa_debug.g_err_stage := 'l_number_of_periods ['||l_number_of_periods||']';
702: IF P_PA_DEBUG_MODE = 'Y' THEN
703: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
704: END IF;
705: pa_debug.g_err_stage := 'l_weighted_or_full_code ['||l_weighted_or_full_code||']';
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
701: pa_debug.g_err_stage := 'l_number_of_periods ['||l_number_of_periods||']';
702: IF P_PA_DEBUG_MODE = 'Y' THEN
703: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
704: END IF;
705: pa_debug.g_err_stage := 'l_weighted_or_full_code ['||l_weighted_or_full_code||']';
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
708: END IF;
709: pa_debug.g_err_stage := 'l_org_proj_template_id ['||l_org_proj_template_id||']';
702: IF P_PA_DEBUG_MODE = 'Y' THEN
703: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
704: END IF;
705: pa_debug.g_err_stage := 'l_weighted_or_full_code ['||l_weighted_or_full_code||']';
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
708: END IF;
709: pa_debug.g_err_stage := 'l_org_proj_template_id ['||l_org_proj_template_id||']';
710: IF P_PA_DEBUG_MODE = 'Y' THEN
703: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
704: END IF;
705: pa_debug.g_err_stage := 'l_weighted_or_full_code ['||l_weighted_or_full_code||']';
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
708: END IF;
709: pa_debug.g_err_stage := 'l_org_proj_template_id ['||l_org_proj_template_id||']';
710: IF P_PA_DEBUG_MODE = 'Y' THEN
711: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
705: pa_debug.g_err_stage := 'l_weighted_or_full_code ['||l_weighted_or_full_code||']';
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
708: END IF;
709: pa_debug.g_err_stage := 'l_org_proj_template_id ['||l_org_proj_template_id||']';
710: IF P_PA_DEBUG_MODE = 'Y' THEN
711: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
712: END IF;
713: pa_debug.g_err_stage := 'l_org_structure_version_id ['||l_org_structure_version_id||']';
706: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
708: END IF;
709: pa_debug.g_err_stage := 'l_org_proj_template_id ['||l_org_proj_template_id||']';
710: IF P_PA_DEBUG_MODE = 'Y' THEN
711: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
712: END IF;
713: pa_debug.g_err_stage := 'l_org_structure_version_id ['||l_org_structure_version_id||']';
714: IF P_PA_DEBUG_MODE = 'Y' THEN
707: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
708: END IF;
709: pa_debug.g_err_stage := 'l_org_proj_template_id ['||l_org_proj_template_id||']';
710: IF P_PA_DEBUG_MODE = 'Y' THEN
711: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
712: END IF;
713: pa_debug.g_err_stage := 'l_org_structure_version_id ['||l_org_structure_version_id||']';
714: IF P_PA_DEBUG_MODE = 'Y' THEN
715: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
709: pa_debug.g_err_stage := 'l_org_proj_template_id ['||l_org_proj_template_id||']';
710: IF P_PA_DEBUG_MODE = 'Y' THEN
711: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
712: END IF;
713: pa_debug.g_err_stage := 'l_org_structure_version_id ['||l_org_structure_version_id||']';
714: IF P_PA_DEBUG_MODE = 'Y' THEN
715: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
716: END IF;
717: pa_debug.g_err_stage := 'l_fcst_start_date ['||l_fcst_start_date||']';
710: IF P_PA_DEBUG_MODE = 'Y' THEN
711: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
712: END IF;
713: pa_debug.g_err_stage := 'l_org_structure_version_id ['||l_org_structure_version_id||']';
714: IF P_PA_DEBUG_MODE = 'Y' THEN
715: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
716: END IF;
717: pa_debug.g_err_stage := 'l_fcst_start_date ['||l_fcst_start_date||']';
718: IF P_PA_DEBUG_MODE = 'Y' THEN
711: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
712: END IF;
713: pa_debug.g_err_stage := 'l_org_structure_version_id ['||l_org_structure_version_id||']';
714: IF P_PA_DEBUG_MODE = 'Y' THEN
715: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
716: END IF;
717: pa_debug.g_err_stage := 'l_fcst_start_date ['||l_fcst_start_date||']';
718: IF P_PA_DEBUG_MODE = 'Y' THEN
719: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
713: pa_debug.g_err_stage := 'l_org_structure_version_id ['||l_org_structure_version_id||']';
714: IF P_PA_DEBUG_MODE = 'Y' THEN
715: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
716: END IF;
717: pa_debug.g_err_stage := 'l_fcst_start_date ['||l_fcst_start_date||']';
718: IF P_PA_DEBUG_MODE = 'Y' THEN
719: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
720: END IF;
721: pa_debug.g_err_stage := 'l_fcst_end_date ['||l_fcst_end_date||']';
714: IF P_PA_DEBUG_MODE = 'Y' THEN
715: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
716: END IF;
717: pa_debug.g_err_stage := 'l_fcst_start_date ['||l_fcst_start_date||']';
718: IF P_PA_DEBUG_MODE = 'Y' THEN
719: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
720: END IF;
721: pa_debug.g_err_stage := 'l_fcst_end_date ['||l_fcst_end_date||']';
722: IF P_PA_DEBUG_MODE = 'Y' THEN
715: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
716: END IF;
717: pa_debug.g_err_stage := 'l_fcst_start_date ['||l_fcst_start_date||']';
718: IF P_PA_DEBUG_MODE = 'Y' THEN
719: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
720: END IF;
721: pa_debug.g_err_stage := 'l_fcst_end_date ['||l_fcst_end_date||']';
722: IF P_PA_DEBUG_MODE = 'Y' THEN
723: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
717: pa_debug.g_err_stage := 'l_fcst_start_date ['||l_fcst_start_date||']';
718: IF P_PA_DEBUG_MODE = 'Y' THEN
719: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
720: END IF;
721: pa_debug.g_err_stage := 'l_fcst_end_date ['||l_fcst_end_date||']';
722: IF P_PA_DEBUG_MODE = 'Y' THEN
723: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
724: END IF;
725: pa_debug.g_err_stage := 'l_org_id ['||l_org_id||']';
718: IF P_PA_DEBUG_MODE = 'Y' THEN
719: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
720: END IF;
721: pa_debug.g_err_stage := 'l_fcst_end_date ['||l_fcst_end_date||']';
722: IF P_PA_DEBUG_MODE = 'Y' THEN
723: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
724: END IF;
725: pa_debug.g_err_stage := 'l_org_id ['||l_org_id||']';
726: IF P_PA_DEBUG_MODE = 'Y' THEN
719: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
720: END IF;
721: pa_debug.g_err_stage := 'l_fcst_end_date ['||l_fcst_end_date||']';
722: IF P_PA_DEBUG_MODE = 'Y' THEN
723: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
724: END IF;
725: pa_debug.g_err_stage := 'l_org_id ['||l_org_id||']';
726: IF P_PA_DEBUG_MODE = 'Y' THEN
727: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
721: pa_debug.g_err_stage := 'l_fcst_end_date ['||l_fcst_end_date||']';
722: IF P_PA_DEBUG_MODE = 'Y' THEN
723: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
724: END IF;
725: pa_debug.g_err_stage := 'l_org_id ['||l_org_id||']';
726: IF P_PA_DEBUG_MODE = 'Y' THEN
727: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
728: END IF;
729:
722: IF P_PA_DEBUG_MODE = 'Y' THEN
723: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
724: END IF;
725: pa_debug.g_err_stage := 'l_org_id ['||l_org_id||']';
726: IF P_PA_DEBUG_MODE = 'Y' THEN
727: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
728: END IF;
729:
730: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
723: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
724: END IF;
725: pa_debug.g_err_stage := 'l_org_id ['||l_org_id||']';
726: IF P_PA_DEBUG_MODE = 'Y' THEN
727: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
728: END IF;
729:
730: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
731: THEN
729:
730: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
731: THEN
732: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
733: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
734: ': Error occured while Getting forecast Options Det [' ||
735: l_err_code|| ']';
736: IF P_PA_DEBUG_MODE = 'Y' THEN
737: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
732: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
733: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
734: ': Error occured while Getting forecast Options Det [' ||
735: l_err_code|| ']';
736: IF P_PA_DEBUG_MODE = 'Y' THEN
737: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
738: END IF;
739: retcode := FND_API.G_RET_STS_ERROR;
740: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
733: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
734: ': Error occured while Getting forecast Options Det [' ||
735: l_err_code|| ']';
736: IF P_PA_DEBUG_MODE = 'Y' THEN
737: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
738: END IF;
739: retcode := FND_API.G_RET_STS_ERROR;
740: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
741: p_msg_name => 'PA_FP_FCST_OPTION_ERR');
746:
747: /* Get resource list information */
748: BEGIN
749: l_stage := 200;
750: pa_debug.g_err_stage := l_stage||': Get resource list information';
751: IF P_PA_DEBUG_MODE = 'Y' THEN
752: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
753: END IF;
754: -- hr_utility.trace(to_char(l_stage));
747: /* Get resource list information */
748: BEGIN
749: l_stage := 200;
750: pa_debug.g_err_stage := l_stage||': Get resource list information';
751: IF P_PA_DEBUG_MODE = 'Y' THEN
752: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
753: END IF;
754: -- hr_utility.trace(to_char(l_stage));
755:
748: BEGIN
749: l_stage := 200;
750: pa_debug.g_err_stage := l_stage||': Get resource list information';
751: IF P_PA_DEBUG_MODE = 'Y' THEN
752: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
753: END IF;
754: -- hr_utility.trace(to_char(l_stage));
755:
756: l_resource_list_id := FND_PROFILE.VALUE('PA_FORECAST_RESOURCE_LIST');
762: AND rlm.resource_type_code = 'UNCATEGORIZED';
763: EXCEPTION
764: WHEN OTHERS THEN
765: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
766: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
767: IF P_PA_DEBUG_MODE = 'Y' THEN
768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
769: END IF;
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: EXCEPTION
764: WHEN OTHERS THEN
765: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
766: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
767: IF P_PA_DEBUG_MODE = 'Y' THEN
768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
769: END IF;
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END;
764: WHEN OTHERS THEN
765: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
766: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
767: IF P_PA_DEBUG_MODE = 'Y' THEN
768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
769: END IF;
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END;
772:
771: END;
772:
773: BEGIN
774: l_stage := 300;
775: pa_debug.g_err_stage := l_stage||': Get Time Phased Code';
776: IF P_PA_DEBUG_MODE = 'Y' THEN
777: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
778: END IF;
779: -- hr_utility.trace(to_char(l_stage));
772:
773: BEGIN
774: l_stage := 300;
775: pa_debug.g_err_stage := l_stage||': Get Time Phased Code';
776: IF P_PA_DEBUG_MODE = 'Y' THEN
777: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
778: END IF;
779: -- hr_utility.trace(to_char(l_stage));
780:
773: BEGIN
774: l_stage := 300;
775: pa_debug.g_err_stage := l_stage||': Get Time Phased Code';
776: IF P_PA_DEBUG_MODE = 'Y' THEN
777: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
778: END IF;
779: -- hr_utility.trace(to_char(l_stage));
780:
781: SELECT substr(l_org_fcst_period_type,1,1)
782: INTO l_time_phased_code
783: FROM sys.dual;
784:
785: l_stage := 400;
786: pa_debug.g_err_stage := l_stage||': Get Plan Type Id';
787: IF P_PA_DEBUG_MODE = 'Y' THEN
788: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
789: END IF;
790: -- hr_utility.trace(to_char(l_stage));
783: FROM sys.dual;
784:
785: l_stage := 400;
786: pa_debug.g_err_stage := l_stage||': Get Plan Type Id';
787: IF P_PA_DEBUG_MODE = 'Y' THEN
788: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
789: END IF;
790: -- hr_utility.trace(to_char(l_stage));
791:
784:
785: l_stage := 400;
786: pa_debug.g_err_stage := l_stage||': Get Plan Type Id';
787: IF P_PA_DEBUG_MODE = 'Y' THEN
788: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
789: END IF;
790: -- hr_utility.trace(to_char(l_stage));
791:
792: SELECT fin_plan_type_id
794: FROM pa_fin_plan_types_b
795: WHERE fin_plan_type_code = 'ORG_FORECAST';
796:
797: l_stage := 500;
798: pa_debug.g_err_stage := l_stage||': Get Amount Set Id';
799: IF P_PA_DEBUG_MODE = 'Y' THEN
800: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
801: END IF;
802: -- hr_utility.trace(to_char(l_stage));
795: WHERE fin_plan_type_code = 'ORG_FORECAST';
796:
797: l_stage := 500;
798: pa_debug.g_err_stage := l_stage||': Get Amount Set Id';
799: IF P_PA_DEBUG_MODE = 'Y' THEN
800: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
801: END IF;
802: -- hr_utility.trace(to_char(l_stage));
803:
796:
797: l_stage := 500;
798: pa_debug.g_err_stage := l_stage||': Get Amount Set Id';
799: IF P_PA_DEBUG_MODE = 'Y' THEN
800: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
801: END IF;
802: -- hr_utility.trace(to_char(l_stage));
803:
804: SELECT fin_plan_amount_set_id
807: WHERE amount_set_type_code = 'ALL'
808: AND fin_plan_amount_set_id = 1; /* Fix for 2744924. */
809:
810: l_stage := 600;
811: pa_debug.g_err_stage := l_stage||': Derive BV Name';
812: IF P_PA_DEBUG_MODE = 'Y' THEN
813: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
814: END IF;
815: -- hr_utility.trace(to_char(l_stage));
808: AND fin_plan_amount_set_id = 1; /* Fix for 2744924. */
809:
810: l_stage := 600;
811: pa_debug.g_err_stage := l_stage||': Derive BV Name';
812: IF P_PA_DEBUG_MODE = 'Y' THEN
813: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
814: END IF;
815: -- hr_utility.trace(to_char(l_stage));
816:
809:
810: l_stage := 600;
811: pa_debug.g_err_stage := l_stage||': Derive BV Name';
812: IF P_PA_DEBUG_MODE = 'Y' THEN
813: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
814: END IF;
815: -- hr_utility.trace(to_char(l_stage));
816:
817: SELECT meaning
822:
823: EXCEPTION
824: WHEN OTHERS THEN
825: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
826: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
827: IF P_PA_DEBUG_MODE = 'Y' THEN
828: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
829: END IF;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: EXCEPTION
824: WHEN OTHERS THEN
825: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
826: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
827: IF P_PA_DEBUG_MODE = 'Y' THEN
828: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
829: END IF;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: END;
824: WHEN OTHERS THEN
825: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
826: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
827: IF P_PA_DEBUG_MODE = 'Y' THEN
828: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
829: END IF;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: END;
832:
832:
833: BEGIN
834: IF p_budget_version_id IS NULL THEN
835: l_stage := 700;
836: pa_debug.g_err_stage := l_stage||': BudgetVersionId is NULL';
837: IF P_PA_DEBUG_MODE = 'Y' THEN
838: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
839: END IF;
840: -- hr_utility.trace(to_char(l_stage));
833: BEGIN
834: IF p_budget_version_id IS NULL THEN
835: l_stage := 700;
836: pa_debug.g_err_stage := l_stage||': BudgetVersionId is NULL';
837: IF P_PA_DEBUG_MODE = 'Y' THEN
838: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
839: END IF;
840: -- hr_utility.trace(to_char(l_stage));
841: IF p_starting_organization_id IS NULL THEN
834: IF p_budget_version_id IS NULL THEN
835: l_stage := 700;
836: pa_debug.g_err_stage := l_stage||': BudgetVersionId is NULL';
837: IF P_PA_DEBUG_MODE = 'Y' THEN
838: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
839: END IF;
840: -- hr_utility.trace(to_char(l_stage));
841: IF p_starting_organization_id IS NULL THEN
842: l_stage := 800;
839: END IF;
840: -- hr_utility.trace(to_char(l_stage));
841: IF p_starting_organization_id IS NULL THEN
842: l_stage := 800;
843: pa_debug.g_err_stage := l_stage||': Start Org is NULL';
844: IF P_PA_DEBUG_MODE = 'Y' THEN
845: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
846: END IF;
847: -- hr_utility.trace(to_char(l_stage));
840: -- hr_utility.trace(to_char(l_stage));
841: IF p_starting_organization_id IS NULL THEN
842: l_stage := 800;
843: pa_debug.g_err_stage := l_stage||': Start Org is NULL';
844: IF P_PA_DEBUG_MODE = 'Y' THEN
845: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
846: END IF;
847: -- hr_utility.trace(to_char(l_stage));
848: OPEN specific_org_only;
841: IF p_starting_organization_id IS NULL THEN
842: l_stage := 800;
843: pa_debug.g_err_stage := l_stage||': Start Org is NULL';
844: IF P_PA_DEBUG_MODE = 'Y' THEN
845: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
846: END IF;
847: -- hr_utility.trace(to_char(l_stage));
848: OPEN specific_org_only;
849: ELSE
847: -- hr_utility.trace(to_char(l_stage));
848: OPEN specific_org_only;
849: ELSE
850: l_stage := 900;
851: pa_debug.g_err_stage := l_stage||': Start Org is Not NULL';
852: IF P_PA_DEBUG_MODE = 'Y' THEN
853: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
854: END IF;
855: -- hr_utility.trace(to_char(l_stage));
848: OPEN specific_org_only;
849: ELSE
850: l_stage := 900;
851: pa_debug.g_err_stage := l_stage||': Start Org is Not NULL';
852: IF P_PA_DEBUG_MODE = 'Y' THEN
853: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
854: END IF;
855: -- hr_utility.trace(to_char(l_stage));
856: OPEN org_hierarchy;
849: ELSE
850: l_stage := 900;
851: pa_debug.g_err_stage := l_stage||': Start Org is Not NULL';
852: IF P_PA_DEBUG_MODE = 'Y' THEN
853: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
854: END IF;
855: -- hr_utility.trace(to_char(l_stage));
856: OPEN org_hierarchy;
857: END IF;
859:
860: EXCEPTION
861: WHEN OTHERS THEN
862: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
863: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
864: IF P_PA_DEBUG_MODE = 'Y' THEN
865: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
866: END IF;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: EXCEPTION
861: WHEN OTHERS THEN
862: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
863: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
864: IF P_PA_DEBUG_MODE = 'Y' THEN
865: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
866: END IF;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END;
861: WHEN OTHERS THEN
862: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
863: pa_debug.g_err_stage := TO_CHAR(l_stage)||'-'||SQLERRM;
864: IF P_PA_DEBUG_MODE = 'Y' THEN
865: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
866: END IF;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END;
869:
871: only once if budget version id is passed*/
872: LOOP
873: BEGIN
874: IF l_budget_ctr = 1 THEN
875: IF P_PA_DEBUG_MODE = 'Y' THEN
876: pa_debug.write_file('gen_org_fcst: ' || 'Exiting as Budget Version Process has failed');
877: END IF;
878: EXIT;
879: END IF;
872: LOOP
873: BEGIN
874: IF l_budget_ctr = 1 THEN
875: IF P_PA_DEBUG_MODE = 'Y' THEN
876: pa_debug.write_file('gen_org_fcst: ' || 'Exiting as Budget Version Process has failed');
877: END IF;
878: EXIT;
879: END IF;
880: savepoint org_project;
882: l_stage := 1000;
883: -- hr_utility.trace(to_char(l_stage));
884: IF p_starting_organization_id IS NULL THEN
885: l_stage := 1100;
886: pa_debug.g_err_stage := l_stage||': Fetching from specific_org_only';
887: IF P_PA_DEBUG_MODE = 'Y' THEN
888: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
889: END IF;
890: -- hr_utility.trace(to_char(l_stage));
883: -- hr_utility.trace(to_char(l_stage));
884: IF p_starting_organization_id IS NULL THEN
885: l_stage := 1100;
886: pa_debug.g_err_stage := l_stage||': Fetching from specific_org_only';
887: IF P_PA_DEBUG_MODE = 'Y' THEN
888: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
889: END IF;
890: -- hr_utility.trace(to_char(l_stage));
891: FETCH specific_org_only
884: IF p_starting_organization_id IS NULL THEN
885: l_stage := 1100;
886: pa_debug.g_err_stage := l_stage||': Fetching from specific_org_only';
887: IF P_PA_DEBUG_MODE = 'Y' THEN
888: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
889: END IF;
890: -- hr_utility.trace(to_char(l_stage));
891: FETCH specific_org_only
892: INTO l_organization_id
894: ,l_business_group_id
895: ,l_org_location_id;
896:
897: IF specific_org_only%NOTFOUND THEN
898: pa_debug.g_err_stage := l_stage||': Exiting from specific_org_only FETCH';
899: IF P_PA_DEBUG_MODE = 'Y' THEN
900: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
901: END IF;
902: EXIT;
895: ,l_org_location_id;
896:
897: IF specific_org_only%NOTFOUND THEN
898: pa_debug.g_err_stage := l_stage||': Exiting from specific_org_only FETCH';
899: IF P_PA_DEBUG_MODE = 'Y' THEN
900: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
901: END IF;
902: EXIT;
903: END IF;
896:
897: IF specific_org_only%NOTFOUND THEN
898: pa_debug.g_err_stage := l_stage||': Exiting from specific_org_only FETCH';
899: IF P_PA_DEBUG_MODE = 'Y' THEN
900: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
901: END IF;
902: EXIT;
903: END IF;
904: l_stage := 1200;
906:
907: IF l_org_location_id IS NULL THEN
908: l_stage := 1300;
909: -- hr_utility.trace(to_char(l_stage));
910: pa_debug.g_err_stage := l_stage||': Organization Id ['
911: ||l_organization_id||
912: '] has no location';
913: IF P_PA_DEBUG_MODE = 'Y' THEN
914: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
909: -- hr_utility.trace(to_char(l_stage));
910: pa_debug.g_err_stage := l_stage||': Organization Id ['
911: ||l_organization_id||
912: '] has no location';
913: IF P_PA_DEBUG_MODE = 'Y' THEN
914: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
915: END IF;
916: rollback to org_project;
917: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
910: pa_debug.g_err_stage := l_stage||': Organization Id ['
911: ||l_organization_id||
912: '] has no location';
913: IF P_PA_DEBUG_MODE = 'Y' THEN
914: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
915: END IF;
916: rollback to org_project;
917: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
918: END IF;
928: AND TRUNC(SYSDATE) BETWEEN TRUNC(date_from)
929: AND NVL(date_to, TRUNC(SYSDATE));
930: EXCEPTION WHEN NO_DATA_FOUND THEN
931: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
932: pa_debug.g_err_stage := l_stage||': Organization Id ['
933: ||l_organization_id||
934: '] is Not Active';
935: IF P_PA_DEBUG_MODE = 'Y' THEN
936: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
931: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
932: pa_debug.g_err_stage := l_stage||': Organization Id ['
933: ||l_organization_id||
934: '] is Not Active';
935: IF P_PA_DEBUG_MODE = 'Y' THEN
936: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
937: END IF;
938: rollback to org_project;
939: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
932: pa_debug.g_err_stage := l_stage||': Organization Id ['
933: ||l_organization_id||
934: '] is Not Active';
935: IF P_PA_DEBUG_MODE = 'Y' THEN
936: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
937: END IF;
938: rollback to org_project;
939: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
940: END;
939: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
940: END;
941: ELSE
942: l_stage := 1500;
943: pa_debug.g_err_stage := l_stage||': Fetching from org_hierarchy';
944: IF P_PA_DEBUG_MODE = 'Y' THEN
945: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
946: END IF;
947: -- hr_utility.trace(to_char(l_stage));
940: END;
941: ELSE
942: l_stage := 1500;
943: pa_debug.g_err_stage := l_stage||': Fetching from org_hierarchy';
944: IF P_PA_DEBUG_MODE = 'Y' THEN
945: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
946: END IF;
947: -- hr_utility.trace(to_char(l_stage));
948: FETCH org_hierarchy
941: ELSE
942: l_stage := 1500;
943: pa_debug.g_err_stage := l_stage||': Fetching from org_hierarchy';
944: IF P_PA_DEBUG_MODE = 'Y' THEN
945: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
946: END IF;
947: -- hr_utility.trace(to_char(l_stage));
948: FETCH org_hierarchy
949: INTO l_organization_id;
947: -- hr_utility.trace(to_char(l_stage));
948: FETCH org_hierarchy
949: INTO l_organization_id;
950: IF org_hierarchy%NOTFOUND THEN
951: pa_debug.g_err_stage := l_stage||': Exiting from org_hierarchy FETCH';
952: IF P_PA_DEBUG_MODE = 'Y' THEN
953: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
954: END IF;
955: EXIT;
948: FETCH org_hierarchy
949: INTO l_organization_id;
950: IF org_hierarchy%NOTFOUND THEN
951: pa_debug.g_err_stage := l_stage||': Exiting from org_hierarchy FETCH';
952: IF P_PA_DEBUG_MODE = 'Y' THEN
953: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
954: END IF;
955: EXIT;
956: END IF;
949: INTO l_organization_id;
950: IF org_hierarchy%NOTFOUND THEN
951: pa_debug.g_err_stage := l_stage||': Exiting from org_hierarchy FETCH';
952: IF P_PA_DEBUG_MODE = 'Y' THEN
953: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
954: END IF;
955: EXIT;
956: END IF;
957: l_stage := 1600;
966: AND TRUNC(SYSDATE) BETWEEN TRUNC(date_from)
967: AND NVL(date_to, TRUNC(SYSDATE));
968: EXCEPTION WHEN NO_DATA_FOUND THEN
969: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
970: pa_debug.g_err_stage := l_stage||': Organization Id ['
971: ||l_organization_id||
972: '] is Not Active';
973: IF P_PA_DEBUG_MODE = 'Y' THEN
974: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
969: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
970: pa_debug.g_err_stage := l_stage||': Organization Id ['
971: ||l_organization_id||
972: '] is Not Active';
973: IF P_PA_DEBUG_MODE = 'Y' THEN
974: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
975: END IF;
976: rollback to org_project;
977: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
970: pa_debug.g_err_stage := l_stage||': Organization Id ['
971: ||l_organization_id||
972: '] is Not Active';
973: IF P_PA_DEBUG_MODE = 'Y' THEN
974: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
975: END IF;
976: rollback to org_project;
977: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
978: END;
989: FROM hr_all_organization_units hou
990: WHERE hou.organization_id = l_organization_id;
991:
992: IF l_org_location_id IS NULL THEN
993: pa_debug.g_err_stage := l_stage||': Organization Id ['
994: ||l_organization_id||
995: '] has no location';
996: IF P_PA_DEBUG_MODE = 'Y' THEN
997: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
992: IF l_org_location_id IS NULL THEN
993: pa_debug.g_err_stage := l_stage||': Organization Id ['
994: ||l_organization_id||
995: '] has no location';
996: IF P_PA_DEBUG_MODE = 'Y' THEN
997: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
998: END IF;
999: rollback to org_project;
1000: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
993: pa_debug.g_err_stage := l_stage||': Organization Id ['
994: ||l_organization_id||
995: '] has no location';
996: IF P_PA_DEBUG_MODE = 'Y' THEN
997: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
998: END IF;
999: rollback to org_project;
1000: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1001: END IF;
1017: ,l_project_number
1018: FROM DUAL;
1019:
1020: -- hr_utility.trace(to_char(l_stage));
1021: pa_debug.g_err_stage := l_stage||': Project Name is '||l_project_name;
1022: IF P_PA_DEBUG_MODE = 'Y' THEN
1023: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1024: END IF;
1025:
1018: FROM DUAL;
1019:
1020: -- hr_utility.trace(to_char(l_stage));
1021: pa_debug.g_err_stage := l_stage||': Project Name is '||l_project_name;
1022: IF P_PA_DEBUG_MODE = 'Y' THEN
1023: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1024: END IF;
1025:
1026: l_stage := 1900;
1019:
1020: -- hr_utility.trace(to_char(l_stage));
1021: pa_debug.g_err_stage := l_stage||': Project Name is '||l_project_name;
1022: IF P_PA_DEBUG_MODE = 'Y' THEN
1023: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1024: END IF;
1025:
1026: l_stage := 1900;
1027: pa_debug.g_err_stage := l_stage||': Get Org Project Info';
1023: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1024: END IF;
1025:
1026: l_stage := 1900;
1027: pa_debug.g_err_stage := l_stage||': Get Org Project Info';
1028: IF P_PA_DEBUG_MODE = 'Y' THEN
1029: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1030: END IF;
1031: /* Get Project information if the project exists else create the
1024: END IF;
1025:
1026: l_stage := 1900;
1027: pa_debug.g_err_stage := l_stage||': Get Org Project Info';
1028: IF P_PA_DEBUG_MODE = 'Y' THEN
1029: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1030: END IF;
1031: /* Get Project information if the project exists else create the
1032: project by copying the template as per forecasting options
1025:
1026: l_stage := 1900;
1027: pa_debug.g_err_stage := l_stage||': Get Org Project Info';
1028: IF P_PA_DEBUG_MODE = 'Y' THEN
1029: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1030: END IF;
1031: /* Get Project information if the project exists else create the
1032: project by copying the template as per forecasting options
1033: and then get the project info */
1039: ,x_err_code => l_err_code);
1040:
1041: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
1042: THEN
1043: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1044: ': Error occured while Getting Project Info [' ||
1045: l_err_code|| ']';
1046: IF P_PA_DEBUG_MODE = 'Y' THEN
1047: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1042: THEN
1043: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1044: ': Error occured while Getting Project Info [' ||
1045: l_err_code|| ']';
1046: IF P_PA_DEBUG_MODE = 'Y' THEN
1047: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1048: END IF;
1049: pa_debug.g_err_stage := l_stage||': Organization Id = '||TO_CHAR(l_organization_id);
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1043: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1044: ': Error occured while Getting Project Info [' ||
1045: l_err_code|| ']';
1046: IF P_PA_DEBUG_MODE = 'Y' THEN
1047: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1048: END IF;
1049: pa_debug.g_err_stage := l_stage||': Organization Id = '||TO_CHAR(l_organization_id);
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1051: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1045: l_err_code|| ']';
1046: IF P_PA_DEBUG_MODE = 'Y' THEN
1047: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1048: END IF;
1049: pa_debug.g_err_stage := l_stage||': Organization Id = '||TO_CHAR(l_organization_id);
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1051: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1052: END IF;
1053: rollback to org_project;
1046: IF P_PA_DEBUG_MODE = 'Y' THEN
1047: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1048: END IF;
1049: pa_debug.g_err_stage := l_stage||': Organization Id = '||TO_CHAR(l_organization_id);
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1051: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1052: END IF;
1053: rollback to org_project;
1054: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1047: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1048: END IF;
1049: pa_debug.g_err_stage := l_stage||': Organization Id = '||TO_CHAR(l_organization_id);
1050: IF P_PA_DEBUG_MODE = 'Y' THEN
1051: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1052: END IF;
1053: rollback to org_project;
1054: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1055: END IF;
1054: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1055: END IF;
1056: l_stage := 2000;
1057: -- hr_utility.trace(to_char(l_stage));
1058: pa_debug.g_err_stage := l_stage||': Org Project ID is ['||l_project_id||']';
1059: IF P_PA_DEBUG_MODE = 'Y' THEN
1060: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1061: END IF;
1062:
1055: END IF;
1056: l_stage := 2000;
1057: -- hr_utility.trace(to_char(l_stage));
1058: pa_debug.g_err_stage := l_stage||': Org Project ID is ['||l_project_id||']';
1059: IF P_PA_DEBUG_MODE = 'Y' THEN
1060: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1061: END IF;
1062:
1063: IF l_project_id > 0 THEN
1056: l_stage := 2000;
1057: -- hr_utility.trace(to_char(l_stage));
1058: pa_debug.g_err_stage := l_stage||': Org Project ID is ['||l_project_id||']';
1059: IF P_PA_DEBUG_MODE = 'Y' THEN
1060: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1061: END IF;
1062:
1063: IF l_project_id > 0 THEN
1064:
1063: IF l_project_id > 0 THEN
1064:
1065: l_stage := 2100;
1066: -- hr_utility.trace(to_char(l_stage));
1067: pa_debug.g_err_stage := l_stage||': Get Org Task Info';
1068: IF P_PA_DEBUG_MODE = 'Y' THEN
1069: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1070: END IF;
1071:
1064:
1065: l_stage := 2100;
1066: -- hr_utility.trace(to_char(l_stage));
1067: pa_debug.g_err_stage := l_stage||': Get Org Task Info';
1068: IF P_PA_DEBUG_MODE = 'Y' THEN
1069: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1070: END IF;
1071:
1072: pa_fp_org_fcst_utils.get_org_task_info
1065: l_stage := 2100;
1066: -- hr_utility.trace(to_char(l_stage));
1067: pa_debug.g_err_stage := l_stage||': Get Org Task Info';
1068: IF P_PA_DEBUG_MODE = 'Y' THEN
1069: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1070: END IF;
1071:
1072: pa_fp_org_fcst_utils.get_org_task_info
1073: ( p_project_id => l_project_id
1076: ,x_return_status => l_return_status
1077: ,x_err_code => l_err_code);
1078:
1079: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1080: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1081: ': Error getting Own Task';
1082: IF P_PA_DEBUG_MODE = 'Y' THEN
1083: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1084: END IF;
1078:
1079: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1080: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1081: ': Error getting Own Task';
1082: IF P_PA_DEBUG_MODE = 'Y' THEN
1083: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1084: END IF;
1085: /*
1086: pa_debug.g_err_stage :=
1079: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1080: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1081: ': Error getting Own Task';
1082: IF P_PA_DEBUG_MODE = 'Y' THEN
1083: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1084: END IF;
1085: /*
1086: pa_debug.g_err_stage :=
1087: 'l_project_id ['||l_project_id ||
1082: IF P_PA_DEBUG_MODE = 'Y' THEN
1083: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1084: END IF;
1085: /*
1086: pa_debug.g_err_stage :=
1087: 'l_project_id ['||l_project_id ||
1088: '] l_organization_id ['||l_organization_id ||
1089: '] l_org_id ['||l_org_id ||
1090: ']';
1087: 'l_project_id ['||l_project_id ||
1088: '] l_organization_id ['||l_organization_id ||
1089: '] l_org_id ['||l_org_id ||
1090: ']';
1091: IF P_PA_DEBUG_MODE = 'Y' THEN
1092: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1093: END IF;
1094: */
1095: rollback to org_project;
1088: '] l_organization_id ['||l_organization_id ||
1089: '] l_org_id ['||l_org_id ||
1090: ']';
1091: IF P_PA_DEBUG_MODE = 'Y' THEN
1092: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1093: END IF;
1094: */
1095: rollback to org_project;
1096: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1096: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1097: END IF;
1098: l_stage := 2200;
1099: -- hr_utility.trace('2200: Own Task Id = '||to_char(l_own_task_id));
1100: pa_debug.g_err_stage := l_stage||': Own Task Id = '||l_own_task_id;
1101: IF P_PA_DEBUG_MODE = 'Y' THEN
1102: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1103: END IF;
1104:
1097: END IF;
1098: l_stage := 2200;
1099: -- hr_utility.trace('2200: Own Task Id = '||to_char(l_own_task_id));
1100: pa_debug.g_err_stage := l_stage||': Own Task Id = '||l_own_task_id;
1101: IF P_PA_DEBUG_MODE = 'Y' THEN
1102: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1103: END IF;
1104:
1105: IF l_own_task_id < 0 THEN
1098: l_stage := 2200;
1099: -- hr_utility.trace('2200: Own Task Id = '||to_char(l_own_task_id));
1100: pa_debug.g_err_stage := l_stage||': Own Task Id = '||l_own_task_id;
1101: IF P_PA_DEBUG_MODE = 'Y' THEN
1102: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1103: END IF;
1104:
1105: IF l_own_task_id < 0 THEN
1106: l_stage := 2300;
1104:
1105: IF l_own_task_id < 0 THEN
1106: l_stage := 2300;
1107: -- hr_utility.trace(to_char(l_stage));
1108: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1109: ': Own Task Not Found';
1110: IF P_PA_DEBUG_MODE = 'Y' THEN
1111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1112: END IF;
1106: l_stage := 2300;
1107: -- hr_utility.trace(to_char(l_stage));
1108: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1109: ': Own Task Not Found';
1110: IF P_PA_DEBUG_MODE = 'Y' THEN
1111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1112: END IF;
1113: /*
1114: pa_debug.g_err_stage :=
1107: -- hr_utility.trace(to_char(l_stage));
1108: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1109: ': Own Task Not Found';
1110: IF P_PA_DEBUG_MODE = 'Y' THEN
1111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1112: END IF;
1113: /*
1114: pa_debug.g_err_stage :=
1115: 'l_project_id ['||l_project_id ||
1110: IF P_PA_DEBUG_MODE = 'Y' THEN
1111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1112: END IF;
1113: /*
1114: pa_debug.g_err_stage :=
1115: 'l_project_id ['||l_project_id ||
1116: '] l_organization_id ['||l_organization_id ||
1117: '] l_org_id ['||l_org_id ||
1118: ']';
1115: 'l_project_id ['||l_project_id ||
1116: '] l_organization_id ['||l_organization_id ||
1117: '] l_org_id ['||l_org_id ||
1118: ']';
1119: IF P_PA_DEBUG_MODE = 'Y' THEN
1120: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1121: END IF;
1122: */
1123: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1116: '] l_organization_id ['||l_organization_id ||
1117: '] l_org_id ['||l_org_id ||
1118: ']';
1119: IF P_PA_DEBUG_MODE = 'Y' THEN
1120: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1121: END IF;
1122: */
1123: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1124: ,p_msg_name => 'PA_FP_OWN_TASK_NOT_FOUND');
1138:
1139: IF l_project_id < 0 THEN /* Organization Project not found */
1140: l_stage := 2500;
1141: -- hr_utility.trace(to_char(l_stage));
1142: pa_debug.g_err_stage := l_stage||': Create New Org Project for '||TO_CHAR(l_organization_id);
1143: IF P_PA_DEBUG_MODE = 'Y' THEN
1144: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1145: END IF;
1146:
1139: IF l_project_id < 0 THEN /* Organization Project not found */
1140: l_stage := 2500;
1141: -- hr_utility.trace(to_char(l_stage));
1142: pa_debug.g_err_stage := l_stage||': Create New Org Project for '||TO_CHAR(l_organization_id);
1143: IF P_PA_DEBUG_MODE = 'Y' THEN
1144: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1145: END IF;
1146:
1147: l_err_code := NULL;
1140: l_stage := 2500;
1141: -- hr_utility.trace(to_char(l_stage));
1142: pa_debug.g_err_stage := l_stage||': Create New Org Project for '||TO_CHAR(l_organization_id);
1143: IF P_PA_DEBUG_MODE = 'Y' THEN
1144: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1145: END IF;
1146:
1147: l_err_code := NULL;
1148: l_err_stage := NULL;
1183: , x_opp_value_currency_code => NULL
1184: , x_org_project_copy_flag => 'Y');
1185:
1186: IF l_err_code > 0 THEN
1187: pa_debug.g_err_stage := l_stage||': Error Creating Project [' || l_err_code || ']';
1188: IF P_PA_DEBUG_MODE = 'Y' THEN
1189: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1190: END IF;
1191: pa_debug.g_err_stage := l_stage||': [' || l_err_stage|| ']';
1184: , x_org_project_copy_flag => 'Y');
1185:
1186: IF l_err_code > 0 THEN
1187: pa_debug.g_err_stage := l_stage||': Error Creating Project [' || l_err_code || ']';
1188: IF P_PA_DEBUG_MODE = 'Y' THEN
1189: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1190: END IF;
1191: pa_debug.g_err_stage := l_stage||': [' || l_err_stage|| ']';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1185:
1186: IF l_err_code > 0 THEN
1187: pa_debug.g_err_stage := l_stage||': Error Creating Project [' || l_err_code || ']';
1188: IF P_PA_DEBUG_MODE = 'Y' THEN
1189: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1190: END IF;
1191: pa_debug.g_err_stage := l_stage||': [' || l_err_stage|| ']';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1187: pa_debug.g_err_stage := l_stage||': Error Creating Project [' || l_err_code || ']';
1188: IF P_PA_DEBUG_MODE = 'Y' THEN
1189: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1190: END IF;
1191: pa_debug.g_err_stage := l_stage||': [' || l_err_stage|| ']';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1194: END IF;
1195: pa_debug.g_err_stage := l_stage||': [' || l_err_stack|| ']';
1188: IF P_PA_DEBUG_MODE = 'Y' THEN
1189: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1190: END IF;
1191: pa_debug.g_err_stage := l_stage||': [' || l_err_stage|| ']';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1194: END IF;
1195: pa_debug.g_err_stage := l_stage||': [' || l_err_stack|| ']';
1196: IF P_PA_DEBUG_MODE = 'Y' THEN
1189: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1190: END IF;
1191: pa_debug.g_err_stage := l_stage||': [' || l_err_stage|| ']';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1194: END IF;
1195: pa_debug.g_err_stage := l_stage||': [' || l_err_stack|| ']';
1196: IF P_PA_DEBUG_MODE = 'Y' THEN
1197: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1191: pa_debug.g_err_stage := l_stage||': [' || l_err_stage|| ']';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1194: END IF;
1195: pa_debug.g_err_stage := l_stage||': [' || l_err_stack|| ']';
1196: IF P_PA_DEBUG_MODE = 'Y' THEN
1197: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1198: END IF;
1199: pa_debug.g_err_stage := l_stage||': l_org_proj_template_id ['||l_org_proj_template_id || ']';
1192: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1194: END IF;
1195: pa_debug.g_err_stage := l_stage||': [' || l_err_stack|| ']';
1196: IF P_PA_DEBUG_MODE = 'Y' THEN
1197: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1198: END IF;
1199: pa_debug.g_err_stage := l_stage||': l_org_proj_template_id ['||l_org_proj_template_id || ']';
1200: IF P_PA_DEBUG_MODE = 'Y' THEN
1193: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1194: END IF;
1195: pa_debug.g_err_stage := l_stage||': [' || l_err_stack|| ']';
1196: IF P_PA_DEBUG_MODE = 'Y' THEN
1197: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1198: END IF;
1199: pa_debug.g_err_stage := l_stage||': l_org_proj_template_id ['||l_org_proj_template_id || ']';
1200: IF P_PA_DEBUG_MODE = 'Y' THEN
1201: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1195: pa_debug.g_err_stage := l_stage||': [' || l_err_stack|| ']';
1196: IF P_PA_DEBUG_MODE = 'Y' THEN
1197: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1198: END IF;
1199: pa_debug.g_err_stage := l_stage||': l_org_proj_template_id ['||l_org_proj_template_id || ']';
1200: IF P_PA_DEBUG_MODE = 'Y' THEN
1201: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1202: END IF;
1203: pa_debug.g_err_stage := l_stage||': l_project_name ['||l_project_name || ']';
1196: IF P_PA_DEBUG_MODE = 'Y' THEN
1197: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1198: END IF;
1199: pa_debug.g_err_stage := l_stage||': l_org_proj_template_id ['||l_org_proj_template_id || ']';
1200: IF P_PA_DEBUG_MODE = 'Y' THEN
1201: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1202: END IF;
1203: pa_debug.g_err_stage := l_stage||': l_project_name ['||l_project_name || ']';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1197: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1198: END IF;
1199: pa_debug.g_err_stage := l_stage||': l_org_proj_template_id ['||l_org_proj_template_id || ']';
1200: IF P_PA_DEBUG_MODE = 'Y' THEN
1201: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1202: END IF;
1203: pa_debug.g_err_stage := l_stage||': l_project_name ['||l_project_name || ']';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1199: pa_debug.g_err_stage := l_stage||': l_org_proj_template_id ['||l_org_proj_template_id || ']';
1200: IF P_PA_DEBUG_MODE = 'Y' THEN
1201: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1202: END IF;
1203: pa_debug.g_err_stage := l_stage||': l_project_name ['||l_project_name || ']';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1206: END IF;
1207: pa_debug.g_err_stage := l_stage||': l_project_number ['||l_project_number || ']';
1200: IF P_PA_DEBUG_MODE = 'Y' THEN
1201: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1202: END IF;
1203: pa_debug.g_err_stage := l_stage||': l_project_name ['||l_project_name || ']';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1206: END IF;
1207: pa_debug.g_err_stage := l_stage||': l_project_number ['||l_project_number || ']';
1208: IF P_PA_DEBUG_MODE = 'Y' THEN
1201: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1202: END IF;
1203: pa_debug.g_err_stage := l_stage||': l_project_name ['||l_project_name || ']';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1206: END IF;
1207: pa_debug.g_err_stage := l_stage||': l_project_number ['||l_project_number || ']';
1208: IF P_PA_DEBUG_MODE = 'Y' THEN
1209: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1203: pa_debug.g_err_stage := l_stage||': l_project_name ['||l_project_name || ']';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1206: END IF;
1207: pa_debug.g_err_stage := l_stage||': l_project_number ['||l_project_number || ']';
1208: IF P_PA_DEBUG_MODE = 'Y' THEN
1209: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1210: END IF;
1211: pa_debug.g_err_stage := l_stage||': l_organization_id ['||l_organization_id || ']';
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1206: END IF;
1207: pa_debug.g_err_stage := l_stage||': l_project_number ['||l_project_number || ']';
1208: IF P_PA_DEBUG_MODE = 'Y' THEN
1209: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1210: END IF;
1211: pa_debug.g_err_stage := l_stage||': l_organization_id ['||l_organization_id || ']';
1212: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1206: END IF;
1207: pa_debug.g_err_stage := l_stage||': l_project_number ['||l_project_number || ']';
1208: IF P_PA_DEBUG_MODE = 'Y' THEN
1209: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1210: END IF;
1211: pa_debug.g_err_stage := l_stage||': l_organization_id ['||l_organization_id || ']';
1212: IF P_PA_DEBUG_MODE = 'Y' THEN
1213: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1207: pa_debug.g_err_stage := l_stage||': l_project_number ['||l_project_number || ']';
1208: IF P_PA_DEBUG_MODE = 'Y' THEN
1209: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1210: END IF;
1211: pa_debug.g_err_stage := l_stage||': l_organization_id ['||l_organization_id || ']';
1212: IF P_PA_DEBUG_MODE = 'Y' THEN
1213: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1214: END IF;
1215: pa_debug.g_err_stage := l_stage||': l_org_id ['||l_org_id || ']';
1208: IF P_PA_DEBUG_MODE = 'Y' THEN
1209: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1210: END IF;
1211: pa_debug.g_err_stage := l_stage||': l_organization_id ['||l_organization_id || ']';
1212: IF P_PA_DEBUG_MODE = 'Y' THEN
1213: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1214: END IF;
1215: pa_debug.g_err_stage := l_stage||': l_org_id ['||l_org_id || ']';
1216: IF P_PA_DEBUG_MODE = 'Y' THEN
1209: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1210: END IF;
1211: pa_debug.g_err_stage := l_stage||': l_organization_id ['||l_organization_id || ']';
1212: IF P_PA_DEBUG_MODE = 'Y' THEN
1213: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1214: END IF;
1215: pa_debug.g_err_stage := l_stage||': l_org_id ['||l_org_id || ']';
1216: IF P_PA_DEBUG_MODE = 'Y' THEN
1217: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1211: pa_debug.g_err_stage := l_stage||': l_organization_id ['||l_organization_id || ']';
1212: IF P_PA_DEBUG_MODE = 'Y' THEN
1213: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1214: END IF;
1215: pa_debug.g_err_stage := l_stage||': l_org_id ['||l_org_id || ']';
1216: IF P_PA_DEBUG_MODE = 'Y' THEN
1217: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1218: END IF;
1219: rollback to org_project;
1212: IF P_PA_DEBUG_MODE = 'Y' THEN
1213: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1214: END IF;
1215: pa_debug.g_err_stage := l_stage||': l_org_id ['||l_org_id || ']';
1216: IF P_PA_DEBUG_MODE = 'Y' THEN
1217: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1218: END IF;
1219: rollback to org_project;
1220: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1213: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1214: END IF;
1215: pa_debug.g_err_stage := l_stage||': l_org_id ['||l_org_id || ']';
1216: IF P_PA_DEBUG_MODE = 'Y' THEN
1217: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1218: END IF;
1219: rollback to org_project;
1220: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1221: END IF;
1221: END IF;
1222:
1223: l_stage := 2600;
1224: -- hr_utility.trace(to_char(l_stage));
1225: pa_debug.g_err_stage := l_stage||': Get Org Task Info';
1226: IF P_PA_DEBUG_MODE = 'Y' THEN
1227: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1228: END IF;
1229: pa_fp_org_fcst_utils.get_org_task_info
1222:
1223: l_stage := 2600;
1224: -- hr_utility.trace(to_char(l_stage));
1225: pa_debug.g_err_stage := l_stage||': Get Org Task Info';
1226: IF P_PA_DEBUG_MODE = 'Y' THEN
1227: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1228: END IF;
1229: pa_fp_org_fcst_utils.get_org_task_info
1230: ( p_project_id => l_project_id
1223: l_stage := 2600;
1224: -- hr_utility.trace(to_char(l_stage));
1225: pa_debug.g_err_stage := l_stage||': Get Org Task Info';
1226: IF P_PA_DEBUG_MODE = 'Y' THEN
1227: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1228: END IF;
1229: pa_fp_org_fcst_utils.get_org_task_info
1230: ( p_project_id => l_project_id
1231: ,x_organization_id => l_task_organization_id
1235:
1236: -- hr_utility.trace('Own Task Id = '||to_char(l_own_task_id));
1237:
1238: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1240: ': Error getting Own Task';
1241: IF P_PA_DEBUG_MODE = 'Y' THEN
1242: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1243: END IF;
1237:
1238: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1240: ': Error getting Own Task';
1241: IF P_PA_DEBUG_MODE = 'Y' THEN
1242: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1243: END IF;
1244: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1245: IF P_PA_DEBUG_MODE = 'Y' THEN
1238: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1240: ': Error getting Own Task';
1241: IF P_PA_DEBUG_MODE = 'Y' THEN
1242: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1243: END IF;
1244: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1245: IF P_PA_DEBUG_MODE = 'Y' THEN
1246: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1240: ': Error getting Own Task';
1241: IF P_PA_DEBUG_MODE = 'Y' THEN
1242: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1243: END IF;
1244: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1245: IF P_PA_DEBUG_MODE = 'Y' THEN
1246: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1247: END IF;
1248: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1241: IF P_PA_DEBUG_MODE = 'Y' THEN
1242: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1243: END IF;
1244: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1245: IF P_PA_DEBUG_MODE = 'Y' THEN
1246: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1247: END IF;
1248: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1249: IF P_PA_DEBUG_MODE = 'Y' THEN
1242: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1243: END IF;
1244: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1245: IF P_PA_DEBUG_MODE = 'Y' THEN
1246: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1247: END IF;
1248: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1249: IF P_PA_DEBUG_MODE = 'Y' THEN
1250: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1244: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1245: IF P_PA_DEBUG_MODE = 'Y' THEN
1246: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1247: END IF;
1248: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1249: IF P_PA_DEBUG_MODE = 'Y' THEN
1250: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1251: END IF;
1252: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1245: IF P_PA_DEBUG_MODE = 'Y' THEN
1246: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1247: END IF;
1248: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1249: IF P_PA_DEBUG_MODE = 'Y' THEN
1250: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1251: END IF;
1252: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1253: IF P_PA_DEBUG_MODE = 'Y' THEN
1246: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1247: END IF;
1248: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1249: IF P_PA_DEBUG_MODE = 'Y' THEN
1250: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1251: END IF;
1252: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1253: IF P_PA_DEBUG_MODE = 'Y' THEN
1254: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1248: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1249: IF P_PA_DEBUG_MODE = 'Y' THEN
1250: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1251: END IF;
1252: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1253: IF P_PA_DEBUG_MODE = 'Y' THEN
1254: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1255: END IF;
1256: rollback to org_project;
1249: IF P_PA_DEBUG_MODE = 'Y' THEN
1250: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1251: END IF;
1252: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1253: IF P_PA_DEBUG_MODE = 'Y' THEN
1254: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1255: END IF;
1256: rollback to org_project;
1257: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1250: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1251: END IF;
1252: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1253: IF P_PA_DEBUG_MODE = 'Y' THEN
1254: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1255: END IF;
1256: rollback to org_project;
1257: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1258: END IF;
1259:
1260: IF l_own_task_id < 0 THEN
1261: l_stage := 2700;
1262: -- hr_utility.trace(to_char(l_stage));
1263: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Own Task Not Found';
1264: IF P_PA_DEBUG_MODE = 'Y' THEN
1265: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1266: END IF;
1267: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1260: IF l_own_task_id < 0 THEN
1261: l_stage := 2700;
1262: -- hr_utility.trace(to_char(l_stage));
1263: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Own Task Not Found';
1264: IF P_PA_DEBUG_MODE = 'Y' THEN
1265: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1266: END IF;
1267: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1268: IF P_PA_DEBUG_MODE = 'Y' THEN
1261: l_stage := 2700;
1262: -- hr_utility.trace(to_char(l_stage));
1263: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Own Task Not Found';
1264: IF P_PA_DEBUG_MODE = 'Y' THEN
1265: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1266: END IF;
1267: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1268: IF P_PA_DEBUG_MODE = 'Y' THEN
1269: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1263: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Own Task Not Found';
1264: IF P_PA_DEBUG_MODE = 'Y' THEN
1265: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1266: END IF;
1267: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1268: IF P_PA_DEBUG_MODE = 'Y' THEN
1269: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1270: END IF;
1271: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1264: IF P_PA_DEBUG_MODE = 'Y' THEN
1265: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1266: END IF;
1267: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1268: IF P_PA_DEBUG_MODE = 'Y' THEN
1269: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1270: END IF;
1271: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1272: IF P_PA_DEBUG_MODE = 'Y' THEN
1265: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1266: END IF;
1267: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1268: IF P_PA_DEBUG_MODE = 'Y' THEN
1269: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1270: END IF;
1271: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1272: IF P_PA_DEBUG_MODE = 'Y' THEN
1273: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1267: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1268: IF P_PA_DEBUG_MODE = 'Y' THEN
1269: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1270: END IF;
1271: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1272: IF P_PA_DEBUG_MODE = 'Y' THEN
1273: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1274: END IF;
1275: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1268: IF P_PA_DEBUG_MODE = 'Y' THEN
1269: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1270: END IF;
1271: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1272: IF P_PA_DEBUG_MODE = 'Y' THEN
1273: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1274: END IF;
1275: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1276: IF P_PA_DEBUG_MODE = 'Y' THEN
1269: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1270: END IF;
1271: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1272: IF P_PA_DEBUG_MODE = 'Y' THEN
1273: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1274: END IF;
1275: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1276: IF P_PA_DEBUG_MODE = 'Y' THEN
1277: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1271: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1272: IF P_PA_DEBUG_MODE = 'Y' THEN
1273: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1274: END IF;
1275: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1276: IF P_PA_DEBUG_MODE = 'Y' THEN
1277: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1278: END IF;
1279: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1272: IF P_PA_DEBUG_MODE = 'Y' THEN
1273: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1274: END IF;
1275: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1276: IF P_PA_DEBUG_MODE = 'Y' THEN
1277: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1278: END IF;
1279: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1280: ,p_msg_name => 'PA_FP_OWN_TASK_NOT_FOUND');
1273: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1274: END IF;
1275: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1276: IF P_PA_DEBUG_MODE = 'Y' THEN
1277: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1278: END IF;
1279: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1280: ,p_msg_name => 'PA_FP_OWN_TASK_NOT_FOUND');
1281: rollback to org_project;
1292: END IF;
1293:
1294: l_stage := 2900;
1295: -- hr_utility.trace(to_char(l_stage));
1296: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj Fin Plan Options at Project Level';
1297: IF P_PA_DEBUG_MODE = 'Y' THEN
1298: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1299: END IF;
1300:
1293:
1294: l_stage := 2900;
1295: -- hr_utility.trace(to_char(l_stage));
1296: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj Fin Plan Options at Project Level';
1297: IF P_PA_DEBUG_MODE = 'Y' THEN
1298: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1299: END IF;
1300:
1301: -- Create Proj Fin Plan Options at Project Level
1294: l_stage := 2900;
1295: -- hr_utility.trace(to_char(l_stage));
1296: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj Fin Plan Options at Project Level';
1297: IF P_PA_DEBUG_MODE = 'Y' THEN
1298: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1299: END IF;
1300:
1301: -- Create Proj Fin Plan Options at Project Level
1302: l_proj_fp_options_id := NULL;
1325: ,x_row_id => l_row_id
1326: ,x_return_status => l_return_status);
1327:
1328: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1329: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1330: ': Error creating Proj FP Options';
1331: IF P_PA_DEBUG_MODE = 'Y' THEN
1332: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1333: END IF;
1327:
1328: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1329: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1330: ': Error creating Proj FP Options';
1331: IF P_PA_DEBUG_MODE = 'Y' THEN
1332: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1333: END IF;
1334: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1328: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1329: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1330: ': Error creating Proj FP Options';
1331: IF P_PA_DEBUG_MODE = 'Y' THEN
1332: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1333: END IF;
1334: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1330: ': Error creating Proj FP Options';
1331: IF P_PA_DEBUG_MODE = 'Y' THEN
1332: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1333: END IF;
1334: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1337: END IF;
1338: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1331: IF P_PA_DEBUG_MODE = 'Y' THEN
1332: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1333: END IF;
1334: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1337: END IF;
1338: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1332: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1333: END IF;
1334: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1337: END IF;
1338: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1334: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1337: END IF;
1338: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1341: END IF;
1342: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1335: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1337: END IF;
1338: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1341: END IF;
1342: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1343: IF P_PA_DEBUG_MODE = 'Y' THEN
1336: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1337: END IF;
1338: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1341: END IF;
1342: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1343: IF P_PA_DEBUG_MODE = 'Y' THEN
1344: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1338: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1341: END IF;
1342: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1343: IF P_PA_DEBUG_MODE = 'Y' THEN
1344: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1345: END IF;
1346: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1339: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1341: END IF;
1342: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1343: IF P_PA_DEBUG_MODE = 'Y' THEN
1344: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1345: END IF;
1346: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1347: IF P_PA_DEBUG_MODE = 'Y' THEN
1340: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1341: END IF;
1342: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1343: IF P_PA_DEBUG_MODE = 'Y' THEN
1344: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1345: END IF;
1346: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1347: IF P_PA_DEBUG_MODE = 'Y' THEN
1348: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1342: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1343: IF P_PA_DEBUG_MODE = 'Y' THEN
1344: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1345: END IF;
1346: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1347: IF P_PA_DEBUG_MODE = 'Y' THEN
1348: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1349: END IF;
1350: rollback to org_project;
1343: IF P_PA_DEBUG_MODE = 'Y' THEN
1344: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1345: END IF;
1346: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1347: IF P_PA_DEBUG_MODE = 'Y' THEN
1348: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1349: END IF;
1350: rollback to org_project;
1351: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1344: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1345: END IF;
1346: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1347: IF P_PA_DEBUG_MODE = 'Y' THEN
1348: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1349: END IF;
1350: rollback to org_project;
1351: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1352: END IF;
1352: END IF;
1353:
1354: l_stage := 3000;
1355: -- hr_utility.trace(to_char(l_stage));
1356: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj FP Options at Plan Type Level';
1357: IF P_PA_DEBUG_MODE = 'Y' THEN
1358: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1359: END IF;
1360:
1353:
1354: l_stage := 3000;
1355: -- hr_utility.trace(to_char(l_stage));
1356: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj FP Options at Plan Type Level';
1357: IF P_PA_DEBUG_MODE = 'Y' THEN
1358: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1359: END IF;
1360:
1361: -- Create Proj Fin Plan Options at Plan Type Level
1354: l_stage := 3000;
1355: -- hr_utility.trace(to_char(l_stage));
1356: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj FP Options at Plan Type Level';
1357: IF P_PA_DEBUG_MODE = 'Y' THEN
1358: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1359: END IF;
1360:
1361: -- Create Proj Fin Plan Options at Plan Type Level
1362: l_proj_fp_options_id := NULL;
1385: ,x_row_id => l_row_id
1386: ,x_return_status => l_return_status);
1387:
1388: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1389: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1390: ': Error creating Plan FP Options';
1391: IF P_PA_DEBUG_MODE = 'Y' THEN
1392: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1393: END IF;
1387:
1388: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1389: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1390: ': Error creating Plan FP Options';
1391: IF P_PA_DEBUG_MODE = 'Y' THEN
1392: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1393: END IF;
1394: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1388: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1389: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1390: ': Error creating Plan FP Options';
1391: IF P_PA_DEBUG_MODE = 'Y' THEN
1392: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1393: END IF;
1394: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1390: ': Error creating Plan FP Options';
1391: IF P_PA_DEBUG_MODE = 'Y' THEN
1392: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1393: END IF;
1394: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1397: END IF;
1398: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1391: IF P_PA_DEBUG_MODE = 'Y' THEN
1392: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1393: END IF;
1394: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1397: END IF;
1398: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1399: IF P_PA_DEBUG_MODE = 'Y' THEN
1392: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1393: END IF;
1394: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1397: END IF;
1398: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1399: IF P_PA_DEBUG_MODE = 'Y' THEN
1400: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1394: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1397: END IF;
1398: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1399: IF P_PA_DEBUG_MODE = 'Y' THEN
1400: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1401: END IF;
1402: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1397: END IF;
1398: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1399: IF P_PA_DEBUG_MODE = 'Y' THEN
1400: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1401: END IF;
1402: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1403: IF P_PA_DEBUG_MODE = 'Y' THEN
1396: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1397: END IF;
1398: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1399: IF P_PA_DEBUG_MODE = 'Y' THEN
1400: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1401: END IF;
1402: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1403: IF P_PA_DEBUG_MODE = 'Y' THEN
1404: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1398: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1399: IF P_PA_DEBUG_MODE = 'Y' THEN
1400: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1401: END IF;
1402: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1403: IF P_PA_DEBUG_MODE = 'Y' THEN
1404: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1405: END IF;
1406: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1399: IF P_PA_DEBUG_MODE = 'Y' THEN
1400: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1401: END IF;
1402: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1403: IF P_PA_DEBUG_MODE = 'Y' THEN
1404: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1405: END IF;
1406: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1407: IF P_PA_DEBUG_MODE = 'Y' THEN
1400: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1401: END IF;
1402: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1403: IF P_PA_DEBUG_MODE = 'Y' THEN
1404: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1405: END IF;
1406: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1407: IF P_PA_DEBUG_MODE = 'Y' THEN
1408: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1402: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1403: IF P_PA_DEBUG_MODE = 'Y' THEN
1404: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1405: END IF;
1406: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1407: IF P_PA_DEBUG_MODE = 'Y' THEN
1408: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1409: END IF;
1410: rollback to org_project;
1403: IF P_PA_DEBUG_MODE = 'Y' THEN
1404: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1405: END IF;
1406: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1407: IF P_PA_DEBUG_MODE = 'Y' THEN
1408: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1409: END IF;
1410: rollback to org_project;
1411: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1404: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1405: END IF;
1406: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1407: IF P_PA_DEBUG_MODE = 'Y' THEN
1408: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1409: END IF;
1410: rollback to org_project;
1411: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1412: END IF;
1417: END IF; /* End of Organization Project Creation */
1418:
1419: l_stage := 3200;
1420: -- hr_utility.trace(to_char(l_stage));
1421: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Check Existence of Period Profile for the following data: ';
1422: IF P_PA_DEBUG_MODE = 'Y' THEN
1423: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1424: END IF;
1425:
1418:
1419: l_stage := 3200;
1420: -- hr_utility.trace(to_char(l_stage));
1421: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Check Existence of Period Profile for the following data: ';
1422: IF P_PA_DEBUG_MODE = 'Y' THEN
1423: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1424: END IF;
1425:
1426:
1419: l_stage := 3200;
1420: -- hr_utility.trace(to_char(l_stage));
1421: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Check Existence of Period Profile for the following data: ';
1422: IF P_PA_DEBUG_MODE = 'Y' THEN
1423: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1424: END IF;
1425:
1426:
1427: -- Get Period Profile Information if exists
1424: END IF;
1425:
1426:
1427: -- Get Period Profile Information if exists
1428: pa_debug.g_err_stage := l_stage||': l_project_id ['||l_project_id ||']';
1429: IF P_PA_DEBUG_MODE = 'Y' THEN
1430: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1431: END IF;
1432: pa_debug.g_err_stage := l_stage||': period_profile_type ['||'FINANCIAL_PLANNING' ||']';
1425:
1426:
1427: -- Get Period Profile Information if exists
1428: pa_debug.g_err_stage := l_stage||': l_project_id ['||l_project_id ||']';
1429: IF P_PA_DEBUG_MODE = 'Y' THEN
1430: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1431: END IF;
1432: pa_debug.g_err_stage := l_stage||': period_profile_type ['||'FINANCIAL_PLANNING' ||']';
1433: IF P_PA_DEBUG_MODE = 'Y' THEN
1426:
1427: -- Get Period Profile Information if exists
1428: pa_debug.g_err_stage := l_stage||': l_project_id ['||l_project_id ||']';
1429: IF P_PA_DEBUG_MODE = 'Y' THEN
1430: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1431: END IF;
1432: pa_debug.g_err_stage := l_stage||': period_profile_type ['||'FINANCIAL_PLANNING' ||']';
1433: IF P_PA_DEBUG_MODE = 'Y' THEN
1434: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1428: pa_debug.g_err_stage := l_stage||': l_project_id ['||l_project_id ||']';
1429: IF P_PA_DEBUG_MODE = 'Y' THEN
1430: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1431: END IF;
1432: pa_debug.g_err_stage := l_stage||': period_profile_type ['||'FINANCIAL_PLANNING' ||']';
1433: IF P_PA_DEBUG_MODE = 'Y' THEN
1434: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1435: END IF;
1436: pa_debug.g_err_stage := l_stage||': l_org_fcst_period_type ['||l_org_fcst_period_type||']';
1429: IF P_PA_DEBUG_MODE = 'Y' THEN
1430: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1431: END IF;
1432: pa_debug.g_err_stage := l_stage||': period_profile_type ['||'FINANCIAL_PLANNING' ||']';
1433: IF P_PA_DEBUG_MODE = 'Y' THEN
1434: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1435: END IF;
1436: pa_debug.g_err_stage := l_stage||': l_org_fcst_period_type ['||l_org_fcst_period_type||']';
1437: IF P_PA_DEBUG_MODE = 'Y' THEN
1430: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1431: END IF;
1432: pa_debug.g_err_stage := l_stage||': period_profile_type ['||'FINANCIAL_PLANNING' ||']';
1433: IF P_PA_DEBUG_MODE = 'Y' THEN
1434: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1435: END IF;
1436: pa_debug.g_err_stage := l_stage||': l_org_fcst_period_type ['||l_org_fcst_period_type||']';
1437: IF P_PA_DEBUG_MODE = 'Y' THEN
1438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1432: pa_debug.g_err_stage := l_stage||': period_profile_type ['||'FINANCIAL_PLANNING' ||']';
1433: IF P_PA_DEBUG_MODE = 'Y' THEN
1434: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1435: END IF;
1436: pa_debug.g_err_stage := l_stage||': l_org_fcst_period_type ['||l_org_fcst_period_type||']';
1437: IF P_PA_DEBUG_MODE = 'Y' THEN
1438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1439: END IF;
1440: pa_debug.g_err_stage := l_stage||': l_period_set_name ['||l_period_set_name ||']';
1433: IF P_PA_DEBUG_MODE = 'Y' THEN
1434: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1435: END IF;
1436: pa_debug.g_err_stage := l_stage||': l_org_fcst_period_type ['||l_org_fcst_period_type||']';
1437: IF P_PA_DEBUG_MODE = 'Y' THEN
1438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1439: END IF;
1440: pa_debug.g_err_stage := l_stage||': l_period_set_name ['||l_period_set_name ||']';
1441: IF P_PA_DEBUG_MODE = 'Y' THEN
1434: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1435: END IF;
1436: pa_debug.g_err_stage := l_stage||': l_org_fcst_period_type ['||l_org_fcst_period_type||']';
1437: IF P_PA_DEBUG_MODE = 'Y' THEN
1438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1439: END IF;
1440: pa_debug.g_err_stage := l_stage||': l_period_set_name ['||l_period_set_name ||']';
1441: IF P_PA_DEBUG_MODE = 'Y' THEN
1442: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1436: pa_debug.g_err_stage := l_stage||': l_org_fcst_period_type ['||l_org_fcst_period_type||']';
1437: IF P_PA_DEBUG_MODE = 'Y' THEN
1438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1439: END IF;
1440: pa_debug.g_err_stage := l_stage||': l_period_set_name ['||l_period_set_name ||']';
1441: IF P_PA_DEBUG_MODE = 'Y' THEN
1442: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1443: END IF;
1444: pa_debug.g_err_stage := l_stage||': l_act_period_type ['||l_act_period_type ||']';
1437: IF P_PA_DEBUG_MODE = 'Y' THEN
1438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1439: END IF;
1440: pa_debug.g_err_stage := l_stage||': l_period_set_name ['||l_period_set_name ||']';
1441: IF P_PA_DEBUG_MODE = 'Y' THEN
1442: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1443: END IF;
1444: pa_debug.g_err_stage := l_stage||': l_act_period_type ['||l_act_period_type ||']';
1445: IF P_PA_DEBUG_MODE = 'Y' THEN
1438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1439: END IF;
1440: pa_debug.g_err_stage := l_stage||': l_period_set_name ['||l_period_set_name ||']';
1441: IF P_PA_DEBUG_MODE = 'Y' THEN
1442: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1443: END IF;
1444: pa_debug.g_err_stage := l_stage||': l_act_period_type ['||l_act_period_type ||']';
1445: IF P_PA_DEBUG_MODE = 'Y' THEN
1446: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1440: pa_debug.g_err_stage := l_stage||': l_period_set_name ['||l_period_set_name ||']';
1441: IF P_PA_DEBUG_MODE = 'Y' THEN
1442: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1443: END IF;
1444: pa_debug.g_err_stage := l_stage||': l_act_period_type ['||l_act_period_type ||']';
1445: IF P_PA_DEBUG_MODE = 'Y' THEN
1446: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1447: END IF;
1448: pa_debug.g_err_stage := l_stage||': l_fcst_start_date ['||l_fcst_start_date ||']';
1441: IF P_PA_DEBUG_MODE = 'Y' THEN
1442: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1443: END IF;
1444: pa_debug.g_err_stage := l_stage||': l_act_period_type ['||l_act_period_type ||']';
1445: IF P_PA_DEBUG_MODE = 'Y' THEN
1446: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1447: END IF;
1448: pa_debug.g_err_stage := l_stage||': l_fcst_start_date ['||l_fcst_start_date ||']';
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1442: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1443: END IF;
1444: pa_debug.g_err_stage := l_stage||': l_act_period_type ['||l_act_period_type ||']';
1445: IF P_PA_DEBUG_MODE = 'Y' THEN
1446: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1447: END IF;
1448: pa_debug.g_err_stage := l_stage||': l_fcst_start_date ['||l_fcst_start_date ||']';
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1444: pa_debug.g_err_stage := l_stage||': l_act_period_type ['||l_act_period_type ||']';
1445: IF P_PA_DEBUG_MODE = 'Y' THEN
1446: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1447: END IF;
1448: pa_debug.g_err_stage := l_stage||': l_fcst_start_date ['||l_fcst_start_date ||']';
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1451: END IF;
1452: pa_debug.g_err_stage := l_stage||': l_number_of_periods ['||l_number_of_periods ||']';
1445: IF P_PA_DEBUG_MODE = 'Y' THEN
1446: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1447: END IF;
1448: pa_debug.g_err_stage := l_stage||': l_fcst_start_date ['||l_fcst_start_date ||']';
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1451: END IF;
1452: pa_debug.g_err_stage := l_stage||': l_number_of_periods ['||l_number_of_periods ||']';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1446: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1447: END IF;
1448: pa_debug.g_err_stage := l_stage||': l_fcst_start_date ['||l_fcst_start_date ||']';
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1451: END IF;
1452: pa_debug.g_err_stage := l_stage||': l_number_of_periods ['||l_number_of_periods ||']';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1448: pa_debug.g_err_stage := l_stage||': l_fcst_start_date ['||l_fcst_start_date ||']';
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1451: END IF;
1452: pa_debug.g_err_stage := l_stage||': l_number_of_periods ['||l_number_of_periods ||']';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1455: END IF;
1456:
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1451: END IF;
1452: pa_debug.g_err_stage := l_stage||': l_number_of_periods ['||l_number_of_periods ||']';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1455: END IF;
1456:
1457:
1450: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1451: END IF;
1452: pa_debug.g_err_stage := l_stage||': l_number_of_periods ['||l_number_of_periods ||']';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1455: END IF;
1456:
1457:
1458: pa_fp_org_fcst_utils.get_period_profile
1467: ,x_return_status => l_return_status
1468: ,x_err_code => l_err_code);
1469:
1470: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1472: ': Error in get_period_profile ';
1473: IF P_PA_DEBUG_MODE = 'Y' THEN
1474: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1475: END IF;
1469:
1470: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1472: ': Error in get_period_profile ';
1473: IF P_PA_DEBUG_MODE = 'Y' THEN
1474: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1475: END IF;
1476: rollback to org_project;
1477: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1470: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1471: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1472: ': Error in get_period_profile ';
1473: IF P_PA_DEBUG_MODE = 'Y' THEN
1474: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1475: END IF;
1476: rollback to org_project;
1477: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1478: END IF;
1483: IF l_period_profile_id < 0 THEN
1484: l_period_profile_id := NULL;
1485: l_stage := 3400;
1486: -- hr_utility.trace(to_char(l_stage));
1487: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Creating Period Profile';
1488: IF P_PA_DEBUG_MODE = 'Y' THEN
1489: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1490: END IF;
1491:
1484: l_period_profile_id := NULL;
1485: l_stage := 3400;
1486: -- hr_utility.trace(to_char(l_stage));
1487: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Creating Period Profile';
1488: IF P_PA_DEBUG_MODE = 'Y' THEN
1489: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1490: END IF;
1491:
1492: IF l_org_fcst_period_type = 'PA' THEN
1485: l_stage := 3400;
1486: -- hr_utility.trace(to_char(l_stage));
1487: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Creating Period Profile';
1488: IF P_PA_DEBUG_MODE = 'Y' THEN
1489: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1490: END IF;
1491:
1492: IF l_org_fcst_period_type = 'PA' THEN
1493: /* Denorm pkg requires this */
1514: ,x_msg_count => l_msg_count
1515: ,x_msg_data => errbuff );
1516:
1517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1518: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1519: ': Error creating period profile';
1520: IF P_PA_DEBUG_MODE = 'Y' THEN
1521: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1522: END IF;
1516:
1517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1518: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1519: ': Error creating period profile';
1520: IF P_PA_DEBUG_MODE = 'Y' THEN
1521: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1522: END IF;
1523: rollback to org_project;
1524: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1518: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1519: ': Error creating period profile';
1520: IF P_PA_DEBUG_MODE = 'Y' THEN
1521: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1522: END IF;
1523: rollback to org_project;
1524: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1525: END IF;
1526: END IF;
1527:
1528: l_stage := 3500;
1529: -- hr_utility.trace(to_char(l_stage));
1530: pa_debug.g_err_stage := l_stage||': Period Profile Id ['||l_period_profile_id||']';
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1533: END IF;
1534:
1527:
1528: l_stage := 3500;
1529: -- hr_utility.trace(to_char(l_stage));
1530: pa_debug.g_err_stage := l_stage||': Period Profile Id ['||l_period_profile_id||']';
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1533: END IF;
1534:
1535: SELECT nvl(max(bv.version_number),0) + 1,
1528: l_stage := 3500;
1529: -- hr_utility.trace(to_char(l_stage));
1530: pa_debug.g_err_stage := l_stage||': Period Profile Id ['||l_period_profile_id||']';
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1533: END IF;
1534:
1535: SELECT nvl(max(bv.version_number),0) + 1,
1536: DECODE(nvl(max(bv.version_number),0) + 1,1,'Y','N')
1542: AND bv.budget_status_code in ('W','S');
1543:
1544: l_stage := 3600;
1545: -- hr_utility.trace(to_char(l_stage));
1546: pa_debug.g_err_stage := l_stage||': BV Number ['||l_bv_version_number ||']';
1547: IF P_PA_DEBUG_MODE = 'Y' THEN
1548: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1549: END IF;
1550: pa_debug.g_err_stage := l_stage||': Current Working Flag ['||l_current_working_flag||']';
1543:
1544: l_stage := 3600;
1545: -- hr_utility.trace(to_char(l_stage));
1546: pa_debug.g_err_stage := l_stage||': BV Number ['||l_bv_version_number ||']';
1547: IF P_PA_DEBUG_MODE = 'Y' THEN
1548: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1549: END IF;
1550: pa_debug.g_err_stage := l_stage||': Current Working Flag ['||l_current_working_flag||']';
1551: IF P_PA_DEBUG_MODE = 'Y' THEN
1544: l_stage := 3600;
1545: -- hr_utility.trace(to_char(l_stage));
1546: pa_debug.g_err_stage := l_stage||': BV Number ['||l_bv_version_number ||']';
1547: IF P_PA_DEBUG_MODE = 'Y' THEN
1548: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1549: END IF;
1550: pa_debug.g_err_stage := l_stage||': Current Working Flag ['||l_current_working_flag||']';
1551: IF P_PA_DEBUG_MODE = 'Y' THEN
1552: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1546: pa_debug.g_err_stage := l_stage||': BV Number ['||l_bv_version_number ||']';
1547: IF P_PA_DEBUG_MODE = 'Y' THEN
1548: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1549: END IF;
1550: pa_debug.g_err_stage := l_stage||': Current Working Flag ['||l_current_working_flag||']';
1551: IF P_PA_DEBUG_MODE = 'Y' THEN
1552: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1553: END IF;
1554:
1547: IF P_PA_DEBUG_MODE = 'Y' THEN
1548: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1549: END IF;
1550: pa_debug.g_err_stage := l_stage||': Current Working Flag ['||l_current_working_flag||']';
1551: IF P_PA_DEBUG_MODE = 'Y' THEN
1552: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1553: END IF;
1554:
1555: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Budget Version';
1548: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1549: END IF;
1550: pa_debug.g_err_stage := l_stage||': Current Working Flag ['||l_current_working_flag||']';
1551: IF P_PA_DEBUG_MODE = 'Y' THEN
1552: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1553: END IF;
1554:
1555: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Budget Version';
1556: IF P_PA_DEBUG_MODE = 'Y' THEN
1551: IF P_PA_DEBUG_MODE = 'Y' THEN
1552: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1553: END IF;
1554:
1555: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Budget Version';
1556: IF P_PA_DEBUG_MODE = 'Y' THEN
1557: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1558: END IF;
1559:
1552: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1553: END IF;
1554:
1555: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Budget Version';
1556: IF P_PA_DEBUG_MODE = 'Y' THEN
1557: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1558: END IF;
1559:
1560: -- Create Budget Version
1553: END IF;
1554:
1555: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Budget Version';
1556: IF P_PA_DEBUG_MODE = 'Y' THEN
1557: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1558: END IF;
1559:
1560: -- Create Budget Version
1561: l_budget_version_id := NULL;
1581: ,x_return_status => l_return_status);
1582:
1583: l_stage := 3700;
1584: -- hr_utility.trace(to_char(l_stage));
1585: pa_debug.g_err_stage := l_stage||': Budget Version Id ['||l_budget_version_id ||']';
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1588: END IF;
1589: pa_debug.g_err_stage := l_stage||': Resource List Id ['||l_resource_list_id||']';
1582:
1583: l_stage := 3700;
1584: -- hr_utility.trace(to_char(l_stage));
1585: pa_debug.g_err_stage := l_stage||': Budget Version Id ['||l_budget_version_id ||']';
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1588: END IF;
1589: pa_debug.g_err_stage := l_stage||': Resource List Id ['||l_resource_list_id||']';
1590: IF P_PA_DEBUG_MODE = 'Y' THEN
1583: l_stage := 3700;
1584: -- hr_utility.trace(to_char(l_stage));
1585: pa_debug.g_err_stage := l_stage||': Budget Version Id ['||l_budget_version_id ||']';
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1588: END IF;
1589: pa_debug.g_err_stage := l_stage||': Resource List Id ['||l_resource_list_id||']';
1590: IF P_PA_DEBUG_MODE = 'Y' THEN
1591: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1585: pa_debug.g_err_stage := l_stage||': Budget Version Id ['||l_budget_version_id ||']';
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1588: END IF;
1589: pa_debug.g_err_stage := l_stage||': Resource List Id ['||l_resource_list_id||']';
1590: IF P_PA_DEBUG_MODE = 'Y' THEN
1591: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1592: END IF;
1593:
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1588: END IF;
1589: pa_debug.g_err_stage := l_stage||': Resource List Id ['||l_resource_list_id||']';
1590: IF P_PA_DEBUG_MODE = 'Y' THEN
1591: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1592: END IF;
1593:
1594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1587: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1588: END IF;
1589: pa_debug.g_err_stage := l_stage||': Resource List Id ['||l_resource_list_id||']';
1590: IF P_PA_DEBUG_MODE = 'Y' THEN
1591: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1592: END IF;
1593:
1594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1591: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1592: END IF;
1593:
1594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1596: ': Error creating Budget version';
1597: IF P_PA_DEBUG_MODE = 'Y' THEN
1598: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1599: END IF;
1593:
1594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1596: ': Error creating Budget version';
1597: IF P_PA_DEBUG_MODE = 'Y' THEN
1598: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1599: END IF;
1600: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1601: IF P_PA_DEBUG_MODE = 'Y' THEN
1594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1595: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1596: ': Error creating Budget version';
1597: IF P_PA_DEBUG_MODE = 'Y' THEN
1598: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1599: END IF;
1600: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1601: IF P_PA_DEBUG_MODE = 'Y' THEN
1602: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1596: ': Error creating Budget version';
1597: IF P_PA_DEBUG_MODE = 'Y' THEN
1598: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1599: END IF;
1600: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1601: IF P_PA_DEBUG_MODE = 'Y' THEN
1602: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1603: END IF;
1604: pa_debug.g_err_stage := 'l_bv_version_number ['||l_bv_version_number || ']';
1597: IF P_PA_DEBUG_MODE = 'Y' THEN
1598: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1599: END IF;
1600: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1601: IF P_PA_DEBUG_MODE = 'Y' THEN
1602: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1603: END IF;
1604: pa_debug.g_err_stage := 'l_bv_version_number ['||l_bv_version_number || ']';
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1598: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1599: END IF;
1600: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1601: IF P_PA_DEBUG_MODE = 'Y' THEN
1602: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1603: END IF;
1604: pa_debug.g_err_stage := 'l_bv_version_number ['||l_bv_version_number || ']';
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1600: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1601: IF P_PA_DEBUG_MODE = 'Y' THEN
1602: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1603: END IF;
1604: pa_debug.g_err_stage := 'l_bv_version_number ['||l_bv_version_number || ']';
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1607: END IF;
1608: pa_debug.g_err_stage := 'l_resource_list_id ['||l_resource_list_id || ']';
1601: IF P_PA_DEBUG_MODE = 'Y' THEN
1602: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1603: END IF;
1604: pa_debug.g_err_stage := 'l_bv_version_number ['||l_bv_version_number || ']';
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1607: END IF;
1608: pa_debug.g_err_stage := 'l_resource_list_id ['||l_resource_list_id || ']';
1609: IF P_PA_DEBUG_MODE = 'Y' THEN
1602: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1603: END IF;
1604: pa_debug.g_err_stage := 'l_bv_version_number ['||l_bv_version_number || ']';
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1607: END IF;
1608: pa_debug.g_err_stage := 'l_resource_list_id ['||l_resource_list_id || ']';
1609: IF P_PA_DEBUG_MODE = 'Y' THEN
1610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1604: pa_debug.g_err_stage := 'l_bv_version_number ['||l_bv_version_number || ']';
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1607: END IF;
1608: pa_debug.g_err_stage := 'l_resource_list_id ['||l_resource_list_id || ']';
1609: IF P_PA_DEBUG_MODE = 'Y' THEN
1610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1611: END IF;
1612: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1607: END IF;
1608: pa_debug.g_err_stage := 'l_resource_list_id ['||l_resource_list_id || ']';
1609: IF P_PA_DEBUG_MODE = 'Y' THEN
1610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1611: END IF;
1612: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
1613: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1607: END IF;
1608: pa_debug.g_err_stage := 'l_resource_list_id ['||l_resource_list_id || ']';
1609: IF P_PA_DEBUG_MODE = 'Y' THEN
1610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1611: END IF;
1612: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
1613: IF P_PA_DEBUG_MODE = 'Y' THEN
1614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1608: pa_debug.g_err_stage := 'l_resource_list_id ['||l_resource_list_id || ']';
1609: IF P_PA_DEBUG_MODE = 'Y' THEN
1610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1611: END IF;
1612: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
1613: IF P_PA_DEBUG_MODE = 'Y' THEN
1614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1615: END IF;
1616: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1609: IF P_PA_DEBUG_MODE = 'Y' THEN
1610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1611: END IF;
1612: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
1613: IF P_PA_DEBUG_MODE = 'Y' THEN
1614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1615: END IF;
1616: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1617: IF P_PA_DEBUG_MODE = 'Y' THEN
1610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1611: END IF;
1612: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
1613: IF P_PA_DEBUG_MODE = 'Y' THEN
1614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1615: END IF;
1616: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1617: IF P_PA_DEBUG_MODE = 'Y' THEN
1618: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1612: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
1613: IF P_PA_DEBUG_MODE = 'Y' THEN
1614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1615: END IF;
1616: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1617: IF P_PA_DEBUG_MODE = 'Y' THEN
1618: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1619: END IF;
1620: pa_debug.g_err_stage := 'l_current_working_flag ['||l_current_working_flag || ']';
1613: IF P_PA_DEBUG_MODE = 'Y' THEN
1614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1615: END IF;
1616: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1617: IF P_PA_DEBUG_MODE = 'Y' THEN
1618: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1619: END IF;
1620: pa_debug.g_err_stage := 'l_current_working_flag ['||l_current_working_flag || ']';
1621: IF P_PA_DEBUG_MODE = 'Y' THEN
1614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1615: END IF;
1616: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1617: IF P_PA_DEBUG_MODE = 'Y' THEN
1618: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1619: END IF;
1620: pa_debug.g_err_stage := 'l_current_working_flag ['||l_current_working_flag || ']';
1621: IF P_PA_DEBUG_MODE = 'Y' THEN
1622: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1616: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1617: IF P_PA_DEBUG_MODE = 'Y' THEN
1618: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1619: END IF;
1620: pa_debug.g_err_stage := 'l_current_working_flag ['||l_current_working_flag || ']';
1621: IF P_PA_DEBUG_MODE = 'Y' THEN
1622: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1623: END IF;
1624: pa_debug.g_err_stage := 'version_type ['||'ORG_FORECAST' || ']';
1617: IF P_PA_DEBUG_MODE = 'Y' THEN
1618: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1619: END IF;
1620: pa_debug.g_err_stage := 'l_current_working_flag ['||l_current_working_flag || ']';
1621: IF P_PA_DEBUG_MODE = 'Y' THEN
1622: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1623: END IF;
1624: pa_debug.g_err_stage := 'version_type ['||'ORG_FORECAST' || ']';
1625: IF P_PA_DEBUG_MODE = 'Y' THEN
1618: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1619: END IF;
1620: pa_debug.g_err_stage := 'l_current_working_flag ['||l_current_working_flag || ']';
1621: IF P_PA_DEBUG_MODE = 'Y' THEN
1622: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1623: END IF;
1624: pa_debug.g_err_stage := 'version_type ['||'ORG_FORECAST' || ']';
1625: IF P_PA_DEBUG_MODE = 'Y' THEN
1626: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1620: pa_debug.g_err_stage := 'l_current_working_flag ['||l_current_working_flag || ']';
1621: IF P_PA_DEBUG_MODE = 'Y' THEN
1622: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1623: END IF;
1624: pa_debug.g_err_stage := 'version_type ['||'ORG_FORECAST' || ']';
1625: IF P_PA_DEBUG_MODE = 'Y' THEN
1626: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1627: END IF;
1628: rollback to org_project;
1621: IF P_PA_DEBUG_MODE = 'Y' THEN
1622: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1623: END IF;
1624: pa_debug.g_err_stage := 'version_type ['||'ORG_FORECAST' || ']';
1625: IF P_PA_DEBUG_MODE = 'Y' THEN
1626: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1627: END IF;
1628: rollback to org_project;
1629: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1622: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1623: END IF;
1624: pa_debug.g_err_stage := 'version_type ['||'ORG_FORECAST' || ']';
1625: IF P_PA_DEBUG_MODE = 'Y' THEN
1626: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1627: END IF;
1628: rollback to org_project;
1629: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1630: END IF;
1630: END IF;
1631:
1632: l_stage := 3750;
1633: -- hr_utility.trace(to_char(l_stage));
1634: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj Fin Plan Options at Plan Version Level';
1635: IF P_PA_DEBUG_MODE = 'Y' THEN
1636: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1637: END IF;
1638:
1631:
1632: l_stage := 3750;
1633: -- hr_utility.trace(to_char(l_stage));
1634: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj Fin Plan Options at Plan Version Level';
1635: IF P_PA_DEBUG_MODE = 'Y' THEN
1636: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1637: END IF;
1638:
1639: -- Create Proj Fin Plan Options at Plan Version Level
1632: l_stage := 3750;
1633: -- hr_utility.trace(to_char(l_stage));
1634: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Create Proj Fin Plan Options at Plan Version Level';
1635: IF P_PA_DEBUG_MODE = 'Y' THEN
1636: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1637: END IF;
1638:
1639: -- Create Proj Fin Plan Options at Plan Version Level
1640: l_proj_fp_options_id := NULL;
1663: ,x_row_id => l_row_id
1664: ,x_return_status => l_return_status);
1665:
1666: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1667: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1668: ': Error creating Budget Version FP Options';
1669: IF P_PA_DEBUG_MODE = 'Y' THEN
1670: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1671: END IF;
1665:
1666: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1667: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1668: ': Error creating Budget Version FP Options';
1669: IF P_PA_DEBUG_MODE = 'Y' THEN
1670: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1671: END IF;
1672: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1666: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1667: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1668: ': Error creating Budget Version FP Options';
1669: IF P_PA_DEBUG_MODE = 'Y' THEN
1670: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1671: END IF;
1672: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1668: ': Error creating Budget Version FP Options';
1669: IF P_PA_DEBUG_MODE = 'Y' THEN
1670: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1671: END IF;
1672: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1675: END IF;
1676: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1669: IF P_PA_DEBUG_MODE = 'Y' THEN
1670: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1671: END IF;
1672: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1675: END IF;
1676: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1677: IF P_PA_DEBUG_MODE = 'Y' THEN
1670: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1671: END IF;
1672: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1675: END IF;
1676: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1677: IF P_PA_DEBUG_MODE = 'Y' THEN
1678: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1672: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1675: END IF;
1676: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1677: IF P_PA_DEBUG_MODE = 'Y' THEN
1678: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1679: END IF;
1680: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1675: END IF;
1676: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1677: IF P_PA_DEBUG_MODE = 'Y' THEN
1678: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1679: END IF;
1680: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1681: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1675: END IF;
1676: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1677: IF P_PA_DEBUG_MODE = 'Y' THEN
1678: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1679: END IF;
1680: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1681: IF P_PA_DEBUG_MODE = 'Y' THEN
1682: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1676: pa_debug.g_err_stage := 'l_fin_plan_type_id ['||l_fin_plan_type_id || ']';
1677: IF P_PA_DEBUG_MODE = 'Y' THEN
1678: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1679: END IF;
1680: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1681: IF P_PA_DEBUG_MODE = 'Y' THEN
1682: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1683: END IF;
1684: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1677: IF P_PA_DEBUG_MODE = 'Y' THEN
1678: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1679: END IF;
1680: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1681: IF P_PA_DEBUG_MODE = 'Y' THEN
1682: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1683: END IF;
1684: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1685: IF P_PA_DEBUG_MODE = 'Y' THEN
1678: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1679: END IF;
1680: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1681: IF P_PA_DEBUG_MODE = 'Y' THEN
1682: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1683: END IF;
1684: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1685: IF P_PA_DEBUG_MODE = 'Y' THEN
1686: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1680: pa_debug.g_err_stage := 'option_level_code ['||'PROJECT' || ']';
1681: IF P_PA_DEBUG_MODE = 'Y' THEN
1682: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1683: END IF;
1684: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1685: IF P_PA_DEBUG_MODE = 'Y' THEN
1686: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1687: END IF;
1688: rollback to org_project;
1681: IF P_PA_DEBUG_MODE = 'Y' THEN
1682: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1683: END IF;
1684: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1685: IF P_PA_DEBUG_MODE = 'Y' THEN
1686: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1687: END IF;
1688: rollback to org_project;
1689: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1682: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1683: END IF;
1684: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1685: IF P_PA_DEBUG_MODE = 'Y' THEN
1686: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1687: END IF;
1688: rollback to org_project;
1689: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1690: END IF;
1691: ELSE /* Budget version passed */
1692: l_budget_ctr := 1;
1693: l_stage := 3800;
1694: -- hr_utility.trace(to_char(l_stage));
1695: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Get BudgetVersion Details';
1696: IF P_PA_DEBUG_MODE = 'Y' THEN
1697: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1698: END IF;
1699:
1692: l_budget_ctr := 1;
1693: l_stage := 3800;
1694: -- hr_utility.trace(to_char(l_stage));
1695: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Get BudgetVersion Details';
1696: IF P_PA_DEBUG_MODE = 'Y' THEN
1697: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1698: END IF;
1699:
1700: SELECT bv.budget_version_id,
1693: l_stage := 3800;
1694: -- hr_utility.trace(to_char(l_stage));
1695: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Get BudgetVersion Details';
1696: IF P_PA_DEBUG_MODE = 'Y' THEN
1697: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1698: END IF;
1699:
1700: SELECT bv.budget_version_id,
1701: bv.project_id,
1718: -- hr_utility.trace(to_char(l_stage));
1719:
1720: IF l_project_id > 0 THEN
1721:
1722: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Get Org Task Info';
1723: IF P_PA_DEBUG_MODE = 'Y' THEN
1724: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1725: END IF;
1726:
1719:
1720: IF l_project_id > 0 THEN
1721:
1722: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Get Org Task Info';
1723: IF P_PA_DEBUG_MODE = 'Y' THEN
1724: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1725: END IF;
1726:
1727: pa_fp_org_fcst_utils.get_org_task_info
1720: IF l_project_id > 0 THEN
1721:
1722: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Get Org Task Info';
1723: IF P_PA_DEBUG_MODE = 'Y' THEN
1724: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1725: END IF;
1726:
1727: pa_fp_org_fcst_utils.get_org_task_info
1728: ( p_project_id => l_project_id
1733:
1734: -- hr_utility.trace('Own Task Id = '||to_char(l_own_task_id));
1735:
1736: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1737: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1738: ': Error getting Own Task';
1739: IF P_PA_DEBUG_MODE = 'Y' THEN
1740: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1741: END IF;
1735:
1736: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1737: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1738: ': Error getting Own Task';
1739: IF P_PA_DEBUG_MODE = 'Y' THEN
1740: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1741: END IF;
1742: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1736: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1737: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1738: ': Error getting Own Task';
1739: IF P_PA_DEBUG_MODE = 'Y' THEN
1740: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1741: END IF;
1742: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1738: ': Error getting Own Task';
1739: IF P_PA_DEBUG_MODE = 'Y' THEN
1740: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1741: END IF;
1742: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1745: END IF;
1746: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1739: IF P_PA_DEBUG_MODE = 'Y' THEN
1740: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1741: END IF;
1742: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1745: END IF;
1746: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1740: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1741: END IF;
1742: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1745: END IF;
1746: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1742: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1745: END IF;
1746: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1749: END IF;
1750: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1745: END IF;
1746: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1749: END IF;
1750: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1751: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1745: END IF;
1746: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1749: END IF;
1750: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1751: IF P_PA_DEBUG_MODE = 'Y' THEN
1752: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1746: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1749: END IF;
1750: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1751: IF P_PA_DEBUG_MODE = 'Y' THEN
1752: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1753: END IF;
1754: rollback to org_project;
1747: IF P_PA_DEBUG_MODE = 'Y' THEN
1748: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1749: END IF;
1750: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1751: IF P_PA_DEBUG_MODE = 'Y' THEN
1752: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1753: END IF;
1754: rollback to org_project;
1755: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1748: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1749: END IF;
1750: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1751: IF P_PA_DEBUG_MODE = 'Y' THEN
1752: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1753: END IF;
1754: rollback to org_project;
1755: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1756: END IF;
1757:
1758: IF l_own_task_id < 0 THEN
1759: l_stage := 4000;
1760: -- hr_utility.trace(to_char(l_stage));
1761: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1762: ': Own Task Not Found';
1763: IF P_PA_DEBUG_MODE = 'Y' THEN
1764: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1765: END IF;
1759: l_stage := 4000;
1760: -- hr_utility.trace(to_char(l_stage));
1761: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1762: ': Own Task Not Found';
1763: IF P_PA_DEBUG_MODE = 'Y' THEN
1764: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1765: END IF;
1766: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1767: IF P_PA_DEBUG_MODE = 'Y' THEN
1760: -- hr_utility.trace(to_char(l_stage));
1761: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1762: ': Own Task Not Found';
1763: IF P_PA_DEBUG_MODE = 'Y' THEN
1764: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1765: END IF;
1766: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1767: IF P_PA_DEBUG_MODE = 'Y' THEN
1768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1762: ': Own Task Not Found';
1763: IF P_PA_DEBUG_MODE = 'Y' THEN
1764: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1765: END IF;
1766: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1767: IF P_PA_DEBUG_MODE = 'Y' THEN
1768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1769: END IF;
1770: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1763: IF P_PA_DEBUG_MODE = 'Y' THEN
1764: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1765: END IF;
1766: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1767: IF P_PA_DEBUG_MODE = 'Y' THEN
1768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1769: END IF;
1770: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1771: IF P_PA_DEBUG_MODE = 'Y' THEN
1764: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1765: END IF;
1766: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1767: IF P_PA_DEBUG_MODE = 'Y' THEN
1768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1769: END IF;
1770: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1771: IF P_PA_DEBUG_MODE = 'Y' THEN
1772: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1766: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
1767: IF P_PA_DEBUG_MODE = 'Y' THEN
1768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1769: END IF;
1770: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1771: IF P_PA_DEBUG_MODE = 'Y' THEN
1772: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1773: END IF;
1774: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1767: IF P_PA_DEBUG_MODE = 'Y' THEN
1768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1769: END IF;
1770: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1771: IF P_PA_DEBUG_MODE = 'Y' THEN
1772: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1773: END IF;
1774: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1775: IF P_PA_DEBUG_MODE = 'Y' THEN
1768: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1769: END IF;
1770: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1771: IF P_PA_DEBUG_MODE = 'Y' THEN
1772: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1773: END IF;
1774: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1775: IF P_PA_DEBUG_MODE = 'Y' THEN
1776: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1770: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
1771: IF P_PA_DEBUG_MODE = 'Y' THEN
1772: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1773: END IF;
1774: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1775: IF P_PA_DEBUG_MODE = 'Y' THEN
1776: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1777: END IF;
1778: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1771: IF P_PA_DEBUG_MODE = 'Y' THEN
1772: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1773: END IF;
1774: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1775: IF P_PA_DEBUG_MODE = 'Y' THEN
1776: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1777: END IF;
1778: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1779: ,p_msg_name => 'PA_FP_OWN_TASK_NOT_FOUND');
1772: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1773: END IF;
1774: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
1775: IF P_PA_DEBUG_MODE = 'Y' THEN
1776: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1777: END IF;
1778: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1779: ,p_msg_name => 'PA_FP_OWN_TASK_NOT_FOUND');
1780: rollback to org_project;
1792: END IF;
1793:
1794: l_stage := 4200;
1795: -- hr_utility.trace(to_char(l_stage));
1796: pa_debug.g_err_stage := l_stage||': Org Projfunc Currency Code ['||l_org_projfunc_currency_code||']';
1797: IF P_PA_DEBUG_MODE = 'Y' THEN
1798: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1799: END IF;
1800:
1793:
1794: l_stage := 4200;
1795: -- hr_utility.trace(to_char(l_stage));
1796: pa_debug.g_err_stage := l_stage||': Org Projfunc Currency Code ['||l_org_projfunc_currency_code||']';
1797: IF P_PA_DEBUG_MODE = 'Y' THEN
1798: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1799: END IF;
1800:
1801: pa_prj_period_profile_utils.get_prj_period_profile_dtls
1794: l_stage := 4200;
1795: -- hr_utility.trace(to_char(l_stage));
1796: pa_debug.g_err_stage := l_stage||': Org Projfunc Currency Code ['||l_org_projfunc_currency_code||']';
1797: IF P_PA_DEBUG_MODE = 'Y' THEN
1798: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1799: END IF;
1800:
1801: pa_prj_period_profile_utils.get_prj_period_profile_dtls
1802: ( p_period_profile_id => l_period_profile_id
1811: --,x_msg_count => x_msg_count
1812: ,x_msg_data => errbuff );
1813:
1814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1815: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1816: ': Error getting period profile info';
1817: IF P_PA_DEBUG_MODE = 'Y' THEN
1818: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1819: END IF;
1813:
1814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1815: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1816: ': Error getting period profile info';
1817: IF P_PA_DEBUG_MODE = 'Y' THEN
1818: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1819: END IF;
1820: pa_debug.g_err_stage :=
1821: 'l_period_profile_id ['||l_period_profile_id || ']';
1814: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1815: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
1816: ': Error getting period profile info';
1817: IF P_PA_DEBUG_MODE = 'Y' THEN
1818: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1819: END IF;
1820: pa_debug.g_err_stage :=
1821: 'l_period_profile_id ['||l_period_profile_id || ']';
1822: IF P_PA_DEBUG_MODE = 'Y' THEN
1816: ': Error getting period profile info';
1817: IF P_PA_DEBUG_MODE = 'Y' THEN
1818: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1819: END IF;
1820: pa_debug.g_err_stage :=
1821: 'l_period_profile_id ['||l_period_profile_id || ']';
1822: IF P_PA_DEBUG_MODE = 'Y' THEN
1823: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1824: END IF;
1818: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1819: END IF;
1820: pa_debug.g_err_stage :=
1821: 'l_period_profile_id ['||l_period_profile_id || ']';
1822: IF P_PA_DEBUG_MODE = 'Y' THEN
1823: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1824: END IF;
1825: rollback to org_project;
1826: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1819: END IF;
1820: pa_debug.g_err_stage :=
1821: 'l_period_profile_id ['||l_period_profile_id || ']';
1822: IF P_PA_DEBUG_MODE = 'Y' THEN
1823: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1824: END IF;
1825: rollback to org_project;
1826: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
1827: END IF;
1829: /* DELETE existing data for budget version */
1830:
1831: l_stage := 4300;
1832: -- hr_utility.trace(to_char(l_stage));
1833: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Deleting Existing Data';
1834: IF P_PA_DEBUG_MODE = 'Y' THEN
1835: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1836: END IF;
1837:
1830:
1831: l_stage := 4300;
1832: -- hr_utility.trace(to_char(l_stage));
1833: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Deleting Existing Data';
1834: IF P_PA_DEBUG_MODE = 'Y' THEN
1835: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1836: END IF;
1837:
1838: pa_fin_plan_pub.Delete_Version_Helper
1831: l_stage := 4300;
1832: -- hr_utility.trace(to_char(l_stage));
1833: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Deleting Existing Data';
1834: IF P_PA_DEBUG_MODE = 'Y' THEN
1835: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1836: END IF;
1837:
1838: pa_fin_plan_pub.Delete_Version_Helper
1839: (p_budget_version_id => p_budget_version_id,
1903: - Create Proj Denorm for budget lines
1904: */
1905: l_stage := 5300;
1906: -- hr_utility.trace(to_char(l_stage));
1907: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Populate amt_rec for Forecast Lines Denorm';
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1910: END IF;
1911: /* Populate amt_rec for Forecast Lines Denorm */
1904: */
1905: l_stage := 5300;
1906: -- hr_utility.trace(to_char(l_stage));
1907: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Populate amt_rec for Forecast Lines Denorm';
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1910: END IF;
1911: /* Populate amt_rec for Forecast Lines Denorm */
1912: amt_rec.delete;
1905: l_stage := 5300;
1906: -- hr_utility.trace(to_char(l_stage));
1907: pa_debug.g_err_stage := TO_CHAR(l_stage) ||': Populate amt_rec for Forecast Lines Denorm';
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
1910: END IF;
1911: /* Populate amt_rec for Forecast Lines Denorm */
1912: amt_rec.delete;
1913:
2113:
2114: IF NVL(l_fi_organization_id_tab.count,0) =0 THEN
2115: l_stage := 4200;
2116: -- hr_utility.trace(to_char(l_stage));
2117: pa_debug.g_err_stage := l_stage||': Exiting fi loop no rows to process';
2118: IF P_PA_DEBUG_MODE = 'Y' THEN
2119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2120: END IF;
2121: EXIT WHEN NVL(l_fi_organization_id_tab.count,0) =0;
2114: IF NVL(l_fi_organization_id_tab.count,0) =0 THEN
2115: l_stage := 4200;
2116: -- hr_utility.trace(to_char(l_stage));
2117: pa_debug.g_err_stage := l_stage||': Exiting fi loop no rows to process';
2118: IF P_PA_DEBUG_MODE = 'Y' THEN
2119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2120: END IF;
2121: EXIT WHEN NVL(l_fi_organization_id_tab.count,0) =0;
2122: END IF;
2115: l_stage := 4200;
2116: -- hr_utility.trace(to_char(l_stage));
2117: pa_debug.g_err_stage := l_stage||': Exiting fi loop no rows to process';
2118: IF P_PA_DEBUG_MODE = 'Y' THEN
2119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2120: END IF;
2121: EXIT WHEN NVL(l_fi_organization_id_tab.count,0) =0;
2122: END IF;
2123:
2156: IF (l_pfi_txn_project_id IS NULL OR
2157: l_pfi_txn_project_id <> l_fi_txn_project_id_tab(i)) THEN
2158: l_stage := 5510;
2159: -- hr_utility.trace(to_char(l_stage));
2160: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2161: ': Getting Project Action Allowed';
2162: IF P_PA_DEBUG_MODE = 'Y' THEN
2163: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2164: END IF;
2158: l_stage := 5510;
2159: -- hr_utility.trace(to_char(l_stage));
2160: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2161: ': Getting Project Action Allowed';
2162: IF P_PA_DEBUG_MODE = 'Y' THEN
2163: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2164: END IF;
2165: pa_debug.g_err_stage := 'l_project_id ['||l_fi_txn_project_id_tab(i)|| ']';
2166: IF P_PA_DEBUG_MODE = 'Y' THEN
2159: -- hr_utility.trace(to_char(l_stage));
2160: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2161: ': Getting Project Action Allowed';
2162: IF P_PA_DEBUG_MODE = 'Y' THEN
2163: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2164: END IF;
2165: pa_debug.g_err_stage := 'l_project_id ['||l_fi_txn_project_id_tab(i)|| ']';
2166: IF P_PA_DEBUG_MODE = 'Y' THEN
2167: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2161: ': Getting Project Action Allowed';
2162: IF P_PA_DEBUG_MODE = 'Y' THEN
2163: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2164: END IF;
2165: pa_debug.g_err_stage := 'l_project_id ['||l_fi_txn_project_id_tab(i)|| ']';
2166: IF P_PA_DEBUG_MODE = 'Y' THEN
2167: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2168: END IF;
2169:
2162: IF P_PA_DEBUG_MODE = 'Y' THEN
2163: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2164: END IF;
2165: pa_debug.g_err_stage := 'l_project_id ['||l_fi_txn_project_id_tab(i)|| ']';
2166: IF P_PA_DEBUG_MODE = 'Y' THEN
2167: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2168: END IF;
2169:
2170: l_project_action_allowed := pa_project_utils.check_project_action_allowed
2163: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2164: END IF;
2165: pa_debug.g_err_stage := 'l_project_id ['||l_fi_txn_project_id_tab(i)|| ']';
2166: IF P_PA_DEBUG_MODE = 'Y' THEN
2167: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2168: END IF;
2169:
2170: l_project_action_allowed := pa_project_utils.check_project_action_allowed
2171: ( x_project_id => l_fi_txn_project_id_tab(i)
2174:
2175: IF l_project_action_allowed = 'N' THEN
2176: l_stage := 5520;
2177: -- hr_utility.trace(to_char(l_stage));
2178: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2179: ': Project Action Not Allowed -- Skipping : '
2180: ||l_fi_txn_project_id_tab(i);
2181:
2182: IF P_PA_DEBUG_MODE = 'Y' THEN
2178: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2179: ': Project Action Not Allowed -- Skipping : '
2180: ||l_fi_txn_project_id_tab(i);
2181:
2182: IF P_PA_DEBUG_MODE = 'Y' THEN
2183: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2184: END IF;
2185: l_pfi_txn_project_id := l_fi_txn_project_id_tab(i);
2186:
2179: ': Project Action Not Allowed -- Skipping : '
2180: ||l_fi_txn_project_id_tab(i);
2181:
2182: IF P_PA_DEBUG_MODE = 'Y' THEN
2183: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2184: END IF;
2185: l_pfi_txn_project_id := l_fi_txn_project_id_tab(i);
2186:
2187: RAISE pa_fp_org_fcst_gen_pub.proj_action_reloop;
2200: -- hr_utility.trace(to_char(l_stage));
2201: -- hr_utility.trace('Probability => '||to_char(l_prob_percent));
2202:
2203: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2204: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2205: ': Error getting probability percent';
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2208: END IF;
2202:
2203: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2204: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2205: ': Error getting probability percent';
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2208: END IF;
2209: pa_debug.g_err_stage := 'l_project_id ['||l_project_id|| ']';
2210: IF P_PA_DEBUG_MODE = 'Y' THEN
2203: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2204: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2205: ': Error getting probability percent';
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2208: END IF;
2209: pa_debug.g_err_stage := 'l_project_id ['||l_project_id|| ']';
2210: IF P_PA_DEBUG_MODE = 'Y' THEN
2211: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2205: ': Error getting probability percent';
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2208: END IF;
2209: pa_debug.g_err_stage := 'l_project_id ['||l_project_id|| ']';
2210: IF P_PA_DEBUG_MODE = 'Y' THEN
2211: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2212: END IF;
2213: rollback to org_project;
2206: IF P_PA_DEBUG_MODE = 'Y' THEN
2207: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2208: END IF;
2209: pa_debug.g_err_stage := 'l_project_id ['||l_project_id|| ']';
2210: IF P_PA_DEBUG_MODE = 'Y' THEN
2211: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2212: END IF;
2213: rollback to org_project;
2214: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
2207: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2208: END IF;
2209: pa_debug.g_err_stage := 'l_project_id ['||l_project_id|| ']';
2210: IF P_PA_DEBUG_MODE = 'Y' THEN
2211: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2212: END IF;
2213: rollback to org_project;
2214: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
2215: END IF;
2447:
2448: EXCEPTION
2449: WHEN pa_fp_org_fcst_gen_pub.proj_action_reloop THEN
2450: -- hr_utility.trace('UserDefined Txn Project Skipping - '||to_char(l_stage)||'-'||SQLERRM);
2451: pa_debug.g_err_stage := l_stage||': UserDefined Txn Project Skipping - '||'['||SQLERRM||']';
2452: IF P_PA_DEBUG_MODE = 'Y' THEN
2453: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2454: END IF;
2455: NULL;
2448: EXCEPTION
2449: WHEN pa_fp_org_fcst_gen_pub.proj_action_reloop THEN
2450: -- hr_utility.trace('UserDefined Txn Project Skipping - '||to_char(l_stage)||'-'||SQLERRM);
2451: pa_debug.g_err_stage := l_stage||': UserDefined Txn Project Skipping - '||'['||SQLERRM||']';
2452: IF P_PA_DEBUG_MODE = 'Y' THEN
2453: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2454: END IF;
2455: NULL;
2456: END;
2449: WHEN pa_fp_org_fcst_gen_pub.proj_action_reloop THEN
2450: -- hr_utility.trace('UserDefined Txn Project Skipping - '||to_char(l_stage)||'-'||SQLERRM);
2451: pa_debug.g_err_stage := l_stage||': UserDefined Txn Project Skipping - '||'['||SQLERRM||']';
2452: IF P_PA_DEBUG_MODE = 'Y' THEN
2453: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2454: END IF;
2455: NULL;
2456: END;
2457: END LOOP; -- l_fi_organization_id_tab
2460: l_stage := 7100;
2461: -- hr_utility.trace(to_char(l_stage));
2462:
2463: /* Bulk Insert into Forecast Elements */
2464: pa_debug.g_err_stage := l_stage||': fe_count = ['||l_fe_forecast_element_id_tab.count||']';
2465: IF P_PA_DEBUG_MODE = 'Y' THEN
2466: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2467: END IF;
2468:
2461: -- hr_utility.trace(to_char(l_stage));
2462:
2463: /* Bulk Insert into Forecast Elements */
2464: pa_debug.g_err_stage := l_stage||': fe_count = ['||l_fe_forecast_element_id_tab.count||']';
2465: IF P_PA_DEBUG_MODE = 'Y' THEN
2466: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2467: END IF;
2468:
2469: IF l_fe_forecast_element_id_tab.count > 0 THEN
2462:
2463: /* Bulk Insert into Forecast Elements */
2464: pa_debug.g_err_stage := l_stage||': fe_count = ['||l_fe_forecast_element_id_tab.count||']';
2465: IF P_PA_DEBUG_MODE = 'Y' THEN
2466: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2467: END IF;
2468:
2469: IF l_fe_forecast_element_id_tab.count > 0 THEN
2470: l_stage := 7200;
2512: ,sysdate);
2513:
2514: l_records_affected := SQL%ROWCOUNT;
2515:
2516: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2517: ': After Inserting Forecast Elements' ;
2518: IF P_PA_DEBUG_MODE = 'Y' THEN
2519: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2520: END IF;
2514: l_records_affected := SQL%ROWCOUNT;
2515:
2516: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2517: ': After Inserting Forecast Elements' ;
2518: IF P_PA_DEBUG_MODE = 'Y' THEN
2519: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2520: END IF;
2521:
2522: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2515:
2516: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2517: ': After Inserting Forecast Elements' ;
2518: IF P_PA_DEBUG_MODE = 'Y' THEN
2519: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2520: END IF;
2521:
2522: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2523: ': Inserted [' || TO_CHAR(l_records_affected) ||
2518: IF P_PA_DEBUG_MODE = 'Y' THEN
2519: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2520: END IF;
2521:
2522: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2523: ': Inserted [' || TO_CHAR(l_records_affected) ||
2524: '] Forecast Elements.';
2525: IF P_PA_DEBUG_MODE = 'Y' THEN
2526: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2521:
2522: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2523: ': Inserted [' || TO_CHAR(l_records_affected) ||
2524: '] Forecast Elements.';
2525: IF P_PA_DEBUG_MODE = 'Y' THEN
2526: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2527: END IF;
2528: l_stage := 7300;
2529: -- hr_utility.trace(to_char(l_stage));
2522: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2523: ': Inserted [' || TO_CHAR(l_records_affected) ||
2524: '] Forecast Elements.';
2525: IF P_PA_DEBUG_MODE = 'Y' THEN
2526: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2527: END IF;
2528: l_stage := 7300;
2529: -- hr_utility.trace(to_char(l_stage));
2530: END IF;
2532: /* Bulk Insert into Forecast Lines */
2533: l_stage := 7400;
2534: -- hr_utility.trace(to_char(l_stage));
2535:
2536: pa_debug.g_err_stage := l_stage||': fl_count = ['||l_fl_forecast_line_id_tab.count||']';
2537: IF P_PA_DEBUG_MODE = 'Y' THEN
2538: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2539: END IF;
2540:
2533: l_stage := 7400;
2534: -- hr_utility.trace(to_char(l_stage));
2535:
2536: pa_debug.g_err_stage := l_stage||': fl_count = ['||l_fl_forecast_line_id_tab.count||']';
2537: IF P_PA_DEBUG_MODE = 'Y' THEN
2538: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2539: END IF;
2540:
2541: IF l_fl_forecast_line_id_tab.count > 0 THEN
2534: -- hr_utility.trace(to_char(l_stage));
2535:
2536: pa_debug.g_err_stage := l_stage||': fl_count = ['||l_fl_forecast_line_id_tab.count||']';
2537: IF P_PA_DEBUG_MODE = 'Y' THEN
2538: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2539: END IF;
2540:
2541: IF l_fl_forecast_line_id_tab.count > 0 THEN
2542: FORALL j in l_fl_forecast_line_id_tab.first..l_fl_forecast_line_id_tab.last
2596: l_records_affected := SQL%ROWCOUNT;
2597:
2598: l_stage := 7500;
2599: -- hr_utility.trace(to_char(l_stage));
2600: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2601: ': After Inserting Forecast Lines' ;
2602: IF P_PA_DEBUG_MODE = 'Y' THEN
2603: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2604: END IF;
2598: l_stage := 7500;
2599: -- hr_utility.trace(to_char(l_stage));
2600: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2601: ': After Inserting Forecast Lines' ;
2602: IF P_PA_DEBUG_MODE = 'Y' THEN
2603: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2604: END IF;
2605:
2606: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2599: -- hr_utility.trace(to_char(l_stage));
2600: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2601: ': After Inserting Forecast Lines' ;
2602: IF P_PA_DEBUG_MODE = 'Y' THEN
2603: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2604: END IF;
2605:
2606: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2607: ': Inserted [' || TO_CHAR(l_records_affected) ||
2602: IF P_PA_DEBUG_MODE = 'Y' THEN
2603: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2604: END IF;
2605:
2606: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2607: ': Inserted [' || TO_CHAR(l_records_affected) ||
2608: '] Forecast Lines.';
2609: IF P_PA_DEBUG_MODE = 'Y' THEN
2610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2605:
2606: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2607: ': Inserted [' || TO_CHAR(l_records_affected) ||
2608: '] Forecast Lines.';
2609: IF P_PA_DEBUG_MODE = 'Y' THEN
2610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2611: END IF;
2612:
2613: END IF;
2606: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2607: ': Inserted [' || TO_CHAR(l_records_affected) ||
2608: '] Forecast Lines.';
2609: IF P_PA_DEBUG_MODE = 'Y' THEN
2610: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2611: END IF;
2612:
2613: END IF;
2614:
2619:
2620: l_stage := 7700;
2621: -- hr_utility.trace(to_char(l_stage));
2622:
2623: pa_debug.g_err_stage := l_stage||': fl_count = ['
2624: ||l_fl_forecast_line_id_tab.count||']';
2625: IF P_PA_DEBUG_MODE = 'Y' THEN
2626: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2627: END IF;
2621: -- hr_utility.trace(to_char(l_stage));
2622:
2623: pa_debug.g_err_stage := l_stage||': fl_count = ['
2624: ||l_fl_forecast_line_id_tab.count||']';
2625: IF P_PA_DEBUG_MODE = 'Y' THEN
2626: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2627: END IF;
2628:
2629: IF l_fl_forecast_line_id_tab.count > 0 THEN
2622:
2623: pa_debug.g_err_stage := l_stage||': fl_count = ['
2624: ||l_fl_forecast_line_id_tab.count||']';
2625: IF P_PA_DEBUG_MODE = 'Y' THEN
2626: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2627: END IF;
2628:
2629: IF l_fl_forecast_line_id_tab.count > 0 THEN
2630: FORALL j in l_fl_forecast_line_id_tab.first..l_fl_forecast_line_id_tab.last
2725: l_stage := 7800;
2726: -- hr_utility.trace(to_char(l_stage));
2727: l_records_affected := SQL%ROWCOUNT;
2728:
2729: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2730: ': After Inserting Fin Plan Lines Tmp' ;
2731: IF P_PA_DEBUG_MODE = 'Y' THEN
2732: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2733: END IF;
2727: l_records_affected := SQL%ROWCOUNT;
2728:
2729: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2730: ': After Inserting Fin Plan Lines Tmp' ;
2731: IF P_PA_DEBUG_MODE = 'Y' THEN
2732: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2733: END IF;
2734:
2735: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2728:
2729: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2730: ': After Inserting Fin Plan Lines Tmp' ;
2731: IF P_PA_DEBUG_MODE = 'Y' THEN
2732: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2733: END IF;
2734:
2735: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2736: ': Inserted [' || TO_CHAR(l_records_affected) ||
2731: IF P_PA_DEBUG_MODE = 'Y' THEN
2732: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2733: END IF;
2734:
2735: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2736: ': Inserted [' || TO_CHAR(l_records_affected) ||
2737: '] Fin Plan Lines Tmp.';
2738: IF P_PA_DEBUG_MODE = 'Y' THEN
2739: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2734:
2735: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2736: ': Inserted [' || TO_CHAR(l_records_affected) ||
2737: '] Fin Plan Lines Tmp.';
2738: IF P_PA_DEBUG_MODE = 'Y' THEN
2739: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2740: END IF;
2741:
2742: /* Populate Project Periods Denorm for Forecast Lines */
2735: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2736: ': Inserted [' || TO_CHAR(l_records_affected) ||
2737: '] Fin Plan Lines Tmp.';
2738: IF P_PA_DEBUG_MODE = 'Y' THEN
2739: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2740: END IF;
2741:
2742: /* Populate Project Periods Denorm for Forecast Lines */
2743:
2756: ,x_msg_count => l_msg_count
2757: ,x_msg_data => errbuff );
2758:
2759: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2760: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2761: ': Error creating Period Denorm';
2762: IF P_PA_DEBUG_MODE = 'Y' THEN
2763: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2764: END IF;
2758:
2759: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2760: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2761: ': Error creating Period Denorm';
2762: IF P_PA_DEBUG_MODE = 'Y' THEN
2763: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2764: END IF;
2765: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
2766: IF P_PA_DEBUG_MODE = 'Y' THEN
2759: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2760: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2761: ': Error creating Period Denorm';
2762: IF P_PA_DEBUG_MODE = 'Y' THEN
2763: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2764: END IF;
2765: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
2766: IF P_PA_DEBUG_MODE = 'Y' THEN
2767: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2761: ': Error creating Period Denorm';
2762: IF P_PA_DEBUG_MODE = 'Y' THEN
2763: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2764: END IF;
2765: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
2766: IF P_PA_DEBUG_MODE = 'Y' THEN
2767: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2768: END IF;
2769: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2762: IF P_PA_DEBUG_MODE = 'Y' THEN
2763: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2764: END IF;
2765: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
2766: IF P_PA_DEBUG_MODE = 'Y' THEN
2767: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2768: END IF;
2769: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2770: IF P_PA_DEBUG_MODE = 'Y' THEN
2763: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2764: END IF;
2765: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
2766: IF P_PA_DEBUG_MODE = 'Y' THEN
2767: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2768: END IF;
2769: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2770: IF P_PA_DEBUG_MODE = 'Y' THEN
2771: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2765: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
2766: IF P_PA_DEBUG_MODE = 'Y' THEN
2767: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2768: END IF;
2769: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2770: IF P_PA_DEBUG_MODE = 'Y' THEN
2771: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2772: END IF;
2773: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2766: IF P_PA_DEBUG_MODE = 'Y' THEN
2767: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2768: END IF;
2769: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2770: IF P_PA_DEBUG_MODE = 'Y' THEN
2771: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2772: END IF;
2773: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2774: IF P_PA_DEBUG_MODE = 'Y' THEN
2767: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2768: END IF;
2769: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2770: IF P_PA_DEBUG_MODE = 'Y' THEN
2771: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2772: END IF;
2773: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2774: IF P_PA_DEBUG_MODE = 'Y' THEN
2775: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2769: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2770: IF P_PA_DEBUG_MODE = 'Y' THEN
2771: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2772: END IF;
2773: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2774: IF P_PA_DEBUG_MODE = 'Y' THEN
2775: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2776: END IF;
2777: rollback to org_project;
2770: IF P_PA_DEBUG_MODE = 'Y' THEN
2771: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2772: END IF;
2773: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2774: IF P_PA_DEBUG_MODE = 'Y' THEN
2775: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2776: END IF;
2777: rollback to org_project;
2778: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
2771: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2772: END IF;
2773: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2774: IF P_PA_DEBUG_MODE = 'Y' THEN
2775: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2776: END IF;
2777: rollback to org_project;
2778: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
2779: END IF;
2846: CLOSE forecast_items;
2847:
2848: l_stage := 8100;
2849: -- hr_utility.trace(to_char(l_stage));
2850: pa_debug.g_err_stage := l_stage||': Populate amt_rec for Budget Lines Denorm';
2851: IF P_PA_DEBUG_MODE = 'Y' THEN
2852: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2853: END IF;
2854: /* Populate amt_rec for Budget Lines Denorm */
2847:
2848: l_stage := 8100;
2849: -- hr_utility.trace(to_char(l_stage));
2850: pa_debug.g_err_stage := l_stage||': Populate amt_rec for Budget Lines Denorm';
2851: IF P_PA_DEBUG_MODE = 'Y' THEN
2852: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2853: END IF;
2854: /* Populate amt_rec for Budget Lines Denorm */
2855: amt_rec.delete;
2848: l_stage := 8100;
2849: -- hr_utility.trace(to_char(l_stage));
2850: pa_debug.g_err_stage := l_stage||': Populate amt_rec for Budget Lines Denorm';
2851: IF P_PA_DEBUG_MODE = 'Y' THEN
2852: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2853: END IF;
2854: /* Populate amt_rec for Budget Lines Denorm */
2855: amt_rec.delete;
2856:
2937: amt_rec(14).amount_subtype_id := get_amttype_id(p_amt_typ_code => 'BEGIN_HEADCOUNT');
2938:
2939: l_stage := 8200;
2940: -- hr_utility.trace(to_char(l_stage));
2941: pa_debug.g_err_stage := l_stage||': Create Resource Assignments for Own Task';
2942: IF P_PA_DEBUG_MODE = 'Y' THEN
2943: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2944: END IF;
2945: /* Create Resource Assignments for Own Task */
2938:
2939: l_stage := 8200;
2940: -- hr_utility.trace(to_char(l_stage));
2941: pa_debug.g_err_stage := l_stage||': Create Resource Assignments for Own Task';
2942: IF P_PA_DEBUG_MODE = 'Y' THEN
2943: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2944: END IF;
2945: /* Create Resource Assignments for Own Task */
2946:
2939: l_stage := 8200;
2940: -- hr_utility.trace(to_char(l_stage));
2941: pa_debug.g_err_stage := l_stage||': Create Resource Assignments for Own Task';
2942: IF P_PA_DEBUG_MODE = 'Y' THEN
2943: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2944: END IF;
2945: /* Create Resource Assignments for Own Task */
2946:
2947: l_own_resource_assignment_id := NULL;
2983: ,x_row_id => l_row_id
2984: ,x_return_status => l_return_status );
2985:
2986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2987: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2988: ': Error creating Resource Assignment';
2989: IF P_PA_DEBUG_MODE = 'Y' THEN
2990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2991: END IF;
2985:
2986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2987: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2988: ': Error creating Resource Assignment';
2989: IF P_PA_DEBUG_MODE = 'Y' THEN
2990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2991: END IF;
2992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2993: IF P_PA_DEBUG_MODE = 'Y' THEN
2986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2987: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
2988: ': Error creating Resource Assignment';
2989: IF P_PA_DEBUG_MODE = 'Y' THEN
2990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2991: END IF;
2992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2993: IF P_PA_DEBUG_MODE = 'Y' THEN
2994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2988: ': Error creating Resource Assignment';
2989: IF P_PA_DEBUG_MODE = 'Y' THEN
2990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2991: END IF;
2992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2993: IF P_PA_DEBUG_MODE = 'Y' THEN
2994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2995: END IF;
2996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2989: IF P_PA_DEBUG_MODE = 'Y' THEN
2990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2991: END IF;
2992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2993: IF P_PA_DEBUG_MODE = 'Y' THEN
2994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2995: END IF;
2996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2997: IF P_PA_DEBUG_MODE = 'Y' THEN
2990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2991: END IF;
2992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2993: IF P_PA_DEBUG_MODE = 'Y' THEN
2994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2995: END IF;
2996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2997: IF P_PA_DEBUG_MODE = 'Y' THEN
2998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
2993: IF P_PA_DEBUG_MODE = 'Y' THEN
2994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2995: END IF;
2996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2997: IF P_PA_DEBUG_MODE = 'Y' THEN
2998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2999: END IF;
3000: pa_debug.g_err_stage := 'l_own_task_id ['||l_own_task_id || ']';
2993: IF P_PA_DEBUG_MODE = 'Y' THEN
2994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2995: END IF;
2996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2997: IF P_PA_DEBUG_MODE = 'Y' THEN
2998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2999: END IF;
3000: pa_debug.g_err_stage := 'l_own_task_id ['||l_own_task_id || ']';
3001: IF P_PA_DEBUG_MODE = 'Y' THEN
2994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2995: END IF;
2996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2997: IF P_PA_DEBUG_MODE = 'Y' THEN
2998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2999: END IF;
3000: pa_debug.g_err_stage := 'l_own_task_id ['||l_own_task_id || ']';
3001: IF P_PA_DEBUG_MODE = 'Y' THEN
3002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
2997: IF P_PA_DEBUG_MODE = 'Y' THEN
2998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2999: END IF;
3000: pa_debug.g_err_stage := 'l_own_task_id ['||l_own_task_id || ']';
3001: IF P_PA_DEBUG_MODE = 'Y' THEN
3002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3003: END IF;
3004: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
2997: IF P_PA_DEBUG_MODE = 'Y' THEN
2998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2999: END IF;
3000: pa_debug.g_err_stage := 'l_own_task_id ['||l_own_task_id || ']';
3001: IF P_PA_DEBUG_MODE = 'Y' THEN
3002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3003: END IF;
3004: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3005: IF P_PA_DEBUG_MODE = 'Y' THEN
2998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
2999: END IF;
3000: pa_debug.g_err_stage := 'l_own_task_id ['||l_own_task_id || ']';
3001: IF P_PA_DEBUG_MODE = 'Y' THEN
3002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3003: END IF;
3004: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3005: IF P_PA_DEBUG_MODE = 'Y' THEN
3006: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3000: pa_debug.g_err_stage := 'l_own_task_id ['||l_own_task_id || ']';
3001: IF P_PA_DEBUG_MODE = 'Y' THEN
3002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3003: END IF;
3004: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3005: IF P_PA_DEBUG_MODE = 'Y' THEN
3006: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3007: END IF;
3008: rollback to org_project;
3001: IF P_PA_DEBUG_MODE = 'Y' THEN
3002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3003: END IF;
3004: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3005: IF P_PA_DEBUG_MODE = 'Y' THEN
3006: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3007: END IF;
3008: rollback to org_project;
3009: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3003: END IF;
3004: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3005: IF P_PA_DEBUG_MODE = 'Y' THEN
3006: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3007: END IF;
3008: rollback to org_project;
3009: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3010: END IF;
3067:
3068: IF NVL(l_bl_res_asg_id_tab.count,0) =0 THEN
3069: l_stage := 8600;
3070: -- hr_utility.trace(to_char(l_stage));
3071: pa_debug.g_err_stage := l_stage||': Exiting fl_lines_task loop no rows to process';
3072: IF P_PA_DEBUG_MODE = 'Y' THEN
3073: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3074: END IF;
3075: ELSE
3068: IF NVL(l_bl_res_asg_id_tab.count,0) =0 THEN
3069: l_stage := 8600;
3070: -- hr_utility.trace(to_char(l_stage));
3071: pa_debug.g_err_stage := l_stage||': Exiting fl_lines_task loop no rows to process';
3072: IF P_PA_DEBUG_MODE = 'Y' THEN
3073: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3074: END IF;
3075: ELSE
3076:
3069: l_stage := 8600;
3070: -- hr_utility.trace(to_char(l_stage));
3071: pa_debug.g_err_stage := l_stage||': Exiting fl_lines_task loop no rows to process';
3072: IF P_PA_DEBUG_MODE = 'Y' THEN
3073: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3074: END IF;
3075: ELSE
3076:
3077: FOR i in l_bl_res_asg_id_tab.first..l_bl_res_asg_id_tab.last LOOP
3096:
3097: -- hr_utility.trace(l_err_code);
3098:
3099: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3100: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3101: ':Error getting utilization details'||'-'||l_err_code;
3102: IF P_PA_DEBUG_MODE = 'Y' THEN
3103: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3104: END IF;
3098:
3099: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3100: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3101: ':Error getting utilization details'||'-'||l_err_code;
3102: IF P_PA_DEBUG_MODE = 'Y' THEN
3103: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3104: END IF;
3105: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
3106: IF P_PA_DEBUG_MODE = 'Y' THEN
3099: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3100: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3101: ':Error getting utilization details'||'-'||l_err_code;
3102: IF P_PA_DEBUG_MODE = 'Y' THEN
3103: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3104: END IF;
3105: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
3106: IF P_PA_DEBUG_MODE = 'Y' THEN
3107: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3101: ':Error getting utilization details'||'-'||l_err_code;
3102: IF P_PA_DEBUG_MODE = 'Y' THEN
3103: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3104: END IF;
3105: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
3106: IF P_PA_DEBUG_MODE = 'Y' THEN
3107: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3108: END IF;
3109: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3102: IF P_PA_DEBUG_MODE = 'Y' THEN
3103: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3104: END IF;
3105: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
3106: IF P_PA_DEBUG_MODE = 'Y' THEN
3107: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3108: END IF;
3109: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3110: IF P_PA_DEBUG_MODE = 'Y' THEN
3103: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3104: END IF;
3105: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
3106: IF P_PA_DEBUG_MODE = 'Y' THEN
3107: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3108: END IF;
3109: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3110: IF P_PA_DEBUG_MODE = 'Y' THEN
3111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3105: pa_debug.g_err_stage := 'l_org_id ['||l_org_id || ']';
3106: IF P_PA_DEBUG_MODE = 'Y' THEN
3107: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3108: END IF;
3109: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3110: IF P_PA_DEBUG_MODE = 'Y' THEN
3111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3112: END IF;
3113: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type || ']';
3106: IF P_PA_DEBUG_MODE = 'Y' THEN
3107: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3108: END IF;
3109: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3110: IF P_PA_DEBUG_MODE = 'Y' THEN
3111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3112: END IF;
3113: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type || ']';
3114: IF P_PA_DEBUG_MODE = 'Y' THEN
3107: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3108: END IF;
3109: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3110: IF P_PA_DEBUG_MODE = 'Y' THEN
3111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3112: END IF;
3113: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type || ']';
3114: IF P_PA_DEBUG_MODE = 'Y' THEN
3115: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3109: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3110: IF P_PA_DEBUG_MODE = 'Y' THEN
3111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3112: END IF;
3113: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type || ']';
3114: IF P_PA_DEBUG_MODE = 'Y' THEN
3115: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3116: END IF;
3117: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name || ']';
3110: IF P_PA_DEBUG_MODE = 'Y' THEN
3111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3112: END IF;
3113: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type || ']';
3114: IF P_PA_DEBUG_MODE = 'Y' THEN
3115: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3116: END IF;
3117: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name || ']';
3118: IF P_PA_DEBUG_MODE = 'Y' THEN
3111: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3112: END IF;
3113: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type || ']';
3114: IF P_PA_DEBUG_MODE = 'Y' THEN
3115: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3116: END IF;
3117: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name || ']';
3118: IF P_PA_DEBUG_MODE = 'Y' THEN
3119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3113: pa_debug.g_err_stage := 'l_org_fcst_period_type ['||l_org_fcst_period_type || ']';
3114: IF P_PA_DEBUG_MODE = 'Y' THEN
3115: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3116: END IF;
3117: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name || ']';
3118: IF P_PA_DEBUG_MODE = 'Y' THEN
3119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3120: END IF;
3121: pa_debug.g_err_stage := 'l_bl_period_name_tab ['||l_bl_period_name_tab(i) || ']';
3114: IF P_PA_DEBUG_MODE = 'Y' THEN
3115: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3116: END IF;
3117: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name || ']';
3118: IF P_PA_DEBUG_MODE = 'Y' THEN
3119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3120: END IF;
3121: pa_debug.g_err_stage := 'l_bl_period_name_tab ['||l_bl_period_name_tab(i) || ']';
3122: IF P_PA_DEBUG_MODE = 'Y' THEN
3115: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3116: END IF;
3117: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name || ']';
3118: IF P_PA_DEBUG_MODE = 'Y' THEN
3119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3120: END IF;
3121: pa_debug.g_err_stage := 'l_bl_period_name_tab ['||l_bl_period_name_tab(i) || ']';
3122: IF P_PA_DEBUG_MODE = 'Y' THEN
3123: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3117: pa_debug.g_err_stage := 'l_period_set_name ['||l_period_set_name || ']';
3118: IF P_PA_DEBUG_MODE = 'Y' THEN
3119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3120: END IF;
3121: pa_debug.g_err_stage := 'l_bl_period_name_tab ['||l_bl_period_name_tab(i) || ']';
3122: IF P_PA_DEBUG_MODE = 'Y' THEN
3123: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3124: END IF;
3125: rollback to org_project;
3118: IF P_PA_DEBUG_MODE = 'Y' THEN
3119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3120: END IF;
3121: pa_debug.g_err_stage := 'l_bl_period_name_tab ['||l_bl_period_name_tab(i) || ']';
3122: IF P_PA_DEBUG_MODE = 'Y' THEN
3123: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3124: END IF;
3125: rollback to org_project;
3126: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3119: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3120: END IF;
3121: pa_debug.g_err_stage := 'l_bl_period_name_tab ['||l_bl_period_name_tab(i) || ']';
3122: IF P_PA_DEBUG_MODE = 'Y' THEN
3123: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3124: END IF;
3125: rollback to org_project;
3126: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3127: END IF;
3136: ,x_return_status => l_return_status
3137: ,x_err_code => l_err_code);
3138:
3139: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3140: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3141: ':Error getting Head Count';
3142: IF P_PA_DEBUG_MODE = 'Y' THEN
3143: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3144: END IF;
3138:
3139: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3140: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3141: ':Error getting Head Count';
3142: IF P_PA_DEBUG_MODE = 'Y' THEN
3143: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3144: END IF;
3145: pa_debug.g_err_stage :=
3146: 'l_organization_id ['||l_organization_id ||
3139: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3140: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3141: ':Error getting Head Count';
3142: IF P_PA_DEBUG_MODE = 'Y' THEN
3143: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3144: END IF;
3145: pa_debug.g_err_stage :=
3146: 'l_organization_id ['||l_organization_id ||
3147: '] l_bl_start_date_tab ['||l_bl_start_date_tab(i) ||
3141: ':Error getting Head Count';
3142: IF P_PA_DEBUG_MODE = 'Y' THEN
3143: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3144: END IF;
3145: pa_debug.g_err_stage :=
3146: 'l_organization_id ['||l_organization_id ||
3147: '] l_bl_start_date_tab ['||l_bl_start_date_tab(i) ||
3148: ']';
3149: IF P_PA_DEBUG_MODE = 'Y' THEN
3145: pa_debug.g_err_stage :=
3146: 'l_organization_id ['||l_organization_id ||
3147: '] l_bl_start_date_tab ['||l_bl_start_date_tab(i) ||
3148: ']';
3149: IF P_PA_DEBUG_MODE = 'Y' THEN
3150: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3151: END IF;
3152: rollback to org_project;
3153: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3146: 'l_organization_id ['||l_organization_id ||
3147: '] l_bl_start_date_tab ['||l_bl_start_date_tab(i) ||
3148: ']';
3149: IF P_PA_DEBUG_MODE = 'Y' THEN
3150: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3151: END IF;
3152: rollback to org_project;
3153: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3154: END IF;
3158: CLOSE fl_lines_task;
3159:
3160: l_stage := 9000;
3161: -- hr_utility.trace(to_char(l_stage));
3162: pa_debug.g_err_stage := l_stage||': Create Budget Lines for Own Task';
3163: IF P_PA_DEBUG_MODE = 'Y' THEN
3164: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3165: END IF;
3166:
3159:
3160: l_stage := 9000;
3161: -- hr_utility.trace(to_char(l_stage));
3162: pa_debug.g_err_stage := l_stage||': Create Budget Lines for Own Task';
3163: IF P_PA_DEBUG_MODE = 'Y' THEN
3164: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3165: END IF;
3166:
3167: /* Bulk insert into Budget Lines for Own Numbers Phase I */
3160: l_stage := 9000;
3161: -- hr_utility.trace(to_char(l_stage));
3162: pa_debug.g_err_stage := l_stage||': Create Budget Lines for Own Task';
3163: IF P_PA_DEBUG_MODE = 'Y' THEN
3164: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3165: END IF;
3166:
3167: /* Bulk insert into Budget Lines for Own Numbers Phase I */
3168: IF l_bl_res_asg_id_tab.count > 0 THEN
3277:
3278: IF budget_lines_rec.COUNT = 1 THEN
3279: l_stage := 9300;
3280: -- hr_utility.trace(to_char(l_stage));
3281: pa_debug.g_err_stage := l_stage||': Update Resource Assignments for Own Task';
3282: IF P_PA_DEBUG_MODE = 'Y' THEN
3283: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3284: END IF;
3285:
3278: IF budget_lines_rec.COUNT = 1 THEN
3279: l_stage := 9300;
3280: -- hr_utility.trace(to_char(l_stage));
3281: pa_debug.g_err_stage := l_stage||': Update Resource Assignments for Own Task';
3282: IF P_PA_DEBUG_MODE = 'Y' THEN
3283: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3284: END IF;
3285:
3286: UPDATE pa_resource_assignments
3279: l_stage := 9300;
3280: -- hr_utility.trace(to_char(l_stage));
3281: pa_debug.g_err_stage := l_stage||': Update Resource Assignments for Own Task';
3282: IF P_PA_DEBUG_MODE = 'Y' THEN
3283: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3284: END IF;
3285:
3286: UPDATE pa_resource_assignments
3287: SET
3415: l_stage := 9700;
3416: -- hr_utility.trace(to_char(l_stage));
3417: l_records_affected := SQL%ROWCOUNT;
3418:
3419: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3420: ': After Inserting Fin Plan Lines Tmp' ;
3421: IF P_PA_DEBUG_MODE = 'Y' THEN
3422: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3423: END IF;
3417: l_records_affected := SQL%ROWCOUNT;
3418:
3419: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3420: ': After Inserting Fin Plan Lines Tmp' ;
3421: IF P_PA_DEBUG_MODE = 'Y' THEN
3422: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3423: END IF;
3424:
3425: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3418:
3419: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3420: ': After Inserting Fin Plan Lines Tmp' ;
3421: IF P_PA_DEBUG_MODE = 'Y' THEN
3422: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3423: END IF;
3424:
3425: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3426: ': Inserted [' || TO_CHAR(l_records_affected) ||
3421: IF P_PA_DEBUG_MODE = 'Y' THEN
3422: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3423: END IF;
3424:
3425: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3426: ': Inserted [' || TO_CHAR(l_records_affected) ||
3427: '] Fin Plan Lines Tmp.';
3428: IF P_PA_DEBUG_MODE = 'Y' THEN
3429: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3424:
3425: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3426: ': Inserted [' || TO_CHAR(l_records_affected) ||
3427: '] Fin Plan Lines Tmp.';
3428: IF P_PA_DEBUG_MODE = 'Y' THEN
3429: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3430: END IF;
3431:
3432: /* Populate Project Periods Denorm for Budget Lines */
3425: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3426: ': Inserted [' || TO_CHAR(l_records_affected) ||
3427: '] Fin Plan Lines Tmp.';
3428: IF P_PA_DEBUG_MODE = 'Y' THEN
3429: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3430: END IF;
3431:
3432: /* Populate Project Periods Denorm for Budget Lines */
3433:
3432: /* Populate Project Periods Denorm for Budget Lines */
3433:
3434: l_stage := 9800;
3435: -- hr_utility.trace(to_char(l_stage));
3436: pa_debug.g_err_stage := l_stage||': Populate Project Periods Denorm for Budget Lines';
3437: IF P_PA_DEBUG_MODE = 'Y' THEN
3438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3439: END IF;
3440: Pa_Plan_Matrix.Maintain_Plan_Matrix
3433:
3434: l_stage := 9800;
3435: -- hr_utility.trace(to_char(l_stage));
3436: pa_debug.g_err_stage := l_stage||': Populate Project Periods Denorm for Budget Lines';
3437: IF P_PA_DEBUG_MODE = 'Y' THEN
3438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3439: END IF;
3440: Pa_Plan_Matrix.Maintain_Plan_Matrix
3441: ( p_amount_type_tab => amt_rec
3434: l_stage := 9800;
3435: -- hr_utility.trace(to_char(l_stage));
3436: pa_debug.g_err_stage := l_stage||': Populate Project Periods Denorm for Budget Lines';
3437: IF P_PA_DEBUG_MODE = 'Y' THEN
3438: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3439: END IF;
3440: Pa_Plan_Matrix.Maintain_Plan_Matrix
3441: ( p_amount_type_tab => amt_rec
3442: ,p_period_profile_id => l_period_profile_id
3450: ,x_msg_count => l_msg_count
3451: ,x_msg_data => errbuff );
3452:
3453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3454: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3455: ':Error creating Period Denorm';
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3458: END IF;
3452:
3453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3454: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3455: ':Error creating Period Denorm';
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3458: END IF;
3459: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
3460: IF P_PA_DEBUG_MODE = 'Y' THEN
3453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3454: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3455: ':Error creating Period Denorm';
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3458: END IF;
3459: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
3460: IF P_PA_DEBUG_MODE = 'Y' THEN
3461: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3455: ':Error creating Period Denorm';
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3458: END IF;
3459: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
3460: IF P_PA_DEBUG_MODE = 'Y' THEN
3461: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3462: END IF;
3463: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3458: END IF;
3459: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
3460: IF P_PA_DEBUG_MODE = 'Y' THEN
3461: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3462: END IF;
3463: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3458: END IF;
3459: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
3460: IF P_PA_DEBUG_MODE = 'Y' THEN
3461: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3462: END IF;
3463: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3459: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
3460: IF P_PA_DEBUG_MODE = 'Y' THEN
3461: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3462: END IF;
3463: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3466: END IF;
3467: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3460: IF P_PA_DEBUG_MODE = 'Y' THEN
3461: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3462: END IF;
3463: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3466: END IF;
3467: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3468: IF P_PA_DEBUG_MODE = 'Y' THEN
3461: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3462: END IF;
3463: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3466: END IF;
3467: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3468: IF P_PA_DEBUG_MODE = 'Y' THEN
3469: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3463: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3466: END IF;
3467: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3468: IF P_PA_DEBUG_MODE = 'Y' THEN
3469: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3470: END IF;
3471: rollback to org_project;
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3466: END IF;
3467: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3468: IF P_PA_DEBUG_MODE = 'Y' THEN
3469: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3470: END IF;
3471: rollback to org_project;
3472: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3465: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3466: END IF;
3467: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3468: IF P_PA_DEBUG_MODE = 'Y' THEN
3469: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3470: END IF;
3471: rollback to org_project;
3472: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3473: END IF;
3474: END IF; /* l_bl_res_asg_id_tab.count <> 0 */
3475:
3476: l_stage := 9900;
3477: -- hr_utility.trace(to_char(l_stage));
3478: pa_debug.g_err_stage := l_stage||': Create Resource Assignments for Project Task';
3479: IF P_PA_DEBUG_MODE = 'Y' THEN
3480: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3481: END IF;
3482:
3475:
3476: l_stage := 9900;
3477: -- hr_utility.trace(to_char(l_stage));
3478: pa_debug.g_err_stage := l_stage||': Create Resource Assignments for Project Task';
3479: IF P_PA_DEBUG_MODE = 'Y' THEN
3480: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3481: END IF;
3482:
3483: /* Now one pass for Project level numbers */
3476: l_stage := 9900;
3477: -- hr_utility.trace(to_char(l_stage));
3478: pa_debug.g_err_stage := l_stage||': Create Resource Assignments for Project Task';
3479: IF P_PA_DEBUG_MODE = 'Y' THEN
3480: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3481: END IF;
3482:
3483: /* Now one pass for Project level numbers */
3484: /* Create Resource assignment with task_id = 0 */
3522: ,x_row_id => l_row_id
3523: ,x_return_status => l_return_status );
3524:
3525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3526: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3527: ': Error creating Proj Resource Assignment';
3528: IF P_PA_DEBUG_MODE = 'Y' THEN
3529: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3530: END IF;
3524:
3525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3526: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3527: ': Error creating Proj Resource Assignment';
3528: IF P_PA_DEBUG_MODE = 'Y' THEN
3529: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3530: END IF;
3531: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3532: IF P_PA_DEBUG_MODE = 'Y' THEN
3525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3526: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3527: ': Error creating Proj Resource Assignment';
3528: IF P_PA_DEBUG_MODE = 'Y' THEN
3529: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3530: END IF;
3531: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3532: IF P_PA_DEBUG_MODE = 'Y' THEN
3533: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3527: ': Error creating Proj Resource Assignment';
3528: IF P_PA_DEBUG_MODE = 'Y' THEN
3529: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3530: END IF;
3531: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3532: IF P_PA_DEBUG_MODE = 'Y' THEN
3533: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3534: END IF;
3535: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3528: IF P_PA_DEBUG_MODE = 'Y' THEN
3529: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3530: END IF;
3531: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3532: IF P_PA_DEBUG_MODE = 'Y' THEN
3533: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3534: END IF;
3535: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3536: IF P_PA_DEBUG_MODE = 'Y' THEN
3529: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3530: END IF;
3531: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3532: IF P_PA_DEBUG_MODE = 'Y' THEN
3533: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3534: END IF;
3535: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3536: IF P_PA_DEBUG_MODE = 'Y' THEN
3537: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3531: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3532: IF P_PA_DEBUG_MODE = 'Y' THEN
3533: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3534: END IF;
3535: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3536: IF P_PA_DEBUG_MODE = 'Y' THEN
3537: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3538: END IF;
3539: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3532: IF P_PA_DEBUG_MODE = 'Y' THEN
3533: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3534: END IF;
3535: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3536: IF P_PA_DEBUG_MODE = 'Y' THEN
3537: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3538: END IF;
3539: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3540: IF P_PA_DEBUG_MODE = 'Y' THEN
3533: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3534: END IF;
3535: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3536: IF P_PA_DEBUG_MODE = 'Y' THEN
3537: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3538: END IF;
3539: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3540: IF P_PA_DEBUG_MODE = 'Y' THEN
3541: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3535: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3536: IF P_PA_DEBUG_MODE = 'Y' THEN
3537: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3538: END IF;
3539: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3540: IF P_PA_DEBUG_MODE = 'Y' THEN
3541: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3542: END IF;
3543: rollback to org_project;
3536: IF P_PA_DEBUG_MODE = 'Y' THEN
3537: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3538: END IF;
3539: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3540: IF P_PA_DEBUG_MODE = 'Y' THEN
3541: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3542: END IF;
3543: rollback to org_project;
3544: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3537: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3538: END IF;
3539: pa_debug.g_err_stage := 'l_resource_list_member_id['||l_resource_list_member_id|| ']';
3540: IF P_PA_DEBUG_MODE = 'Y' THEN
3541: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3542: END IF;
3543: rollback to org_project;
3544: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3545: END IF;
3608: l_stage := 10300;
3609: -- hr_utility.trace(to_char(l_stage));
3610: ELSE
3611: /* Bulk insert into Budget Lines for Project Numbers */
3612: pa_debug.g_err_stage := l_stage||': Create Budget Lines for Project Level Task';
3613: IF P_PA_DEBUG_MODE = 'Y' THEN
3614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3615: END IF;
3616: FORALL i in l_bl_res_asg_id_tab.first..l_bl_res_asg_id_tab.last
3609: -- hr_utility.trace(to_char(l_stage));
3610: ELSE
3611: /* Bulk insert into Budget Lines for Project Numbers */
3612: pa_debug.g_err_stage := l_stage||': Create Budget Lines for Project Level Task';
3613: IF P_PA_DEBUG_MODE = 'Y' THEN
3614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3615: END IF;
3616: FORALL i in l_bl_res_asg_id_tab.first..l_bl_res_asg_id_tab.last
3617: INSERT INTO pa_budget_lines
3610: ELSE
3611: /* Bulk insert into Budget Lines for Project Numbers */
3612: pa_debug.g_err_stage := l_stage||': Create Budget Lines for Project Level Task';
3613: IF P_PA_DEBUG_MODE = 'Y' THEN
3614: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3615: END IF;
3616: FORALL i in l_bl_res_asg_id_tab.first..l_bl_res_asg_id_tab.last
3617: INSERT INTO pa_budget_lines
3618: ( budget_line_id /* FPB2 budget_line_id */
3723:
3724: IF budget_lines_rec.COUNT = 1 THEN
3725: l_stage := 10600;
3726: -- hr_utility.trace(to_char(l_stage));
3727: pa_debug.g_err_stage := l_stage||': Update Resource Assignments for Project Task';
3728: IF P_PA_DEBUG_MODE = 'Y' THEN
3729: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3730: END IF;
3731: UPDATE pa_resource_assignments
3724: IF budget_lines_rec.COUNT = 1 THEN
3725: l_stage := 10600;
3726: -- hr_utility.trace(to_char(l_stage));
3727: pa_debug.g_err_stage := l_stage||': Update Resource Assignments for Project Task';
3728: IF P_PA_DEBUG_MODE = 'Y' THEN
3729: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3730: END IF;
3731: UPDATE pa_resource_assignments
3732: SET
3725: l_stage := 10600;
3726: -- hr_utility.trace(to_char(l_stage));
3727: pa_debug.g_err_stage := l_stage||': Update Resource Assignments for Project Task';
3728: IF P_PA_DEBUG_MODE = 'Y' THEN
3729: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3730: END IF;
3731: UPDATE pa_resource_assignments
3732: SET
3733: last_update_date = sysdate
3756:
3757: IF budget_lines_rec.COUNT = 1 THEN
3758: l_stage := 10800;
3759: -- hr_utility.trace(to_char(l_stage));
3760: pa_debug.g_err_stage := l_stage||': Update Budget Version for Project Level Numbers';
3761: IF P_PA_DEBUG_MODE = 'Y' THEN
3762: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3763: END IF;
3764:
3757: IF budget_lines_rec.COUNT = 1 THEN
3758: l_stage := 10800;
3759: -- hr_utility.trace(to_char(l_stage));
3760: pa_debug.g_err_stage := l_stage||': Update Budget Version for Project Level Numbers';
3761: IF P_PA_DEBUG_MODE = 'Y' THEN
3762: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3763: END IF;
3764:
3765: UPDATE pa_budget_versions
3758: l_stage := 10800;
3759: -- hr_utility.trace(to_char(l_stage));
3760: pa_debug.g_err_stage := l_stage||': Update Budget Version for Project Level Numbers';
3761: IF P_PA_DEBUG_MODE = 'Y' THEN
3762: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3763: END IF;
3764:
3765: UPDATE pa_budget_versions
3766: SET
3901: -- hr_utility.trace(to_char(l_stage));
3902:
3903: l_records_affected := SQL%ROWCOUNT;
3904:
3905: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3906: ': After Inserting Fin Plan Lines Tmp' ;
3907: IF P_PA_DEBUG_MODE = 'Y' THEN
3908: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3909: END IF;
3903: l_records_affected := SQL%ROWCOUNT;
3904:
3905: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3906: ': After Inserting Fin Plan Lines Tmp' ;
3907: IF P_PA_DEBUG_MODE = 'Y' THEN
3908: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3909: END IF;
3910:
3911: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3904:
3905: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3906: ': After Inserting Fin Plan Lines Tmp' ;
3907: IF P_PA_DEBUG_MODE = 'Y' THEN
3908: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3909: END IF;
3910:
3911: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3912: ': Inserted [' || TO_CHAR(l_records_affected) ||
3907: IF P_PA_DEBUG_MODE = 'Y' THEN
3908: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3909: END IF;
3910:
3911: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3912: ': Inserted [' || TO_CHAR(l_records_affected) ||
3913: '] Fin Plan Lines Tmp.';
3914: IF P_PA_DEBUG_MODE = 'Y' THEN
3915: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3910:
3911: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3912: ': Inserted [' || TO_CHAR(l_records_affected) ||
3913: '] Fin Plan Lines Tmp.';
3914: IF P_PA_DEBUG_MODE = 'Y' THEN
3915: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3916: END IF;
3917:
3918: l_stage := 11300;
3911: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3912: ': Inserted [' || TO_CHAR(l_records_affected) ||
3913: '] Fin Plan Lines Tmp.';
3914: IF P_PA_DEBUG_MODE = 'Y' THEN
3915: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3916: END IF;
3917:
3918: l_stage := 11300;
3919: -- hr_utility.trace(to_char(l_stage));
3930: ,p_budget_version_id => l_budget_version_id
3931: ,p_project_id => l_project_id);
3932:
3933: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3934: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3935: ':Error creating Period Denorm';
3936: IF P_PA_DEBUG_MODE = 'Y' THEN
3937: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3938: END IF;
3932:
3933: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3934: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3935: ':Error creating Period Denorm';
3936: IF P_PA_DEBUG_MODE = 'Y' THEN
3937: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3938: END IF;
3939: pa_debug.g_err_stage :=
3940: 'l_period_profile_id ['||l_period_profile_id ||
3933: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3934: pa_debug.g_err_stage := TO_CHAR(l_stage) ||
3935: ':Error creating Period Denorm';
3936: IF P_PA_DEBUG_MODE = 'Y' THEN
3937: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3938: END IF;
3939: pa_debug.g_err_stage :=
3940: 'l_period_profile_id ['||l_period_profile_id ||
3941: '] l_budget_version_id ['||l_budget_version_id ||
3935: ':Error creating Period Denorm';
3936: IF P_PA_DEBUG_MODE = 'Y' THEN
3937: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3938: END IF;
3939: pa_debug.g_err_stage :=
3940: 'l_period_profile_id ['||l_period_profile_id ||
3941: '] l_budget_version_id ['||l_budget_version_id ||
3942: '] l_project_id ['||l_project_id ||
3943: ']';
3940: 'l_period_profile_id ['||l_period_profile_id ||
3941: '] l_budget_version_id ['||l_budget_version_id ||
3942: '] l_project_id ['||l_project_id ||
3943: ']';
3944: IF P_PA_DEBUG_MODE = 'Y' THEN
3945: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3946: END IF;
3947: rollback to org_project;
3948: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3941: '] l_budget_version_id ['||l_budget_version_id ||
3942: '] l_project_id ['||l_project_id ||
3943: ']';
3944: IF P_PA_DEBUG_MODE = 'Y' THEN
3945: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3946: END IF;
3947: rollback to org_project;
3948: RAISE pa_fp_org_fcst_gen_pub.error_reloop;
3949: END IF;
3953:
3954: IF p_budget_version_id IS NOT NULL THEN
3955: l_stage := 11500;
3956: -- hr_utility.trace(to_char(l_stage));
3957: pa_debug.g_err_stage := l_stage||': Process Complete for budget version -- EXITING';
3958: IF P_PA_DEBUG_MODE = 'Y' THEN
3959: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3960: END IF;
3961: COMMIT;
3954: IF p_budget_version_id IS NOT NULL THEN
3955: l_stage := 11500;
3956: -- hr_utility.trace(to_char(l_stage));
3957: pa_debug.g_err_stage := l_stage||': Process Complete for budget version -- EXITING';
3958: IF P_PA_DEBUG_MODE = 'Y' THEN
3959: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3960: END IF;
3961: COMMIT;
3962: EXIT; -- need to force exit when generating for a budget version.
3955: l_stage := 11500;
3956: -- hr_utility.trace(to_char(l_stage));
3957: pa_debug.g_err_stage := l_stage||': Process Complete for budget version -- EXITING';
3958: IF P_PA_DEBUG_MODE = 'Y' THEN
3959: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3960: END IF;
3961: COMMIT;
3962: EXIT; -- need to force exit when generating for a budget version.
3963: END IF;
3965: -- hr_utility.trace(to_char(l_stage));
3966: EXCEPTION
3967: WHEN pa_fp_org_fcst_gen_pub.error_reloop THEN
3968: -- hr_utility.trace('UserDefined Skipping - '||to_char(l_stage)||'-'||SQLERRM);
3969: pa_debug.g_err_stage := l_stage||': UserDefined Skipping - '||'['||SQLERRM||']';
3970: IF P_PA_DEBUG_MODE = 'Y' THEN
3971: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3972: END IF;
3973: rollback to org_project;
3966: EXCEPTION
3967: WHEN pa_fp_org_fcst_gen_pub.error_reloop THEN
3968: -- hr_utility.trace('UserDefined Skipping - '||to_char(l_stage)||'-'||SQLERRM);
3969: pa_debug.g_err_stage := l_stage||': UserDefined Skipping - '||'['||SQLERRM||']';
3970: IF P_PA_DEBUG_MODE = 'Y' THEN
3971: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3972: END IF;
3973: rollback to org_project;
3974: IF l_budget_version_id > 0 THEN
3967: WHEN pa_fp_org_fcst_gen_pub.error_reloop THEN
3968: -- hr_utility.trace('UserDefined Skipping - '||to_char(l_stage)||'-'||SQLERRM);
3969: pa_debug.g_err_stage := l_stage||': UserDefined Skipping - '||'['||SQLERRM||']';
3970: IF P_PA_DEBUG_MODE = 'Y' THEN
3971: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3972: END IF;
3973: rollback to org_project;
3974: IF l_budget_version_id > 0 THEN
3975: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
3972: END IF;
3973: rollback to org_project;
3974: IF l_budget_version_id > 0 THEN
3975: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
3976: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
3977: ||'['||l_budget_version_id||']';
3978: IF P_PA_DEBUG_MODE = 'Y' THEN
3979: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3980: END IF;
3974: IF l_budget_version_id > 0 THEN
3975: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
3976: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
3977: ||'['||l_budget_version_id||']';
3978: IF P_PA_DEBUG_MODE = 'Y' THEN
3979: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3980: END IF;
3981: END IF;
3982: WHEN OTHERS THEN
3975: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
3976: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
3977: ||'['||l_budget_version_id||']';
3978: IF P_PA_DEBUG_MODE = 'Y' THEN
3979: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3980: END IF;
3981: END IF;
3982: WHEN OTHERS THEN
3983: -- hr_utility.trace('UnExpected Skipping - '||to_char(l_stage)||'-'||SQLERRM);
3980: END IF;
3981: END IF;
3982: WHEN OTHERS THEN
3983: -- hr_utility.trace('UnExpected Skipping - '||to_char(l_stage)||'-'||SQLERRM);
3984: pa_debug.g_err_stage := l_stage||': UnExpected Skipping - '||'['||SQLERRM||']';
3985: IF P_PA_DEBUG_MODE = 'Y' THEN
3986: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3987: END IF;
3988: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3981: END IF;
3982: WHEN OTHERS THEN
3983: -- hr_utility.trace('UnExpected Skipping - '||to_char(l_stage)||'-'||SQLERRM);
3984: pa_debug.g_err_stage := l_stage||': UnExpected Skipping - '||'['||SQLERRM||']';
3985: IF P_PA_DEBUG_MODE = 'Y' THEN
3986: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3987: END IF;
3988: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3989: IF P_PA_DEBUG_MODE = 'Y' THEN
3982: WHEN OTHERS THEN
3983: -- hr_utility.trace('UnExpected Skipping - '||to_char(l_stage)||'-'||SQLERRM);
3984: pa_debug.g_err_stage := l_stage||': UnExpected Skipping - '||'['||SQLERRM||']';
3985: IF P_PA_DEBUG_MODE = 'Y' THEN
3986: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3987: END IF;
3988: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3989: IF P_PA_DEBUG_MODE = 'Y' THEN
3990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3984: pa_debug.g_err_stage := l_stage||': UnExpected Skipping - '||'['||SQLERRM||']';
3985: IF P_PA_DEBUG_MODE = 'Y' THEN
3986: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3987: END IF;
3988: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3989: IF P_PA_DEBUG_MODE = 'Y' THEN
3990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3991: END IF;
3992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3985: IF P_PA_DEBUG_MODE = 'Y' THEN
3986: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3987: END IF;
3988: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3989: IF P_PA_DEBUG_MODE = 'Y' THEN
3990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3991: END IF;
3992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3993: IF P_PA_DEBUG_MODE = 'Y' THEN
3986: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3987: END IF;
3988: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3989: IF P_PA_DEBUG_MODE = 'Y' THEN
3990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3991: END IF;
3992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3993: IF P_PA_DEBUG_MODE = 'Y' THEN
3994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3988: pa_debug.g_err_stage := 'l_organization_id ['||l_organization_id || ']';
3989: IF P_PA_DEBUG_MODE = 'Y' THEN
3990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3991: END IF;
3992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3993: IF P_PA_DEBUG_MODE = 'Y' THEN
3994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3995: END IF;
3996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3989: IF P_PA_DEBUG_MODE = 'Y' THEN
3990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3991: END IF;
3992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3993: IF P_PA_DEBUG_MODE = 'Y' THEN
3994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3995: END IF;
3996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3990: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3991: END IF;
3992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3993: IF P_PA_DEBUG_MODE = 'Y' THEN
3994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3995: END IF;
3996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3992: pa_debug.g_err_stage := 'l_budget_version_id ['||l_budget_version_id || ']';
3993: IF P_PA_DEBUG_MODE = 'Y' THEN
3994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3995: END IF;
3996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3999: END IF;
4000: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
3993: IF P_PA_DEBUG_MODE = 'Y' THEN
3994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3995: END IF;
3996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3999: END IF;
4000: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
4001: IF P_PA_DEBUG_MODE = 'Y' THEN
3994: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3995: END IF;
3996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3999: END IF;
4000: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
4001: IF P_PA_DEBUG_MODE = 'Y' THEN
4002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3996: pa_debug.g_err_stage := 'l_project_id ['||l_project_id || ']';
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3999: END IF;
4000: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
4001: IF P_PA_DEBUG_MODE = 'Y' THEN
4002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4003: END IF;
4004: rollback to org_project;
3997: IF P_PA_DEBUG_MODE = 'Y' THEN
3998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3999: END IF;
4000: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
4001: IF P_PA_DEBUG_MODE = 'Y' THEN
4002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4003: END IF;
4004: rollback to org_project;
4005: IF l_budget_version_id > 0 THEN
3998: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
3999: END IF;
4000: pa_debug.g_err_stage := 'l_period_profile_id ['||l_period_profile_id || ']';
4001: IF P_PA_DEBUG_MODE = 'Y' THEN
4002: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4003: END IF;
4004: rollback to org_project;
4005: IF l_budget_version_id > 0 THEN
4006: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4003: END IF;
4004: rollback to org_project;
4005: IF l_budget_version_id > 0 THEN
4006: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4007: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
4008: ||'['||l_budget_version_id||']';
4009: IF P_PA_DEBUG_MODE = 'Y' THEN
4010: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4011: END IF;
4005: IF l_budget_version_id > 0 THEN
4006: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4007: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
4008: ||'['||l_budget_version_id||']';
4009: IF P_PA_DEBUG_MODE = 'Y' THEN
4010: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4011: END IF;
4012: END IF;
4013: END;
4006: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4007: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
4008: ||'['||l_budget_version_id||']';
4009: IF P_PA_DEBUG_MODE = 'Y' THEN
4010: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4011: END IF;
4012: END IF;
4013: END;
4014: COMMIT;
4022: l_stage := 11800;
4023: -- hr_utility.trace(to_char(l_stage));
4024:
4025: -- R12 MOAC 4447573
4026: If P_PA_DEBUG_MODE = 'Y' THEN
4027: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_org_id||'}');
4028: End If;
4029: FND_REQUEST.set_org_id(l_org_id);
4030: -- end of R12 MOAC 4447573
4023: -- hr_utility.trace(to_char(l_stage));
4024:
4025: -- R12 MOAC 4447573
4026: If P_PA_DEBUG_MODE = 'Y' THEN
4027: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_org_id||'}');
4028: End If;
4029: FND_REQUEST.set_org_id(l_org_id);
4030: -- end of R12 MOAC 4447573
4031:
4045: argument8 => NULL, -- P_START_ORGANIZATION_FLAG
4046: argument9 => NULL); -- P_START_ORGANIZATION_ID
4047: IF l_request_id = 0 then
4048: l_return_status := FND_API.G_RET_STS_ERROR;
4049: IF P_PA_DEBUG_MODE = 'Y' THEN
4050: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4051: END IF;
4052: ELSE
4053: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4046: argument9 => NULL); -- P_START_ORGANIZATION_ID
4047: IF l_request_id = 0 then
4048: l_return_status := FND_API.G_RET_STS_ERROR;
4049: IF P_PA_DEBUG_MODE = 'Y' THEN
4050: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4051: END IF;
4052: ELSE
4053: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4054: IF P_PA_DEBUG_MODE = 'Y' THEN
4049: IF P_PA_DEBUG_MODE = 'Y' THEN
4050: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4051: END IF;
4052: ELSE
4053: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4054: IF P_PA_DEBUG_MODE = 'Y' THEN
4055: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4056: END IF;
4057: END IF;
4050: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4051: END IF;
4052: ELSE
4053: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4054: IF P_PA_DEBUG_MODE = 'Y' THEN
4055: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4056: END IF;
4057: END IF;
4058: ELSE
4051: END IF;
4052: ELSE
4053: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4054: IF P_PA_DEBUG_MODE = 'Y' THEN
4055: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4056: END IF;
4057: END IF;
4058: ELSE
4059: CLOSE org_hierarchy;
4060: l_stage := 11900;
4061: -- hr_utility.trace(to_char(l_stage));
4062:
4063: -- R12 MOAC 4447573
4064: If P_PA_DEBUG_MODE = 'Y' THEN
4065: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_org_id||'}');
4066: End If;
4067: FND_REQUEST.set_org_id(l_org_id);
4068: -- end of R12 MOAC 4447573
4061: -- hr_utility.trace(to_char(l_stage));
4062:
4063: -- R12 MOAC 4447573
4064: If P_PA_DEBUG_MODE = 'Y' THEN
4065: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_org_id||'}');
4066: End If;
4067: FND_REQUEST.set_org_id(l_org_id);
4068: -- end of R12 MOAC 4447573
4069:
4083: argument8 => 1, -- P_START_ORGANIZATION_FLAG
4084: argument9 => p_starting_organization_id); -- P_START_ORGANIZATION_ID
4085: IF l_request_id = 0 then
4086: l_return_status := FND_API.G_RET_STS_ERROR;
4087: IF P_PA_DEBUG_MODE = 'Y' THEN
4088: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4089: END IF;
4090: ELSE
4091: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4084: argument9 => p_starting_organization_id); -- P_START_ORGANIZATION_ID
4085: IF l_request_id = 0 then
4086: l_return_status := FND_API.G_RET_STS_ERROR;
4087: IF P_PA_DEBUG_MODE = 'Y' THEN
4088: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4089: END IF;
4090: ELSE
4091: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4092: IF P_PA_DEBUG_MODE = 'Y' THEN
4087: IF P_PA_DEBUG_MODE = 'Y' THEN
4088: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4089: END IF;
4090: ELSE
4091: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4092: IF P_PA_DEBUG_MODE = 'Y' THEN
4093: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4094: END IF;
4095: END IF;
4088: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4089: END IF;
4090: ELSE
4091: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4092: IF P_PA_DEBUG_MODE = 'Y' THEN
4093: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4094: END IF;
4095: END IF;
4096: END IF;
4089: END IF;
4090: ELSE
4091: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4092: IF P_PA_DEBUG_MODE = 'Y' THEN
4093: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4094: END IF;
4095: END IF;
4096: END IF;
4097: ELSE
4098: l_stage := 12000;
4099: -- hr_utility.trace(to_char(l_stage));
4100:
4101: -- R12 MOAC 4447573
4102: If P_PA_DEBUG_MODE = 'Y' THEN
4103: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_org_id||'}');
4104: End If;
4105: FND_REQUEST.set_org_id(l_org_id);
4106: -- end of R12 MOAC 4447573
4099: -- hr_utility.trace(to_char(l_stage));
4100:
4101: -- R12 MOAC 4447573
4102: If P_PA_DEBUG_MODE = 'Y' THEN
4103: PA_DEBUG.Log_Message(p_message => 'Calling FND_REQUEST.set_org_id{'||l_org_id||'}');
4104: End If;
4105: FND_REQUEST.set_org_id(l_org_id);
4106: -- end of R12 MOAC 4447573
4107:
4122: argument9 => NULL); -- P_START_ORGANIZATION_ID
4123:
4124: IF l_request_id = 0 then
4125: l_return_status := FND_API.G_RET_STS_ERROR;
4126: IF P_PA_DEBUG_MODE = 'Y' THEN
4127: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4128: END IF;
4129: ELSE
4130: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4123:
4124: IF l_request_id = 0 then
4125: l_return_status := FND_API.G_RET_STS_ERROR;
4126: IF P_PA_DEBUG_MODE = 'Y' THEN
4127: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4128: END IF;
4129: ELSE
4130: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4131: IF P_PA_DEBUG_MODE = 'Y' THEN
4126: IF P_PA_DEBUG_MODE = 'Y' THEN
4127: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4128: END IF;
4129: ELSE
4130: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4131: IF P_PA_DEBUG_MODE = 'Y' THEN
4132: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4133: END IF;
4134: END IF;
4127: pa_debug.write_file('gen_org_fcst: ' || 'Report not successful [PAFPEXRP] l_request_id=0; ERROR');
4128: END IF;
4129: ELSE
4130: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4131: IF P_PA_DEBUG_MODE = 'Y' THEN
4132: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4133: END IF;
4134: END IF;
4135:
4128: END IF;
4129: ELSE
4130: pa_debug.g_err_stage := 'Exception Report Request Id is '||TO_CHAR(l_request_id);
4131: IF P_PA_DEBUG_MODE = 'Y' THEN
4132: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4133: END IF;
4134: END IF;
4135:
4136:
4135:
4136:
4137: END IF; -- p_budget_version_id IS NULL
4138:
4139: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Generation Process';
4140: IF P_PA_DEBUG_MODE = 'Y' THEN
4141: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4142: END IF;
4143: pa_debug.reset_err_stack;
4136:
4137: END IF; -- p_budget_version_id IS NULL
4138:
4139: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Generation Process';
4140: IF P_PA_DEBUG_MODE = 'Y' THEN
4141: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4142: END IF;
4143: pa_debug.reset_err_stack;
4144:
4137: END IF; -- p_budget_version_id IS NULL
4138:
4139: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Generation Process';
4140: IF P_PA_DEBUG_MODE = 'Y' THEN
4141: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4142: END IF;
4143: pa_debug.reset_err_stack;
4144:
4145: EXCEPTION
4139: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Generation Process';
4140: IF P_PA_DEBUG_MODE = 'Y' THEN
4141: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4142: END IF;
4143: pa_debug.reset_err_stack;
4144:
4145: EXCEPTION
4146: WHEN OTHERS THEN
4147: FND_MSG_PUB.add_exc_msg
4145: EXCEPTION
4146: WHEN OTHERS THEN
4147: FND_MSG_PUB.add_exc_msg
4148: ( p_pkg_name => 'PA_FP_ORG_FCST_GEN_PKG.gen_org_fcst'
4149: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4150:
4151: retcode := FND_API.G_RET_STS_UNEXP_ERROR;
4152: errbuff := TO_CHAR(l_stage)||'['||SQLERRM||']';
4153:
4151: retcode := FND_API.G_RET_STS_UNEXP_ERROR;
4152: errbuff := TO_CHAR(l_stage)||'['||SQLERRM||']';
4153:
4154: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
4155: pa_debug.g_err_stage := TO_CHAR(l_stage)||'['||SQLERRM||']';
4156: IF P_PA_DEBUG_MODE = 'Y' THEN
4157: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4158: END IF;
4159: IF l_budget_version_id > 0 THEN
4152: errbuff := TO_CHAR(l_stage)||'['||SQLERRM||']';
4153:
4154: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
4155: pa_debug.g_err_stage := TO_CHAR(l_stage)||'['||SQLERRM||']';
4156: IF P_PA_DEBUG_MODE = 'Y' THEN
4157: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4158: END IF;
4159: IF l_budget_version_id > 0 THEN
4160: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4153:
4154: -- hr_utility.trace(to_char(l_stage)||'-'||SQLERRM);
4155: pa_debug.g_err_stage := TO_CHAR(l_stage)||'['||SQLERRM||']';
4156: IF P_PA_DEBUG_MODE = 'Y' THEN
4157: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4158: END IF;
4159: IF l_budget_version_id > 0 THEN
4160: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4161: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
4157: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4158: END IF;
4159: IF l_budget_version_id > 0 THEN
4160: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4161: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
4162: ||'['||l_budget_version_id||']';
4163: IF P_PA_DEBUG_MODE = 'Y' THEN
4164: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4165: END IF;
4159: IF l_budget_version_id > 0 THEN
4160: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4161: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
4162: ||'['||l_budget_version_id||']';
4163: IF P_PA_DEBUG_MODE = 'Y' THEN
4164: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4165: END IF;
4166: END IF;
4167: pa_debug.reset_err_stack;
4160: l_budget_version_in_error := budget_version_in_error(l_budget_version_id);
4161: pa_debug.g_err_stage := l_stage||': Budget Version has errored - '
4162: ||'['||l_budget_version_id||']';
4163: IF P_PA_DEBUG_MODE = 'Y' THEN
4164: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4165: END IF;
4166: END IF;
4167: pa_debug.reset_err_stack;
4168: RAISE;
4163: IF P_PA_DEBUG_MODE = 'Y' THEN
4164: pa_debug.write_file('gen_org_fcst: ' || pa_debug.g_err_stage);
4165: END IF;
4166: END IF;
4167: pa_debug.reset_err_stack;
4168: RAISE;
4169: END gen_org_fcst;
4170:
4171:
4417: BEGIN
4418:
4419: x_msg_count := 0;
4420: x_return_status := FND_API.G_RET_STS_SUCCESS;
4421: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Create_Res_Task_Maps');
4422: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4423: l_debug_mode := NVL(l_debug_mode, 'Y');
4424: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4425:
4418:
4419: x_msg_count := 0;
4420: x_return_status := FND_API.G_RET_STS_SUCCESS;
4421: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Create_Res_Task_Maps');
4422: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4423: l_debug_mode := NVL(l_debug_mode, 'Y');
4424: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4425:
4426: -- Check for business rules violations
4420: x_return_status := FND_API.G_RET_STS_SUCCESS;
4421: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Create_Res_Task_Maps');
4422: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4423: l_debug_mode := NVL(l_debug_mode, 'Y');
4424: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4425:
4426: -- Check for business rules violations
4427:
4428: IF P_PA_DEBUG_MODE = 'Y' THEN
4424: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4425:
4426: -- Check for business rules violations
4427:
4428: IF P_PA_DEBUG_MODE = 'Y' THEN
4429: pa_debug.g_err_stage:='Validating input parameters';
4430: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4431: END IF;
4432:
4425:
4426: -- Check for business rules violations
4427:
4428: IF P_PA_DEBUG_MODE = 'Y' THEN
4429: pa_debug.g_err_stage:='Validating input parameters';
4430: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4431: END IF;
4432:
4433: -- Check for null source_plan__version_id
4426: -- Check for business rules violations
4427:
4428: IF P_PA_DEBUG_MODE = 'Y' THEN
4429: pa_debug.g_err_stage:='Validating input parameters';
4430: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4431: END IF;
4432:
4433: -- Check for null source_plan__version_id
4434:
4433: -- Check for null source_plan__version_id
4434:
4435: IF (p_source_plan_version_id IS NULL) THEN
4436:
4437: IF P_PA_DEBUG_MODE = 'Y' THEN
4438: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4439: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4440: END IF;
4441:
4434:
4435: IF (p_source_plan_version_id IS NULL) THEN
4436:
4437: IF P_PA_DEBUG_MODE = 'Y' THEN
4438: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4439: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4440: END IF;
4441:
4442: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4435: IF (p_source_plan_version_id IS NULL) THEN
4436:
4437: IF P_PA_DEBUG_MODE = 'Y' THEN
4438: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4439: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4440: END IF;
4441:
4442: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4443: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4443: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4444: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4445: END IF;
4446:
4447: IF P_PA_DEBUG_MODE = 'Y' THEN
4448: pa_debug.g_err_stage:='Parameter validation complete';
4449: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4450: END IF;
4451:
4444: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4445: END IF;
4446:
4447: IF P_PA_DEBUG_MODE = 'Y' THEN
4448: pa_debug.g_err_stage:='Parameter validation complete';
4449: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4450: END IF;
4451:
4452: -- If adjustment percentage is null make it zero.
4445: END IF;
4446:
4447: IF P_PA_DEBUG_MODE = 'Y' THEN
4448: pa_debug.g_err_stage:='Parameter validation complete';
4449: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4450: END IF;
4451:
4452: -- If adjustment percentage is null make it zero.
4453: -- Similarly, if shift days is null make it zero
4454:
4455: l_adj_percentage := NVL(p_adj_percentage,0);
4456: l_shift_days := NVL(p_shift_days,0);
4457:
4458: IF P_PA_DEBUG_MODE = 'Y' THEN
4459: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4460: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4461:
4462: pa_debug.g_err_stage:='Adj_percentage = '||l_adj_percentage;
4455: l_adj_percentage := NVL(p_adj_percentage,0);
4456: l_shift_days := NVL(p_shift_days,0);
4457:
4458: IF P_PA_DEBUG_MODE = 'Y' THEN
4459: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4460: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4461:
4462: pa_debug.g_err_stage:='Adj_percentage = '||l_adj_percentage;
4463: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4456: l_shift_days := NVL(p_shift_days,0);
4457:
4458: IF P_PA_DEBUG_MODE = 'Y' THEN
4459: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4460: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4461:
4462: pa_debug.g_err_stage:='Adj_percentage = '||l_adj_percentage;
4463: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4464: END IF;
4458: IF P_PA_DEBUG_MODE = 'Y' THEN
4459: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4460: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4461:
4462: pa_debug.g_err_stage:='Adj_percentage = '||l_adj_percentage;
4463: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4464: END IF;
4465:
4466: --Fetch source project id
4459: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4460: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4461:
4462: pa_debug.g_err_stage:='Adj_percentage = '||l_adj_percentage;
4463: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4464: END IF;
4465:
4466: --Fetch source project id
4467:
4464: END IF;
4465:
4466: --Fetch source project id
4467:
4468: IF P_PA_DEBUG_MODE = 'Y' THEN
4469: pa_debug.g_err_stage:='Fetching source project id ';
4470: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4471: END IF;
4472:
4465:
4466: --Fetch source project id
4467:
4468: IF P_PA_DEBUG_MODE = 'Y' THEN
4469: pa_debug.g_err_stage:='Fetching source project id ';
4470: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4471: END IF;
4472:
4473: SELECT project_id
4466: --Fetch source project id
4467:
4468: IF P_PA_DEBUG_MODE = 'Y' THEN
4469: pa_debug.g_err_stage:='Fetching source project id ';
4470: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4471: END IF;
4472:
4473: SELECT project_id
4474: INTO l_source_project_id
4478: --IF target project id isn't passed, copy source projecct to target project
4479:
4480: l_target_project_id := NVL(p_target_project_id,l_source_project_id);
4481:
4482: IF P_PA_DEBUG_MODE = 'Y' THEN
4483: pa_debug.g_err_stage:='Source_project_id = '||l_source_project_id;
4484: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4485:
4486: pa_debug.g_err_stage:='Target_project_id = '||l_target_project_id;
4479:
4480: l_target_project_id := NVL(p_target_project_id,l_source_project_id);
4481:
4482: IF P_PA_DEBUG_MODE = 'Y' THEN
4483: pa_debug.g_err_stage:='Source_project_id = '||l_source_project_id;
4484: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4485:
4486: pa_debug.g_err_stage:='Target_project_id = '||l_target_project_id;
4487: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4480: l_target_project_id := NVL(p_target_project_id,l_source_project_id);
4481:
4482: IF P_PA_DEBUG_MODE = 'Y' THEN
4483: pa_debug.g_err_stage:='Source_project_id = '||l_source_project_id;
4484: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4485:
4486: pa_debug.g_err_stage:='Target_project_id = '||l_target_project_id;
4487: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4488: END IF;
4482: IF P_PA_DEBUG_MODE = 'Y' THEN
4483: pa_debug.g_err_stage:='Source_project_id = '||l_source_project_id;
4484: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4485:
4486: pa_debug.g_err_stage:='Target_project_id = '||l_target_project_id;
4487: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4488: END IF;
4489:
4490:
4483: pa_debug.g_err_stage:='Source_project_id = '||l_source_project_id;
4484: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4485:
4486: pa_debug.g_err_stage:='Target_project_id = '||l_target_project_id;
4487: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4488: END IF;
4489:
4490:
4491: -- Remove the old records, if any,from pa_fp_ra_map_tmp
4500:
4501: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN AND
4502: p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4503:
4504: IF P_PA_DEBUG_MODE = 'Y' THEN
4505: pa_debug.g_err_stage:='opening baseline_budgt_res_cur';
4506: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4507: END IF;
4508:
4501: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN AND
4502: p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4503:
4504: IF P_PA_DEBUG_MODE = 'Y' THEN
4505: pa_debug.g_err_stage:='opening baseline_budgt_res_cur';
4506: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4507: END IF;
4508:
4509: OPEN baseline_budgt_res_cur;
4502: p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4503:
4504: IF P_PA_DEBUG_MODE = 'Y' THEN
4505: pa_debug.g_err_stage:='opening baseline_budgt_res_cur';
4506: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4507: END IF;
4508:
4509: OPEN baseline_budgt_res_cur;
4510:
4509: OPEN baseline_budgt_res_cur;
4510:
4511: ELSE
4512:
4513: IF P_PA_DEBUG_MODE = 'Y' THEN
4514: pa_debug.g_err_stage:='opening same_projects_cur';
4515: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4516: END IF;
4517:
4510:
4511: ELSE
4512:
4513: IF P_PA_DEBUG_MODE = 'Y' THEN
4514: pa_debug.g_err_stage:='opening same_projects_cur';
4515: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4516: END IF;
4517:
4518: OPEN same_projects_cur;
4511: ELSE
4512:
4513: IF P_PA_DEBUG_MODE = 'Y' THEN
4514: pa_debug.g_err_stage:='opening same_projects_cur';
4515: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4516: END IF;
4517:
4518: OPEN same_projects_cur;
4519:
4526:
4527: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN AND
4528: p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4529:
4530: IF P_PA_DEBUG_MODE = 'Y' THEN
4531: pa_debug.g_err_stage:='fetching from cursor baseline_budgt_res_cur';
4532: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4533: END IF;
4534:
4527: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN AND
4528: p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4529:
4530: IF P_PA_DEBUG_MODE = 'Y' THEN
4531: pa_debug.g_err_stage:='fetching from cursor baseline_budgt_res_cur';
4532: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4533: END IF;
4534:
4535: FETCH baseline_budgt_res_cur BULK COLLECT INTO
4528: p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4529:
4530: IF P_PA_DEBUG_MODE = 'Y' THEN
4531: pa_debug.g_err_stage:='fetching from cursor baseline_budgt_res_cur';
4532: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4533: END IF;
4534:
4535: FETCH baseline_budgt_res_cur BULK COLLECT INTO
4536: l_ra_map_tmp_tbl1
4551: LIMIT g_plsql_max_array_size;
4552:
4553: ELSE
4554:
4555: IF P_PA_DEBUG_MODE = 'Y' THEN
4556: pa_debug.g_err_stage:='fetching from same_projects_cur';
4557: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4558: END IF;
4559:
4552:
4553: ELSE
4554:
4555: IF P_PA_DEBUG_MODE = 'Y' THEN
4556: pa_debug.g_err_stage:='fetching from same_projects_cur';
4557: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4558: END IF;
4559:
4560: FETCH same_projects_cur BULK COLLECT INTO
4553: ELSE
4554:
4555: IF P_PA_DEBUG_MODE = 'Y' THEN
4556: pa_debug.g_err_stage:='fetching from same_projects_cur';
4557: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4558: END IF;
4559:
4560: FETCH same_projects_cur BULK COLLECT INTO
4561: l_ra_map_tmp_tbl1
4628: p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4629:
4630: CLOSE baseline_budgt_res_cur;
4631:
4632: IF P_PA_DEBUG_MODE = 'Y' THEN
4633: pa_debug.g_err_stage:='cursor baseline_budgt_res_cur is closed';
4634: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4635: END IF;
4636:
4629:
4630: CLOSE baseline_budgt_res_cur;
4631:
4632: IF P_PA_DEBUG_MODE = 'Y' THEN
4633: pa_debug.g_err_stage:='cursor baseline_budgt_res_cur is closed';
4634: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4635: END IF;
4636:
4637: ELSE
4630: CLOSE baseline_budgt_res_cur;
4631:
4632: IF P_PA_DEBUG_MODE = 'Y' THEN
4633: pa_debug.g_err_stage:='cursor baseline_budgt_res_cur is closed';
4634: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4635: END IF;
4636:
4637: ELSE
4638:
4637: ELSE
4638:
4639: CLOSE same_projects_cur;
4640:
4641: IF P_PA_DEBUG_MODE = 'Y' THEN
4642: pa_debug.g_err_stage:='cursor same_projects_cur is closed';
4643: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4644: END IF;
4645:
4638:
4639: CLOSE same_projects_cur;
4640:
4641: IF P_PA_DEBUG_MODE = 'Y' THEN
4642: pa_debug.g_err_stage:='cursor same_projects_cur is closed';
4643: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4644: END IF;
4645:
4646: END IF;
4639: CLOSE same_projects_cur;
4640:
4641: IF P_PA_DEBUG_MODE = 'Y' THEN
4642: pa_debug.g_err_stage:='cursor same_projects_cur is closed';
4643: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4644: END IF;
4645:
4646: END IF;
4647:
4658: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)
4659: THEN
4660: BEGIN
4661:
4662: IF P_PA_DEBUG_MODE = 'Y' THEN
4663: pa_debug.g_err_stage := 'Selecting project start date';
4664: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4665: END IF;
4666:
4659: THEN
4660: BEGIN
4661:
4662: IF P_PA_DEBUG_MODE = 'Y' THEN
4663: pa_debug.g_err_stage := 'Selecting project start date';
4664: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4665: END IF;
4666:
4667: SELECT p.start_date
4660: BEGIN
4661:
4662: IF P_PA_DEBUG_MODE = 'Y' THEN
4663: pa_debug.g_err_stage := 'Selecting project start date';
4664: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4665: END IF;
4666:
4667: SELECT p.start_date
4668: INTO l_start_date
4670: WHERE p.project_id = l_source_project_id;
4671:
4672: IF l_start_date IS NULL THEN
4673:
4674: IF P_PA_DEBUG_MODE = 'Y' THEN
4675: pa_debug.g_err_stage := 'Selecting task mininum start date';
4676: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4677: END IF;
4678:
4671:
4672: IF l_start_date IS NULL THEN
4673:
4674: IF P_PA_DEBUG_MODE = 'Y' THEN
4675: pa_debug.g_err_stage := 'Selecting task mininum start date';
4676: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4677: END IF;
4678:
4679: SELECt min(t.start_date)
4672: IF l_start_date IS NULL THEN
4673:
4674: IF P_PA_DEBUG_MODE = 'Y' THEN
4675: pa_debug.g_err_stage := 'Selecting task mininum start date';
4676: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4677: END IF;
4678:
4679: SELECt min(t.start_date)
4680: INTO l_start_date
4682: WHERE t.project_id = l_source_project_id;
4683:
4684: IF l_start_date is NULL THEN
4685:
4686: IF P_PA_DEBUG_MODE = 'Y' THEN
4687: pa_debug.g_err_stage := 'Selecting budget lines minimum start date';
4688: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4689: END IF;
4690:
4683:
4684: IF l_start_date is NULL THEN
4685:
4686: IF P_PA_DEBUG_MODE = 'Y' THEN
4687: pa_debug.g_err_stage := 'Selecting budget lines minimum start date';
4688: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4689: END IF;
4690:
4691: SELECT min(bl.start_date)
4684: IF l_start_date is NULL THEN
4685:
4686: IF P_PA_DEBUG_MODE = 'Y' THEN
4687: pa_debug.g_err_stage := 'Selecting budget lines minimum start date';
4688: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4689: END IF;
4690:
4691: SELECT min(bl.start_date)
4692: INTO l_start_Date
4697:
4698: END IF; /* Minimum Project start date is null */
4699: EXCEPTION
4700: WHEN OTHERS THEN
4701: IF P_PA_DEBUG_MODE = 'Y' THEN
4702: pa_debug.g_err_stage := 'Error while fetching start date ' || sqlerrm;
4703: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4704: END IF;
4705: RAISE;
4698: END IF; /* Minimum Project start date is null */
4699: EXCEPTION
4700: WHEN OTHERS THEN
4701: IF P_PA_DEBUG_MODE = 'Y' THEN
4702: pa_debug.g_err_stage := 'Error while fetching start date ' || sqlerrm;
4703: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4704: END IF;
4705: RAISE;
4706: END;
4699: EXCEPTION
4700: WHEN OTHERS THEN
4701: IF P_PA_DEBUG_MODE = 'Y' THEN
4702: pa_debug.g_err_stage := 'Error while fetching start date ' || sqlerrm;
4703: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4704: END IF;
4705: RAISE;
4706: END;
4707:
4716: x_err_code => l_err_code,
4717: x_err_stage => l_err_stage,
4718: x_err_stack => l_err_stack);
4719: IF l_err_code <> 0 THEN
4720: IF P_PA_DEBUG_MODE = 'Y' THEN
4721: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.get_periods...';
4722: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4723: END IF;
4724:
4717: x_err_stage => l_err_stage,
4718: x_err_stack => l_err_stack);
4719: IF l_err_code <> 0 THEN
4720: IF P_PA_DEBUG_MODE = 'Y' THEN
4721: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.get_periods...';
4722: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4723: END IF;
4724:
4725: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4718: x_err_stack => l_err_stack);
4719: IF l_err_code <> 0 THEN
4720: IF P_PA_DEBUG_MODE = 'Y' THEN
4721: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.get_periods...';
4722: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4723: END IF;
4724:
4725: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4726: p_msg_name => l_err_stage);
4734: END IF;
4735: END IF;
4736: END IF; -- IF l_shift_days <> 0 AND l_target_time_phased_code IN ('G','P')
4737:
4738: IF P_PA_DEBUG_MODE = 'Y' THEN
4739: pa_debug.g_err_stage:='opening different_projects_task_cur ';
4740: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4741: END IF;
4742:
4735: END IF;
4736: END IF; -- IF l_shift_days <> 0 AND l_target_time_phased_code IN ('G','P')
4737:
4738: IF P_PA_DEBUG_MODE = 'Y' THEN
4739: pa_debug.g_err_stage:='opening different_projects_task_cur ';
4740: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4741: END IF;
4742:
4743: OPEN proj_plan_lev_diff_proj_cur ;
4736: END IF; -- IF l_shift_days <> 0 AND l_target_time_phased_code IN ('G','P')
4737:
4738: IF P_PA_DEBUG_MODE = 'Y' THEN
4739: pa_debug.g_err_stage:='opening different_projects_task_cur ';
4740: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4741: END IF;
4742:
4743: OPEN proj_plan_lev_diff_proj_cur ;
4744: LOOP
4876:
4877: EXIT WHEN NVL(l_ra_map_tmp_tbl1.last,0) < g_plsql_max_array_size;
4878: END LOOP;
4879: CLOSE different_projects_task_cur ;
4880: IF P_PA_DEBUG_MODE = 'Y' THEN
4881: pa_debug.g_err_stage:='cursor different_projects_task_cur is closed';
4882: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4883: END IF;
4884: END IF; -- task level planning
4877: EXIT WHEN NVL(l_ra_map_tmp_tbl1.last,0) < g_plsql_max_array_size;
4878: END LOOP;
4879: CLOSE different_projects_task_cur ;
4880: IF P_PA_DEBUG_MODE = 'Y' THEN
4881: pa_debug.g_err_stage:='cursor different_projects_task_cur is closed';
4882: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4883: END IF;
4884: END IF; -- task level planning
4885: END IF; -- same/different projects
4878: END LOOP;
4879: CLOSE different_projects_task_cur ;
4880: IF P_PA_DEBUG_MODE = 'Y' THEN
4881: pa_debug.g_err_stage:='cursor different_projects_task_cur is closed';
4882: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4883: END IF;
4884: END IF; -- task level planning
4885: END IF; -- same/different projects
4886:
4883: END IF;
4884: END IF; -- task level planning
4885: END IF; -- same/different projects
4886:
4887: IF P_PA_DEBUG_MODE = 'Y' THEN
4888: pa_debug.g_err_stage:='Exiting Create_Res_Task_Maps';
4889: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4890: END IF;
4891:
4884: END IF; -- task level planning
4885: END IF; -- same/different projects
4886:
4887: IF P_PA_DEBUG_MODE = 'Y' THEN
4888: pa_debug.g_err_stage:='Exiting Create_Res_Task_Maps';
4889: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4890: END IF;
4891:
4892: pa_debug.reset_err_stack;
4885: END IF; -- same/different projects
4886:
4887: IF P_PA_DEBUG_MODE = 'Y' THEN
4888: pa_debug.g_err_stage:='Exiting Create_Res_Task_Maps';
4889: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4890: END IF;
4891:
4892: pa_debug.reset_err_stack;
4893:
4888: pa_debug.g_err_stage:='Exiting Create_Res_Task_Maps';
4889: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,3);
4890: END IF;
4891:
4892: pa_debug.reset_err_stack;
4893:
4894: EXCEPTION
4895:
4896: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4908: ELSE
4909: x_msg_count := l_msg_count;
4910: END IF;
4911: x_return_status := FND_API.G_RET_STS_ERROR;
4912: IF P_PA_DEBUG_MODE = 'Y' THEN
4913: pa_debug.g_err_stage:='Invalid Arguments Passed';
4914: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4915: END IF;
4916: pa_debug.reset_err_stack;
4909: x_msg_count := l_msg_count;
4910: END IF;
4911: x_return_status := FND_API.G_RET_STS_ERROR;
4912: IF P_PA_DEBUG_MODE = 'Y' THEN
4913: pa_debug.g_err_stage:='Invalid Arguments Passed';
4914: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4915: END IF;
4916: pa_debug.reset_err_stack;
4917: RAISE;
4910: END IF;
4911: x_return_status := FND_API.G_RET_STS_ERROR;
4912: IF P_PA_DEBUG_MODE = 'Y' THEN
4913: pa_debug.g_err_stage:='Invalid Arguments Passed';
4914: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4915: END IF;
4916: pa_debug.reset_err_stack;
4917: RAISE;
4918:
4912: IF P_PA_DEBUG_MODE = 'Y' THEN
4913: pa_debug.g_err_stage:='Invalid Arguments Passed';
4914: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4915: END IF;
4916: pa_debug.reset_err_stack;
4917: RAISE;
4918:
4919: WHEN Others THEN
4920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4921: x_msg_count := 1;
4922: x_msg_data := SQLERRM;
4923: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_org_fcst_gen_pub'
4924: ,p_procedure_name => 'CREATE_RES_TASK_MAPS');
4925: IF P_PA_DEBUG_MODE = 'Y' THEN
4926: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4927: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4928: END IF;
4929: pa_debug.reset_err_stack;
4922: x_msg_data := SQLERRM;
4923: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_org_fcst_gen_pub'
4924: ,p_procedure_name => 'CREATE_RES_TASK_MAPS');
4925: IF P_PA_DEBUG_MODE = 'Y' THEN
4926: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4927: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4928: END IF;
4929: pa_debug.reset_err_stack;
4930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4923: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_org_fcst_gen_pub'
4924: ,p_procedure_name => 'CREATE_RES_TASK_MAPS');
4925: IF P_PA_DEBUG_MODE = 'Y' THEN
4926: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4927: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4928: END IF;
4929: pa_debug.reset_err_stack;
4930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4931:
4925: IF P_PA_DEBUG_MODE = 'Y' THEN
4926: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4927: pa_debug.write('create_res_task_maps: ' || g_module_name,pa_debug.g_err_stage,5);
4928: END IF;
4929: pa_debug.reset_err_stack;
4930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4931:
4932: END CREATE_RES_TASK_MAPS;
4933:
4969: BEGIN
4970:
4971: x_msg_count := 0;
4972: x_return_status := FND_API.G_RET_STS_SUCCESS;
4973: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Copy_Resource_Assignments');
4974: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4975: l_debug_mode := NVL(l_debug_mode, 'Y');
4976: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4977:
4970:
4971: x_msg_count := 0;
4972: x_return_status := FND_API.G_RET_STS_SUCCESS;
4973: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Copy_Resource_Assignments');
4974: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4975: l_debug_mode := NVL(l_debug_mode, 'Y');
4976: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4977:
4978: /*
4972: x_return_status := FND_API.G_RET_STS_SUCCESS;
4973: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Copy_Resource_Assignments');
4974: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4975: l_debug_mode := NVL(l_debug_mode, 'Y');
4976: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4977:
4978: /*
4979: * Check if source_verion_id, target_version_id are NULL, if so throw
4980: * an error message
4979: * Check if source_verion_id, target_version_id are NULL, if so throw
4980: * an error message
4981: */
4982:
4983: IF P_PA_DEBUG_MODE = 'Y' THEN
4984: pa_debug.g_err_stage := 'Checking for valid parameters:';
4985: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
4986: END IF;
4987:
4980: * an error message
4981: */
4982:
4983: IF P_PA_DEBUG_MODE = 'Y' THEN
4984: pa_debug.g_err_stage := 'Checking for valid parameters:';
4985: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
4986: END IF;
4987:
4988: IF (p_source_plan_version_id IS NULL) OR
4981: */
4982:
4983: IF P_PA_DEBUG_MODE = 'Y' THEN
4984: pa_debug.g_err_stage := 'Checking for valid parameters:';
4985: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
4986: END IF;
4987:
4988: IF (p_source_plan_version_id IS NULL) OR
4989: (p_target_plan_version_id IS NULL)
4988: IF (p_source_plan_version_id IS NULL) OR
4989: (p_target_plan_version_id IS NULL)
4990: THEN
4991:
4992: IF P_PA_DEBUG_MODE = 'Y' THEN
4993: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4994: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4995:
4996: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4989: (p_target_plan_version_id IS NULL)
4990: THEN
4991:
4992: IF P_PA_DEBUG_MODE = 'Y' THEN
4993: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4994: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4995:
4996: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4997: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4990: THEN
4991:
4992: IF P_PA_DEBUG_MODE = 'Y' THEN
4993: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4994: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4995:
4996: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4997: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4998: END IF;
4992: IF P_PA_DEBUG_MODE = 'Y' THEN
4993: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4994: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4995:
4996: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4997: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4998: END IF;
4999:
5000: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4993: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4994: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4995:
4996: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4997: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4998: END IF;
4999:
5000: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
5001: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5001: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5003: END IF;
5004:
5005: IF P_PA_DEBUG_MODE = 'Y' THEN
5006: pa_debug.g_err_stage := 'Parameter validation complete';
5007: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5008: END IF;
5009:
5002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5003: END IF;
5004:
5005: IF P_PA_DEBUG_MODE = 'Y' THEN
5006: pa_debug.g_err_stage := 'Parameter validation complete';
5007: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5008: END IF;
5009:
5010: --If adj_percentage is zero make it null
5003: END IF;
5004:
5005: IF P_PA_DEBUG_MODE = 'Y' THEN
5006: pa_debug.g_err_stage := 'Parameter validation complete';
5007: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5008: END IF;
5009:
5010: --If adj_percentage is zero make it null
5011:
5012: l_adj_percentage := NVL(p_adj_percentage,0);
5013:
5014: --Fetching the flags of target version using fin_plan_prefernce_code
5015:
5016: IF P_PA_DEBUG_MODE = 'Y' THEN
5017: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
5018: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5019: END IF;
5020:
5013:
5014: --Fetching the flags of target version using fin_plan_prefernce_code
5015:
5016: IF P_PA_DEBUG_MODE = 'Y' THEN
5017: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
5018: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5019: END IF;
5020:
5021: SELECT DECODE(fin_plan_preference_code
5014: --Fetching the flags of target version using fin_plan_prefernce_code
5015:
5016: IF P_PA_DEBUG_MODE = 'Y' THEN
5017: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
5018: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5019: END IF;
5020:
5021: SELECT DECODE(fin_plan_preference_code
5022: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
5030: ,l_target_project_id
5031: FROM pa_proj_fp_options
5032: WHERE fin_plan_version_id=p_target_plan_version_id;
5033: /*
5034: IF P_PA_DEBUG_MODE = 'Y' THEN
5035: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5036: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5037: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5038: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5031: FROM pa_proj_fp_options
5032: WHERE fin_plan_version_id=p_target_plan_version_id;
5033: /*
5034: IF P_PA_DEBUG_MODE = 'Y' THEN
5035: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5036: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5037: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5038: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5039: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
5032: WHERE fin_plan_version_id=p_target_plan_version_id;
5033: /*
5034: IF P_PA_DEBUG_MODE = 'Y' THEN
5035: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5036: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5037: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5038: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5039: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
5040: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5033: /*
5034: IF P_PA_DEBUG_MODE = 'Y' THEN
5035: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5036: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5037: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5038: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5039: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
5040: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5041: END IF;
5034: IF P_PA_DEBUG_MODE = 'Y' THEN
5035: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5036: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5037: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5038: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5039: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
5040: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5041: END IF;
5042: */
5035: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5036: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5037: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5038: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5039: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
5040: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5041: END IF;
5042: */
5043: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
5036: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5037: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5038: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5039: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
5040: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5041: END IF;
5042: */
5043: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
5044:
5041: END IF;
5042: */
5043: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
5044:
5045: IF P_PA_DEBUG_MODE = 'Y' THEN
5046: pa_debug.g_err_stage:='Copying the source version records as target version records';
5047: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5048: END IF;
5049:
5042: */
5043: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
5044:
5045: IF P_PA_DEBUG_MODE = 'Y' THEN
5046: pa_debug.g_err_stage:='Copying the source version records as target version records';
5047: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5048: END IF;
5049:
5050: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5043: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
5044:
5045: IF P_PA_DEBUG_MODE = 'Y' THEN
5046: pa_debug.g_err_stage:='Copying the source version records as target version records';
5047: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5048: END IF;
5049:
5050: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5051:
5049:
5050: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5051:
5052: --Bug 3974569. Need not have pa_rbs_plans_out_tmp in the FROM clause if the parameter is N
5053: IF P_PA_DEBUG_MODE = 'Y' THEN
5054: pa_debug.g_err_stage:='p_rbs_map_diff_flag '||p_rbs_map_diff_flag;
5055: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5056: END IF;
5057:
5050: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5051:
5052: --Bug 3974569. Need not have pa_rbs_plans_out_tmp in the FROM clause if the parameter is N
5053: IF P_PA_DEBUG_MODE = 'Y' THEN
5054: pa_debug.g_err_stage:='p_rbs_map_diff_flag '||p_rbs_map_diff_flag;
5055: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5056: END IF;
5057:
5058: IF p_rbs_map_diff_flag ='N' THEN
5051:
5052: --Bug 3974569. Need not have pa_rbs_plans_out_tmp in the FROM clause if the parameter is N
5053: IF P_PA_DEBUG_MODE = 'Y' THEN
5054: pa_debug.g_err_stage:='p_rbs_map_diff_flag '||p_rbs_map_diff_flag;
5055: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5056: END IF;
5057:
5058: IF p_rbs_map_diff_flag ='N' THEN
5059:
5308:
5309: --For Bug 3974569. Take rbs_element_id and txn_accum_header_id from pa_rbs_plans_out_tmp
5310: ELSIF p_rbs_map_diff_flag ='Y' THEN --IF p_rbs_map_diff_flag ='N' THEN
5311:
5312: IF P_PA_DEBUG_MODE = 'Y' THEN
5313:
5314: SELECT COUNT(*)
5315: INTO l_tmp
5316: FROM PA_FP_RA_MAP_TMP;
5314: SELECT COUNT(*)
5315: INTO l_tmp
5316: FROM PA_FP_RA_MAP_TMP;
5317:
5318: pa_debug.g_err_stage:='PA_FP_RA_MAP_TMP count '||l_tmp;
5319: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5320:
5321: SELECT COUNT(*)
5322: INTO l_tmp
5315: INTO l_tmp
5316: FROM PA_FP_RA_MAP_TMP;
5317:
5318: pa_debug.g_err_stage:='PA_FP_RA_MAP_TMP count '||l_tmp;
5319: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5320:
5321: SELECT COUNT(*)
5322: INTO l_tmp
5323: FROM pa_rbs_plans_out_tmp;
5321: SELECT COUNT(*)
5322: INTO l_tmp
5323: FROM pa_rbs_plans_out_tmp;
5324:
5325: pa_debug.g_err_stage:='pa_rbs_plans_out_tmp count '||l_tmp;
5326: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5327:
5328: END IF;
5329:
5322: INTO l_tmp
5323: FROM pa_rbs_plans_out_tmp;
5324:
5325: pa_debug.g_err_stage:='pa_rbs_plans_out_tmp count '||l_tmp;
5326: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5327:
5328: END IF;
5329:
5330: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
5581:
5582: END IF;--IF p_rbs_map_diff_flag ='N' THEN
5583:
5584: l_tmp := SQL%ROWCOUNT;
5585: IF P_PA_DEBUG_MODE = 'Y' THEN
5586: pa_debug.g_err_stage:='No. of records inserted into PRA '||l_tmp;
5587: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589:
5582: END IF;--IF p_rbs_map_diff_flag ='N' THEN
5583:
5584: l_tmp := SQL%ROWCOUNT;
5585: IF P_PA_DEBUG_MODE = 'Y' THEN
5586: pa_debug.g_err_stage:='No. of records inserted into PRA '||l_tmp;
5587: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589:
5590: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5583:
5584: l_tmp := SQL%ROWCOUNT;
5585: IF P_PA_DEBUG_MODE = 'Y' THEN
5586: pa_debug.g_err_stage:='No. of records inserted into PRA '||l_tmp;
5587: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589:
5590: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5591: IF P_PA_DEBUG_MODE = 'Y' THEN
5587: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5588: END IF;
5589:
5590: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5591: IF P_PA_DEBUG_MODE = 'Y' THEN
5592: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
5593: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5594: END IF;
5595: pa_debug.reset_err_stack; -- bug:- 2815593
5588: END IF;
5589:
5590: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5591: IF P_PA_DEBUG_MODE = 'Y' THEN
5592: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
5593: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5594: END IF;
5595: pa_debug.reset_err_stack; -- bug:- 2815593
5596: EXCEPTION
5589:
5590: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
5591: IF P_PA_DEBUG_MODE = 'Y' THEN
5592: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
5593: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5594: END IF;
5595: pa_debug.reset_err_stack; -- bug:- 2815593
5596: EXCEPTION
5597:
5591: IF P_PA_DEBUG_MODE = 'Y' THEN
5592: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
5593: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
5594: END IF;
5595: pa_debug.reset_err_stack; -- bug:- 2815593
5596: EXCEPTION
5597:
5598: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5599: l_msg_count := FND_MSG_PUB.count_msg;
5611: x_msg_count := l_msg_count;
5612: END IF;
5613: x_return_status := FND_API.G_RET_STS_ERROR;
5614:
5615: IF P_PA_DEBUG_MODE = 'Y' THEN
5616: pa_debug.g_err_stage:='Invalid Arguments Passed';
5617: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5618: END IF;
5619: pa_debug.reset_err_stack;
5612: END IF;
5613: x_return_status := FND_API.G_RET_STS_ERROR;
5614:
5615: IF P_PA_DEBUG_MODE = 'Y' THEN
5616: pa_debug.g_err_stage:='Invalid Arguments Passed';
5617: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5618: END IF;
5619: pa_debug.reset_err_stack;
5620: RAISE;
5613: x_return_status := FND_API.G_RET_STS_ERROR;
5614:
5615: IF P_PA_DEBUG_MODE = 'Y' THEN
5616: pa_debug.g_err_stage:='Invalid Arguments Passed';
5617: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5618: END IF;
5619: pa_debug.reset_err_stack;
5620: RAISE;
5621:
5615: IF P_PA_DEBUG_MODE = 'Y' THEN
5616: pa_debug.g_err_stage:='Invalid Arguments Passed';
5617: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5618: END IF;
5619: pa_debug.reset_err_stack;
5620: RAISE;
5621:
5622: WHEN Others THEN
5623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5625: x_msg_data := SQLERRM;
5626: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'pa_fp_org_fcst_gen_pub'
5627: ,p_procedure_name => 'COPY_RESOURCE_ASSIGNMENTS');
5628:
5629: IF P_PA_DEBUG_MODE = 'Y' THEN
5630: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5631: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5632: END IF;
5633: pa_debug.reset_err_stack;
5626: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'pa_fp_org_fcst_gen_pub'
5627: ,p_procedure_name => 'COPY_RESOURCE_ASSIGNMENTS');
5628:
5629: IF P_PA_DEBUG_MODE = 'Y' THEN
5630: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5631: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5632: END IF;
5633: pa_debug.reset_err_stack;
5634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5627: ,p_procedure_name => 'COPY_RESOURCE_ASSIGNMENTS');
5628:
5629: IF P_PA_DEBUG_MODE = 'Y' THEN
5630: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5631: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5632: END IF;
5633: pa_debug.reset_err_stack;
5634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5635:
5629: IF P_PA_DEBUG_MODE = 'Y' THEN
5630: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5631: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
5632: END IF;
5633: pa_debug.reset_err_stack;
5634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5635:
5636: END Copy_Resource_Assignments;
5637:
5687: BEGIN
5688:
5689: x_msg_count := 0;
5690: x_return_status := FND_API.G_RET_STS_SUCCESS;
5691: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Copy_Budget_Lines');
5692: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5693: l_debug_mode := NVL(l_debug_mode, 'Y');
5694: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5695:
5688:
5689: x_msg_count := 0;
5690: x_return_status := FND_API.G_RET_STS_SUCCESS;
5691: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Copy_Budget_Lines');
5692: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5693: l_debug_mode := NVL(l_debug_mode, 'Y');
5694: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5695:
5696: -- Checking for all valid input parametrs
5690: x_return_status := FND_API.G_RET_STS_SUCCESS;
5691: pa_debug.set_err_stack('pa_fp_org_fcst_gen_pub.Copy_Budget_Lines');
5692: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5693: l_debug_mode := NVL(l_debug_mode, 'Y');
5694: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5695:
5696: -- Checking for all valid input parametrs
5697:
5698: IF P_PA_DEBUG_MODE = 'Y' THEN
5694: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5695:
5696: -- Checking for all valid input parametrs
5697:
5698: IF P_PA_DEBUG_MODE = 'Y' THEN
5699: pa_debug.g_err_stage := 'Checking for valid parameters:';
5700: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5701: END IF;
5702:
5695:
5696: -- Checking for all valid input parametrs
5697:
5698: IF P_PA_DEBUG_MODE = 'Y' THEN
5699: pa_debug.g_err_stage := 'Checking for valid parameters:';
5700: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5701: END IF;
5702:
5703: IF (p_source_plan_version_id IS NULL) OR
5696: -- Checking for all valid input parametrs
5697:
5698: IF P_PA_DEBUG_MODE = 'Y' THEN
5699: pa_debug.g_err_stage := 'Checking for valid parameters:';
5700: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5701: END IF;
5702:
5703: IF (p_source_plan_version_id IS NULL) OR
5704: (p_target_plan_version_id IS NULL)
5703: IF (p_source_plan_version_id IS NULL) OR
5704: (p_target_plan_version_id IS NULL)
5705: THEN
5706:
5707: IF P_PA_DEBUG_MODE = 'Y' THEN
5708: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5709: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5710: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
5711: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5704: (p_target_plan_version_id IS NULL)
5705: THEN
5706:
5707: IF P_PA_DEBUG_MODE = 'Y' THEN
5708: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5709: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5710: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
5711: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5712: END IF;
5705: THEN
5706:
5707: IF P_PA_DEBUG_MODE = 'Y' THEN
5708: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5709: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5710: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
5711: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5712: END IF;
5713:
5706:
5707: IF P_PA_DEBUG_MODE = 'Y' THEN
5708: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5709: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5710: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
5711: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5712: END IF;
5713:
5714: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
5707: IF P_PA_DEBUG_MODE = 'Y' THEN
5708: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5709: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5710: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
5711: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5712: END IF;
5713:
5714: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
5715: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5717: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5718:
5719: END IF;
5720:
5721: IF P_PA_DEBUG_MODE = 'Y' THEN
5722: pa_debug.g_err_stage := 'Parameter validation complete';
5723: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5724: END IF;
5725: /*
5718:
5719: END IF;
5720:
5721: IF P_PA_DEBUG_MODE = 'Y' THEN
5722: pa_debug.g_err_stage := 'Parameter validation complete';
5723: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5724: END IF;
5725: /*
5726: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
5719: END IF;
5720:
5721: IF P_PA_DEBUG_MODE = 'Y' THEN
5722: pa_debug.g_err_stage := 'Parameter validation complete';
5723: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5724: END IF;
5725: /*
5726: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
5727: IF P_PA_DEBUG_MODE = 'Y' THEN
5722: pa_debug.g_err_stage := 'Parameter validation complete';
5723: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5724: END IF;
5725: /*
5726: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
5727: IF P_PA_DEBUG_MODE = 'Y' THEN
5728: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5729: END IF;
5730: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
5723: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5724: END IF;
5725: /*
5726: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
5727: IF P_PA_DEBUG_MODE = 'Y' THEN
5728: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5729: END IF;
5730: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
5731: IF P_PA_DEBUG_MODE = 'Y' THEN
5724: END IF;
5725: /*
5726: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
5727: IF P_PA_DEBUG_MODE = 'Y' THEN
5728: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5729: END IF;
5730: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
5731: IF P_PA_DEBUG_MODE = 'Y' THEN
5732: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5726: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
5727: IF P_PA_DEBUG_MODE = 'Y' THEN
5728: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5729: END IF;
5730: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
5731: IF P_PA_DEBUG_MODE = 'Y' THEN
5732: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5733: END IF;
5734: */
5727: IF P_PA_DEBUG_MODE = 'Y' THEN
5728: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5729: END IF;
5730: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
5731: IF P_PA_DEBUG_MODE = 'Y' THEN
5732: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5733: END IF;
5734: */
5735: --make adj percentage zero if passed as null
5728: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5729: END IF;
5730: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
5731: IF P_PA_DEBUG_MODE = 'Y' THEN
5732: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5733: END IF;
5734: */
5735: --make adj percentage zero if passed as null
5736:
5735: --make adj percentage zero if passed as null
5736:
5737: l_adj_percentage := NVL(p_adj_percentage,0);
5738: /*
5739: pa_debug.g_err_stage:='Adj_percentage'||l_adj_percentage;
5740: IF P_PA_DEBUG_MODE = 'Y' THEN
5741: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5742: END IF;
5743: */
5736:
5737: l_adj_percentage := NVL(p_adj_percentage,0);
5738: /*
5739: pa_debug.g_err_stage:='Adj_percentage'||l_adj_percentage;
5740: IF P_PA_DEBUG_MODE = 'Y' THEN
5741: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5742: END IF;
5743: */
5744: -- Fetching the flags of target version using fin_plan_prefernce_code
5737: l_adj_percentage := NVL(p_adj_percentage,0);
5738: /*
5739: pa_debug.g_err_stage:='Adj_percentage'||l_adj_percentage;
5740: IF P_PA_DEBUG_MODE = 'Y' THEN
5741: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5742: END IF;
5743: */
5744: -- Fetching the flags of target version using fin_plan_prefernce_code
5745:
5743: */
5744: -- Fetching the flags of target version using fin_plan_prefernce_code
5745:
5746:
5747: IF P_PA_DEBUG_MODE = 'Y' THEN
5748: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
5749: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5750: END IF;
5751:
5744: -- Fetching the flags of target version using fin_plan_prefernce_code
5745:
5746:
5747: IF P_PA_DEBUG_MODE = 'Y' THEN
5748: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
5749: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5750: END IF;
5751:
5752: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
5745:
5746:
5747: IF P_PA_DEBUG_MODE = 'Y' THEN
5748: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
5749: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5750: END IF;
5751:
5752: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
5753: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
5759: ,l_cost_flag
5760: FROM pa_proj_fp_options
5761: WHERE fin_plan_version_id=p_target_plan_version_id;
5762: /*
5763: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5764: IF P_PA_DEBUG_MODE = 'Y' THEN
5765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5766: END IF;
5767: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5760: FROM pa_proj_fp_options
5761: WHERE fin_plan_version_id=p_target_plan_version_id;
5762: /*
5763: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5764: IF P_PA_DEBUG_MODE = 'Y' THEN
5765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5766: END IF;
5767: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5768: IF P_PA_DEBUG_MODE = 'Y' THEN
5761: WHERE fin_plan_version_id=p_target_plan_version_id;
5762: /*
5763: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5764: IF P_PA_DEBUG_MODE = 'Y' THEN
5765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5766: END IF;
5767: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5768: IF P_PA_DEBUG_MODE = 'Y' THEN
5769: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5763: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
5764: IF P_PA_DEBUG_MODE = 'Y' THEN
5765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5766: END IF;
5767: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5768: IF P_PA_DEBUG_MODE = 'Y' THEN
5769: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5770: END IF;
5771: */
5764: IF P_PA_DEBUG_MODE = 'Y' THEN
5765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5766: END IF;
5767: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5768: IF P_PA_DEBUG_MODE = 'Y' THEN
5769: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5770: END IF;
5771: */
5772: -- Checking if source and target version period profiles match
5765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5766: END IF;
5767: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
5768: IF P_PA_DEBUG_MODE = 'Y' THEN
5769: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5770: END IF;
5771: */
5772: -- Checking if source and target version period profiles match
5773:
5779: x_return_status => x_return_status,
5780: x_msg_count => x_msg_count,
5781: x_msg_data => x_msg_data);
5782:
5783: IF P_PA_DEBUG_MODE = 'Y' THEN
5784: pa_debug.g_err_stage:='Inserting budget_lines';
5785: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5786: END IF;
5787:
5780: x_msg_count => x_msg_count,
5781: x_msg_data => x_msg_data);
5782:
5783: IF P_PA_DEBUG_MODE = 'Y' THEN
5784: pa_debug.g_err_stage:='Inserting budget_lines';
5785: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5786: END IF;
5787:
5788: -- Bug 3927244: Actuals need to be copied from forecast to forecast within the same project for FINPLAN versions
5781: x_msg_data => x_msg_data);
5782:
5783: IF P_PA_DEBUG_MODE = 'Y' THEN
5784: pa_debug.g_err_stage:='Inserting budget_lines';
5785: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5786: END IF;
5787:
5788: -- Bug 3927244: Actuals need to be copied from forecast to forecast within the same project for FINPLAN versions
5789:
6064: ,x_msg_count => l_msg_count
6065: ,x_msg_data => l_msg_data);
6066:
6067: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6068: IF P_PA_debug_mode = 'Y' THEN
6069: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
6070: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
6071: END IF;
6072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6065: ,x_msg_data => l_msg_data);
6066:
6067: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6068: IF P_PA_debug_mode = 'Y' THEN
6069: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
6070: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
6071: END IF;
6072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6073: END IF;
6066:
6067: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6068: IF P_PA_debug_mode = 'Y' THEN
6069: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
6070: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
6071: END IF;
6072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6073: END IF;
6074: END IF;
6072: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6073: END IF;
6074: END IF;
6075:
6076: IF P_PA_DEBUG_MODE = 'Y' THEN
6077: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
6078: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
6079: END IF;
6080: pa_debug.reset_err_stack; -- bug:- 2815593
6073: END IF;
6074: END IF;
6075:
6076: IF P_PA_DEBUG_MODE = 'Y' THEN
6077: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
6078: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
6079: END IF;
6080: pa_debug.reset_err_stack; -- bug:- 2815593
6081: EXCEPTION
6074: END IF;
6075:
6076: IF P_PA_DEBUG_MODE = 'Y' THEN
6077: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
6078: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
6079: END IF;
6080: pa_debug.reset_err_stack; -- bug:- 2815593
6081: EXCEPTION
6082:
6076: IF P_PA_DEBUG_MODE = 'Y' THEN
6077: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
6078: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
6079: END IF;
6080: pa_debug.reset_err_stack; -- bug:- 2815593
6081: EXCEPTION
6082:
6083: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6084: l_msg_count := FND_MSG_PUB.count_msg;
6096: x_msg_count := l_msg_count;
6097: END IF;
6098: x_return_status := FND_API.G_RET_STS_ERROR;
6099:
6100: IF P_PA_DEBUG_MODE = 'Y' THEN
6101: pa_debug.g_err_stage:='Invalid arguments passed';
6102: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
6103: END IF;
6104: pa_debug.reset_err_stack;
6097: END IF;
6098: x_return_status := FND_API.G_RET_STS_ERROR;
6099:
6100: IF P_PA_DEBUG_MODE = 'Y' THEN
6101: pa_debug.g_err_stage:='Invalid arguments passed';
6102: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
6103: END IF;
6104: pa_debug.reset_err_stack;
6105: RAISE;
6098: x_return_status := FND_API.G_RET_STS_ERROR;
6099:
6100: IF P_PA_DEBUG_MODE = 'Y' THEN
6101: pa_debug.g_err_stage:='Invalid arguments passed';
6102: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
6103: END IF;
6104: pa_debug.reset_err_stack;
6105: RAISE;
6106:
6100: IF P_PA_DEBUG_MODE = 'Y' THEN
6101: pa_debug.g_err_stage:='Invalid arguments passed';
6102: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
6103: END IF;
6104: pa_debug.reset_err_stack;
6105: RAISE;
6106:
6107: WHEN Others THEN
6108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6110: x_msg_data := SQLERRM;
6111: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'pa_fp_org_fcst_gen_pub'
6112: ,p_procedure_name => 'COPY_BUDGET_LINES');
6113:
6114: IF P_PA_DEBUG_MODE = 'Y' THEN
6115: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
6116: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
6117: END IF;
6118: pa_debug.reset_err_stack;
6111: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'pa_fp_org_fcst_gen_pub'
6112: ,p_procedure_name => 'COPY_BUDGET_LINES');
6113:
6114: IF P_PA_DEBUG_MODE = 'Y' THEN
6115: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
6116: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
6117: END IF;
6118: pa_debug.reset_err_stack;
6119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6112: ,p_procedure_name => 'COPY_BUDGET_LINES');
6113:
6114: IF P_PA_DEBUG_MODE = 'Y' THEN
6115: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
6116: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
6117: END IF;
6118: pa_debug.reset_err_stack;
6119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6120: END Copy_Budget_Lines;
6114: IF P_PA_DEBUG_MODE = 'Y' THEN
6115: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
6116: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
6117: END IF;
6118: pa_debug.reset_err_stack;
6119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6120: END Copy_Budget_Lines;
6121:
6122: