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