[Home] [Help]
22: /*========================================================================
23: This procedure is used to acquie required locks for copy_plan
24: =======================================================================*/
25:
26: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
27:
28: PROCEDURE Acquire_Locks_For_Copy_Plan(
29: p_source_plan_version_id IN NUMBER
30: ,p_target_plan_version_id IN NUMBER
71:
72: x_msg_count := 0;
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: IF P_PA_DEBUG_MODE = 'Y' THEN
76: pa_debug.set_err_stack('Acquire_Locks_For_Copy_Plan');
77: END IF;
78: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
79: l_debug_mode := NVL(l_debug_mode, 'Y');
72: x_msg_count := 0;
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: IF P_PA_DEBUG_MODE = 'Y' THEN
76: pa_debug.set_err_stack('Acquire_Locks_For_Copy_Plan');
77: END IF;
78: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
79: l_debug_mode := NVL(l_debug_mode, 'Y');
80: IF P_PA_DEBUG_MODE = 'Y' THEN
74:
75: IF P_PA_DEBUG_MODE = 'Y' THEN
76: pa_debug.set_err_stack('Acquire_Locks_For_Copy_Plan');
77: END IF;
78: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
79: l_debug_mode := NVL(l_debug_mode, 'Y');
80: IF P_PA_DEBUG_MODE = 'Y' THEN
81: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
82: END IF;
76: pa_debug.set_err_stack('Acquire_Locks_For_Copy_Plan');
77: END IF;
78: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
79: l_debug_mode := NVL(l_debug_mode, 'Y');
80: IF P_PA_DEBUG_MODE = 'Y' THEN
81: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
82: END IF;
83: /*
84: * Acquire lock on pa_proj_fp_options and pa_budget_versions so that
77: END IF;
78: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
79: l_debug_mode := NVL(l_debug_mode, 'Y');
80: IF P_PA_DEBUG_MODE = 'Y' THEN
81: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
82: END IF;
83: /*
84: * Acquire lock on pa_proj_fp_options and pa_budget_versions so that
85: * no other process would be able to modify these tables and all
85: * no other process would be able to modify these tables and all
86: * underlying child tables
87: */
88:
89: IF P_PA_DEBUG_MODE = 'Y' THEN
90: pa_debug.g_err_stage:='Acquiring lock on pa_proj_fp_options';
91: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
92: END IF;
93:
86: * underlying child tables
87: */
88:
89: IF P_PA_DEBUG_MODE = 'Y' THEN
90: pa_debug.g_err_stage:='Acquiring lock on pa_proj_fp_options';
91: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
92: END IF;
93:
94: OPEN source_fp_opt_cur;
87: */
88:
89: IF P_PA_DEBUG_MODE = 'Y' THEN
90: pa_debug.g_err_stage:='Acquiring lock on pa_proj_fp_options';
91: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
92: END IF;
93:
94: OPEN source_fp_opt_cur;
95:
94: OPEN source_fp_opt_cur;
95:
96: OPEN target_fp_opt_cur;
97:
98: IF P_PA_DEBUG_MODE = 'Y' THEN
99: pa_debug.g_err_stage:='Acquiring lock on pa_budget_versions';
100: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
101: END IF;
102:
95:
96: OPEN target_fp_opt_cur;
97:
98: IF P_PA_DEBUG_MODE = 'Y' THEN
99: pa_debug.g_err_stage:='Acquiring lock on pa_budget_versions';
100: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
101: END IF;
102:
103: OPEN source_bdgt_vers_cur;
96: OPEN target_fp_opt_cur;
97:
98: IF P_PA_DEBUG_MODE = 'Y' THEN
99: pa_debug.g_err_stage:='Acquiring lock on pa_budget_versions';
100: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
101: END IF;
102:
103: OPEN source_bdgt_vers_cur;
104:
108: * Increment the record_version_number of target version in
109: * pa_budget_versions and pa_proj_fp_options
110: */
111:
112: IF P_PA_DEBUG_MODE = 'Y' THEN
113: pa_debug.g_err_stage:='Incrementing record version number of target version in pa_proj_fp_options';
114: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
115: END IF;
116:
109: * pa_budget_versions and pa_proj_fp_options
110: */
111:
112: IF P_PA_DEBUG_MODE = 'Y' THEN
113: pa_debug.g_err_stage:='Incrementing record version number of target version in pa_proj_fp_options';
114: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
115: END IF;
116:
117: UPDATE PA_PROJ_FP_OPTIONS
110: */
111:
112: IF P_PA_DEBUG_MODE = 'Y' THEN
113: pa_debug.g_err_stage:='Incrementing record version number of target version in pa_proj_fp_options';
114: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
115: END IF;
116:
117: UPDATE PA_PROJ_FP_OPTIONS
118: SET record_version_number = record_version_number+1
117: UPDATE PA_PROJ_FP_OPTIONS
118: SET record_version_number = record_version_number+1
119: WHERE fin_plan_version_id=p_target_plan_version_id;
120:
121: IF P_PA_DEBUG_MODE = 'Y' THEN
122: pa_debug.g_err_stage:='Incrementing record version number of target version in pa_budget_versions';
123: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
124: END IF;
125:
118: SET record_version_number = record_version_number+1
119: WHERE fin_plan_version_id=p_target_plan_version_id;
120:
121: IF P_PA_DEBUG_MODE = 'Y' THEN
122: pa_debug.g_err_stage:='Incrementing record version number of target version in pa_budget_versions';
123: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
124: END IF;
125:
126: UPDATE PA_BUDGET_VERSIONS
119: WHERE fin_plan_version_id=p_target_plan_version_id;
120:
121: IF P_PA_DEBUG_MODE = 'Y' THEN
122: pa_debug.g_err_stage:='Incrementing record version number of target version in pa_budget_versions';
123: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
124: END IF;
125:
126: UPDATE PA_BUDGET_VERSIONS
127: SET record_version_number = record_version_number+1
126: UPDATE PA_BUDGET_VERSIONS
127: SET record_version_number = record_version_number+1
128: WHERE budget_version_id = p_target_plan_version_id;
129:
130: IF P_PA_DEBUG_MODE = 'Y' THEN
131: pa_debug.g_err_stage:='Closing all the cursors ';
132: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
133: END IF;
134:
127: SET record_version_number = record_version_number+1
128: WHERE budget_version_id = p_target_plan_version_id;
129:
130: IF P_PA_DEBUG_MODE = 'Y' THEN
131: pa_debug.g_err_stage:='Closing all the cursors ';
132: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
133: END IF;
134:
135: CLOSE target_bdgt_vers_cur;
128: WHERE budget_version_id = p_target_plan_version_id;
129:
130: IF P_PA_DEBUG_MODE = 'Y' THEN
131: pa_debug.g_err_stage:='Closing all the cursors ';
132: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
133: END IF;
134:
135: CLOSE target_bdgt_vers_cur;
136: CLOSE source_bdgt_vers_cur;
135: CLOSE target_bdgt_vers_cur;
136: CLOSE source_bdgt_vers_cur;
137: CLOSE target_fp_opt_cur;
138: CLOSE source_fp_opt_cur;
139: IF P_PA_DEBUG_MODE = 'Y' THEN
140: pa_debug.reset_err_stack;
141: END IF;
142: EXCEPTION
143: WHEN Resource_Busy THEN
136: CLOSE source_bdgt_vers_cur;
137: CLOSE target_fp_opt_cur;
138: CLOSE source_fp_opt_cur;
139: IF P_PA_DEBUG_MODE = 'Y' THEN
140: pa_debug.reset_err_stack;
141: END IF;
142: EXCEPTION
143: WHEN Resource_Busy THEN
144: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
143: WHEN Resource_Busy THEN
144: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
145: p_msg_name => 'PA_UTIL_USER_LOCK_FAILED');
146:
147: IF P_PA_DEBUG_MODE = 'Y' THEN
148: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
149: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
150: END IF;
151:
144: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
145: p_msg_name => 'PA_UTIL_USER_LOCK_FAILED');
146:
147: IF P_PA_DEBUG_MODE = 'Y' THEN
148: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
149: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
150: END IF;
151:
152: IF source_fp_opt_cur%ISOPEN THEN
145: p_msg_name => 'PA_UTIL_USER_LOCK_FAILED');
146:
147: IF P_PA_DEBUG_MODE = 'Y' THEN
148: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
149: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
150: END IF;
151:
152: IF source_fp_opt_cur%ISOPEN THEN
153: CLOSE source_fp_opt_cur;
180: x_msg_count := l_msg_count;
181: END IF;
182:
183: x_return_status:= FND_API.G_RET_STS_ERROR;
184: IF P_PA_DEBUG_MODE = 'Y' THEN
185: pa_debug.reset_err_stack;
186: END IF;
187: RAISE;
188:
181: END IF;
182:
183: x_return_status:= FND_API.G_RET_STS_ERROR;
184: IF P_PA_DEBUG_MODE = 'Y' THEN
185: pa_debug.reset_err_stack;
186: END IF;
187: RAISE;
188:
189: WHEN OTHERS THEN
187: RAISE;
188:
189: WHEN OTHERS THEN
190:
191: IF P_PA_DEBUG_MODE = 'Y' THEN
192: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
193: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
194: END IF;
195:
188:
189: WHEN OTHERS THEN
190:
191: IF P_PA_DEBUG_MODE = 'Y' THEN
192: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
193: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
194: END IF;
195:
196: IF source_fp_opt_cur%ISOPEN THEN
189: WHEN OTHERS THEN
190:
191: IF P_PA_DEBUG_MODE = 'Y' THEN
192: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
193: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
194: END IF;
195:
196: IF source_fp_opt_cur%ISOPEN THEN
197: CLOSE source_fp_opt_cur;
213: x_msg_count := 1;
214: x_msg_data := SQLERRM;
215: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
216: ,p_procedure_name => 'ACQUIRE_LOCKS_FOR_COPY_PLAN');
217: IF P_PA_DEBUG_MODE = 'Y' THEN
218: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
219: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
220:
221: pa_debug.reset_err_stack;
214: x_msg_data := SQLERRM;
215: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
216: ,p_procedure_name => 'ACQUIRE_LOCKS_FOR_COPY_PLAN');
217: IF P_PA_DEBUG_MODE = 'Y' THEN
218: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
219: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
220:
221: pa_debug.reset_err_stack;
222: END IF;
215: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
216: ,p_procedure_name => 'ACQUIRE_LOCKS_FOR_COPY_PLAN');
217: IF P_PA_DEBUG_MODE = 'Y' THEN
218: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
219: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
220:
221: pa_debug.reset_err_stack;
222: END IF;
223: RAISE;
217: IF P_PA_DEBUG_MODE = 'Y' THEN
218: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
219: pa_debug.write('Acquire_Locks_For_Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
220:
221: pa_debug.reset_err_stack;
222: END IF;
223: RAISE;
224: END Acquire_Locks_For_Copy_Plan;
225:
359: FND_MSG_PUB.INITIALIZE;
360: x_msg_count := 0;
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362:
363: IF P_PA_DEBUG_MODE = 'Y' THEN
364: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Plan');
365: END IF;
366: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
367: l_debug_mode := NVL(l_debug_mode, 'Y');
360: x_msg_count := 0;
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362:
363: IF P_PA_DEBUG_MODE = 'Y' THEN
364: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Plan');
365: END IF;
366: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
367: l_debug_mode := NVL(l_debug_mode, 'Y');
368: IF P_PA_DEBUG_MODE = 'Y' THEN
362:
363: IF P_PA_DEBUG_MODE = 'Y' THEN
364: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Plan');
365: END IF;
366: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
367: l_debug_mode := NVL(l_debug_mode, 'Y');
368: IF P_PA_DEBUG_MODE = 'Y' THEN
369: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
370: END IF;
364: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Plan');
365: END IF;
366: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
367: l_debug_mode := NVL(l_debug_mode, 'Y');
368: IF P_PA_DEBUG_MODE = 'Y' THEN
369: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
370: END IF;
371: /*
372: * Check if source_verion_id, target_version_id are NULL, if so throw
365: END IF;
366: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
367: l_debug_mode := NVL(l_debug_mode, 'Y');
368: IF P_PA_DEBUG_MODE = 'Y' THEN
369: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
370: END IF;
371: /*
372: * Check if source_verion_id, target_version_id are NULL, if so throw
373: * an error message
372: * Check if source_verion_id, target_version_id are NULL, if so throw
373: * an error message
374: */
375:
376: IF P_PA_DEBUG_MODE = 'Y' THEN
377: pa_debug.g_err_stage := 'Checking for valid parameters:';
378: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
379: END IF;
380:
373: * an error message
374: */
375:
376: IF P_PA_DEBUG_MODE = 'Y' THEN
377: pa_debug.g_err_stage := 'Checking for valid parameters:';
378: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
379: END IF;
380:
381: IF (p_source_plan_version_id IS NULL) OR
374: */
375:
376: IF P_PA_DEBUG_MODE = 'Y' THEN
377: pa_debug.g_err_stage := 'Checking for valid parameters:';
378: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
379: END IF;
380:
381: IF (p_source_plan_version_id IS NULL) OR
382: (p_target_plan_version_id IS NULL)
380:
381: IF (p_source_plan_version_id IS NULL) OR
382: (p_target_plan_version_id IS NULL)
383: THEN
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
386: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
387: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
388: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
381: IF (p_source_plan_version_id IS NULL) OR
382: (p_target_plan_version_id IS NULL)
383: THEN
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
386: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
387: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
388: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
389: END IF;
382: (p_target_plan_version_id IS NULL)
383: THEN
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
386: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
387: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
388: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
389: END IF;
390:
383: THEN
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
386: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
387: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
388: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
389: END IF;
390:
391: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
386: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
387: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
388: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
389: END IF;
390:
391: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
392: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
396: l_adj_percentage := NVL(p_adj_percentage,0);
397:
398: -- Doing business validations before proceeding furthur
399:
400: IF P_PA_DEBUG_MODE = 'Y' THEN
401: pa_debug.g_err_stage:='Fetching the source plan preference code';
402: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
403: END IF;
404:
397:
398: -- Doing business validations before proceeding furthur
399:
400: IF P_PA_DEBUG_MODE = 'Y' THEN
401: pa_debug.g_err_stage:='Fetching the source plan preference code';
402: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
403: END IF;
404:
405: SELECT fin_plan_preference_code
398: -- Doing business validations before proceeding furthur
399:
400: IF P_PA_DEBUG_MODE = 'Y' THEN
401: pa_debug.g_err_stage:='Fetching the source plan preference code';
402: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
403: END IF;
404:
405: SELECT fin_plan_preference_code
406: ,plan_in_multi_curr_flag -- Bug#2729191
410: ,l_source_appr_rev_plan_flag /* Bug#3276128 */
411: FROM pa_proj_fp_options
412: WHERE fin_plan_version_id=p_source_plan_version_id;
413:
414: IF P_PA_DEBUG_MODE = 'Y' THEN
415: pa_debug.g_err_stage:='Fetching the target plan preference code';
416: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
417: END IF;
418:
411: FROM pa_proj_fp_options
412: WHERE fin_plan_version_id=p_source_plan_version_id;
413:
414: IF P_PA_DEBUG_MODE = 'Y' THEN
415: pa_debug.g_err_stage:='Fetching the target plan preference code';
416: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
417: END IF;
418:
419: SELECT fin_plan_preference_code,nvl(approved_rev_plan_type_flag,'N')
412: WHERE fin_plan_version_id=p_source_plan_version_id;
413:
414: IF P_PA_DEBUG_MODE = 'Y' THEN
415: pa_debug.g_err_stage:='Fetching the target plan preference code';
416: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
417: END IF;
418:
419: SELECT fin_plan_preference_code,nvl(approved_rev_plan_type_flag,'N')
420: INTO l_target_fp_pref_code,l_target_appr_rev_plan_flag
420: INTO l_target_fp_pref_code,l_target_appr_rev_plan_flag
421: FROM pa_proj_fp_options
422: WHERE fin_plan_version_id=p_target_plan_version_id;
423:
424: IF P_PA_DEBUG_MODE = 'Y' THEN
425: pa_debug.g_err_stage:='Checking the compatability of the plans';
426: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
427: END IF;
428:
421: FROM pa_proj_fp_options
422: WHERE fin_plan_version_id=p_target_plan_version_id;
423:
424: IF P_PA_DEBUG_MODE = 'Y' THEN
425: pa_debug.g_err_stage:='Checking the compatability of the plans';
426: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
427: END IF;
428:
429: IF (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
422: WHERE fin_plan_version_id=p_target_plan_version_id;
423:
424: IF P_PA_DEBUG_MODE = 'Y' THEN
425: pa_debug.g_err_stage:='Checking the compatability of the plans';
426: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
427: END IF;
428:
429: IF (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
430: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY)
432: l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY)
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
435: THEN
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.g_err_stage:='Versions are incompatible';
438: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
439: END IF;
440:
433: OR (l_target_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
435: THEN
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.g_err_stage:='Versions are incompatible';
438: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
439: END IF;
440:
441: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
434: OR (l_source_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP)
435: THEN
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.g_err_stage:='Versions are incompatible';
438: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
439: END IF;
440:
441: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
442: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
451: mc enabled budget version into approved revenue budget versions **
452:
453:
454: IF l_source_appr_rev_plan_flag = 'N' and l_source_plan_in_mc_flag = 'Y' and l_target_appr_rev_plan_flag = 'Y' THEN
455: IF P_PA_DEBUG_MODE = 'Y' THEN
456: pa_debug.g_err_stage:='Cannot copy a mc enabled version into a appr rev plan type version. Bug 3149010';
457: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
458: END IF;
459:
452:
453:
454: IF l_source_appr_rev_plan_flag = 'N' and l_source_plan_in_mc_flag = 'Y' and l_target_appr_rev_plan_flag = 'Y' THEN
455: IF P_PA_DEBUG_MODE = 'Y' THEN
456: pa_debug.g_err_stage:='Cannot copy a mc enabled version into a appr rev plan type version. Bug 3149010';
457: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
458: END IF;
459:
460: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
453:
454: IF l_source_appr_rev_plan_flag = 'N' and l_source_plan_in_mc_flag = 'Y' and l_target_appr_rev_plan_flag = 'Y' THEN
455: IF P_PA_DEBUG_MODE = 'Y' THEN
456: pa_debug.g_err_stage:='Cannot copy a mc enabled version into a appr rev plan type version. Bug 3149010';
457: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
458: END IF;
459:
460: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
461: p_msg_name => 'PA_FP_CP_INV_MC_TO_APPR_REV');
462: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
463:
464: END IF; */
465:
466: IF P_PA_DEBUG_MODE = 'Y' THEN
467: pa_debug.g_err_stage := 'Parameter validation complete';
468: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
469: END IF;
470:
463:
464: END IF; */
465:
466: IF P_PA_DEBUG_MODE = 'Y' THEN
467: pa_debug.g_err_stage := 'Parameter validation complete';
468: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
469: END IF;
470:
471: /* Bug #2616445: Commented out the following code for checking the lock as the
464: END IF; */
465:
466: IF P_PA_DEBUG_MODE = 'Y' THEN
467: pa_debug.g_err_stage := 'Parameter validation complete';
468: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
469: END IF;
470:
471: /* Bug #2616445: Commented out the following code for checking the lock as the
472: user will be able to edit plan only if it is not locked by somebody else.
472: user will be able to edit plan only if it is not locked by somebody else.
473:
474: --Checking if target version is locked or not
475:
476: IF P_PA_DEBUG_MODE = 'Y' THEN
477: pa_debug.g_err_stage:='Checking if pa_budget_versions is locked';
478: END IF;
479: IF P_PA_DEBUG_MODE = 'Y' THEN
480: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
473:
474: --Checking if target version is locked or not
475:
476: IF P_PA_DEBUG_MODE = 'Y' THEN
477: pa_debug.g_err_stage:='Checking if pa_budget_versions is locked';
478: END IF;
479: IF P_PA_DEBUG_MODE = 'Y' THEN
480: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
481: END IF;
475:
476: IF P_PA_DEBUG_MODE = 'Y' THEN
477: pa_debug.g_err_stage:='Checking if pa_budget_versions is locked';
478: END IF;
479: IF P_PA_DEBUG_MODE = 'Y' THEN
480: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
481: END IF;
482:
483: SELECT locked_by_person_id
476: IF P_PA_DEBUG_MODE = 'Y' THEN
477: pa_debug.g_err_stage:='Checking if pa_budget_versions is locked';
478: END IF;
479: IF P_PA_DEBUG_MODE = 'Y' THEN
480: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
481: END IF;
482:
483: SELECT locked_by_person_id
484: ,project_id
492: p_msg_name => 'PA_FP_VERSION_ALREADY_LOCKED');
493: RAISE Resource_Busy;
494: END IF; */
495:
496: IF P_PA_DEBUG_MODE = 'Y' THEN
497: pa_debug.g_err_stage:='Getting the project id';
498: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
499: END IF;
500:
493: RAISE Resource_Busy;
494: END IF; */
495:
496: IF P_PA_DEBUG_MODE = 'Y' THEN
497: pa_debug.g_err_stage:='Getting the project id';
498: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
499: END IF;
500:
501: SELECT project_id
494: END IF; */
495:
496: IF P_PA_DEBUG_MODE = 'Y' THEN
497: pa_debug.g_err_stage:='Getting the project id';
498: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
499: END IF;
500:
501: SELECT project_id
502: INTO l_project_id
534: (l_source_plan_in_mc_flag = 'Y' and l_target_appr_rev_plan_flag = 'Y' )) -- added for 3156057
535: THEN
536:
537: OPEN target_txn_currencies_cur;
538: IF P_PA_DEBUG_MODE = 'Y' THEN
539: pa_debug.g_err_stage:='target_txn_currencies_cur is opened';
540: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
541: END IF;
542:
535: THEN
536:
537: OPEN target_txn_currencies_cur;
538: IF P_PA_DEBUG_MODE = 'Y' THEN
539: pa_debug.g_err_stage:='target_txn_currencies_cur is opened';
540: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
541: END IF;
542:
543: FETCH target_txn_currencies_cur BULK COLLECT INTO
536:
537: OPEN target_txn_currencies_cur;
538: IF P_PA_DEBUG_MODE = 'Y' THEN
539: pa_debug.g_err_stage:='target_txn_currencies_cur is opened';
540: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
541: END IF;
542:
543: FETCH target_txn_currencies_cur BULK COLLECT INTO
544: l_txn_currency_code_tbl
551: ,l_pc_rev_exchange_rate_tbl
552: ,l_pfc_cost_exchange_rate_tbl
553: ,l_pfc_rev_exchange_rate_tbl;
554:
555: IF P_PA_DEBUG_MODE = 'Y' THEN
556: pa_debug.g_err_stage:='no of txn currencies fetched are '||SQL%ROWCOUNT;
557: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
558: END IF;
559: CLOSE target_txn_currencies_cur;
552: ,l_pfc_cost_exchange_rate_tbl
553: ,l_pfc_rev_exchange_rate_tbl;
554:
555: IF P_PA_DEBUG_MODE = 'Y' THEN
556: pa_debug.g_err_stage:='no of txn currencies fetched are '||SQL%ROWCOUNT;
557: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
558: END IF;
559: CLOSE target_txn_currencies_cur;
560:
553: ,l_pfc_rev_exchange_rate_tbl;
554:
555: IF P_PA_DEBUG_MODE = 'Y' THEN
556: pa_debug.g_err_stage:='no of txn currencies fetched are '||SQL%ROWCOUNT;
557: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
558: END IF;
559: CLOSE target_txn_currencies_cur;
560:
561: IF P_PA_DEBUG_MODE = 'Y' THEN
557: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
558: END IF;
559: CLOSE target_txn_currencies_cur;
560:
561: IF P_PA_DEBUG_MODE = 'Y' THEN
562: pa_debug.g_err_stage:='target_txn_currencies_cur is closed';
563: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
564: END IF;
565:
558: END IF;
559: CLOSE target_txn_currencies_cur;
560:
561: IF P_PA_DEBUG_MODE = 'Y' THEN
562: pa_debug.g_err_stage:='target_txn_currencies_cur is closed';
563: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
564: END IF;
565:
566: END IF;
559: CLOSE target_txn_currencies_cur;
560:
561: IF P_PA_DEBUG_MODE = 'Y' THEN
562: pa_debug.g_err_stage:='target_txn_currencies_cur is closed';
563: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
564: END IF;
565:
566: END IF;
567: -- End of changes for bug 2729191
569: -- Calling an api to delete the existing records of target_version in
570: -- pa_proj_periods_denorm, p_fin_plan_adj_lines, pa_fp_adj_elements,
571: -- pa_budget_lines,pa_resource_assignments
572:
573: IF P_PA_DEBUG_MODE = 'Y' THEN
574: pa_debug.g_err_stage:='Calling the delete version api';
575: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
576: END IF;
577:
570: -- pa_proj_periods_denorm, p_fin_plan_adj_lines, pa_fp_adj_elements,
571: -- pa_budget_lines,pa_resource_assignments
572:
573: IF P_PA_DEBUG_MODE = 'Y' THEN
574: pa_debug.g_err_stage:='Calling the delete version api';
575: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
576: END IF;
577:
578: PA_FIN_PLAN_PUB.DELETE_VERSION_HELPER(
571: -- pa_budget_lines,pa_resource_assignments
572:
573: IF P_PA_DEBUG_MODE = 'Y' THEN
574: pa_debug.g_err_stage:='Calling the delete version api';
575: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
576: END IF;
577:
578: PA_FIN_PLAN_PUB.DELETE_VERSION_HELPER(
579: p_budget_version_id => p_target_plan_version_id
589: --Calling the api to copy source version to target version
590:
591: l_target_plan_version_id := p_target_plan_version_id;
592:
593: IF P_PA_DEBUG_MODE = 'Y' THEN
594: pa_debug.g_err_stage:='Calling the copy version api';
595: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
596: END IF;
597:
590:
591: l_target_plan_version_id := p_target_plan_version_id;
592:
593: IF P_PA_DEBUG_MODE = 'Y' THEN
594: pa_debug.g_err_stage:='Calling the copy version api';
595: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
596: END IF;
597:
598: PA_FIN_PLAN_PUB.COPY_VERSION(
591: l_target_plan_version_id := p_target_plan_version_id;
592:
593: IF P_PA_DEBUG_MODE = 'Y' THEN
594: pa_debug.g_err_stage:='Calling the copy version api';
595: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
596: END IF;
597:
598: PA_FIN_PLAN_PUB.COPY_VERSION(
599: p_project_id => l_project_id
618: THEN
619:
620: -- Delete the txn currencies that are copied from source version to target version
621:
622: IF P_PA_DEBUG_MODE = 'Y' THEN
623: pa_debug.g_err_stage:='Deleting the txn currencies of the target version after copy_version';
624: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
625: END IF;
626:
619:
620: -- Delete the txn currencies that are copied from source version to target version
621:
622: IF P_PA_DEBUG_MODE = 'Y' THEN
623: pa_debug.g_err_stage:='Deleting the txn currencies of the target version after copy_version';
624: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
625: END IF;
626:
627: DELETE FROM pa_fp_txn_currencies
620: -- Delete the txn currencies that are copied from source version to target version
621:
622: IF P_PA_DEBUG_MODE = 'Y' THEN
623: pa_debug.g_err_stage:='Deleting the txn currencies of the target version after copy_version';
624: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
625: END IF;
626:
627: DELETE FROM pa_fp_txn_currencies
628: WHERE fin_plan_version_id = p_target_plan_version_id
629: AND proj_fp_options_id = target_fp_options_rec.proj_fp_options_id; -- bug 2779637
630:
631: -- Update the Multi_Curr_Flag and the MC attributes of the target fp option
632:
633: IF P_PA_DEBUG_MODE = 'Y' THEN
634: pa_debug.g_err_stage:='Updating the target proj fp option with the MC attributes';
635: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
636: END IF;
637:
630:
631: -- Update the Multi_Curr_Flag and the MC attributes of the target fp option
632:
633: IF P_PA_DEBUG_MODE = 'Y' THEN
634: pa_debug.g_err_stage:='Updating the target proj fp option with the MC attributes';
635: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
636: END IF;
637:
638: UPDATE PA_PROJ_FP_OPTIONS
631: -- Update the Multi_Curr_Flag and the MC attributes of the target fp option
632:
633: IF P_PA_DEBUG_MODE = 'Y' THEN
634: pa_debug.g_err_stage:='Updating the target proj fp option with the MC attributes';
635: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
636: END IF;
637:
638: UPDATE PA_PROJ_FP_OPTIONS
639: SET plan_in_multi_curr_flag = target_fp_options_rec.plan_in_multi_curr_flag
655: -- which are stored in the plsql tables
656:
657: IF NVL(l_txn_currency_code_tbl.last,0) > 0 THEN
658:
659: IF P_PA_DEBUG_MODE = 'Y' THEN
660: pa_debug.g_err_stage:='Inserting the txn currencies of the target version
661: present earlier to copy version';
662: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
663: END IF;
656:
657: IF NVL(l_txn_currency_code_tbl.last,0) > 0 THEN
658:
659: IF P_PA_DEBUG_MODE = 'Y' THEN
660: pa_debug.g_err_stage:='Inserting the txn currencies of the target version
661: present earlier to copy version';
662: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
663: END IF;
664:
658:
659: IF P_PA_DEBUG_MODE = 'Y' THEN
660: pa_debug.g_err_stage:='Inserting the txn currencies of the target version
661: present earlier to copy version';
662: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
663: END IF;
664:
665: FORALL i IN l_txn_currency_code_tbl.first..l_txn_currency_code_tbl.last
666: INSERT INTO PA_FP_TXN_CURRENCIES (
709: END IF;
710: END IF;
711: -- End of changes for bug 2729191
712:
713: IF P_PA_DEBUG_MODE = 'Y' THEN
714: pa_debug.g_err_stage:='Exiting Copy_Plan';
715: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
716: pa_debug.reset_err_stack;
717: END IF;
710: END IF;
711: -- End of changes for bug 2729191
712:
713: IF P_PA_DEBUG_MODE = 'Y' THEN
714: pa_debug.g_err_stage:='Exiting Copy_Plan';
715: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
716: pa_debug.reset_err_stack;
717: END IF;
718: EXCEPTION
711: -- End of changes for bug 2729191
712:
713: IF P_PA_DEBUG_MODE = 'Y' THEN
714: pa_debug.g_err_stage:='Exiting Copy_Plan';
715: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
716: pa_debug.reset_err_stack;
717: END IF;
718: EXCEPTION
719: WHEN resource_busy THEN
712:
713: IF P_PA_DEBUG_MODE = 'Y' THEN
714: pa_debug.g_err_stage:='Exiting Copy_Plan';
715: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,3);
716: pa_debug.reset_err_stack;
717: END IF;
718: EXCEPTION
719: WHEN resource_busy THEN
720: IF P_PA_DEBUG_MODE = 'Y' THEN
716: pa_debug.reset_err_stack;
717: END IF;
718: EXCEPTION
719: WHEN resource_busy THEN
720: IF P_PA_DEBUG_MODE = 'Y' THEN
721: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
722: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
723: END IF;
724:
717: END IF;
718: EXCEPTION
719: WHEN resource_busy THEN
720: IF P_PA_DEBUG_MODE = 'Y' THEN
721: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
722: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
723: END IF;
724:
725: l_msg_count := FND_MSG_PUB.count_msg;
718: EXCEPTION
719: WHEN resource_busy THEN
720: IF P_PA_DEBUG_MODE = 'Y' THEN
721: pa_debug.g_err_stage:='Can not acquire lock.. exiting copy plan';
722: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
723: END IF;
724:
725: l_msg_count := FND_MSG_PUB.count_msg;
726: IF l_msg_count = 1 THEN
738: END IF;
739:
740: ROLLBACK;
741: x_return_status:= FND_API.G_RET_STS_ERROR;
742: IF P_PA_DEBUG_MODE = 'Y' THEN
743: pa_debug.reset_err_stack;
744: END IF;
745: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
746: l_msg_count := FND_MSG_PUB.count_msg;
739:
740: ROLLBACK;
741: x_return_status:= FND_API.G_RET_STS_ERROR;
742: IF P_PA_DEBUG_MODE = 'Y' THEN
743: pa_debug.reset_err_stack;
744: END IF;
745: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
746: l_msg_count := FND_MSG_PUB.count_msg;
747: IF l_msg_count = 1 THEN
759: END IF;
760:
761: ROLLBACK;
762: x_return_status:= FND_API.G_RET_STS_ERROR;
763: IF P_PA_DEBUG_MODE = 'Y' THEN
764: pa_debug.reset_err_stack;
765: END IF;
766: WHEN Others THEN
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760:
761: ROLLBACK;
762: x_return_status:= FND_API.G_RET_STS_ERROR;
763: IF P_PA_DEBUG_MODE = 'Y' THEN
764: pa_debug.reset_err_stack;
765: END IF;
766: WHEN Others THEN
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: x_msg_count := 1;
768: x_msg_count := 1;
769: x_msg_data := SQLERRM;
770: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
771: ,p_procedure_name => 'COPY_PLAN');
772: IF P_PA_DEBUG_MODE = 'Y' THEN
773: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
774: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
775: pa_debug.reset_err_stack;
776: END IF;
769: x_msg_data := SQLERRM;
770: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
771: ,p_procedure_name => 'COPY_PLAN');
772: IF P_PA_DEBUG_MODE = 'Y' THEN
773: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
774: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
775: pa_debug.reset_err_stack;
776: END IF;
777: ROLLBACK;
770: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
771: ,p_procedure_name => 'COPY_PLAN');
772: IF P_PA_DEBUG_MODE = 'Y' THEN
773: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
774: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
775: pa_debug.reset_err_stack;
776: END IF;
777: ROLLBACK;
778: RAISE;
771: ,p_procedure_name => 'COPY_PLAN');
772: IF P_PA_DEBUG_MODE = 'Y' THEN
773: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
774: pa_debug.write('Copy_Plan: ' || g_module_name,pa_debug.g_err_stage,5);
775: pa_debug.reset_err_stack;
776: END IF;
777: ROLLBACK;
778: RAISE;
779: END Copy_Plan;
832:
833: x_msg_count := 0;
834: x_return_status := FND_API.G_RET_STS_SUCCESS;
835:
836: IF P_PA_DEBUG_MODE = 'Y' THEN
837: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Acquire_Lock_For_Copy_Actual');
838: END IF;
839: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
840: l_debug_mode := NVL(l_debug_mode, 'Y');
833: x_msg_count := 0;
834: x_return_status := FND_API.G_RET_STS_SUCCESS;
835:
836: IF P_PA_DEBUG_MODE = 'Y' THEN
837: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Acquire_Lock_For_Copy_Actual');
838: END IF;
839: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
840: l_debug_mode := NVL(l_debug_mode, 'Y');
841:
835:
836: IF P_PA_DEBUG_MODE = 'Y' THEN
837: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Acquire_Lock_For_Copy_Actual');
838: END IF;
839: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
840: l_debug_mode := NVL(l_debug_mode, 'Y');
841:
842: /*
843: * Acquire lock on pa_proj_fp_options and pa_budget_versions so that
844: * no other process would be able to modify these tables and all
845: * underlying child tables
846: */
847:
848: IF P_PA_DEBUG_MODE = 'Y' THEN
849: pa_debug.g_err_stage:='Acquiring lock on pa_proj_fp_options';
850: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
851: END IF;
852:
845: * underlying child tables
846: */
847:
848: IF P_PA_DEBUG_MODE = 'Y' THEN
849: pa_debug.g_err_stage:='Acquiring lock on pa_proj_fp_options';
850: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
851: END IF;
852:
853: OPEN fp_opt_cur;
846: */
847:
848: IF P_PA_DEBUG_MODE = 'Y' THEN
849: pa_debug.g_err_stage:='Acquiring lock on pa_proj_fp_options';
850: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
851: END IF;
852:
853: OPEN fp_opt_cur;
854:
851: END IF;
852:
853: OPEN fp_opt_cur;
854:
855: IF P_PA_DEBUG_MODE = 'Y' THEN
856: pa_debug.g_err_stage:='Acquiring lock on pa_budget_versions';
857: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
858: END IF;
859:
852:
853: OPEN fp_opt_cur;
854:
855: IF P_PA_DEBUG_MODE = 'Y' THEN
856: pa_debug.g_err_stage:='Acquiring lock on pa_budget_versions';
857: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
858: END IF;
859:
860: OPEN bdgt_ver_cur;
853: OPEN fp_opt_cur;
854:
855: IF P_PA_DEBUG_MODE = 'Y' THEN
856: pa_debug.g_err_stage:='Acquiring lock on pa_budget_versions';
857: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
858: END IF;
859:
860: OPEN bdgt_ver_cur;
861:
861:
862: --Increment the record_version_number in pa_budget_versions and
863: --pa_proj_fp_options
864:
865: IF P_PA_DEBUG_MODE = 'Y' THEN
866: pa_debug.g_err_stage:='Incrementing record version number of plan version pa_proj_fp_options';
867: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
868: END IF;
869:
862: --Increment the record_version_number in pa_budget_versions and
863: --pa_proj_fp_options
864:
865: IF P_PA_DEBUG_MODE = 'Y' THEN
866: pa_debug.g_err_stage:='Incrementing record version number of plan version pa_proj_fp_options';
867: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
868: END IF;
869:
870: UPDATE PA_PROJ_FP_OPTIONS
863: --pa_proj_fp_options
864:
865: IF P_PA_DEBUG_MODE = 'Y' THEN
866: pa_debug.g_err_stage:='Incrementing record version number of plan version pa_proj_fp_options';
867: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
868: END IF;
869:
870: UPDATE PA_PROJ_FP_OPTIONS
871: SET record_version_number = record_version_number+1
870: UPDATE PA_PROJ_FP_OPTIONS
871: SET record_version_number = record_version_number+1
872: WHERE fin_plan_version_id=p_plan_version_id;
873:
874: IF P_PA_DEBUG_MODE = 'Y' THEN
875: pa_debug.g_err_stage:='Incrementing record version number of plan version in pa_budget_versions';
876: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
877: END IF;
878:
871: SET record_version_number = record_version_number+1
872: WHERE fin_plan_version_id=p_plan_version_id;
873:
874: IF P_PA_DEBUG_MODE = 'Y' THEN
875: pa_debug.g_err_stage:='Incrementing record version number of plan version in pa_budget_versions';
876: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
877: END IF;
878:
879: UPDATE PA_BUDGET_VERSIONS
872: WHERE fin_plan_version_id=p_plan_version_id;
873:
874: IF P_PA_DEBUG_MODE = 'Y' THEN
875: pa_debug.g_err_stage:='Incrementing record version number of plan version in pa_budget_versions';
876: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
877: END IF;
878:
879: UPDATE PA_BUDGET_VERSIONS
880: SET record_version_number = record_version_number+1
879: UPDATE PA_BUDGET_VERSIONS
880: SET record_version_number = record_version_number+1
881: WHERE budget_version_id = p_plan_version_id ;
882:
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.g_err_stage:='Closing fp_opt_cur and bdgt_ver_cur cursors';
885: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
886: END IF;
887:
880: SET record_version_number = record_version_number+1
881: WHERE budget_version_id = p_plan_version_id ;
882:
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.g_err_stage:='Closing fp_opt_cur and bdgt_ver_cur cursors';
885: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
886: END IF;
887:
888: CLOSE fp_opt_cur;
881: WHERE budget_version_id = p_plan_version_id ;
882:
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.g_err_stage:='Closing fp_opt_cur and bdgt_ver_cur cursors';
885: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,3);
886: END IF;
887:
888: CLOSE fp_opt_cur;
889: CLOSE bdgt_ver_cur;
886: END IF;
887:
888: CLOSE fp_opt_cur;
889: CLOSE bdgt_ver_cur;
890: IF P_PA_DEBUG_MODE = 'Y' THEN
891: pa_debug.reset_err_stack;
892: END IF;
893: EXCEPTION
894:
887:
888: CLOSE fp_opt_cur;
889: CLOSE bdgt_ver_cur;
890: IF P_PA_DEBUG_MODE = 'Y' THEN
891: pa_debug.reset_err_stack;
892: END IF;
893: EXCEPTION
894:
895: WHEN Resource_Busy THEN
903: IF bdgt_ver_cur%ISOPEN THEN
904: CLOSE bdgt_ver_cur;
905: END IF;
906:
907: IF P_PA_DEBUG_MODE = 'Y' THEN
908: pa_debug.g_err_stage:='Unable to acquire lock';
909: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,5);
910: END IF;
911:
904: CLOSE bdgt_ver_cur;
905: END IF;
906:
907: IF P_PA_DEBUG_MODE = 'Y' THEN
908: pa_debug.g_err_stage:='Unable to acquire lock';
909: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,5);
910: END IF;
911:
912: x_return_status := FND_API.G_RET_STS_ERROR;
905: END IF;
906:
907: IF P_PA_DEBUG_MODE = 'Y' THEN
908: pa_debug.g_err_stage:='Unable to acquire lock';
909: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,5);
910: END IF;
911:
912: x_return_status := FND_API.G_RET_STS_ERROR;
913: l_msg_count := FND_MSG_PUB.count_msg;
923: x_msg_count := l_msg_count;
924: ELSE
925: x_msg_count := l_msg_count;
926: END IF;
927: IF P_PA_DEBUG_MODE = 'Y' THEN
928: pa_debug.reset_err_stack;
929: END IF;
930: RAISE;
931:
924: ELSE
925: x_msg_count := l_msg_count;
926: END IF;
927: IF P_PA_DEBUG_MODE = 'Y' THEN
928: pa_debug.reset_err_stack;
929: END IF;
930: RAISE;
931:
932: WHEN Others THEN
935: x_msg_data := SQLERRM;
936: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
937: ,p_procedure_name => 'ACQUIRE_LOCKS_FOR_COPY_ACTUAL');
938:
939: IF P_PA_DEBUG_MODE = 'Y' THEN
940: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
941: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,5);
942: pa_debug.reset_err_stack;
943: END IF;
936: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
937: ,p_procedure_name => 'ACQUIRE_LOCKS_FOR_COPY_ACTUAL');
938:
939: IF P_PA_DEBUG_MODE = 'Y' THEN
940: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
941: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,5);
942: pa_debug.reset_err_stack;
943: END IF;
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: ,p_procedure_name => 'ACQUIRE_LOCKS_FOR_COPY_ACTUAL');
938:
939: IF P_PA_DEBUG_MODE = 'Y' THEN
940: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
941: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,5);
942: pa_debug.reset_err_stack;
943: END IF;
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945:
938:
939: IF P_PA_DEBUG_MODE = 'Y' THEN
940: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
941: pa_debug.write('Acquire_Locks_For_Copy_Actual: ' || g_module_name,pa_debug.g_err_stage,5);
942: pa_debug.reset_err_stack;
943: END IF;
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945:
946: END Acquire_Locks_For_Copy_Actual;
1144: BEGIN
1145:
1146: x_msg_count := 0;
1147: x_return_status := FND_API.G_RET_STS_SUCCESS;
1148: IF p_pa_debug_mode = 'Y' THEN
1149: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Version');
1150: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1151: l_debug_mode := NVL(l_debug_mode, 'Y');
1152: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1145:
1146: x_msg_count := 0;
1147: x_return_status := FND_API.G_RET_STS_SUCCESS;
1148: IF p_pa_debug_mode = 'Y' THEN
1149: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Version');
1150: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1151: l_debug_mode := NVL(l_debug_mode, 'Y');
1152: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1153: END IF;
1146: x_msg_count := 0;
1147: x_return_status := FND_API.G_RET_STS_SUCCESS;
1148: IF p_pa_debug_mode = 'Y' THEN
1149: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Version');
1150: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1151: l_debug_mode := NVL(l_debug_mode, 'Y');
1152: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1153: END IF;
1154:
1148: IF p_pa_debug_mode = 'Y' THEN
1149: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Version');
1150: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1151: l_debug_mode := NVL(l_debug_mode, 'Y');
1152: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
1153: END IF;
1154:
1155: --Check if source_verion_id is NULL, if so throw an error message
1156:
1153: END IF;
1154:
1155: --Check if source_verion_id is NULL, if so throw an error message
1156:
1157: IF P_PA_DEBUG_MODE = 'Y' THEN
1158: pa_debug.g_err_stage := 'Parameter Validation';
1159: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1160: END IF;
1161:
1154:
1155: --Check if source_verion_id is NULL, if so throw an error message
1156:
1157: IF P_PA_DEBUG_MODE = 'Y' THEN
1158: pa_debug.g_err_stage := 'Parameter Validation';
1159: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1160: END IF;
1161:
1162: IF (p_source_version_id IS NULL) OR
1155: --Check if source_verion_id is NULL, if so throw an error message
1156:
1157: IF P_PA_DEBUG_MODE = 'Y' THEN
1158: pa_debug.g_err_stage := 'Parameter Validation';
1159: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1160: END IF;
1161:
1162: IF (p_source_version_id IS NULL) OR
1163: (p_calling_module IS NULL)
1161:
1162: IF (p_source_version_id IS NULL) OR
1163: (p_calling_module IS NULL)
1164: THEN
1165: IF P_PA_DEBUG_MODE = 'Y' THEN
1166: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1167: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1168: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1169: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1162: IF (p_source_version_id IS NULL) OR
1163: (p_calling_module IS NULL)
1164: THEN
1165: IF P_PA_DEBUG_MODE = 'Y' THEN
1166: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1167: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1168: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1169: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1170: END IF;
1163: (p_calling_module IS NULL)
1164: THEN
1165: IF P_PA_DEBUG_MODE = 'Y' THEN
1166: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1167: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1168: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1169: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1170: END IF;
1171:
1164: THEN
1165: IF P_PA_DEBUG_MODE = 'Y' THEN
1166: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1167: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1168: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1169: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1170: END IF;
1171:
1172: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1165: IF P_PA_DEBUG_MODE = 'Y' THEN
1166: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1167: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1168: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1169: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1170: END IF;
1171:
1172: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1173: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1179: --Throw an error if the struct element version id is not passed in workplan context
1180: IF p_calling_module=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1181: p_struct_elem_version_id IS NULL THEN
1182:
1183: IF P_PA_DEBUG_MODE = 'Y' THEN
1184: pa_debug.g_err_stage := 'In workplan context p_struct_elem_version_id passed is '||p_struct_elem_version_id;
1185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1186: END IF;
1187: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1180: IF p_calling_module=PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN AND
1181: p_struct_elem_version_id IS NULL THEN
1182:
1183: IF P_PA_DEBUG_MODE = 'Y' THEN
1184: pa_debug.g_err_stage := 'In workplan context p_struct_elem_version_id passed is '||p_struct_elem_version_id;
1185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1186: END IF;
1187: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1188: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1181: p_struct_elem_version_id IS NULL THEN
1182:
1183: IF P_PA_DEBUG_MODE = 'Y' THEN
1184: pa_debug.g_err_stage := 'In workplan context p_struct_elem_version_id passed is '||p_struct_elem_version_id;
1185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1186: END IF;
1187: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
1188: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1189:
1189:
1190: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1191: END IF;
1192:
1193: IF P_PA_DEBUG_MODE = 'Y' THEN
1194: pa_debug.g_err_stage := 'Parameter validation complete';
1195: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1196: END IF;
1197:
1190: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1191: END IF;
1192:
1193: IF P_PA_DEBUG_MODE = 'Y' THEN
1194: pa_debug.g_err_stage := 'Parameter validation complete';
1195: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1196: END IF;
1197:
1198: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1191: END IF;
1192:
1193: IF P_PA_DEBUG_MODE = 'Y' THEN
1194: pa_debug.g_err_stage := 'Parameter validation complete';
1195: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1196: END IF;
1197:
1198: IF p_calling_module = PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_WORKPLAN THEN
1199: -- Bug 4337221:
1203:
1204: l_adj_percentage := NVL(p_adj_percentage,0);
1205: END IF;
1206:
1207: IF p_pa_debug_mode = 'Y' THEN
1208: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1209: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1204: l_adj_percentage := NVL(p_adj_percentage,0);
1205: END IF;
1206:
1207: IF p_pa_debug_mode = 'Y' THEN
1208: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1209: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1205: END IF;
1206:
1207: IF p_pa_debug_mode = 'Y' THEN
1208: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1209: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1206:
1207: IF p_pa_debug_mode = 'Y' THEN
1208: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1209: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: pa_debug.g_err_stage := 'Adj_percentage='||l_adj_percentage;
1207: IF p_pa_debug_mode = 'Y' THEN
1208: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1209: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: pa_debug.g_err_stage := 'Adj_percentage='||l_adj_percentage;
1215: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1208: pa_debug.g_err_stage := 'Source_plan='||p_source_version_id;
1209: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: pa_debug.g_err_stage := 'Adj_percentage='||l_adj_percentage;
1215: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1216: END IF;
1209: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: pa_debug.g_err_stage := 'Adj_percentage='||l_adj_percentage;
1215: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1216: END IF;
1217:
1210: pa_debug.g_err_stage := 'Target_plan='||px_target_version_id;
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: pa_debug.g_err_stage := 'Adj_percentage='||l_adj_percentage;
1215: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1216: END IF;
1217:
1218: -- Get the fin plan type id, source version name, project id from
1211: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1212: pa_debug.g_err_stage := 'Calling_module='||p_calling_module;
1213: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1214: pa_debug.g_err_stage := 'Adj_percentage='||l_adj_percentage;
1215: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1216: END IF;
1217:
1218: -- Get the fin plan type id, source version name, project id from
1219: -- pa_budget_versions using source_version_id
1219: -- pa_budget_versions using source_version_id
1220:
1221: IF px_target_version_id IS NULL THEN
1222:
1223: IF P_PA_DEBUG_MODE = 'Y' THEN
1224: pa_debug.g_err_stage := 'Fetching version name,fin_plan_type_id of source version';
1225: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1226: END IF;
1227:
1220:
1221: IF px_target_version_id IS NULL THEN
1222:
1223: IF P_PA_DEBUG_MODE = 'Y' THEN
1224: pa_debug.g_err_stage := 'Fetching version name,fin_plan_type_id of source version';
1225: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1226: END IF;
1227:
1228: SELECT NVL(p_target_project_id,project_id)
1221: IF px_target_version_id IS NULL THEN
1222:
1223: IF P_PA_DEBUG_MODE = 'Y' THEN
1224: pa_debug.g_err_stage := 'Fetching version name,fin_plan_type_id of source version';
1225: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1226: END IF;
1227:
1228: SELECT NVL(p_target_project_id,project_id)
1229: ,NVL(p_source_project_id,project_id)
1285: END IF;
1286:
1287: --Get the version_number, version_name
1288:
1289: IF P_PA_DEBUG_MODE = 'Y' THEN
1290: pa_debug.g_err_stage := 'Fetch the maximum version number';
1291: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293:
1286:
1287: --Get the version_number, version_name
1288:
1289: IF P_PA_DEBUG_MODE = 'Y' THEN
1290: pa_debug.g_err_stage := 'Fetch the maximum version number';
1291: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293:
1294: IF p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING THEN
1287: --Get the version_number, version_name
1288:
1289: IF P_PA_DEBUG_MODE = 'Y' THEN
1290: pa_debug.g_err_stage := 'Fetch the maximum version number';
1291: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293:
1294: IF p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING THEN
1295:
1393: END IF;
1394:
1395: -- Fetch new budget_version_id
1396:
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1398: pa_debug.g_err_stage := 'Fetch new budget version id';
1399: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1400: END IF;
1401:
1394:
1395: -- Fetch new budget_version_id
1396:
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1398: pa_debug.g_err_stage := 'Fetch new budget version id';
1399: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1400: END IF;
1401:
1402: SELECT pa_budget_versions_s.NEXTVAL
1395: -- Fetch new budget_version_id
1396:
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1398: pa_debug.g_err_stage := 'Fetch new budget version id';
1399: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1400: END IF;
1401:
1402: SELECT pa_budget_versions_s.NEXTVAL
1403: INTO px_target_version_id
1431: Where project_structure_version_id = l_wbs_struct_version_id
1432: And wp_version_flag = 'Y'
1433: And exists (select 'x' from pa_budget_versions b where b.budget_version_id = p_source_version_id and b.wp_version_flag = 'Y') ;
1434:
1435: IF P_PA_DEBUG_MODE = 'Y' THEN
1436: pa_debug.g_err_stage:='proj sv id = ' || l_wbs_struct_version_id;
1437: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1432: And wp_version_flag = 'Y'
1433: And exists (select 'x' from pa_budget_versions b where b.budget_version_id = p_source_version_id and b.wp_version_flag = 'Y') ;
1434:
1435: IF P_PA_DEBUG_MODE = 'Y' THEN
1436: pa_debug.g_err_stage:='proj sv id = ' || l_wbs_struct_version_id;
1437: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1433: And exists (select 'x' from pa_budget_versions b where b.budget_version_id = p_source_version_id and b.wp_version_flag = 'Y') ;
1434:
1435: IF P_PA_DEBUG_MODE = 'Y' THEN
1436: pa_debug.g_err_stage:='proj sv id = ' || l_wbs_struct_version_id;
1437: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1434:
1435: IF P_PA_DEBUG_MODE = 'Y' THEN
1436: pa_debug.g_err_stage:='proj sv id = ' || l_wbs_struct_version_id;
1437: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1435: IF P_PA_DEBUG_MODE = 'Y' THEN
1436: pa_debug.g_err_stage:='proj sv id = ' || l_wbs_struct_version_id;
1437: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1443: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1436: pa_debug.g_err_stage:='proj sv id = ' || l_wbs_struct_version_id;
1437: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1443: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1444: pa_debug.g_err_stage:='source project id / target project id = ' || l_source_project_id || ' / ' || l_target_project_id;
1437: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1443: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1444: pa_debug.g_err_stage:='source project id / target project id = ' || l_source_project_id || ' / ' || l_target_project_id;
1445: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1438: pa_debug.g_err_stage:='calling module = ' || p_calling_module;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1443: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1444: pa_debug.g_err_stage:='source project id / target project id = ' || l_source_project_id || ' / ' || l_target_project_id;
1445: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1446: END IF;
1439: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1443: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1444: pa_debug.g_err_stage:='source project id / target project id = ' || l_source_project_id || ' / ' || l_target_project_id;
1445: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1446: END IF;
1447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1440: pa_debug.g_err_stage:='copy mode = ' || p_copy_mode;
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1443: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1444: pa_debug.g_err_stage:='source project id / target project id = ' || l_source_project_id || ' / ' || l_target_project_id;
1445: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1446: END IF;
1447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1448: p_msg_name => 'DUPLICATE_WP_BEING_CREATED');
1441: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1442: pa_debug.g_err_stage:='source version id = ' || p_source_version_id;
1443: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1444: pa_debug.g_err_stage:='source project id / target project id = ' || l_source_project_id || ' / ' || l_target_project_id;
1445: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1446: END IF;
1447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1448: p_msg_name => 'DUPLICATE_WP_BEING_CREATED');
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1445: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1446: END IF;
1447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1448: p_msg_name => 'DUPLICATE_WP_BEING_CREATED');
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.g_err_stage:='Invalid Arguments Passed';
1451: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1452: END IF;
1453: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1446: END IF;
1447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1448: p_msg_name => 'DUPLICATE_WP_BEING_CREATED');
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.g_err_stage:='Invalid Arguments Passed';
1451: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1452: END IF;
1453: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1454: Exception
1447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1448: p_msg_name => 'DUPLICATE_WP_BEING_CREATED');
1449: IF P_PA_DEBUG_MODE = 'Y' THEN
1450: pa_debug.g_err_stage:='Invalid Arguments Passed';
1451: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1452: END IF;
1453: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1454: Exception
1455: When No_Data_Found Then
1671: --To decide what amounts are to be copied from source to target
1672: --version set local flags using target fin plan preference code
1673:
1674:
1675: IF P_PA_DEBUG_MODE = 'Y' THEN
1676: pa_debug.g_err_stage := 'Get values into local flags';
1677: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1678: END IF;
1679:
1672: --version set local flags using target fin plan preference code
1673:
1674:
1675: IF P_PA_DEBUG_MODE = 'Y' THEN
1676: pa_debug.g_err_stage := 'Get values into local flags';
1677: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1678: END IF;
1679:
1680:
1673:
1674:
1675: IF P_PA_DEBUG_MODE = 'Y' THEN
1676: pa_debug.g_err_stage := 'Get values into local flags';
1677: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1678: END IF;
1679:
1680:
1681: /* UT Fix : decoded G_PREF_COST_AND_REV_SAME as Y for revenue_flag */
1704:
1705: --Update target version using source version values
1706:
1707:
1708: IF P_PA_DEBUG_MODE = 'Y' THEN
1709: pa_debug.g_err_stage := 'Updating target version';
1710: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1711: END IF;
1712:
1705: --Update target version using source version values
1706:
1707:
1708: IF P_PA_DEBUG_MODE = 'Y' THEN
1709: pa_debug.g_err_stage := 'Updating target version';
1710: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1711: END IF;
1712:
1713: OPEN l_bv_csr;
1706:
1707:
1708: IF P_PA_DEBUG_MODE = 'Y' THEN
1709: pa_debug.g_err_stage := 'Updating target version';
1710: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1711: END IF;
1712:
1713: OPEN l_bv_csr;
1714:
1712:
1713: OPEN l_bv_csr;
1714:
1715:
1716: IF P_PA_DEBUG_MODE = 'Y' THEN
1717: pa_debug.g_err_stage := 'l_bv_csr is opened';
1718: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1719: END IF;
1720:
1713: OPEN l_bv_csr;
1714:
1715:
1716: IF P_PA_DEBUG_MODE = 'Y' THEN
1717: pa_debug.g_err_stage := 'l_bv_csr is opened';
1718: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1719: END IF;
1720:
1721: FETCH l_bv_csr INTO l_bv_rec;
1714:
1715:
1716: IF P_PA_DEBUG_MODE = 'Y' THEN
1717: pa_debug.g_err_stage := 'l_bv_csr is opened';
1718: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1719: END IF;
1720:
1721: FETCH l_bv_csr INTO l_bv_rec;
1722:
1802:
1803: CLOSE l_bv_csr;
1804:
1805:
1806: IF P_PA_DEBUG_MODE = 'Y' THEN
1807: pa_debug.g_err_stage := 'l_bv_csr is closed';
1808: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1809: END IF;
1810:
1803: CLOSE l_bv_csr;
1804:
1805:
1806: IF P_PA_DEBUG_MODE = 'Y' THEN
1807: pa_debug.g_err_stage := 'l_bv_csr is closed';
1808: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1809: END IF;
1810:
1811: END IF; -- p_calling_module
1804:
1805:
1806: IF P_PA_DEBUG_MODE = 'Y' THEN
1807: pa_debug.g_err_stage := 'l_bv_csr is closed';
1808: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1809: END IF;
1810:
1811: END IF; -- p_calling_module
1812:
1822: X_last_update_login => FND_GLOBAL.LOGIN_ID,
1823: X_program_application_id => FND_GLOBAL.PROG_APPL_ID);
1824:
1825:
1826: IF P_PA_DEBUG_MODE = 'Y' THEN
1827: pa_debug.g_err_stage := 'Exiting copy_budget_version';
1828: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1829: pa_debug.reset_err_stack;
1830: END IF;
1823: X_program_application_id => FND_GLOBAL.PROG_APPL_ID);
1824:
1825:
1826: IF P_PA_DEBUG_MODE = 'Y' THEN
1827: pa_debug.g_err_stage := 'Exiting copy_budget_version';
1828: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1829: pa_debug.reset_err_stack;
1830: END IF;
1831:
1824:
1825:
1826: IF P_PA_DEBUG_MODE = 'Y' THEN
1827: pa_debug.g_err_stage := 'Exiting copy_budget_version';
1828: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1829: pa_debug.reset_err_stack;
1830: END IF;
1831:
1832: EXCEPTION
1825:
1826: IF P_PA_DEBUG_MODE = 'Y' THEN
1827: pa_debug.g_err_stage := 'Exiting copy_budget_version';
1828: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1829: pa_debug.reset_err_stack;
1830: END IF;
1831:
1832: EXCEPTION
1833:
1847: x_msg_count := l_msg_count;
1848: END IF;
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850:
1851: IF P_PA_DEBUG_MODE = 'Y' THEN
1852: pa_debug.g_err_stage:='Invalid Arguments Passed';
1853: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1854: pa_debug.reset_err_stack;
1855: END IF;
1848: END IF;
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850:
1851: IF P_PA_DEBUG_MODE = 'Y' THEN
1852: pa_debug.g_err_stage:='Invalid Arguments Passed';
1853: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1854: pa_debug.reset_err_stack;
1855: END IF;
1856: RAISE;
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850:
1851: IF P_PA_DEBUG_MODE = 'Y' THEN
1852: pa_debug.g_err_stage:='Invalid Arguments Passed';
1853: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1854: pa_debug.reset_err_stack;
1855: END IF;
1856: RAISE;
1857:
1850:
1851: IF P_PA_DEBUG_MODE = 'Y' THEN
1852: pa_debug.g_err_stage:='Invalid Arguments Passed';
1853: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1854: pa_debug.reset_err_stack;
1855: END IF;
1856: RAISE;
1857:
1858: WHEN Others THEN
1861: x_msg_data := SQLERRM;
1862: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
1863: ,p_procedure_name => 'COPY_BUDGET_VERSION');
1864:
1865: IF P_PA_DEBUG_MODE = 'Y' THEN
1866: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1867: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1868: pa_debug.reset_err_stack;
1869: END IF;
1862: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
1863: ,p_procedure_name => 'COPY_BUDGET_VERSION');
1864:
1865: IF P_PA_DEBUG_MODE = 'Y' THEN
1866: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1867: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1868: pa_debug.reset_err_stack;
1869: END IF;
1870:
1863: ,p_procedure_name => 'COPY_BUDGET_VERSION');
1864:
1865: IF P_PA_DEBUG_MODE = 'Y' THEN
1866: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1867: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1868: pa_debug.reset_err_stack;
1869: END IF;
1870:
1871: RAISE;
1864:
1865: IF P_PA_DEBUG_MODE = 'Y' THEN
1866: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1867: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
1868: pa_debug.reset_err_stack;
1869: END IF;
1870:
1871: RAISE;
1872:
1943:
1944: x_msg_count := 0;
1945: x_return_status := FND_API.G_RET_STS_SUCCESS;
1946:
1947: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1948: l_debug_mode := NVL(l_debug_mode, 'Y');
1949:
1950: -- Set curr function
1951: IF l_debug_mode = 'Y' THEN
1948: l_debug_mode := NVL(l_debug_mode, 'Y');
1949:
1950: -- Set curr function
1951: IF l_debug_mode = 'Y' THEN
1952: pa_debug.set_curr_function(
1953: p_function =>'pa_fp_copy_from_pkg.create_res_task_maps'
1954: ,p_debug_mode => l_debug_mode );
1955:
1956: -- Check for business rules violations
1953: p_function =>'pa_fp_copy_from_pkg.create_res_task_maps'
1954: ,p_debug_mode => l_debug_mode );
1955:
1956: -- Check for business rules violations
1957: pa_debug.g_err_stage:='Validating input parameters';
1958: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1959: END IF;
1960:
1961: IF p_context IS NULL THEN
1954: ,p_debug_mode => l_debug_mode );
1955:
1956: -- Check for business rules violations
1957: pa_debug.g_err_stage:='Validating input parameters';
1958: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1959: END IF;
1960:
1961: IF p_context IS NULL THEN
1962:
1960:
1961: IF p_context IS NULL THEN
1962:
1963: IF l_debug_mode = 'Y' THEN
1964: pa_debug.g_err_stage:='p_context is '||p_context;
1965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
1966: END IF;
1967:
1968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1961: IF p_context IS NULL THEN
1962:
1963: IF l_debug_mode = 'Y' THEN
1964: pa_debug.g_err_stage:='p_context is '||p_context;
1965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
1966: END IF;
1967:
1968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1969: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1975: --If the no of elements in source and target element version id tbls are not same, throw error
1976: IF p_src_elem_ver_id_tbl.count <> p_targ_elem_ver_id_tbl.count THEN
1977:
1978: IF l_debug_mode = 'Y' THEN
1979: pa_debug.g_err_stage:='The count in source elem ver id tbl and targ elem ver id tbl is not equal';
1980: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1981: END IF;
1982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1983: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1976: IF p_src_elem_ver_id_tbl.count <> p_targ_elem_ver_id_tbl.count THEN
1977:
1978: IF l_debug_mode = 'Y' THEN
1979: pa_debug.g_err_stage:='The count in source elem ver id tbl and targ elem ver id tbl is not equal';
1980: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
1981: END IF;
1982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1983: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1984:
1994: p_schedule_start_date_tbl.count <> p_src_ra_id_tbl.count) OR
1995: p_schedule_start_date_tbl.count <> p_schedule_end_date_tbl.count THEN
1996:
1997: IF l_debug_mode = 'Y' THEN
1998: pa_debug.g_err_stage:='The count in source ra id tbl and targ proj assmt is not equal';
1999: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2000: END IF;
2001: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2002: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1995: p_schedule_start_date_tbl.count <> p_schedule_end_date_tbl.count THEN
1996:
1997: IF l_debug_mode = 'Y' THEN
1998: pa_debug.g_err_stage:='The count in source ra id tbl and targ proj assmt is not equal';
1999: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2000: END IF;
2001: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2002: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2003:
2006:
2007: IF p_src_ra_id_tbl.count=0 THEN
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage:='The source resource assignment id table is emtpy. Returning';
2011: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2012: pa_debug.reset_curr_function;
2013: END IF;
2014: RETURN;
2007: IF p_src_ra_id_tbl.count=0 THEN
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage:='The source resource assignment id table is emtpy. Returning';
2011: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2012: pa_debug.reset_curr_function;
2013: END IF;
2014: RETURN;
2015: END IF;
2008:
2009: IF l_debug_mode = 'Y' THEN
2010: pa_debug.g_err_stage:='The source resource assignment id table is emtpy. Returning';
2011: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2012: pa_debug.reset_curr_function;
2013: END IF;
2014: RETURN;
2015: END IF;
2016:
2022: l_schedule_end_date_tbl := p_schedule_end_date_tbl;
2023: END IF;
2024:
2025: IF l_debug_mode = 'Y' THEN
2026: pa_debug.g_err_stage:='About to create the mapping between source and target element version ids';
2027: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2028: END IF;
2029:
2030: DELETE FROM pa_fp_ra_map_tmp;
2023: END IF;
2024:
2025: IF l_debug_mode = 'Y' THEN
2026: pa_debug.g_err_stage:='About to create the mapping between source and target element version ids';
2027: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2028: END IF;
2029:
2030: DELETE FROM pa_fp_ra_map_tmp;
2031:
2074:
2075: END IF;--IF NVL(p_context,'-99')<>'BUDGET' THEN
2076:
2077: IF l_debug_mode = 'Y' THEN
2078: pa_debug.g_err_stage:='About to bulk insert into pa_fp_ra_map_tmp';
2079: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2080: END IF;
2081:
2082: --Bulk insert into the pa_fp_ra_map_tmp table
2075: END IF;--IF NVL(p_context,'-99')<>'BUDGET' THEN
2076:
2077: IF l_debug_mode = 'Y' THEN
2078: pa_debug.g_err_stage:='About to bulk insert into pa_fp_ra_map_tmp';
2079: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2080: END IF;
2081:
2082: --Bulk insert into the pa_fp_ra_map_tmp table
2083:
2151: AND pelm.element_version_id=l_targ_elem_ver_id_tbl(i);
2152: END IF; -- p_context
2153:
2154: IF l_debug_mode = 'Y' THEN
2155: pa_debug.g_err_stage:='Exiting create_res_task_maps';
2156: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2157: pa_debug.reset_curr_function;
2158: END IF;
2159: EXCEPTION
2152: END IF; -- p_context
2153:
2154: IF l_debug_mode = 'Y' THEN
2155: pa_debug.g_err_stage:='Exiting create_res_task_maps';
2156: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2157: pa_debug.reset_curr_function;
2158: END IF;
2159: EXCEPTION
2160:
2153:
2154: IF l_debug_mode = 'Y' THEN
2155: pa_debug.g_err_stage:='Exiting create_res_task_maps';
2156: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
2157: pa_debug.reset_curr_function;
2158: END IF;
2159: EXCEPTION
2160:
2161: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2177:
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179:
2180: IF l_debug_mode = 'Y' THEN
2181: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
2182: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2183: -- reset curr function
2184: pa_debug.reset_curr_function();
2185: END IF;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179:
2180: IF l_debug_mode = 'Y' THEN
2181: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
2182: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2183: -- reset curr function
2184: pa_debug.reset_curr_function();
2185: END IF;
2186: RETURN;
2180: IF l_debug_mode = 'Y' THEN
2181: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
2182: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2183: -- reset curr function
2184: pa_debug.reset_curr_function();
2185: END IF;
2186: RETURN;
2187:
2188: WHEN OTHERS THEN
2193: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_copy_from_pkg'
2194: ,p_procedure_name => 'create_res_task_maps');
2195:
2196: IF l_debug_mode = 'Y' THEN
2197: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2198: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
2199: -- reset curr function
2200: pa_debug.Reset_Curr_Function();
2201: END IF;
2194: ,p_procedure_name => 'create_res_task_maps');
2195:
2196: IF l_debug_mode = 'Y' THEN
2197: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2198: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
2199: -- reset curr function
2200: pa_debug.Reset_Curr_Function();
2201: END IF;
2202: RAISE;
2196: IF l_debug_mode = 'Y' THEN
2197: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2198: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
2199: -- reset curr function
2200: pa_debug.Reset_Curr_Function();
2201: END IF;
2202: RAISE;
2203:
2204: END create_res_task_maps;
2274:
2275: BEGIN
2276: x_msg_count := 0;
2277: x_return_status := FND_API.G_RET_STS_SUCCESS;
2278: IF P_PA_DEBUG_MODE = 'Y' THEN
2279: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments');
2280: END IF;
2281: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2282: l_debug_mode := NVL(l_debug_mode, 'Y');
2275: BEGIN
2276: x_msg_count := 0;
2277: x_return_status := FND_API.G_RET_STS_SUCCESS;
2278: IF P_PA_DEBUG_MODE = 'Y' THEN
2279: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments');
2280: END IF;
2281: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2282: l_debug_mode := NVL(l_debug_mode, 'Y');
2283: IF P_PA_DEBUG_MODE = 'Y' THEN
2277: x_return_status := FND_API.G_RET_STS_SUCCESS;
2278: IF P_PA_DEBUG_MODE = 'Y' THEN
2279: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments');
2280: END IF;
2281: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2282: l_debug_mode := NVL(l_debug_mode, 'Y');
2283: IF P_PA_DEBUG_MODE = 'Y' THEN
2284: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2285: END IF;
2279: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments');
2280: END IF;
2281: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2282: l_debug_mode := NVL(l_debug_mode, 'Y');
2283: IF P_PA_DEBUG_MODE = 'Y' THEN
2284: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2285: END IF;
2286:
2287:
2280: END IF;
2281: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2282: l_debug_mode := NVL(l_debug_mode, 'Y');
2283: IF P_PA_DEBUG_MODE = 'Y' THEN
2284: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2285: END IF;
2286:
2287:
2288: /*
2289: * Check if source_verion_id, target_version_id are NULL, if so throw
2290: * an error message
2291: */
2292:
2293: IF P_PA_DEBUG_MODE = 'Y' THEN
2294: pa_debug.g_err_stage := 'Checking for valid parameters:';
2295: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2296: END IF;
2297:
2290: * an error message
2291: */
2292:
2293: IF P_PA_DEBUG_MODE = 'Y' THEN
2294: pa_debug.g_err_stage := 'Checking for valid parameters:';
2295: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2296: END IF;
2297:
2298: IF (p_source_plan_version_id IS NULL) OR
2291: */
2292:
2293: IF P_PA_DEBUG_MODE = 'Y' THEN
2294: pa_debug.g_err_stage := 'Checking for valid parameters:';
2295: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2296: END IF;
2297:
2298: IF (p_source_plan_version_id IS NULL) OR
2299: (p_target_plan_version_id IS NULL)
2298: IF (p_source_plan_version_id IS NULL) OR
2299: (p_target_plan_version_id IS NULL)
2300: THEN
2301:
2302: IF P_PA_DEBUG_MODE = 'Y' THEN
2303: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
2304: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2305:
2306: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
2299: (p_target_plan_version_id IS NULL)
2300: THEN
2301:
2302: IF P_PA_DEBUG_MODE = 'Y' THEN
2303: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
2304: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2305:
2306: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
2307: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2300: THEN
2301:
2302: IF P_PA_DEBUG_MODE = 'Y' THEN
2303: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
2304: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2305:
2306: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
2307: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2308: END IF;
2302: IF P_PA_DEBUG_MODE = 'Y' THEN
2303: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
2304: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2305:
2306: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
2307: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2308: END IF;
2309:
2310: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2303: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
2304: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2305:
2306: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
2307: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
2308: END IF;
2309:
2310: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2311: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2311: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: END IF;
2314:
2315: IF P_PA_DEBUG_MODE = 'Y' THEN
2316: pa_debug.g_err_stage := 'Parameter validation complete';
2317: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2318: END IF;
2319:
2312: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2313: END IF;
2314:
2315: IF P_PA_DEBUG_MODE = 'Y' THEN
2316: pa_debug.g_err_stage := 'Parameter validation complete';
2317: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2318: END IF;
2319:
2320: --If adj_percentage is null make it zero
2313: END IF;
2314:
2315: IF P_PA_DEBUG_MODE = 'Y' THEN
2316: pa_debug.g_err_stage := 'Parameter validation complete';
2317: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2318: END IF;
2319:
2320: --If adj_percentage is null make it zero
2321:
2322: l_adj_percentage := NVL(p_adj_percentage,0);
2323:
2324: --Fetching the flags of target version using fin_plan_prefernce_code
2325:
2326: IF P_PA_DEBUG_MODE = 'Y' THEN
2327: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
2328: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2329: END IF;
2330:
2323:
2324: --Fetching the flags of target version using fin_plan_prefernce_code
2325:
2326: IF P_PA_DEBUG_MODE = 'Y' THEN
2327: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
2328: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2329: END IF;
2330:
2331: SELECT DECODE(pfot.fin_plan_preference_code
2324: --Fetching the flags of target version using fin_plan_prefernce_code
2325:
2326: IF P_PA_DEBUG_MODE = 'Y' THEN
2327: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
2328: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2329: END IF;
2330:
2331: SELECT DECODE(pfot.fin_plan_preference_code
2332: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,'Y'
2353: AND pfos.fin_plan_version_id=p_source_plan_version_id
2354: AND rl.resource_list_id=nvl(pfot.cost_resource_list_id, nvl(pfot.revenue_resource_list_id,pfot.all_resource_list_id));
2355:
2356: /*
2357: IF P_PA_DEBUG_MODE = 'Y' THEN
2358: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
2359: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2360: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
2361: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2354: AND rl.resource_list_id=nvl(pfot.cost_resource_list_id, nvl(pfot.revenue_resource_list_id,pfot.all_resource_list_id));
2355:
2356: /*
2357: IF P_PA_DEBUG_MODE = 'Y' THEN
2358: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
2359: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2360: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
2361: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2362: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
2355:
2356: /*
2357: IF P_PA_DEBUG_MODE = 'Y' THEN
2358: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
2359: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2360: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
2361: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2362: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
2363: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2356: /*
2357: IF P_PA_DEBUG_MODE = 'Y' THEN
2358: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
2359: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2360: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
2361: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2362: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
2363: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2364: END IF;
2357: IF P_PA_DEBUG_MODE = 'Y' THEN
2358: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
2359: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2360: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
2361: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2362: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
2363: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2364: END IF;
2365: */
2358: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
2359: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2360: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
2361: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2362: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
2363: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2364: END IF;
2365: */
2366: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
2359: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2360: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
2361: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2362: pa_debug.g_err_stage:='l_target_project_id ='||l_target_project_id;
2363: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2364: END IF;
2365: */
2366: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
2367:
2364: END IF;
2365: */
2366: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
2367:
2368: IF P_PA_DEBUG_MODE = 'Y' THEN
2369: pa_debug.g_err_stage:='Copying the source version records as target version records';
2370: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2371: END IF;
2372: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
2365: */
2366: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
2367:
2368: IF P_PA_DEBUG_MODE = 'Y' THEN
2369: pa_debug.g_err_stage:='Copying the source version records as target version records';
2370: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2371: END IF;
2372: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
2373:
2366: --Inserting records into pa_resource_assignments using pa_fp_ra_map_tmp
2367:
2368: IF P_PA_DEBUG_MODE = 'Y' THEN
2369: pa_debug.g_err_stage:='Copying the source version records as target version records';
2370: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2371: END IF;
2372: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
2373:
2374: --Bug 3974569. Need not have pa_rbs_plans_out_tmp in the FROM clause if the parameter is N
2371: END IF;
2372: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
2373:
2374: --Bug 3974569. Need not have pa_rbs_plans_out_tmp in the FROM clause if the parameter is N
2375: IF P_PA_DEBUG_MODE = 'Y' THEN
2376: pa_debug.g_err_stage:='p_rbs_map_diff_flag '||p_rbs_map_diff_flag;
2377: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2378: END IF;
2379:
2372: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
2373:
2374: --Bug 3974569. Need not have pa_rbs_plans_out_tmp in the FROM clause if the parameter is N
2375: IF P_PA_DEBUG_MODE = 'Y' THEN
2376: pa_debug.g_err_stage:='p_rbs_map_diff_flag '||p_rbs_map_diff_flag;
2377: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2378: END IF;
2379:
2380: IF (p_calling_context='WORKPLAN' AND nvl(p_rbs_map_diff_flag,'N') ='N') OR
2373:
2374: --Bug 3974569. Need not have pa_rbs_plans_out_tmp in the FROM clause if the parameter is N
2375: IF P_PA_DEBUG_MODE = 'Y' THEN
2376: pa_debug.g_err_stage:='p_rbs_map_diff_flag '||p_rbs_map_diff_flag;
2377: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2378: END IF;
2379:
2380: IF (p_calling_context='WORKPLAN' AND nvl(p_rbs_map_diff_flag,'N') ='N') OR
2381: p_calling_context='CI' THEN
2379:
2380: IF (p_calling_context='WORKPLAN' AND nvl(p_rbs_map_diff_flag,'N') ='N') OR
2381: p_calling_context='CI' THEN
2382:
2383: IF P_PA_DEBUG_MODE = 'Y' THEN
2384: pa_debug.g_err_stage:='Using the First RA Insert';
2385: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387:
2380: IF (p_calling_context='WORKPLAN' AND nvl(p_rbs_map_diff_flag,'N') ='N') OR
2381: p_calling_context='CI' THEN
2382:
2383: IF P_PA_DEBUG_MODE = 'Y' THEN
2384: pa_debug.g_err_stage:='Using the First RA Insert';
2385: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387:
2388: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
2381: p_calling_context='CI' THEN
2382:
2383: IF P_PA_DEBUG_MODE = 'Y' THEN
2384: pa_debug.g_err_stage:='Using the First RA Insert';
2385: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2386: END IF;
2387:
2388: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
2389: resource_assignment_id
2640: --For Bug 3974569. Take rbs_element_id and txn_accum_header_id from pa_rbs_plans_out_tmp
2641: --API is called for in WORKPLAN CONTEXT for copying from source to target with different RBSs or Resource Lists
2642: ELSIF p_calling_context='WORKPLAN' AND p_rbs_map_diff_flag ='Y' THEN --IF p_rbs_map_diff_flag ='N' THEN
2643:
2644: IF P_PA_DEBUG_MODE = 'Y' THEN
2645:
2646: pa_debug.g_err_stage:='Using the Second RA Insert';
2647: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2648:
2642: ELSIF p_calling_context='WORKPLAN' AND p_rbs_map_diff_flag ='Y' THEN --IF p_rbs_map_diff_flag ='N' THEN
2643:
2644: IF P_PA_DEBUG_MODE = 'Y' THEN
2645:
2646: pa_debug.g_err_stage:='Using the Second RA Insert';
2647: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2648:
2649:
2650: SELECT COUNT(*)
2643:
2644: IF P_PA_DEBUG_MODE = 'Y' THEN
2645:
2646: pa_debug.g_err_stage:='Using the Second RA Insert';
2647: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2648:
2649:
2650: SELECT COUNT(*)
2651: INTO l_tmp
2650: SELECT COUNT(*)
2651: INTO l_tmp
2652: FROM PA_FP_RA_MAP_TMP;
2653:
2654: pa_debug.g_err_stage:='PA_FP_RA_MAP_TMP count '||l_tmp;
2655: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2656:
2657: SELECT COUNT(*)
2658: INTO l_tmp
2651: INTO l_tmp
2652: FROM PA_FP_RA_MAP_TMP;
2653:
2654: pa_debug.g_err_stage:='PA_FP_RA_MAP_TMP count '||l_tmp;
2655: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2656:
2657: SELECT COUNT(*)
2658: INTO l_tmp
2659: FROM pa_rbs_plans_out_tmp;
2657: SELECT COUNT(*)
2658: INTO l_tmp
2659: FROM pa_rbs_plans_out_tmp;
2660:
2661: pa_debug.g_err_stage:='pa_rbs_plans_out_tmp count '||l_tmp;
2662: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2663:
2664: END IF;
2665:
2658: INTO l_tmp
2659: FROM pa_rbs_plans_out_tmp;
2660:
2661: pa_debug.g_err_stage:='pa_rbs_plans_out_tmp count '||l_tmp;
2662: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2663:
2664: END IF;
2665:
2666: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
2922: ELSIF ((p_calling_context IS NULL OR p_calling_context='CREATE_VERSION') AND l_source_project_id=l_target_project_id) OR
2923: ((p_calling_context IS NULL OR p_calling_context='CREATE_VERSION') AND l_source_project_id<>l_target_project_id
2924: AND l_fin_plan_level_code='P' AND l_control_flag='Y' ) THEN
2925:
2926: IF P_PA_DEBUG_MODE = 'Y' THEN
2927: pa_debug.g_err_stage:='Using the Third RA Insert';
2928: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2929: END IF;
2930:
2923: ((p_calling_context IS NULL OR p_calling_context='CREATE_VERSION') AND l_source_project_id<>l_target_project_id
2924: AND l_fin_plan_level_code='P' AND l_control_flag='Y' ) THEN
2925:
2926: IF P_PA_DEBUG_MODE = 'Y' THEN
2927: pa_debug.g_err_stage:='Using the Third RA Insert';
2928: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2929: END IF;
2930:
2931: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
2924: AND l_fin_plan_level_code='P' AND l_control_flag='Y' ) THEN
2925:
2926: IF P_PA_DEBUG_MODE = 'Y' THEN
2927: pa_debug.g_err_stage:='Using the Third RA Insert';
2928: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
2929: END IF;
2930:
2931: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
2932: resource_assignment_id
3182:
3183: IF l_control_flag ='N' THEN
3184:
3185:
3186: IF P_PA_DEBUG_MODE = 'Y' THEN
3187: pa_debug.g_err_stage:='Using the Fourth RA Insert';
3188: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3189: END IF;
3190:
3183: IF l_control_flag ='N' THEN
3184:
3185:
3186: IF P_PA_DEBUG_MODE = 'Y' THEN
3187: pa_debug.g_err_stage:='Using the Fourth RA Insert';
3188: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3189: END IF;
3190:
3191: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
3184:
3185:
3186: IF P_PA_DEBUG_MODE = 'Y' THEN
3187: pa_debug.g_err_stage:='Using the Fourth RA Insert';
3188: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3189: END IF;
3190:
3191: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
3192: resource_assignment_id
3450:
3451: IF l_control_flag ='N' THEN
3452:
3453:
3454: IF P_PA_DEBUG_MODE = 'Y' THEN
3455: pa_debug.g_err_stage:='Using the FIFTH RA Insert';
3456: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3457: END IF;
3458:
3451: IF l_control_flag ='N' THEN
3452:
3453:
3454: IF P_PA_DEBUG_MODE = 'Y' THEN
3455: pa_debug.g_err_stage:='Using the FIFTH RA Insert';
3456: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3457: END IF;
3458:
3459: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
3452:
3453:
3454: IF P_PA_DEBUG_MODE = 'Y' THEN
3455: pa_debug.g_err_stage:='Using the FIFTH RA Insert';
3456: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3457: END IF;
3458:
3459: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
3460: resource_assignment_id
3723: AND pelm.source_task_id=pra.task_id;
3724:
3725: ELSE --Control Flag is Y and Planning Level is not project
3726:
3727: IF P_PA_DEBUG_MODE = 'Y' THEN
3728: pa_debug.g_err_stage:='Using the Sixth RA Insert';
3729: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3730: END IF;
3731:
3724:
3725: ELSE --Control Flag is Y and Planning Level is not project
3726:
3727: IF P_PA_DEBUG_MODE = 'Y' THEN
3728: pa_debug.g_err_stage:='Using the Sixth RA Insert';
3729: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3730: END IF;
3731:
3732: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
3725: ELSE --Control Flag is Y and Planning Level is not project
3726:
3727: IF P_PA_DEBUG_MODE = 'Y' THEN
3728: pa_debug.g_err_stage:='Using the Sixth RA Insert';
3729: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3730: END IF;
3731:
3732: INSERT INTO PA_RESOURCE_ASSIGNMENTS(
3733: resource_assignment_id
3991:
3992: END IF;--IF p_rbs_map_diff_flag ='N' THEN
3993:
3994: l_tmp := SQL%ROWCOUNT;
3995: IF P_PA_DEBUG_MODE = 'Y' THEN
3996: pa_debug.g_err_stage:='No. of records inserted into PRA '||l_tmp;
3997: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3998: END IF;
3999: /** Bug 6161031 When we copy the resource assignments ideally we should call the
3992: END IF;--IF p_rbs_map_diff_flag ='N' THEN
3993:
3994: l_tmp := SQL%ROWCOUNT;
3995: IF P_PA_DEBUG_MODE = 'Y' THEN
3996: pa_debug.g_err_stage:='No. of records inserted into PRA '||l_tmp;
3997: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3998: END IF;
3999: /** Bug 6161031 When we copy the resource assignments ideally we should call the
4000: PA_PLANNING_RESOURCE_UTILS.get_resource_defaults and use the new
3993:
3994: l_tmp := SQL%ROWCOUNT;
3995: IF P_PA_DEBUG_MODE = 'Y' THEN
3996: pa_debug.g_err_stage:='No. of records inserted into PRA '||l_tmp;
3997: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
3998: END IF;
3999: /** Bug 6161031 When we copy the resource assignments ideally we should call the
4000: PA_PLANNING_RESOURCE_UTILS.get_resource_defaults and use the new
4001: attributes. But organization_id is the only column which is depending
4025: and prlm.organization_id is null);
4026: END IF;
4027:
4028: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
4029: IF P_PA_DEBUG_MODE = 'Y' THEN
4030: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
4031: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
4032: pa_debug.reset_err_stack; -- bug:- 2815593
4033: END IF;
4026: END IF;
4027:
4028: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
4029: IF P_PA_DEBUG_MODE = 'Y' THEN
4030: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
4031: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
4032: pa_debug.reset_err_stack; -- bug:- 2815593
4033: END IF;
4034: EXCEPTION
4027:
4028: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
4029: IF P_PA_DEBUG_MODE = 'Y' THEN
4030: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
4031: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
4032: pa_debug.reset_err_stack; -- bug:- 2815593
4033: END IF;
4034: EXCEPTION
4035:
4028: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
4029: IF P_PA_DEBUG_MODE = 'Y' THEN
4030: pa_debug.g_err_stage:='Exiting Copy_Resource_Assignments';
4031: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,3);
4032: pa_debug.reset_err_stack; -- bug:- 2815593
4033: END IF;
4034: EXCEPTION
4035:
4036: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4049: x_msg_count := l_msg_count;
4050: END IF;
4051: x_return_status := FND_API.G_RET_STS_ERROR;
4052:
4053: IF P_PA_DEBUG_MODE = 'Y' THEN
4054: pa_debug.g_err_stage:='Invalid Arguments Passed';
4055: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4056: pa_debug.reset_err_stack;
4057: END IF;
4050: END IF;
4051: x_return_status := FND_API.G_RET_STS_ERROR;
4052:
4053: IF P_PA_DEBUG_MODE = 'Y' THEN
4054: pa_debug.g_err_stage:='Invalid Arguments Passed';
4055: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4056: pa_debug.reset_err_stack;
4057: END IF;
4058: RAISE;
4051: x_return_status := FND_API.G_RET_STS_ERROR;
4052:
4053: IF P_PA_DEBUG_MODE = 'Y' THEN
4054: pa_debug.g_err_stage:='Invalid Arguments Passed';
4055: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4056: pa_debug.reset_err_stack;
4057: END IF;
4058: RAISE;
4059:
4052:
4053: IF P_PA_DEBUG_MODE = 'Y' THEN
4054: pa_debug.g_err_stage:='Invalid Arguments Passed';
4055: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4056: pa_debug.reset_err_stack;
4057: END IF;
4058: RAISE;
4059:
4060: WHEN Others THEN
4063: x_msg_data := SQLERRM;
4064: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
4065: ,p_procedure_name => 'COPY_RESOURCE_ASSIGNMENTS');
4066:
4067: IF P_PA_DEBUG_MODE = 'Y' THEN
4068: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4069: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4070: pa_debug.reset_err_stack;
4071: END IF;
4064: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
4065: ,p_procedure_name => 'COPY_RESOURCE_ASSIGNMENTS');
4066:
4067: IF P_PA_DEBUG_MODE = 'Y' THEN
4068: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4069: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4070: pa_debug.reset_err_stack;
4071: END IF;
4072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4065: ,p_procedure_name => 'COPY_RESOURCE_ASSIGNMENTS');
4066:
4067: IF P_PA_DEBUG_MODE = 'Y' THEN
4068: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4069: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4070: pa_debug.reset_err_stack;
4071: END IF;
4072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4073:
4066:
4067: IF P_PA_DEBUG_MODE = 'Y' THEN
4068: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4069: pa_debug.write('Copy_Resource_Assignments: ' || g_module_name,pa_debug.g_err_stage,5);
4070: pa_debug.reset_err_stack;
4071: END IF;
4072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4073:
4074: END Copy_Resource_Assignments;
4133:
4134: x_msg_count := 0;
4135: x_return_status := FND_API.G_RET_STS_SUCCESS;
4136:
4137: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4138: l_debug_mode := NVL(l_debug_mode, 'Y');
4139: l_module_name := 'PAFPCPFB.mis_amts_chk_neg_qty';
4140:
4141: -- Set curr function
4139: l_module_name := 'PAFPCPFB.mis_amts_chk_neg_qty';
4140:
4141: -- Set curr function
4142: IF l_debug_mode='Y' THEN
4143: pa_debug.set_curr_function(
4144: p_function =>'PAFPCPFB.mis_amts_chk_neg_qty'
4145: ,p_debug_mode => l_debug_mode );
4146:
4147: pa_debug.g_err_stage:= 'Validation Input Parameters';
4143: pa_debug.set_curr_function(
4144: p_function =>'PAFPCPFB.mis_amts_chk_neg_qty'
4145: ,p_debug_mode => l_debug_mode );
4146:
4147: pa_debug.g_err_stage:= 'Validation Input Parameters';
4148: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4149:
4150: END IF;
4151:
4144: p_function =>'PAFPCPFB.mis_amts_chk_neg_qty'
4145: ,p_debug_mode => l_debug_mode );
4146:
4147: pa_debug.g_err_stage:= 'Validation Input Parameters';
4148: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4149:
4150: END IF;
4151:
4152:
4158: p_derv_rates_missing_amts_flag IS NULL THEN
4159:
4160: IF l_debug_mode='Y' THEN
4161:
4162: pa_debug.g_err_stage:= 'p_budget_version_id '|| p_budget_version_id;
4163: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4164:
4165: pa_debug.g_err_stage:= 'p_targ_pref_code '|| p_targ_pref_code;
4166: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4159:
4160: IF l_debug_mode='Y' THEN
4161:
4162: pa_debug.g_err_stage:= 'p_budget_version_id '|| p_budget_version_id;
4163: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4164:
4165: pa_debug.g_err_stage:= 'p_targ_pref_code '|| p_targ_pref_code;
4166: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4167:
4161:
4162: pa_debug.g_err_stage:= 'p_budget_version_id '|| p_budget_version_id;
4163: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4164:
4165: pa_debug.g_err_stage:= 'p_targ_pref_code '|| p_targ_pref_code;
4166: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4167:
4168: pa_debug.g_err_stage:= 'p_source_version_type '|| p_source_version_type;
4169: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4162: pa_debug.g_err_stage:= 'p_budget_version_id '|| p_budget_version_id;
4163: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4164:
4165: pa_debug.g_err_stage:= 'p_targ_pref_code '|| p_targ_pref_code;
4166: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4167:
4168: pa_debug.g_err_stage:= 'p_source_version_type '|| p_source_version_type;
4169: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4170:
4164:
4165: pa_debug.g_err_stage:= 'p_targ_pref_code '|| p_targ_pref_code;
4166: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4167:
4168: pa_debug.g_err_stage:= 'p_source_version_type '|| p_source_version_type;
4169: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4170:
4171: pa_debug.g_err_stage:= 'p_target_version_type '|| p_target_version_type;
4172: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4165: pa_debug.g_err_stage:= 'p_targ_pref_code '|| p_targ_pref_code;
4166: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4167:
4168: pa_debug.g_err_stage:= 'p_source_version_type '|| p_source_version_type;
4169: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4170:
4171: pa_debug.g_err_stage:= 'p_target_version_type '|| p_target_version_type;
4172: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4173:
4167:
4168: pa_debug.g_err_stage:= 'p_source_version_type '|| p_source_version_type;
4169: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4170:
4171: pa_debug.g_err_stage:= 'p_target_version_type '|| p_target_version_type;
4172: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4173:
4174: pa_debug.g_err_stage:= 'p_src_plan_class_code '|| p_src_plan_class_code;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4168: pa_debug.g_err_stage:= 'p_source_version_type '|| p_source_version_type;
4169: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4170:
4171: pa_debug.g_err_stage:= 'p_target_version_type '|| p_target_version_type;
4172: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4173:
4174: pa_debug.g_err_stage:= 'p_src_plan_class_code '|| p_src_plan_class_code;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4176:
4170:
4171: pa_debug.g_err_stage:= 'p_target_version_type '|| p_target_version_type;
4172: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4173:
4174: pa_debug.g_err_stage:= 'p_src_plan_class_code '|| p_src_plan_class_code;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4176:
4177: pa_debug.g_err_stage:= 'p_derv_rates_missing_amts_flag '|| p_derv_rates_missing_amts_flag;
4178: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4171: pa_debug.g_err_stage:= 'p_target_version_type '|| p_target_version_type;
4172: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4173:
4174: pa_debug.g_err_stage:= 'p_src_plan_class_code '|| p_src_plan_class_code;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4176:
4177: pa_debug.g_err_stage:= 'p_derv_rates_missing_amts_flag '|| p_derv_rates_missing_amts_flag;
4178: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4179:
4173:
4174: pa_debug.g_err_stage:= 'p_src_plan_class_code '|| p_src_plan_class_code;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4176:
4177: pa_debug.g_err_stage:= 'p_derv_rates_missing_amts_flag '|| p_derv_rates_missing_amts_flag;
4178: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4179:
4180: END IF;
4181:
4174: pa_debug.g_err_stage:= 'p_src_plan_class_code '|| p_src_plan_class_code;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4176:
4177: pa_debug.g_err_stage:= 'p_derv_rates_missing_amts_flag '|| p_derv_rates_missing_amts_flag;
4178: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4179:
4180: END IF;
4181:
4182: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4223: IF l_bl_id_tbl.COUNT =0 THEN
4224:
4225: IF l_debug_mode='Y' THEN
4226:
4227: pa_debug.g_err_stage:= 'Budget Line count is 0';
4228: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4229:
4230: pa_debug.reset_curr_function;
4231: END IF;
4224:
4225: IF l_debug_mode='Y' THEN
4226:
4227: pa_debug.g_err_stage:= 'Budget Line count is 0';
4228: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4229:
4230: pa_debug.reset_curr_function;
4231: END IF;
4232:
4226:
4227: pa_debug.g_err_stage:= 'Budget Line count is 0';
4228: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4229:
4230: pa_debug.reset_curr_function;
4231: END IF;
4232:
4233: RETURN;
4234:
4238: IF p_derv_rates_missing_amts_flag='Y' THEN
4239:
4240: IF l_debug_mode='Y' THEN
4241:
4242: pa_debug.g_err_stage:= 'Calling pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4243: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4244:
4245: END IF;
4246:
4239:
4240: IF l_debug_mode='Y' THEN
4241:
4242: pa_debug.g_err_stage:= 'Calling pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4243: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4244:
4245: END IF;
4246:
4247: pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules
4265: ,x_msg_data => l_msg_data);
4266:
4267: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4268: IF l_debug_mode = 'Y' THEN
4269: pa_debug.g_err_stage:= 'Error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4270: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4271: END IF;
4272: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4273: END IF;
4266:
4267: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4268: IF l_debug_mode = 'Y' THEN
4269: pa_debug.g_err_stage:= 'Error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4270: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4271: END IF;
4272: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4273: END IF;
4274:
4303: /*
4304:
4305: IF l_debug_mode='Y' THEN
4306:
4307: pa_debug.g_err_stage:= 'Calling PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC';
4308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4309:
4310: END IF;
4311: */
4304:
4305: IF l_debug_mode='Y' THEN
4306:
4307: pa_debug.g_err_stage:= 'Calling PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC';
4308: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4309:
4310: END IF;
4311: */
4312:
4337: ,x_msg_data => l_msg_data);
4338:
4339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4340: IF l_debug_mode = 'Y' THEN
4341: pa_debug.g_err_stage:= 'Error in PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC';
4342: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4343: END IF;
4344: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4345: END IF;
4338:
4339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4340: IF l_debug_mode = 'Y' THEN
4341: pa_debug.g_err_stage:= 'Error in PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC';
4342: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4343: END IF;
4344: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4345: END IF;
4346:
4354: IF p_derv_rates_missing_amts_flag='Y' THEN
4355:
4356: IF l_debug_mode='Y' THEN
4357:
4358: pa_debug.g_err_stage:= 'p_source_version_type '||p_source_version_type;
4359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4360:
4361: pa_debug.g_err_stage:= 'p_target_version_type '||p_target_version_type;
4362: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4355:
4356: IF l_debug_mode='Y' THEN
4357:
4358: pa_debug.g_err_stage:= 'p_source_version_type '||p_source_version_type;
4359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4360:
4361: pa_debug.g_err_stage:= 'p_target_version_type '||p_target_version_type;
4362: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4363:
4357:
4358: pa_debug.g_err_stage:= 'p_source_version_type '||p_source_version_type;
4359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4360:
4361: pa_debug.g_err_stage:= 'p_target_version_type '||p_target_version_type;
4362: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4363:
4364: END IF;
4365:
4358: pa_debug.g_err_stage:= 'p_source_version_type '||p_source_version_type;
4359: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4360:
4361: pa_debug.g_err_stage:= 'p_target_version_type '||p_target_version_type;
4362: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4363:
4364: END IF;
4365:
4366: IF p_source_version_type='COST' THEN
4437: IF l_debug_mode='Y' THEN
4438:
4439: FOR kk IN 1..l_non_rb_ra_id_tbl.COUNT LOOP
4440:
4441: pa_debug.g_err_stage:= 'l_non_rb_ra_id_tbl('||kk||')'||l_non_rb_ra_id_tbl(kk);
4442: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4443:
4444: END LOOP;
4445:
4438:
4439: FOR kk IN 1..l_non_rb_ra_id_tbl.COUNT LOOP
4440:
4441: pa_debug.g_err_stage:= 'l_non_rb_ra_id_tbl('||kk||')'||l_non_rb_ra_id_tbl(kk);
4442: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4443:
4444: END LOOP;
4445:
4446: FOR kk IN 1..l_ra_id_tbl.COUNT LOOP
4444: END LOOP;
4445:
4446: FOR kk IN 1..l_ra_id_tbl.COUNT LOOP
4447:
4448: pa_debug.g_err_stage:= 'l_ra_id_tbl('||kk||')'||l_ra_id_tbl(kk);
4449: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4450: END LOOP;
4451:
4452: END IF;
4445:
4446: FOR kk IN 1..l_ra_id_tbl.COUNT LOOP
4447:
4448: pa_debug.g_err_stage:= 'l_ra_id_tbl('||kk||')'||l_ra_id_tbl(kk);
4449: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4450: END LOOP;
4451:
4452: END IF;
4453:
4475: END IF;
4476:
4477: IF l_debug_mode='Y' THEN
4478:
4479: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl.COUNT '||l_bl_rb_flag_chg_tbl.COUNT;
4480: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4481:
4482: END IF;
4483:
4476:
4477: IF l_debug_mode='Y' THEN
4478:
4479: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl.COUNT '||l_bl_rb_flag_chg_tbl.COUNT;
4480: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4481:
4482: END IF;
4483:
4484: FOR kk IN l_bl_rb_flag_chg_tbl.COUNT+1..l_ra_id_tbl.COUNT LOOP
4489: END LOOP;
4490:
4491: IF l_debug_mode='Y' THEN
4492:
4493: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl.COUNT '||l_bl_rb_flag_chg_tbl.COUNT;
4494: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4495:
4496: pa_debug.g_err_stage:= 'l_ra_id_tbl.COUNT '||l_ra_id_tbl.COUNT;
4497: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4490:
4491: IF l_debug_mode='Y' THEN
4492:
4493: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl.COUNT '||l_bl_rb_flag_chg_tbl.COUNT;
4494: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4495:
4496: pa_debug.g_err_stage:= 'l_ra_id_tbl.COUNT '||l_ra_id_tbl.COUNT;
4497: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4498:
4492:
4493: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl.COUNT '||l_bl_rb_flag_chg_tbl.COUNT;
4494: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4495:
4496: pa_debug.g_err_stage:= 'l_ra_id_tbl.COUNT '||l_ra_id_tbl.COUNT;
4497: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4498:
4499: FOR kk IN 1..l_bl_rb_flag_chg_tbl.COUNT LOOP
4500:
4493: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl.COUNT '||l_bl_rb_flag_chg_tbl.COUNT;
4494: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4495:
4496: pa_debug.g_err_stage:= 'l_ra_id_tbl.COUNT '||l_ra_id_tbl.COUNT;
4497: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4498:
4499: FOR kk IN 1..l_bl_rb_flag_chg_tbl.COUNT LOOP
4500:
4501: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl('||kk||')'||l_bl_rb_flag_chg_tbl(kk);
4497: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4498:
4499: FOR kk IN 1..l_bl_rb_flag_chg_tbl.COUNT LOOP
4500:
4501: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl('||kk||')'||l_bl_rb_flag_chg_tbl(kk);
4502: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4503: END LOOP;
4504:
4505: END IF;
4498:
4499: FOR kk IN 1..l_bl_rb_flag_chg_tbl.COUNT LOOP
4500:
4501: pa_debug.g_err_stage:= 'l_bl_rb_flag_chg_tbl('||kk||')'||l_bl_rb_flag_chg_tbl(kk);
4502: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4503: END LOOP;
4504:
4505: END IF;
4506:
4621: END IF;--IF p_derv_rates_missing_amts_flag='Y' THEN
4622:
4623: IF l_debug_mode='Y' THEN
4624:
4625: pa_debug.g_err_stage:= 'Leaving '||l_module_name;
4626: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4627:
4628: pa_debug.reset_curr_function;
4629: END IF;
4622:
4623: IF l_debug_mode='Y' THEN
4624:
4625: pa_debug.g_err_stage:= 'Leaving '||l_module_name;
4626: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4627:
4628: pa_debug.reset_curr_function;
4629: END IF;
4630:
4624:
4625: pa_debug.g_err_stage:= 'Leaving '||l_module_name;
4626: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4627:
4628: pa_debug.reset_curr_function;
4629: END IF;
4630:
4631: EXCEPTION
4632: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4647: END IF;
4648: x_return_status := FND_API.G_RET_STS_ERROR;
4649:
4650: IF l_debug_mode = 'Y' THEN
4651: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
4652: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4653: -- reset curr function
4654: pa_debug.reset_curr_function();
4655: END IF;
4648: x_return_status := FND_API.G_RET_STS_ERROR;
4649:
4650: IF l_debug_mode = 'Y' THEN
4651: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
4652: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4653: -- reset curr function
4654: pa_debug.reset_curr_function();
4655: END IF;
4656: RETURN;
4650: IF l_debug_mode = 'Y' THEN
4651: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
4652: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4653: -- reset curr function
4654: pa_debug.reset_curr_function();
4655: END IF;
4656: RETURN;
4657: WHEN OTHERS THEN
4658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4662: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_copy_from_pkg'
4663: ,p_procedure_name => 'derv_missing_amts_chk_neg_qty');
4664:
4665: IF l_debug_mode = 'Y' THEN
4666: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4667: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4668: -- reset curr function
4669: pa_debug.reset_curr_function();
4670: END IF;
4663: ,p_procedure_name => 'derv_missing_amts_chk_neg_qty');
4664:
4665: IF l_debug_mode = 'Y' THEN
4666: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4667: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4668: -- reset curr function
4669: pa_debug.reset_curr_function();
4670: END IF;
4671: RAISE;
4665: IF l_debug_mode = 'Y' THEN
4666: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4667: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
4668: -- reset curr function
4669: pa_debug.reset_curr_function();
4670: END IF;
4671: RAISE;
4672:
4673: END derv_missing_amts_chk_neg_qty;
4749: BEGIN
4750:
4751: x_msg_count := 0;
4752: x_return_status := FND_API.G_RET_STS_SUCCESS;
4753: IF P_PA_DEBUG_MODE = 'Y' THEN
4754: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
4755: END IF;
4756: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4757: l_debug_mode := NVL(l_debug_mode, 'Y');
4750:
4751: x_msg_count := 0;
4752: x_return_status := FND_API.G_RET_STS_SUCCESS;
4753: IF P_PA_DEBUG_MODE = 'Y' THEN
4754: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
4755: END IF;
4756: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4757: l_debug_mode := NVL(l_debug_mode, 'Y');
4758: IF P_PA_DEBUG_MODE = 'Y' THEN
4752: x_return_status := FND_API.G_RET_STS_SUCCESS;
4753: IF P_PA_DEBUG_MODE = 'Y' THEN
4754: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
4755: END IF;
4756: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4757: l_debug_mode := NVL(l_debug_mode, 'Y');
4758: IF P_PA_DEBUG_MODE = 'Y' THEN
4759: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4760: END IF;
4754: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
4755: END IF;
4756: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4757: l_debug_mode := NVL(l_debug_mode, 'Y');
4758: IF P_PA_DEBUG_MODE = 'Y' THEN
4759: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4760: END IF;
4761: -- Checking for all valid input parametrs
4762:
4755: END IF;
4756: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4757: l_debug_mode := NVL(l_debug_mode, 'Y');
4758: IF P_PA_DEBUG_MODE = 'Y' THEN
4759: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4760: END IF;
4761: -- Checking for all valid input parametrs
4762:
4763: IF P_PA_DEBUG_MODE = 'Y' THEN
4759: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4760: END IF;
4761: -- Checking for all valid input parametrs
4762:
4763: IF P_PA_DEBUG_MODE = 'Y' THEN
4764: pa_debug.g_err_stage := 'Checking for valid parameters:';
4765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4766: END IF;
4767:
4760: END IF;
4761: -- Checking for all valid input parametrs
4762:
4763: IF P_PA_DEBUG_MODE = 'Y' THEN
4764: pa_debug.g_err_stage := 'Checking for valid parameters:';
4765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4766: END IF;
4767:
4768: IF (p_source_plan_version_id IS NULL) OR
4761: -- Checking for all valid input parametrs
4762:
4763: IF P_PA_DEBUG_MODE = 'Y' THEN
4764: pa_debug.g_err_stage := 'Checking for valid parameters:';
4765: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4766: END IF;
4767:
4768: IF (p_source_plan_version_id IS NULL) OR
4769: (p_target_plan_version_id IS NULL)
4768: IF (p_source_plan_version_id IS NULL) OR
4769: (p_target_plan_version_id IS NULL)
4770: THEN
4771:
4772: IF P_PA_DEBUG_MODE = 'Y' THEN
4773: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4774: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4775: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4776: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4769: (p_target_plan_version_id IS NULL)
4770: THEN
4771:
4772: IF P_PA_DEBUG_MODE = 'Y' THEN
4773: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4774: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4775: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4776: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4777: END IF;
4770: THEN
4771:
4772: IF P_PA_DEBUG_MODE = 'Y' THEN
4773: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4774: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4775: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4776: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4777: END IF;
4778:
4771:
4772: IF P_PA_DEBUG_MODE = 'Y' THEN
4773: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4774: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4775: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4776: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4777: END IF;
4778:
4779: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4772: IF P_PA_DEBUG_MODE = 'Y' THEN
4773: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
4774: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4775: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
4776: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
4777: END IF;
4778:
4779: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
4780: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4782: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4783:
4784: END IF;
4785:
4786: IF P_PA_DEBUG_MODE = 'Y' THEN
4787: pa_debug.g_err_stage := 'Parameter validation complete';
4788: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4789: END IF;
4790: /*
4783:
4784: END IF;
4785:
4786: IF P_PA_DEBUG_MODE = 'Y' THEN
4787: pa_debug.g_err_stage := 'Parameter validation complete';
4788: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4789: END IF;
4790: /*
4791: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4784: END IF;
4785:
4786: IF P_PA_DEBUG_MODE = 'Y' THEN
4787: pa_debug.g_err_stage := 'Parameter validation complete';
4788: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4789: END IF;
4790: /*
4791: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4792: IF P_PA_DEBUG_MODE = 'Y' THEN
4787: pa_debug.g_err_stage := 'Parameter validation complete';
4788: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4789: END IF;
4790: /*
4791: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4792: IF P_PA_DEBUG_MODE = 'Y' THEN
4793: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
4788: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4789: END IF;
4790: /*
4791: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4792: IF P_PA_DEBUG_MODE = 'Y' THEN
4793: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
4796: IF P_PA_DEBUG_MODE = 'Y' THEN
4789: END IF;
4790: /*
4791: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4792: IF P_PA_DEBUG_MODE = 'Y' THEN
4793: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
4796: IF P_PA_DEBUG_MODE = 'Y' THEN
4797: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4791: pa_debug.g_err_stage:='Source fin plan version id'||p_source_plan_version_id;
4792: IF P_PA_DEBUG_MODE = 'Y' THEN
4793: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
4796: IF P_PA_DEBUG_MODE = 'Y' THEN
4797: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4798: END IF;
4799: */
4792: IF P_PA_DEBUG_MODE = 'Y' THEN
4793: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
4796: IF P_PA_DEBUG_MODE = 'Y' THEN
4797: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4798: END IF;
4799: */
4800: --make adj percentage zero if passed as null
4793: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4794: END IF;
4795: pa_debug.g_err_stage:='Target fin plan version id'||p_target_plan_version_id;
4796: IF P_PA_DEBUG_MODE = 'Y' THEN
4797: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4798: END IF;
4799: */
4800: --make adj percentage zero if passed as null
4801:
4800: --make adj percentage zero if passed as null
4801:
4802: l_adj_percentage := NVL(p_adj_percentage,0);
4803: /*
4804: pa_debug.g_err_stage:='Adj_percentage'||l_adj_percentage;
4805: IF P_PA_DEBUG_MODE = 'Y' THEN
4806: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4807: END IF;
4808: */
4801:
4802: l_adj_percentage := NVL(p_adj_percentage,0);
4803: /*
4804: pa_debug.g_err_stage:='Adj_percentage'||l_adj_percentage;
4805: IF P_PA_DEBUG_MODE = 'Y' THEN
4806: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4807: END IF;
4808: */
4809: -- Fetching the flags of target version using fin_plan_prefernce_code
4802: l_adj_percentage := NVL(p_adj_percentage,0);
4803: /*
4804: pa_debug.g_err_stage:='Adj_percentage'||l_adj_percentage;
4805: IF P_PA_DEBUG_MODE = 'Y' THEN
4806: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4807: END IF;
4808: */
4809: -- Fetching the flags of target version using fin_plan_prefernce_code
4810:
4808: */
4809: -- Fetching the flags of target version using fin_plan_prefernce_code
4810:
4811:
4812: IF P_PA_DEBUG_MODE = 'Y' THEN
4813: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
4814: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4815: END IF;
4816:
4809: -- Fetching the flags of target version using fin_plan_prefernce_code
4810:
4811:
4812: IF P_PA_DEBUG_MODE = 'Y' THEN
4813: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
4814: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4815: END IF;
4816:
4817: --Bug 4290043. Selected preference code for the target version
4810:
4811:
4812: IF P_PA_DEBUG_MODE = 'Y' THEN
4813: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
4814: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4815: END IF;
4816:
4817: --Bug 4290043. Selected preference code for the target version
4818: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
4827: ,l_target_pref_code
4828: FROM pa_proj_fp_options
4829: WHERE fin_plan_version_id=p_target_plan_version_id;
4830: /*
4831: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
4832: IF P_PA_DEBUG_MODE = 'Y' THEN
4833: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4834: END IF;
4835: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
4828: FROM pa_proj_fp_options
4829: WHERE fin_plan_version_id=p_target_plan_version_id;
4830: /*
4831: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
4832: IF P_PA_DEBUG_MODE = 'Y' THEN
4833: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4834: END IF;
4835: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
4836: IF P_PA_DEBUG_MODE = 'Y' THEN
4829: WHERE fin_plan_version_id=p_target_plan_version_id;
4830: /*
4831: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
4832: IF P_PA_DEBUG_MODE = 'Y' THEN
4833: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4834: END IF;
4835: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
4836: IF P_PA_DEBUG_MODE = 'Y' THEN
4837: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4831: pa_debug.g_err_stage:='l_revenue_flag ='||l_revenue_flag;
4832: IF P_PA_DEBUG_MODE = 'Y' THEN
4833: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4834: END IF;
4835: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
4836: IF P_PA_DEBUG_MODE = 'Y' THEN
4837: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4838: END IF;
4839: */
4832: IF P_PA_DEBUG_MODE = 'Y' THEN
4833: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4834: END IF;
4835: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
4836: IF P_PA_DEBUG_MODE = 'Y' THEN
4837: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4838: END IF;
4839: */
4840: -- Checking if source and target version period profiles match
4833: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4834: END IF;
4835: pa_debug.g_err_stage:='l_cost_flag ='||l_cost_flag;
4836: IF P_PA_DEBUG_MODE = 'Y' THEN
4837: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4838: END IF;
4839: */
4840: -- Checking if source and target version period profiles match
4841:
4841:
4842: /* FPB2: REVIEW */
4843:
4844:
4845: IF P_PA_DEBUG_MODE = 'Y' THEN
4846: pa_debug.g_err_stage:='Inserting budget_lines';
4847: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4848: END IF;
4849:
4842: /* FPB2: REVIEW */
4843:
4844:
4845: IF P_PA_DEBUG_MODE = 'Y' THEN
4846: pa_debug.g_err_stage:='Inserting budget_lines';
4847: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4848: END IF;
4849:
4850: -- Bug 3927244: Actuals need to be copied from forecast to forecast within the same project for FINPLAN versions
4843:
4844:
4845: IF P_PA_DEBUG_MODE = 'Y' THEN
4846: pa_debug.g_err_stage:='Inserting budget_lines';
4847: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
4848: END IF;
4849:
4850: -- Bug 3927244: Actuals need to be copied from forecast to forecast within the same project for FINPLAN versions
4851:
5119: AND pra.project_id = l_target_project_id; -- Bug 4493425.
5120:
5121: l_temp:=SQL%ROWCOUNT;
5122:
5123: IF P_PA_DEBUG_MODE = 'Y' THEN
5124: pa_debug.g_err_stage:='No. of Budget lines inserted '||l_temp;
5125: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5126: END IF;
5127:
5120:
5121: l_temp:=SQL%ROWCOUNT;
5122:
5123: IF P_PA_DEBUG_MODE = 'Y' THEN
5124: pa_debug.g_err_stage:='No. of Budget lines inserted '||l_temp;
5125: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5126: END IF;
5127:
5128: --Populate the pa_fp_bl_map_tmp table so that the MRC API can have the mapping readily defined.
5121: l_temp:=SQL%ROWCOUNT;
5122:
5123: IF P_PA_DEBUG_MODE = 'Y' THEN
5124: pa_debug.g_err_stage:='No. of Budget lines inserted '||l_temp;
5125: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5126: END IF;
5127:
5128: --Populate the pa_fp_bl_map_tmp table so that the MRC API can have the mapping readily defined.
5129: --The logic of inserting into pa_budget_lines using pa_fp_bl_map_tmp is removed for bug 4224703
5147: AND pblt.start_date=pbls.start_date
5148: AND pblt.txn_currency_code=pbls.txn_currency_code;
5149: l_temp:=SQL%ROWCOUNT;
5150:
5151: IF P_PA_DEBUG_MODE = 'Y' THEN
5152: pa_debug.g_err_stage:='No. of mrc mappling lines inserted '||l_temp;
5153: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5154: END IF;
5155:
5148: AND pblt.txn_currency_code=pbls.txn_currency_code;
5149: l_temp:=SQL%ROWCOUNT;
5150:
5151: IF P_PA_DEBUG_MODE = 'Y' THEN
5152: pa_debug.g_err_stage:='No. of mrc mappling lines inserted '||l_temp;
5153: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5154: END IF;
5155:
5156: END IF;
5149: l_temp:=SQL%ROWCOUNT;
5150:
5151: IF P_PA_DEBUG_MODE = 'Y' THEN
5152: pa_debug.g_err_stage:='No. of mrc mappling lines inserted '||l_temp;
5153: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5154: END IF;
5155:
5156: END IF;
5157:
5167: ,x_msg_count => l_msg_count
5168: ,x_msg_data => l_msg_data);
5169:
5170: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5171: IF P_PA_debug_mode = 'Y' THEN
5172: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
5173: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5174: END IF;
5175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5168: ,x_msg_data => l_msg_data);
5169:
5170: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5171: IF P_PA_debug_mode = 'Y' THEN
5172: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
5173: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5174: END IF;
5175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5176: END IF;
5169:
5170: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5171: IF P_PA_debug_mode = 'Y' THEN
5172: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
5173: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5174: END IF;
5175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5176: END IF;
5177: END IF;
5194: x_msg_count => l_msg_count,
5195: x_msg_data => l_msg_data);
5196:
5197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5198: IF P_PA_debug_mode = 'Y' THEN
5199: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
5200: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5201: END IF;
5202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5195: x_msg_data => l_msg_data);
5196:
5197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5198: IF P_PA_debug_mode = 'Y' THEN
5199: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
5200: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5201: END IF;
5202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5203:
5196:
5197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5198: IF P_PA_debug_mode = 'Y' THEN
5199: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
5200: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5201: END IF;
5202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5203:
5204: END IF;
5204: END IF;
5205:
5206: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
5207:
5208: IF P_PA_DEBUG_MODE = 'Y' THEN
5209: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
5210: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5211: pa_debug.reset_err_stack; -- bug:- 2815593
5212: END IF;
5205:
5206: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
5207:
5208: IF P_PA_DEBUG_MODE = 'Y' THEN
5209: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
5210: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5211: pa_debug.reset_err_stack; -- bug:- 2815593
5212: END IF;
5213: EXCEPTION
5206: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
5207:
5208: IF P_PA_DEBUG_MODE = 'Y' THEN
5209: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
5210: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5211: pa_debug.reset_err_stack; -- bug:- 2815593
5212: END IF;
5213: EXCEPTION
5214:
5207:
5208: IF P_PA_DEBUG_MODE = 'Y' THEN
5209: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
5210: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5211: pa_debug.reset_err_stack; -- bug:- 2815593
5212: END IF;
5213: EXCEPTION
5214:
5215: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5228: x_msg_count := l_msg_count;
5229: END IF;
5230: x_return_status := FND_API.G_RET_STS_ERROR;
5231:
5232: IF P_PA_DEBUG_MODE = 'Y' THEN
5233: pa_debug.g_err_stage:='Invalid arguments passed';
5234: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5235: pa_debug.reset_err_stack;
5236: END IF;
5229: END IF;
5230: x_return_status := FND_API.G_RET_STS_ERROR;
5231:
5232: IF P_PA_DEBUG_MODE = 'Y' THEN
5233: pa_debug.g_err_stage:='Invalid arguments passed';
5234: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5235: pa_debug.reset_err_stack;
5236: END IF;
5237: RAISE;
5230: x_return_status := FND_API.G_RET_STS_ERROR;
5231:
5232: IF P_PA_DEBUG_MODE = 'Y' THEN
5233: pa_debug.g_err_stage:='Invalid arguments passed';
5234: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5235: pa_debug.reset_err_stack;
5236: END IF;
5237: RAISE;
5238:
5231:
5232: IF P_PA_DEBUG_MODE = 'Y' THEN
5233: pa_debug.g_err_stage:='Invalid arguments passed';
5234: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5235: pa_debug.reset_err_stack;
5236: END IF;
5237: RAISE;
5238:
5239: WHEN Others THEN
5242: x_msg_data := SQLERRM;
5243: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
5244: ,p_procedure_name => 'COPY_BUDGET_LINES');
5245:
5246: IF P_PA_DEBUG_MODE = 'Y' THEN
5247: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5248: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5249: pa_debug.reset_err_stack;
5250: END IF;
5243: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
5244: ,p_procedure_name => 'COPY_BUDGET_LINES');
5245:
5246: IF P_PA_DEBUG_MODE = 'Y' THEN
5247: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5248: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5249: pa_debug.reset_err_stack;
5250: END IF;
5251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5244: ,p_procedure_name => 'COPY_BUDGET_LINES');
5245:
5246: IF P_PA_DEBUG_MODE = 'Y' THEN
5247: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5248: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5249: pa_debug.reset_err_stack;
5250: END IF;
5251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5252: END Copy_Budget_Lines;
5245:
5246: IF P_PA_DEBUG_MODE = 'Y' THEN
5247: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5248: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5249: pa_debug.reset_err_stack;
5250: END IF;
5251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5252: END Copy_Budget_Lines;
5253:
5280: BEGIN
5281:
5282: x_msg_count := 0;
5283: x_return_status := FND_API.G_RET_STS_SUCCESS;
5284: IF P_PA_DEBUG_MODE = 'Y' THEN
5285: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Periods_Denorm');
5286: END IF;
5287: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5288: l_debug_mode := NVL(l_debug_mode, 'Y');
5281:
5282: x_msg_count := 0;
5283: x_return_status := FND_API.G_RET_STS_SUCCESS;
5284: IF P_PA_DEBUG_MODE = 'Y' THEN
5285: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Periods_Denorm');
5286: END IF;
5287: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5288: l_debug_mode := NVL(l_debug_mode, 'Y');
5289: IF P_PA_DEBUG_MODE = 'Y' THEN
5283: x_return_status := FND_API.G_RET_STS_SUCCESS;
5284: IF P_PA_DEBUG_MODE = 'Y' THEN
5285: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Periods_Denorm');
5286: END IF;
5287: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5288: l_debug_mode := NVL(l_debug_mode, 'Y');
5289: IF P_PA_DEBUG_MODE = 'Y' THEN
5290: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5291: END IF;
5285: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Periods_Denorm');
5286: END IF;
5287: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5288: l_debug_mode := NVL(l_debug_mode, 'Y');
5289: IF P_PA_DEBUG_MODE = 'Y' THEN
5290: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5291: END IF;
5292: -- Checking for all valid input parametrs
5293:
5286: END IF;
5287: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5288: l_debug_mode := NVL(l_debug_mode, 'Y');
5289: IF P_PA_DEBUG_MODE = 'Y' THEN
5290: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
5291: END IF;
5292: -- Checking for all valid input parametrs
5293:
5294:
5291: END IF;
5292: -- Checking for all valid input parametrs
5293:
5294:
5295: IF P_PA_DEBUG_MODE = 'Y' THEN
5296: pa_debug.g_err_stage := 'Checking for valid parameters:';
5297: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5298: END IF;
5299:
5292: -- Checking for all valid input parametrs
5293:
5294:
5295: IF P_PA_DEBUG_MODE = 'Y' THEN
5296: pa_debug.g_err_stage := 'Checking for valid parameters:';
5297: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5298: END IF;
5299:
5300: IF (p_source_plan_version_id IS NULL) OR
5293:
5294:
5295: IF P_PA_DEBUG_MODE = 'Y' THEN
5296: pa_debug.g_err_stage := 'Checking for valid parameters:';
5297: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5298: END IF;
5299:
5300: IF (p_source_plan_version_id IS NULL) OR
5301: (p_target_plan_version_id IS NULL) OR
5302: (p_calling_module IS NULL)
5303: THEN
5304:
5305:
5306: IF P_PA_DEBUG_MODE = 'Y' THEN
5307: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5308: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5309: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5310: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5303: THEN
5304:
5305:
5306: IF P_PA_DEBUG_MODE = 'Y' THEN
5307: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5308: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5309: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5310: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5311: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5304:
5305:
5306: IF P_PA_DEBUG_MODE = 'Y' THEN
5307: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5308: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5309: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5310: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5311: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5312: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5305:
5306: IF P_PA_DEBUG_MODE = 'Y' THEN
5307: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5308: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5309: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5310: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5311: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5312: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5313: END IF;
5306: IF P_PA_DEBUG_MODE = 'Y' THEN
5307: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5308: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5309: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5310: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5311: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5312: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5313: END IF;
5314:
5307: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5308: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5309: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5310: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5311: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5312: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5313: END IF;
5314:
5315: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
5308: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5309: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5310: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5311: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5312: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5313: END IF;
5314:
5315: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
5316: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5318: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5319:
5320: END IF;
5321:
5322: IF P_PA_DEBUG_MODE = 'Y' THEN
5323: pa_debug.g_err_stage := 'Parameter validation complete';
5324: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5325: END IF;
5326: /*
5319:
5320: END IF;
5321:
5322: IF P_PA_DEBUG_MODE = 'Y' THEN
5323: pa_debug.g_err_stage := 'Parameter validation complete';
5324: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5325: END IF;
5326: /*
5327: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5320: END IF;
5321:
5322: IF P_PA_DEBUG_MODE = 'Y' THEN
5323: pa_debug.g_err_stage := 'Parameter validation complete';
5324: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5325: END IF;
5326: /*
5327: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5328: IF P_PA_DEBUG_MODE = 'Y' THEN
5323: pa_debug.g_err_stage := 'Parameter validation complete';
5324: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5325: END IF;
5326: /*
5327: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5328: IF P_PA_DEBUG_MODE = 'Y' THEN
5329: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5330: END IF;
5331: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5324: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5325: END IF;
5326: /*
5327: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5328: IF P_PA_DEBUG_MODE = 'Y' THEN
5329: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5330: END IF;
5331: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5332: IF P_PA_DEBUG_MODE = 'Y' THEN
5325: END IF;
5326: /*
5327: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5328: IF P_PA_DEBUG_MODE = 'Y' THEN
5329: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5330: END IF;
5331: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5332: IF P_PA_DEBUG_MODE = 'Y' THEN
5333: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5327: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
5328: IF P_PA_DEBUG_MODE = 'Y' THEN
5329: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5330: END IF;
5331: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5332: IF P_PA_DEBUG_MODE = 'Y' THEN
5333: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5334: END IF;
5335: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5328: IF P_PA_DEBUG_MODE = 'Y' THEN
5329: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5330: END IF;
5331: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5332: IF P_PA_DEBUG_MODE = 'Y' THEN
5333: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5334: END IF;
5335: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5336: IF P_PA_DEBUG_MODE = 'Y' THEN
5329: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5330: END IF;
5331: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5332: IF P_PA_DEBUG_MODE = 'Y' THEN
5333: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5334: END IF;
5335: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5336: IF P_PA_DEBUG_MODE = 'Y' THEN
5337: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5331: pa_debug.g_err_stage := 'Target_plan = '||p_target_plan_version_id;
5332: IF P_PA_DEBUG_MODE = 'Y' THEN
5333: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5334: END IF;
5335: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5336: IF P_PA_DEBUG_MODE = 'Y' THEN
5337: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5338: END IF;
5339: */
5332: IF P_PA_DEBUG_MODE = 'Y' THEN
5333: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5334: END IF;
5335: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5336: IF P_PA_DEBUG_MODE = 'Y' THEN
5337: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5338: END IF;
5339: */
5340: -- Evaluating which records are to be copied using amount type code of
5333: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5334: END IF;
5335: pa_debug.g_err_stage := 'Calling_module = '||p_calling_module;
5336: IF P_PA_DEBUG_MODE = 'Y' THEN
5337: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5338: END IF;
5339: */
5340: -- Evaluating which records are to be copied using amount type code of
5341: -- pa_proj_periods_denorm and fin paln preference code of the target version
5339: */
5340: -- Evaluating which records are to be copied using amount type code of
5341: -- pa_proj_periods_denorm and fin paln preference code of the target version
5342:
5343: IF P_PA_DEBUG_MODE = 'Y' THEN
5344: pa_debug.g_err_stage:='Evaluating which records are to be copied';
5345: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5346: END IF;
5347:
5340: -- Evaluating which records are to be copied using amount type code of
5341: -- pa_proj_periods_denorm and fin paln preference code of the target version
5342:
5343: IF P_PA_DEBUG_MODE = 'Y' THEN
5344: pa_debug.g_err_stage:='Evaluating which records are to be copied';
5345: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5346: END IF;
5347:
5348: SELECT DECODE(fin_plan_preference_code
5341: -- pa_proj_periods_denorm and fin paln preference code of the target version
5342:
5343: IF P_PA_DEBUG_MODE = 'Y' THEN
5344: pa_debug.g_err_stage:='Evaluating which records are to be copied';
5345: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5346: END IF;
5347:
5348: SELECT DECODE(fin_plan_preference_code
5349: ,PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
5354: ,l_target_project_id
5355: FROM pa_proj_fp_options
5356: WHERE fin_plan_version_id=p_target_plan_version_id;
5357: /*
5358: pa_debug.g_err_stage:='l_ignore_amount_type = '||l_ignore_amount_type;
5359: IF P_PA_DEBUG_MODE = 'Y' THEN
5360: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5361: END IF;
5362: pa_debug.g_err_stage := 'l_target_project_id = '||l_target_project_id;
5355: FROM pa_proj_fp_options
5356: WHERE fin_plan_version_id=p_target_plan_version_id;
5357: /*
5358: pa_debug.g_err_stage:='l_ignore_amount_type = '||l_ignore_amount_type;
5359: IF P_PA_DEBUG_MODE = 'Y' THEN
5360: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5361: END IF;
5362: pa_debug.g_err_stage := 'l_target_project_id = '||l_target_project_id;
5363: IF P_PA_DEBUG_MODE = 'Y' THEN
5356: WHERE fin_plan_version_id=p_target_plan_version_id;
5357: /*
5358: pa_debug.g_err_stage:='l_ignore_amount_type = '||l_ignore_amount_type;
5359: IF P_PA_DEBUG_MODE = 'Y' THEN
5360: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5361: END IF;
5362: pa_debug.g_err_stage := 'l_target_project_id = '||l_target_project_id;
5363: IF P_PA_DEBUG_MODE = 'Y' THEN
5364: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5358: pa_debug.g_err_stage:='l_ignore_amount_type = '||l_ignore_amount_type;
5359: IF P_PA_DEBUG_MODE = 'Y' THEN
5360: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5361: END IF;
5362: pa_debug.g_err_stage := 'l_target_project_id = '||l_target_project_id;
5363: IF P_PA_DEBUG_MODE = 'Y' THEN
5364: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5365: END IF;
5366: */
5359: IF P_PA_DEBUG_MODE = 'Y' THEN
5360: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5361: END IF;
5362: pa_debug.g_err_stage := 'l_target_project_id = '||l_target_project_id;
5363: IF P_PA_DEBUG_MODE = 'Y' THEN
5364: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5365: END IF;
5366: */
5367: INSERT INTO PA_PROJ_PERIODS_DENORM(
5360: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5361: END IF;
5362: pa_debug.g_err_stage := 'l_target_project_id = '||l_target_project_id;
5363: IF P_PA_DEBUG_MODE = 'Y' THEN
5364: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5365: END IF;
5366: */
5367: INSERT INTO PA_PROJ_PERIODS_DENORM(
5368: budget_version_id
5522: AND pppd.resource_assignment_id = pfrmt.source_res_assignment_id
5523: AND pppd.object_type_code = PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT
5524: AND pppd.amount_type_code <> l_ignore_amount_type;
5525:
5526: IF P_PA_DEBUG_MODE = 'Y' THEN
5527: pa_debug.g_err_stage:='Exiting Copy_Periods_Denorm';
5528: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5529: pa_debug.reset_err_stack; --bug:- 2815593
5530: END IF;
5523: AND pppd.object_type_code = PA_FP_CONSTANTS_PKG.G_OBJECT_TYPE_RES_ASSIGNMENT
5524: AND pppd.amount_type_code <> l_ignore_amount_type;
5525:
5526: IF P_PA_DEBUG_MODE = 'Y' THEN
5527: pa_debug.g_err_stage:='Exiting Copy_Periods_Denorm';
5528: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5529: pa_debug.reset_err_stack; --bug:- 2815593
5530: END IF;
5531: EXCEPTION
5524: AND pppd.amount_type_code <> l_ignore_amount_type;
5525:
5526: IF P_PA_DEBUG_MODE = 'Y' THEN
5527: pa_debug.g_err_stage:='Exiting Copy_Periods_Denorm';
5528: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5529: pa_debug.reset_err_stack; --bug:- 2815593
5530: END IF;
5531: EXCEPTION
5532:
5525:
5526: IF P_PA_DEBUG_MODE = 'Y' THEN
5527: pa_debug.g_err_stage:='Exiting Copy_Periods_Denorm';
5528: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
5529: pa_debug.reset_err_stack; --bug:- 2815593
5530: END IF;
5531: EXCEPTION
5532:
5533: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5546: x_msg_count := l_msg_count;
5547: END IF;
5548: x_return_status := FND_API.G_RET_STS_ERROR;
5549:
5550: IF P_PA_DEBUG_MODE = 'Y' THEN
5551: pa_debug.g_err_stage:='Invalid arguments passed';
5552: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5553: pa_debug.reset_err_stack;
5554: END IF;
5547: END IF;
5548: x_return_status := FND_API.G_RET_STS_ERROR;
5549:
5550: IF P_PA_DEBUG_MODE = 'Y' THEN
5551: pa_debug.g_err_stage:='Invalid arguments passed';
5552: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5553: pa_debug.reset_err_stack;
5554: END IF;
5555: RAISE;
5548: x_return_status := FND_API.G_RET_STS_ERROR;
5549:
5550: IF P_PA_DEBUG_MODE = 'Y' THEN
5551: pa_debug.g_err_stage:='Invalid arguments passed';
5552: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5553: pa_debug.reset_err_stack;
5554: END IF;
5555: RAISE;
5556:
5549:
5550: IF P_PA_DEBUG_MODE = 'Y' THEN
5551: pa_debug.g_err_stage:='Invalid arguments passed';
5552: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
5553: pa_debug.reset_err_stack;
5554: END IF;
5555: RAISE;
5556:
5557: WHEN Others THEN
5560: x_msg_data := SQLERRM;
5561: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
5562: ,p_procedure_name => 'Copy_Periods_Denorm');
5563:
5564: IF P_PA_DEBUG_MODE = 'Y' THEN
5565: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5566: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5567: pa_debug.reset_err_stack;
5568: END IF;
5561: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
5562: ,p_procedure_name => 'Copy_Periods_Denorm');
5563:
5564: IF P_PA_DEBUG_MODE = 'Y' THEN
5565: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5566: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5567: pa_debug.reset_err_stack;
5568: END IF;
5569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5562: ,p_procedure_name => 'Copy_Periods_Denorm');
5563:
5564: IF P_PA_DEBUG_MODE = 'Y' THEN
5565: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5566: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5567: pa_debug.reset_err_stack;
5568: END IF;
5569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5570:
5563:
5564: IF P_PA_DEBUG_MODE = 'Y' THEN
5565: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
5566: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
5567: pa_debug.reset_err_stack;
5568: END IF;
5569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5570:
5571: END Copy_Periods_Denorm;
6077: FND_MSG_PUB.INITIALIZE;
6078: x_msg_count := 0;
6079: x_return_status := FND_API.G_RET_STS_SUCCESS;
6080:
6081: IF P_PA_DEBUG_MODE = 'Y' THEN
6082: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Finplans_From_Project');
6083: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6084: -- Check if source project id is NULL,if so throw an error message
6085: pa_debug.g_err_stage := 'Checking for valid parameters:';
6078: x_msg_count := 0;
6079: x_return_status := FND_API.G_RET_STS_SUCCESS;
6080:
6081: IF P_PA_DEBUG_MODE = 'Y' THEN
6082: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Finplans_From_Project');
6083: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6084: -- Check if source project id is NULL,if so throw an error message
6085: pa_debug.g_err_stage := 'Checking for valid parameters:';
6086: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6079: x_return_status := FND_API.G_RET_STS_SUCCESS;
6080:
6081: IF P_PA_DEBUG_MODE = 'Y' THEN
6082: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Finplans_From_Project');
6083: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6084: -- Check if source project id is NULL,if so throw an error message
6085: pa_debug.g_err_stage := 'Checking for valid parameters:';
6086: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6087: END IF;
6081: IF P_PA_DEBUG_MODE = 'Y' THEN
6082: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Finplans_From_Project');
6083: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6084: -- Check if source project id is NULL,if so throw an error message
6085: pa_debug.g_err_stage := 'Checking for valid parameters:';
6086: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6087: END IF;
6088:
6089: IF (p_source_project_id IS NULL) OR
6082: pa_debug.init_err_stack('PA_FP_COPY_FROM_PKG.Copy_Finplans_From_Project');
6083: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6084: -- Check if source project id is NULL,if so throw an error message
6085: pa_debug.g_err_stage := 'Checking for valid parameters:';
6086: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6087: END IF;
6088:
6089: IF (p_source_project_id IS NULL) OR
6090: (p_target_project_id IS NULL) OR
6090: (p_target_project_id IS NULL) OR
6091: (p_copy_version_and_elements IS NULL)
6092: THEN
6093:
6094: IF P_PA_DEBUG_MODE = 'Y' THEN
6095: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6096: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6097: pa_debug.g_err_stage := 'Target_project='||p_target_project_id;
6098: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6091: (p_copy_version_and_elements IS NULL)
6092: THEN
6093:
6094: IF P_PA_DEBUG_MODE = 'Y' THEN
6095: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6096: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6097: pa_debug.g_err_stage := 'Target_project='||p_target_project_id;
6098: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6099: pa_debug.g_err_stage := 'p_copy_version_and_elements='||p_copy_version_and_elements;
6092: THEN
6093:
6094: IF P_PA_DEBUG_MODE = 'Y' THEN
6095: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6096: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6097: pa_debug.g_err_stage := 'Target_project='||p_target_project_id;
6098: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6099: pa_debug.g_err_stage := 'p_copy_version_and_elements='||p_copy_version_and_elements;
6100: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6093:
6094: IF P_PA_DEBUG_MODE = 'Y' THEN
6095: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6096: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6097: pa_debug.g_err_stage := 'Target_project='||p_target_project_id;
6098: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6099: pa_debug.g_err_stage := 'p_copy_version_and_elements='||p_copy_version_and_elements;
6100: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6101: END IF;
6094: IF P_PA_DEBUG_MODE = 'Y' THEN
6095: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6096: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6097: pa_debug.g_err_stage := 'Target_project='||p_target_project_id;
6098: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6099: pa_debug.g_err_stage := 'p_copy_version_and_elements='||p_copy_version_and_elements;
6100: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6101: END IF;
6102:
6095: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6096: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6097: pa_debug.g_err_stage := 'Target_project='||p_target_project_id;
6098: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6099: pa_debug.g_err_stage := 'p_copy_version_and_elements='||p_copy_version_and_elements;
6100: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6101: END IF;
6102:
6103: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6096: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6097: pa_debug.g_err_stage := 'Target_project='||p_target_project_id;
6098: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6099: pa_debug.g_err_stage := 'p_copy_version_and_elements='||p_copy_version_and_elements;
6100: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6101: END IF;
6102:
6103: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6104: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
6107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6108:
6109: END IF;
6110:
6111: IF P_PA_DEBUG_MODE = 'Y' THEN
6112: pa_debug.g_err_stage := 'Parameter validation complete';
6113: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6114: END IF;
6115:
6108:
6109: END IF;
6110:
6111: IF P_PA_DEBUG_MODE = 'Y' THEN
6112: pa_debug.g_err_stage := 'Parameter validation complete';
6113: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6114: END IF;
6115:
6116: --IF shift_days i/p is NULL then make it zero.
6109: END IF;
6110:
6111: IF P_PA_DEBUG_MODE = 'Y' THEN
6112: pa_debug.g_err_stage := 'Parameter validation complete';
6113: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6114: END IF;
6115:
6116: --IF shift_days i/p is NULL then make it zero.
6117:
6121: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id => p_target_project_id );
6122:
6123: --Checking if source project is template
6124:
6125: IF P_PA_DEBUG_MODE = 'Y' THEN
6126: pa_debug.g_err_stage := 'Fetching source project template flag';
6127: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6128: END IF;
6129:
6122:
6123: --Checking if source project is template
6124:
6125: IF P_PA_DEBUG_MODE = 'Y' THEN
6126: pa_debug.g_err_stage := 'Fetching source project template flag';
6127: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6128: END IF;
6129:
6130: SELECT template_flag
6123: --Checking if source project is template
6124:
6125: IF P_PA_DEBUG_MODE = 'Y' THEN
6126: pa_debug.g_err_stage := 'Fetching source project template flag';
6127: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6128: END IF;
6129:
6130: SELECT template_flag
6131: INTO l_source_template_flag
6134:
6135: --Fetch project_level_funding_flag for target project to
6136: --baseline it or not
6137:
6138: IF P_PA_DEBUG_MODE = 'Y' THEN
6139: pa_debug.g_err_stage := 'Fetching target funding flag';
6140: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6141: END IF;
6142:
6135: --Fetch project_level_funding_flag for target project to
6136: --baseline it or not
6137:
6138: IF P_PA_DEBUG_MODE = 'Y' THEN
6139: pa_debug.g_err_stage := 'Fetching target funding flag';
6140: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6141: END IF;
6142:
6143: /* 2616032: Modified the way the project level funding flag is got.
6136: --baseline it or not
6137:
6138: IF P_PA_DEBUG_MODE = 'Y' THEN
6139: pa_debug.g_err_stage := 'Fetching target funding flag';
6140: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6141: END IF;
6142:
6143: /* 2616032: Modified the way the project level funding flag is got.
6144: This flag indicates if funding exists for the Target Project. */
6179: IF l_err_code <> 0 THEN
6180:
6181: /* Bug# 2636723 - Error messages printed and "Raised" and not "Returned" */
6182:
6183: IF P_PA_DEBUG_MODE = 'Y' THEN
6184: pa_debug.g_err_stage := 'Err code returned by copy_budgets_from_project api is ' || TO_CHAR(l_err_code);
6185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6186: pa_debug.g_err_stage := 'Err stage returned by copy_budgets_from_project api is ' || l_err_stage;
6187: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6180:
6181: /* Bug# 2636723 - Error messages printed and "Raised" and not "Returned" */
6182:
6183: IF P_PA_DEBUG_MODE = 'Y' THEN
6184: pa_debug.g_err_stage := 'Err code returned by copy_budgets_from_project api is ' || TO_CHAR(l_err_code);
6185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6186: pa_debug.g_err_stage := 'Err stage returned by copy_budgets_from_project api is ' || l_err_stage;
6187: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6188: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6181: /* Bug# 2636723 - Error messages printed and "Raised" and not "Returned" */
6182:
6183: IF P_PA_DEBUG_MODE = 'Y' THEN
6184: pa_debug.g_err_stage := 'Err code returned by copy_budgets_from_project api is ' || TO_CHAR(l_err_code);
6185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6186: pa_debug.g_err_stage := 'Err stage returned by copy_budgets_from_project api is ' || l_err_stage;
6187: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6188: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6189: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6182:
6183: IF P_PA_DEBUG_MODE = 'Y' THEN
6184: pa_debug.g_err_stage := 'Err code returned by copy_budgets_from_project api is ' || TO_CHAR(l_err_code);
6185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6186: pa_debug.g_err_stage := 'Err stage returned by copy_budgets_from_project api is ' || l_err_stage;
6187: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6188: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6189: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6190: END IF;
6183: IF P_PA_DEBUG_MODE = 'Y' THEN
6184: pa_debug.g_err_stage := 'Err code returned by copy_budgets_from_project api is ' || TO_CHAR(l_err_code);
6185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6186: pa_debug.g_err_stage := 'Err stage returned by copy_budgets_from_project api is ' || l_err_stage;
6187: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6188: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6189: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6190: END IF;
6191:
6184: pa_debug.g_err_stage := 'Err code returned by copy_budgets_from_project api is ' || TO_CHAR(l_err_code);
6185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6186: pa_debug.g_err_stage := 'Err stage returned by copy_budgets_from_project api is ' || l_err_stage;
6187: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6188: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6189: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6190: END IF;
6191:
6192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6185: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6186: pa_debug.g_err_stage := 'Err stage returned by copy_budgets_from_project api is ' || l_err_stage;
6187: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6188: pa_debug.g_err_stage := 'Err stack returned by copy_budgets_from_project api is ' || l_err_stack;
6189: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6190: END IF;
6191:
6192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6193:
6201: --Fetch all the fp options ids to be copied from source project to
6202: --target into a plsql table.
6203: --For this call get_fp_options_to_be_copied api.
6204:
6205: IF P_PA_DEBUG_MODE = 'Y' THEN
6206: pa_debug.g_err_stage := 'Calling Get_Fp_Options_To_Be_Copied api';
6207: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6208: END IF;
6209:
6202: --target into a plsql table.
6203: --For this call get_fp_options_to_be_copied api.
6204:
6205: IF P_PA_DEBUG_MODE = 'Y' THEN
6206: pa_debug.g_err_stage := 'Calling Get_Fp_Options_To_Be_Copied api';
6207: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6208: END IF;
6209:
6210: PA_FP_COPY_FROM_PKG.Get_Fp_Options_To_Be_Copied(
6203: --For this call get_fp_options_to_be_copied api.
6204:
6205: IF P_PA_DEBUG_MODE = 'Y' THEN
6206: pa_debug.g_err_stage := 'Calling Get_Fp_Options_To_Be_Copied api';
6207: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6208: END IF;
6209:
6210: PA_FP_COPY_FROM_PKG.Get_Fp_Options_To_Be_Copied(
6211: p_source_project_id => p_source_project_id
6232: l_target_proj_fp_options_id := NULL;
6233:
6234: --Fetch option level code of the options_id
6235:
6236: IF P_PA_DEBUG_MODE = 'Y' THEN
6237: pa_debug.g_err_stage := 'Fetching option level code ';
6238: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6239: END IF;
6240:
6233:
6234: --Fetch option level code of the options_id
6235:
6236: IF P_PA_DEBUG_MODE = 'Y' THEN
6237: pa_debug.g_err_stage := 'Fetching option level code ';
6238: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6239: END IF;
6240:
6241: SELECT fin_plan_option_level_code
6234: --Fetch option level code of the options_id
6235:
6236: IF P_PA_DEBUG_MODE = 'Y' THEN
6237: pa_debug.g_err_stage := 'Fetching option level code ';
6238: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6239: END IF;
6240:
6241: SELECT fin_plan_option_level_code
6242: ,fin_plan_version_id
6250: ,l_plan_in_multi_curr_flag
6251: FROM pa_proj_fp_options
6252: WHERE proj_fp_options_id = l_proj_fp_options_id_tbl(l_index);
6253:
6254: IF P_PA_DEBUG_MODE = 'Y' THEN
6255: pa_debug.g_err_stage := 'Option level code = '||l_fp_option_level_code;
6256: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6257: END IF;
6258:
6251: FROM pa_proj_fp_options
6252: WHERE proj_fp_options_id = l_proj_fp_options_id_tbl(l_index);
6253:
6254: IF P_PA_DEBUG_MODE = 'Y' THEN
6255: pa_debug.g_err_stage := 'Option level code = '||l_fp_option_level_code;
6256: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6257: END IF;
6258:
6259:
6252: WHERE proj_fp_options_id = l_proj_fp_options_id_tbl(l_index);
6253:
6254: IF P_PA_DEBUG_MODE = 'Y' THEN
6255: pa_debug.g_err_stage := 'Option level code = '||l_fp_option_level_code;
6256: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6257: END IF;
6258:
6259:
6260: --Copy the budget version if option level code is plan version
6273: ( NVL(p_agreement_amount,-1) < 0 and NVL(l_baseline_funding_flag,'N') = 'N' )
6274: THEN
6275: /* Code addition for Bug 2986930 ends */
6276:
6277: IF P_PA_DEBUG_MODE = 'Y' THEN
6278: pa_debug.g_err_stage := 'Calling Copy_Budget_Version';
6279: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6280: END IF;
6281:
6274: THEN
6275: /* Code addition for Bug 2986930 ends */
6276:
6277: IF P_PA_DEBUG_MODE = 'Y' THEN
6278: pa_debug.g_err_stage := 'Calling Copy_Budget_Version';
6279: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6280: END IF;
6281:
6282: l_target_version_id := NULL;
6275: /* Code addition for Bug 2986930 ends */
6276:
6277: IF P_PA_DEBUG_MODE = 'Y' THEN
6278: pa_debug.g_err_stage := 'Calling Copy_Budget_Version';
6279: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6280: END IF;
6281:
6282: l_target_version_id := NULL;
6283:
6294: ,x_return_status => l_return_status
6295: ,x_msg_count => l_msg_count
6296: ,x_msg_data => l_msg_data );
6297:
6298: IF P_PA_DEBUG_MODE = 'Y' THEN
6299: pa_debug.g_err_stage := 'l_target_version_id = '||l_target_version_id;
6300: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6301: END IF;
6302:
6295: ,x_msg_count => l_msg_count
6296: ,x_msg_data => l_msg_data );
6297:
6298: IF P_PA_DEBUG_MODE = 'Y' THEN
6299: pa_debug.g_err_stage := 'l_target_version_id = '||l_target_version_id;
6300: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6301: END IF;
6302:
6303: END IF;/* Added for bug 2986930 */
6296: ,x_msg_data => l_msg_data );
6297:
6298: IF P_PA_DEBUG_MODE = 'Y' THEN
6299: pa_debug.g_err_stage := 'l_target_version_id = '||l_target_version_id;
6300: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6301: END IF;
6302:
6303: END IF;/* Added for bug 2986930 */
6304: END IF;
6305:
6306: IF l_fp_option_level_code <> PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6307: --Create equivalent fp option in pa_proj_fp_options for target
6308:
6309: IF P_PA_DEBUG_MODE = 'Y' THEN
6310: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6311: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6312: END IF;
6313:
6306: IF l_fp_option_level_code <> PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION THEN
6307: --Create equivalent fp option in pa_proj_fp_options for target
6308:
6309: IF P_PA_DEBUG_MODE = 'Y' THEN
6310: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6311: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6312: END IF;
6313:
6314: PA_PROJ_FP_OPTIONS_PUB.Create_Fp_Option (
6307: --Create equivalent fp option in pa_proj_fp_options for target
6308:
6309: IF P_PA_DEBUG_MODE = 'Y' THEN
6310: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6311: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6312: END IF;
6313:
6314: PA_PROJ_FP_OPTIONS_PUB.Create_Fp_Option (
6315: px_target_proj_fp_option_id => l_target_proj_fp_options_id
6322: ,x_return_status => l_return_status
6323: ,x_msg_count => l_msg_count
6324: ,x_msg_data => l_msg_data);
6325:
6326: IF P_PA_DEBUG_MODE = 'Y' THEN
6327: pa_debug.g_err_stage := 'Calling Copy_Fp_Txn_Currencies api';
6328: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6329: END IF;
6330:
6323: ,x_msg_count => l_msg_count
6324: ,x_msg_data => l_msg_data);
6325:
6326: IF P_PA_DEBUG_MODE = 'Y' THEN
6327: pa_debug.g_err_stage := 'Calling Copy_Fp_Txn_Currencies api';
6328: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6329: END IF;
6330:
6331: PA_FP_TXN_CURRENCIES_PUB.Copy_Fp_Txn_Currencies(
6324: ,x_msg_data => l_msg_data);
6325:
6326: IF P_PA_DEBUG_MODE = 'Y' THEN
6327: pa_debug.g_err_stage := 'Calling Copy_Fp_Txn_Currencies api';
6328: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6329: END IF;
6330:
6331: PA_FP_TXN_CURRENCIES_PUB.Copy_Fp_Txn_Currencies(
6332: p_source_fp_option_id => l_proj_fp_options_id_tbl(l_index)
6347: THEN
6348: /* Code addition for Bug 2986930 ends */
6349: --Create equivalent fp option in pa_proj_fp_options for target
6350:
6351: IF P_PA_DEBUG_MODE = 'Y' THEN
6352: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6353: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6354: END IF;
6355:
6348: /* Code addition for Bug 2986930 ends */
6349: --Create equivalent fp option in pa_proj_fp_options for target
6350:
6351: IF P_PA_DEBUG_MODE = 'Y' THEN
6352: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6353: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6354: END IF;
6355:
6356: PA_PROJ_FP_OPTIONS_PUB.Create_Fp_Option (
6349: --Create equivalent fp option in pa_proj_fp_options for target
6350:
6351: IF P_PA_DEBUG_MODE = 'Y' THEN
6352: pa_debug.g_err_stage := 'Calling Create_Fp_Option';
6353: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6354: END IF;
6355:
6356: PA_PROJ_FP_OPTIONS_PUB.Create_Fp_Option (
6357: px_target_proj_fp_option_id => l_target_proj_fp_options_id
6365: ,x_msg_count => l_msg_count
6366: ,x_msg_data => l_msg_data);
6367:
6368: -- Call copy fp txn currencies api unconditionally
6369: IF P_PA_DEBUG_MODE = 'Y' THEN
6370: pa_debug.g_err_stage := 'Calling Copy_Fp_Txn_Currencies api';
6371: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6372: END IF;
6373:
6366: ,x_msg_data => l_msg_data);
6367:
6368: -- Call copy fp txn currencies api unconditionally
6369: IF P_PA_DEBUG_MODE = 'Y' THEN
6370: pa_debug.g_err_stage := 'Calling Copy_Fp_Txn_Currencies api';
6371: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6372: END IF;
6373:
6374: PA_FP_TXN_CURRENCIES_PUB.Copy_Fp_Txn_Currencies(
6367:
6368: -- Call copy fp txn currencies api unconditionally
6369: IF P_PA_DEBUG_MODE = 'Y' THEN
6370: pa_debug.g_err_stage := 'Calling Copy_Fp_Txn_Currencies api';
6371: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6372: END IF;
6373:
6374: PA_FP_TXN_CURRENCIES_PUB.Copy_Fp_Txn_Currencies(
6375: p_source_fp_option_id => l_proj_fp_options_id_tbl(l_index)
6382:
6383:
6384: --Copy resource assignments for the target plan version
6385:
6386: IF P_PA_DEBUG_MODE = 'Y' THEN
6387: pa_debug.g_err_stage := 'Calling Copy_Resource_Assignments';
6388: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6389: END IF;
6390:
6383:
6384: --Copy resource assignments for the target plan version
6385:
6386: IF P_PA_DEBUG_MODE = 'Y' THEN
6387: pa_debug.g_err_stage := 'Calling Copy_Resource_Assignments';
6388: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6389: END IF;
6390:
6391: PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments(
6384: --Copy resource assignments for the target plan version
6385:
6386: IF P_PA_DEBUG_MODE = 'Y' THEN
6387: pa_debug.g_err_stage := 'Calling Copy_Resource_Assignments';
6388: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6389: END IF;
6390:
6391: PA_FP_COPY_FROM_PKG.Copy_Resource_Assignments(
6392: p_source_plan_version_id => l_source_version_id
6396: ,x_msg_count => l_msg_count
6397: ,x_msg_data => l_msg_data);
6398:
6399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6400: IF P_PA_DEBUG_MODE = 'Y' THEN
6401: pa_debug.write(g_module_name,' Return status from copy RA api is ' || l_Return_Status,3);
6402: END IF;
6403: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6404: END IF;
6397: ,x_msg_data => l_msg_data);
6398:
6399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6400: IF P_PA_DEBUG_MODE = 'Y' THEN
6401: pa_debug.write(g_module_name,' Return status from copy RA api is ' || l_Return_Status,3);
6402: END IF;
6403: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6404: END IF;
6405:
6404: END IF;
6405:
6406: -- Copying budget_lines from source to target
6407:
6408: IF P_PA_DEBUG_MODE = 'Y' THEN
6409: pa_debug.g_err_stage := 'Calling Copy_Budget_Lines';
6410: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6411: END IF;
6412:
6405:
6406: -- Copying budget_lines from source to target
6407:
6408: IF P_PA_DEBUG_MODE = 'Y' THEN
6409: pa_debug.g_err_stage := 'Calling Copy_Budget_Lines';
6410: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6411: END IF;
6412:
6413: PA_FP_COPY_FROM_PKG.Copy_Budget_Lines(
6406: -- Copying budget_lines from source to target
6407:
6408: IF P_PA_DEBUG_MODE = 'Y' THEN
6409: pa_debug.g_err_stage := 'Calling Copy_Budget_Lines';
6410: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6411: END IF;
6412:
6413: PA_FP_COPY_FROM_PKG.Copy_Budget_Lines(
6414: p_source_project_id => p_source_project_id
6420: ,x_msg_count => l_msg_count
6421: ,x_msg_data => l_msg_data );
6422:
6423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424: IF P_PA_DEBUG_MODE = 'Y' THEN
6425: pa_debug.write(g_module_name,' Return status from copy bl api is ' || l_Return_Status,3);
6426: END IF;
6427: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6428: END IF;
6421: ,x_msg_data => l_msg_data );
6422:
6423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6424: IF P_PA_DEBUG_MODE = 'Y' THEN
6425: pa_debug.write(g_module_name,' Return status from copy bl api is ' || l_Return_Status,3);
6426: END IF;
6427: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6428: END IF;
6429:
6429:
6430: --Calling Convert_Txn_Currency api to complete budget lines
6431: --in all respects
6432:
6433: IF P_PA_DEBUG_MODE = 'Y' THEN
6434: pa_debug.g_err_stage := 'Calling Convert_Txn_Currency';
6435: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6436: END IF;
6437:
6430: --Calling Convert_Txn_Currency api to complete budget lines
6431: --in all respects
6432:
6433: IF P_PA_DEBUG_MODE = 'Y' THEN
6434: pa_debug.g_err_stage := 'Calling Convert_Txn_Currency';
6435: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6436: END IF;
6437:
6438: PA_FP_MULTI_CURRENCY_PKG.Convert_Txn_Currency(
6431: --in all respects
6432:
6433: IF P_PA_DEBUG_MODE = 'Y' THEN
6434: pa_debug.g_err_stage := 'Calling Convert_Txn_Currency';
6435: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6436: END IF;
6437:
6438: PA_FP_MULTI_CURRENCY_PKG.Convert_Txn_Currency(
6439: p_budget_version_id => l_target_version_id
6449: -- Bug Fix: 4569365. Removed MRC code.
6450: -- FPB2: MRC - Calling MRC APIs
6451: /*
6452:
6453: IF P_PA_DEBUG_MODE = 'Y' THEN
6454: pa_debug.g_err_stage:='Calling mrc api ........ ';
6455: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6456: END IF;
6457:
6450: -- FPB2: MRC - Calling MRC APIs
6451: /*
6452:
6453: IF P_PA_DEBUG_MODE = 'Y' THEN
6454: pa_debug.g_err_stage:='Calling mrc api ........ ';
6455: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6456: END IF;
6457:
6458: IF PA_MRC_FINPLAN. g_mrc_enabled_for_budgets IS NULL THEN
6451: /*
6452:
6453: IF P_PA_DEBUG_MODE = 'Y' THEN
6454: pa_debug.g_err_stage:='Calling mrc api ........ ';
6455: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6456: END IF;
6457:
6458: IF PA_MRC_FINPLAN. g_mrc_enabled_for_budgets IS NULL THEN
6459: PA_MRC_FINPLAN.check_mrc_install
6484:
6485: --Calling copy_attachments api
6486: --Copy all the source version attachments to target version
6487:
6488: IF P_PA_DEBUG_MODE = 'Y' THEN
6489: pa_debug.g_err_stage := 'Calling Copy_Attachments api';
6490: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6491: END IF;
6492:
6485: --Calling copy_attachments api
6486: --Copy all the source version attachments to target version
6487:
6488: IF P_PA_DEBUG_MODE = 'Y' THEN
6489: pa_debug.g_err_stage := 'Calling Copy_Attachments api';
6490: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6491: END IF;
6492:
6493: /* BUG FIX 2955827
6486: --Copy all the source version attachments to target version
6487:
6488: IF P_PA_DEBUG_MODE = 'Y' THEN
6489: pa_debug.g_err_stage := 'Calling Copy_Attachments api';
6490: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6491: END IF;
6492:
6493: /* BUG FIX 2955827
6494: * copy_attachments is already done in PA_FP_COPY_FROM_PKG.Copy_Budget_Version
6522: X_MSG_COUNT => l_msg_count,
6523: X_MSG_DATA => l_msg_data);
6524:
6525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6526: IF P_PA_debug_mode = 'Y' THEN
6527: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
6528: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6529: END IF;
6530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6523: X_MSG_DATA => l_msg_data);
6524:
6525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6526: IF P_PA_debug_mode = 'Y' THEN
6527: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
6528: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6529: END IF;
6530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6531: END IF;
6524:
6525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6526: IF P_PA_debug_mode = 'Y' THEN
6527: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
6528: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6529: END IF;
6530: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6531: END IF;
6532:
6537: p_use_temp_table_flag => 'N',
6538: x_return_status => l_return_status);
6539:
6540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6541: IF P_PA_debug_mode = 'Y' THEN
6542: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
6543: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6544: END IF;
6545: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6538: x_return_status => l_return_status);
6539:
6540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6541: IF P_PA_debug_mode = 'Y' THEN
6542: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
6543: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6544: END IF;
6545: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6546: END IF;
6539:
6540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6541: IF P_PA_debug_mode = 'Y' THEN
6542: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
6543: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6544: END IF;
6545: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6546: END IF;
6547:
6586: x_msg_data => l_msg_count,
6587: x_msg_count => l_msg_data);
6588:
6589: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6590: IF P_PA_debug_mode = 'Y' THEN
6591: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA while doing the rollup';
6592: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6593: END IF;
6594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6587: x_msg_count => l_msg_data);
6588:
6589: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6590: IF P_PA_debug_mode = 'Y' THEN
6591: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA while doing the rollup';
6592: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6593: END IF;
6594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6595: END IF;
6588:
6589: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6590: IF P_PA_debug_mode = 'Y' THEN
6591: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA while doing the rollup';
6592: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
6593: END IF;
6594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6595: END IF;
6596:
6597:
6598: --IPM Architechture Enhancement Bug 4865563 - End
6599:
6600: -- Rollup the budget version
6601: IF P_PA_DEBUG_MODE = 'Y' THEN
6602: pa_debug.g_err_stage := 'Calling Rollup_budget_version api';
6603: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6604: END IF;
6605:
6598: --IPM Architechture Enhancement Bug 4865563 - End
6599:
6600: -- Rollup the budget version
6601: IF P_PA_DEBUG_MODE = 'Y' THEN
6602: pa_debug.g_err_stage := 'Calling Rollup_budget_version api';
6603: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6604: END IF;
6605:
6606:
6599:
6600: -- Rollup the budget version
6601: IF P_PA_DEBUG_MODE = 'Y' THEN
6602: pa_debug.g_err_stage := 'Calling Rollup_budget_version api';
6603: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6604: END IF;
6605:
6606:
6607: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION(
6614: /* FP M - Reporting lines integration */
6615: l_budget_version_ids.delete;
6616: l_budget_version_ids := SYSTEM.pa_num_tbl_type(l_target_version_id);
6617:
6618: IF P_PA_DEBUG_MODE = 'Y' THEN
6619: pa_debug.write('Copy_Finplans_From_Project','Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE ' ,5);
6620: pa_debug.write('Copy_Finplans_From_Project','p_fp_version_ids count '|| l_budget_version_ids.count(),5);
6621: END IF;
6622:
6615: l_budget_version_ids.delete;
6616: l_budget_version_ids := SYSTEM.pa_num_tbl_type(l_target_version_id);
6617:
6618: IF P_PA_DEBUG_MODE = 'Y' THEN
6619: pa_debug.write('Copy_Finplans_From_Project','Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE ' ,5);
6620: pa_debug.write('Copy_Finplans_From_Project','p_fp_version_ids count '|| l_budget_version_ids.count(),5);
6621: END IF;
6622:
6623: /* We are sure that there is only one record. But just looping the std way */
6616: l_budget_version_ids := SYSTEM.pa_num_tbl_type(l_target_version_id);
6617:
6618: IF P_PA_DEBUG_MODE = 'Y' THEN
6619: pa_debug.write('Copy_Finplans_From_Project','Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE ' ,5);
6620: pa_debug.write('Copy_Finplans_From_Project','p_fp_version_ids count '|| l_budget_version_ids.count(),5);
6621: END IF;
6622:
6623: /* We are sure that there is only one record. But just looping the std way */
6624: FOR I in l_budget_version_ids.first..l_budget_version_ids.last LOOP
6621: END IF;
6622:
6623: /* We are sure that there is only one record. But just looping the std way */
6624: FOR I in l_budget_version_ids.first..l_budget_version_ids.last LOOP
6625: IF P_PA_DEBUG_MODE = 'Y' THEN
6626: pa_debug.write('Copy_Finplans_From_Project',''|| l_budget_version_ids(i),5);
6627: END IF;
6628: END LOOP;
6629:
6622:
6623: /* We are sure that there is only one record. But just looping the std way */
6624: FOR I in l_budget_version_ids.first..l_budget_version_ids.last LOOP
6625: IF P_PA_DEBUG_MODE = 'Y' THEN
6626: pa_debug.write('Copy_Finplans_From_Project',''|| l_budget_version_ids(i),5);
6627: END IF;
6628: END LOOP;
6629:
6630: l_src_budget_version_id_tbl.delete;
6663:
6664: --Fetch current_flag of source plan version to check if
6665: --source version is baselined
6666:
6667: IF P_PA_DEBUG_MODE = 'Y' THEN
6668: pa_debug.g_err_stage := 'Fetching source version details';
6669: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6670: END IF;
6671:
6664: --Fetch current_flag of source plan version to check if
6665: --source version is baselined
6666:
6667: IF P_PA_DEBUG_MODE = 'Y' THEN
6668: pa_debug.g_err_stage := 'Fetching source version details';
6669: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6670: END IF;
6671:
6672: SELECT current_flag
6665: --source version is baselined
6666:
6667: IF P_PA_DEBUG_MODE = 'Y' THEN
6668: pa_debug.g_err_stage := 'Fetching source version details';
6669: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6670: END IF;
6671:
6672: SELECT current_flag
6673: ,record_version_number
6677: WHERE budget_version_id = l_source_version_id;
6678:
6679: --Fetch target version properties for the api calls
6680:
6681: IF P_PA_DEBUG_MODE = 'Y' THEN
6682: pa_debug.g_err_stage := 'Fetching target version details';
6683: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6684: END IF;
6685:
6678:
6679: --Fetch target version properties for the api calls
6680:
6681: IF P_PA_DEBUG_MODE = 'Y' THEN
6682: pa_debug.g_err_stage := 'Fetching target version details';
6683: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6684: END IF;
6685:
6686: SELECT record_version_number
6679: --Fetch target version properties for the api calls
6680:
6681: IF P_PA_DEBUG_MODE = 'Y' THEN
6682: pa_debug.g_err_stage := 'Fetching target version details';
6683: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6684: END IF;
6685:
6686: SELECT record_version_number
6687: ,version_type
6699: THEN
6700:
6701: --submit and baseline the the plan version
6702:
6703: IF P_PA_DEBUG_MODE = 'Y' THEN
6704: pa_debug.g_err_stage := 'Calling Set_Current_Working';
6705: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6706: END IF;
6707:
6700:
6701: --submit and baseline the the plan version
6702:
6703: IF P_PA_DEBUG_MODE = 'Y' THEN
6704: pa_debug.g_err_stage := 'Calling Set_Current_Working';
6705: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6706: END IF;
6707:
6708: PA_FIN_PLAN_PUB.Set_Current_Working(
6701: --submit and baseline the the plan version
6702:
6703: IF P_PA_DEBUG_MODE = 'Y' THEN
6704: pa_debug.g_err_stage := 'Calling Set_Current_Working';
6705: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6706: END IF;
6707:
6708: PA_FIN_PLAN_PUB.Set_Current_Working(
6709: p_project_id => p_target_project_id
6719: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6721: END IF;
6722:
6723: IF P_PA_DEBUG_MODE = 'Y' THEN
6724: pa_debug.g_err_stage := 'Calling Submit_Current_Working';
6725: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6726: END IF;
6727:
6720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6721: END IF;
6722:
6723: IF P_PA_DEBUG_MODE = 'Y' THEN
6724: pa_debug.g_err_stage := 'Calling Submit_Current_Working';
6725: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6726: END IF;
6727:
6728: --Bug 3964755. In copy project flow, the version need not be locked. Added the context parameter
6721: END IF;
6722:
6723: IF P_PA_DEBUG_MODE = 'Y' THEN
6724: pa_debug.g_err_stage := 'Calling Submit_Current_Working';
6725: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6726: END IF;
6727:
6728: --Bug 3964755. In copy project flow, the version need not be locked. Added the context parameter
6729: --to submit API to skip this check.
6740: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6741: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6742: END IF;
6743:
6744: IF P_PA_DEBUG_MODE = 'Y' THEN
6745: pa_debug.g_err_stage := 'Calling Baseline';
6746: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6747: END IF;
6748:
6741: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6742: END IF;
6743:
6744: IF P_PA_DEBUG_MODE = 'Y' THEN
6745: pa_debug.g_err_stage := 'Calling Baseline';
6746: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6747: END IF;
6748:
6749: -- Bug Fix: 4569365. Removed MRC code.
6742: END IF;
6743:
6744: IF P_PA_DEBUG_MODE = 'Y' THEN
6745: pa_debug.g_err_stage := 'Calling Baseline';
6746: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6747: END IF;
6748:
6749: -- Bug Fix: 4569365. Removed MRC code.
6750: -- PA_MRC_FINPLAN.G_CALLING_MODULE := PA_MRC_FINPLAN.G_COPY_PROJECTS; /* FPB2 */
6778: END LOOP; -- l_proj_fp_options_id_tbl
6779:
6780: END IF; --Bug :- 2570874
6781:
6782: IF P_PA_DEBUG_MODE = 'Y' THEN
6783: pa_debug.g_err_stage := 'Exiting Copy_Finplans_From_Project';
6784: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6785: pa_debug.reset_err_stack;
6786: END IF;
6779:
6780: END IF; --Bug :- 2570874
6781:
6782: IF P_PA_DEBUG_MODE = 'Y' THEN
6783: pa_debug.g_err_stage := 'Exiting Copy_Finplans_From_Project';
6784: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6785: pa_debug.reset_err_stack;
6786: END IF;
6787: EXCEPTION
6780: END IF; --Bug :- 2570874
6781:
6782: IF P_PA_DEBUG_MODE = 'Y' THEN
6783: pa_debug.g_err_stage := 'Exiting Copy_Finplans_From_Project';
6784: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6785: pa_debug.reset_err_stack;
6786: END IF;
6787: EXCEPTION
6788:
6781:
6782: IF P_PA_DEBUG_MODE = 'Y' THEN
6783: pa_debug.g_err_stage := 'Exiting Copy_Finplans_From_Project';
6784: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6785: pa_debug.reset_err_stack;
6786: END IF;
6787: EXCEPTION
6788:
6789: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6802: ELSE
6803: x_msg_count := l_msg_count;
6804: END IF;
6805:
6806: IF P_PA_DEBUG_MODE = 'Y' THEN
6807: pa_debug.g_err_stage:='Invalid Arguments Passed';
6808: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6809: pa_debug.reset_err_stack;
6810: END IF;
6803: x_msg_count := l_msg_count;
6804: END IF;
6805:
6806: IF P_PA_DEBUG_MODE = 'Y' THEN
6807: pa_debug.g_err_stage:='Invalid Arguments Passed';
6808: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6809: pa_debug.reset_err_stack;
6810: END IF;
6811: x_return_status:= FND_API.G_RET_STS_ERROR;
6804: END IF;
6805:
6806: IF P_PA_DEBUG_MODE = 'Y' THEN
6807: pa_debug.g_err_stage:='Invalid Arguments Passed';
6808: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6809: pa_debug.reset_err_stack;
6810: END IF;
6811: x_return_status:= FND_API.G_RET_STS_ERROR;
6812: -- bug#2753123
6805:
6806: IF P_PA_DEBUG_MODE = 'Y' THEN
6807: pa_debug.g_err_stage:='Invalid Arguments Passed';
6808: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6809: pa_debug.reset_err_stack;
6810: END IF;
6811: x_return_status:= FND_API.G_RET_STS_ERROR;
6812: -- bug#2753123
6813: IF l_err_stage is NOT NULL THEN
6826: x_msg_data := SQLERRM;
6827: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
6828: ,p_procedure_name => 'Copy_Finplans_From_Project');
6829:
6830: IF P_PA_DEBUG_MODE = 'Y' THEN
6831: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6832: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6833: pa_debug.reset_err_stack;
6834: END IF;
6827: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
6828: ,p_procedure_name => 'Copy_Finplans_From_Project');
6829:
6830: IF P_PA_DEBUG_MODE = 'Y' THEN
6831: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6832: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6833: pa_debug.reset_err_stack;
6834: END IF;
6835: -- Bug Fix: 4569365. Removed MRC code.
6828: ,p_procedure_name => 'Copy_Finplans_From_Project');
6829:
6830: IF P_PA_DEBUG_MODE = 'Y' THEN
6831: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6832: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6833: pa_debug.reset_err_stack;
6834: END IF;
6835: -- Bug Fix: 4569365. Removed MRC code.
6836:
6829:
6830: IF P_PA_DEBUG_MODE = 'Y' THEN
6831: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6832: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
6833: pa_debug.reset_err_stack;
6834: END IF;
6835: -- Bug Fix: 4569365. Removed MRC code.
6836:
6837: -- bug 3163280 ROLLBACK TO COPY_PROJECT;
6889:
6890: x_msg_count := 0;
6891: x_return_status := FND_API.G_RET_STS_SUCCESS;
6892:
6893: IF p_pa_debug_mode = 'Y' THEN
6894: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Get_Fp_Options_To_Be_Copied');
6895: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6896: END IF;
6897:
6890: x_msg_count := 0;
6891: x_return_status := FND_API.G_RET_STS_SUCCESS;
6892:
6893: IF p_pa_debug_mode = 'Y' THEN
6894: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Get_Fp_Options_To_Be_Copied');
6895: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6896: END IF;
6897:
6898: -- Check if source project id is NULL,if so throw an error message
6891: x_return_status := FND_API.G_RET_STS_SUCCESS;
6892:
6893: IF p_pa_debug_mode = 'Y' THEN
6894: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Get_Fp_Options_To_Be_Copied');
6895: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
6896: END IF;
6897:
6898: -- Check if source project id is NULL,if so throw an error message
6899:
6896: END IF;
6897:
6898: -- Check if source project id is NULL,if so throw an error message
6899:
6900: IF P_PA_DEBUG_MODE = 'Y' THEN
6901: pa_debug.g_err_stage := 'Checking for valid parameters:';
6902: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6903: END IF;
6904:
6897:
6898: -- Check if source project id is NULL,if so throw an error message
6899:
6900: IF P_PA_DEBUG_MODE = 'Y' THEN
6901: pa_debug.g_err_stage := 'Checking for valid parameters:';
6902: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6903: END IF;
6904:
6905: IF (p_source_project_id IS NULL) OR
6898: -- Check if source project id is NULL,if so throw an error message
6899:
6900: IF P_PA_DEBUG_MODE = 'Y' THEN
6901: pa_debug.g_err_stage := 'Checking for valid parameters:';
6902: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6903: END IF;
6904:
6905: IF (p_source_project_id IS NULL) OR
6906: (p_copy_versions IS NULL) THEN
6904:
6905: IF (p_source_project_id IS NULL) OR
6906: (p_copy_versions IS NULL) THEN
6907:
6908: IF P_PA_DEBUG_MODE = 'Y' THEN
6909: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6910: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6911: pa_debug.g_err_stage := 'p_copy_versions='||p_copy_versions;
6912: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6905: IF (p_source_project_id IS NULL) OR
6906: (p_copy_versions IS NULL) THEN
6907:
6908: IF P_PA_DEBUG_MODE = 'Y' THEN
6909: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6910: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6911: pa_debug.g_err_stage := 'p_copy_versions='||p_copy_versions;
6912: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6913: END IF;
6906: (p_copy_versions IS NULL) THEN
6907:
6908: IF P_PA_DEBUG_MODE = 'Y' THEN
6909: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6910: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6911: pa_debug.g_err_stage := 'p_copy_versions='||p_copy_versions;
6912: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6913: END IF;
6914: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6907:
6908: IF P_PA_DEBUG_MODE = 'Y' THEN
6909: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6910: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6911: pa_debug.g_err_stage := 'p_copy_versions='||p_copy_versions;
6912: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6913: END IF;
6914: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6915: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6908: IF P_PA_DEBUG_MODE = 'Y' THEN
6909: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
6910: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6911: pa_debug.g_err_stage := 'p_copy_versions='||p_copy_versions;
6912: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
6913: END IF;
6914: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
6915: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
6916: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6916: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6917:
6918: END IF;
6919:
6920: IF P_PA_DEBUG_MODE = 'Y' THEN
6921: pa_debug.g_err_stage := 'Parameter validation complete';
6922: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6923: END IF;
6924:
6917:
6918: END IF;
6919:
6920: IF P_PA_DEBUG_MODE = 'Y' THEN
6921: pa_debug.g_err_stage := 'Parameter validation complete';
6922: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6923: END IF;
6924:
6925: --Fetch and store project level fp option id in proj_fp_options_id_tbl.
6918: END IF;
6919:
6920: IF P_PA_DEBUG_MODE = 'Y' THEN
6921: pa_debug.g_err_stage := 'Parameter validation complete';
6922: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6923: END IF;
6924:
6925: --Fetch and store project level fp option id in proj_fp_options_id_tbl.
6926:
6923: END IF;
6924:
6925: --Fetch and store project level fp option id in proj_fp_options_id_tbl.
6926:
6927: IF P_PA_DEBUG_MODE = 'Y' THEN
6928: pa_debug.g_err_stage := 'Fetching project level fp option id';
6929: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6930: END IF;
6931:
6924:
6925: --Fetch and store project level fp option id in proj_fp_options_id_tbl.
6926:
6927: IF P_PA_DEBUG_MODE = 'Y' THEN
6928: pa_debug.g_err_stage := 'Fetching project level fp option id';
6929: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6930: END IF;
6931:
6932: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT);
6925: --Fetch and store project level fp option id in proj_fp_options_id_tbl.
6926:
6927: IF P_PA_DEBUG_MODE = 'Y' THEN
6928: pa_debug.g_err_stage := 'Fetching project level fp option id';
6929: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6930: END IF;
6931:
6932: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT);
6933:
6939: CLOSE cur_for_fp_options;
6940:
6941: --Open and fetch fp options ids of all the plan types attached to project
6942:
6943: IF P_PA_DEBUG_MODE = 'Y' THEN
6944: pa_debug.g_err_stage := 'Opening cur_for_plan_type_fp_options';
6945: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6946: END IF;
6947:
6940:
6941: --Open and fetch fp options ids of all the plan types attached to project
6942:
6943: IF P_PA_DEBUG_MODE = 'Y' THEN
6944: pa_debug.g_err_stage := 'Opening cur_for_plan_type_fp_options';
6945: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6946: END IF;
6947:
6948: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE);
6941: --Open and fetch fp options ids of all the plan types attached to project
6942:
6943: IF P_PA_DEBUG_MODE = 'Y' THEN
6944: pa_debug.g_err_stage := 'Opening cur_for_plan_type_fp_options';
6945: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
6946: END IF;
6947:
6948: OPEN cur_for_fp_options(PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE);
6949: LOOP
6962:
6963: --For each plan type fetched copy the options id of baselined or
6964: --current working version.
6965:
6966: IF P_PA_DEBUG_MODE = 'Y' THEN
6967: pa_debug.g_err_stage := 'Preference_code ='|| l_fin_plan_preference_code;
6968: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6969: END IF;
6970:
6963: --For each plan type fetched copy the options id of baselined or
6964: --current working version.
6965:
6966: IF P_PA_DEBUG_MODE = 'Y' THEN
6967: pa_debug.g_err_stage := 'Preference_code ='|| l_fin_plan_preference_code;
6968: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6969: END IF;
6970:
6971: --For COST_AND REV_SEP plan type we have to copy both revenue and cost
6964: --current working version.
6965:
6966: IF P_PA_DEBUG_MODE = 'Y' THEN
6967: pa_debug.g_err_stage := 'Preference_code ='|| l_fin_plan_preference_code;
6968: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6969: END IF;
6970:
6971: --For COST_AND REV_SEP plan type we have to copy both revenue and cost
6972: --versions.
6972: --versions.
6973:
6974: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP THEN
6975:
6976: IF P_PA_DEBUG_MODE = 'Y' THEN
6977: pa_debug.g_err_stage := 'Fetching baselined cost plan version';
6978: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6979: END IF;
6980:
6973:
6974: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP THEN
6975:
6976: IF P_PA_DEBUG_MODE = 'Y' THEN
6977: pa_debug.g_err_stage := 'Fetching baselined cost plan version';
6978: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6979: END IF;
6980:
6981: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
6974: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP THEN
6975:
6976: IF P_PA_DEBUG_MODE = 'Y' THEN
6977: pa_debug.g_err_stage := 'Fetching baselined cost plan version';
6978: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6979: END IF;
6980:
6981: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
6982: p_project_id => p_source_project_id
6992: --id current working version
6993:
6994: IF (l_fp_options_id IS NULL) THEN
6995:
6996: IF P_PA_DEBUG_MODE = 'Y' THEN
6997: pa_debug.g_err_stage := 'Baselined plan cost version does not exist';
6998: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6999:
7000: pa_debug.g_err_stage := 'Fetching current cost woking plan version if any';
6993:
6994: IF (l_fp_options_id IS NULL) THEN
6995:
6996: IF P_PA_DEBUG_MODE = 'Y' THEN
6997: pa_debug.g_err_stage := 'Baselined plan cost version does not exist';
6998: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6999:
7000: pa_debug.g_err_stage := 'Fetching current cost woking plan version if any';
7001: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6994: IF (l_fp_options_id IS NULL) THEN
6995:
6996: IF P_PA_DEBUG_MODE = 'Y' THEN
6997: pa_debug.g_err_stage := 'Baselined plan cost version does not exist';
6998: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6999:
7000: pa_debug.g_err_stage := 'Fetching current cost woking plan version if any';
7001: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7002: END IF;
6996: IF P_PA_DEBUG_MODE = 'Y' THEN
6997: pa_debug.g_err_stage := 'Baselined plan cost version does not exist';
6998: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6999:
7000: pa_debug.g_err_stage := 'Fetching current cost woking plan version if any';
7001: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7002: END IF;
7003:
7004: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
6997: pa_debug.g_err_stage := 'Baselined plan cost version does not exist';
6998: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
6999:
7000: pa_debug.g_err_stage := 'Fetching current cost woking plan version if any';
7001: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7002: END IF;
7003:
7004: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7005: p_project_id => p_source_project_id
7015:
7016: --Insert the fetched option id of plan version if existing
7017:
7018: IF (l_fp_options_id IS NOT NULL) THEN
7019: IF P_PA_DEBUG_MODE = 'Y' THEN
7020: pa_debug.g_err_stage := 'Storing option id of cost plan version fetched';
7021: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7022: END IF;
7023:
7016: --Insert the fetched option id of plan version if existing
7017:
7018: IF (l_fp_options_id IS NOT NULL) THEN
7019: IF P_PA_DEBUG_MODE = 'Y' THEN
7020: pa_debug.g_err_stage := 'Storing option id of cost plan version fetched';
7021: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7022: END IF;
7023:
7024: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7017:
7018: IF (l_fp_options_id IS NOT NULL) THEN
7019: IF P_PA_DEBUG_MODE = 'Y' THEN
7020: pa_debug.g_err_stage := 'Storing option id of cost plan version fetched';
7021: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7022: END IF;
7023:
7024: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7025: ELSE
7022: END IF;
7023:
7024: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7025: ELSE
7026: IF P_PA_DEBUG_MODE = 'Y' THEN
7027: pa_debug.g_err_stage := 'Current working cost plan version does not exist for this plan type';
7028: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7029: END IF;
7030: END IF;
7023:
7024: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7025: ELSE
7026: IF P_PA_DEBUG_MODE = 'Y' THEN
7027: pa_debug.g_err_stage := 'Current working cost plan version does not exist for this plan type';
7028: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7029: END IF;
7030: END IF;
7031:
7024: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7025: ELSE
7026: IF P_PA_DEBUG_MODE = 'Y' THEN
7027: pa_debug.g_err_stage := 'Current working cost plan version does not exist for this plan type';
7028: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7029: END IF;
7030: END IF;
7031:
7032: --Fetch revenue version id for the plan type
7030: END IF;
7031:
7032: --Fetch revenue version id for the plan type
7033:
7034: IF P_PA_DEBUG_MODE = 'Y' THEN
7035: pa_debug.g_err_stage := 'Fetching baselined revenue plan version';
7036: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7037: END IF;
7038:
7031:
7032: --Fetch revenue version id for the plan type
7033:
7034: IF P_PA_DEBUG_MODE = 'Y' THEN
7035: pa_debug.g_err_stage := 'Fetching baselined revenue plan version';
7036: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7037: END IF;
7038:
7039: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
7032: --Fetch revenue version id for the plan type
7033:
7034: IF P_PA_DEBUG_MODE = 'Y' THEN
7035: pa_debug.g_err_stage := 'Fetching baselined revenue plan version';
7036: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7037: END IF;
7038:
7039: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
7040: p_project_id => p_source_project_id
7050: --id current working version
7051:
7052: IF (l_fp_options_id IS NULL) THEN
7053:
7054: IF P_PA_DEBUG_MODE = 'Y' THEN
7055: pa_debug.g_err_stage := 'Baselined plan revenue version does not exist';
7056: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7057:
7058: pa_debug.g_err_stage := 'Fetching current revenue woking plan version if any';
7051:
7052: IF (l_fp_options_id IS NULL) THEN
7053:
7054: IF P_PA_DEBUG_MODE = 'Y' THEN
7055: pa_debug.g_err_stage := 'Baselined plan revenue version does not exist';
7056: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7057:
7058: pa_debug.g_err_stage := 'Fetching current revenue woking plan version if any';
7059: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7052: IF (l_fp_options_id IS NULL) THEN
7053:
7054: IF P_PA_DEBUG_MODE = 'Y' THEN
7055: pa_debug.g_err_stage := 'Baselined plan revenue version does not exist';
7056: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7057:
7058: pa_debug.g_err_stage := 'Fetching current revenue woking plan version if any';
7059: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7060: END IF;
7054: IF P_PA_DEBUG_MODE = 'Y' THEN
7055: pa_debug.g_err_stage := 'Baselined plan revenue version does not exist';
7056: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7057:
7058: pa_debug.g_err_stage := 'Fetching current revenue woking plan version if any';
7059: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7060: END IF;
7061:
7062: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7055: pa_debug.g_err_stage := 'Baselined plan revenue version does not exist';
7056: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7057:
7058: pa_debug.g_err_stage := 'Fetching current revenue woking plan version if any';
7059: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7060: END IF;
7061:
7062: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7063: p_project_id => p_source_project_id
7074: --Insert the fetched option id of plan version if existing
7075:
7076: IF (l_fp_options_id IS NOT NULL) THEN
7077:
7078: IF P_PA_DEBUG_MODE = 'Y' THEN
7079: pa_debug.g_err_stage := 'Storing option id of revenue plan version fetched';
7080: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7081: END IF;
7082:
7075:
7076: IF (l_fp_options_id IS NOT NULL) THEN
7077:
7078: IF P_PA_DEBUG_MODE = 'Y' THEN
7079: pa_debug.g_err_stage := 'Storing option id of revenue plan version fetched';
7080: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7081: END IF;
7082:
7083: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7076: IF (l_fp_options_id IS NOT NULL) THEN
7077:
7078: IF P_PA_DEBUG_MODE = 'Y' THEN
7079: pa_debug.g_err_stage := 'Storing option id of revenue plan version fetched';
7080: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7081: END IF;
7082:
7083: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7084:
7082:
7083: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7084:
7085: ELSE
7086: IF P_PA_DEBUG_MODE = 'Y' THEN
7087: pa_debug.g_err_stage := 'Current working revenue plan version does not exist for this plan type';
7088: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7089: END IF;
7090: END IF;
7083: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7084:
7085: ELSE
7086: IF P_PA_DEBUG_MODE = 'Y' THEN
7087: pa_debug.g_err_stage := 'Current working revenue plan version does not exist for this plan type';
7088: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7089: END IF;
7090: END IF;
7091:
7084:
7085: ELSE
7086: IF P_PA_DEBUG_MODE = 'Y' THEN
7087: pa_debug.g_err_stage := 'Current working revenue plan version does not exist for this plan type';
7088: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7089: END IF;
7090: END IF;
7091:
7092: ELSE
7092: ELSE
7093:
7094: --Fetch baselined plan version id for the plan type
7095:
7096: IF P_PA_DEBUG_MODE = 'Y' THEN
7097: pa_debug.g_err_stage := 'Fetching baselined plan version if any';
7098: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7099: END IF;
7100:
7093:
7094: --Fetch baselined plan version id for the plan type
7095:
7096: IF P_PA_DEBUG_MODE = 'Y' THEN
7097: pa_debug.g_err_stage := 'Fetching baselined plan version if any';
7098: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7099: END IF;
7100:
7101: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
7094: --Fetch baselined plan version id for the plan type
7095:
7096: IF P_PA_DEBUG_MODE = 'Y' THEN
7097: pa_debug.g_err_stage := 'Fetching baselined plan version if any';
7098: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7099: END IF;
7100:
7101: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
7102: p_project_id => p_source_project_id
7112: --id current working version
7113:
7114: IF (l_fp_options_id IS NULL) THEN
7115:
7116: IF P_PA_DEBUG_MODE = 'Y' THEN
7117: pa_debug.g_err_stage := 'Baselined plan version does not exist';
7118: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7119:
7120: pa_debug.g_err_stage := 'Fetching current woking plan version if any';
7113:
7114: IF (l_fp_options_id IS NULL) THEN
7115:
7116: IF P_PA_DEBUG_MODE = 'Y' THEN
7117: pa_debug.g_err_stage := 'Baselined plan version does not exist';
7118: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7119:
7120: pa_debug.g_err_stage := 'Fetching current woking plan version if any';
7121: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7114: IF (l_fp_options_id IS NULL) THEN
7115:
7116: IF P_PA_DEBUG_MODE = 'Y' THEN
7117: pa_debug.g_err_stage := 'Baselined plan version does not exist';
7118: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7119:
7120: pa_debug.g_err_stage := 'Fetching current woking plan version if any';
7121: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7122: END IF;
7116: IF P_PA_DEBUG_MODE = 'Y' THEN
7117: pa_debug.g_err_stage := 'Baselined plan version does not exist';
7118: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7119:
7120: pa_debug.g_err_stage := 'Fetching current woking plan version if any';
7121: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7122: END IF;
7123:
7124: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7117: pa_debug.g_err_stage := 'Baselined plan version does not exist';
7118: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7119:
7120: pa_debug.g_err_stage := 'Fetching current woking plan version if any';
7121: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7122: END IF;
7123:
7124: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(
7125: p_project_id => p_source_project_id
7136: --Insert the fetched option id of plan version if existing
7137:
7138: IF (l_fp_options_id IS NOT NULL) THEN
7139:
7140: IF P_PA_DEBUG_MODE = 'Y' THEN
7141: pa_debug.g_err_stage := 'Storing option id of plan version fetched';
7142: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7143: END IF;
7144:
7137:
7138: IF (l_fp_options_id IS NOT NULL) THEN
7139:
7140: IF P_PA_DEBUG_MODE = 'Y' THEN
7141: pa_debug.g_err_stage := 'Storing option id of plan version fetched';
7142: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7143: END IF;
7144:
7145: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7138: IF (l_fp_options_id IS NOT NULL) THEN
7139:
7140: IF P_PA_DEBUG_MODE = 'Y' THEN
7141: pa_debug.g_err_stage := 'Storing option id of plan version fetched';
7142: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7143: END IF;
7144:
7145: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7146:
7144:
7145: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7146:
7147: ELSE
7148: IF P_PA_DEBUG_MODE = 'Y' THEN
7149: pa_debug.g_err_stage := 'Current working plan version does not exist for this plan type';
7150: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7151: END IF;
7152: END IF;
7145: l_proj_fp_options_id_tbl(nvl(l_proj_fp_options_id_tbl.last,0)+1) := l_fp_options_id;
7146:
7147: ELSE
7148: IF P_PA_DEBUG_MODE = 'Y' THEN
7149: pa_debug.g_err_stage := 'Current working plan version does not exist for this plan type';
7150: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7151: END IF;
7152: END IF;
7153: END IF; --l_fin_plan_preference_code
7146:
7147: ELSE
7148: IF P_PA_DEBUG_MODE = 'Y' THEN
7149: pa_debug.g_err_stage := 'Current working plan version does not exist for this plan type';
7150: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7151: END IF;
7152: END IF;
7153: END IF; --l_fin_plan_preference_code
7154:
7160: --Return the fp_options_id tbl;
7161:
7162: x_fp_options_ids_tbl := l_proj_fp_options_id_tbl;
7163:
7164: IF P_PA_DEBUG_MODE = 'Y' THEN
7165: pa_debug.g_err_stage := 'Exiting Get_Fp_Options_To_Be_Copied';
7166: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7167: pa_debug.reset_err_stack;
7168: END IF;
7161:
7162: x_fp_options_ids_tbl := l_proj_fp_options_id_tbl;
7163:
7164: IF P_PA_DEBUG_MODE = 'Y' THEN
7165: pa_debug.g_err_stage := 'Exiting Get_Fp_Options_To_Be_Copied';
7166: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7167: pa_debug.reset_err_stack;
7168: END IF;
7169:
7162: x_fp_options_ids_tbl := l_proj_fp_options_id_tbl;
7163:
7164: IF P_PA_DEBUG_MODE = 'Y' THEN
7165: pa_debug.g_err_stage := 'Exiting Get_Fp_Options_To_Be_Copied';
7166: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7167: pa_debug.reset_err_stack;
7168: END IF;
7169:
7170: EXCEPTION
7163:
7164: IF P_PA_DEBUG_MODE = 'Y' THEN
7165: pa_debug.g_err_stage := 'Exiting Get_Fp_Options_To_Be_Copied';
7166: pa_debug.write( g_module_name,pa_debug.g_err_stage,3);
7167: pa_debug.reset_err_stack;
7168: END IF;
7169:
7170: EXCEPTION
7171:
7184: ELSE
7185: x_msg_count := l_msg_count;
7186: END IF;
7187:
7188: IF P_PA_DEBUG_MODE = 'Y' THEN
7189: pa_debug.g_err_stage:='Invalid Arguments Passed';
7190: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7191: pa_debug.reset_err_stack;
7192: END IF;
7185: x_msg_count := l_msg_count;
7186: END IF;
7187:
7188: IF P_PA_DEBUG_MODE = 'Y' THEN
7189: pa_debug.g_err_stage:='Invalid Arguments Passed';
7190: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7191: pa_debug.reset_err_stack;
7192: END IF;
7193: x_return_status:= FND_API.G_RET_STS_ERROR;
7186: END IF;
7187:
7188: IF P_PA_DEBUG_MODE = 'Y' THEN
7189: pa_debug.g_err_stage:='Invalid Arguments Passed';
7190: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7191: pa_debug.reset_err_stack;
7192: END IF;
7193: x_return_status:= FND_API.G_RET_STS_ERROR;
7194:
7187:
7188: IF P_PA_DEBUG_MODE = 'Y' THEN
7189: pa_debug.g_err_stage:='Invalid Arguments Passed';
7190: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7191: pa_debug.reset_err_stack;
7192: END IF;
7193: x_return_status:= FND_API.G_RET_STS_ERROR;
7194:
7195: RAISE;
7201: x_msg_data := SQLERRM;
7202: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
7203: ,p_procedure_name => 'Get_Fp_Options_To_Be_Copied');
7204:
7205: IF P_PA_DEBUG_MODE = 'Y' THEN
7206: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7207: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7208: pa_debug.reset_err_stack;
7209: END IF;
7202: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
7203: ,p_procedure_name => 'Get_Fp_Options_To_Be_Copied');
7204:
7205: IF P_PA_DEBUG_MODE = 'Y' THEN
7206: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7207: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7208: pa_debug.reset_err_stack;
7209: END IF;
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7203: ,p_procedure_name => 'Get_Fp_Options_To_Be_Copied');
7204:
7205: IF P_PA_DEBUG_MODE = 'Y' THEN
7206: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7207: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7208: pa_debug.reset_err_stack;
7209: END IF;
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211:
7204:
7205: IF P_PA_DEBUG_MODE = 'Y' THEN
7206: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7207: pa_debug.write( g_module_name,pa_debug.g_err_stage,5);
7208: pa_debug.reset_err_stack;
7209: END IF;
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211:
7212: END Get_Fp_Options_To_Be_Copied;
7254: x_err_code => l_err_code,
7255: x_err_stage => l_err_stage,
7256: x_err_stack => l_err_stack);
7257: IF l_err_code <> 0 THEN
7258: IF P_PA_DEBUG_MODE = 'Y' THEN
7259: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.shift_periods...';
7260: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7261: END IF;
7262:
7255: x_err_stage => l_err_stage,
7256: x_err_stack => l_err_stack);
7257: IF l_err_code <> 0 THEN
7258: IF P_PA_DEBUG_MODE = 'Y' THEN
7259: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.shift_periods...';
7260: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7261: END IF;
7262:
7263: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7256: x_err_stack => l_err_stack);
7257: IF l_err_code <> 0 THEN
7258: IF P_PA_DEBUG_MODE = 'Y' THEN
7259: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.shift_periods...';
7260: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7261: END IF;
7262:
7263: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7264: p_msg_name => l_err_stage);
7338: BEGIN
7339:
7340: x_msg_count := 0;
7341: x_return_status := FND_API.G_RET_STS_SUCCESS;
7342: IF P_PA_DEBUG_MODE = 'Y' THEN
7343: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
7344: END IF;
7345: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7346: l_debug_mode := NVL(l_debug_mode, 'Y');
7339:
7340: x_msg_count := 0;
7341: x_return_status := FND_API.G_RET_STS_SUCCESS;
7342: IF P_PA_DEBUG_MODE = 'Y' THEN
7343: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
7344: END IF;
7345: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7346: l_debug_mode := NVL(l_debug_mode, 'Y');
7347: IF P_PA_DEBUG_MODE = 'Y' THEN
7341: x_return_status := FND_API.G_RET_STS_SUCCESS;
7342: IF P_PA_DEBUG_MODE = 'Y' THEN
7343: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
7344: END IF;
7345: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7346: l_debug_mode := NVL(l_debug_mode, 'Y');
7347: IF P_PA_DEBUG_MODE = 'Y' THEN
7348: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7349: END IF;
7343: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines');
7344: END IF;
7345: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7346: l_debug_mode := NVL(l_debug_mode, 'Y');
7347: IF P_PA_DEBUG_MODE = 'Y' THEN
7348: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7349: END IF;
7350: -- Checking for all valid input parametrs
7351:
7344: END IF;
7345: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7346: l_debug_mode := NVL(l_debug_mode, 'Y');
7347: IF P_PA_DEBUG_MODE = 'Y' THEN
7348: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7349: END IF;
7350: -- Checking for all valid input parametrs
7351:
7352: IF P_PA_DEBUG_MODE = 'Y' THEN
7348: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7349: END IF;
7350: -- Checking for all valid input parametrs
7351:
7352: IF P_PA_DEBUG_MODE = 'Y' THEN
7353: pa_debug.g_err_stage := 'Checking for valid parameters:';
7354: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7355: END IF;
7356:
7349: END IF;
7350: -- Checking for all valid input parametrs
7351:
7352: IF P_PA_DEBUG_MODE = 'Y' THEN
7353: pa_debug.g_err_stage := 'Checking for valid parameters:';
7354: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7355: END IF;
7356:
7357: IF (p_source_plan_version_id IS NULL) OR
7350: -- Checking for all valid input parametrs
7351:
7352: IF P_PA_DEBUG_MODE = 'Y' THEN
7353: pa_debug.g_err_stage := 'Checking for valid parameters:';
7354: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7355: END IF;
7356:
7357: IF (p_source_plan_version_id IS NULL) OR
7358: (p_target_plan_version_id IS NULL) OR
7359: (p_source_project_id IS NULL) OR
7360: (p_target_project_id IS NULL)
7361: THEN
7362:
7363: IF P_PA_DEBUG_MODE = 'Y' THEN
7364: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
7365: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7360: (p_target_project_id IS NULL)
7361: THEN
7362:
7363: IF P_PA_DEBUG_MODE = 'Y' THEN
7364: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
7365: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7361: THEN
7362:
7363: IF P_PA_DEBUG_MODE = 'Y' THEN
7364: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
7365: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7369: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7362:
7363: IF P_PA_DEBUG_MODE = 'Y' THEN
7364: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
7365: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7369: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7370: pa_debug.g_err_stage := 'Target_project'||p_target_project_id;
7363: IF P_PA_DEBUG_MODE = 'Y' THEN
7364: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
7365: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7369: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7370: pa_debug.g_err_stage := 'Target_project'||p_target_project_id;
7371: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7364: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
7365: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7369: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7370: pa_debug.g_err_stage := 'Target_project'||p_target_project_id;
7371: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7372: END IF;
7365: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7369: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7370: pa_debug.g_err_stage := 'Target_project'||p_target_project_id;
7371: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7372: END IF;
7373:
7366: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7369: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7370: pa_debug.g_err_stage := 'Target_project'||p_target_project_id;
7371: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7372: END IF;
7373:
7374: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7367: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7368: pa_debug.g_err_stage := 'Source_project='||p_source_project_id;
7369: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7370: pa_debug.g_err_stage := 'Target_project'||p_target_project_id;
7371: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7372: END IF;
7373:
7374: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7375: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7376: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7377:
7378: END IF;
7379:
7380: IF P_PA_DEBUG_MODE = 'Y' THEN
7381: pa_debug.g_err_stage := 'Parameter validation complete';
7382: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7383: END IF;
7384:
7377:
7378: END IF;
7379:
7380: IF P_PA_DEBUG_MODE = 'Y' THEN
7381: pa_debug.g_err_stage := 'Parameter validation complete';
7382: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7383: END IF;
7384:
7385: --Make shift_days zero if passed as null
7378: END IF;
7379:
7380: IF P_PA_DEBUG_MODE = 'Y' THEN
7381: pa_debug.g_err_stage := 'Parameter validation complete';
7382: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7383: END IF;
7384:
7385: --Make shift_days zero if passed as null
7386:
7385: --Make shift_days zero if passed as null
7386:
7387: l_shift_days := NVL(p_shift_days,0);
7388:
7389: IF P_PA_DEBUG_MODE = 'Y' THEN
7390: pa_debug.g_err_stage:='Shift_days ='|| l_shift_days;
7391: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7392: END IF;
7393:
7386:
7387: l_shift_days := NVL(p_shift_days,0);
7388:
7389: IF P_PA_DEBUG_MODE = 'Y' THEN
7390: pa_debug.g_err_stage:='Shift_days ='|| l_shift_days;
7391: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7392: END IF;
7393:
7394: --Fetch the target versions time phased code
7387: l_shift_days := NVL(p_shift_days,0);
7388:
7389: IF P_PA_DEBUG_MODE = 'Y' THEN
7390: pa_debug.g_err_stage:='Shift_days ='|| l_shift_days;
7391: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7392: END IF;
7393:
7394: --Fetch the target versions time phased code
7395:
7395:
7396: l_target_time_phased_code := PA_FIN_PLAN_UTILS.get_time_phased_code(p_target_plan_version_id);
7397: l_target_budget_entry_level := PA_FIN_PLAN_UTILS.get_fin_plan_level_code(p_target_plan_version_id); /*bug2726011*/
7398:
7399: IF P_PA_DEBUG_MODE = 'Y' THEN
7400: pa_debug.g_err_stage:='Time Phased Code ='|| l_target_time_phased_code;
7401: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='Budget Entry Level ='|| l_target_budget_entry_level;
7403: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7396: l_target_time_phased_code := PA_FIN_PLAN_UTILS.get_time_phased_code(p_target_plan_version_id);
7397: l_target_budget_entry_level := PA_FIN_PLAN_UTILS.get_fin_plan_level_code(p_target_plan_version_id); /*bug2726011*/
7398:
7399: IF P_PA_DEBUG_MODE = 'Y' THEN
7400: pa_debug.g_err_stage:='Time Phased Code ='|| l_target_time_phased_code;
7401: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='Budget Entry Level ='|| l_target_budget_entry_level;
7403: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7404: pa_debug.g_err_stage:='Inserting into pa_budget_lines';
7397: l_target_budget_entry_level := PA_FIN_PLAN_UTILS.get_fin_plan_level_code(p_target_plan_version_id); /*bug2726011*/
7398:
7399: IF P_PA_DEBUG_MODE = 'Y' THEN
7400: pa_debug.g_err_stage:='Time Phased Code ='|| l_target_time_phased_code;
7401: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='Budget Entry Level ='|| l_target_budget_entry_level;
7403: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7404: pa_debug.g_err_stage:='Inserting into pa_budget_lines';
7405: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7398:
7399: IF P_PA_DEBUG_MODE = 'Y' THEN
7400: pa_debug.g_err_stage:='Time Phased Code ='|| l_target_time_phased_code;
7401: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='Budget Entry Level ='|| l_target_budget_entry_level;
7403: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7404: pa_debug.g_err_stage:='Inserting into pa_budget_lines';
7405: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7406: END IF;
7399: IF P_PA_DEBUG_MODE = 'Y' THEN
7400: pa_debug.g_err_stage:='Time Phased Code ='|| l_target_time_phased_code;
7401: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='Budget Entry Level ='|| l_target_budget_entry_level;
7403: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7404: pa_debug.g_err_stage:='Inserting into pa_budget_lines';
7405: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7406: END IF;
7407:
7400: pa_debug.g_err_stage:='Time Phased Code ='|| l_target_time_phased_code;
7401: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='Budget Entry Level ='|| l_target_budget_entry_level;
7403: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7404: pa_debug.g_err_stage:='Inserting into pa_budget_lines';
7405: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7406: END IF;
7407:
7408: IF P_PA_DEBUG_MODE = 'Y' THEN
7401: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7402: pa_debug.g_err_stage:='Budget Entry Level ='|| l_target_budget_entry_level;
7403: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7404: pa_debug.g_err_stage:='Inserting into pa_budget_lines';
7405: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7406: END IF;
7407:
7408: IF P_PA_DEBUG_MODE = 'Y' THEN
7409: pa_debug.g_err_stage := 'Selecting project start and completion dates';
7404: pa_debug.g_err_stage:='Inserting into pa_budget_lines';
7405: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7406: END IF;
7407:
7408: IF P_PA_DEBUG_MODE = 'Y' THEN
7409: pa_debug.g_err_stage := 'Selecting project start and completion dates';
7410: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7411: END IF;
7412:
7405: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7406: END IF;
7407:
7408: IF P_PA_DEBUG_MODE = 'Y' THEN
7409: pa_debug.g_err_stage := 'Selecting project start and completion dates';
7410: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7411: END IF;
7412:
7413: SELECT start_date,
7406: END IF;
7407:
7408: IF P_PA_DEBUG_MODE = 'Y' THEN
7409: pa_debug.g_err_stage := 'Selecting project start and completion dates';
7410: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7411: END IF;
7412:
7413: SELECT start_date,
7414: completion_date
7422: PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P)
7423: THEN
7424: BEGIN
7425:
7426: IF P_PA_DEBUG_MODE = 'Y' THEN
7427: pa_debug.g_err_stage := 'Selecting project start date';
7428: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7429: END IF;
7430:
7423: THEN
7424: BEGIN
7425:
7426: IF P_PA_DEBUG_MODE = 'Y' THEN
7427: pa_debug.g_err_stage := 'Selecting project start date';
7428: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7429: END IF;
7430:
7431: SELECT p.start_date
7424: BEGIN
7425:
7426: IF P_PA_DEBUG_MODE = 'Y' THEN
7427: pa_debug.g_err_stage := 'Selecting project start date';
7428: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7429: END IF;
7430:
7431: SELECT p.start_date
7432: INTO l_start_date
7434: WHERE p.project_id = p_source_project_id;
7435:
7436: IF l_start_date IS NULL THEN
7437:
7438: IF P_PA_DEBUG_MODE = 'Y' THEN
7439: pa_debug.g_err_stage := 'Selecting task mininum start date';
7440: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7441: END IF;
7442:
7435:
7436: IF l_start_date IS NULL THEN
7437:
7438: IF P_PA_DEBUG_MODE = 'Y' THEN
7439: pa_debug.g_err_stage := 'Selecting task mininum start date';
7440: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7441: END IF;
7442:
7443: SELECt min(t.start_date)
7436: IF l_start_date IS NULL THEN
7437:
7438: IF P_PA_DEBUG_MODE = 'Y' THEN
7439: pa_debug.g_err_stage := 'Selecting task mininum start date';
7440: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7441: END IF;
7442:
7443: SELECt min(t.start_date)
7444: INTO l_start_date
7446: WHERE t.project_id = p_source_project_id;
7447:
7448: IF l_start_date is NULL THEN
7449:
7450: IF P_PA_DEBUG_MODE = 'Y' THEN
7451: pa_debug.g_err_stage := 'Selecting budget lines minimum start date';
7452: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7453: END IF;
7454:
7447:
7448: IF l_start_date is NULL THEN
7449:
7450: IF P_PA_DEBUG_MODE = 'Y' THEN
7451: pa_debug.g_err_stage := 'Selecting budget lines minimum start date';
7452: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7453: END IF;
7454:
7455: SELECT min(bl.start_date)
7448: IF l_start_date is NULL THEN
7449:
7450: IF P_PA_DEBUG_MODE = 'Y' THEN
7451: pa_debug.g_err_stage := 'Selecting budget lines minimum start date';
7452: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
7453: END IF;
7454:
7455: SELECT min(bl.start_date)
7456: INTO l_start_Date
7460: -- If l_start_date is null after the above select it implies
7461: -- there are no budget lines. So return immediately as nothing
7462: -- needs to be copied
7463: IF l_start_Date IS NULL THEN
7464: pa_debug.reset_err_stack;
7465: RETURN;
7466: END IF;
7467:
7468: END IF; /* Mininum Task start date is null */
7469:
7470: END IF; /* Minimum Project start date is null */
7471: EXCEPTION
7472: WHEN OTHERS THEN
7473: IF P_PA_DEBUG_MODE = 'Y' THEN
7474: pa_debug.g_err_stage := 'Error while fetching start date ' || sqlerrm;
7475: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7476: END IF;
7477: RAISE;
7470: END IF; /* Minimum Project start date is null */
7471: EXCEPTION
7472: WHEN OTHERS THEN
7473: IF P_PA_DEBUG_MODE = 'Y' THEN
7474: pa_debug.g_err_stage := 'Error while fetching start date ' || sqlerrm;
7475: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7476: END IF;
7477: RAISE;
7478: END;
7471: EXCEPTION
7472: WHEN OTHERS THEN
7473: IF P_PA_DEBUG_MODE = 'Y' THEN
7474: pa_debug.g_err_stage := 'Error while fetching start date ' || sqlerrm;
7475: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7476: END IF;
7477: RAISE;
7478: END;
7479:
7486: x_err_code => l_err_code,
7487: x_err_stage => l_err_stage,
7488: x_err_stack => l_err_stack);
7489: IF l_err_code <> 0 THEN
7490: IF P_PA_DEBUG_MODE = 'Y' THEN
7491: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.get_periods...';
7492: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7493: END IF;
7494:
7487: x_err_stage => l_err_stage,
7488: x_err_stack => l_err_stack);
7489: IF l_err_code <> 0 THEN
7490: IF P_PA_DEBUG_MODE = 'Y' THEN
7491: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.get_periods...';
7492: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7493: END IF;
7494:
7495: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7488: x_err_stack => l_err_stack);
7489: IF l_err_code <> 0 THEN
7490: IF P_PA_DEBUG_MODE = 'Y' THEN
7491: pa_debug.g_err_stage := 'Exception raised by pa_budget_core.get_periods...';
7492: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
7493: END IF;
7494:
7495: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
7496: p_msg_name => l_err_stage);
8084: where pra.budget_version_id = p_target_plan_version_id;
8085:
8086: END IF; --l_target_time_phased_code
8087:
8088: IF P_PA_DEBUG_MODE = 'Y' THEN
8089: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
8090: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
8091: pa_debug.reset_err_stack;
8092: END IF;
8085:
8086: END IF; --l_target_time_phased_code
8087:
8088: IF P_PA_DEBUG_MODE = 'Y' THEN
8089: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
8090: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
8091: pa_debug.reset_err_stack;
8092: END IF;
8093: EXCEPTION
8086: END IF; --l_target_time_phased_code
8087:
8088: IF P_PA_DEBUG_MODE = 'Y' THEN
8089: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
8090: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
8091: pa_debug.reset_err_stack;
8092: END IF;
8093: EXCEPTION
8094:
8087:
8088: IF P_PA_DEBUG_MODE = 'Y' THEN
8089: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines';
8090: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,3);
8091: pa_debug.reset_err_stack;
8092: END IF;
8093: EXCEPTION
8094:
8095: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8109: x_msg_count := l_msg_count;
8110: END IF;
8111:
8112: x_return_status := FND_API.G_RET_STS_ERROR;
8113: IF P_PA_DEBUG_MODE = 'Y' THEN
8114: pa_debug.g_err_stage:='Invalid arguments passed';
8115: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
8116: pa_debug.reset_err_stack;
8117: END IF;
8110: END IF;
8111:
8112: x_return_status := FND_API.G_RET_STS_ERROR;
8113: IF P_PA_DEBUG_MODE = 'Y' THEN
8114: pa_debug.g_err_stage:='Invalid arguments passed';
8115: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
8116: pa_debug.reset_err_stack;
8117: END IF;
8118: RAISE;
8111:
8112: x_return_status := FND_API.G_RET_STS_ERROR;
8113: IF P_PA_DEBUG_MODE = 'Y' THEN
8114: pa_debug.g_err_stage:='Invalid arguments passed';
8115: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
8116: pa_debug.reset_err_stack;
8117: END IF;
8118: RAISE;
8119:
8112: x_return_status := FND_API.G_RET_STS_ERROR;
8113: IF P_PA_DEBUG_MODE = 'Y' THEN
8114: pa_debug.g_err_stage:='Invalid arguments passed';
8115: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,5);
8116: pa_debug.reset_err_stack;
8117: END IF;
8118: RAISE;
8119:
8120: WHEN Others THEN
8123: x_msg_count := 1;
8124: x_msg_data := SQLERRM;
8125: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
8126: ,p_procedure_name => 'COPY_BUDGET_LINES');
8127: IF P_PA_DEBUG_MODE = 'Y' THEN
8128: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
8129: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
8130: pa_debug.reset_err_stack;
8131: END IF;
8124: x_msg_data := SQLERRM;
8125: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
8126: ,p_procedure_name => 'COPY_BUDGET_LINES');
8127: IF P_PA_DEBUG_MODE = 'Y' THEN
8128: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
8129: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
8130: pa_debug.reset_err_stack;
8131: END IF;
8132: RAISE;
8125: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
8126: ,p_procedure_name => 'COPY_BUDGET_LINES');
8127: IF P_PA_DEBUG_MODE = 'Y' THEN
8128: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
8129: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
8130: pa_debug.reset_err_stack;
8131: END IF;
8132: RAISE;
8133:
8126: ,p_procedure_name => 'COPY_BUDGET_LINES');
8127: IF P_PA_DEBUG_MODE = 'Y' THEN
8128: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
8129: pa_debug.write('Copy_Budget_Lines: ' || g_module_name,pa_debug.g_err_stage,6);
8130: pa_debug.reset_err_stack;
8131: END IF;
8132: RAISE;
8133:
8134: END Copy_Budget_Lines;
8169:
8170: x_msg_count := 0;
8171: x_return_status := FND_API.G_RET_STS_SUCCESS;
8172:
8173: IF p_pa_debug_mode = 'Y' THEN
8174: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Current_Period_Profiles');
8175: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
8176: END IF;
8177:
8170: x_msg_count := 0;
8171: x_return_status := FND_API.G_RET_STS_SUCCESS;
8172:
8173: IF p_pa_debug_mode = 'Y' THEN
8174: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Current_Period_Profiles');
8175: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
8176: END IF;
8177:
8178: -- Check for NOT NULL parameters
8171: x_return_status := FND_API.G_RET_STS_SUCCESS;
8172:
8173: IF p_pa_debug_mode = 'Y' THEN
8174: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Current_Period_Profiles');
8175: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
8176: END IF;
8177:
8178: -- Check for NOT NULL parameters
8179:
8180: IF (p_source_project_id IS NULL) OR
8181: (p_target_project_id IS NULL) OR
8182: (p_shift_days IS NULL )
8183: THEN
8184: IF p_pa_debug_mode = 'Y' THEN
8185: pa_debug.g_err_stage := 'Source_project ='||p_source_project_id;
8186: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8187: pa_debug.g_err_stage := 'Target_project ='||p_target_project_id;
8188: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8181: (p_target_project_id IS NULL) OR
8182: (p_shift_days IS NULL )
8183: THEN
8184: IF p_pa_debug_mode = 'Y' THEN
8185: pa_debug.g_err_stage := 'Source_project ='||p_source_project_id;
8186: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8187: pa_debug.g_err_stage := 'Target_project ='||p_target_project_id;
8188: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8189: pa_debug.g_err_stage := 'p_shift_days ='||p_shift_days;
8182: (p_shift_days IS NULL )
8183: THEN
8184: IF p_pa_debug_mode = 'Y' THEN
8185: pa_debug.g_err_stage := 'Source_project ='||p_source_project_id;
8186: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8187: pa_debug.g_err_stage := 'Target_project ='||p_target_project_id;
8188: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8189: pa_debug.g_err_stage := 'p_shift_days ='||p_shift_days;
8190: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8183: THEN
8184: IF p_pa_debug_mode = 'Y' THEN
8185: pa_debug.g_err_stage := 'Source_project ='||p_source_project_id;
8186: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8187: pa_debug.g_err_stage := 'Target_project ='||p_target_project_id;
8188: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8189: pa_debug.g_err_stage := 'p_shift_days ='||p_shift_days;
8190: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8191: END IF;
8184: IF p_pa_debug_mode = 'Y' THEN
8185: pa_debug.g_err_stage := 'Source_project ='||p_source_project_id;
8186: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8187: pa_debug.g_err_stage := 'Target_project ='||p_target_project_id;
8188: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8189: pa_debug.g_err_stage := 'p_shift_days ='||p_shift_days;
8190: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8191: END IF;
8192: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8185: pa_debug.g_err_stage := 'Source_project ='||p_source_project_id;
8186: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8187: pa_debug.g_err_stage := 'Target_project ='||p_target_project_id;
8188: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8189: pa_debug.g_err_stage := 'p_shift_days ='||p_shift_days;
8190: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8191: END IF;
8192: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8193: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8186: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8187: pa_debug.g_err_stage := 'Target_project ='||p_target_project_id;
8188: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8189: pa_debug.g_err_stage := 'p_shift_days ='||p_shift_days;
8190: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
8191: END IF;
8192: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
8193: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8221:
8222: END LOOP;
8223: CLOSE current_period_profiles_cur;
8224:
8225: IF p_pa_debug_mode = 'Y' THEN
8226: pa_debug.g_err_stage:= 'Exiting Copy_Current_Period_Profiles';
8227: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8228: pa_debug.reset_err_stack;
8229: END IF;
8222: END LOOP;
8223: CLOSE current_period_profiles_cur;
8224:
8225: IF p_pa_debug_mode = 'Y' THEN
8226: pa_debug.g_err_stage:= 'Exiting Copy_Current_Period_Profiles';
8227: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8228: pa_debug.reset_err_stack;
8229: END IF;
8230:
8223: CLOSE current_period_profiles_cur;
8224:
8225: IF p_pa_debug_mode = 'Y' THEN
8226: pa_debug.g_err_stage:= 'Exiting Copy_Current_Period_Profiles';
8227: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8228: pa_debug.reset_err_stack;
8229: END IF;
8230:
8231: EXCEPTION
8224:
8225: IF p_pa_debug_mode = 'Y' THEN
8226: pa_debug.g_err_stage:= 'Exiting Copy_Current_Period_Profiles';
8227: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8228: pa_debug.reset_err_stack;
8229: END IF;
8230:
8231: EXCEPTION
8232:
8246: x_msg_count := l_msg_count;
8247: ELSE
8248: x_msg_count := l_msg_count;
8249: END IF;
8250: IF p_pa_debug_mode = 'Y' THEN
8251: pa_debug.reset_err_stack;
8252: END IF;
8253: RAISE;
8254:
8247: ELSE
8248: x_msg_count := l_msg_count;
8249: END IF;
8250: IF p_pa_debug_mode = 'Y' THEN
8251: pa_debug.reset_err_stack;
8252: END IF;
8253: RAISE;
8254:
8255: WHEN others THEN
8260: FND_MSG_PUB.add_exc_msg
8261: ( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
8262: ,p_procedure_name => 'Copy_Current_Period_Profiles'
8263: ,p_error_text => sqlerrm);
8264: IF p_pa_debug_mode = 'Y' THEN
8265: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8266: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8267: pa_debug.reset_err_stack;
8268: END IF;
8261: ( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
8262: ,p_procedure_name => 'Copy_Current_Period_Profiles'
8263: ,p_error_text => sqlerrm);
8264: IF p_pa_debug_mode = 'Y' THEN
8265: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8266: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8267: pa_debug.reset_err_stack;
8268: END IF;
8269: RAISE;
8262: ,p_procedure_name => 'Copy_Current_Period_Profiles'
8263: ,p_error_text => sqlerrm);
8264: IF p_pa_debug_mode = 'Y' THEN
8265: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8266: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8267: pa_debug.reset_err_stack;
8268: END IF;
8269: RAISE;
8270:
8263: ,p_error_text => sqlerrm);
8264: IF p_pa_debug_mode = 'Y' THEN
8265: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8266: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8267: pa_debug.reset_err_stack;
8268: END IF;
8269: RAISE;
8270:
8271: END Copy_Current_Period_Profiles;
8353: BEGIN
8354:
8355: x_msg_count := 0;
8356: x_return_status := FND_API.G_RET_STS_SUCCESS;
8357: IF P_PA_DEBUG_MODE = 'Y' THEN
8358: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Get_Create_Shifted_PD_Profile');
8359: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
8360: END IF;
8361: -- Check for NOT NULL parameters
8354:
8355: x_msg_count := 0;
8356: x_return_status := FND_API.G_RET_STS_SUCCESS;
8357: IF P_PA_DEBUG_MODE = 'Y' THEN
8358: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Get_Create_Shifted_PD_Profile');
8359: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
8360: END IF;
8361: -- Check for NOT NULL parameters
8362:
8355: x_msg_count := 0;
8356: x_return_status := FND_API.G_RET_STS_SUCCESS;
8357: IF P_PA_DEBUG_MODE = 'Y' THEN
8358: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Get_Create_Shifted_PD_Profile');
8359: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
8360: END IF;
8361: -- Check for NOT NULL parameters
8362:
8363: IF (p_target_project_id IS NULL) OR
8363: IF (p_target_project_id IS NULL) OR
8364: (p_source_period_profile_id IS NULL) OR
8365: (p_shift_days IS NULL)
8366: THEN
8367: IF p_pa_debug_mode = 'Y' THEN
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8364: (p_source_period_profile_id IS NULL) OR
8365: (p_shift_days IS NULL)
8366: THEN
8367: IF p_pa_debug_mode = 'Y' THEN
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8365: (p_shift_days IS NULL)
8366: THEN
8367: IF p_pa_debug_mode = 'Y' THEN
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8366: THEN
8367: IF p_pa_debug_mode = 'Y' THEN
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8367: IF p_pa_debug_mode = 'Y' THEN
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8368: pa_debug.g_err_stage:= 'p_target_project_id = '|| p_target_project_id;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8376: END IF;
8369: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8376: END IF;
8377: PA_UTILS.ADD_MESSAGE
8370: pa_debug.g_err_stage:= 'p_source_period_profile_id = '|| p_source_period_profile_id;
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8376: END IF;
8377: PA_UTILS.ADD_MESSAGE
8378: (p_app_short_name => 'PA',
8371: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8372: pa_debug.g_err_stage:= 'p_shift_days = '|| p_shift_days;
8373: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8374: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8375: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8376: END IF;
8377: PA_UTILS.ADD_MESSAGE
8378: (p_app_short_name => 'PA',
8379: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8390:
8391: IF g_source_period_profile_tbl(i) = p_source_period_profile_id
8392: THEN
8393: x_target_period_profile_id := g_target_period_profile_tbl(i);
8394: IF P_PA_DEBUG_MODE = 'Y' THEN
8395: pa_debug.reset_err_stack;
8396: END IF;
8397: RETURN;
8398: END IF;
8391: IF g_source_period_profile_tbl(i) = p_source_period_profile_id
8392: THEN
8393: x_target_period_profile_id := g_target_period_profile_tbl(i);
8394: IF P_PA_DEBUG_MODE = 'Y' THEN
8395: pa_debug.reset_err_stack;
8396: END IF;
8397: RETURN;
8398: END IF;
8399: END LOOP;
8402: -- If no corresponding target period profile has been already created,
8403: -- then create one.
8404:
8405: -- Fetch the source period profile details
8406: IF p_pa_debug_mode = 'Y' THEN
8407: pa_debug.g_err_stage:= 'Opening source_profile_info_cur';
8408: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8409: END IF;
8410:
8403: -- then create one.
8404:
8405: -- Fetch the source period profile details
8406: IF p_pa_debug_mode = 'Y' THEN
8407: pa_debug.g_err_stage:= 'Opening source_profile_info_cur';
8408: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8409: END IF;
8410:
8411: OPEN source_profile_info_cur(p_source_period_profile_id);
8404:
8405: -- Fetch the source period profile details
8406: IF p_pa_debug_mode = 'Y' THEN
8407: pa_debug.g_err_stage:= 'Opening source_profile_info_cur';
8408: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8409: END IF;
8410:
8411: OPEN source_profile_info_cur(p_source_period_profile_id);
8412: FETCH source_profile_info_cur INTO source_profile_info_rec;
8438: AND p.Org_Id =a.Org_Id
8439: AND a.set_of_books_id = b.set_of_books_id;
8440: EXCEPTION
8441: WHEN OTHERS THEN
8442: IF p_pa_debug_mode = 'Y' THEN
8443: pa_debug.g_err_stage:= 'Unexp Error while fetching the accounted period type||SQLERRM';
8444: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8445: END IF;
8446: RAISE;
8439: AND a.set_of_books_id = b.set_of_books_id;
8440: EXCEPTION
8441: WHEN OTHERS THEN
8442: IF p_pa_debug_mode = 'Y' THEN
8443: pa_debug.g_err_stage:= 'Unexp Error while fetching the accounted period type||SQLERRM';
8444: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8445: END IF;
8446: RAISE;
8447: END;
8440: EXCEPTION
8441: WHEN OTHERS THEN
8442: IF p_pa_debug_mode = 'Y' THEN
8443: pa_debug.g_err_stage:= 'Unexp Error while fetching the accounted period type||SQLERRM';
8444: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8445: END IF;
8446: RAISE;
8447: END;
8448:
8448:
8449:
8450: -- Fetch the target project start and completion dates
8451: -- Fetch the GL/PA periods into which the target project start and completion dates fall.
8452: IF p_pa_debug_mode = 'Y' THEN
8453: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
8454: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8455: END IF;
8456:
8449:
8450: -- Fetch the target project start and completion dates
8451: -- Fetch the GL/PA periods into which the target project start and completion dates fall.
8452: IF p_pa_debug_mode = 'Y' THEN
8453: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
8454: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8455: END IF;
8456:
8457: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
8450: -- Fetch the target project start and completion dates
8451: -- Fetch the GL/PA periods into which the target project start and completion dates fall.
8452: IF p_pa_debug_mode = 'Y' THEN
8453: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
8454: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8455: END IF;
8456:
8457: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
8458: p_project_id => p_target_project_id
8480:
8481: END IF;
8482:
8483: -- Shift the source period profile start date by p_shift_days input.
8484: IF p_pa_debug_mode = 'Y' THEN
8485: pa_debug.g_err_stage:= 'Shifting source period profile by shift days i/p';
8486: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8487: END IF;
8488:
8481: END IF;
8482:
8483: -- Shift the source period profile start date by p_shift_days input.
8484: IF p_pa_debug_mode = 'Y' THEN
8485: pa_debug.g_err_stage:= 'Shifting source period profile by shift days i/p';
8486: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8487: END IF;
8488:
8489: BEGIN /* Bug 2987076 - If shifted period is not available then return without creating the period profile */
8482:
8483: -- Shift the source period profile start date by p_shift_days input.
8484: IF p_pa_debug_mode = 'Y' THEN
8485: pa_debug.g_err_stage:= 'Shifting source period profile by shift days i/p';
8486: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8487: END IF;
8488:
8489: BEGIN /* Bug 2987076 - If shifted period is not available then return without creating the period profile */
8490:
8513: END IF;
8514: EXCEPTION
8515: WHEN NO_DATA_FOUND THEN
8516:
8517: IF p_pa_debug_mode = 'Y' THEN
8518: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8519: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8520: pa_debug.g_err_stage:= 'Period profile is not created.....';
8521: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8514: EXCEPTION
8515: WHEN NO_DATA_FOUND THEN
8516:
8517: IF p_pa_debug_mode = 'Y' THEN
8518: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8519: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8520: pa_debug.g_err_stage:= 'Period profile is not created.....';
8521: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8522: END IF;
8515: WHEN NO_DATA_FOUND THEN
8516:
8517: IF p_pa_debug_mode = 'Y' THEN
8518: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8519: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8520: pa_debug.g_err_stage:= 'Period profile is not created.....';
8521: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8522: END IF;
8523:
8516:
8517: IF p_pa_debug_mode = 'Y' THEN
8518: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8519: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8520: pa_debug.g_err_stage:= 'Period profile is not created.....';
8521: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8522: END IF;
8523:
8524: l_create_period_profile := 'N';
8517: IF p_pa_debug_mode = 'Y' THEN
8518: pa_debug.g_err_stage:= 'Periods not available in system for the shifted dates!!!!';
8519: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8520: pa_debug.g_err_stage:= 'Period profile is not created.....';
8521: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8522: END IF;
8523:
8524: l_create_period_profile := 'N';
8525:
8528: IF l_create_period_profile = 'Y' THEN /* Bug 2987076 */
8529:
8530: -- Fetch the target profile end period by shifting the fetching the target profile start period forward
8531: -- by the number of periods of the source period profile
8532: IF p_pa_debug_mode = 'Y' THEN
8533: pa_debug.g_err_stage:= 'Calling get_Shifted_period';
8534: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8535: END IF;
8536:
8529:
8530: -- Fetch the target profile end period by shifting the fetching the target profile start period forward
8531: -- by the number of periods of the source period profile
8532: IF p_pa_debug_mode = 'Y' THEN
8533: pa_debug.g_err_stage:= 'Calling get_Shifted_period';
8534: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8535: END IF;
8536:
8537: PA_FIN_PLAN_UTILS.Get_Shifted_Period (
8530: -- Fetch the target profile end period by shifting the fetching the target profile start period forward
8531: -- by the number of periods of the source period profile
8532: IF p_pa_debug_mode = 'Y' THEN
8533: pa_debug.g_err_stage:= 'Calling get_Shifted_period';
8534: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8535: END IF;
8536:
8537: PA_FIN_PLAN_UTILS.Get_Shifted_Period (
8538: p_period_name => l_start_period
8544: ,x_return_status => l_return_status
8545: ,x_msg_count => l_msg_count
8546: ,x_msg_data => l_msg_data );
8547:
8548: IF p_pa_debug_mode = 'Y' THEN
8549: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8550: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8551: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8552: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8545: ,x_msg_count => l_msg_count
8546: ,x_msg_data => l_msg_data );
8547:
8548: IF p_pa_debug_mode = 'Y' THEN
8549: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8550: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8551: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8552: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8553: END IF;
8546: ,x_msg_data => l_msg_data );
8547:
8548: IF p_pa_debug_mode = 'Y' THEN
8549: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8550: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8551: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8552: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8553: END IF;
8554:
8547:
8548: IF p_pa_debug_mode = 'Y' THEN
8549: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8550: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8551: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8552: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8553: END IF;
8554:
8555: IF (l_prj_end_date IS NOT NULL) AND
8548: IF p_pa_debug_mode = 'Y' THEN
8549: pa_debug.g_err_stage:= 'l_end_period_start_date ='||l_end_period_start_date;
8550: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8551: pa_debug.g_err_stage:= 'l_prj_end_date=' || l_prj_end_date;
8552: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8553: END IF;
8554:
8555: IF (l_prj_end_date IS NOT NULL) AND
8556: (to_date(l_prj_end_date,'rrrr/mm/dd') < l_end_period_start_date)
8608: END IF;
8609:
8610: -- Call Maintain_Prj_Period_Profile
8611:
8612: IF p_pa_debug_mode = 'Y' THEN
8613: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile';
8614: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8615: END IF;
8616:
8609:
8610: -- Call Maintain_Prj_Period_Profile
8611:
8612: IF p_pa_debug_mode = 'Y' THEN
8613: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile';
8614: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8615: END IF;
8616:
8617: Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile(
8610: -- Call Maintain_Prj_Period_Profile
8611:
8612: IF p_pa_debug_mode = 'Y' THEN
8613: pa_debug.g_err_stage:= 'Calling Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile';
8614: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8615: END IF;
8616:
8617: Pa_Prj_Period_Profile_Utils.Maintain_Prj_Period_Profile(
8618: p_project_id => p_target_project_id
8641: g_target_period_profile_tbl(l_index) := x_target_period_profile_id;
8642:
8643: END IF; /* l_create_period_profile = 'Y' */
8644:
8645: IF p_pa_debug_mode = 'Y' THEN
8646: pa_debug.g_err_stage:= 'Exiting Get_Create_Shifted_PD_Profile';
8647: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8648: pa_debug.reset_err_stack;
8649: END IF;
8642:
8643: END IF; /* l_create_period_profile = 'Y' */
8644:
8645: IF p_pa_debug_mode = 'Y' THEN
8646: pa_debug.g_err_stage:= 'Exiting Get_Create_Shifted_PD_Profile';
8647: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8648: pa_debug.reset_err_stack;
8649: END IF;
8650: EXCEPTION
8643: END IF; /* l_create_period_profile = 'Y' */
8644:
8645: IF p_pa_debug_mode = 'Y' THEN
8646: pa_debug.g_err_stage:= 'Exiting Get_Create_Shifted_PD_Profile';
8647: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8648: pa_debug.reset_err_stack;
8649: END IF;
8650: EXCEPTION
8651:
8644:
8645: IF p_pa_debug_mode = 'Y' THEN
8646: pa_debug.g_err_stage:= 'Exiting Get_Create_Shifted_PD_Profile';
8647: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8648: pa_debug.reset_err_stack;
8649: END IF;
8650: EXCEPTION
8651:
8652: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8665: x_msg_count := l_msg_count;
8666: ELSE
8667: x_msg_count := l_msg_count;
8668: END IF;
8669: IF P_PA_DEBUG_MODE = 'Y' THEN
8670: pa_debug.reset_err_stack;
8671: END IF;
8672: RAISE;
8673:
8666: ELSE
8667: x_msg_count := l_msg_count;
8668: END IF;
8669: IF P_PA_DEBUG_MODE = 'Y' THEN
8670: pa_debug.reset_err_stack;
8671: END IF;
8672: RAISE;
8673:
8674: WHEN others THEN
8679: FND_MSG_PUB.add_exc_msg
8680: ( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
8681: ,p_procedure_name => 'Get_Create_Shifted_PD_Profile'
8682: ,p_error_text => sqlerrm);
8683: IF p_pa_debug_mode = 'Y' THEN
8684: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8685: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8686: pa_debug.reset_err_stack;
8687: END IF;
8680: ( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
8681: ,p_procedure_name => 'Get_Create_Shifted_PD_Profile'
8682: ,p_error_text => sqlerrm);
8683: IF p_pa_debug_mode = 'Y' THEN
8684: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8685: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8686: pa_debug.reset_err_stack;
8687: END IF;
8688: RAISE;
8681: ,p_procedure_name => 'Get_Create_Shifted_PD_Profile'
8682: ,p_error_text => sqlerrm);
8683: IF p_pa_debug_mode = 'Y' THEN
8684: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8685: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8686: pa_debug.reset_err_stack;
8687: END IF;
8688: RAISE;
8689: END Get_Create_Shifted_PD_Profile;
8682: ,p_error_text => sqlerrm);
8683: IF p_pa_debug_mode = 'Y' THEN
8684: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
8685: pa_debug.write(g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8686: pa_debug.reset_err_stack;
8687: END IF;
8688: RAISE;
8689: END Get_Create_Shifted_PD_Profile;
8690:
8798: x_msg_count := 0;
8799: x_return_status := FND_API.G_RET_STS_SUCCESS;
8800: SAVEPOINT copy_wp_budget_versions;
8801:
8802: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
8803: l_debug_mode := NVL(l_debug_mode, 'Y');
8804:
8805: -- Set curr function
8806:
8804:
8805: -- Set curr function
8806:
8807: IF l_debug_mode = 'Y' THEN
8808: pa_debug.set_curr_function(
8809: p_function =>'pafpcpfb.copy_wp_budget_versions'
8810: ,p_debug_mode => l_debug_mode );
8811:
8812: pa_debug.g_err_stage:='Validating input parameters';
8808: pa_debug.set_curr_function(
8809: p_function =>'pafpcpfb.copy_wp_budget_versions'
8810: ,p_debug_mode => l_debug_mode );
8811:
8812: pa_debug.g_err_stage:='Validating input parameters';
8813: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8814: END IF;
8815:
8816:
8809: p_function =>'pafpcpfb.copy_wp_budget_versions'
8810: ,p_debug_mode => l_debug_mode );
8811:
8812: pa_debug.g_err_stage:='Validating input parameters';
8813: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8814: END IF;
8815:
8816:
8817: -- Source and target sv id tables should have same number of records
8822: AND p_src_sv_ids_tbl.count <> p_copy_act_from_str_ids_tbl.count)
8823: THEN
8824:
8825: IF l_debug_mode = 'Y' THEN
8826: pa_debug.g_err_stage:='p_src_sv_ids_tbl.count is'|| p_src_sv_ids_tbl.count ;
8827: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8828:
8829: pa_debug.g_err_stage:='p_target_sv_ids_tbl.count is'|| p_target_sv_ids_tbl.count ;
8830: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8823: THEN
8824:
8825: IF l_debug_mode = 'Y' THEN
8826: pa_debug.g_err_stage:='p_src_sv_ids_tbl.count is'|| p_src_sv_ids_tbl.count ;
8827: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8828:
8829: pa_debug.g_err_stage:='p_target_sv_ids_tbl.count is'|| p_target_sv_ids_tbl.count ;
8830: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8831:
8825: IF l_debug_mode = 'Y' THEN
8826: pa_debug.g_err_stage:='p_src_sv_ids_tbl.count is'|| p_src_sv_ids_tbl.count ;
8827: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8828:
8829: pa_debug.g_err_stage:='p_target_sv_ids_tbl.count is'|| p_target_sv_ids_tbl.count ;
8830: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8831:
8832: IF p_copy_act_from_str_ids_tbl IS NOT NULL THEN
8833: pa_debug.g_err_stage:='p_copy_act_from_str_ids_tbl.count is'
8826: pa_debug.g_err_stage:='p_src_sv_ids_tbl.count is'|| p_src_sv_ids_tbl.count ;
8827: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8828:
8829: pa_debug.g_err_stage:='p_target_sv_ids_tbl.count is'|| p_target_sv_ids_tbl.count ;
8830: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8831:
8832: IF p_copy_act_from_str_ids_tbl IS NOT NULL THEN
8833: pa_debug.g_err_stage:='p_copy_act_from_str_ids_tbl.count is'
8834: || p_copy_act_from_str_ids_tbl.count ;
8829: pa_debug.g_err_stage:='p_target_sv_ids_tbl.count is'|| p_target_sv_ids_tbl.count ;
8830: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8831:
8832: IF p_copy_act_from_str_ids_tbl IS NOT NULL THEN
8833: pa_debug.g_err_stage:='p_copy_act_from_str_ids_tbl.count is'
8834: || p_copy_act_from_str_ids_tbl.count ;
8835: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8836: END IF;
8837: END IF;
8831:
8832: IF p_copy_act_from_str_ids_tbl IS NOT NULL THEN
8833: pa_debug.g_err_stage:='p_copy_act_from_str_ids_tbl.count is'
8834: || p_copy_act_from_str_ids_tbl.count ;
8835: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8836: END IF;
8837: END IF;
8838:
8839: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8847: --If the tables are empty then return
8848: IF p_src_sv_ids_tbl.count=0 THEN
8849:
8850: IF l_debug_mode = 'Y' THEN
8851: pa_debug.g_err_stage:='The input tables are empty' ;
8852: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8853: pa_debug.reset_curr_function;
8854: END IF;
8855: RETURN;
8848: IF p_src_sv_ids_tbl.count=0 THEN
8849:
8850: IF l_debug_mode = 'Y' THEN
8851: pa_debug.g_err_stage:='The input tables are empty' ;
8852: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8853: pa_debug.reset_curr_function;
8854: END IF;
8855: RETURN;
8856:
8849:
8850: IF l_debug_mode = 'Y' THEN
8851: pa_debug.g_err_stage:='The input tables are empty' ;
8852: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8853: pa_debug.reset_curr_function;
8854: END IF;
8855: RETURN;
8856:
8857: END IF;
8861: IF p_source_project_id IS NULL OR
8862: p_target_project_id IS NULL THEN
8863:
8864: IF l_debug_mode = 'Y' THEN
8865: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
8866: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8867:
8868: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
8869: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8862: p_target_project_id IS NULL THEN
8863:
8864: IF l_debug_mode = 'Y' THEN
8865: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
8866: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8867:
8868: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
8869: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8870: END IF;
8864: IF l_debug_mode = 'Y' THEN
8865: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
8866: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8867:
8868: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
8869: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8870: END IF;
8871:
8872: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8865: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
8866: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8867:
8868: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
8869: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8870: END IF;
8871:
8872: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8873: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8886:
8887: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8888:
8889: IF l_debug_mode = 'Y' THEN
8890: pa_debug.g_err_stage:='pa_fp_planning_transaction_pub.add_wp_plan_type returned error';
8891: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8892: END IF;
8893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8894:
8887: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8888:
8889: IF l_debug_mode = 'Y' THEN
8890: pa_debug.g_err_stage:='pa_fp_planning_transaction_pub.add_wp_plan_type returned error';
8891: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8892: END IF;
8893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8894:
8895: END IF;
8901: WHERE use_for_workplan_flag='Y';
8902: EXCEPTION
8903: WHEN NO_DATA_FOUND THEN
8904: IF l_debug_mode = 'Y' THEN
8905: pa_debug.g_err_stage:='Adding an error message as the wp plan type is not defined';
8906: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8907: END IF;
8908: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8909: p_msg_name => 'PA_FP_NO_WP_PLAN_TYPE');
8902: EXCEPTION
8903: WHEN NO_DATA_FOUND THEN
8904: IF l_debug_mode = 'Y' THEN
8905: pa_debug.g_err_stage:='Adding an error message as the wp plan type is not defined';
8906: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8907: END IF;
8908: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8909: p_msg_name => 'PA_FP_NO_WP_PLAN_TYPE');
8910: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8910: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8911: END;
8912:
8913: IF l_debug_mode = 'Y' THEN
8914: pa_debug.g_err_stage:='About to loop thru the source version id tbl '||p_src_sv_ids_tbl.count;
8915: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8916: END IF;
8917:
8918: --Loop thru the source structure version ids table and process each structure version id
8911: END;
8912:
8913: IF l_debug_mode = 'Y' THEN
8914: pa_debug.g_err_stage:='About to loop thru the source version id tbl '||p_src_sv_ids_tbl.count;
8915: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8916: END IF;
8917:
8918: --Loop thru the source structure version ids table and process each structure version id
8919: FOR i IN p_src_sv_ids_tbl.first..p_src_sv_ids_tbl.last LOOP
8940: --Bug 3841130. As told by sheenie copy external flag should always be N in copy_wp_budget_versions.
8941: l_copy_external_flag := 'N';
8942:
8943: IF l_debug_mode = 'Y' THEN
8944: pa_debug.g_err_stage:='Calling copy budget version';
8945: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8946: END IF;
8947:
8948: --Call the method that copies the budget version
8941: l_copy_external_flag := 'N';
8942:
8943: IF l_debug_mode = 'Y' THEN
8944: pa_debug.g_err_stage:='Calling copy budget version';
8945: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8946: END IF;
8947:
8948: --Call the method that copies the budget version
8949: pa_fp_copy_from_pkg.copy_budget_version
8962:
8963: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8964:
8965: IF l_debug_mode = 'Y' THEN
8966: pa_debug.g_err_stage:='Copy Budget version returned error';
8967: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8968: END IF;
8969: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8970:
8963: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8964:
8965: IF l_debug_mode = 'Y' THEN
8966: pa_debug.g_err_stage:='Copy Budget version returned error';
8967: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8968: END IF;
8969: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8970:
8971: END IF;
8980: EXCEPTION
8981: WHEN NO_DATA_FOUND THEN
8982:
8983: IF l_debug_mode = 'Y' THEN
8984: pa_debug.g_err_stage:='No data found in pa_proj_fp_options for fin_plan_version_id '
8985: ||l_src_budget_version_id;
8986: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8987: END IF;
8988: RAISE;
8982:
8983: IF l_debug_mode = 'Y' THEN
8984: pa_debug.g_err_stage:='No data found in pa_proj_fp_options for fin_plan_version_id '
8985: ||l_src_budget_version_id;
8986: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8987: END IF;
8988: RAISE;
8989:
8990: END;
8989:
8990: END;
8991:
8992: IF l_debug_mode = 'Y' THEN
8993: pa_debug.g_err_stage:='Create FP Option';
8994: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8995: END IF;
8996:
8997: --Call the method to create the FP Option
8990: END;
8991:
8992: IF l_debug_mode = 'Y' THEN
8993: pa_debug.g_err_stage:='Create FP Option';
8994: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
8995: END IF;
8996:
8997: --Call the method to create the FP Option
8998: PA_PROJ_FP_OPTIONS_PUB.Create_Fp_Option
9010:
9011: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9012:
9013: IF l_debug_mode = 'Y' THEN
9014: pa_debug.g_err_stage:='Create_Fp_Option returned error';
9015: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9016: END IF;
9017: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9018:
9011: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9012:
9013: IF l_debug_mode = 'Y' THEN
9014: pa_debug.g_err_stage:='Create_Fp_Option returned error';
9015: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9016: END IF;
9017: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9018:
9019: END IF;
9024: FROM pa_proj_fp_options
9025: WHERE proj_fp_options_id=l_targ_proj_fp_options_id;
9026:
9027: IF l_debug_mode = 'Y' THEN
9028: pa_debug.g_err_stage:='Calling copy fp txn currencies';
9029: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9030: END IF;
9031:
9032: --Call the API to create the txn currencies
9025: WHERE proj_fp_options_id=l_targ_proj_fp_options_id;
9026:
9027: IF l_debug_mode = 'Y' THEN
9028: pa_debug.g_err_stage:='Calling copy fp txn currencies';
9029: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9030: END IF;
9031:
9032: --Call the API to create the txn currencies
9033: PA_FP_TXN_CURRENCIES_PUB.Copy_Fp_Txn_Currencies(
9041:
9042: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9043:
9044: IF l_debug_mode = 'Y' THEN
9045: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9046: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9047: END IF;
9048: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9049:
9042: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9043:
9044: IF l_debug_mode = 'Y' THEN
9045: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9046: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9047: END IF;
9048: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9049:
9050: END IF;
9060: l_src_budget_version_id_tbl.delete;
9061: l_src_budget_version_id_tbl := SYSTEM.pa_num_tbl_type(l_src_budget_version_id);
9062:
9063: IF l_debug_mode = 'Y' THEN
9064: pa_debug.write(l_module_name,'Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE ' ,5);
9065: pa_debug.write(l_module_name,'p_fp_version_ids count '|| l_budget_version_ids.count(),5);
9066: END IF;
9067:
9068: /* We are sure that there is only one record. But just looping the std way */
9061: l_src_budget_version_id_tbl := SYSTEM.pa_num_tbl_type(l_src_budget_version_id);
9062:
9063: IF l_debug_mode = 'Y' THEN
9064: pa_debug.write(l_module_name,'Calling PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE ' ,5);
9065: pa_debug.write(l_module_name,'p_fp_version_ids count '|| l_budget_version_ids.count(),5);
9066: END IF;
9067:
9068: /* We are sure that there is only one record. But just looping the std way */
9069: FOR I in l_budget_version_ids.first..l_budget_version_ids.last LOOP
9066: END IF;
9067:
9068: /* We are sure that there is only one record. But just looping the std way */
9069: FOR I in l_budget_version_ids.first..l_budget_version_ids.last LOOP
9070: pa_debug.write(l_module_name,''|| l_budget_version_ids(i),5);
9071: END LOOP;
9072: -- This parameter p_copy_mode will be used when the source project is not equal to the target project.
9073: --This will be passed as null in the MSP flow other wise it will be defaulted to 'P'.
9074: IF p_source_project_id <> p_target_project_id THEN
9093:
9094:
9095:
9096: IF l_debug_mode = 'Y' THEN
9097: pa_debug.g_err_stage:='Bulk fetching the Ids for calling copy planning txn'||' '||p_src_sv_ids_tbl(i)||' '||p_target_sv_ids_tbl(i);
9098: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9099: END IF;
9100:
9101: OPEN l_prep_plan_txn_csr( l_src_budget_version_id
9094:
9095:
9096: IF l_debug_mode = 'Y' THEN
9097: pa_debug.g_err_stage:='Bulk fetching the Ids for calling copy planning txn'||' '||p_src_sv_ids_tbl(i)||' '||p_target_sv_ids_tbl(i);
9098: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9099: END IF;
9100:
9101: OPEN l_prep_plan_txn_csr( l_src_budget_version_id
9102: ,p_src_sv_ids_tbl(i)
9107: ,l_targ_elem_version_id_tbl;
9108: CLOSE l_prep_plan_txn_csr;
9109:
9110: IF l_debug_mode = 'Y' THEN
9111: pa_debug.g_err_stage:='Calling copy planning txns after uncommenting';
9112: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9113: END IF;
9114:
9115:
9108: CLOSE l_prep_plan_txn_csr;
9109:
9110: IF l_debug_mode = 'Y' THEN
9111: pa_debug.g_err_stage:='Calling copy planning txns after uncommenting';
9112: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9113: END IF;
9114:
9115:
9116:
9135:
9136: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9137:
9138: IF l_debug_mode = 'Y' THEN
9139: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9140: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9141: END IF;
9142: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9143:
9136: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9137:
9138: IF l_debug_mode = 'Y' THEN
9139: pa_debug.g_err_stage:='Copy_Fp_Txn_Currencies returned error';
9140: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9141: END IF;
9142: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9143:
9144: END IF;
9157:
9158: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9159:
9160: IF l_debug_mode = 'Y' THEN
9161: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9162: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9163: END IF;
9164: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9165: END IF;
9158: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9159:
9160: IF l_debug_mode = 'Y' THEN
9161: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9162: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9163: END IF;
9164: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9165: END IF;
9166:
9184: );
9185: EXCEPTION
9186: WHEN OTHERS THEN
9187: IF l_debug_mode = 'Y' THEN
9188: pa_debug.g_err_stage:='PA_TASK_ASSIGNMENTS_PVT.Copy_Missing_Unplanned_Asgmts returned error';
9189: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9190: END IF;
9191: RAISE FND_API.G_EXC_ERROR;
9192: END;
9185: EXCEPTION
9186: WHEN OTHERS THEN
9187: IF l_debug_mode = 'Y' THEN
9188: pa_debug.g_err_stage:='PA_TASK_ASSIGNMENTS_PVT.Copy_Missing_Unplanned_Asgmts returned error';
9189: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9190: END IF;
9191: RAISE FND_API.G_EXC_ERROR;
9192: END;
9193: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9206:
9207: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9208:
9209: IF l_debug_mode = 'Y' THEN
9210: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9211: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9212: END IF;
9213: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9214: END IF;
9207: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9208:
9209: IF l_debug_mode = 'Y' THEN
9210: pa_debug.g_err_stage:='Update_Plan_Setup_For_WP_Copy returned error';
9211: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9212: END IF;
9213: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9214: END IF;
9215: END IF;
9223:
9224: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9225:
9226: IF l_debug_mode = 'Y' THEN
9227: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
9228: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9229: END IF;
9230: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9231: END IF;
9224: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9225:
9226: IF l_debug_mode = 'Y' THEN
9227: pa_debug.g_err_stage:='PA_PLANNING_TRANSACTION_UTILS.call_update_rep_lines_api returned error';
9228: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9229: END IF;
9230: RAISE PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
9231: END IF;
9232:
9233:
9234: END LOOP;
9235:
9236: IF l_debug_mode = 'Y' THEN
9237: pa_debug.g_err_stage:='Exiting copy_wp_budget_versions';
9238: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9239: -- reset curr function
9240: pa_debug.reset_curr_function;
9241: END IF;
9234: END LOOP;
9235:
9236: IF l_debug_mode = 'Y' THEN
9237: pa_debug.g_err_stage:='Exiting copy_wp_budget_versions';
9238: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9239: -- reset curr function
9240: pa_debug.reset_curr_function;
9241: END IF;
9242: EXCEPTION
9236: IF l_debug_mode = 'Y' THEN
9237: pa_debug.g_err_stage:='Exiting copy_wp_budget_versions';
9238: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
9239: -- reset curr function
9240: pa_debug.reset_curr_function;
9241: END IF;
9242: EXCEPTION
9243:
9244: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9260: ROLLBACK TO copy_wp_budget_versions;
9261: x_return_status := FND_API.G_RET_STS_ERROR;
9262:
9263: IF l_debug_mode = 'Y' THEN
9264: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
9265: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9266: -- reset curr function
9267: pa_debug.reset_curr_function();
9268: END IF;
9261: x_return_status := FND_API.G_RET_STS_ERROR;
9262:
9263: IF l_debug_mode = 'Y' THEN
9264: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
9265: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9266: -- reset curr function
9267: pa_debug.reset_curr_function();
9268: END IF;
9269: RETURN;
9263: IF l_debug_mode = 'Y' THEN
9264: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
9265: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9266: -- reset curr function
9267: pa_debug.reset_curr_function();
9268: END IF;
9269: RETURN;
9270: WHEN OTHERS THEN
9271: ROLLBACK TO copy_wp_budget_versions;
9276: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_copy_from_pkg'
9277: ,p_procedure_name => 'copy_wp_budget_versions');
9278:
9279: IF l_debug_mode = 'Y' THEN
9280: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9281: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9282: -- reset curr function
9283: pa_debug.Reset_Curr_Function();
9284: END IF;
9277: ,p_procedure_name => 'copy_wp_budget_versions');
9278:
9279: IF l_debug_mode = 'Y' THEN
9280: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9281: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9282: -- reset curr function
9283: pa_debug.Reset_Curr_Function();
9284: END IF;
9285: RAISE;
9279: IF l_debug_mode = 'Y' THEN
9280: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9281: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
9282: -- reset curr function
9283: pa_debug.Reset_Curr_Function();
9284: END IF;
9285: RAISE;
9286:
9287: END copy_wp_budget_versions;
9480: BEGIN
9481:
9482: x_msg_count := 0;
9483: x_return_status := FND_API.G_RET_STS_SUCCESS;
9484: IF P_PA_DEBUG_MODE = 'Y' THEN
9485: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines_Appr_Rev');
9486: END IF;
9487: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9488: l_debug_mode := NVL(l_debug_mode, 'Y');
9481:
9482: x_msg_count := 0;
9483: x_return_status := FND_API.G_RET_STS_SUCCESS;
9484: IF P_PA_DEBUG_MODE = 'Y' THEN
9485: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines_Appr_Rev');
9486: END IF;
9487: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9488: l_debug_mode := NVL(l_debug_mode, 'Y');
9489: IF P_PA_DEBUG_MODE = 'Y' THEN
9483: x_return_status := FND_API.G_RET_STS_SUCCESS;
9484: IF P_PA_DEBUG_MODE = 'Y' THEN
9485: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines_Appr_Rev');
9486: END IF;
9487: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9488: l_debug_mode := NVL(l_debug_mode, 'Y');
9489: IF P_PA_DEBUG_MODE = 'Y' THEN
9490: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
9491: END IF;
9485: pa_debug.set_err_stack('PA_FP_COPY_FROM_PKG.Copy_Budget_Lines_Appr_Rev');
9486: END IF;
9487: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9488: l_debug_mode := NVL(l_debug_mode, 'Y');
9489: IF P_PA_DEBUG_MODE = 'Y' THEN
9490: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
9491: END IF;
9492: -- Checking for all valid input parametrs
9493:
9486: END IF;
9487: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9488: l_debug_mode := NVL(l_debug_mode, 'Y');
9489: IF P_PA_DEBUG_MODE = 'Y' THEN
9490: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
9491: END IF;
9492: -- Checking for all valid input parametrs
9493:
9494: IF P_PA_DEBUG_MODE = 'Y' THEN
9490: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
9491: END IF;
9492: -- Checking for all valid input parametrs
9493:
9494: IF P_PA_DEBUG_MODE = 'Y' THEN
9495: pa_debug.g_err_stage := 'Checking for valid parameters:';
9496: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9497: END IF;
9498:
9491: END IF;
9492: -- Checking for all valid input parametrs
9493:
9494: IF P_PA_DEBUG_MODE = 'Y' THEN
9495: pa_debug.g_err_stage := 'Checking for valid parameters:';
9496: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9497: END IF;
9498:
9499: IF (p_source_plan_version_id IS NULL) OR
9492: -- Checking for all valid input parametrs
9493:
9494: IF P_PA_DEBUG_MODE = 'Y' THEN
9495: pa_debug.g_err_stage := 'Checking for valid parameters:';
9496: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9497: END IF;
9498:
9499: IF (p_source_plan_version_id IS NULL) OR
9500: (p_target_plan_version_id IS NULL)
9499: IF (p_source_plan_version_id IS NULL) OR
9500: (p_target_plan_version_id IS NULL)
9501: THEN
9502:
9503: IF P_PA_DEBUG_MODE = 'Y' THEN
9504: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
9505: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9506: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
9507: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9500: (p_target_plan_version_id IS NULL)
9501: THEN
9502:
9503: IF P_PA_DEBUG_MODE = 'Y' THEN
9504: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
9505: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9506: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
9507: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9508: END IF;
9501: THEN
9502:
9503: IF P_PA_DEBUG_MODE = 'Y' THEN
9504: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
9505: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9506: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
9507: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9508: END IF;
9509:
9502:
9503: IF P_PA_DEBUG_MODE = 'Y' THEN
9504: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
9505: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9506: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
9507: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9508: END IF;
9509:
9510: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
9503: IF P_PA_DEBUG_MODE = 'Y' THEN
9504: pa_debug.g_err_stage := 'Source_plan='||p_source_plan_version_id;
9505: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9506: pa_debug.g_err_stage := 'Target_plan'||p_target_plan_version_id;
9507: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9508: END IF;
9509:
9510: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
9511: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9515: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9516:
9517: END IF;
9518:
9519: IF P_PA_DEBUG_MODE = 'Y' THEN
9520: pa_debug.g_err_stage := 'Parameter validation complete';
9521: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9522: END IF;
9523:
9516:
9517: END IF;
9518:
9519: IF P_PA_DEBUG_MODE = 'Y' THEN
9520: pa_debug.g_err_stage := 'Parameter validation complete';
9521: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9522: END IF;
9523:
9524: --make adj percentage zero if passed as null
9517: END IF;
9518:
9519: IF P_PA_DEBUG_MODE = 'Y' THEN
9520: pa_debug.g_err_stage := 'Parameter validation complete';
9521: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9522: END IF;
9523:
9524: --make adj percentage zero if passed as null
9525:
9527:
9528: -- Fetching the flags of target version using fin_plan_prefernce_code
9529:
9530:
9531: IF P_PA_DEBUG_MODE = 'Y' THEN
9532: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
9533: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9534: END IF;
9535:
9528: -- Fetching the flags of target version using fin_plan_prefernce_code
9529:
9530:
9531: IF P_PA_DEBUG_MODE = 'Y' THEN
9532: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
9533: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9534: END IF;
9535:
9536: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9529:
9530:
9531: IF P_PA_DEBUG_MODE = 'Y' THEN
9532: pa_debug.g_err_stage:='Fetching the raw_cost,burdened_cost and revenue flags of target_version';
9533: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9534: END IF;
9535:
9536: SELECT DECODE(fin_plan_preference_code -- l_revenue_flag
9537: ,PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ,'Y'
9952: ,x_msg_count => l_msg_count
9953: ,x_msg_data => l_msg_data);
9954:
9955: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9956: IF P_PA_debug_mode = 'Y' THEN
9957: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9958: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9959: END IF;
9960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9953: ,x_msg_data => l_msg_data);
9954:
9955: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9956: IF P_PA_debug_mode = 'Y' THEN
9957: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9958: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9959: END IF;
9960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9961: END IF;
9954:
9955: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9956: IF P_PA_debug_mode = 'Y' THEN
9957: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9958: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9959: END IF;
9960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9961: END IF;
9962: END IF;
9979: x_msg_count => l_msg_count,
9980: x_msg_data => l_msg_data);
9981:
9982: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9983: IF P_PA_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
9985: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9986: END IF;
9987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9980: x_msg_data => l_msg_data);
9981:
9982: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9983: IF P_PA_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
9985: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9986: END IF;
9987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9988:
9981:
9982: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9983: IF P_PA_debug_mode = 'Y' THEN
9984: pa_debug.g_err_stage:= 'Error in derv_missing_amts_chk_neg_qty';
9985: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
9986: END IF;
9987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9988:
9989: END IF;
9989: END IF;
9990:
9991: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
9992:
9993: IF P_PA_DEBUG_MODE = 'Y' THEN
9994: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines_Appr_Rev';
9995: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9996: pa_debug.reset_err_stack; -- bug:- 2815593
9997: END IF;
9990:
9991: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
9992:
9993: IF P_PA_DEBUG_MODE = 'Y' THEN
9994: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines_Appr_Rev';
9995: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9996: pa_debug.reset_err_stack; -- bug:- 2815593
9997: END IF;
9998: EXCEPTION
9991: END IF;--IF p_derv_rates_missing_amts_flag = 'Y' THEN
9992:
9993: IF P_PA_DEBUG_MODE = 'Y' THEN
9994: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines_Appr_Rev';
9995: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9996: pa_debug.reset_err_stack; -- bug:- 2815593
9997: END IF;
9998: EXCEPTION
9999:
9992:
9993: IF P_PA_DEBUG_MODE = 'Y' THEN
9994: pa_debug.g_err_stage:='Exiting Copy_Budget_Lines_Appr_Rev';
9995: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,3);
9996: pa_debug.reset_err_stack; -- bug:- 2815593
9997: END IF;
9998: EXCEPTION
9999:
10000: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10013: x_msg_count := l_msg_count;
10014: END IF;
10015: x_return_status := FND_API.G_RET_STS_ERROR;
10016:
10017: IF P_PA_DEBUG_MODE = 'Y' THEN
10018: pa_debug.g_err_stage:='Invalid arguments passed';
10019: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
10020: pa_debug.reset_err_stack;
10021: END IF;
10014: END IF;
10015: x_return_status := FND_API.G_RET_STS_ERROR;
10016:
10017: IF P_PA_DEBUG_MODE = 'Y' THEN
10018: pa_debug.g_err_stage:='Invalid arguments passed';
10019: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
10020: pa_debug.reset_err_stack;
10021: END IF;
10022: RAISE;
10015: x_return_status := FND_API.G_RET_STS_ERROR;
10016:
10017: IF P_PA_DEBUG_MODE = 'Y' THEN
10018: pa_debug.g_err_stage:='Invalid arguments passed';
10019: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
10020: pa_debug.reset_err_stack;
10021: END IF;
10022: RAISE;
10023:
10016:
10017: IF P_PA_DEBUG_MODE = 'Y' THEN
10018: pa_debug.g_err_stage:='Invalid arguments passed';
10019: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,5);
10020: pa_debug.reset_err_stack;
10021: END IF;
10022: RAISE;
10023:
10024: WHEN Others THEN
10027: x_msg_data := SQLERRM;
10028: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
10029: ,p_procedure_name => 'COPY_BUDGET_LINES_APPR_REV');
10030:
10031: IF P_PA_DEBUG_MODE = 'Y' THEN
10032: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
10033: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,6);
10034: pa_debug.reset_err_stack;
10035: END IF;
10028: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_COPY_FROM_PKG'
10029: ,p_procedure_name => 'COPY_BUDGET_LINES_APPR_REV');
10030:
10031: IF P_PA_DEBUG_MODE = 'Y' THEN
10032: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
10033: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,6);
10034: pa_debug.reset_err_stack;
10035: END IF;
10036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10029: ,p_procedure_name => 'COPY_BUDGET_LINES_APPR_REV');
10030:
10031: IF P_PA_DEBUG_MODE = 'Y' THEN
10032: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
10033: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,6);
10034: pa_debug.reset_err_stack;
10035: END IF;
10036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10037: END Copy_Budget_Lines_Appr_Rev;
10030:
10031: IF P_PA_DEBUG_MODE = 'Y' THEN
10032: pa_debug.g_err_stage:='Unexpected error'||SQLERRM;
10033: pa_debug.write('Copy_Budget_Lines_Appr_Rev: ' || g_module_name,pa_debug.g_err_stage,6);
10034: pa_debug.reset_err_stack;
10035: END IF;
10036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10037: END Copy_Budget_Lines_Appr_Rev;
10038:
10150:
10151: x_msg_count := 0;
10152: x_return_status := FND_API.G_RET_STS_SUCCESS;
10153:
10154: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10155: l_debug_mode := NVL(l_debug_mode, 'Y');
10156:
10157: -- Set curr function
10158: IF l_debug_mode = 'Y' THEN
10155: l_debug_mode := NVL(l_debug_mode, 'Y');
10156:
10157: -- Set curr function
10158: IF l_debug_mode = 'Y' THEN
10159: pa_debug.set_curr_function(
10160: p_function =>'PA_FP_COPY_FROM_PKG.Update_Plan_Setup_For_WP_Copy'
10161: ,p_debug_mode => l_debug_mode );
10162:
10163: -- Check for business rules violations
10160: p_function =>'PA_FP_COPY_FROM_PKG.Update_Plan_Setup_For_WP_Copy'
10161: ,p_debug_mode => l_debug_mode );
10162:
10163: -- Check for business rules violations
10164: pa_debug.g_err_stage:='Validating input parameters';
10165: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,3);
10166: END IF;
10167:
10168: IF (p_project_id IS NULL) OR
10161: ,p_debug_mode => l_debug_mode );
10162:
10163: -- Check for business rules violations
10164: pa_debug.g_err_stage:='Validating input parameters';
10165: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,3);
10166: END IF;
10167:
10168: IF (p_project_id IS NULL) OR
10169: (p_wp_version_id IS NULL)
10169: (p_wp_version_id IS NULL)
10170: THEN
10171:
10172: IF l_debug_mode = 'Y' THEN
10173: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10174: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10175:
10176: pa_debug.g_err_stage:='p_wp_version_id = '||p_wp_version_id;
10177: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10170: THEN
10171:
10172: IF l_debug_mode = 'Y' THEN
10173: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10174: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10175:
10176: pa_debug.g_err_stage:='p_wp_version_id = '||p_wp_version_id;
10177: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10178: END IF;
10172: IF l_debug_mode = 'Y' THEN
10173: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10174: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10175:
10176: pa_debug.g_err_stage:='p_wp_version_id = '||p_wp_version_id;
10177: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10178: END IF;
10179:
10180: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10173: pa_debug.g_err_stage:='p_project_id = '||p_project_id;
10174: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10175:
10176: pa_debug.g_err_stage:='p_wp_version_id = '||p_wp_version_id;
10177: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10178: END IF;
10179:
10180: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10181: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10275: ,x_msg_data => x_msg_data );
10276:
10277: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10278: IF l_debug_mode = 'Y' THEN
10279: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies
10280: api returned error';
10281: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10282: END IF;
10283: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10277: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10278: IF l_debug_mode = 'Y' THEN
10279: pa_debug.g_err_stage:='Called API PA_FP_TXN_CURRENCIES_PUB.copy_fp_txn_currencies
10280: api returned error';
10281: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10282: END IF;
10283: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10284: END IF;
10285:
10298: ,x_msg_data => x_msg_data);
10299:
10300: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10301: IF l_debug_mode = 'Y' THEN
10302: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids
10303: api returned error';
10304: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10305: END IF;
10306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10300: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10301: IF l_debug_mode = 'Y' THEN
10302: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids
10303: api returned error';
10304: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10305: END IF;
10306: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10307: END IF;
10308:
10307: END IF;
10308:
10309: -- Update all the task planning elements with new PEOPLE rlmid
10310: IF l_debug_mode = 'Y' THEN
10311: pa_debug.g_err_stage:='Updaing res assignments with new PEOPLE rlmid : '
10312: || l_people_res_class_rlm_id;
10313: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,3);
10314: END IF;
10315:
10309: -- Update all the task planning elements with new PEOPLE rlmid
10310: IF l_debug_mode = 'Y' THEN
10311: pa_debug.g_err_stage:='Updaing res assignments with new PEOPLE rlmid : '
10312: || l_people_res_class_rlm_id;
10313: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,3);
10314: END IF;
10315:
10316: UPDATE pa_resource_assignments
10317: SET resource_list_member_id = l_people_res_class_rlm_id
10346:
10347: -- Bug 3579153 Check return status
10348: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10349: IF l_debug_mode = 'Y' THEN
10350: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
10351: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10352: END IF;
10353: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10354: ELSE
10347: -- Bug 3579153 Check return status
10348: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10349: IF l_debug_mode = 'Y' THEN
10350: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api returned error';
10351: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10352: END IF;
10353: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10354: ELSE
10355: -- Check count of the required out tables to be the same
10356: IF l_txn_source_id_tbl.count <> l_rbs_element_id_tbl.count OR
10357: l_txn_source_id_tbl.count <> l_txn_accum_header_id_tbl.count
10358: THEN
10359: IF l_debug_mode = 'Y' THEN
10360: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
10361: returned out tables with different count';
10362: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10363: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
10364: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10358: THEN
10359: IF l_debug_mode = 'Y' THEN
10360: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
10361: returned out tables with different count';
10362: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10363: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
10364: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10365: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
10366: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10359: IF l_debug_mode = 'Y' THEN
10360: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
10361: returned out tables with different count';
10362: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10363: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
10364: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10365: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
10366: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10367: pa_debug.g_err_stage:=
10360: pa_debug.g_err_stage:='Called API PA_PLANNING_TRANSACTION_UTILS.Map_Rlmi_Rbs api
10361: returned out tables with different count';
10362: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10363: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
10364: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10365: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
10366: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10367: pa_debug.g_err_stage:=
10368: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
10361: returned out tables with different count';
10362: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10363: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
10364: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10365: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
10366: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10367: pa_debug.g_err_stage:=
10368: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
10369: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10362: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10363: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
10364: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10365: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
10366: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10367: pa_debug.g_err_stage:=
10368: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
10369: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10370: END IF;
10363: pa_debug.g_err_stage:='l_txn_source_id_tbl.count = ' || l_txn_source_id_tbl.count;
10364: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10365: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
10366: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10367: pa_debug.g_err_stage:=
10368: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
10369: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10370: END IF;
10371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10365: pa_debug.g_err_stage:='l_rbs_element_id_tbl.count = ' || l_rbs_element_id_tbl.count;
10366: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10367: pa_debug.g_err_stage:=
10368: 'l_txn_accum_header_id_tbl.count = ' || l_txn_accum_header_id_tbl.count;
10369: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10370: END IF;
10371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10372: END IF;
10373: END IF;
10394:
10395: END IF;
10396:
10397: IF l_debug_mode = 'Y' THEN
10398: pa_debug.g_err_stage:='Exiting Update_Plan_Setup_For_WP_Copy';
10399: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,3);
10400: -- reset curr function
10401: pa_debug.reset_curr_function();
10402: END IF;
10395: END IF;
10396:
10397: IF l_debug_mode = 'Y' THEN
10398: pa_debug.g_err_stage:='Exiting Update_Plan_Setup_For_WP_Copy';
10399: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,3);
10400: -- reset curr function
10401: pa_debug.reset_curr_function();
10402: END IF;
10403:
10397: IF l_debug_mode = 'Y' THEN
10398: pa_debug.g_err_stage:='Exiting Update_Plan_Setup_For_WP_Copy';
10399: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,3);
10400: -- reset curr function
10401: pa_debug.reset_curr_function();
10402: END IF;
10403:
10404: EXCEPTION
10405:
10422:
10423: x_return_status := FND_API.G_RET_STS_ERROR;
10424:
10425: IF l_debug_mode = 'Y' THEN
10426: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10427: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10428: -- reset curr function
10429: pa_debug.reset_curr_function();
10430: END IF;
10423: x_return_status := FND_API.G_RET_STS_ERROR;
10424:
10425: IF l_debug_mode = 'Y' THEN
10426: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10427: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10428: -- reset curr function
10429: pa_debug.reset_curr_function();
10430: END IF;
10431: RETURN;
10425: IF l_debug_mode = 'Y' THEN
10426: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
10427: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10428: -- reset curr function
10429: pa_debug.reset_curr_function();
10430: END IF;
10431: RETURN;
10432: WHEN Others THEN
10433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10437: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_COPY_FROM_PKG'
10438: ,p_procedure_name => 'Update_Plan_Setup_For_WP_Copy');
10439:
10440: IF l_debug_mode = 'Y' THEN
10441: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10442: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10443: -- reset curr function
10444: pa_debug.Reset_Curr_Function();
10445: END IF;
10438: ,p_procedure_name => 'Update_Plan_Setup_For_WP_Copy');
10439:
10440: IF l_debug_mode = 'Y' THEN
10441: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10442: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10443: -- reset curr function
10444: pa_debug.Reset_Curr_Function();
10445: END IF;
10446:
10440: IF l_debug_mode = 'Y' THEN
10441: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10442: pa_debug.write('Update_Plan_Setup_For_WP_Copy: ' || g_module_name,pa_debug.g_err_stage,5);
10443: -- reset curr function
10444: pa_debug.Reset_Curr_Function();
10445: END IF;
10446:
10447: RAISE;
10448: END Update_Plan_Setup_For_WP_Copy;