17: -- If p_action = null, then this procedure acts as a lock toggle (if the version was
18: -- originally locked, it would unlock the version)
19: -- If p_person_id is null, then it will find the person id based on p_user_id.
20: -- This procedure assumes that a person can only unlock the versions he/she has locked.
21: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
22:
23: PROCEDURE lock_unlock_version
24: (p_budget_version_id IN pa_budget_versions.budget_version_id%TYPE,
25: p_record_version_number IN pa_budget_versions.record_version_number%TYPE,
61: BEGIN
62: --FND_MSG_PUB.initialize;
63: l_initial_msg_count := FND_MSG_PUB.count_msg;
64:
65: IF P_PA_DEBUG_MODE = 'Y' THEN
66: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.lock_unlock_version');
67: END IF;
68: x_msg_count := 0;
69:
62: --FND_MSG_PUB.initialize;
63: l_initial_msg_count := FND_MSG_PUB.count_msg;
64:
65: IF P_PA_DEBUG_MODE = 'Y' THEN
66: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.lock_unlock_version');
67: END IF;
68: x_msg_count := 0;
69:
70: /* CHECK FOR BUSINESS RULES VIOLATIONS */
82: x_valid_flag => l_valid_flag,
83: x_return_status => l_return_status,
84: x_error_msg_code => l_error_msg_code);
85: if x_return_status = FND_API.G_RET_STS_ERROR then
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.write_file('lock_unlock_version: ' || 'record version number error ');
88: END IF;
89: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
90: p_msg_name => l_error_msg_code);
83: x_return_status => l_return_status,
84: x_error_msg_code => l_error_msg_code);
85: if x_return_status = FND_API.G_RET_STS_ERROR then
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.write_file('lock_unlock_version: ' || 'record version number error ');
88: END IF;
89: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
90: p_msg_name => l_error_msg_code);
91: end if;
151: x_msg_count := l_msg_count;
152: else
153: x_msg_count := l_msg_count;
154: end if;
155: IF p_pa_debug_mode = 'Y' THEN
156: pa_debug.reset_err_stack;
157: END IF;
158: return;
159: end if;
152: else
153: x_msg_count := l_msg_count;
154: end if;
155: IF p_pa_debug_mode = 'Y' THEN
156: pa_debug.reset_err_stack;
157: END IF;
158: return;
159: end if;
160:
158: return;
159: end if;
160:
161: /* IF NO BUSINESS RULES VIOLATIONS, PROCEED WITH LOCK/UNLOCK */
162: IF P_PA_DEBUG_MODE = 'Y' THEN
163: pa_debug.write_file('lock_unlock_version: ' || 'no business rules violations');
164: END IF;
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166: --if l_msg_count = 0 then
159: end if;
160:
161: /* IF NO BUSINESS RULES VIOLATIONS, PROCEED WITH LOCK/UNLOCK */
162: IF P_PA_DEBUG_MODE = 'Y' THEN
163: pa_debug.write_file('lock_unlock_version: ' || 'no business rules violations');
164: END IF;
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166: --if l_msg_count = 0 then
167: if l_msg_count = l_initial_msg_count then
220: x_msg_count := 1;
221: x_msg_data := SQLERRM;
222: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
223: p_procedure_name => 'lock_unlock_version');
224: IF p_pa_debug_mode = 'Y' THEN
225: pa_debug.reset_err_stack;
226: END IF;
227: raise FND_API.G_EXC_UNEXPECTED_ERROR;
228: END lock_unlock_version;
221: x_msg_data := SQLERRM;
222: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PUB',
223: p_procedure_name => 'lock_unlock_version');
224: IF p_pa_debug_mode = 'Y' THEN
225: pa_debug.reset_err_stack;
226: END IF;
227: raise FND_API.G_EXC_UNEXPECTED_ERROR;
228: END lock_unlock_version;
229:
353: OR pbl.pfc_cur_conv_rejection_code IS NOT NULL));
354:
355: BEGIN
356: FND_MSG_PUB.initialize;
357: IF p_pa_debug_mode = 'Y' THEN
358: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Baseline_FinPlan');
359: END IF;
360: l_created_by:=FND_GLOBAL.user_id;
361: l_msg_count := 0;
354:
355: BEGIN
356: FND_MSG_PUB.initialize;
357: IF p_pa_debug_mode = 'Y' THEN
358: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Baseline_FinPlan');
359: END IF;
360: l_created_by:=FND_GLOBAL.user_id;
361: l_msg_count := 0;
362:
374: x_valid_flag => l_valid2_flag,
375: x_return_status => x_return_status, --l_return_status, Bug 2691822
376: x_error_msg_code => l_error_msg_code);
377: if not((l_valid1_flag='Y') and (l_valid2_flag='Y')) then
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write_file('Baseline_FinPlan: ' || 'BUSINESS RULE VIOLATION: Check_Record_Version_Number failed');
380: END IF;
381: x_return_status := FND_API.G_RET_STS_ERROR;
382: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
375: x_return_status => x_return_status, --l_return_status, Bug 2691822
376: x_error_msg_code => l_error_msg_code);
377: if not((l_valid1_flag='Y') and (l_valid2_flag='Y')) then
378: IF P_PA_DEBUG_MODE = 'Y' THEN
379: pa_debug.write_file('Baseline_FinPlan: ' || 'BUSINESS RULE VIOLATION: Check_Record_Version_Number failed');
380: END IF;
381: x_return_status := FND_API.G_RET_STS_ERROR;
382: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
383: p_msg_name => l_error_msg_code);
399: x_msg_count := l_msg_count;
400: else
401: x_msg_count := l_msg_count;
402: end if;
403: IF p_pa_debug_mode = 'Y' THEN
404: pa_debug.reset_err_stack;
405: END IF;
406: return;
407: end if;
400: else
401: x_msg_count := l_msg_count;
402: end if;
403: IF p_pa_debug_mode = 'Y' THEN
404: pa_debug.reset_err_stack;
405: END IF;
406: return;
407: end if;
408:
475: OPEN c_chk_rej_codes;
476: FETCH c_chk_rej_codes INTO l_dummy;
477: IF c_chk_rej_codes%FOUND THEN
478:
479: IF P_PA_DEBUG_MODE = 'Y' THEN
480: pa_debug.g_err_stage:= 'budget lines with rejection codes EXIST in ar version';
481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
482: END IF;
483:
476: FETCH c_chk_rej_codes INTO l_dummy;
477: IF c_chk_rej_codes%FOUND THEN
478:
479: IF P_PA_DEBUG_MODE = 'Y' THEN
480: pa_debug.g_err_stage:= 'budget lines with rejection codes EXIST in ar version';
481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
482: END IF;
483:
484: PA_UTILS.ADD_MESSAGE
477: IF c_chk_rej_codes%FOUND THEN
478:
479: IF P_PA_DEBUG_MODE = 'Y' THEN
480: pa_debug.g_err_stage:= 'budget lines with rejection codes EXIST in ar version';
481: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
482: END IF;
483:
484: PA_UTILS.ADD_MESSAGE
485: (p_app_short_name => 'PA',
667: --and hence partial implementation of change orders should be supported even after baselining.
668: IF l_ar_flag ='Y' AND
669: NVL(l_auto_baseline_project,'N')='N' THEN
670:
671: IF P_PA_DEBUG_MODE = 'Y' THEN
672: pa_debug.g_err_stage := 'Updating the rev_partially_impl_flag in partially implemented CIs';
673: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
674: END IF;
675:
668: IF l_ar_flag ='Y' AND
669: NVL(l_auto_baseline_project,'N')='N' THEN
670:
671: IF P_PA_DEBUG_MODE = 'Y' THEN
672: pa_debug.g_err_stage := 'Updating the rev_partially_impl_flag in partially implemented CIs';
673: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
674: END IF;
675:
676: UPDATE pa_budget_versions
669: NVL(l_auto_baseline_project,'N')='N' THEN
670:
671: IF P_PA_DEBUG_MODE = 'Y' THEN
672: pa_debug.g_err_stage := 'Updating the rev_partially_impl_flag in partially implemented CIs';
673: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
674: END IF;
675:
676: UPDATE pa_budget_versions
677: SET last_update_date = SYSDATE,
682: WHERE project_id = p_project_id
683: AND ci_id IS NOT NULL
684: AND rev_partially_impl_flag='Y';
685:
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.g_err_stage := 'No of records updated '||SQL%ROWCOUNT;
688: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
689: END IF;
690:
683: AND ci_id IS NOT NULL
684: AND rev_partially_impl_flag='Y';
685:
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.g_err_stage := 'No of records updated '||SQL%ROWCOUNT;
688: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
689: END IF;
690:
691: END IF;
684: AND rev_partially_impl_flag='Y';
685:
686: IF P_PA_DEBUG_MODE = 'Y' THEN
687: pa_debug.g_err_stage := 'No of records updated '||SQL%ROWCOUNT;
688: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
689: END IF;
690:
691: END IF;
692:
829: * working version and the newly created baselined version as this value
830: * would be used in the view included change document page to show various
831: * change documents included in that version
832: */
833: IF P_PA_DEBUG_MODE = 'Y' THEN
834: pa_debug.g_err_stage := 'After Copy Version-- Firing Select';
835: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
836: END IF;
837:
830: * would be used in the view included change document page to show various
831: * change documents included in that version
832: */
833: IF P_PA_DEBUG_MODE = 'Y' THEN
834: pa_debug.g_err_stage := 'After Copy Version-- Firing Select';
835: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
836: END IF;
837:
838: SELECT ci_id, inclusion_method_code, version_type, creation_date
831: * change documents included in that version
832: */
833: IF P_PA_DEBUG_MODE = 'Y' THEN
834: pa_debug.g_err_stage := 'After Copy Version-- Firing Select';
835: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
836: END IF;
837:
838: SELECT ci_id, inclusion_method_code, version_type, creation_date
839: BULK COLLECT INTO l_temp_ci_id_tbl, l_tmp_incl_method_code_tbl, l_version_type_tbl, l_cw_creation_date_tbl
847: FROM pa_fp_merged_ctrl_items
848: WHERE plan_version_id = l_target_version_id
849: AND project_id = p_project_id;
850:
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage := 'Rows returned in ci_id tbl: ' || l_temp_ci_id_tbl.COUNT;
853: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
854: END IF;
855: -- Flipping inclusion_method_code, creation_date, Updating the WHO columns for the baselined version
848: WHERE plan_version_id = l_target_version_id
849: AND project_id = p_project_id;
850:
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage := 'Rows returned in ci_id tbl: ' || l_temp_ci_id_tbl.COUNT;
853: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
854: END IF;
855: -- Flipping inclusion_method_code, creation_date, Updating the WHO columns for the baselined version
856: IF l_temp_ci_id_tbl.COUNT > 0 THEN
849: AND project_id = p_project_id;
850:
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage := 'Rows returned in ci_id tbl: ' || l_temp_ci_id_tbl.COUNT;
853: pa_debug.write('pa_fin_plan_pvt: ' || l_module_name,pa_debug.g_err_stage,5);
854: END IF;
855: -- Flipping inclusion_method_code, creation_date, Updating the WHO columns for the baselined version
856: IF l_temp_ci_id_tbl.COUNT > 0 THEN
857: FORALL i in l_temp_ci_id_tbl.FIRST..l_temp_ci_id_tbl.LAST
971: --Bug 4094762. Code that creates the intial forecast version (its there below the PJI API call) assumes that the pji
972: --data exists for the baselined version. Hence the PJI API call should be made before that code gets executed.
973: /* FP M - Reporting lines integration */
974: BEGIN
975: IF p_pa_debug_mode = 'Y' THEN
976: pa_debug.write('Baseline_Finplan','Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE ' ,5);
977: pa_debug.write('Baseline_Finplan','p_baseline_version_id '|| p_budget_version_id,5);
978: pa_debug.write('Baseline_Finplan', 'p_new_version_id '|| l_target_version_id,5);
979: END IF;
972: --data exists for the baselined version. Hence the PJI API call should be made before that code gets executed.
973: /* FP M - Reporting lines integration */
974: BEGIN
975: IF p_pa_debug_mode = 'Y' THEN
976: pa_debug.write('Baseline_Finplan','Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE ' ,5);
977: pa_debug.write('Baseline_Finplan','p_baseline_version_id '|| p_budget_version_id,5);
978: pa_debug.write('Baseline_Finplan', 'p_new_version_id '|| l_target_version_id,5);
979: END IF;
980: PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE (
973: /* FP M - Reporting lines integration */
974: BEGIN
975: IF p_pa_debug_mode = 'Y' THEN
976: pa_debug.write('Baseline_Finplan','Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE ' ,5);
977: pa_debug.write('Baseline_Finplan','p_baseline_version_id '|| p_budget_version_id,5);
978: pa_debug.write('Baseline_Finplan', 'p_new_version_id '|| l_target_version_id,5);
979: END IF;
980: PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE (
981: p_baseline_version_id => p_budget_version_id,
974: BEGIN
975: IF p_pa_debug_mode = 'Y' THEN
976: pa_debug.write('Baseline_Finplan','Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE ' ,5);
977: pa_debug.write('Baseline_Finplan','p_baseline_version_id '|| p_budget_version_id,5);
978: pa_debug.write('Baseline_Finplan', 'p_new_version_id '|| l_target_version_id,5);
979: END IF;
980: PJI_FM_XBS_ACCUM_MAINT.PLAN_BASELINE (
981: p_baseline_version_id => p_budget_version_id,
982: p_new_version_id => l_target_version_id,
1010: IF l_fin_plan_class_code = 'BUDGET' and
1011: (l_ar_flag = 'Y' or
1012: l_ac_flag = 'Y') THEN /* Only if the version that is being baselined is an AR or AC BUDGET version */
1013:
1014: IF P_PA_DEBUG_MODE = 'Y' THEN
1015: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','BUDGET plan class and ac flag is ' || l_ar_flag || ' and ac flag is ' || l_ac_flag,3);
1016: END IF;
1017:
1018: Begin
1011: (l_ar_flag = 'Y' or
1012: l_ac_flag = 'Y') THEN /* Only if the version that is being baselined is an AR or AC BUDGET version */
1013:
1014: IF P_PA_DEBUG_MODE = 'Y' THEN
1015: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','BUDGET plan class and ac flag is ' || l_ar_flag || ' and ac flag is ' || l_ac_flag,3);
1016: END IF;
1017:
1018: Begin
1019: Select 'Y'
1031: When No_Data_Found Then
1032: l_base_line_ver_exists := 'N';
1033: End;
1034:
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_base_line_ver_exists ' || l_base_line_ver_exists || ' l_version_type ' || l_version_type,3);
1037: END IF;
1038:
1039: If l_base_line_ver_exists = 'N' THEN /* No further processing for creation of forecast version is required if an appr baseline version already exists */
1032: l_base_line_ver_exists := 'N';
1033: End;
1034:
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_base_line_ver_exists ' || l_base_line_ver_exists || ' l_version_type ' || l_version_type,3);
1037: END IF;
1038:
1039: If l_base_line_ver_exists = 'N' THEN /* No further processing for creation of forecast version is required if an appr baseline version already exists */
1040:
1050: If l_fc_plan_type_ids_tbl.count > 0 Then /* Only if forecast plan types have been added to the project */
1051:
1052: FOR i IN l_fc_plan_type_ids_tbl.FIRST .. l_fc_plan_type_ids_tbl.LAST LOOP
1053:
1054: IF P_PA_DEBUG_MODE = 'Y' THEN
1055: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_fc_plan_type_ids_tbl ' || l_fc_plan_type_ids_tbl(i) ||
1056: ' l_fc_pt_pref_code_tbl ' || l_fc_pt_pref_code_tbl(i),3);
1057: END IF;
1058:
1051:
1052: FOR i IN l_fc_plan_type_ids_tbl.FIRST .. l_fc_plan_type_ids_tbl.LAST LOOP
1053:
1054: IF P_PA_DEBUG_MODE = 'Y' THEN
1055: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_fc_plan_type_ids_tbl ' || l_fc_plan_type_ids_tbl(i) ||
1056: ' l_fc_pt_pref_code_tbl ' || l_fc_pt_pref_code_tbl(i),3);
1057: END IF;
1058:
1059: l_curr_work_ver_id := Null;
1085: ,x_msg_data => x_msg_data);
1086:
1087: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1088:
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1091: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1092: ' : version_type : ' || l_fc_version_type;
1093: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1086:
1087: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1088:
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1091: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1092: ' : version_type : ' || l_fc_version_type;
1093: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1094: END IF;
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1091: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1092: ' : version_type : ' || l_fc_version_type;
1093: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1094: END IF;
1095:
1096: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1097:
1114: ,x_msg_data => x_msg_data);
1115:
1116: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1117:
1118: IF P_PA_DEBUG_MODE = 'Y' THEN
1119: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1120: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1121: ' : version_type : ' || l_fc_version_type;
1122: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1115:
1116: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1117:
1118: IF P_PA_DEBUG_MODE = 'Y' THEN
1119: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1120: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1121: ' : version_type : ' || l_fc_version_type;
1122: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1123: END IF;
1118: IF P_PA_DEBUG_MODE = 'Y' THEN
1119: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1120: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1121: ' : version_type : ' || l_fc_version_type;
1122: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1123: END IF;
1124:
1125: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1126:
1138:
1139:
1140: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1141:
1142: IF P_PA_DEBUG_MODE = 'Y' THEN
1143: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1144: p_project_id || ' : l_target_version_id : ' ||
1145: l_target_version_id || ' : l_fc_plan_type_ids_tbl(i) : ' ||
1146: l_fc_plan_type_ids_tbl(i);
1139:
1140: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1141:
1142: IF P_PA_DEBUG_MODE = 'Y' THEN
1143: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1144: p_project_id || ' : l_target_version_id : ' ||
1145: l_target_version_id || ' : l_fc_plan_type_ids_tbl(i) : ' ||
1146: l_fc_plan_type_ids_tbl(i);
1147: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1143: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1144: p_project_id || ' : l_target_version_id : ' ||
1145: l_target_version_id || ' : l_fc_plan_type_ids_tbl(i) : ' ||
1146: l_fc_plan_type_ids_tbl(i);
1147: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1148: END IF;
1149:
1150: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1151:
1150: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1151:
1152: END IF;
1153:
1154: IF P_PA_DEBUG_MODE = 'Y' THEN
1155: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_curr_work_ver_id ' || l_curr_work_ver_id,3);
1156: END IF;
1157:
1158: x_fc_version_created_flag := 'Y';
1151:
1152: END IF;
1153:
1154: IF P_PA_DEBUG_MODE = 'Y' THEN
1155: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_curr_work_ver_id ' || l_curr_work_ver_id,3);
1156: END IF;
1157:
1158: x_fc_version_created_flag := 'Y';
1159:
1193: ,x_msg_data => x_msg_data);
1194:
1195: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1196:
1197: IF P_PA_DEBUG_MODE = 'Y' THEN
1198: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1199: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1200: ' : version_type : ' || l_fc_version_type;
1201: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1194:
1195: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1196:
1197: IF P_PA_DEBUG_MODE = 'Y' THEN
1198: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1199: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1200: ' : version_type : ' || l_fc_version_type;
1201: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1202: END IF;
1197: IF P_PA_DEBUG_MODE = 'Y' THEN
1198: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1199: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1200: ' : version_type : ' || l_fc_version_type;
1201: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1202: END IF;
1203:
1204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1205:
1222: ,x_msg_data => x_msg_data);
1223:
1224: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1225:
1226: IF P_PA_DEBUG_MODE = 'Y' THEN
1227: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1228: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1229: ' : version_type : ' || l_fc_version_type;
1230: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1223:
1224: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1225:
1226: IF P_PA_DEBUG_MODE = 'Y' THEN
1227: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1228: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1229: ' : version_type : ' || l_fc_version_type;
1230: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1231: END IF;
1226: IF P_PA_DEBUG_MODE = 'Y' THEN
1227: pa_debug.g_err_stage:='Pa_fin_plan_pub.Create_Version errored. p_project_id ' ||
1228: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1229: ' : version_type : ' || l_fc_version_type;
1230: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1231: END IF;
1232:
1233: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1234:
1246:
1247:
1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1249:
1250: IF P_PA_DEBUG_MODE = 'Y' THEN
1251: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1252: p_project_id || ' : l_target_version_id : ' ||
1253: l_target_version_id || ' : l_fc_plan_type_ids_tbl(i) : ' ||
1254: l_fc_plan_type_ids_tbl(i);
1247:
1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1249:
1250: IF P_PA_DEBUG_MODE = 'Y' THEN
1251: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1252: p_project_id || ' : l_target_version_id : ' ||
1253: l_target_version_id || ' : l_fc_plan_type_ids_tbl(i) : ' ||
1254: l_fc_plan_type_ids_tbl(i);
1255: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1251: pa_debug.g_err_stage:='PA_FIN_PLAN_PUB.Copy_Version errored: project_id : ' ||
1252: p_project_id || ' : l_target_version_id : ' ||
1253: l_target_version_id || ' : l_fc_plan_type_ids_tbl(i) : ' ||
1254: l_fc_plan_type_ids_tbl(i);
1255: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1256: END IF;
1257:
1258: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1259:
1258: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1259:
1260: END IF;
1261:
1262: IF P_PA_DEBUG_MODE = 'Y' THEN
1263: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_curr_work_ver_id ' || l_curr_work_ver_id,3);
1264: END IF;
1265:
1266: x_fc_version_created_flag := 'Y';
1259:
1260: END IF;
1261:
1262: IF P_PA_DEBUG_MODE = 'Y' THEN
1263: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN','l_curr_work_ver_id ' || l_curr_work_ver_id,3);
1264: END IF;
1265:
1266: x_fc_version_created_flag := 'Y';
1267:
1276: END IF; /* If l_base_line_ver_exists = 'N' THEN */
1277:
1278: END IF; /* IF l_fin_plan_class_code = 'BUDGET' and (l_ar_flag = 'Y' or l_ac_flag = 'Y') THEN */
1279:
1280: IF p_pa_debug_mode = 'Y' THEN
1281: pa_debug.reset_err_stack;
1282: END IF;
1283: EXCEPTION
1284:
1277:
1278: END IF; /* IF l_fin_plan_class_code = 'BUDGET' and (l_ar_flag = 'Y' or l_ac_flag = 'Y') THEN */
1279:
1280: IF p_pa_debug_mode = 'Y' THEN
1281: pa_debug.reset_err_stack;
1282: END IF;
1283: EXCEPTION
1284:
1285: when pa_fin_plan_pvt.baseline_finplan_error then
1303: x_msg_count := l_msg_count;
1304: ELSE
1305: x_msg_count := l_msg_count;
1306: END IF;
1307: IF p_pa_debug_mode = 'Y' THEN
1308: pa_debug.reset_err_stack;
1309: END IF;
1310: --Bug 4044009
1311: RETURN;
1304: ELSE
1305: x_msg_count := l_msg_count;
1306: END IF;
1307: IF p_pa_debug_mode = 'Y' THEN
1308: pa_debug.reset_err_stack;
1309: END IF;
1310: --Bug 4044009
1311: RETURN;
1312: when others then
1315: x_msg_count := 1;
1316: x_msg_data := SQLERRM;
1317: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1318: p_procedure_name => 'Baseline_FinPlan');
1319: IF p_pa_debug_mode = 'Y' THEN
1320: pa_debug.reset_err_stack;
1321: END IF;
1322: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1323:
1316: x_msg_data := SQLERRM;
1317: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1318: p_procedure_name => 'Baseline_FinPlan');
1319: IF p_pa_debug_mode = 'Y' THEN
1320: pa_debug.reset_err_stack;
1321: END IF;
1322: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1323:
1324: END Baseline_FinPlan;
1369: v_emp_id NUMBER; -- employee id
1370:
1371: BEGIN
1372: FND_MSG_PUB.initialize;
1373: IF P_PA_DEBUG_MODE = 'Y' THEN
1374: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Submit_Current_Working_FinPlan');
1375: END IF;
1376: x_msg_count := 0;
1377:
1370:
1371: BEGIN
1372: FND_MSG_PUB.initialize;
1373: IF P_PA_DEBUG_MODE = 'Y' THEN
1374: pa_debug.init_err_stack('PA_FIN_PLAN_PUB.Submit_Current_Working_FinPlan');
1375: END IF;
1376: x_msg_count := 0;
1377:
1378: /* Added for bug 6176649 */
1388: x_valid_flag => l_valid_flag,
1389: x_return_status => l_return_status,
1390: x_error_msg_code => l_error_msg_code);
1391: if x_return_status = FND_API.G_RET_STS_ERROR then
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: pa_debug.write_file('Submit_Current_Working_FinPlan: ' || 'record version number error ');
1394: END IF;
1395: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1396: p_msg_name => l_error_msg_code);
1389: x_return_status => l_return_status,
1390: x_error_msg_code => l_error_msg_code);
1391: if x_return_status = FND_API.G_RET_STS_ERROR then
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: pa_debug.write_file('Submit_Current_Working_FinPlan: ' || 'record version number error ');
1394: END IF;
1395: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1396: p_msg_name => l_error_msg_code);
1397: end if;
1411: x_msg_count := l_msg_count;
1412: else
1413: x_msg_count := l_msg_count;
1414: end if;
1415: IF p_pa_debug_mode = 'Y' THEN
1416: pa_debug.reset_err_stack;
1417: END IF;
1418: return;
1419: end if;
1412: else
1413: x_msg_count := l_msg_count;
1414: end if;
1415: IF p_pa_debug_mode = 'Y' THEN
1416: pa_debug.reset_err_stack;
1417: END IF;
1418: return;
1419: end if;
1420:
1602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1603: x_msg_count := 1;
1604: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1605: p_procedure_name => 'Submit_Current_Working_FinPlan');
1606: IF p_pa_debug_mode = 'Y' THEN
1607: pa_debug.reset_err_stack;
1608: END IF;
1609: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1610:
1603: x_msg_count := 1;
1604: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_PVT',
1605: p_procedure_name => 'Submit_Current_Working_FinPlan');
1606: IF p_pa_debug_mode = 'Y' THEN
1607: pa_debug.reset_err_stack;
1608: END IF;
1609: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1610:
1611: END Submit_Current_Working_FinPlan;
2200: BEGIN
2201:
2202: x_msg_count := 0;
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204: IF p_pa_debug_mode = 'Y' THEN
2205: pa_debug.set_err_stack('PA_FIN_PLAN_PVT.CREATE_DRAFT');
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2208: l_debug_mode := NVL(l_debug_mode, 'Y');
2201:
2202: x_msg_count := 0;
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204: IF p_pa_debug_mode = 'Y' THEN
2205: pa_debug.set_err_stack('PA_FIN_PLAN_PVT.CREATE_DRAFT');
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2208: l_debug_mode := NVL(l_debug_mode, 'Y');
2209: IF P_PA_DEBUG_MODE = 'Y' THEN
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204: IF p_pa_debug_mode = 'Y' THEN
2205: pa_debug.set_err_stack('PA_FIN_PLAN_PVT.CREATE_DRAFT');
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2208: l_debug_mode := NVL(l_debug_mode, 'Y');
2209: IF P_PA_DEBUG_MODE = 'Y' THEN
2210: pa_debug.set_process('CREATE_DRAFT: ' || 'PLSQL','LOG',l_debug_mode);
2211: END IF;
2205: pa_debug.set_err_stack('PA_FIN_PLAN_PVT.CREATE_DRAFT');
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2208: l_debug_mode := NVL(l_debug_mode, 'Y');
2209: IF P_PA_DEBUG_MODE = 'Y' THEN
2210: pa_debug.set_process('CREATE_DRAFT: ' || 'PLSQL','LOG',l_debug_mode);
2211: END IF;
2212:
2213:
2206: END IF;
2207: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2208: l_debug_mode := NVL(l_debug_mode, 'Y');
2209: IF P_PA_DEBUG_MODE = 'Y' THEN
2210: pa_debug.set_process('CREATE_DRAFT: ' || 'PLSQL','LOG',l_debug_mode);
2211: END IF;
2212:
2213:
2214: pa_debug.g_err_stage:='Entering Create_draft';
2210: pa_debug.set_process('CREATE_DRAFT: ' || 'PLSQL','LOG',l_debug_mode);
2211: END IF;
2212:
2213:
2214: pa_debug.g_err_stage:='Entering Create_draft';
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2216: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,2);
2217: END IF;
2218:
2211: END IF;
2212:
2213:
2214: pa_debug.g_err_stage:='Entering Create_draft';
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2216: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,2);
2217: END IF;
2218:
2219: l_calling_context := nvl(p_calling_context,PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT); /* Bug# 2674353 */
2212:
2213:
2214: pa_debug.g_err_stage:='Entering Create_draft';
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2216: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,2);
2217: END IF;
2218:
2219: l_calling_context := nvl(p_calling_context,PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT); /* Bug# 2674353 */
2220: l_resource_list_id := p_resource_list_id; --bug#2831968
2220: l_resource_list_id := p_resource_list_id; --bug#2831968
2221:
2222: IF p_ci_id is NULL THEN -- Bug # 2672654
2223:
2224: pa_debug.g_err_stage:='Control item id is null';
2225: IF P_PA_DEBUG_MODE = 'Y' THEN
2226: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2227: END IF;
2228:
2221:
2222: IF p_ci_id is NULL THEN -- Bug # 2672654
2223:
2224: pa_debug.g_err_stage:='Control item id is null';
2225: IF P_PA_DEBUG_MODE = 'Y' THEN
2226: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2227: END IF;
2228:
2229: /* Validation for the resource list */
2222: IF p_ci_id is NULL THEN -- Bug # 2672654
2223:
2224: pa_debug.g_err_stage:='Control item id is null';
2225: IF P_PA_DEBUG_MODE = 'Y' THEN
2226: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2227: END IF;
2228:
2229: /* Validation for the resource list */
2230: /* Get the currently baselined version id */
2238: ,x_msg_count => x_msg_count
2239: ,x_msg_data => x_msg_data );
2240:
2241: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2242: pa_debug.g_err_stage:= 'Error Calling Get_Baselined_Version_Info';
2243: IF P_PA_DEBUG_MODE = 'Y' THEN
2244: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2245: END IF;
2246: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2239: ,x_msg_data => x_msg_data );
2240:
2241: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2242: pa_debug.g_err_stage:= 'Error Calling Get_Baselined_Version_Info';
2243: IF P_PA_DEBUG_MODE = 'Y' THEN
2244: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2245: END IF;
2246: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2247: END IF;
2240:
2241: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2242: pa_debug.g_err_stage:= 'Error Calling Get_Baselined_Version_Info';
2243: IF P_PA_DEBUG_MODE = 'Y' THEN
2244: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2245: END IF;
2246: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2247: END IF;
2248:
2245: END IF;
2246: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2247: END IF;
2248:
2249: pa_debug.g_err_stage:= 'current Baselined Version id ->' || l_baselined_version_id;
2250: IF P_PA_DEBUG_MODE = 'Y' THEN
2251: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2252: END IF;
2253: -- bug#2831968 l_resource_list_id := p_resource_list_id;
2246: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2247: END IF;
2248:
2249: pa_debug.g_err_stage:= 'current Baselined Version id ->' || l_baselined_version_id;
2250: IF P_PA_DEBUG_MODE = 'Y' THEN
2251: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2252: END IF;
2253: -- bug#2831968 l_resource_list_id := p_resource_list_id;
2254:
2247: END IF;
2248:
2249: pa_debug.g_err_stage:= 'current Baselined Version id ->' || l_baselined_version_id;
2250: IF P_PA_DEBUG_MODE = 'Y' THEN
2251: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2252: END IF;
2253: -- bug#2831968 l_resource_list_id := p_resource_list_id;
2254:
2255:
2254:
2255:
2256: IF (l_baselined_version_id IS NOT NULL) THEN
2257: IF (pa_fin_plan_utils.Get_Resource_List_Id(l_baselined_version_id) <> l_resource_list_id) THEN
2258: pa_debug.g_err_stage:='Current baselined versions and passed resource list id are not same';
2259: IF P_PA_DEBUG_MODE = 'Y' THEN
2260: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2261: END IF;
2262:
2255:
2256: IF (l_baselined_version_id IS NOT NULL) THEN
2257: IF (pa_fin_plan_utils.Get_Resource_List_Id(l_baselined_version_id) <> l_resource_list_id) THEN
2258: pa_debug.g_err_stage:='Current baselined versions and passed resource list id are not same';
2259: IF P_PA_DEBUG_MODE = 'Y' THEN
2260: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2261: END IF;
2262:
2263: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2256: IF (l_baselined_version_id IS NOT NULL) THEN
2257: IF (pa_fin_plan_utils.Get_Resource_List_Id(l_baselined_version_id) <> l_resource_list_id) THEN
2258: pa_debug.g_err_stage:='Current baselined versions and passed resource list id are not same';
2259: IF P_PA_DEBUG_MODE = 'Y' THEN
2260: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2261: END IF;
2262:
2263: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2264: p_msg_name => 'PA_BU_BASE_RES_LIST_EXISTS');
2265: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2266: END IF;
2267: END IF;
2268:
2269: pa_debug.g_err_stage:='Entering of validation for resource list';
2270: IF P_PA_DEBUG_MODE = 'Y' THEN
2271: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2272: END IF;
2273:
2266: END IF;
2267: END IF;
2268:
2269: pa_debug.g_err_stage:='Entering of validation for resource list';
2270: IF P_PA_DEBUG_MODE = 'Y' THEN
2271: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2272: END IF;
2273:
2274: /* End of validation for resource list */
2267: END IF;
2268:
2269: pa_debug.g_err_stage:='Entering of validation for resource list';
2270: IF P_PA_DEBUG_MODE = 'Y' THEN
2271: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2272: END IF;
2273:
2274: /* End of validation for resource list */
2275:
2288: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2289: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2290: END IF;
2291:
2292: pa_debug.g_err_stage:='Current working version id -> ' || l_curr_work_version_id;
2293: IF P_PA_DEBUG_MODE = 'Y' THEN
2294: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2295: END IF;
2296:
2289: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2290: END IF;
2291:
2292: pa_debug.g_err_stage:='Current working version id -> ' || l_curr_work_version_id;
2293: IF P_PA_DEBUG_MODE = 'Y' THEN
2294: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2295: END IF;
2296:
2297: IF (l_curr_work_version_id is not null) THEN /* Bug 2672654 */
2290: END IF;
2291:
2292: pa_debug.g_err_stage:='Current working version id -> ' || l_curr_work_version_id;
2293: IF P_PA_DEBUG_MODE = 'Y' THEN
2294: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2295: END IF;
2296:
2297: IF (l_curr_work_version_id is not null) THEN /* Bug 2672654 */
2298: pa_fin_plan_pvt.Get_Included_Ci(
2304: ,x_msg_count => x_msg_count
2305: ,x_msg_data => x_msg_data );
2306:
2307: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2308: pa_debug.g_err_stage:= 'Could not obtain the CI information for the version';
2309: IF P_PA_DEBUG_MODE = 'Y' THEN
2310: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2311: END IF;
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2305: ,x_msg_data => x_msg_data );
2306:
2307: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2308: pa_debug.g_err_stage:= 'Could not obtain the CI information for the version';
2309: IF P_PA_DEBUG_MODE = 'Y' THEN
2310: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2311: END IF;
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: ELSE
2306:
2307: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2308: pa_debug.g_err_stage:= 'Could not obtain the CI information for the version';
2309: IF P_PA_DEBUG_MODE = 'Y' THEN
2310: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2311: END IF;
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: ELSE
2314: pa_debug.g_err_stage:= 'obtained the CI information for the version';
2310: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2311: END IF;
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: ELSE
2314: pa_debug.g_err_stage:= 'obtained the CI information for the version';
2315: IF P_PA_DEBUG_MODE = 'Y' THEN
2316: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2317: END IF;
2318: END IF;
2311: END IF;
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: ELSE
2314: pa_debug.g_err_stage:= 'obtained the CI information for the version';
2315: IF P_PA_DEBUG_MODE = 'Y' THEN
2316: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2317: END IF;
2318: END IF;
2319:
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: ELSE
2314: pa_debug.g_err_stage:= 'obtained the CI information for the version';
2315: IF P_PA_DEBUG_MODE = 'Y' THEN
2316: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2317: END IF;
2318: END IF;
2319:
2320: /* Bug 2688610 - should call delete_version rather than delete_version_helper.
2347:
2348: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2349:
2350: IF l_debug_mode = 'Y' THEN
2351: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
2352: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2353: END IF;
2354:
2355: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2348: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2349:
2350: IF l_debug_mode = 'Y' THEN
2351: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
2352: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2353: END IF;
2354:
2355: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2356:
2368: ,x_msg_data => x_msg_data
2369: );
2370:
2371: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2372: pa_debug.g_err_stage:= 'Could not delete the current working version';
2373: IF P_PA_DEBUG_MODE = 'Y' THEN
2374: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2375: END IF;
2376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2369: );
2370:
2371: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2372: pa_debug.g_err_stage:= 'Could not delete the current working version';
2373: IF P_PA_DEBUG_MODE = 'Y' THEN
2374: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2375: END IF;
2376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2377: ELSE
2370:
2371: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2372: pa_debug.g_err_stage:= 'Could not delete the current working version';
2373: IF P_PA_DEBUG_MODE = 'Y' THEN
2374: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2375: END IF;
2376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2377: ELSE
2378: pa_debug.g_err_stage:= 'Deleted the current working version';
2374: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2375: END IF;
2376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2377: ELSE
2378: pa_debug.g_err_stage:= 'Deleted the current working version';
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2381: END IF;
2382: END IF;
2375: END IF;
2376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2377: ELSE
2378: pa_debug.g_err_stage:= 'Deleted the current working version';
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2381: END IF;
2382: END IF;
2383:
2376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2377: ELSE
2378: pa_debug.g_err_stage:= 'Deleted the current working version';
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2381: END IF;
2382: END IF;
2383:
2384: END IF;--IF l_calling_context <> PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT THEN
2384: END IF;--IF l_calling_context <> PA_FP_CONSTANTS_PKG.G_CREATE_DRAFT THEN
2385:
2386: END IF; --l_curr_work_version_id is not null
2387: ELSE
2388: pa_debug.g_err_stage:= 'p_ci_id is not null - control item version';
2389: IF P_PA_DEBUG_MODE = 'Y' THEN
2390: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2391: END IF;
2392: END IF; -- p_ci_id is NULL. Bug 2672654
2385:
2386: END IF; --l_curr_work_version_id is not null
2387: ELSE
2388: pa_debug.g_err_stage:= 'p_ci_id is not null - control item version';
2389: IF P_PA_DEBUG_MODE = 'Y' THEN
2390: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2391: END IF;
2392: END IF; -- p_ci_id is NULL. Bug 2672654
2393:
2386: END IF; --l_curr_work_version_id is not null
2387: ELSE
2388: pa_debug.g_err_stage:= 'p_ci_id is not null - control item version';
2389: IF P_PA_DEBUG_MODE = 'Y' THEN
2390: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2391: END IF;
2392: END IF; -- p_ci_id is NULL. Bug 2672654
2393:
2394: --Get the preference code
2399: ELSIF(p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
2400: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
2401: END IF;
2402:
2403: pa_debug.g_err_stage:= 'Preference code is -> ' || l_plan_pref_code;
2404: IF P_PA_DEBUG_MODE = 'Y' THEN
2405: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2406: END IF;
2407:
2400: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
2401: END IF;
2402:
2403: pa_debug.g_err_stage:= 'Preference code is -> ' || l_plan_pref_code;
2404: IF P_PA_DEBUG_MODE = 'Y' THEN
2405: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2406: END IF;
2407:
2408: --Get the amount set id.
2401: END IF;
2402:
2403: pa_debug.g_err_stage:= 'Preference code is -> ' || l_plan_pref_code;
2404: IF P_PA_DEBUG_MODE = 'Y' THEN
2405: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2406: END IF;
2407:
2408: --Get the amount set id.
2409: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID
2438: ELSIF(p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
2439: l_amount_set_id := l_all_amount_set_id;
2440: END IF;
2441:
2442: pa_debug.g_err_stage:= 'amount set id is -> ' || l_amount_set_id;
2443: IF P_PA_DEBUG_MODE = 'Y' THEN
2444: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2445: END IF;
2446:
2439: l_amount_set_id := l_all_amount_set_id;
2440: END IF;
2441:
2442: pa_debug.g_err_stage:= 'amount set id is -> ' || l_amount_set_id;
2443: IF P_PA_DEBUG_MODE = 'Y' THEN
2444: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2445: END IF;
2446:
2447: l_created_version_id := NULL;
2440: END IF;
2441:
2442: pa_debug.g_err_stage:= 'amount set id is -> ' || l_amount_set_id;
2443: IF P_PA_DEBUG_MODE = 'Y' THEN
2444: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2445: END IF;
2446:
2447: l_created_version_id := NULL;
2448: /* Create the plan version */
2474: ,x_msg_count => x_msg_count
2475: ,x_msg_data => x_msg_data );
2476:
2477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2478: pa_debug.g_err_stage:= 'Error in calling Create_Version';
2479: IF P_PA_DEBUG_MODE = 'Y' THEN
2480: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2481: END IF;
2482: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2475: ,x_msg_data => x_msg_data );
2476:
2477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2478: pa_debug.g_err_stage:= 'Error in calling Create_Version';
2479: IF P_PA_DEBUG_MODE = 'Y' THEN
2480: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2481: END IF;
2482: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2483: END IF;
2476:
2477: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2478: pa_debug.g_err_stage:= 'Error in calling Create_Version';
2479: IF P_PA_DEBUG_MODE = 'Y' THEN
2480: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2481: END IF;
2482: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2483: END IF;
2484:
2484:
2485: x_budget_version_id := l_created_version_id;
2486:
2487:
2488: pa_debug.g_err_stage:= 'Created budget version id is : '||l_created_version_id;
2489: IF P_PA_DEBUG_MODE = 'Y' THEN
2490: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2491: END IF;
2492:
2485: x_budget_version_id := l_created_version_id;
2486:
2487:
2488: pa_debug.g_err_stage:= 'Created budget version id is : '||l_created_version_id;
2489: IF P_PA_DEBUG_MODE = 'Y' THEN
2490: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2491: END IF;
2492:
2493: -- If the created version is a NON-CI version "AND" --- added this condition for bug 2881681
2486:
2487:
2488: pa_debug.g_err_stage:= 'Created budget version id is : '||l_created_version_id;
2489: IF P_PA_DEBUG_MODE = 'Y' THEN
2490: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2491: END IF;
2492:
2493: -- If the created version is a NON-CI version "AND" --- added this condition for bug 2881681
2494: -- If either of the replace current working or Create working version flags is Y then make
2537:
2538: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2539:
2540: IF l_debug_mode = 'Y' THEN
2541: pa_debug.g_err_stage := 'Error executing lock unlock version';
2542: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2543: END IF;
2544:
2545: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2538: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2539:
2540: IF l_debug_mode = 'Y' THEN
2541: pa_debug.g_err_stage := 'Error executing lock unlock version';
2542: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2543: END IF;
2544:
2545: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2546:
2546:
2547: END IF;
2548:
2549: IF l_debug_mode = 'Y' THEN
2550: pa_debug.g_err_stage := 'About to call set current working version';
2551: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2552: END IF;
2553:
2554: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
2547: END IF;
2548:
2549: IF l_debug_mode = 'Y' THEN
2550: pa_debug.g_err_stage := 'About to call set current working version';
2551: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2552: END IF;
2553:
2554: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
2555: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2564: x_msg_count => x_msg_count,
2565: x_msg_data => x_msg_data);
2566:
2567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2568: IF P_PA_DEBUG_MODE = 'Y' THEN
2569: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
2570: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2571: END IF;
2572: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2565: x_msg_data => x_msg_data);
2566:
2567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2568: IF P_PA_DEBUG_MODE = 'Y' THEN
2569: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
2570: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2571: END IF;
2572: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2573: END IF;
2566:
2567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2568: IF P_PA_DEBUG_MODE = 'Y' THEN
2569: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
2570: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2571: END IF;
2572: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2573: END IF;
2574:
2653: -- Comment START.
2654: /*
2655: -- Create fp elements and resource assignments for the budget version and the impacted task id
2656:
2657: pa_debug.g_err_stage:='Calling pa_fp_elements_pub.insert_default...';
2658: IF P_PA_DEBUG_MODE = 'Y' THEN
2659: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2660: END IF;
2661:
2654: /*
2655: -- Create fp elements and resource assignments for the budget version and the impacted task id
2656:
2657: pa_debug.g_err_stage:='Calling pa_fp_elements_pub.insert_default...';
2658: IF P_PA_DEBUG_MODE = 'Y' THEN
2659: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2660: END IF;
2661:
2662: Pa_Fp_Elements_Pub.Insert_Default (
2655: -- Create fp elements and resource assignments for the budget version and the impacted task id
2656:
2657: pa_debug.g_err_stage:='Calling pa_fp_elements_pub.insert_default...';
2658: IF P_PA_DEBUG_MODE = 'Y' THEN
2659: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2660: END IF;
2661:
2662: Pa_Fp_Elements_Pub.Insert_Default (
2663: p_proj_fp_options_id => l_fp_options_id
2676: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2677: END IF;
2678:
2679:
2680: pa_debug.g_err_stage:='Calling pa_fp_elements_pub.create_enterable_resources...';
2681: IF P_PA_DEBUG_MODE = 'Y' THEN
2682: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2683: END IF;
2684:
2677: END IF;
2678:
2679:
2680: pa_debug.g_err_stage:='Calling pa_fp_elements_pub.create_enterable_resources...';
2681: IF P_PA_DEBUG_MODE = 'Y' THEN
2682: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2683: END IF;
2684:
2685: Pa_Fp_Elements_Pub.Create_Enterable_Resources (
2678:
2679:
2680: pa_debug.g_err_stage:='Calling pa_fp_elements_pub.create_enterable_resources...';
2681: IF P_PA_DEBUG_MODE = 'Y' THEN
2682: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2683: END IF;
2684:
2685: Pa_Fp_Elements_Pub.Create_Enterable_Resources (
2686: p_plan_version_id => l_created_version_id
2696: --
2697: -- Comment END
2698: -- Added a call to pa_fp_planning_transaction_pub.create_default_task_plan_txns
2699:
2700: pa_debug.g_err_stage:='Calling pa_fp_planning_transaction_pub.create_default_task_plan_txns...';
2701:
2702: IF P_PA_DEBUG_MODE = 'Y' THEN
2703: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2704: END IF;
2698: -- Added a call to pa_fp_planning_transaction_pub.create_default_task_plan_txns
2699:
2700: pa_debug.g_err_stage:='Calling pa_fp_planning_transaction_pub.create_default_task_plan_txns...';
2701:
2702: IF P_PA_DEBUG_MODE = 'Y' THEN
2703: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2704: END IF;
2705: pa_fp_planning_transaction_pub.create_default_task_plan_txns(
2706: P_budget_version_id => l_created_version_id
2699:
2700: pa_debug.g_err_stage:='Calling pa_fp_planning_transaction_pub.create_default_task_plan_txns...';
2701:
2702: IF P_PA_DEBUG_MODE = 'Y' THEN
2703: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2704: END IF;
2705: pa_fp_planning_transaction_pub.create_default_task_plan_txns(
2706: P_budget_version_id => l_created_version_id
2707: ,P_version_plan_level_code => p_fin_plan_level_code
2716: ELSE
2717:
2718: -- Fetching top task id and parent task id of impacted task id
2719:
2720: pa_debug.g_err_stage:= 'Fetching impacted task details';
2721: IF P_PA_DEBUG_MODE = 'Y' THEN
2722: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2723: END IF;
2724:
2717:
2718: -- Fetching top task id and parent task id of impacted task id
2719:
2720: pa_debug.g_err_stage:= 'Fetching impacted task details';
2721: IF P_PA_DEBUG_MODE = 'Y' THEN
2722: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2723: END IF;
2724:
2725: OPEN impacted_task_cur(p_impacted_task_id);
2718: -- Fetching top task id and parent task id of impacted task id
2719:
2720: pa_debug.g_err_stage:= 'Fetching impacted task details';
2721: IF P_PA_DEBUG_MODE = 'Y' THEN
2722: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2723: END IF;
2724:
2725: OPEN impacted_task_cur(p_impacted_task_id);
2726: FETCH impacted_task_cur INTO impacted_task_rec;
2744: ,x_msg_count => x_msg_count
2745: ,x_msg_data => x_msg_data);
2746:
2747: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2748: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2749: IF P_PA_DEBUG_MODE = 'Y' THEN
2750: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2751: END IF;
2752: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2745: ,x_msg_data => x_msg_data);
2746:
2747: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2748: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2749: IF P_PA_DEBUG_MODE = 'Y' THEN
2750: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2751: END IF;
2752: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2753: END IF;
2746:
2747: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2748: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2749: IF P_PA_DEBUG_MODE = 'Y' THEN
2750: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2751: END IF;
2752: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2753: END IF;
2754:
2767: x_msg_count => x_msg_count,
2768: x_msg_data => x_msg_data);
2769:
2770: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
2772: IF P_PA_DEBUG_MODE = 'Y' THEN
2773: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2774: END IF;
2775: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2768: x_msg_data => x_msg_data);
2769:
2770: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
2772: IF P_PA_DEBUG_MODE = 'Y' THEN
2773: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2774: END IF;
2775: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2776: END IF;
2769:
2770: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2771: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
2772: IF P_PA_DEBUG_MODE = 'Y' THEN
2773: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2774: END IF;
2775: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2776: END IF;
2777:
2797: ,x_msg_count => x_msg_count
2798: ,x_msg_data => x_msg_data );
2799:
2800: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2801: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
2802: IF P_PA_DEBUG_MODE = 'Y' THEN
2803: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: END IF;
2805: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2798: ,x_msg_data => x_msg_data );
2799:
2800: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2801: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
2802: IF P_PA_DEBUG_MODE = 'Y' THEN
2803: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: END IF;
2805: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2806: END IF;
2799:
2800: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2801: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
2802: IF P_PA_DEBUG_MODE = 'Y' THEN
2803: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2804: END IF;
2805: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2806: END IF;
2807: */
2816: ,x_msg_count => x_msg_count
2817: ,x_msg_data => x_msg_data );
2818:
2819: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2820: pa_debug.g_err_stage:= 'Error Calling ADD_FIN_PLAN_LINES';
2821: IF P_PA_DEBUG_MODE = 'Y' THEN
2822: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2823: END IF;
2824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2817: ,x_msg_data => x_msg_data );
2818:
2819: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2820: pa_debug.g_err_stage:= 'Error Calling ADD_FIN_PLAN_LINES';
2821: IF P_PA_DEBUG_MODE = 'Y' THEN
2822: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2823: END IF;
2824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2825: END IF;
2818:
2819: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2820: pa_debug.g_err_stage:= 'Error Calling ADD_FIN_PLAN_LINES';
2821: IF P_PA_DEBUG_MODE = 'Y' THEN
2822: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2823: END IF;
2824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2825: END IF;
2826: END IF;
2824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2825: END IF;
2826: END IF;
2827:
2828: pa_debug.g_err_stage:= 'Restoring the Control Item links if any';
2829: IF P_PA_DEBUG_MODE = 'Y' THEN
2830: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2831: END IF;
2832:
2825: END IF;
2826: END IF;
2827:
2828: pa_debug.g_err_stage:= 'Restoring the Control Item links if any';
2829: IF P_PA_DEBUG_MODE = 'Y' THEN
2830: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2831: END IF;
2832:
2833: /* Commented out for bug 3550073
2826: END IF;
2827:
2828: pa_debug.g_err_stage:= 'Restoring the Control Item links if any';
2829: IF P_PA_DEBUG_MODE = 'Y' THEN
2830: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2831: END IF;
2832:
2833: /* Commented out for bug 3550073
2834: IF ( nvl(l_ci_rec_tab.last,0) > 0 ) THEN
2842: ,x_msg_count => x_msg_count
2843: ,x_msg_data => x_msg_data);
2844:
2845: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2846: pa_debug.g_err_stage:= 'Error Calling FP_CI_LINK_CONTROL_ITEMS';
2847: IF P_PA_DEBUG_MODE = 'Y' THEN
2848: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2849: END IF;
2850: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2843: ,x_msg_data => x_msg_data);
2844:
2845: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2846: pa_debug.g_err_stage:= 'Error Calling FP_CI_LINK_CONTROL_ITEMS';
2847: IF P_PA_DEBUG_MODE = 'Y' THEN
2848: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2849: END IF;
2850: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2851: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2844:
2845: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2846: pa_debug.g_err_stage:= 'Error Calling FP_CI_LINK_CONTROL_ITEMS';
2847: IF P_PA_DEBUG_MODE = 'Y' THEN
2848: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2849: END IF;
2850: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2851: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
2852:
2853: END LOOP; --first..last
2854: END IF; -- l_ci_rec_tab is not null */
2855:
2856:
2857: pa_debug.g_err_stage:= 'Exiting CREATE_DRAFT';
2858: IF P_PA_DEBUG_MODE = 'Y' THEN
2859: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL2);
2860: pa_debug.reset_err_stack;
2861: END IF;
2854: END IF; -- l_ci_rec_tab is not null */
2855:
2856:
2857: pa_debug.g_err_stage:= 'Exiting CREATE_DRAFT';
2858: IF P_PA_DEBUG_MODE = 'Y' THEN
2859: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL2);
2860: pa_debug.reset_err_stack;
2861: END IF;
2862:
2855:
2856:
2857: pa_debug.g_err_stage:= 'Exiting CREATE_DRAFT';
2858: IF P_PA_DEBUG_MODE = 'Y' THEN
2859: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL2);
2860: pa_debug.reset_err_stack;
2861: END IF;
2862:
2863: EXCEPTION
2856:
2857: pa_debug.g_err_stage:= 'Exiting CREATE_DRAFT';
2858: IF P_PA_DEBUG_MODE = 'Y' THEN
2859: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL2);
2860: pa_debug.reset_err_stack;
2861: END IF;
2862:
2863: EXCEPTION
2864:
2879: ELSE
2880: x_msg_count := l_msg_count;
2881: END IF;
2882:
2883: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2884: IF P_PA_DEBUG_MODE = 'Y' THEN
2885: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2886: pa_debug.reset_err_stack;
2887: END IF;
2880: x_msg_count := l_msg_count;
2881: END IF;
2882:
2883: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2884: IF P_PA_DEBUG_MODE = 'Y' THEN
2885: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2886: pa_debug.reset_err_stack;
2887: END IF;
2888: RAISE;
2881: END IF;
2882:
2883: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2884: IF P_PA_DEBUG_MODE = 'Y' THEN
2885: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2886: pa_debug.reset_err_stack;
2887: END IF;
2888: RAISE;
2889:
2882:
2883: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2884: IF P_PA_DEBUG_MODE = 'Y' THEN
2885: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2886: pa_debug.reset_err_stack;
2887: END IF;
2888: RAISE;
2889:
2890: WHEN others THEN
2893: x_msg_count := 1;
2894: x_msg_data := SQLERRM;
2895: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
2896: ,p_procedure_name => 'CREATE_DRAFT');
2897: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2898: IF P_PA_DEBUG_MODE = 'Y' THEN
2899: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2900: pa_debug.reset_err_stack;
2901: END IF;
2894: x_msg_data := SQLERRM;
2895: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
2896: ,p_procedure_name => 'CREATE_DRAFT');
2897: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2898: IF P_PA_DEBUG_MODE = 'Y' THEN
2899: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2900: pa_debug.reset_err_stack;
2901: END IF;
2902: RAISE;
2895: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
2896: ,p_procedure_name => 'CREATE_DRAFT');
2897: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2898: IF P_PA_DEBUG_MODE = 'Y' THEN
2899: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2900: pa_debug.reset_err_stack;
2901: END IF;
2902: RAISE;
2903:
2896: ,p_procedure_name => 'CREATE_DRAFT');
2897: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2898: IF P_PA_DEBUG_MODE = 'Y' THEN
2899: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2900: pa_debug.reset_err_stack;
2901: END IF;
2902: RAISE;
2903:
2904: END CREATE_DRAFT;
3002:
3003: x_msg_count := 0;
3004: x_return_status := FND_API.G_RET_STS_SUCCESS;
3005:
3006: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3007: l_debug_mode := NVL(l_debug_mode, 'Y');
3008: IF p_pa_debug_mode = 'Y' THEN
3009: pa_debug.set_err_stack('pa_fin_plan_pvt.CREATE_FINPLAN_LINES');
3010: END IF;
3004: x_return_status := FND_API.G_RET_STS_SUCCESS;
3005:
3006: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3007: l_debug_mode := NVL(l_debug_mode, 'Y');
3008: IF p_pa_debug_mode = 'Y' THEN
3009: pa_debug.set_err_stack('pa_fin_plan_pvt.CREATE_FINPLAN_LINES');
3010: END IF;
3011: IF P_PA_DEBUG_MODE = 'Y' THEN
3012: pa_debug.set_process('CREATE_FINPLAN_LINES: ' || 'PLSQL','LOG',l_debug_mode);
3005:
3006: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3007: l_debug_mode := NVL(l_debug_mode, 'Y');
3008: IF p_pa_debug_mode = 'Y' THEN
3009: pa_debug.set_err_stack('pa_fin_plan_pvt.CREATE_FINPLAN_LINES');
3010: END IF;
3011: IF P_PA_DEBUG_MODE = 'Y' THEN
3012: pa_debug.set_process('CREATE_FINPLAN_LINES: ' || 'PLSQL','LOG',l_debug_mode);
3013: END IF;
3007: l_debug_mode := NVL(l_debug_mode, 'Y');
3008: IF p_pa_debug_mode = 'Y' THEN
3009: pa_debug.set_err_stack('pa_fin_plan_pvt.CREATE_FINPLAN_LINES');
3010: END IF;
3011: IF P_PA_DEBUG_MODE = 'Y' THEN
3012: pa_debug.set_process('CREATE_FINPLAN_LINES: ' || 'PLSQL','LOG',l_debug_mode);
3013: END IF;
3014:
3015:
3008: IF p_pa_debug_mode = 'Y' THEN
3009: pa_debug.set_err_stack('pa_fin_plan_pvt.CREATE_FINPLAN_LINES');
3010: END IF;
3011: IF P_PA_DEBUG_MODE = 'Y' THEN
3012: pa_debug.set_process('CREATE_FINPLAN_LINES: ' || 'PLSQL','LOG',l_debug_mode);
3013: END IF;
3014:
3015:
3016: -- Check for business rules violations
3014:
3015:
3016: -- Check for business rules violations
3017:
3018: IF P_PA_DEBUG_MODE = 'Y' THEN
3019: pa_debug.g_err_stage:= 'Validating input parameters - CREATE_FINPLAN_LINES';
3020: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3021: END IF;
3022:
3015:
3016: -- Check for business rules violations
3017:
3018: IF P_PA_DEBUG_MODE = 'Y' THEN
3019: pa_debug.g_err_stage:= 'Validating input parameters - CREATE_FINPLAN_LINES';
3020: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3021: END IF;
3022:
3023: --Validate plan version id
3016: -- Check for business rules violations
3017:
3018: IF P_PA_DEBUG_MODE = 'Y' THEN
3019: pa_debug.g_err_stage:= 'Validating input parameters - CREATE_FINPLAN_LINES';
3020: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3021: END IF;
3022:
3023: --Validate plan version id
3024:
3023: --Validate plan version id
3024:
3025: IF (p_fin_plan_version_id IS NULL)
3026: THEN
3027: IF P_PA_DEBUG_MODE = 'Y' THEN
3028: pa_debug.g_err_stage:= 'fin_plan_version_id = '|| p_fin_plan_version_id;
3029: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3030: END IF;
3031:
3024:
3025: IF (p_fin_plan_version_id IS NULL)
3026: THEN
3027: IF P_PA_DEBUG_MODE = 'Y' THEN
3028: pa_debug.g_err_stage:= 'fin_plan_version_id = '|| p_fin_plan_version_id;
3029: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3030: END IF;
3031:
3032: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3025: IF (p_fin_plan_version_id IS NULL)
3026: THEN
3027: IF P_PA_DEBUG_MODE = 'Y' THEN
3028: pa_debug.g_err_stage:= 'fin_plan_version_id = '|| p_fin_plan_version_id;
3029: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3030: END IF;
3031:
3032: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3033: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3105:
3106: END LOOP;
3107: END IF;
3108:
3109: IF P_PA_DEBUG_MODE = 'Y' THEN
3110: pa_debug.g_err_stage:= 'populated the plsql tables';
3111: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3112:
3113: pa_debug.g_err_stage:= 'Delete records if any from the rollup tmp';
3106: END LOOP;
3107: END IF;
3108:
3109: IF P_PA_DEBUG_MODE = 'Y' THEN
3110: pa_debug.g_err_stage:= 'populated the plsql tables';
3111: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3112:
3113: pa_debug.g_err_stage:= 'Delete records if any from the rollup tmp';
3114: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3107: END IF;
3108:
3109: IF P_PA_DEBUG_MODE = 'Y' THEN
3110: pa_debug.g_err_stage:= 'populated the plsql tables';
3111: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3112:
3113: pa_debug.g_err_stage:= 'Delete records if any from the rollup tmp';
3114: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3115: END IF;
3109: IF P_PA_DEBUG_MODE = 'Y' THEN
3110: pa_debug.g_err_stage:= 'populated the plsql tables';
3111: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3112:
3113: pa_debug.g_err_stage:= 'Delete records if any from the rollup tmp';
3114: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3115: END IF;
3116:
3117: delete from pa_fp_rollup_tmp; /* Included after UT */
3110: pa_debug.g_err_stage:= 'populated the plsql tables';
3111: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3112:
3113: pa_debug.g_err_stage:= 'Delete records if any from the rollup tmp';
3114: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3115: END IF;
3116:
3117: delete from pa_fp_rollup_tmp; /* Included after UT */
3118:
3119: /* 2727304: Getting the Proj and Proj Func Currencies of the Fin Plan version's project.
3120: These will be used to populate the Proj and Projfunc currency codes in the
3121: pa_fp_rollup_tmp table in case they are not being passed to this API. */
3122:
3123: IF P_PA_DEBUG_MODE = 'Y' THEN
3124: pa_debug.g_err_stage:= 'Getting the proj and projfunc currency codes';
3125: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3126: END IF;
3127:
3120: These will be used to populate the Proj and Projfunc currency codes in the
3121: pa_fp_rollup_tmp table in case they are not being passed to this API. */
3122:
3123: IF P_PA_DEBUG_MODE = 'Y' THEN
3124: pa_debug.g_err_stage:= 'Getting the proj and projfunc currency codes';
3125: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3126: END IF;
3127:
3128: SELECT project_currency_code
3121: pa_fp_rollup_tmp table in case they are not being passed to this API. */
3122:
3123: IF P_PA_DEBUG_MODE = 'Y' THEN
3124: pa_debug.g_err_stage:= 'Getting the proj and projfunc currency codes';
3125: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3126: END IF;
3127:
3128: SELECT project_currency_code
3129: ,projfunc_currency_code
3268: ,p_fin_plan_version_id
3269: );
3270: END IF;
3271:
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3274: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3275: END IF;
3276:
3269: );
3270: END IF;
3271:
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3274: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3275: END IF;
3276:
3277: --Call procedure pa_fp_elements_pub.CREATE_ASSGMT_FROM_ROLLUPTMP to create
3270: END IF;
3271:
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3274: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3275: END IF;
3276:
3277: --Call procedure pa_fp_elements_pub.CREATE_ASSGMT_FROM_ROLLUPTMP to create
3278: --resource assignments and elements.
3276:
3277: --Call procedure pa_fp_elements_pub.CREATE_ASSGMT_FROM_ROLLUPTMP to create
3278: --resource assignments and elements.
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage:= 'calling create_assgmt_from_rolluptmp';
3282: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3283: END IF;
3284:
3277: --Call procedure pa_fp_elements_pub.CREATE_ASSGMT_FROM_ROLLUPTMP to create
3278: --resource assignments and elements.
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage:= 'calling create_assgmt_from_rolluptmp';
3282: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3283: END IF;
3284:
3285: pa_fp_elements_pub.create_assgmt_from_rolluptmp
3278: --resource assignments and elements.
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage:= 'calling create_assgmt_from_rolluptmp';
3282: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3283: END IF;
3284:
3285: pa_fp_elements_pub.create_assgmt_from_rolluptmp
3286: ( p_fin_plan_version_id => p_fin_plan_version_id
3288: ,x_msg_count => x_msg_count
3289: ,x_msg_data => x_msg_data );
3290:
3291: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3292: IF P_PA_DEBUG_MODE = 'Y' THEN
3293: pa_debug.g_err_stage:= 'Error Calling create_assgmt_from_rolluptmp';
3294: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3295: END IF;
3296: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3289: ,x_msg_data => x_msg_data );
3290:
3291: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3292: IF P_PA_DEBUG_MODE = 'Y' THEN
3293: pa_debug.g_err_stage:= 'Error Calling create_assgmt_from_rolluptmp';
3294: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3295: END IF;
3296: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3297: END IF;
3290:
3291: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3292: IF P_PA_DEBUG_MODE = 'Y' THEN
3293: pa_debug.g_err_stage:= 'Error Calling create_assgmt_from_rolluptmp';
3294: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3295: END IF;
3296: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3297: END IF;
3298:
3299: --Bug # 3507156-
3300: --Commented the api PROCESS_MODIFIED_LINES
3301: --Comment START
3302: /*
3303: IF P_PA_DEBUG_MODE = 'Y' THEN
3304: pa_debug.g_err_stage:= 'calling PROCESS_MODIFIED_LINES';
3305: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3306: END IF;
3307:
3300: --Commented the api PROCESS_MODIFIED_LINES
3301: --Comment START
3302: /*
3303: IF P_PA_DEBUG_MODE = 'Y' THEN
3304: pa_debug.g_err_stage:= 'calling PROCESS_MODIFIED_LINES';
3305: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3306: END IF;
3307:
3308: --Call process_modified_lines in edit line package.
3301: --Comment START
3302: /*
3303: IF P_PA_DEBUG_MODE = 'Y' THEN
3304: pa_debug.g_err_stage:= 'calling PROCESS_MODIFIED_LINES';
3305: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3306: END IF;
3307:
3308: --Call process_modified_lines in edit line package.
3309: PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES
3315: ,x_msg_data => x_msg_data );
3316:
3317: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3318:
3319: IF P_PA_DEBUG_MODE = 'Y' THEN
3320: pa_debug.g_err_stage:= 'Error Calling PROCESS_MODIFIED_LINES';
3321: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3322: END IF;
3323: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3316:
3317: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3318:
3319: IF P_PA_DEBUG_MODE = 'Y' THEN
3320: pa_debug.g_err_stage:= 'Error Calling PROCESS_MODIFIED_LINES';
3321: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3322: END IF;
3323: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3317: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3318:
3319: IF P_PA_DEBUG_MODE = 'Y' THEN
3320: pa_debug.g_err_stage:= 'Error Calling PROCESS_MODIFIED_LINES';
3321: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3322: END IF;
3323: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3325:
3322: END IF;
3323: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3325:
3326: IF P_PA_DEBUG_MODE = 'Y' THEN
3327: pa_debug.g_err_stage:= 'Exiting CREATE_FINPLAN_LINES';
3328: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3329: END IF;
3330:
3323: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3325:
3326: IF P_PA_DEBUG_MODE = 'Y' THEN
3327: pa_debug.g_err_stage:= 'Exiting CREATE_FINPLAN_LINES';
3328: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3329: END IF;
3330:
3331: */
3324: END IF;
3325:
3326: IF P_PA_DEBUG_MODE = 'Y' THEN
3327: pa_debug.g_err_stage:= 'Exiting CREATE_FINPLAN_LINES';
3328: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3329: END IF;
3330:
3331: */
3332: --Bug # 3507156-
3495: or tmp.txn_burdened_cost IS NOT NULL
3496: or tmp.quantity IS NOT NULL
3497: or tmp.txn_revenue IS NOT NULL));
3498:
3499: IF P_PA_DEBUG_MODE = 'Y' THEN
3500: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3501: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3502: END IF;
3503: ---------------------------------------------------------------------------------------------*/
3496: or tmp.quantity IS NOT NULL
3497: or tmp.txn_revenue IS NOT NULL));
3498:
3499: IF P_PA_DEBUG_MODE = 'Y' THEN
3500: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3501: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3502: END IF;
3503: ---------------------------------------------------------------------------------------------*/
3504:
3497: or tmp.txn_revenue IS NOT NULL));
3498:
3499: IF P_PA_DEBUG_MODE = 'Y' THEN
3500: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3501: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3502: END IF;
3503: ---------------------------------------------------------------------------------------------*/
3504:
3505: /* Bug 4221590:inserting into PA_FP_SPREAD_CALC_TMP1 */
3504:
3505: /* Bug 4221590:inserting into PA_FP_SPREAD_CALC_TMP1 */
3506: DELETE FROM PA_FP_SPREAD_CALC_TMP1;
3507:
3508: IF P_PA_DEBUG_MODE = 'Y' THEN
3509: pa_debug.g_err_stage:= 'inserting into pa_fp_spread_calc_tmp1 -> ' || sql%ROWCOUNT;
3510: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3511: END IF;
3512:
3505: /* Bug 4221590:inserting into PA_FP_SPREAD_CALC_TMP1 */
3506: DELETE FROM PA_FP_SPREAD_CALC_TMP1;
3507:
3508: IF P_PA_DEBUG_MODE = 'Y' THEN
3509: pa_debug.g_err_stage:= 'inserting into pa_fp_spread_calc_tmp1 -> ' || sql%ROWCOUNT;
3510: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3511: END IF;
3512:
3513: INSERT INTO PA_FP_SPREAD_CALC_TMP1(
3506: DELETE FROM PA_FP_SPREAD_CALC_TMP1;
3507:
3508: IF P_PA_DEBUG_MODE = 'Y' THEN
3509: pa_debug.g_err_stage:= 'inserting into pa_fp_spread_calc_tmp1 -> ' || sql%ROWCOUNT;
3510: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3511: END IF;
3512:
3513: INSERT INTO PA_FP_SPREAD_CALC_TMP1(
3514: RESOURCE_ASSIGNMENT_ID
3634: or tmp.txn_burdened_cost IS NOT NULL
3635: or tmp.quantity IS NOT NULL
3636: or tmp.txn_revenue IS NOT NULL));*/
3637:
3638: IF P_PA_DEBUG_MODE = 'Y' THEN
3639: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3640: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3641: END IF;
3642:
3635: or tmp.quantity IS NOT NULL
3636: or tmp.txn_revenue IS NOT NULL));*/
3637:
3638: IF P_PA_DEBUG_MODE = 'Y' THEN
3639: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3640: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3641: END IF;
3642:
3643: -- Bug 3861261 Update resource assignments planning start and end date
3636: or tmp.txn_revenue IS NOT NULL));*/
3637:
3638: IF P_PA_DEBUG_MODE = 'Y' THEN
3639: pa_debug.g_err_stage:= 'number of records inserted -> ' || sql%ROWCOUNT;
3640: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
3641: END IF;
3642:
3643: -- Bug 3861261 Update resource assignments planning start and end date
3644: -- as the min(start_date) and max(end_date) of the corresponding budget lines
3673: where pra.budget_version_id = p_fin_plan_version_id;
3674: END IF;
3675: --End changes for Bug 6432606
3676:
3677: IF p_pa_debug_mode = 'Y' THEN
3678: pa_debug.reset_err_stack;
3679: END IF;
3680: EXCEPTION
3681: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3674: END IF;
3675: --End changes for Bug 6432606
3676:
3677: IF p_pa_debug_mode = 'Y' THEN
3678: pa_debug.reset_err_stack;
3679: END IF;
3680: EXCEPTION
3681: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3682:
3695: ELSE
3696: x_msg_count := l_msg_count;
3697: END IF;
3698:
3699: IF P_PA_DEBUG_MODE = 'Y' THEN
3700: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3701: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3702: pa_debug.reset_err_stack;
3703: END IF;
3696: x_msg_count := l_msg_count;
3697: END IF;
3698:
3699: IF P_PA_DEBUG_MODE = 'Y' THEN
3700: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3701: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3702: pa_debug.reset_err_stack;
3703: END IF;
3704: RAISE;
3697: END IF;
3698:
3699: IF P_PA_DEBUG_MODE = 'Y' THEN
3700: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3701: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3702: pa_debug.reset_err_stack;
3703: END IF;
3704: RAISE;
3705:
3698:
3699: IF P_PA_DEBUG_MODE = 'Y' THEN
3700: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
3701: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3702: pa_debug.reset_err_stack;
3703: END IF;
3704: RAISE;
3705:
3706: WHEN others THEN
3709: x_msg_count := 1;
3710: x_msg_data := SQLERRM;
3711: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
3712: ,p_procedure_name => 'CREATE_FINPLAN_LINES');
3713: IF P_PA_DEBUG_MODE = 'Y' THEN
3714: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3715: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3716: pa_debug.reset_err_stack;
3717: END IF;
3710: x_msg_data := SQLERRM;
3711: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
3712: ,p_procedure_name => 'CREATE_FINPLAN_LINES');
3713: IF P_PA_DEBUG_MODE = 'Y' THEN
3714: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3715: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3716: pa_debug.reset_err_stack;
3717: END IF;
3718: RAISE;
3711: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
3712: ,p_procedure_name => 'CREATE_FINPLAN_LINES');
3713: IF P_PA_DEBUG_MODE = 'Y' THEN
3714: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3715: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3716: pa_debug.reset_err_stack;
3717: END IF;
3718: RAISE;
3719:
3712: ,p_procedure_name => 'CREATE_FINPLAN_LINES');
3713: IF P_PA_DEBUG_MODE = 'Y' THEN
3714: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
3715: pa_debug.write('CREATE_FINPLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,5);
3716: pa_debug.reset_err_stack;
3717: END IF;
3718: RAISE;
3719:
3720: END CREATE_FINPLAN_LINES;
3791: BEGIN
3792:
3793: x_msg_count := 0;
3794: x_return_status := FND_API.G_RET_STS_SUCCESS;
3795: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3796:
3797: IF p_pa_debug_mode = 'Y' THEN
3798: pa_debug.set_curr_function( p_function => 'convert_plan_type_name_to_id',
3799: p_debug_mode => l_debug_mode );
3793: x_msg_count := 0;
3794: x_return_status := FND_API.G_RET_STS_SUCCESS;
3795: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3796:
3797: IF p_pa_debug_mode = 'Y' THEN
3798: pa_debug.set_curr_function( p_function => 'convert_plan_type_name_to_id',
3799: p_debug_mode => l_debug_mode );
3800: END IF;
3801: -- If fin plan type id is passed. validate the fin plan type id. If it is not passed
3794: x_return_status := FND_API.G_RET_STS_SUCCESS;
3795: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3796:
3797: IF p_pa_debug_mode = 'Y' THEN
3798: pa_debug.set_curr_function( p_function => 'convert_plan_type_name_to_id',
3799: p_debug_mode => l_debug_mode );
3800: END IF;
3801: -- If fin plan type id is passed. validate the fin plan type id. If it is not passed
3802: -- then convert name to fin plan type id
3816: x_return_status := FND_API.G_RET_STS_ERROR;
3817: x_fin_plan_type_id:=NULL;
3818: CLOSE l_fin_plan_type_id_csr;
3819: IF l_debug_mode='Y' THEN
3820: pa_debug.g_err_stage := 'p_fin_plan_type_id is '||p_fin_plan_type_id ;
3821: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3822: ,pa_debug.g_err_stage,l_debug_level5);
3823: END IF;
3824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3817: x_fin_plan_type_id:=NULL;
3818: CLOSE l_fin_plan_type_id_csr;
3819: IF l_debug_mode='Y' THEN
3820: pa_debug.g_err_stage := 'p_fin_plan_type_id is '||p_fin_plan_type_id ;
3821: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3822: ,pa_debug.g_err_stage,l_debug_level5);
3823: END IF;
3824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3825:
3818: CLOSE l_fin_plan_type_id_csr;
3819: IF l_debug_mode='Y' THEN
3820: pa_debug.g_err_stage := 'p_fin_plan_type_id is '||p_fin_plan_type_id ;
3821: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3822: ,pa_debug.g_err_stage,l_debug_level5);
3823: END IF;
3824: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3825:
3826: ELSE
3842: p_value1 => p_fin_plan_type_name);
3843:
3844: x_return_status := FND_API.G_RET_STS_ERROR;
3845: IF l_debug_mode='Y' THEN
3846: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3847: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3848: ,pa_debug.g_err_stage,l_debug_level5);
3849: END IF;
3850: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3843:
3844: x_return_status := FND_API.G_RET_STS_ERROR;
3845: IF l_debug_mode='Y' THEN
3846: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3847: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3848: ,pa_debug.g_err_stage,l_debug_level5);
3849: END IF;
3850: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3851:
3844: x_return_status := FND_API.G_RET_STS_ERROR;
3845: IF l_debug_mode='Y' THEN
3846: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3847: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3848: ,pa_debug.g_err_stage,l_debug_level5);
3849: END IF;
3850: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3851:
3852: END IF;
3850: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3851:
3852: END IF;
3853: IF l_debug_mode='Y' THEN
3854: pa_debug.g_err_stage := 'x_fin_plan_type_id derived is '||x_fin_plan_type_id ;
3855: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3856: ,pa_debug.g_err_stage,l_debug_level5);
3857: END IF;
3858:
3851:
3852: END IF;
3853: IF l_debug_mode='Y' THEN
3854: pa_debug.g_err_stage := 'x_fin_plan_type_id derived is '||x_fin_plan_type_id ;
3855: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3856: ,pa_debug.g_err_stage,l_debug_level5);
3857: END IF;
3858:
3859:
3852: END IF;
3853: IF l_debug_mode='Y' THEN
3854: pa_debug.g_err_stage := 'x_fin_plan_type_id derived is '||x_fin_plan_type_id ;
3855: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3856: ,pa_debug.g_err_stage,l_debug_level5);
3857: END IF;
3858:
3859:
3860: ELSE
3867: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3868: END IF;
3869:
3870: IF l_debug_mode='Y' THEN
3871: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3872: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3873: ,pa_debug.g_err_stage,l_debug_level5);
3874: pa_debug.reset_curr_function;
3875: END IF;
3868: END IF;
3869:
3870: IF l_debug_mode='Y' THEN
3871: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3872: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3873: ,pa_debug.g_err_stage,l_debug_level5);
3874: pa_debug.reset_curr_function;
3875: END IF;
3876: EXCEPTION
3869:
3870: IF l_debug_mode='Y' THEN
3871: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3872: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3873: ,pa_debug.g_err_stage,l_debug_level5);
3874: pa_debug.reset_curr_function;
3875: END IF;
3876: EXCEPTION
3877: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3870: IF l_debug_mode='Y' THEN
3871: pa_debug.g_err_stage := 'p_fin_plan_type_name is '||p_fin_plan_type_name ;
3872: pa_debug.write('convert_plan_type_name_to_id: ' || g_module_name
3873: ,pa_debug.g_err_stage,l_debug_level5);
3874: pa_debug.reset_curr_function;
3875: END IF;
3876: EXCEPTION
3877: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3878:
3895: ELSE
3896: x_msg_count := l_msg_count;
3897: END IF;
3898: IF l_debug_mode='Y' THEN
3899: pa_debug.reset_curr_function;
3900: END IF;
3901: RETURN;
3902:
3903: WHEN OTHERS THEN
3912: ,p_procedure_name => 'convert_plan_type_name_to_id'
3913: ,p_error_text => x_msg_data);
3914:
3915: IF l_debug_mode = 'Y' THEN
3916: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3917: pa_debug.write(g_module_name,pa_debug.g_err_stage,
3918: l_debug_level5);
3919: pa_debug.reset_curr_function;
3920: END IF;
3913: ,p_error_text => x_msg_data);
3914:
3915: IF l_debug_mode = 'Y' THEN
3916: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3917: pa_debug.write(g_module_name,pa_debug.g_err_stage,
3918: l_debug_level5);
3919: pa_debug.reset_curr_function;
3920: END IF;
3921: RAISE;
3915: IF l_debug_mode = 'Y' THEN
3916: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3917: pa_debug.write(g_module_name,pa_debug.g_err_stage,
3918: l_debug_level5);
3919: pa_debug.reset_curr_function;
3920: END IF;
3921: RAISE;
3922:
3923: END convert_plan_type_name_to_id;
3972: BEGIN
3973:
3974: SAVEPOINT DELETE_WP_OPTION_SAVE;
3975:
3976: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3977: l_debug_mode := NVL(l_debug_mode, 'N');
3978: x_msg_count := 0;
3979: x_return_status := FND_API.G_RET_STS_SUCCESS;
3980: IF p_pa_debug_mode = 'Y' THEN
3976: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3977: l_debug_mode := NVL(l_debug_mode, 'N');
3978: x_msg_count := 0;
3979: x_return_status := FND_API.G_RET_STS_SUCCESS;
3980: IF p_pa_debug_mode = 'Y' THEN
3981: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_option',
3982: p_debug_mode => l_debug_mode );
3983: END IF;
3984: ---------------------------------------------------------------
3977: l_debug_mode := NVL(l_debug_mode, 'N');
3978: x_msg_count := 0;
3979: x_return_status := FND_API.G_RET_STS_SUCCESS;
3980: IF p_pa_debug_mode = 'Y' THEN
3981: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_option',
3982: p_debug_mode => l_debug_mode );
3983: END IF;
3984: ---------------------------------------------------------------
3985: -- validating input parameter p_project_id.
3985: -- validating input parameter p_project_id.
3986: -- p_project_id cannot be passed as null.
3987: ---------------------------------------------------------------
3988: IF l_debug_mode = 'Y' THEN
3989: pa_debug.g_err_stage:='Validating input parameters';
3990: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
3991: END IF;
3992:
3993: IF (p_project_id IS NULL)
3986: -- p_project_id cannot be passed as null.
3987: ---------------------------------------------------------------
3988: IF l_debug_mode = 'Y' THEN
3989: pa_debug.g_err_stage:='Validating input parameters';
3990: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
3991: END IF;
3992:
3993: IF (p_project_id IS NULL)
3994: THEN
3993: IF (p_project_id IS NULL)
3994: THEN
3995:
3996: IF l_debug_mode = 'Y' THEN
3997: pa_debug.write('Delete_wp_options Project Id is null: ' || g_module_name,pa_debug.g_err_stage,5);
3998: END IF;
3999:
4000: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4001: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4008: --Fetch proj_fp_options_id
4009: ---------------------------------------------------------------
4010:
4011: IF l_debug_mode = 'Y' THEN
4012: pa_debug.g_err_stage:='Fetching proj_fp_options_id ';
4013: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4014: END IF;
4015:
4016: SELECT pfo.proj_fp_options_id
4009: ---------------------------------------------------------------
4010:
4011: IF l_debug_mode = 'Y' THEN
4012: pa_debug.g_err_stage:='Fetching proj_fp_options_id ';
4013: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4014: END IF;
4015:
4016: SELECT pfo.proj_fp_options_id
4017: INTO l_proj_fp_options_id
4028: -- Delete_wp_budget_versions
4029: -----------------------------------------------------------------
4030:
4031: IF l_debug_mode = 'Y' THEN
4032: pa_debug.g_err_stage:='Fetching the workplan structure ids for the project id';
4033: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4034: END IF;
4035:
4036: OPEN c_struct_ver(p_project_id);
4029: -----------------------------------------------------------------
4030:
4031: IF l_debug_mode = 'Y' THEN
4032: pa_debug.g_err_stage:='Fetching the workplan structure ids for the project id';
4033: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4034: END IF;
4035:
4036: OPEN c_struct_ver(p_project_id);
4037:
4036: OPEN c_struct_ver(p_project_id);
4037:
4038: FETCH c_struct_ver BULK COLLECT INTO l_sv_id_tbl;
4039: IF c_struct_ver%NOTFOUND THEN
4040: IF p_pa_debug_mode = 'Y' THEN
4041: pa_debug.g_err_stage:= 'No Structure versions for the project_id passed - project_id: '||p_project_id;
4042: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4043: END IF;
4044: END IF;
4037:
4038: FETCH c_struct_ver BULK COLLECT INTO l_sv_id_tbl;
4039: IF c_struct_ver%NOTFOUND THEN
4040: IF p_pa_debug_mode = 'Y' THEN
4041: pa_debug.g_err_stage:= 'No Structure versions for the project_id passed - project_id: '||p_project_id;
4042: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4043: END IF;
4044: END IF;
4045: CLOSE c_struct_ver;
4038: FETCH c_struct_ver BULK COLLECT INTO l_sv_id_tbl;
4039: IF c_struct_ver%NOTFOUND THEN
4040: IF p_pa_debug_mode = 'Y' THEN
4041: pa_debug.g_err_stage:= 'No Structure versions for the project_id passed - project_id: '||p_project_id;
4042: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4043: END IF;
4044: END IF;
4045: CLOSE c_struct_ver;
4046:
4048:
4049: IF l_sv_id_count > 0 THEN
4050:
4051: IF l_debug_mode = 'Y' THEN
4052: pa_debug.g_err_stage:='Deleting all version data for the wp structure version ids pertaining to project_id:'||p_project_id;
4053: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4054: END IF;
4055:
4056: Delete_wp_budget_versions
4049: IF l_sv_id_count > 0 THEN
4050:
4051: IF l_debug_mode = 'Y' THEN
4052: pa_debug.g_err_stage:='Deleting all version data for the wp structure version ids pertaining to project_id:'||p_project_id;
4053: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4054: END IF;
4055:
4056: Delete_wp_budget_versions
4057: (p_struct_elem_version_id_tbl => l_sv_id_tbl
4061:
4062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4063:
4064: IF l_debug_mode = 'Y' THEN
4065: pa_debug.g_err_stage:='Call to Delete_wp_budget_versions is returning error status';
4066: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4067: END IF;
4068: RAISE Delete_Ver_Exc_PVT;
4069: END IF;
4062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4063:
4064: IF l_debug_mode = 'Y' THEN
4065: pa_debug.g_err_stage:='Call to Delete_wp_budget_versions is returning error status';
4066: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4067: END IF;
4068: RAISE Delete_Ver_Exc_PVT;
4069: END IF;
4070:
4076: --Deleting data from respective tables
4077: ---------------------------------------------------------------
4078:
4079: IF l_debug_mode = 'Y' THEN
4080: pa_debug.g_err_stage:='Deleting data from respective tables';
4081: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4082: END IF;
4083:
4084: -- delete from pa_proj_fp_options table
4077: ---------------------------------------------------------------
4078:
4079: IF l_debug_mode = 'Y' THEN
4080: pa_debug.g_err_stage:='Deleting data from respective tables';
4081: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,3);
4082: END IF;
4083:
4084: -- delete from pa_proj_fp_options table
4085: DELETE FROM pa_proj_fp_options WHERE proj_fp_options_id = l_proj_fp_options_id;
4090: -- delete from pa_fp_upgrade_audit
4091: DELETE FROM pa_fp_upgrade_audit WHERE proj_fp_options_id = l_proj_fp_options_id;
4092:
4093: IF l_debug_mode = 'Y' THEN
4094: pa_debug.reset_curr_function;
4095: END IF;
4096: EXCEPTION
4097: WHEN NO_DATA_FOUND THEN
4098: IF l_debug_mode = 'Y' THEN
4095: END IF;
4096: EXCEPTION
4097: WHEN NO_DATA_FOUND THEN
4098: IF l_debug_mode = 'Y' THEN
4099: pa_debug.reset_curr_function;
4100: END IF;
4101: WHEN Delete_Ver_Exc_PVT THEN
4102: ROLLBACK TO SAVEPOINT PA_FP_PUB_DELETE_VER;
4103: l_msg_count := FND_MSG_PUB.count_msg;
4117:
4118: x_return_status := FND_API.G_RET_STS_ERROR;
4119:
4120: IF l_debug_mode = 'Y' THEN
4121: pa_debug.g_err_stage:='Delete_wp_budget_versions returned error';
4122: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4123: pa_debug.reset_curr_function;
4124: END IF;
4125:
4118: x_return_status := FND_API.G_RET_STS_ERROR;
4119:
4120: IF l_debug_mode = 'Y' THEN
4121: pa_debug.g_err_stage:='Delete_wp_budget_versions returned error';
4122: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4123: pa_debug.reset_curr_function;
4124: END IF;
4125:
4126: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4119:
4120: IF l_debug_mode = 'Y' THEN
4121: pa_debug.g_err_stage:='Delete_wp_budget_versions returned error';
4122: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4123: pa_debug.reset_curr_function;
4124: END IF;
4125:
4126: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4127: l_msg_count := FND_MSG_PUB.count_msg;
4141:
4142: x_return_status := FND_API.G_RET_STS_ERROR;
4143:
4144: IF l_debug_mode = 'Y' THEN
4145: pa_debug.g_err_stage:='Invalid Arguments Passed';
4146: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4147: pa_debug.reset_curr_function;
4148: END IF;
4149:
4142: x_return_status := FND_API.G_RET_STS_ERROR;
4143:
4144: IF l_debug_mode = 'Y' THEN
4145: pa_debug.g_err_stage:='Invalid Arguments Passed';
4146: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4147: pa_debug.reset_curr_function;
4148: END IF;
4149:
4150: WHEN Others THEN
4143:
4144: IF l_debug_mode = 'Y' THEN
4145: pa_debug.g_err_stage:='Invalid Arguments Passed';
4146: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4147: pa_debug.reset_curr_function;
4148: END IF;
4149:
4150: WHEN Others THEN
4151: ROLLBACK TO SAVEPOINT DELETE_WP_OPTION_SAVE;
4155: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PVT'
4156: ,p_procedure_name => 'Delete_wp_option');
4157:
4158: IF l_debug_mode = 'Y' THEN
4159: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4160: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4161: pa_debug.reset_curr_function;
4162: END IF;
4163: RAISE;
4156: ,p_procedure_name => 'Delete_wp_option');
4157:
4158: IF l_debug_mode = 'Y' THEN
4159: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4160: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4161: pa_debug.reset_curr_function;
4162: END IF;
4163: RAISE;
4164:
4157:
4158: IF l_debug_mode = 'Y' THEN
4159: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4160: pa_debug.write('Delete_wp_option: ' || g_module_name,pa_debug.g_err_stage,5);
4161: pa_debug.reset_curr_function;
4162: END IF;
4163: RAISE;
4164:
4165: END Delete_wp_option;
4198:
4199: BEGIN
4200: SAVEPOINT PA_FP_PUB_DELETE_VER;
4201:
4202: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4203: l_debug_mode := NVL(l_debug_mode, 'N');
4204: x_msg_count := 0;
4205: x_return_status := FND_API.G_RET_STS_SUCCESS;
4206: IF p_pa_debug_mode = 'Y' THEN
4202: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4203: l_debug_mode := NVL(l_debug_mode, 'N');
4204: x_msg_count := 0;
4205: x_return_status := FND_API.G_RET_STS_SUCCESS;
4206: IF p_pa_debug_mode = 'Y' THEN
4207: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_bugdet_versions',
4208: p_debug_mode => l_debug_mode );
4209: END IF;
4210:
4203: l_debug_mode := NVL(l_debug_mode, 'N');
4204: x_msg_count := 0;
4205: x_return_status := FND_API.G_RET_STS_SUCCESS;
4206: IF p_pa_debug_mode = 'Y' THEN
4207: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.Delete_wp_bugdet_versions',
4208: p_debug_mode => l_debug_mode );
4209: END IF;
4210:
4211: ------------------------------------------------------------------------
4212: -- Check if the PLSql Table p_struct_elem_version_id_tbl has no records.
4213: ------------------------------------------------------------------------
4214:
4215: IF l_debug_mode = 'Y' THEN
4216: pa_debug.g_err_stage:='Checking for existence of data in PLsql table p_struct_elem_version_id_tbl';
4217: pa_debug.write('Delete_wp_bugdet_versions: ' || g_module_name,pa_debug.g_err_stage,3);
4218: END IF;
4219:
4220: l_sv_id_tbl_count := p_struct_elem_version_id_tbl.COUNT;
4213: ------------------------------------------------------------------------
4214:
4215: IF l_debug_mode = 'Y' THEN
4216: pa_debug.g_err_stage:='Checking for existence of data in PLsql table p_struct_elem_version_id_tbl';
4217: pa_debug.write('Delete_wp_bugdet_versions: ' || g_module_name,pa_debug.g_err_stage,3);
4218: END IF;
4219:
4220: l_sv_id_tbl_count := p_struct_elem_version_id_tbl.COUNT;
4221:
4233: --------------------------------------------------
4234: FOR i in p_struct_elem_version_id_tbl.first .. p_struct_elem_version_id_tbl.last LOOP --LoopA
4235:
4236: IF l_debug_mode = 'Y' THEN
4237: pa_debug.g_err_stage:='Outer loop : '||i;
4238: pa_debug.write('Delete_wp_bugdet_versions: ' || g_module_name,pa_debug.g_err_stage,3);
4239: END IF;
4240:
4241: -----------------------------------------------------------
4234: FOR i in p_struct_elem_version_id_tbl.first .. p_struct_elem_version_id_tbl.last LOOP --LoopA
4235:
4236: IF l_debug_mode = 'Y' THEN
4237: pa_debug.g_err_stage:='Outer loop : '||i;
4238: pa_debug.write('Delete_wp_bugdet_versions: ' || g_module_name,pa_debug.g_err_stage,3);
4239: END IF;
4240:
4241: -----------------------------------------------------------
4242: -- For each stucture_version_id fetch the budget_version_id
4248: -- iterate through the out loop LoopA
4249: ------------------------------------------------------------------
4250:
4251: IF c_budget_ver%NOTFOUND THEN
4252: IF p_pa_debug_mode = 'Y' THEN
4253: pa_debug.g_err_stage:= 'Could not fetch budget_version_id !!!...';
4254: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4255: END IF;
4256: EXIT; -- Come out of LoopB, Jump to next iteration of LoopA
4249: ------------------------------------------------------------------
4250:
4251: IF c_budget_ver%NOTFOUND THEN
4252: IF p_pa_debug_mode = 'Y' THEN
4253: pa_debug.g_err_stage:= 'Could not fetch budget_version_id !!!...';
4254: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4255: END IF;
4256: EXIT; -- Come out of LoopB, Jump to next iteration of LoopA
4257: END IF;
4250:
4251: IF c_budget_ver%NOTFOUND THEN
4252: IF p_pa_debug_mode = 'Y' THEN
4253: pa_debug.g_err_stage:= 'Could not fetch budget_version_id !!!...';
4254: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4255: END IF;
4256: EXIT; -- Come out of LoopB, Jump to next iteration of LoopA
4257: END IF;
4258:
4274: END IF;
4275:
4276: END LOOP; -- LoopB Closed
4277: END LOOP; -- LoopA Closed
4278: IF p_pa_debug_mode = 'Y' THEN
4279: pa_debug.reset_curr_function;
4280: END IF;
4281: EXCEPTION
4282:
4275:
4276: END LOOP; -- LoopB Closed
4277: END LOOP; -- LoopA Closed
4278: IF p_pa_debug_mode = 'Y' THEN
4279: pa_debug.reset_curr_function;
4280: END IF;
4281: EXCEPTION
4282:
4283: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4298:
4299: x_return_status := FND_API.G_RET_STS_ERROR;
4300:
4301: IF l_debug_mode = 'Y' THEN
4302: pa_debug.g_err_stage:='Invalid Arguments Passed';
4303: pa_debug.write('Delete_wp_budget_version: ' || g_module_name,pa_debug.g_err_stage,5);
4304: pa_debug.reset_curr_function;
4305: END IF;
4306:
4299: x_return_status := FND_API.G_RET_STS_ERROR;
4300:
4301: IF l_debug_mode = 'Y' THEN
4302: pa_debug.g_err_stage:='Invalid Arguments Passed';
4303: pa_debug.write('Delete_wp_budget_version: ' || g_module_name,pa_debug.g_err_stage,5);
4304: pa_debug.reset_curr_function;
4305: END IF;
4306:
4307: WHEN Delete_Ver_Exc_PVT THEN
4300:
4301: IF l_debug_mode = 'Y' THEN
4302: pa_debug.g_err_stage:='Invalid Arguments Passed';
4303: pa_debug.write('Delete_wp_budget_version: ' || g_module_name,pa_debug.g_err_stage,5);
4304: pa_debug.reset_curr_function;
4305: END IF;
4306:
4307: WHEN Delete_Ver_Exc_PVT THEN
4308: ROLLBACK TO SAVEPOINT PA_FP_PUB_DELETE_VER;
4322: END IF;
4323: x_return_status := FND_API.G_RET_STS_ERROR;
4324:
4325: IF l_debug_mode = 'Y' THEN
4326: pa_debug.g_err_stage:='Delete_version_helper returned error';
4327: pa_debug.write('Delete_wp_options: ' || g_module_name,pa_debug.g_err_stage,5);
4328: pa_debug.reset_curr_function;
4329: END IF;
4330:
4323: x_return_status := FND_API.G_RET_STS_ERROR;
4324:
4325: IF l_debug_mode = 'Y' THEN
4326: pa_debug.g_err_stage:='Delete_version_helper returned error';
4327: pa_debug.write('Delete_wp_options: ' || g_module_name,pa_debug.g_err_stage,5);
4328: pa_debug.reset_curr_function;
4329: END IF;
4330:
4331: WHEN Others THEN
4324:
4325: IF l_debug_mode = 'Y' THEN
4326: pa_debug.g_err_stage:='Delete_version_helper returned error';
4327: pa_debug.write('Delete_wp_options: ' || g_module_name,pa_debug.g_err_stage,5);
4328: pa_debug.reset_curr_function;
4329: END IF;
4330:
4331: WHEN Others THEN
4332: ROLLBACK TO SAVEPOINT DELETE_WP_OPTION_SAVE;
4336: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_PVT'
4337: ,p_procedure_name => 'Delete_wp_budget_versions');
4338:
4339: IF l_debug_mode = 'Y' THEN
4340: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4341: pa_debug.write('Delete_wp_budget_versions: ' || g_module_name,pa_debug.g_err_stage,5);
4342: pa_debug.reset_curr_function;
4343: END IF;
4344: RAISE;
4337: ,p_procedure_name => 'Delete_wp_budget_versions');
4338:
4339: IF l_debug_mode = 'Y' THEN
4340: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4341: pa_debug.write('Delete_wp_budget_versions: ' || g_module_name,pa_debug.g_err_stage,5);
4342: pa_debug.reset_curr_function;
4343: END IF;
4344: RAISE;
4345:
4338:
4339: IF l_debug_mode = 'Y' THEN
4340: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4341: pa_debug.write('Delete_wp_budget_versions: ' || g_module_name,pa_debug.g_err_stage,5);
4342: pa_debug.reset_curr_function;
4343: END IF;
4344: RAISE;
4345:
4346: END Delete_wp_budget_versions;
4396: BEGIN
4397:
4398: x_msg_count := 0;
4399: x_return_status := FND_API.G_RET_STS_SUCCESS;
4400: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4401: l_debug_mode := NVL(l_debug_mode, 'Y');
4402:
4403: IF p_pa_debug_mode = 'Y' THEN
4404: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES',
4399: x_return_status := FND_API.G_RET_STS_SUCCESS;
4400: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4401: l_debug_mode := NVL(l_debug_mode, 'Y');
4402:
4403: IF p_pa_debug_mode = 'Y' THEN
4404: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES',
4405: p_debug_mode => l_debug_mode );
4406: END IF;
4407: l_lines_count := p_finplan_lines_tab.COUNT;
4400: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4401: l_debug_mode := NVL(l_debug_mode, 'Y');
4402:
4403: IF p_pa_debug_mode = 'Y' THEN
4404: PA_DEBUG.Set_Curr_Function( p_function => 'PA_FIN_PLAN_PVT.ADD_FIN_PLAN_LINES',
4405: p_debug_mode => l_debug_mode );
4406: END IF;
4407: l_lines_count := p_finplan_lines_tab.COUNT;
4408: IF l_debug_mode = 'Y' THEN
4405: p_debug_mode => l_debug_mode );
4406: END IF;
4407: l_lines_count := p_finplan_lines_tab.COUNT;
4408: IF l_debug_mode = 'Y' THEN
4409: pa_debug.g_err_stage:='Validating input parameter - plan lines count cannot be 0';
4410: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4411: END IF;
4412:
4413: -- Change of Code for Bug 3639983 Starts Here
4406: END IF;
4407: l_lines_count := p_finplan_lines_tab.COUNT;
4408: IF l_debug_mode = 'Y' THEN
4409: pa_debug.g_err_stage:='Validating input parameter - plan lines count cannot be 0';
4410: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4411: END IF;
4412:
4413: -- Change of Code for Bug 3639983 Starts Here
4414: IF l_lines_count = 0 THEN
4412:
4413: -- Change of Code for Bug 3639983 Starts Here
4414: IF l_lines_count = 0 THEN
4415: IF l_debug_mode = 'Y' THEN
4416: pa_debug.g_err_stage:='No Lines to be added - Returning';
4417: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4418: pa_debug.reset_curr_function;
4419: END IF;
4420: RETURN;
4413: -- Change of Code for Bug 3639983 Starts Here
4414: IF l_lines_count = 0 THEN
4415: IF l_debug_mode = 'Y' THEN
4416: pa_debug.g_err_stage:='No Lines to be added - Returning';
4417: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4418: pa_debug.reset_curr_function;
4419: END IF;
4420: RETURN;
4421: END IF;
4414: IF l_lines_count = 0 THEN
4415: IF l_debug_mode = 'Y' THEN
4416: pa_debug.g_err_stage:='No Lines to be added - Returning';
4417: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4418: pa_debug.reset_curr_function;
4419: END IF;
4420: RETURN;
4421: END IF;
4422: -- Change of Code for Bug 3639983 Ends Here
4421: END IF;
4422: -- Change of Code for Bug 3639983 Ends Here
4423:
4424: IF l_debug_mode = 'Y' THEN
4425: pa_debug.g_err_stage:='Calling CREATE_FINPLAN_LINES';
4426: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4427: END IF;
4428:
4429: --Call to api PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
4422: -- Change of Code for Bug 3639983 Ends Here
4423:
4424: IF l_debug_mode = 'Y' THEN
4425: pa_debug.g_err_stage:='Calling CREATE_FINPLAN_LINES';
4426: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4427: END IF;
4428:
4429: --Call to api PA_FIN_PLAN_PVT.CREATE_FINPLAN_LINES
4430:
4438: ,x_msg_count => x_msg_count
4439: ,x_msg_data => x_msg_data );
4440:
4441: IF l_debug_mode = 'Y' THEN
4442: pa_debug.g_err_stage:='Return Status After CREATE_FINPLAN_LINES :'||x_return_status;
4443: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4444: END IF;
4445:
4446: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4439: ,x_msg_data => x_msg_data );
4440:
4441: IF l_debug_mode = 'Y' THEN
4442: pa_debug.g_err_stage:='Return Status After CREATE_FINPLAN_LINES :'||x_return_status;
4443: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4444: END IF;
4445:
4446: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4447:
4444: END IF;
4445:
4446: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4447:
4448: IF P_PA_DEBUG_MODE = 'Y' THEN
4449: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
4450: pa_debug.write('CREATE_DRAFT: '||g_module_name,pa_debug.g_err_stage,5);
4451: END IF;
4452:
4445:
4446: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4447:
4448: IF P_PA_DEBUG_MODE = 'Y' THEN
4449: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
4450: pa_debug.write('CREATE_DRAFT: '||g_module_name,pa_debug.g_err_stage,5);
4451: END IF;
4452:
4453: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4446: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4447:
4448: IF P_PA_DEBUG_MODE = 'Y' THEN
4449: pa_debug.g_err_stage:= 'Error Calling CREATE_FINPLAN_LINES';
4450: pa_debug.write('CREATE_DRAFT: '||g_module_name,pa_debug.g_err_stage,5);
4451: END IF;
4452:
4453: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4454:
4457: END IF;
4458:
4459: -- Change of Code for Bug 3639983 Starts Here
4460: IF l_debug_mode = 'Y' THEN
4461: pa_debug.g_err_stage:='Extending lenght of all local empty table to l_lines_count';
4462: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4463: END IF;
4464:
4465: l_line_start_date_tab.extend(l_lines_count);
4458:
4459: -- Change of Code for Bug 3639983 Starts Here
4460: IF l_debug_mode = 'Y' THEN
4461: pa_debug.g_err_stage:='Extending lenght of all local empty table to l_lines_count';
4462: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4463: END IF;
4464:
4465: l_line_start_date_tab.extend(l_lines_count);
4466: l_line_end_date_tab.extend(l_lines_count);
4503:
4504: -- Change of Code for Bug 3732414 Ends Here
4505:
4506: IF l_debug_mode = 'Y' THEN
4507: pa_debug.g_err_stage:='Fetching project Id from get_proj_id_csr';
4508: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4509: END IF;
4510:
4511: OPEN get_proj_id_csr ;
4504: -- Change of Code for Bug 3732414 Ends Here
4505:
4506: IF l_debug_mode = 'Y' THEN
4507: pa_debug.g_err_stage:='Fetching project Id from get_proj_id_csr';
4508: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4509: END IF;
4510:
4511: OPEN get_proj_id_csr ;
4512: FETCH get_proj_id_csr into l_project_id ;
4513: CLOSE get_proj_id_csr;
4514:
4515: -- Calling PA_FP_CALC_PLAN_PKG.calculate api
4516: IF l_debug_mode = 'Y' THEN
4517: pa_debug.g_err_stage:='Calling Calculate API';
4518: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4519:
4520: pa_debug.g_err_stage:='Calling Calculate API l_project_id'||l_project_id;
4521: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4514:
4515: -- Calling PA_FP_CALC_PLAN_PKG.calculate api
4516: IF l_debug_mode = 'Y' THEN
4517: pa_debug.g_err_stage:='Calling Calculate API';
4518: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4519:
4520: pa_debug.g_err_stage:='Calling Calculate API l_project_id'||l_project_id;
4521: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4522:
4516: IF l_debug_mode = 'Y' THEN
4517: pa_debug.g_err_stage:='Calling Calculate API';
4518: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4519:
4520: pa_debug.g_err_stage:='Calling Calculate API l_project_id'||l_project_id;
4521: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4522:
4523: pa_debug.g_err_stage:='Calling Calculate API p_fin_plan_version_id'||p_fin_plan_version_id;
4524: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4517: pa_debug.g_err_stage:='Calling Calculate API';
4518: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4519:
4520: pa_debug.g_err_stage:='Calling Calculate API l_project_id'||l_project_id;
4521: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4522:
4523: pa_debug.g_err_stage:='Calling Calculate API p_fin_plan_version_id'||p_fin_plan_version_id;
4524: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4525:
4519:
4520: pa_debug.g_err_stage:='Calling Calculate API l_project_id'||l_project_id;
4521: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4522:
4523: pa_debug.g_err_stage:='Calling Calculate API p_fin_plan_version_id'||p_fin_plan_version_id;
4524: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4525:
4526: pa_debug.g_err_stage:='Calling Calculate API l_resource_assignment_tab'||l_resource_assignment_tab.COUNT;
4527: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4520: pa_debug.g_err_stage:='Calling Calculate API l_project_id'||l_project_id;
4521: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4522:
4523: pa_debug.g_err_stage:='Calling Calculate API p_fin_plan_version_id'||p_fin_plan_version_id;
4524: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4525:
4526: pa_debug.g_err_stage:='Calling Calculate API l_resource_assignment_tab'||l_resource_assignment_tab.COUNT;
4527: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4528:
4522:
4523: pa_debug.g_err_stage:='Calling Calculate API p_fin_plan_version_id'||p_fin_plan_version_id;
4524: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4525:
4526: pa_debug.g_err_stage:='Calling Calculate API l_resource_assignment_tab'||l_resource_assignment_tab.COUNT;
4527: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4528:
4529: pa_debug.g_err_stage:='Calling Calculate API l_delete_budget_lines_tab'||l_delete_budget_lines_tab.COUNT;
4530: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4523: pa_debug.g_err_stage:='Calling Calculate API p_fin_plan_version_id'||p_fin_plan_version_id;
4524: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4525:
4526: pa_debug.g_err_stage:='Calling Calculate API l_resource_assignment_tab'||l_resource_assignment_tab.COUNT;
4527: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4528:
4529: pa_debug.g_err_stage:='Calling Calculate API l_delete_budget_lines_tab'||l_delete_budget_lines_tab.COUNT;
4530: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4531:
4525:
4526: pa_debug.g_err_stage:='Calling Calculate API l_resource_assignment_tab'||l_resource_assignment_tab.COUNT;
4527: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4528:
4529: pa_debug.g_err_stage:='Calling Calculate API l_delete_budget_lines_tab'||l_delete_budget_lines_tab.COUNT;
4530: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4531:
4532: pa_debug.g_err_stage:='Calling Calculate API l_spread_amts_flag_tab'||l_spread_amts_flag_tab.COUNT;
4533: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4526: pa_debug.g_err_stage:='Calling Calculate API l_resource_assignment_tab'||l_resource_assignment_tab.COUNT;
4527: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4528:
4529: pa_debug.g_err_stage:='Calling Calculate API l_delete_budget_lines_tab'||l_delete_budget_lines_tab.COUNT;
4530: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4531:
4532: pa_debug.g_err_stage:='Calling Calculate API l_spread_amts_flag_tab'||l_spread_amts_flag_tab.COUNT;
4533: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4534:
4528:
4529: pa_debug.g_err_stage:='Calling Calculate API l_delete_budget_lines_tab'||l_delete_budget_lines_tab.COUNT;
4530: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4531:
4532: pa_debug.g_err_stage:='Calling Calculate API l_spread_amts_flag_tab'||l_spread_amts_flag_tab.COUNT;
4533: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4534:
4535: pa_debug.g_err_stage:='Calling Calculate API l_txn_currency_code_tab'||l_txn_currency_code_tab.COUNT;
4536: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4529: pa_debug.g_err_stage:='Calling Calculate API l_delete_budget_lines_tab'||l_delete_budget_lines_tab.COUNT;
4530: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4531:
4532: pa_debug.g_err_stage:='Calling Calculate API l_spread_amts_flag_tab'||l_spread_amts_flag_tab.COUNT;
4533: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4534:
4535: pa_debug.g_err_stage:='Calling Calculate API l_txn_currency_code_tab'||l_txn_currency_code_tab.COUNT;
4536: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4537:
4531:
4532: pa_debug.g_err_stage:='Calling Calculate API l_spread_amts_flag_tab'||l_spread_amts_flag_tab.COUNT;
4533: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4534:
4535: pa_debug.g_err_stage:='Calling Calculate API l_txn_currency_code_tab'||l_txn_currency_code_tab.COUNT;
4536: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4537:
4538: END IF;
4539:
4532: pa_debug.g_err_stage:='Calling Calculate API l_spread_amts_flag_tab'||l_spread_amts_flag_tab.COUNT;
4533: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4534:
4535: pa_debug.g_err_stage:='Calling Calculate API l_txn_currency_code_tab'||l_txn_currency_code_tab.COUNT;
4536: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4537:
4538: END IF;
4539:
4540: -- bug 4221650: checking for the time phased code of the version to call
4544:
4545: IF NOT l_ver_time_phased_code = 'N' THEN
4546:
4547: IF l_debug_mode = 'Y' THEN
4548: pa_debug.g_err_stage:=' Calling Calculate in BUDGET_LINE mode';
4549: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4550: END IF;
4551:
4552: -- bug 3825873 17-JUL-2004 Corrected the input parameters
4545: IF NOT l_ver_time_phased_code = 'N' THEN
4546:
4547: IF l_debug_mode = 'Y' THEN
4548: pa_debug.g_err_stage:=' Calling Calculate in BUDGET_LINE mode';
4549: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4550: END IF;
4551:
4552: -- bug 3825873 17-JUL-2004 Corrected the input parameters
4553: /*Bug 4224464 Added the if condition to ditinguish the call to calculate API in AMG flow from other flows.
4633: END IF;
4634: ELSE
4635: -- bug 4221650:
4636: IF l_debug_mode = 'Y' THEN
4637: pa_debug.g_err_stage:=' Calling Calculate in RESOURCE_ASSIGNMENT mode';
4638: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4639: END IF;
4640:
4641: /*Bug 4224464 Added the if condition to ditinguish the call to calculate API in AMG flow from other flows.
4634: ELSE
4635: -- bug 4221650:
4636: IF l_debug_mode = 'Y' THEN
4637: pa_debug.g_err_stage:=' Calling Calculate in RESOURCE_ASSIGNMENT mode';
4638: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4639: END IF;
4640:
4641: /*Bug 4224464 Added the if condition to ditinguish the call to calculate API in AMG flow from other flows.
4642: We are passing the parameter p_calling_module as G_AMG_API if its a AMG flow. This parameter would be internally used by
4685:
4686: END IF;
4687:
4688: IF l_debug_mode = 'Y' THEN
4689: pa_debug.g_err_stage:='Return Status After CALCULATE :'||x_return_status;
4690: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4691: END IF;
4692:
4693: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4686: END IF;
4687:
4688: IF l_debug_mode = 'Y' THEN
4689: pa_debug.g_err_stage:='Return Status After CALCULATE :'||x_return_status;
4690: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4691: END IF;
4692:
4693: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4694:
4692:
4693: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4694:
4695: IF l_debug_mode = 'Y' THEN
4696: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
4697: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
4698: END IF;
4699:
4700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4693: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4694:
4695: IF l_debug_mode = 'Y' THEN
4696: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
4697: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
4698: END IF;
4699:
4700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4701:
4700: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4701:
4702: END IF;
4703: IF l_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:='Exiting ADD FIN PLAN LINES x_return_status: '||x_return_status;
4705: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4706: pa_debug.reset_curr_function;
4707: END IF;
4708: EXCEPTION
4701:
4702: END IF;
4703: IF l_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:='Exiting ADD FIN PLAN LINES x_return_status: '||x_return_status;
4705: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4706: pa_debug.reset_curr_function;
4707: END IF;
4708: EXCEPTION
4709:
4702: END IF;
4703: IF l_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:='Exiting ADD FIN PLAN LINES x_return_status: '||x_return_status;
4705: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,3);
4706: pa_debug.reset_curr_function;
4707: END IF;
4708: EXCEPTION
4709:
4710: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4725: ELSE
4726: x_msg_count := l_msg_count;
4727: END IF;
4728:
4729: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4730:
4731: IF P_PA_DEBUG_MODE = 'Y' THEN
4732: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4733: pa_debug.reset_curr_function;
4727: END IF;
4728:
4729: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4730:
4731: IF P_PA_DEBUG_MODE = 'Y' THEN
4732: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4733: pa_debug.reset_curr_function;
4734: END IF;
4735: RETURN;
4728:
4729: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4730:
4731: IF P_PA_DEBUG_MODE = 'Y' THEN
4732: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4733: pa_debug.reset_curr_function;
4734: END IF;
4735: RETURN;
4736:
4729: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4730:
4731: IF P_PA_DEBUG_MODE = 'Y' THEN
4732: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4733: pa_debug.reset_curr_function;
4734: END IF;
4735: RETURN;
4736:
4737: WHEN others THEN
4741: x_msg_data := SQLERRM;
4742:
4743: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
4744: ,p_procedure_name => 'ADD_FIN_PLAN_LINES');
4745: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4746:
4747: IF P_PA_DEBUG_MODE = 'Y' THEN
4748: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4749: pa_debug.reset_curr_function;
4743: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_pvt'
4744: ,p_procedure_name => 'ADD_FIN_PLAN_LINES');
4745: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4746:
4747: IF P_PA_DEBUG_MODE = 'Y' THEN
4748: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4749: pa_debug.reset_curr_function;
4750: END IF;
4751: RAISE;
4744: ,p_procedure_name => 'ADD_FIN_PLAN_LINES');
4745: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4746:
4747: IF P_PA_DEBUG_MODE = 'Y' THEN
4748: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4749: pa_debug.reset_curr_function;
4750: END IF;
4751: RAISE;
4752:
4745: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4746:
4747: IF P_PA_DEBUG_MODE = 'Y' THEN
4748: pa_debug.write('ADD_FIN_PLAN_LINES: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4749: pa_debug.reset_curr_function;
4750: END IF;
4751: RAISE;
4752:
4753: END ADD_FIN_PLAN_LINES;