[Home] [Help]
1: package body PA_PROJ_FP_OPTIONS_PUB as
2: /* $Header: PAFPOPPB.pls 120.10 2007/11/26 15:50:53 rthumma ship $ */
3:
4: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
5: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
6:
7: /*==================================================================================================
8: CREATE_FP_OPTION: This procedure inserts or updates records in 3 table depending
9: on the Source and the Target FP Option Details passed to this procedure.
153:
154:
155: BEGIN
156: FND_MSG_PUB.initialize;
157: IF P_PA_DEBUG_MODE = 'Y' THEN
158: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option');
159: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
160: l_debug_mode := NVL(l_debug_mode, 'Y');
161: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
154:
155: BEGIN
156: FND_MSG_PUB.initialize;
157: IF P_PA_DEBUG_MODE = 'Y' THEN
158: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option');
159: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
160: l_debug_mode := NVL(l_debug_mode, 'Y');
161: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
162: END IF;
155: BEGIN
156: FND_MSG_PUB.initialize;
157: IF P_PA_DEBUG_MODE = 'Y' THEN
158: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option');
159: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
160: l_debug_mode := NVL(l_debug_mode, 'Y');
161: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
162: END IF;
163:
157: IF P_PA_DEBUG_MODE = 'Y' THEN
158: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option');
159: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
160: l_debug_mode := NVL(l_debug_mode, 'Y');
161: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
162: END IF;
163:
164: x_msg_count := 0;
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
164: x_msg_count := 0;
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166:
167: l_stage := 200;
168: IF P_PA_DEBUG_MODE = 'Y' THEN
169: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': entered create_fp_option';
170: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
171: END IF;
172:
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166:
167: l_stage := 200;
168: IF P_PA_DEBUG_MODE = 'Y' THEN
169: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': entered create_fp_option';
170: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
171: END IF;
172:
173: IF p_target_fp_preference_code IS NOT NULL THEN
166:
167: l_stage := 200;
168: IF P_PA_DEBUG_MODE = 'Y' THEN
169: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': entered create_fp_option';
170: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
171: END IF;
172:
173: IF p_target_fp_preference_code IS NOT NULL THEN
174: l_fp_preference_code := p_target_fp_preference_code;
178: IF (px_target_proj_fp_option_id IS NULL) THEN
179: IF (p_target_fp_option_level_code IS NULL) THEN
180: /* Option Level Code should not be NULL when the Target is NULL */
181: l_stage := 340;
182: IF P_PA_DEBUG_MODE = 'Y' THEN
183: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - Option Level Code should not be NULL';
184: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
185: END IF;
186: x_return_status := FND_API.G_RET_STS_ERROR;
179: IF (p_target_fp_option_level_code IS NULL) THEN
180: /* Option Level Code should not be NULL when the Target is NULL */
181: l_stage := 340;
182: IF P_PA_DEBUG_MODE = 'Y' THEN
183: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - Option Level Code should not be NULL';
184: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
185: END IF;
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
180: /* Option Level Code should not be NULL when the Target is NULL */
181: l_stage := 340;
182: IF P_PA_DEBUG_MODE = 'Y' THEN
183: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - Option Level Code should not be NULL';
184: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
185: END IF;
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
188: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
192: l_stage := 300;
193: IF (p_target_plan_type_id IS NULL) THEN
194: /* Plan Type ID cannot be NULL when Target Proj FP Option is NULL and Option Level
195: Code is PLAN_TYPE */
196: IF P_PA_DEBUG_MODE = 'Y' THEN
197: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Type ID cannot be NULL.';
198: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
199: END IF;
200: x_return_status := FND_API.G_RET_STS_ERROR;
193: IF (p_target_plan_type_id IS NULL) THEN
194: /* Plan Type ID cannot be NULL when Target Proj FP Option is NULL and Option Level
195: Code is PLAN_TYPE */
196: IF P_PA_DEBUG_MODE = 'Y' THEN
197: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Type ID cannot be NULL.';
198: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
199: END IF;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
194: /* Plan Type ID cannot be NULL when Target Proj FP Option is NULL and Option Level
195: Code is PLAN_TYPE */
196: IF P_PA_DEBUG_MODE = 'Y' THEN
197: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Type ID cannot be NULL.';
198: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
199: END IF;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
202: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
207: PLAN_VERSION. */
208: l_stage := 320;
209: IF (p_target_plan_type_id IS NULL) THEN
210:
211: IF P_PA_DEBUG_MODE = 'Y' THEN
212: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Type ID cannot be NULL.';
213: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
214: END IF;
215: x_return_status := FND_API.G_RET_STS_ERROR;
208: l_stage := 320;
209: IF (p_target_plan_type_id IS NULL) THEN
210:
211: IF P_PA_DEBUG_MODE = 'Y' THEN
212: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Type ID cannot be NULL.';
213: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
214: END IF;
215: x_return_status := FND_API.G_RET_STS_ERROR;
216: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
209: IF (p_target_plan_type_id IS NULL) THEN
210:
211: IF P_PA_DEBUG_MODE = 'Y' THEN
212: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Type ID cannot be NULL.';
213: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
214: END IF;
215: x_return_status := FND_API.G_RET_STS_ERROR;
216: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
217: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
216: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
217: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
218: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
219: ELSIF (p_target_fin_plan_version_id IS NULL) THEN
220: IF P_PA_DEBUG_MODE = 'Y' THEN
221: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Version ID cannot be NULL.';
222: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
223: END IF;
224: x_return_status := FND_API.G_RET_STS_ERROR;
217: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
218: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
219: ELSIF (p_target_fin_plan_version_id IS NULL) THEN
220: IF P_PA_DEBUG_MODE = 'Y' THEN
221: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Version ID cannot be NULL.';
222: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
223: END IF;
224: x_return_status := FND_API.G_RET_STS_ERROR;
225: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
218: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
219: ELSIF (p_target_fin_plan_version_id IS NULL) THEN
220: IF P_PA_DEBUG_MODE = 'Y' THEN
221: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Plan Version ID cannot be NULL.';
222: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
223: END IF;
224: x_return_status := FND_API.G_RET_STS_ERROR;
225: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
226: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
227: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
228: END IF;
229: END IF;
230:
231: IF P_PA_DEBUG_MODE = 'Y' THEN
232: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target option id is null. Populating from inputs';
233: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
234: END IF;
235:
228: END IF;
229: END IF;
230:
231: IF P_PA_DEBUG_MODE = 'Y' THEN
232: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target option id is null. Populating from inputs';
233: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
234: END IF;
235:
236: /* if target is null then these variables are validated for input values. Hence initialize these */
229: END IF;
230:
231: IF P_PA_DEBUG_MODE = 'Y' THEN
232: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target option id is null. Populating from inputs';
233: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
234: END IF;
235:
236: /* if target is null then these variables are validated for input values. Hence initialize these */
237: l_target_option_level_code := p_target_fp_option_level_code;
242: and other columns from the database for this Proj FP Option ID so that even if
243: NULL values are passed in the parameters, the database values retrieved are passed
244: to the Table Handlers PA_PROJ_FP_OPTIONS_PKG.update_row and insert_row. */
245:
246: IF P_PA_DEBUG_MODE = 'Y' THEN
247: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target option id is not null. Populating from target';
248: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
249: END IF;
250:
243: NULL values are passed in the parameters, the database values retrieved are passed
244: to the Table Handlers PA_PROJ_FP_OPTIONS_PKG.update_row and insert_row. */
245:
246: IF P_PA_DEBUG_MODE = 'Y' THEN
247: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target option id is not null. Populating from target';
248: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
249: END IF;
250:
251: SELECT fin_plan_type_id, fin_plan_version_id, fin_plan_option_level_code,
244: to the Table Handlers PA_PROJ_FP_OPTIONS_PKG.update_row and insert_row. */
245:
246: IF P_PA_DEBUG_MODE = 'Y' THEN
247: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target option id is not null. Populating from target';
248: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
249: END IF;
250:
251: SELECT fin_plan_type_id, fin_plan_version_id, fin_plan_option_level_code,
252: nvl(l_fp_preference_code, fin_plan_preference_code) /* get only if l_fp_preference_code is not null */
263: a new record needs to be inserted into Proj FP Options based on the Target_FP_Pref_Code. Hence
264: Target_FP_Pref_Code should be NOT NULL for this case. */
265: l_stage := 360;
266:
267: IF P_PA_DEBUG_MODE = 'Y' THEN
268: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is null';
269: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
270: END IF;
271: IF (l_fp_preference_code is NULL) THEN /* by this time if l_fp_preference_code is not null then its error */
264: Target_FP_Pref_Code should be NOT NULL for this case. */
265: l_stage := 360;
266:
267: IF P_PA_DEBUG_MODE = 'Y' THEN
268: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is null';
269: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
270: END IF;
271: IF (l_fp_preference_code is NULL) THEN /* by this time if l_fp_preference_code is not null then its error */
272: IF P_PA_DEBUG_MODE = 'Y' THEN
265: l_stage := 360;
266:
267: IF P_PA_DEBUG_MODE = 'Y' THEN
268: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is null';
269: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
270: END IF;
271: IF (l_fp_preference_code is NULL) THEN /* by this time if l_fp_preference_code is not null then its error */
272: IF P_PA_DEBUG_MODE = 'Y' THEN
273: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - FP Preference Code should not be NULL';
268: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is null';
269: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
270: END IF;
271: IF (l_fp_preference_code is NULL) THEN /* by this time if l_fp_preference_code is not null then its error */
272: IF P_PA_DEBUG_MODE = 'Y' THEN
273: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - FP Preference Code should not be NULL';
274: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
275: END IF;
276: x_return_status := FND_API.G_RET_STS_ERROR;
269: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
270: END IF;
271: IF (l_fp_preference_code is NULL) THEN /* by this time if l_fp_preference_code is not null then its error */
272: IF P_PA_DEBUG_MODE = 'Y' THEN
273: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - FP Preference Code should not be NULL';
274: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
275: END IF;
276: x_return_status := FND_API.G_RET_STS_ERROR;
277: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
270: END IF;
271: IF (l_fp_preference_code is NULL) THEN /* by this time if l_fp_preference_code is not null then its error */
272: IF P_PA_DEBUG_MODE = 'Y' THEN
273: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - FP Preference Code should not be NULL';
274: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
275: END IF;
276: x_return_status := FND_API.G_RET_STS_ERROR;
277: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
278: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
281: ELSE
282: /* get this from source option. As the validation is already done source cannot be null
283: at this point */
284:
285: IF P_PA_DEBUG_MODE = 'Y' THEN
286: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is NOT null. Getting preference code';
287: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
288: END IF;
289: /* Selected l_source_fp_preference_code for Bug 3149010 */
282: /* get this from source option. As the validation is already done source cannot be null
283: at this point */
284:
285: IF P_PA_DEBUG_MODE = 'Y' THEN
286: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is NOT null. Getting preference code';
287: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
288: END IF;
289: /* Selected l_source_fp_preference_code for Bug 3149010 */
290:
283: at this point */
284:
285: IF P_PA_DEBUG_MODE = 'Y' THEN
286: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is NOT null. Getting preference code';
287: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
288: END IF;
289: /* Selected l_source_fp_preference_code for Bug 3149010 */
290:
291: SELECT nvl(l_fp_preference_code,fin_plan_preference_code),
308: END IF;
309:
310: l_stage := 400;
311: IF (p_target_project_id IS NULL) THEN
312: IF P_PA_DEBUG_MODE = 'Y' THEN
313: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Project ID cannot be NULL.';
314: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
315: END IF;
316: x_return_status := FND_API.G_RET_STS_ERROR;
309:
310: l_stage := 400;
311: IF (p_target_project_id IS NULL) THEN
312: IF P_PA_DEBUG_MODE = 'Y' THEN
313: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Project ID cannot be NULL.';
314: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
315: END IF;
316: x_return_status := FND_API.G_RET_STS_ERROR;
317: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
310: l_stage := 400;
311: IF (p_target_project_id IS NULL) THEN
312: IF P_PA_DEBUG_MODE = 'Y' THEN
313: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Project ID cannot be NULL.';
314: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
315: END IF;
316: x_return_status := FND_API.G_RET_STS_ERROR;
317: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
318: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
330:
331:
332: IF (p_source_proj_fp_option_id IS NOT NULL) THEN
333:
334: IF P_PA_DEBUG_MODE = 'Y' THEN
335: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is NOT null. Getting fp_cols from source';
336: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
337: END IF;
338: get_fp_options(p_proj_fp_options_id => p_source_proj_fp_option_id
331:
332: IF (p_source_proj_fp_option_id IS NOT NULL) THEN
333:
334: IF P_PA_DEBUG_MODE = 'Y' THEN
335: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is NOT null. Getting fp_cols from source';
336: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
337: END IF;
338: get_fp_options(p_proj_fp_options_id => p_source_proj_fp_option_id
339: ,p_target_fp_options_id => px_target_proj_fp_option_id /* Bug 3144283 */
332: IF (p_source_proj_fp_option_id IS NOT NULL) THEN
333:
334: IF P_PA_DEBUG_MODE = 'Y' THEN
335: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': source option id is NOT null. Getting fp_cols from source';
336: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
337: END IF;
338: get_fp_options(p_proj_fp_options_id => p_source_proj_fp_option_id
339: ,p_target_fp_options_id => px_target_proj_fp_option_id /* Bug 3144283 */
340: ,p_fin_plan_preference_code => l_fp_preference_code
360: FP_Cols_Rec := get_default_fp_options(l_fp_preference_code,p_target_project_id,p_target_plan_type_id);
361:
362: ELSE
363: IF px_target_proj_fp_option_id IS NOT NULL THEN
364: IF P_PA_DEBUG_MODE = 'Y' THEN
365: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target is not null and source is null. Get parent of target';
366: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
367: END IF;
368: l_par_Proj_FP_Options_ID := get_parent_fp_option_id(px_target_proj_fp_option_id);
361:
362: ELSE
363: IF px_target_proj_fp_option_id IS NOT NULL THEN
364: IF P_PA_DEBUG_MODE = 'Y' THEN
365: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target is not null and source is null. Get parent of target';
366: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
367: END IF;
368: l_par_Proj_FP_Options_ID := get_parent_fp_option_id(px_target_proj_fp_option_id);
369: ELSE
362: ELSE
363: IF px_target_proj_fp_option_id IS NOT NULL THEN
364: IF P_PA_DEBUG_MODE = 'Y' THEN
365: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': target is not null and source is null. Get parent of target';
366: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
367: END IF;
368: l_par_Proj_FP_Options_ID := get_parent_fp_option_id(px_target_proj_fp_option_id);
369: ELSE
370: IF P_PA_DEBUG_MODE = 'Y' THEN
366: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
367: END IF;
368: l_par_Proj_FP_Options_ID := get_parent_fp_option_id(px_target_proj_fp_option_id);
369: ELSE
370: IF P_PA_DEBUG_MODE = 'Y' THEN
371: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Target is null so Get higher level option';
372: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
373: END IF;
374:
367: END IF;
368: l_par_Proj_FP_Options_ID := get_parent_fp_option_id(px_target_proj_fp_option_id);
369: ELSE
370: IF P_PA_DEBUG_MODE = 'Y' THEN
371: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Target is null so Get higher level option';
372: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
373: END IF;
374:
375: IF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
368: l_par_Proj_FP_Options_ID := get_parent_fp_option_id(px_target_proj_fp_option_id);
369: ELSE
370: IF P_PA_DEBUG_MODE = 'Y' THEN
371: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Target is null so Get higher level option';
372: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
373: END IF;
374:
375: IF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
376:
373: END IF;
374:
375: IF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
376:
377: IF P_PA_DEBUG_MODE = 'Y' THEN
378: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project level option';
379: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
380: END IF;
381:
374:
375: IF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
376:
377: IF P_PA_DEBUG_MODE = 'Y' THEN
378: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project level option';
379: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
380: END IF;
381:
382: l_par_Proj_FP_Options_ID := get_fp_option_id(p_target_project_id, NULL,NULL);
375: IF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
376:
377: IF P_PA_DEBUG_MODE = 'Y' THEN
378: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting project level option';
379: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
380: END IF;
381:
382: l_par_Proj_FP_Options_ID := get_fp_option_id(p_target_project_id, NULL,NULL);
383: ELSIF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
380: END IF;
381:
382: l_par_Proj_FP_Options_ID := get_fp_option_id(p_target_project_id, NULL,NULL);
383: ELSIF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting plan type level option';
386: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
387: END IF;
388:
381:
382: l_par_Proj_FP_Options_ID := get_fp_option_id(p_target_project_id, NULL,NULL);
383: ELSIF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting plan type level option';
386: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
387: END IF;
388:
389: l_par_Proj_FP_Options_ID := get_fp_option_id(p_target_project_id
382: l_par_Proj_FP_Options_ID := get_fp_option_id(p_target_project_id, NULL,NULL);
383: ELSIF (l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting plan type level option';
386: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
387: END IF;
388:
389: l_par_Proj_FP_Options_ID := get_fp_option_id(p_target_project_id
390: ,l_plan_type_id
413: AND ptb.fin_plan_type_id = p_target_plan_type_id;
414:
415: END IF;
416:
417: IF P_PA_DEBUG_MODE = 'Y' THEN
418: pa_debug.g_err_stage := 'Autobaseline flag : '||l_baseline_funding_flag||' Approved Rev flag '||l_approved_rev_plan_type_flag;
419: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
420: END IF;
421:
414:
415: END IF;
416:
417: IF P_PA_DEBUG_MODE = 'Y' THEN
418: pa_debug.g_err_stage := 'Autobaseline flag : '||l_baseline_funding_flag||' Approved Rev flag '||l_approved_rev_plan_type_flag;
419: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
420: END IF;
421:
422: /* Bug#2619022 changes done for autobaseline.
415: END IF;
416:
417: IF P_PA_DEBUG_MODE = 'Y' THEN
418: pa_debug.g_err_stage := 'Autobaseline flag : '||l_baseline_funding_flag||' Approved Rev flag '||l_approved_rev_plan_type_flag;
419: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
420: END IF;
421:
422: /* Bug#2619022 changes done for autobaseline.
423: In case autobaselining is enabled and approv reve plan type flag is 'Y' then
428: l_par_Proj_FP_Options_ID IS NOT NULL
429: */
430: /* IF l_baseline_funding_flag = 'Y' AND l_approved_rev_plan_type_flag = 'Y' THEN
431:
432: IF P_PA_DEBUG_MODE = 'Y' THEN
433: pa_debug.g_err_stage := 'inside baseline funding flag and approv rev flag Y';
434: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
435: END IF;
436:
429: */
430: /* IF l_baseline_funding_flag = 'Y' AND l_approved_rev_plan_type_flag = 'Y' THEN
431:
432: IF P_PA_DEBUG_MODE = 'Y' THEN
433: pa_debug.g_err_stage := 'inside baseline funding flag and approv rev flag Y';
434: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
435: END IF;
436:
437: FP_Cols_Rec := get_default_fp_options(l_fp_preference_code,
430: /* IF l_baseline_funding_flag = 'Y' AND l_approved_rev_plan_type_flag = 'Y' THEN
431:
432: IF P_PA_DEBUG_MODE = 'Y' THEN
433: pa_debug.g_err_stage := 'inside baseline funding flag and approv rev flag Y';
434: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
435: END IF;
436:
437: FP_Cols_Rec := get_default_fp_options(l_fp_preference_code,
438: p_target_project_id,
439: p_target_plan_type_id);
440:
441: ELSIF (l_par_Proj_FP_Options_ID IS NOT NULL) THEN*/
442: IF (l_par_Proj_FP_Options_ID IS NOT NULL) THEN
443: IF P_PA_DEBUG_MODE = 'Y' THEN
444: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting options for l_par_Proj_FP_Options_ID = ' || l_par_Proj_FP_Options_ID;
445: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
446: END IF;
447:
440:
441: ELSIF (l_par_Proj_FP_Options_ID IS NOT NULL) THEN*/
442: IF (l_par_Proj_FP_Options_ID IS NOT NULL) THEN
443: IF P_PA_DEBUG_MODE = 'Y' THEN
444: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting options for l_par_Proj_FP_Options_ID = ' || l_par_Proj_FP_Options_ID;
445: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
446: END IF;
447:
448: get_fp_options(p_proj_fp_options_id => l_par_Proj_FP_Options_ID
441: ELSIF (l_par_Proj_FP_Options_ID IS NOT NULL) THEN*/
442: IF (l_par_Proj_FP_Options_ID IS NOT NULL) THEN
443: IF P_PA_DEBUG_MODE = 'Y' THEN
444: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting options for l_par_Proj_FP_Options_ID = ' || l_par_Proj_FP_Options_ID;
445: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
446: END IF;
447:
448: get_fp_options(p_proj_fp_options_id => l_par_Proj_FP_Options_ID
449: ,p_target_fp_options_id => px_target_proj_fp_option_id /* Bug 3144283 */
462:
463: /* Bug # 2702000 */
464: IF l_baseline_funding_flag = 'Y' AND l_approved_rev_plan_type_flag = 'Y' THEN
465:
466: IF P_PA_DEBUG_MODE = 'Y' THEN
467: pa_debug.g_err_stage := 'inside baseline funding flag and approv rev flag Y';
468: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
469: END IF;
470:
463: /* Bug # 2702000 */
464: IF l_baseline_funding_flag = 'Y' AND l_approved_rev_plan_type_flag = 'Y' THEN
465:
466: IF P_PA_DEBUG_MODE = 'Y' THEN
467: pa_debug.g_err_stage := 'inside baseline funding flag and approv rev flag Y';
468: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
469: END IF;
470:
471: FP_Cols_Rec_Rev_Def := get_default_fp_options(l_fp_preference_code,
464: IF l_baseline_funding_flag = 'Y' AND l_approved_rev_plan_type_flag = 'Y' THEN
465:
466: IF P_PA_DEBUG_MODE = 'Y' THEN
467: pa_debug.g_err_stage := 'inside baseline funding flag and approv rev flag Y';
468: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
469: END IF;
470:
471: FP_Cols_Rec_Rev_Def := get_default_fp_options(l_fp_preference_code,
472: p_target_project_id,
484: -- Copy revenue options from FP_Cols_Rec_Rev_Def into FP_Cols_Rec.
485: END IF;
486:
487: ELSE
488: IF P_PA_DEBUG_MODE = 'Y' THEN
489: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': could not find parent hence getting default options ';
490: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
491: pa_debug.g_err_stage := 'Preference Code is - '||l_fp_preference_code;
492: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
485: END IF;
486:
487: ELSE
488: IF P_PA_DEBUG_MODE = 'Y' THEN
489: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': could not find parent hence getting default options ';
490: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
491: pa_debug.g_err_stage := 'Preference Code is - '||l_fp_preference_code;
492: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
493: END IF;
486:
487: ELSE
488: IF P_PA_DEBUG_MODE = 'Y' THEN
489: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': could not find parent hence getting default options ';
490: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
491: pa_debug.g_err_stage := 'Preference Code is - '||l_fp_preference_code;
492: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
493: END IF;
494:
487: ELSE
488: IF P_PA_DEBUG_MODE = 'Y' THEN
489: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': could not find parent hence getting default options ';
490: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
491: pa_debug.g_err_stage := 'Preference Code is - '||l_fp_preference_code;
492: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
493: END IF;
494:
495: FP_Cols_Rec := get_default_fp_options(l_fp_preference_code,p_target_project_id,p_target_plan_type_id);
488: IF P_PA_DEBUG_MODE = 'Y' THEN
489: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': could not find parent hence getting default options ';
490: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
491: pa_debug.g_err_stage := 'Preference Code is - '||l_fp_preference_code;
492: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
493: END IF;
494:
495: FP_Cols_Rec := get_default_fp_options(l_fp_preference_code,p_target_project_id,p_target_plan_type_id);
496: END IF;
525: WHERE pfo.proj_fp_options_id = l_par_proj_fp_options_id
526: AND pfo.fin_plan_type_id = pt.fin_plan_type_id(+);
527: EXCEPTION
528: WHEN NO_DATA_FOUND THEN
529: IF P_PA_DEBUG_MODE = 'Y' THEN
530: pa_debug.g_err_stage := 'No data found for parent option in pa_proj_fp_optins when trying to get def gen vals';
531: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
532: END IF;
533: RAISE;
526: AND pfo.fin_plan_type_id = pt.fin_plan_type_id(+);
527: EXCEPTION
528: WHEN NO_DATA_FOUND THEN
529: IF P_PA_DEBUG_MODE = 'Y' THEN
530: pa_debug.g_err_stage := 'No data found for parent option in pa_proj_fp_optins when trying to get def gen vals';
531: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
532: END IF;
533: RAISE;
534: END;
527: EXCEPTION
528: WHEN NO_DATA_FOUND THEN
529: IF P_PA_DEBUG_MODE = 'Y' THEN
530: pa_debug.g_err_stage := 'No data found for parent option in pa_proj_fp_optins when trying to get def gen vals';
531: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
532: END IF;
533: RAISE;
534: END;
535:
542:
543: -- If source option is project
544: IF l_source_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
545:
546: IF P_PA_DEBUG_MODE = 'Y' THEN
547: pa_debug.g_err_stage := 'inside target plan type and source project case if';
548: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
549: END IF;
550:
543: -- If source option is project
544: IF l_source_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
545:
546: IF P_PA_DEBUG_MODE = 'Y' THEN
547: pa_debug.g_err_stage := 'inside target plan type and source project case if';
548: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
549: END IF;
550:
551: -- Initialize amount generation columns with default values
544: IF l_source_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
545:
546: IF P_PA_DEBUG_MODE = 'Y' THEN
547: pa_debug.g_err_stage := 'inside target plan type and source project case if';
548: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
549: END IF;
550:
551: -- Initialize amount generation columns with default values
552: l_default_gen_options_rec := get_default_fp_options(l_fp_preference_code,p_target_project_id,p_target_plan_type_id);
599:
600: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY OR
601: l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
602:
603: IF P_PA_DEBUG_MODE = 'Y' THEN
604: pa_debug.g_err_stage := 'inside cost only preference code FP_Cols_Rec.cost_time_phased_code :: '||FP_Cols_Rec.cost_time_phased_code;
605: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
606: END IF;
607:
600: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY OR
601: l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
602:
603: IF P_PA_DEBUG_MODE = 'Y' THEN
604: pa_debug.g_err_stage := 'inside cost only preference code FP_Cols_Rec.cost_time_phased_code :: '||FP_Cols_Rec.cost_time_phased_code;
605: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
606: END IF;
607:
608: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
601: l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
602:
603: IF P_PA_DEBUG_MODE = 'Y' THEN
604: pa_debug.g_err_stage := 'inside cost only preference code FP_Cols_Rec.cost_time_phased_code :: '||FP_Cols_Rec.cost_time_phased_code;
605: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
606: END IF;
607:
608: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
609:
606: END IF;
607:
608: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
609:
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.g_err_stage := 'inside cost_time_phased_code is G or p , l_source_plan_class_code '|| plan_type_info_rec.plan_class_code;
612: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
613: END IF;
614:
607:
608: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
609:
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.g_err_stage := 'inside cost_time_phased_code is G or p , l_source_plan_class_code '|| plan_type_info_rec.plan_class_code;
612: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
613: END IF;
614:
615: IF plan_type_info_rec.plan_class_code = 'BUDGET' THEN
608: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
609:
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.g_err_stage := 'inside cost_time_phased_code is G or p , l_source_plan_class_code '|| plan_type_info_rec.plan_class_code;
612: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
613: END IF;
614:
615: IF plan_type_info_rec.plan_class_code = 'BUDGET' THEN
616:
864: IF l_target_option_level_code <> PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
865: /* While copying project, the MC options should be inherited from the source option
866: i.e., from the source project's plan type or plan version */
867: IF p_source_proj_fp_option_id IS NOT NULL THEN
868: IF P_PA_DEBUG_MODE = 'Y' THEN
869: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from source option';
870: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
871: END IF;
872:
865: /* While copying project, the MC options should be inherited from the source option
866: i.e., from the source project's plan type or plan version */
867: IF p_source_proj_fp_option_id IS NOT NULL THEN
868: IF P_PA_DEBUG_MODE = 'Y' THEN
869: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from source option';
870: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
871: END IF;
872:
873: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
866: i.e., from the source project's plan type or plan version */
867: IF p_source_proj_fp_option_id IS NOT NULL THEN
868: IF P_PA_DEBUG_MODE = 'Y' THEN
869: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from source option';
870: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
871: END IF;
872:
873: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
874:
871: END IF;
872:
873: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
874:
875: IF P_PA_DEBUG_MODE = 'Y' THEN
876: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'retruned from get_fp_proj_mc_options';
877: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
878: END IF;
879:
872:
873: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
874:
875: IF P_PA_DEBUG_MODE = 'Y' THEN
876: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'retruned from get_fp_proj_mc_options';
877: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
878: END IF;
879:
880: ELSE
873: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
874:
875: IF P_PA_DEBUG_MODE = 'Y' THEN
876: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'retruned from get_fp_proj_mc_options';
877: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
878: END IF;
879:
880: ELSE
881: /* MC Options are always inherited from the Plan Type MC options. In this case
880: ELSE
881: /* MC Options are always inherited from the Plan Type MC options. In this case
882: plan type id cannot be null (validation done) */
883: IF l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from plan type';
886: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
887: END IF;
888:
881: /* MC Options are always inherited from the Plan Type MC options. In this case
882: plan type id cannot be null (validation done) */
883: IF l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from plan type';
886: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
887: END IF;
888:
889: fp_mc_cols_rec := get_fp_plan_type_mc_options(l_plan_type_id);
882: plan type id cannot be null (validation done) */
883: IF l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
884: IF P_PA_DEBUG_MODE = 'Y' THEN
885: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from plan type';
886: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
887: END IF;
888:
889: fp_mc_cols_rec := get_fp_plan_type_mc_options(l_plan_type_id);
890:
889: fp_mc_cols_rec := get_fp_plan_type_mc_options(l_plan_type_id);
890:
891: ELSE
892: IF l_par_Proj_FP_Options_ID IS NOT NULL THEN
893: IF P_PA_DEBUG_MODE = 'Y' THEN
894: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from parent';
895: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
896: END IF;
897:
890:
891: ELSE
892: IF l_par_Proj_FP_Options_ID IS NOT NULL THEN
893: IF P_PA_DEBUG_MODE = 'Y' THEN
894: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from parent';
895: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
896: END IF;
897:
898: /* #2598361: Modified the call from get_fp_plan_type_mc_options to
891: ELSE
892: IF l_par_Proj_FP_Options_ID IS NOT NULL THEN
893: IF P_PA_DEBUG_MODE = 'Y' THEN
894: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from parent';
895: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
896: END IF;
897:
898: /* #2598361: Modified the call from get_fp_plan_type_mc_options to
899: get_fp_proj_mc_options as the option level code is Plan Version. */
899: get_fp_proj_mc_options as the option level code is Plan Version. */
900: fp_mc_cols_rec := get_fp_proj_mc_options(l_par_Proj_FP_Options_ID);
901: ELSE
902: /* there is no default value for mc rec */
903: IF P_PA_DEBUG_MODE = 'Y' THEN
904: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': mc options cannot be determined. these are nulls';
905: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
906: END IF;
907: fp_mc_cols_rec := null;
900: fp_mc_cols_rec := get_fp_proj_mc_options(l_par_Proj_FP_Options_ID);
901: ELSE
902: /* there is no default value for mc rec */
903: IF P_PA_DEBUG_MODE = 'Y' THEN
904: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': mc options cannot be determined. these are nulls';
905: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
906: END IF;
907: fp_mc_cols_rec := null;
908: END IF;
901: ELSE
902: /* there is no default value for mc rec */
903: IF P_PA_DEBUG_MODE = 'Y' THEN
904: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': mc options cannot be determined. these are nulls';
905: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
906: END IF;
907: fp_mc_cols_rec := null;
908: END IF;
909: END IF;
929: FP_Mc_Cols_Rec.project_cost_rate_date_type := Null;
930: FP_Mc_Cols_Rec.project_cost_rate_date := Null;
931: END IF;
932: END IF;
933: IF P_PA_DEBUG_MODE = 'Y' THEN
934: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with conv attr settings';
935: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
936: END IF;
937:
930: FP_Mc_Cols_Rec.project_cost_rate_date := Null;
931: END IF;
932: END IF;
933: IF P_PA_DEBUG_MODE = 'Y' THEN
934: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with conv attr settings';
935: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
936: END IF;
937:
938:
931: END IF;
932: END IF;
933: IF P_PA_DEBUG_MODE = 'Y' THEN
934: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with conv attr settings';
935: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
936: END IF;
937:
938:
939: l_stage := 500;
944: -- defaulted to PA/GL period inwhich nvl(project start date, sysdate)
945: -- falls
946: IF l_source_project_id <> p_target_project_id
947: THEN
948: IF P_PA_DEBUG_MODE = 'Y' THEN
949: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' About to call Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
950: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
951: END IF;
952:
945: -- falls
946: IF l_source_project_id <> p_target_project_id
947: THEN
948: IF P_PA_DEBUG_MODE = 'Y' THEN
949: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' About to call Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
950: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
951: END IF;
952:
953: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
946: IF l_source_project_id <> p_target_project_id
947: THEN
948: IF P_PA_DEBUG_MODE = 'Y' THEN
949: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' About to call Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
950: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
951: END IF;
952:
953: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
954: p_project_id => p_target_project_id
963: ,x_plan_version_exists_flag => l_plan_version_exists_flag
964: ,x_prj_start_date => l_prj_start_date
965: ,x_prj_end_date => l_prj_end_date );
966:
967: IF P_PA_DEBUG_MODE = 'Y' THEN
968: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' After call to Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
969: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
970: END IF;
971:
964: ,x_prj_start_date => l_prj_start_date
965: ,x_prj_end_date => l_prj_end_date );
966:
967: IF P_PA_DEBUG_MODE = 'Y' THEN
968: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' After call to Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
969: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
970: END IF;
971:
972:
965: ,x_prj_end_date => l_prj_end_date );
966:
967: IF P_PA_DEBUG_MODE = 'Y' THEN
968: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' After call to Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
969: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
970: END IF;
971:
972:
973: IF FP_Cols_Rec.cost_current_planning_period IS NOT NULL THEN
994: END IF;
995: END IF;
996:
997: END IF;
998: IF P_PA_DEBUG_MODE = 'Y' THEN
999: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with Project defaults';
1000: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1001: END IF;
1002:
995: END IF;
996:
997: END IF;
998: IF P_PA_DEBUG_MODE = 'Y' THEN
999: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with Project defaults';
1000: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1001: END IF;
1002:
1003: l_stage := 600;
996:
997: END IF;
998: IF P_PA_DEBUG_MODE = 'Y' THEN
999: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with Project defaults';
1000: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1001: END IF;
1002:
1003: l_stage := 600;
1004:
1008: 'Copying from a Source FP Option to an exisiting Target FP Option' (Copy From page).
1009: In this case the Target FP option details need to be updated with the
1010: details of the Source FP Option. */
1011:
1012: IF P_PA_DEBUG_MODE = 'Y' THEN
1013: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1014: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1015: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1016: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1009: In this case the Target FP option details need to be updated with the
1010: details of the Source FP Option. */
1011:
1012: IF P_PA_DEBUG_MODE = 'Y' THEN
1013: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1014: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1015: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1016: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1017: END IF;
1010: details of the Source FP Option. */
1011:
1012: IF P_PA_DEBUG_MODE = 'Y' THEN
1013: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1014: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1015: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1016: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1017: END IF;
1018:
1011:
1012: IF P_PA_DEBUG_MODE = 'Y' THEN
1013: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1014: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1015: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1016: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1017: END IF;
1018:
1019: /* Bug 3149010 - Logic of not overwritting attribs when the target is ALL */
1012: IF P_PA_DEBUG_MODE = 'Y' THEN
1013: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1014: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1015: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1016: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1017: END IF;
1018:
1019: /* Bug 3149010 - Logic of not overwritting attribs when the target is ALL */
1020:
1285: /* Since the Target FP Option is NULL, a new Proj FP Option has to be created
1286: from the Source FP Option. */
1287: l_stage := 600;
1288:
1289: IF P_PA_DEBUG_MODE = 'Y' THEN
1290: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1291: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293: IF P_PA_DEBUG_MODE = 'Y' THEN
1286: from the Source FP Option. */
1287: l_stage := 600;
1288:
1289: IF P_PA_DEBUG_MODE = 'Y' THEN
1290: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1291: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293: IF P_PA_DEBUG_MODE = 'Y' THEN
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1287: l_stage := 600;
1288:
1289: IF P_PA_DEBUG_MODE = 'Y' THEN
1290: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1291: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293: IF P_PA_DEBUG_MODE = 'Y' THEN
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1295: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1289: IF P_PA_DEBUG_MODE = 'Y' THEN
1290: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1291: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293: IF P_PA_DEBUG_MODE = 'Y' THEN
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1295: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1296: END IF;
1297:
1290: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1291: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293: IF P_PA_DEBUG_MODE = 'Y' THEN
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1295: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1296: END IF;
1297:
1298: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1291: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1292: END IF;
1293: IF P_PA_DEBUG_MODE = 'Y' THEN
1294: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1295: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1296: END IF;
1297:
1298: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1299:
1473: END IF; -- source project is null
1474: END IF; -- web adi profile
1475: END IF;
1476:
1477: IF P_PA_DEBUG_MODE = 'Y' THEN
1478: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1479: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1480: pa_debug.reset_err_stack;
1481: END IF;
1474: END IF; -- web adi profile
1475: END IF;
1476:
1477: IF P_PA_DEBUG_MODE = 'Y' THEN
1478: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1479: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1480: pa_debug.reset_err_stack;
1481: END IF;
1482:
1475: END IF;
1476:
1477: IF P_PA_DEBUG_MODE = 'Y' THEN
1478: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1479: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1480: pa_debug.reset_err_stack;
1481: END IF;
1482:
1483: EXCEPTION
1476:
1477: IF P_PA_DEBUG_MODE = 'Y' THEN
1478: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1479: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1480: pa_debug.reset_err_stack;
1481: END IF;
1482:
1483: EXCEPTION
1484: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1495: x_msg_count := l_msg_count;
1496: ELSE
1497: x_msg_count := l_msg_count;
1498: END IF;
1499: IF P_PA_DEBUG_MODE = 'Y' THEN
1500: pa_debug.reset_err_stack;
1501: END IF;
1502: RAISE;
1503: WHEN OTHERS THEN
1496: ELSE
1497: x_msg_count := l_msg_count;
1498: END IF;
1499: IF P_PA_DEBUG_MODE = 'Y' THEN
1500: pa_debug.reset_err_stack;
1501: END IF;
1502: RAISE;
1503: WHEN OTHERS THEN
1504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1505: x_msg_count := 1;
1506: x_msg_data := SQLERRM;
1507: FND_MSG_PUB.add_exc_msg
1508: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1509: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1510: IF P_PA_DEBUG_MODE = 'Y' THEN
1511: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1512: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1513: pa_debug.reset_err_stack;
1506: x_msg_data := SQLERRM;
1507: FND_MSG_PUB.add_exc_msg
1508: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1509: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1510: IF P_PA_DEBUG_MODE = 'Y' THEN
1511: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1512: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1513: pa_debug.reset_err_stack;
1514: END IF;
1507: FND_MSG_PUB.add_exc_msg
1508: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1509: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1510: IF P_PA_DEBUG_MODE = 'Y' THEN
1511: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1512: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1513: pa_debug.reset_err_stack;
1514: END IF;
1515: RAISE ;
1508: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1509: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1510: IF P_PA_DEBUG_MODE = 'Y' THEN
1511: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1512: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1513: pa_debug.reset_err_stack;
1514: END IF;
1515: RAISE ;
1516: END Create_FP_Option;
1509: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1510: IF P_PA_DEBUG_MODE = 'Y' THEN
1511: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1512: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1513: pa_debug.reset_err_stack;
1514: END IF;
1515: RAISE ;
1516: END Create_FP_Option;
1517:
1587: l_target_cost_rate_flag pa_fin_plan_amount_sets.cost_rate_flag%TYPE;
1588: l_target_burd_rate_flag pa_fin_plan_amount_sets.burden_rate_flag%TYPE;
1589:
1590: BEGIN
1591: IF P_PA_DEBUG_MODE = 'Y' THEN
1592: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1593: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1594: l_debug_mode := NVL(l_debug_mode, 'Y');
1595: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1588: l_target_burd_rate_flag pa_fin_plan_amount_sets.burden_rate_flag%TYPE;
1589:
1590: BEGIN
1591: IF P_PA_DEBUG_MODE = 'Y' THEN
1592: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1593: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1594: l_debug_mode := NVL(l_debug_mode, 'Y');
1595: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1596: END IF;
1589:
1590: BEGIN
1591: IF P_PA_DEBUG_MODE = 'Y' THEN
1592: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1593: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1594: l_debug_mode := NVL(l_debug_mode, 'Y');
1595: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1596: END IF;
1597:
1591: IF P_PA_DEBUG_MODE = 'Y' THEN
1592: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1593: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1594: l_debug_mode := NVL(l_debug_mode, 'Y');
1595: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1596: END IF;
1597:
1598: x_return_status := FND_API.G_RET_STS_SUCCESS;
1599:
1633: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) OR
1634: (l_source_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
1635: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
1636:
1637: IF P_PA_DEBUG_MODE = 'Y' THEN
1638: pa_debug.g_err_stage := 'Err- Invalid Combination of Source and Target Preference code';
1639: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
1640: END IF;
1641: x_return_status := FND_API.G_RET_STS_ERROR;
1634: (l_source_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
1635: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
1636:
1637: IF P_PA_DEBUG_MODE = 'Y' THEN
1638: pa_debug.g_err_stage := 'Err- Invalid Combination of Source and Target Preference code';
1639: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
1640: END IF;
1641: x_return_status := FND_API.G_RET_STS_ERROR;
1642: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1635: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
1636:
1637: IF P_PA_DEBUG_MODE = 'Y' THEN
1638: pa_debug.g_err_stage := 'Err- Invalid Combination of Source and Target Preference code';
1639: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
1640: END IF;
1641: x_return_status := FND_API.G_RET_STS_ERROR;
1642: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1643: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1669:
1670: IF p_target_fp_options_id IS NOT NULL AND
1671: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
1672:
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.g_err_stage := 'Inside target opt id not null ' || p_target_fp_options_id ||
1675: ' and target pref code is ALL';
1676: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1677: END IF;
1670: IF p_target_fp_options_id IS NOT NULL AND
1671: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
1672:
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.g_err_stage := 'Inside target opt id not null ' || p_target_fp_options_id ||
1675: ' and target pref code is ALL';
1676: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1677: END IF;
1678:
1672:
1673: IF P_PA_DEBUG_MODE = 'Y' THEN
1674: pa_debug.g_err_stage := 'Inside target opt id not null ' || p_target_fp_options_id ||
1675: ' and target pref code is ALL';
1676: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1677: END IF;
1678:
1679: SELECT all_amount_set_id
1680: INTO l_target_all_amount_set_id
1798: manokuma: This can happen only in case of copy project when source and
1799: target both will be sep. Hence no change required here
1800: */
1801:
1802: IF P_PA_DEBUG_MODE = 'Y' THEN
1803: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue separately.';
1804: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1805: END IF;
1806:
1799: target both will be sep. Hence no change required here
1800: */
1801:
1802: IF P_PA_DEBUG_MODE = 'Y' THEN
1803: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue separately.';
1804: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1805: END IF;
1806:
1807: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1800: */
1801:
1802: IF P_PA_DEBUG_MODE = 'Y' THEN
1803: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue separately.';
1804: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1805: END IF;
1806:
1807: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1808:
1924: COST_ONLY COST_ONLY Copy "cost" to "cost"
1925: COST_AND_REV_SEP COST_ONLY Copy "cost" to "cost"
1926: */
1927:
1928: IF P_PA_DEBUG_MODE = 'Y' THEN
1929: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
1930: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1931: END IF;
1932:
1925: COST_AND_REV_SEP COST_ONLY Copy "cost" to "cost"
1926: */
1927:
1928: IF P_PA_DEBUG_MODE = 'Y' THEN
1929: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
1930: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1931: END IF;
1932:
1933: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
1926: */
1927:
1928: IF P_PA_DEBUG_MODE = 'Y' THEN
1929: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
1930: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1931: END IF;
1932:
1933: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
1934: (
1953: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1954: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1955: END IF;
1956:
1957: IF P_PA_DEBUG_MODE = 'Y' THEN
1958: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost Only.';
1959: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1960: END IF;
1961:
1954: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1955: END IF;
1956:
1957: IF P_PA_DEBUG_MODE = 'Y' THEN
1958: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost Only.';
1959: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1960: END IF;
1961:
1962:
1955: END IF;
1956:
1957: IF P_PA_DEBUG_MODE = 'Y' THEN
1958: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost Only.';
1959: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1960: END IF;
1961:
1962:
1963: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
2090: REVENUE_ONLY REVENUE_ONLY Copy "revenue" to "revenue"
2091: COST_AND_REV_SEP REVENUE_ONLY Copy "revenue" to "revenue"
2092: */
2093:
2094: IF P_PA_DEBUG_MODE = 'Y' THEN
2095: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2096: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2097: END IF;
2098:
2091: COST_AND_REV_SEP REVENUE_ONLY Copy "revenue" to "revenue"
2092: */
2093:
2094: IF P_PA_DEBUG_MODE = 'Y' THEN
2095: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2096: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2097: END IF;
2098:
2099:
2092: */
2093:
2094: IF P_PA_DEBUG_MODE = 'Y' THEN
2095: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2096: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2097: END IF;
2098:
2099:
2100: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
2247: COST_AND_REV_SAME COST_AND_REV_SAME Copy "all" to "all"
2248: COST_AND_REV_SEP COST_AND_REV_SAME Copy "cost" to "all"
2249: */
2250:
2251: IF P_PA_DEBUG_MODE = 'Y' THEN
2252: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2253: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2254: END IF;
2255:
2248: COST_AND_REV_SEP COST_AND_REV_SAME Copy "cost" to "all"
2249: */
2250:
2251: IF P_PA_DEBUG_MODE = 'Y' THEN
2252: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2253: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2254: END IF;
2255:
2256: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
2249: */
2250:
2251: IF P_PA_DEBUG_MODE = 'Y' THEN
2252: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2253: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2254: END IF;
2255:
2256: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
2257: (
2276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2277: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2278: END IF;
2279:
2280: IF P_PA_DEBUG_MODE = 'Y' THEN
2281: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue together.';
2282: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2283: END IF;
2284:
2277: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2278: END IF;
2279:
2280: IF P_PA_DEBUG_MODE = 'Y' THEN
2281: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue together.';
2282: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2283: END IF;
2284:
2285: SELECT fin_plan_start_date fin_plan_start_date
2278: END IF;
2279:
2280: IF P_PA_DEBUG_MODE = 'Y' THEN
2281: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue together.';
2282: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2283: END IF;
2284:
2285: SELECT fin_plan_start_date fin_plan_start_date
2286: ,fin_plan_end_date fin_plan_end_date
2404: WHERE proj_fp_options_id = p_proj_fp_options_id;
2405:
2406: END IF;
2407:
2408: IF P_PA_DEBUG_MODE = 'Y' THEN
2409: pa_debug.g_err_stage := 'End of Get_FP_Options';
2410: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2411: pa_debug.reset_err_stack;
2412: END IF;
2405:
2406: END IF;
2407:
2408: IF P_PA_DEBUG_MODE = 'Y' THEN
2409: pa_debug.g_err_stage := 'End of Get_FP_Options';
2410: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2411: pa_debug.reset_err_stack;
2412: END IF;
2413:
2406: END IF;
2407:
2408: IF P_PA_DEBUG_MODE = 'Y' THEN
2409: pa_debug.g_err_stage := 'End of Get_FP_Options';
2410: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2411: pa_debug.reset_err_stack;
2412: END IF;
2413:
2414: EXCEPTION
2407:
2408: IF P_PA_DEBUG_MODE = 'Y' THEN
2409: pa_debug.g_err_stage := 'End of Get_FP_Options';
2410: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2411: pa_debug.reset_err_stack;
2412: END IF;
2413:
2414: EXCEPTION
2415: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2426: x_msg_count := l_msg_count;
2427: ELSE
2428: x_msg_count := l_msg_count;
2429: END IF;
2430: IF P_PA_DEBUG_MODE = 'Y' THEN
2431: pa_debug.reset_err_stack;
2432: END IF;
2433: RAISE;
2434: WHEN OTHERS THEN
2427: ELSE
2428: x_msg_count := l_msg_count;
2429: END IF;
2430: IF P_PA_DEBUG_MODE = 'Y' THEN
2431: pa_debug.reset_err_stack;
2432: END IF;
2433: RAISE;
2434: WHEN OTHERS THEN
2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2436: x_msg_count := 1;
2437: x_msg_data := SQLERRM;
2438: FND_MSG_PUB.add_exc_msg
2439: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2440: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2443: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2444: pa_debug.reset_err_stack;
2437: x_msg_data := SQLERRM;
2438: FND_MSG_PUB.add_exc_msg
2439: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2440: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2443: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2444: pa_debug.reset_err_stack;
2445: END IF;
2438: FND_MSG_PUB.add_exc_msg
2439: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2440: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2443: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2444: pa_debug.reset_err_stack;
2445: END IF;
2446:
2439: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2440: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2443: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2444: pa_debug.reset_err_stack;
2445: END IF;
2446:
2447: RAISE;
2440: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2441: IF P_PA_DEBUG_MODE = 'Y' THEN
2442: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2443: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2444: pa_debug.reset_err_stack;
2445: END IF;
2446:
2447: RAISE;
2448: END Get_FP_Options;
2466: x_proj_fp_options_id pa_proj_fp_options.PROJ_FP_OPTIONS_ID%TYPE;
2467: l_debug_mode VARCHAR2(30);
2468:
2469: BEGIN
2470: IF P_PA_DEBUG_MODE = 'Y' THEN
2471: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2473: l_debug_mode := NVL(l_debug_mode, 'Y');
2474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2467: l_debug_mode VARCHAR2(30);
2468:
2469: BEGIN
2470: IF P_PA_DEBUG_MODE = 'Y' THEN
2471: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2473: l_debug_mode := NVL(l_debug_mode, 'Y');
2474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2475: END IF;
2468:
2469: BEGIN
2470: IF P_PA_DEBUG_MODE = 'Y' THEN
2471: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2473: l_debug_mode := NVL(l_debug_mode, 'Y');
2474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2475: END IF;
2476:
2470: IF P_PA_DEBUG_MODE = 'Y' THEN
2471: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2473: l_debug_mode := NVL(l_debug_mode, 'Y');
2474: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2475: END IF;
2476:
2477: SELECT fin_plan_option_level_code, project_id, fin_plan_type_id
2478: INTO l_fp_option_level_code, l_proj_id, l_fp_type_id
2483: Project and Plan Type has to be selected. */
2484:
2485: IF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
2486:
2487: IF P_PA_DEBUG_MODE = 'Y' THEN
2488: pa_debug.g_err_stage := 'Option Level Code is PLAN_VERSION.';
2489: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2490: END IF;
2491:
2484:
2485: IF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
2486:
2487: IF P_PA_DEBUG_MODE = 'Y' THEN
2488: pa_debug.g_err_stage := 'Option Level Code is PLAN_VERSION.';
2489: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2490: END IF;
2491:
2492: SELECT proj_fp_options_id
2485: IF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
2486:
2487: IF P_PA_DEBUG_MODE = 'Y' THEN
2488: pa_debug.g_err_stage := 'Option Level Code is PLAN_VERSION.';
2489: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2490: END IF;
2491:
2492: SELECT proj_fp_options_id
2493: INTO x_proj_fp_options_id
2498:
2499: /* To get the Parent Option of a PLAN_TYPE, PROJECT option for the
2500: Project has to be selected. */
2501:
2502: IF P_PA_DEBUG_MODE = 'Y' THEN
2503: pa_debug.g_err_stage := 'Option Level Code is PLAN_TYPE.';
2504: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2505: END IF;
2506:
2499: /* To get the Parent Option of a PLAN_TYPE, PROJECT option for the
2500: Project has to be selected. */
2501:
2502: IF P_PA_DEBUG_MODE = 'Y' THEN
2503: pa_debug.g_err_stage := 'Option Level Code is PLAN_TYPE.';
2504: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2505: END IF;
2506:
2507: ELSIF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
2500: Project has to be selected. */
2501:
2502: IF P_PA_DEBUG_MODE = 'Y' THEN
2503: pa_debug.g_err_stage := 'Option Level Code is PLAN_TYPE.';
2504: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2505: END IF;
2506:
2507: ELSIF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
2508: SELECT proj_fp_options_id
2512: AND project_id = l_proj_id;
2513:
2514: END IF;
2515:
2516: IF P_PA_DEBUG_MODE = 'Y' THEN
2517: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2518: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2519: pa_debug.reset_err_stack;
2520: END IF;
2513:
2514: END IF;
2515:
2516: IF P_PA_DEBUG_MODE = 'Y' THEN
2517: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2518: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2519: pa_debug.reset_err_stack;
2520: END IF;
2521:
2514: END IF;
2515:
2516: IF P_PA_DEBUG_MODE = 'Y' THEN
2517: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2518: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2519: pa_debug.reset_err_stack;
2520: END IF;
2521:
2522: RETURN x_proj_fp_options_id;
2515:
2516: IF P_PA_DEBUG_MODE = 'Y' THEN
2517: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2518: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2519: pa_debug.reset_err_stack;
2520: END IF;
2521:
2522: RETURN x_proj_fp_options_id;
2523:
2525:
2526: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2527: values are created. */
2528: WHEN NO_DATA_FOUND THEN
2529: IF P_PA_DEBUG_MODE = 'Y' THEN
2530: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2531: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2532: END IF;
2533: RETURN NULL;
2526: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2527: values are created. */
2528: WHEN NO_DATA_FOUND THEN
2529: IF P_PA_DEBUG_MODE = 'Y' THEN
2530: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2531: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2532: END IF;
2533: RETURN NULL;
2534:
2527: values are created. */
2528: WHEN NO_DATA_FOUND THEN
2529: IF P_PA_DEBUG_MODE = 'Y' THEN
2530: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2531: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2532: END IF;
2533: RETURN NULL;
2534:
2535: WHEN OTHERS THEN
2534:
2535: WHEN OTHERS THEN
2536: FND_MSG_PUB.add_exc_msg
2537: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2538: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2539: IF P_PA_DEBUG_MODE = 'Y' THEN
2540: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2541: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2542: pa_debug.reset_err_stack;
2535: WHEN OTHERS THEN
2536: FND_MSG_PUB.add_exc_msg
2537: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2538: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2539: IF P_PA_DEBUG_MODE = 'Y' THEN
2540: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2541: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2542: pa_debug.reset_err_stack;
2543: END IF;
2536: FND_MSG_PUB.add_exc_msg
2537: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2538: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2539: IF P_PA_DEBUG_MODE = 'Y' THEN
2540: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2541: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2542: pa_debug.reset_err_stack;
2543: END IF;
2544: RAISE;
2537: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2538: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2539: IF P_PA_DEBUG_MODE = 'Y' THEN
2540: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2541: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2542: pa_debug.reset_err_stack;
2543: END IF;
2544: RAISE;
2545: END Get_Parent_FP_Option_ID;
2538: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2539: IF P_PA_DEBUG_MODE = 'Y' THEN
2540: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2541: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2542: pa_debug.reset_err_stack;
2543: END IF;
2544: RAISE;
2545: END Get_Parent_FP_Option_ID;
2546:
2562: l_debug_mode VARCHAR2(30);
2563:
2564: BEGIN
2565:
2566: IF P_PA_DEBUG_MODE = 'Y' THEN
2567: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2568: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2569: l_debug_mode := NVL(l_debug_mode, 'Y');
2570: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2563:
2564: BEGIN
2565:
2566: IF P_PA_DEBUG_MODE = 'Y' THEN
2567: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2568: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2569: l_debug_mode := NVL(l_debug_mode, 'Y');
2570: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2571: END IF;
2564: BEGIN
2565:
2566: IF P_PA_DEBUG_MODE = 'Y' THEN
2567: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2568: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2569: l_debug_mode := NVL(l_debug_mode, 'Y');
2570: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2571: END IF;
2572:
2566: IF P_PA_DEBUG_MODE = 'Y' THEN
2567: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2568: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2569: l_debug_mode := NVL(l_debug_mode, 'Y');
2570: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2571: END IF;
2572:
2573: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2574:
2571: END IF;
2572:
2573: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2574:
2575: IF P_PA_DEBUG_MODE = 'Y' THEN
2576: pa_debug.g_err_stage := 'Getting the value of Option Level code.';
2577: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2578: END IF;
2579:
2572:
2573: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2574:
2575: IF P_PA_DEBUG_MODE = 'Y' THEN
2576: pa_debug.g_err_stage := 'Getting the value of Option Level code.';
2577: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2578: END IF;
2579:
2580: IF p_project_id IS NOT NULL THEN
2573: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2574:
2575: IF P_PA_DEBUG_MODE = 'Y' THEN
2576: pa_debug.g_err_stage := 'Getting the value of Option Level code.';
2577: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2578: END IF;
2579:
2580: IF p_project_id IS NOT NULL THEN
2581: IF p_plan_type_id IS NOT NULL THEN
2622: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION;
2623:
2624: END IF;
2625:
2626: IF P_PA_DEBUG_MODE = 'Y' THEN
2627: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2628: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2629: pa_debug.reset_err_stack;
2630: END IF;
2623:
2624: END IF;
2625:
2626: IF P_PA_DEBUG_MODE = 'Y' THEN
2627: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2628: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2629: pa_debug.reset_err_stack;
2630: END IF;
2631: RETURN x_proj_fp_options_id;
2624: END IF;
2625:
2626: IF P_PA_DEBUG_MODE = 'Y' THEN
2627: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2628: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2629: pa_debug.reset_err_stack;
2630: END IF;
2631: RETURN x_proj_fp_options_id;
2632:
2625:
2626: IF P_PA_DEBUG_MODE = 'Y' THEN
2627: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2628: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2629: pa_debug.reset_err_stack;
2630: END IF;
2631: RETURN x_proj_fp_options_id;
2632:
2633: EXCEPTION
2634:
2635: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2636: values are created. */
2637: WHEN NO_DATA_FOUND THEN
2638: IF P_PA_DEBUG_MODE = 'Y' THEN
2639: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2640: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2641: END IF;
2642: RETURN NULL;
2635: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2636: values are created. */
2637: WHEN NO_DATA_FOUND THEN
2638: IF P_PA_DEBUG_MODE = 'Y' THEN
2639: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2640: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2641: END IF;
2642: RETURN NULL;
2643:
2636: values are created. */
2637: WHEN NO_DATA_FOUND THEN
2638: IF P_PA_DEBUG_MODE = 'Y' THEN
2639: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2640: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2641: END IF;
2642: RETURN NULL;
2643:
2644: WHEN OTHERS THEN
2643:
2644: WHEN OTHERS THEN
2645: FND_MSG_PUB.add_exc_msg
2646: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2647: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2648: IF P_PA_DEBUG_MODE = 'Y' THEN
2649: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2650: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2651: pa_debug.reset_err_stack;
2644: WHEN OTHERS THEN
2645: FND_MSG_PUB.add_exc_msg
2646: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2647: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2648: IF P_PA_DEBUG_MODE = 'Y' THEN
2649: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2650: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2651: pa_debug.reset_err_stack;
2652: END IF;
2645: FND_MSG_PUB.add_exc_msg
2646: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2647: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2648: IF P_PA_DEBUG_MODE = 'Y' THEN
2649: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2650: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2651: pa_debug.reset_err_stack;
2652: END IF;
2653: RAISE;
2646: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2647: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2648: IF P_PA_DEBUG_MODE = 'Y' THEN
2649: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2650: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2651: pa_debug.reset_err_stack;
2652: END IF;
2653: RAISE;
2654: END Get_FP_Option_ID;
2647: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2648: IF P_PA_DEBUG_MODE = 'Y' THEN
2649: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2650: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2651: pa_debug.reset_err_stack;
2652: END IF;
2653: RAISE;
2654: END Get_FP_Option_ID;
2655:
2777: rbs_version_rec rbs_version_cur%ROWTYPE;
2778:
2779: BEGIN
2780:
2781: IF P_PA_DEBUG_MODE = 'Y' THEN
2782: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2783: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2784: l_debug_mode := NVL(l_debug_mode, 'Y');
2785: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2778:
2779: BEGIN
2780:
2781: IF P_PA_DEBUG_MODE = 'Y' THEN
2782: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2783: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2784: l_debug_mode := NVL(l_debug_mode, 'Y');
2785: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2786: END IF;
2779: BEGIN
2780:
2781: IF P_PA_DEBUG_MODE = 'Y' THEN
2782: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2783: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2784: l_debug_mode := NVL(l_debug_mode, 'Y');
2785: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2786: END IF;
2787: l_return_status := FND_API.G_RET_STS_SUCCESS;
2781: IF P_PA_DEBUG_MODE = 'Y' THEN
2782: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2783: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2784: l_debug_mode := NVL(l_debug_mode, 'Y');
2785: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2786: END IF;
2787: l_return_status := FND_API.G_RET_STS_SUCCESS;
2788: -- begin: Bug 5941436: fnd_profile.value_specific('PA_FP_WEBADI_ENABLE'); has been changed with fnd_profile.value('PA_FP_WEBADI_ENABLE'); to perform less sqls and use caching and therefore to improve the performance
2789: -- Bug 6413612 : Added substr to fetch only 1 character of profile value
2823: AND R1.uncategorized_flag = 'Y'
2824: AND R1.business_group_id = pim.business_group_id;
2825: EXCEPTION
2826: WHEN NO_DATA_FOUND THEN
2827: IF P_PA_DEBUG_MODE = 'Y' THEN
2828: pa_debug.g_err_stage := 'No uncat resource list found corresponding to the org_id';
2829: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2831: END IF;
2824: AND R1.business_group_id = pim.business_group_id;
2825: EXCEPTION
2826: WHEN NO_DATA_FOUND THEN
2827: IF P_PA_DEBUG_MODE = 'Y' THEN
2828: pa_debug.g_err_stage := 'No uncat resource list found corresponding to the org_id';
2829: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2831: END IF;
2832: END;
2825: EXCEPTION
2826: WHEN NO_DATA_FOUND THEN
2827: IF P_PA_DEBUG_MODE = 'Y' THEN
2828: pa_debug.g_err_stage := 'No uncat resource list found corresponding to the org_id';
2829: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2831: END IF;
2832: END;
2833:
2856:
2857: /* Following code is added in context of autobaseline */
2858: /* Bug#2619022 */
2859:
2860: IF P_PA_DEBUG_MODE = 'Y' THEN
2861: pa_debug.g_err_stage := 'P-target_project_id : '||TO_CHAR(p_target_project_id)||' p_plan_type_id : '||TO_CHAR(p_plan_type_id);
2862: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2863: END IF;
2864:
2857: /* Following code is added in context of autobaseline */
2858: /* Bug#2619022 */
2859:
2860: IF P_PA_DEBUG_MODE = 'Y' THEN
2861: pa_debug.g_err_stage := 'P-target_project_id : '||TO_CHAR(p_target_project_id)||' p_plan_type_id : '||TO_CHAR(p_plan_type_id);
2862: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2863: END IF;
2864:
2865: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2858: /* Bug#2619022 */
2859:
2860: IF P_PA_DEBUG_MODE = 'Y' THEN
2861: pa_debug.g_err_stage := 'P-target_project_id : '||TO_CHAR(p_target_project_id)||' p_plan_type_id : '||TO_CHAR(p_plan_type_id);
2862: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2863: END IF;
2864:
2865: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2866:
2863: END IF;
2864:
2865: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2866:
2867: IF P_PA_DEBUG_MODE = 'Y' THEN
2868: pa_debug.g_err_stage := 'Fetching funding level for project ';
2869: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2870: END IF;
2871:
2864:
2865: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2866:
2867: IF P_PA_DEBUG_MODE = 'Y' THEN
2868: pa_debug.g_err_stage := 'Fetching funding level for project ';
2869: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2870: END IF;
2871:
2872: SELECT NVL(baseline_funding_flag,'N')
2865: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2866:
2867: IF P_PA_DEBUG_MODE = 'Y' THEN
2868: pa_debug.g_err_stage := 'Fetching funding level for project ';
2869: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2870: END IF;
2871:
2872: SELECT NVL(baseline_funding_flag,'N')
2873: ,NVL(approved_rev_plan_type_flag,'N')
2877: ,pa_fin_plan_types_b ptb
2878: WHERE ppa.project_id = p_target_project_id
2879: AND ptb.fin_plan_type_id = p_plan_type_id;
2880:
2881: IF P_PA_DEBUG_MODE = 'Y' THEN
2882: pa_debug.g_err_stage := 'Autobaseline flag : '||l_autobaseline_flag||
2883: ' Project level funding : '||l_proj_level_funding;
2884: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2885: END IF;
2878: WHERE ppa.project_id = p_target_project_id
2879: AND ptb.fin_plan_type_id = p_plan_type_id;
2880:
2881: IF P_PA_DEBUG_MODE = 'Y' THEN
2882: pa_debug.g_err_stage := 'Autobaseline flag : '||l_autobaseline_flag||
2883: ' Project level funding : '||l_proj_level_funding;
2884: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2885: END IF;
2886:
2880:
2881: IF P_PA_DEBUG_MODE = 'Y' THEN
2882: pa_debug.g_err_stage := 'Autobaseline flag : '||l_autobaseline_flag||
2883: ' Project level funding : '||l_proj_level_funding;
2884: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2885: END IF;
2886:
2887: END IF;
2888:
2903: /* #2681045: Exception will be raised only if the error code that is being returned by
2904: the above call is SQL error and not a pre-defined one in the check_funding_level
2905: procedure. */
2906: IF (l_err_code < 0 OR l_err_code = 100) THEN
2907: IF P_PA_DEBUG_MODE = 'Y' THEN
2908: pa_debug.g_err_stage := 'Error returned by pa_billing_core.check_funding_level:Err_code:'
2909: || to_char(l_err_code) || ':Err_stage:' || l_err_stage
2910: || ':Err_stack' || l_err_stack;
2911: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
2904: the above call is SQL error and not a pre-defined one in the check_funding_level
2905: procedure. */
2906: IF (l_err_code < 0 OR l_err_code = 100) THEN
2907: IF P_PA_DEBUG_MODE = 'Y' THEN
2908: pa_debug.g_err_stage := 'Error returned by pa_billing_core.check_funding_level:Err_code:'
2909: || to_char(l_err_code) || ':Err_stage:' || l_err_stage
2910: || ':Err_stack' || l_err_stack;
2911: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
2912: END IF;
2907: IF P_PA_DEBUG_MODE = 'Y' THEN
2908: pa_debug.g_err_stage := 'Error returned by pa_billing_core.check_funding_level:Err_code:'
2909: || to_char(l_err_code) || ':Err_stage:' || l_err_stage
2910: || ':Err_stack' || l_err_stack;
2911: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
2912: END IF;
2913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2914: END IF;
2915:
2921: ELSE
2922: l_rev_fin_plan_level_code := 'L'; /* default value */
2923: END IF;
2924:
2925: IF P_PA_DEBUG_MODE = 'Y' THEN
2926: pa_debug.g_err_stage := ' l_rev_fin_plan_level_code : '||l_rev_fin_plan_level_code
2927: ||' p_fin_plan_pref_code : '||p_fin_plan_preference_code;
2928: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2929: END IF;
2922: l_rev_fin_plan_level_code := 'L'; /* default value */
2923: END IF;
2924:
2925: IF P_PA_DEBUG_MODE = 'Y' THEN
2926: pa_debug.g_err_stage := ' l_rev_fin_plan_level_code : '||l_rev_fin_plan_level_code
2927: ||' p_fin_plan_pref_code : '||p_fin_plan_preference_code;
2928: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2929: END IF;
2930:
2924:
2925: IF P_PA_DEBUG_MODE = 'Y' THEN
2926: pa_debug.g_err_stage := ' l_rev_fin_plan_level_code : '||l_rev_fin_plan_level_code
2927: ||' p_fin_plan_pref_code : '||p_fin_plan_preference_code;
2928: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2929: END IF;
2930:
2931: --+++ Start of changes for Bug :- 2625872 +++--
2932: -- Fetch the project and project functional currency codes of the project
2940: , x_msg_data => l_msg_data
2941: , x_return_status => l_return_status);
2942:
2943: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2944: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
2945: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2946: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2947: END IF;
2948:
2941: , x_return_status => l_return_status);
2942:
2943: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2944: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
2945: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2946: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2947: END IF;
2948:
2949: -- If the project and project func currencies aren't equal
2986: -- dependent
2987:
2988: IF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
2989:
2990: IF P_PA_DEBUG_MODE = 'Y' THEN
2991: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost Only.';
2992: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2993: END IF;
2994:
2987:
2988: IF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
2989:
2990: IF P_PA_DEBUG_MODE = 'Y' THEN
2991: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost Only.';
2992: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2993: END IF;
2994:
2995: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
2988: IF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
2989:
2990: IF P_PA_DEBUG_MODE = 'Y' THEN
2991: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost Only.';
2992: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2993: END IF;
2994:
2995: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
2996: l_fp_cols_rec.cost_fin_plan_level_code := l_fin_plan_level_code;
3006: END IF;
3007:
3008: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
3009:
3010: IF P_PA_DEBUG_MODE = 'Y' THEN
3011: pa_debug.g_err_stage := 'Fin Plan Preference code is Revenue Only.';
3012: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3013: END IF;
3014:
3007:
3008: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
3009:
3010: IF P_PA_DEBUG_MODE = 'Y' THEN
3011: pa_debug.g_err_stage := 'Fin Plan Preference code is Revenue Only.';
3012: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3013: END IF;
3014:
3015: l_fp_cols_rec.revenue_amount_set_id := l_revenue_amount_set_id;
3008: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
3009:
3010: IF P_PA_DEBUG_MODE = 'Y' THEN
3011: pa_debug.g_err_stage := 'Fin Plan Preference code is Revenue Only.';
3012: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3013: END IF;
3014:
3015: l_fp_cols_rec.revenue_amount_set_id := l_revenue_amount_set_id;
3016: l_fp_cols_rec.revenue_fin_plan_level_code := l_rev_fin_plan_level_code;
3041: END IF;
3042:
3043: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3044:
3045: IF P_PA_DEBUG_MODE = 'Y' THEN
3046: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue together.';
3047: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3048: END IF;
3049:
3042:
3043: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3044:
3045: IF P_PA_DEBUG_MODE = 'Y' THEN
3046: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue together.';
3047: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3048: END IF;
3049:
3050: l_fp_cols_rec.all_amount_set_id := l_all_amount_set_id;
3043: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3044:
3045: IF P_PA_DEBUG_MODE = 'Y' THEN
3046: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue together.';
3047: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3048: END IF;
3049:
3050: l_fp_cols_rec.all_amount_set_id := l_all_amount_set_id;
3051: l_fp_cols_rec.all_fin_plan_level_code := l_fin_plan_level_code;
3076: END IF;
3077:
3078: ELSIF ( p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
3079:
3080: IF P_PA_DEBUG_MODE = 'Y' THEN
3081: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue separately.';
3082: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3083: END IF;
3084:
3077:
3078: ELSIF ( p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
3079:
3080: IF P_PA_DEBUG_MODE = 'Y' THEN
3081: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue separately.';
3082: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3083: END IF;
3084:
3085: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
3078: ELSIF ( p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
3079:
3080: IF P_PA_DEBUG_MODE = 'Y' THEN
3081: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue separately.';
3082: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3083: END IF;
3084:
3085: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
3086: l_fp_cols_rec.cost_fin_plan_level_code := l_fin_plan_level_code;
3146: -- Separate processing based on plan class code
3147: IF (plan_type_info_rec.plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET)
3148: THEN
3149:
3150: IF P_PA_DEBUG_MODE = 'Y' THEN
3151: pa_debug.g_err_stage := 'fetching generation columns for cost';
3152: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3153: END IF;
3154:
3147: IF (plan_type_info_rec.plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET)
3148: THEN
3149:
3150: IF P_PA_DEBUG_MODE = 'Y' THEN
3151: pa_debug.g_err_stage := 'fetching generation columns for cost';
3152: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3153: END IF;
3154:
3155: -- Estimate to completion source code should be null
3148: THEN
3149:
3150: IF P_PA_DEBUG_MODE = 'Y' THEN
3151: pa_debug.g_err_stage := 'fetching generation columns for cost';
3152: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3153: END IF;
3154:
3155: -- Estimate to completion source code should be null
3156:
3217: -- When there is no other plan type set plan type id to the same plan type
3218: l_fp_cols_rec.gen_src_cost_plan_type_id := p_plan_type_id; --UT
3219: l_fp_cols_rec.gen_src_cost_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3220: When others then
3221: IF P_PA_DEBUG_MODE = 'Y' THEN
3222: pa_debug.g_err_stage := 'execption while fetching default source cost plan type id when approved plan type is not available ';
3223: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3224: END IF;
3225: End;
3218: l_fp_cols_rec.gen_src_cost_plan_type_id := p_plan_type_id; --UT
3219: l_fp_cols_rec.gen_src_cost_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3220: When others then
3221: IF P_PA_DEBUG_MODE = 'Y' THEN
3222: pa_debug.g_err_stage := 'execption while fetching default source cost plan type id when approved plan type is not available ';
3223: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3224: END IF;
3225: End;
3226: When others then
3219: l_fp_cols_rec.gen_src_cost_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3220: When others then
3221: IF P_PA_DEBUG_MODE = 'Y' THEN
3222: pa_debug.g_err_stage := 'execption while fetching default source cost plan type id when approved plan type is not available ';
3223: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3224: END IF;
3225: End;
3226: When others then
3227: IF P_PA_DEBUG_MODE = 'Y' THEN
3223: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3224: END IF;
3225: End;
3226: When others then
3227: IF P_PA_DEBUG_MODE = 'Y' THEN
3228: pa_debug.g_err_stage := 'execption while fetching approved default source cost plan type id ';
3229: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3230: END IF;
3231: Raise;
3224: END IF;
3225: End;
3226: When others then
3227: IF P_PA_DEBUG_MODE = 'Y' THEN
3228: pa_debug.g_err_stage := 'execption while fetching approved default source cost plan type id ';
3229: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3230: END IF;
3231: Raise;
3232: End;
3225: End;
3226: When others then
3227: IF P_PA_DEBUG_MODE = 'Y' THEN
3228: pa_debug.g_err_stage := 'execption while fetching approved default source cost plan type id ';
3229: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3230: END IF;
3231: Raise;
3232: End;
3233:
3360: l_fp_cols_rec.gen_src_rev_plan_type_id := p_plan_type_id;
3361: l_fp_cols_rec.gen_src_rev_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3362: END IF;
3363: When others then
3364: IF P_PA_DEBUG_MODE = 'Y' THEN
3365: pa_debug.g_err_stage := 'execption while fetching default source
3366: revenue plan type id when approved plan type is not available ';
3367: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3368: END IF;
3361: l_fp_cols_rec.gen_src_rev_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3362: END IF;
3363: When others then
3364: IF P_PA_DEBUG_MODE = 'Y' THEN
3365: pa_debug.g_err_stage := 'execption while fetching default source
3366: revenue plan type id when approved plan type is not available ';
3367: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3368: END IF;
3369:
3363: When others then
3364: IF P_PA_DEBUG_MODE = 'Y' THEN
3365: pa_debug.g_err_stage := 'execption while fetching default source
3366: revenue plan type id when approved plan type is not available ';
3367: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3368: END IF;
3369:
3370: End;
3371: When others then
3368: END IF;
3369:
3370: End;
3371: When others then
3372: IF P_PA_DEBUG_MODE = 'Y' THEN
3373: pa_debug.g_err_stage := 'execption while fetching approved default source
3374: revenue plan type id ';
3375: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3376: END IF;
3369:
3370: End;
3371: When others then
3372: IF P_PA_DEBUG_MODE = 'Y' THEN
3373: pa_debug.g_err_stage := 'execption while fetching approved default source
3374: revenue plan type id ';
3375: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3376: END IF;
3377: Raise;
3371: When others then
3372: IF P_PA_DEBUG_MODE = 'Y' THEN
3373: pa_debug.g_err_stage := 'execption while fetching approved default source
3374: revenue plan type id ';
3375: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3376: END IF;
3377: Raise;
3378: End;
3379: END IF; -- revenue or cost and rev sep
3452: -- When there is no other plan type set to the same plan type id being created
3453: l_fp_cols_rec.gen_src_all_plan_type_id := p_plan_type_id;
3454: l_fp_cols_rec.gen_src_all_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3455: When others then
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.g_err_stage := 'execption while fetching default source
3458: all plan type id when approved plan type is not available ';
3459: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3460: END IF;
3453: l_fp_cols_rec.gen_src_all_plan_type_id := p_plan_type_id;
3454: l_fp_cols_rec.gen_src_all_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3455: When others then
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.g_err_stage := 'execption while fetching default source
3458: all plan type id when approved plan type is not available ';
3459: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3460: END IF;
3461:
3455: When others then
3456: IF P_PA_DEBUG_MODE = 'Y' THEN
3457: pa_debug.g_err_stage := 'execption while fetching default source
3458: all plan type id when approved plan type is not available ';
3459: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3460: END IF;
3461:
3462: End;
3463: When others then
3460: END IF;
3461:
3462: End;
3463: When others then
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.g_err_stage := 'execption while fetching approved default source
3466: all plan type id ';
3467: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3468: END IF;
3461:
3462: End;
3463: When others then
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.g_err_stage := 'execption while fetching approved default source
3466: all plan type id ';
3467: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3468: END IF;
3469: Raise;
3463: When others then
3464: IF P_PA_DEBUG_MODE = 'Y' THEN
3465: pa_debug.g_err_stage := 'execption while fetching approved default source
3466: all plan type id ';
3467: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3468: END IF;
3469: Raise;
3470: End;
3471: ELSE -- Forecast plan type
3506: null;
3507:
3508: END IF;
3509:
3510: IF P_PA_DEBUG_MODE = 'Y' THEN
3511: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3512: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3513: pa_debug.reset_err_stack;
3514: END IF;
3507:
3508: END IF;
3509:
3510: IF P_PA_DEBUG_MODE = 'Y' THEN
3511: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3512: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3513: pa_debug.reset_err_stack;
3514: END IF;
3515:
3508: END IF;
3509:
3510: IF P_PA_DEBUG_MODE = 'Y' THEN
3511: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3512: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3513: pa_debug.reset_err_stack;
3514: END IF;
3515:
3516: RETURN l_fp_cols_rec;
3509:
3510: IF P_PA_DEBUG_MODE = 'Y' THEN
3511: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3512: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3513: pa_debug.reset_err_stack;
3514: END IF;
3515:
3516: RETURN l_fp_cols_rec;
3517:
3525: ,p_msg_count => l_msg_count
3526: ,p_msg_data => l_msg_data
3527: ,p_data => l_data
3528: ,p_msg_index_out => l_msg_index_out);
3529: pa_debug.g_err_stage := l_data;
3530: IF P_PA_DEBUG_MODE = 'Y' THEN
3531: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3532: END IF;
3533: END IF;
3526: ,p_msg_data => l_msg_data
3527: ,p_data => l_data
3528: ,p_msg_index_out => l_msg_index_out);
3529: pa_debug.g_err_stage := l_data;
3530: IF P_PA_DEBUG_MODE = 'Y' THEN
3531: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3532: END IF;
3533: END IF;
3534: pa_debug.g_err_stage:='Invalid Arguments Passed';
3527: ,p_data => l_data
3528: ,p_msg_index_out => l_msg_index_out);
3529: pa_debug.g_err_stage := l_data;
3530: IF P_PA_DEBUG_MODE = 'Y' THEN
3531: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3532: END IF;
3533: END IF;
3534: pa_debug.g_err_stage:='Invalid Arguments Passed';
3535: IF P_PA_DEBUG_MODE = 'Y' THEN
3530: IF P_PA_DEBUG_MODE = 'Y' THEN
3531: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3532: END IF;
3533: END IF;
3534: pa_debug.g_err_stage:='Invalid Arguments Passed';
3535: IF P_PA_DEBUG_MODE = 'Y' THEN
3536: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3537: pa_debug.reset_err_stack;
3538: END IF;
3531: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3532: END IF;
3533: END IF;
3534: pa_debug.g_err_stage:='Invalid Arguments Passed';
3535: IF P_PA_DEBUG_MODE = 'Y' THEN
3536: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3537: pa_debug.reset_err_stack;
3538: END IF;
3539: RAISE;
3532: END IF;
3533: END IF;
3534: pa_debug.g_err_stage:='Invalid Arguments Passed';
3535: IF P_PA_DEBUG_MODE = 'Y' THEN
3536: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3537: pa_debug.reset_err_stack;
3538: END IF;
3539: RAISE;
3540: WHEN OTHERS THEN
3533: END IF;
3534: pa_debug.g_err_stage:='Invalid Arguments Passed';
3535: IF P_PA_DEBUG_MODE = 'Y' THEN
3536: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3537: pa_debug.reset_err_stack;
3538: END IF;
3539: RAISE;
3540: WHEN OTHERS THEN
3541: FND_MSG_PUB.add_exc_msg
3539: RAISE;
3540: WHEN OTHERS THEN
3541: FND_MSG_PUB.add_exc_msg
3542: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3543: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3546: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3547: pa_debug.reset_err_stack;
3540: WHEN OTHERS THEN
3541: FND_MSG_PUB.add_exc_msg
3542: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3543: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3546: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3547: pa_debug.reset_err_stack;
3548: END IF;
3541: FND_MSG_PUB.add_exc_msg
3542: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3543: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3546: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3547: pa_debug.reset_err_stack;
3548: END IF;
3549: RAISE;
3542: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3543: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3546: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3547: pa_debug.reset_err_stack;
3548: END IF;
3549: RAISE;
3550: END Get_Default_FP_Options;
3543: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3546: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3547: pa_debug.reset_err_stack;
3548: END IF;
3549: RAISE;
3550: END Get_Default_FP_Options;
3551:
3691:
3692: BEGIN
3693:
3694: FND_MSG_PUB.initialize;
3695: IF P_PA_DEBUG_MODE = 'Y' THEN
3696: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3697: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3698: l_debug_mode := NVL(l_debug_mode, 'Y');
3699: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3692: BEGIN
3693:
3694: FND_MSG_PUB.initialize;
3695: IF P_PA_DEBUG_MODE = 'Y' THEN
3696: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3697: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3698: l_debug_mode := NVL(l_debug_mode, 'Y');
3699: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3700: END IF;
3693:
3694: FND_MSG_PUB.initialize;
3695: IF P_PA_DEBUG_MODE = 'Y' THEN
3696: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3697: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3698: l_debug_mode := NVL(l_debug_mode, 'Y');
3699: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3700: END IF;
3701: x_msg_count := 0;
3695: IF P_PA_DEBUG_MODE = 'Y' THEN
3696: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3697: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3698: l_debug_mode := NVL(l_debug_mode, 'Y');
3699: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3700: END IF;
3701: x_msg_count := 0;
3702: x_return_status := FND_API.G_RET_STS_SUCCESS;
3703:
3703:
3704: -- Check if budget version id is null. if yes
3705: -- throw an error.
3706:
3707: IF P_PA_DEBUG_MODE = 'Y' THEN
3708: pa_debug.g_err_stage := 'Parameter Validation';
3709: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3710: END IF;
3711:
3704: -- Check if budget version id is null. if yes
3705: -- throw an error.
3706:
3707: IF P_PA_DEBUG_MODE = 'Y' THEN
3708: pa_debug.g_err_stage := 'Parameter Validation';
3709: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3710: END IF;
3711:
3712: IF (p_budget_version_id IS NULL) THEN
3705: -- throw an error.
3706:
3707: IF P_PA_DEBUG_MODE = 'Y' THEN
3708: pa_debug.g_err_stage := 'Parameter Validation';
3709: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3710: END IF;
3711:
3712: IF (p_budget_version_id IS NULL) THEN
3713:
3710: END IF;
3711:
3712: IF (p_budget_version_id IS NULL) THEN
3713:
3714: IF P_PA_DEBUG_MODE = 'Y' THEN
3715: pa_debug.g_err_stage := 'budget version id='||p_budget_version_id;
3716: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3717: END IF;
3718:
3711:
3712: IF (p_budget_version_id IS NULL) THEN
3713:
3714: IF P_PA_DEBUG_MODE = 'Y' THEN
3715: pa_debug.g_err_stage := 'budget version id='||p_budget_version_id;
3716: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3717: END IF;
3718:
3719: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3712: IF (p_budget_version_id IS NULL) THEN
3713:
3714: IF P_PA_DEBUG_MODE = 'Y' THEN
3715: pa_debug.g_err_stage := 'budget version id='||p_budget_version_id;
3716: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3717: END IF;
3718:
3719: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3720: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3722: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3723:
3724: END IF;
3725:
3726: IF P_PA_DEBUG_MODE = 'Y' THEN
3727: pa_debug.g_err_stage := 'Parameter validation complete';
3728: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3729: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3730: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3723:
3724: END IF;
3725:
3726: IF P_PA_DEBUG_MODE = 'Y' THEN
3727: pa_debug.g_err_stage := 'Parameter validation complete';
3728: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3729: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3730: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3731: END IF;
3724: END IF;
3725:
3726: IF P_PA_DEBUG_MODE = 'Y' THEN
3727: pa_debug.g_err_stage := 'Parameter validation complete';
3728: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3729: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3730: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3731: END IF;
3732:
3725:
3726: IF P_PA_DEBUG_MODE = 'Y' THEN
3727: pa_debug.g_err_stage := 'Parameter validation complete';
3728: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3729: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3730: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3731: END IF;
3732:
3733: -- Open and fetch fin plan version info cur
3726: IF P_PA_DEBUG_MODE = 'Y' THEN
3727: pa_debug.g_err_stage := 'Parameter validation complete';
3728: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3729: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3730: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3731: END IF;
3732:
3733: -- Open and fetch fin plan version info cur
3734:
3741:
3742:
3743: /*
3744: IF(l_amount_exists = 'Y') THEN
3745: IF P_PA_DEBUG_MODE = 'Y' THEN
3746: pa_debug.g_err_stage := 'Amounts exist for this version - returning';
3747: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3748: END IF;
3749: return;
3742:
3743: /*
3744: IF(l_amount_exists = 'Y') THEN
3745: IF P_PA_DEBUG_MODE = 'Y' THEN
3746: pa_debug.g_err_stage := 'Amounts exist for this version - returning';
3747: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3748: END IF;
3749: return;
3750: END IF;
3743: /*
3744: IF(l_amount_exists = 'Y') THEN
3745: IF P_PA_DEBUG_MODE = 'Y' THEN
3746: pa_debug.g_err_stage := 'Amounts exist for this version - returning';
3747: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3748: END IF;
3749: return;
3750: END IF;
3751: */
3807:
3808: EXCEPTION
3809:
3810: WHEN NO_DATA_FOUND THEN
3811: IF P_PA_DEBUG_MODE = 'Y' THEN
3812: pa_debug.g_err_stage := 'Invalid budget version id='||p_budget_version_id;
3813: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3814: END IF;
3815:
3808: EXCEPTION
3809:
3810: WHEN NO_DATA_FOUND THEN
3811: IF P_PA_DEBUG_MODE = 'Y' THEN
3812: pa_debug.g_err_stage := 'Invalid budget version id='||p_budget_version_id;
3813: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3814: END IF;
3815:
3816: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3809:
3810: WHEN NO_DATA_FOUND THEN
3811: IF P_PA_DEBUG_MODE = 'Y' THEN
3812: pa_debug.g_err_stage := 'Invalid budget version id='||p_budget_version_id;
3813: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3814: END IF;
3815:
3816: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3817: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3818:
3819: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3820: END;
3821:
3822: IF P_PA_DEBUG_MODE = 'Y' THEN
3823: pa_debug.g_err_stage := 'Determine if period profile to be updated.If yes get the id';
3824: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3825: END IF;
3826:
3819: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3820: END;
3821:
3822: IF P_PA_DEBUG_MODE = 'Y' THEN
3823: pa_debug.g_err_stage := 'Determine if period profile to be updated.If yes get the id';
3824: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3825: END IF;
3826:
3827: IF (l_period_profile_id is NULL) THEN
3820: END;
3821:
3822: IF P_PA_DEBUG_MODE = 'Y' THEN
3823: pa_debug.g_err_stage := 'Determine if period profile to be updated.If yes get the id';
3824: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3825: END IF;
3826:
3827: IF (l_period_profile_id is NULL) THEN
3828: IF (l_curr_period_type in (PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
3900: update pa_budget_versions
3901: set period_profile_id = l_curr_period_profile_id
3902: where budget_version_id = p_budget_version_id;
3903:
3904: IF P_PA_DEBUG_MODE = 'Y' THEN
3905: pa_debug.g_err_stage := 'period profile id updated : updated id -> '||to_char(l_curr_period_profile_id);
3906: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3907: END IF;
3908: END IF;
3901: set period_profile_id = l_curr_period_profile_id
3902: where budget_version_id = p_budget_version_id;
3903:
3904: IF P_PA_DEBUG_MODE = 'Y' THEN
3905: pa_debug.g_err_stage := 'period profile id updated : updated id -> '||to_char(l_curr_period_profile_id);
3906: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3907: END IF;
3908: END IF;
3909: */
3902: where budget_version_id = p_budget_version_id;
3903:
3904: IF P_PA_DEBUG_MODE = 'Y' THEN
3905: pa_debug.g_err_stage := 'period profile id updated : updated id -> '||to_char(l_curr_period_profile_id);
3906: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3907: END IF;
3908: END IF;
3909: */
3910: IF P_PA_DEBUG_MODE = 'Y' THEN
3906: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3907: END IF;
3908: END IF;
3909: */
3910: IF P_PA_DEBUG_MODE = 'Y' THEN
3911: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3912: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3913: pa_debug.reset_err_stack;
3914: END IF;
3907: END IF;
3908: END IF;
3909: */
3910: IF P_PA_DEBUG_MODE = 'Y' THEN
3911: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3912: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3913: pa_debug.reset_err_stack;
3914: END IF;
3915: EXCEPTION
3908: END IF;
3909: */
3910: IF P_PA_DEBUG_MODE = 'Y' THEN
3911: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3912: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3913: pa_debug.reset_err_stack;
3914: END IF;
3915: EXCEPTION
3916: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3909: */
3910: IF P_PA_DEBUG_MODE = 'Y' THEN
3911: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3912: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3913: pa_debug.reset_err_stack;
3914: END IF;
3915: EXCEPTION
3916: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3917: l_msg_count := FND_MSG_PUB.count_msg;
3928: ELSE
3929: x_msg_count := l_msg_count;
3930: END IF;
3931: x_return_status := FND_API.G_RET_STS_ERROR;
3932: IF P_PA_DEBUG_MODE = 'Y' THEN
3933: pa_debug.g_err_stage:='Invalid Arguments Passed';
3934: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3935: pa_debug.reset_err_stack;
3936: END IF;
3929: x_msg_count := l_msg_count;
3930: END IF;
3931: x_return_status := FND_API.G_RET_STS_ERROR;
3932: IF P_PA_DEBUG_MODE = 'Y' THEN
3933: pa_debug.g_err_stage:='Invalid Arguments Passed';
3934: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3935: pa_debug.reset_err_stack;
3936: END IF;
3937: RETURN;
3930: END IF;
3931: x_return_status := FND_API.G_RET_STS_ERROR;
3932: IF P_PA_DEBUG_MODE = 'Y' THEN
3933: pa_debug.g_err_stage:='Invalid Arguments Passed';
3934: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3935: pa_debug.reset_err_stack;
3936: END IF;
3937: RETURN;
3938:
3931: x_return_status := FND_API.G_RET_STS_ERROR;
3932: IF P_PA_DEBUG_MODE = 'Y' THEN
3933: pa_debug.g_err_stage:='Invalid Arguments Passed';
3934: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3935: pa_debug.reset_err_stack;
3936: END IF;
3937: RETURN;
3938:
3939: WHEN Others THEN
3941: x_msg_count := 1;
3942: x_msg_data := SQLERRM;
3943: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB'
3944: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3945: IF P_PA_DEBUG_MODE = 'Y' THEN
3946: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3947: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3948: pa_debug.reset_err_stack;
3949: END IF;
3942: x_msg_data := SQLERRM;
3943: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB'
3944: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3945: IF P_PA_DEBUG_MODE = 'Y' THEN
3946: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3947: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3948: pa_debug.reset_err_stack;
3949: END IF;
3950: RAISE;
3943: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB'
3944: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3945: IF P_PA_DEBUG_MODE = 'Y' THEN
3946: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3947: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3948: pa_debug.reset_err_stack;
3949: END IF;
3950: RAISE;
3951: END SYNCHRONIZE_BUDGET_VERSION;
3944: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3945: IF P_PA_DEBUG_MODE = 'Y' THEN
3946: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3947: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3948: pa_debug.reset_err_stack;
3949: END IF;
3950: RAISE;
3951: END SYNCHRONIZE_BUDGET_VERSION;
3952:
3988: src_plan_type_info_rec src_plan_type_info_cur%ROWTYPE;
3989:
3990: BEGIN
3991:
3992: IF P_PA_DEBUG_MODE = 'Y' THEN
3993: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
3994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3995: l_debug_mode := NVL(l_debug_mode, 'Y');
3996: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3989:
3990: BEGIN
3991:
3992: IF P_PA_DEBUG_MODE = 'Y' THEN
3993: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
3994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3995: l_debug_mode := NVL(l_debug_mode, 'Y');
3996: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3997: END IF;
3990: BEGIN
3991:
3992: IF P_PA_DEBUG_MODE = 'Y' THEN
3993: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
3994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3995: l_debug_mode := NVL(l_debug_mode, 'Y');
3996: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3997: END IF;
3998:
3992: IF P_PA_DEBUG_MODE = 'Y' THEN
3993: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
3994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3995: l_debug_mode := NVL(l_debug_mode, 'Y');
3996: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3997: END IF;
3998:
3999: IF P_PA_DEBUG_MODE = 'Y' THEN
4000: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
3995: l_debug_mode := NVL(l_debug_mode, 'Y');
3996: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3997: END IF;
3998:
3999: IF P_PA_DEBUG_MODE = 'Y' THEN
4000: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4001: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
3996: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3997: END IF;
3998:
3999: IF P_PA_DEBUG_MODE = 'Y' THEN
4000: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4001: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
3997: END IF;
3998:
3999: IF P_PA_DEBUG_MODE = 'Y' THEN
4000: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4001: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
3998:
3999: IF P_PA_DEBUG_MODE = 'Y' THEN
4000: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4001: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
3999: IF P_PA_DEBUG_MODE = 'Y' THEN
4000: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4001: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4007: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4000: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4001: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4007: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4008: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4001: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4007: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4008: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4009: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4002: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4007: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4008: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4009: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4010: END IF;
4003: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4007: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4008: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4009: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4010: END IF;
4011:
4004: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4007: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4008: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4009: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4010: END IF;
4011:
4012: OPEN src_plan_type_info_cur(p_gen_src_plan_type_id, p_target_project_id);
4005: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4006: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4007: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4008: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4009: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4010: END IF;
4011:
4012: OPEN src_plan_type_info_cur(p_gen_src_plan_type_id, p_target_project_id);
4013: FETCH src_plan_type_info_cur INTO src_plan_type_info_rec;
4015: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4016: END IF;
4017: CLOSE src_plan_type_info_cur;
4018:
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4021: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4022: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4023: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4016: END IF;
4017: CLOSE src_plan_type_info_cur;
4018:
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4021: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4022: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4023: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4024: END IF;
4017: CLOSE src_plan_type_info_cur;
4018:
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4021: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4022: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4023: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4024: END IF;
4025:
4018:
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4021: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4022: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4023: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4024: END IF;
4025:
4026: IF (src_plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ) OR
4019: IF P_PA_DEBUG_MODE = 'Y' THEN
4020: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4021: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4022: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4023: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4024: END IF;
4025:
4026: IF (src_plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ) OR
4027: -- (src_plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ) OR
4080: END IF;
4081:
4082: END IF; -- p_gen_src_plan_ver_code
4083:
4084: IF P_PA_DEBUG_MODE = 'Y' THEN
4085: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4086: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4087: pa_debug.reset_err_stack;
4088: END IF;
4081:
4082: END IF; -- p_gen_src_plan_ver_code
4083:
4084: IF P_PA_DEBUG_MODE = 'Y' THEN
4085: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4086: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4087: pa_debug.reset_err_stack;
4088: END IF;
4089:
4082: END IF; -- p_gen_src_plan_ver_code
4083:
4084: IF P_PA_DEBUG_MODE = 'Y' THEN
4085: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4086: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4087: pa_debug.reset_err_stack;
4088: END IF;
4089:
4090: RETURN l_gen_src_plan_version_id;
4083:
4084: IF P_PA_DEBUG_MODE = 'Y' THEN
4085: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4086: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4087: pa_debug.reset_err_stack;
4088: END IF;
4089:
4090: RETURN l_gen_src_plan_version_id;
4091:
4148:
4149: RETURN l_gen_src_plan_version_id;
4150:
4151:
4152: IF P_PA_DEBUG_MODE = 'Y' THEN
4153: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4154: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4155: pa_debug.reset_err_stack;
4156: END IF;
4149: RETURN l_gen_src_plan_version_id;
4150:
4151:
4152: IF P_PA_DEBUG_MODE = 'Y' THEN
4153: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4154: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4155: pa_debug.reset_err_stack;
4156: END IF;
4157:
4150:
4151:
4152: IF P_PA_DEBUG_MODE = 'Y' THEN
4153: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4154: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4155: pa_debug.reset_err_stack;
4156: END IF;
4157:
4158:
4151:
4152: IF P_PA_DEBUG_MODE = 'Y' THEN
4153: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4154: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4155: pa_debug.reset_err_stack;
4156: END IF;
4157:
4158:
4159: END IF; -- src plan type preference code
4157:
4158:
4159: END IF; -- src plan type preference code
4160:
4161: IF P_PA_DEBUG_MODE = 'Y' THEN
4162: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4163: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.reset_err_stack;
4165: END IF;
4158:
4159: END IF; -- src plan type preference code
4160:
4161: IF P_PA_DEBUG_MODE = 'Y' THEN
4162: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4163: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.reset_err_stack;
4165: END IF;
4166:
4159: END IF; -- src plan type preference code
4160:
4161: IF P_PA_DEBUG_MODE = 'Y' THEN
4162: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4163: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.reset_err_stack;
4165: END IF;
4166:
4167: EXCEPTION
4160:
4161: IF P_PA_DEBUG_MODE = 'Y' THEN
4162: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4163: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4164: pa_debug.reset_err_stack;
4165: END IF;
4166:
4167: EXCEPTION
4168: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4174: ,p_msg_count => l_msg_count
4175: ,p_msg_data => l_msg_data
4176: ,p_data => l_data
4177: ,p_msg_index_out => l_msg_index_out);
4178: pa_debug.g_err_stage := l_data;
4179: IF P_PA_DEBUG_MODE = 'Y' THEN
4180: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4181: END IF;
4182: END IF;
4175: ,p_msg_data => l_msg_data
4176: ,p_data => l_data
4177: ,p_msg_index_out => l_msg_index_out);
4178: pa_debug.g_err_stage := l_data;
4179: IF P_PA_DEBUG_MODE = 'Y' THEN
4180: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4181: END IF;
4182: END IF;
4183: pa_debug.g_err_stage:='Invalid Arguments Passed';
4176: ,p_data => l_data
4177: ,p_msg_index_out => l_msg_index_out);
4178: pa_debug.g_err_stage := l_data;
4179: IF P_PA_DEBUG_MODE = 'Y' THEN
4180: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4181: END IF;
4182: END IF;
4183: pa_debug.g_err_stage:='Invalid Arguments Passed';
4184: IF P_PA_DEBUG_MODE = 'Y' THEN
4179: IF P_PA_DEBUG_MODE = 'Y' THEN
4180: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4181: END IF;
4182: END IF;
4183: pa_debug.g_err_stage:='Invalid Arguments Passed';
4184: IF P_PA_DEBUG_MODE = 'Y' THEN
4185: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4186: pa_debug.reset_err_stack;
4187: END IF;
4180: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4181: END IF;
4182: END IF;
4183: pa_debug.g_err_stage:='Invalid Arguments Passed';
4184: IF P_PA_DEBUG_MODE = 'Y' THEN
4185: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4186: pa_debug.reset_err_stack;
4187: END IF;
4188: RAISE;
4181: END IF;
4182: END IF;
4183: pa_debug.g_err_stage:='Invalid Arguments Passed';
4184: IF P_PA_DEBUG_MODE = 'Y' THEN
4185: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4186: pa_debug.reset_err_stack;
4187: END IF;
4188: RAISE;
4189: WHEN OTHERS THEN
4182: END IF;
4183: pa_debug.g_err_stage:='Invalid Arguments Passed';
4184: IF P_PA_DEBUG_MODE = 'Y' THEN
4185: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4186: pa_debug.reset_err_stack;
4187: END IF;
4188: RAISE;
4189: WHEN OTHERS THEN
4190: FND_MSG_PUB.add_exc_msg
4188: RAISE;
4189: WHEN OTHERS THEN
4190: FND_MSG_PUB.add_exc_msg
4191: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4192: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4193: IF P_PA_DEBUG_MODE = 'Y' THEN
4194: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4195: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4196: pa_debug.reset_err_stack;
4189: WHEN OTHERS THEN
4190: FND_MSG_PUB.add_exc_msg
4191: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4192: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4193: IF P_PA_DEBUG_MODE = 'Y' THEN
4194: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4195: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4196: pa_debug.reset_err_stack;
4197: END IF;
4190: FND_MSG_PUB.add_exc_msg
4191: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4192: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4193: IF P_PA_DEBUG_MODE = 'Y' THEN
4194: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4195: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4196: pa_debug.reset_err_stack;
4197: END IF;
4198: RAISE;
4191: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4192: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4193: IF P_PA_DEBUG_MODE = 'Y' THEN
4194: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4195: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4196: pa_debug.reset_err_stack;
4197: END IF;
4198: RAISE;
4199: END Gen_Src_Plan_Version_Id;
4192: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4193: IF P_PA_DEBUG_MODE = 'Y' THEN
4194: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4195: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4196: pa_debug.reset_err_stack;
4197: END IF;
4198: RAISE;
4199: END Gen_Src_Plan_Version_Id;
4200:
4252: and bv.project_structure_version_id = ver.element_version_id
4253: and ver.current_working_flag = 'Y';
4254:
4255: BEGIN
4256: pa_debug.set_curr_function(
4257: p_function =>'XX.XXXX'
4258: ,p_debug_mode => l_debug_mode );
4259:
4260: IF P_PA_DEBUG_MODE = 'Y' THEN
4256: pa_debug.set_curr_function(
4257: p_function =>'XX.XXXX'
4258: ,p_debug_mode => l_debug_mode );
4259:
4260: IF P_PA_DEBUG_MODE = 'Y' THEN
4261: pa_debug.g_err_stage := 'Start of Gen_Src_WP_Version_Id';
4262: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4263: END IF;
4264:
4257: p_function =>'XX.XXXX'
4258: ,p_debug_mode => l_debug_mode );
4259:
4260: IF P_PA_DEBUG_MODE = 'Y' THEN
4261: pa_debug.g_err_stage := 'Start of Gen_Src_WP_Version_Id';
4262: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4263: END IF;
4264:
4265: IF p_gen_src_wp_ver_code = 'LAST_PUBLISHED' THEN
4258: ,p_debug_mode => l_debug_mode );
4259:
4260: IF P_PA_DEBUG_MODE = 'Y' THEN
4261: pa_debug.g_err_stage := 'Start of Gen_Src_WP_Version_Id';
4262: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4263: END IF;
4264:
4265: IF p_gen_src_wp_ver_code = 'LAST_PUBLISHED' THEN
4266:
4281: CLOSE current_working_wp_version_cur;
4282:
4283: END IF;
4284:
4285: IF P_PA_DEBUG_MODE = 'Y' THEN
4286: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4287: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4288: END IF;
4289: pa_debug.reset_curr_function();
4282:
4283: END IF;
4284:
4285: IF P_PA_DEBUG_MODE = 'Y' THEN
4286: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4287: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4288: END IF;
4289: pa_debug.reset_curr_function();
4290:
4283: END IF;
4284:
4285: IF P_PA_DEBUG_MODE = 'Y' THEN
4286: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4287: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4288: END IF;
4289: pa_debug.reset_curr_function();
4290:
4291: RETURN l_gen_src_wp_ver_id;
4285: IF P_PA_DEBUG_MODE = 'Y' THEN
4286: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4287: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4288: END IF;
4289: pa_debug.reset_curr_function();
4290:
4291: RETURN l_gen_src_wp_ver_id;
4292:
4293: EXCEPTION
4300: ,p_msg_count => l_msg_count
4301: ,p_msg_data => l_msg_data
4302: ,p_data => l_data
4303: ,p_msg_index_out => l_msg_index_out);
4304: pa_debug.g_err_stage := l_data;
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4306: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4307: END IF;
4308: END IF;
4301: ,p_msg_data => l_msg_data
4302: ,p_data => l_data
4303: ,p_msg_index_out => l_msg_index_out);
4304: pa_debug.g_err_stage := l_data;
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4306: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4307: END IF;
4308: END IF;
4309: IF P_PA_DEBUG_MODE = 'Y' THEN
4302: ,p_data => l_data
4303: ,p_msg_index_out => l_msg_index_out);
4304: pa_debug.g_err_stage := l_data;
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4306: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4307: END IF;
4308: END IF;
4309: IF P_PA_DEBUG_MODE = 'Y' THEN
4310: pa_debug.g_err_stage:='Invalid Arguments Passed';
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4306: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4307: END IF;
4308: END IF;
4309: IF P_PA_DEBUG_MODE = 'Y' THEN
4310: pa_debug.g_err_stage:='Invalid Arguments Passed';
4311: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4312: END IF;
4313: pa_debug.reset_curr_function;
4306: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4307: END IF;
4308: END IF;
4309: IF P_PA_DEBUG_MODE = 'Y' THEN
4310: pa_debug.g_err_stage:='Invalid Arguments Passed';
4311: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4312: END IF;
4313: pa_debug.reset_curr_function;
4314: RAISE;
4307: END IF;
4308: END IF;
4309: IF P_PA_DEBUG_MODE = 'Y' THEN
4310: pa_debug.g_err_stage:='Invalid Arguments Passed';
4311: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4312: END IF;
4313: pa_debug.reset_curr_function;
4314: RAISE;
4315: WHEN OTHERS THEN
4309: IF P_PA_DEBUG_MODE = 'Y' THEN
4310: pa_debug.g_err_stage:='Invalid Arguments Passed';
4311: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4312: END IF;
4313: pa_debug.reset_curr_function;
4314: RAISE;
4315: WHEN OTHERS THEN
4316: FND_MSG_PUB.add_exc_msg
4317: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4314: RAISE;
4315: WHEN OTHERS THEN
4316: FND_MSG_PUB.add_exc_msg
4317: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4318: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4319: IF P_PA_DEBUG_MODE = 'Y' THEN
4320: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4321: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4322: END IF;
4315: WHEN OTHERS THEN
4316: FND_MSG_PUB.add_exc_msg
4317: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4318: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4319: IF P_PA_DEBUG_MODE = 'Y' THEN
4320: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4321: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4322: END IF;
4323: pa_debug.reset_curr_function;
4316: FND_MSG_PUB.add_exc_msg
4317: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4318: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4319: IF P_PA_DEBUG_MODE = 'Y' THEN
4320: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4321: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4322: END IF;
4323: pa_debug.reset_curr_function;
4324: RAISE;
4317: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4318: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4319: IF P_PA_DEBUG_MODE = 'Y' THEN
4320: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4321: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4322: END IF;
4323: pa_debug.reset_curr_function;
4324: RAISE;
4325: END Gen_Src_WP_Version_Id;
4319: IF P_PA_DEBUG_MODE = 'Y' THEN
4320: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4321: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4322: END IF;
4323: pa_debug.reset_curr_function;
4324: RAISE;
4325: END Gen_Src_WP_Version_Id;
4326:
4327:
4355: l_all_layout_type_code VARCHAR2(30);
4356: l_debug_mode VARCHAR2(30);
4357: l_stage NUMBER := 100;
4358: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
4359: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4360: l_msg_count NUMBER :=0;
4361: l_msg_data VARCHAR2(2000);
4362: l_data VARCHAR2(2000);
4363: l_msg_index_out NUMBER;
4378:
4379:
4380: BEGIN
4381:
4382: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4383: p_debug_mode => l_debug_mode );
4384:
4385: IF P_PA_DEBUG_MODE = 'Y' THEN
4386: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4381:
4382: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4383: p_debug_mode => l_debug_mode );
4384:
4385: IF P_PA_DEBUG_MODE = 'Y' THEN
4386: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4387: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4388: l_debug_mode := NVL(l_debug_mode, 'Y');
4389: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4382: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4383: p_debug_mode => l_debug_mode );
4384:
4385: IF P_PA_DEBUG_MODE = 'Y' THEN
4386: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4387: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4388: l_debug_mode := NVL(l_debug_mode, 'Y');
4389: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4390: END IF;
4383: p_debug_mode => l_debug_mode );
4384:
4385: IF P_PA_DEBUG_MODE = 'Y' THEN
4386: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4387: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4388: l_debug_mode := NVL(l_debug_mode, 'Y');
4389: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4390: END IF;
4391:
4385: IF P_PA_DEBUG_MODE = 'Y' THEN
4386: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4387: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4388: l_debug_mode := NVL(l_debug_mode, 'Y');
4389: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4390: END IF;
4391:
4392: x_return_status := FND_API.G_RET_STS_SUCCESS;
4393:
4393:
4394: IF p_project_id IS NULL OR p_fin_plan_type_id IS NULL OR p_plan_preference_code IS NULL THEN
4395:
4396: l_stage := 340;
4397: IF P_PA_DEBUG_MODE = 'Y' THEN
4398: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - projectid or plan types id or pref code id is NULL';
4399: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
4400: END IF;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4394: IF p_project_id IS NULL OR p_fin_plan_type_id IS NULL OR p_plan_preference_code IS NULL THEN
4395:
4396: l_stage := 340;
4397: IF P_PA_DEBUG_MODE = 'Y' THEN
4398: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - projectid or plan types id or pref code id is NULL';
4399: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
4400: END IF;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4395:
4396: l_stage := 340;
4397: IF P_PA_DEBUG_MODE = 'Y' THEN
4398: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - projectid or plan types id or pref code id is NULL';
4399: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
4400: END IF;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4403: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4400: END IF;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4403: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4404: PA_DEBUG.Reset_Curr_Function;
4405: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4406: END IF;
4407:
4408: --Delete the existing amount types for the project/plan types from pa_fp_proj_xl_amt_types
4416: FROM pa_fin_plan_types_b
4417: WHERE fin_plan_type_id = p_fin_plan_type_id;
4418:
4419: IF l_debug_mode = 'Y' THEN
4420: pa_debug.g_err_stage:= 'p_cost_layout_code:: ' || p_cost_layout_code || '::p_revenue_layout_code::' || p_revenue_layout_code || '::p_all_layout_code::' || p_all_layout_code;
4421: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4422: END IF;
4423:
4424:
4417: WHERE fin_plan_type_id = p_fin_plan_type_id;
4418:
4419: IF l_debug_mode = 'Y' THEN
4420: pa_debug.g_err_stage:= 'p_cost_layout_code:: ' || p_cost_layout_code || '::p_revenue_layout_code::' || p_revenue_layout_code || '::p_all_layout_code::' || p_all_layout_code;
4421: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4422: END IF;
4423:
4424:
4425: --populating the seeded views
4432:
4433: x_return_status := FND_API.G_RET_STS_ERROR;
4434: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4435: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4436: PA_DEBUG.Reset_Curr_Function;
4437: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4438: ELSE
4439: OPEN layout_details_cur FOR l_sql USING p_cost_layout_code;
4440: FETCH layout_details_cur INTO l_integrator_code;
4439: OPEN layout_details_cur FOR l_sql USING p_cost_layout_code;
4440: FETCH layout_details_cur INTO l_integrator_code;
4441:
4442: IF l_debug_mode = 'Y' THEN
4443: pa_debug.g_err_stage:= 'l_integrator_code' || l_integrator_code || '::l_layout_name::'|| l_layout_name;
4444: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4445: END IF;
4446:
4447:
4440: FETCH layout_details_cur INTO l_integrator_code;
4441:
4442: IF l_debug_mode = 'Y' THEN
4443: pa_debug.g_err_stage:= 'l_integrator_code' || l_integrator_code || '::l_layout_name::'|| l_layout_name;
4444: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4445: END IF;
4446:
4447:
4448: IF l_integrator_code = 'FINPLAN_BUDGET_PERIODIC' THEN
4499:
4500: x_return_status := FND_API.G_RET_STS_ERROR;
4501: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4502: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4503: PA_DEBUG.Reset_Curr_Function;
4504: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4505: ELSE
4506: OPEN layout_details_cur FOR l_sql USING p_revenue_layout_code;
4507: FETCH layout_details_cur INTO l_integrator_code;
4555:
4556: x_return_status := FND_API.G_RET_STS_ERROR;
4557: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4558: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4559: PA_DEBUG.Reset_Curr_Function;
4560: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4561: ELSE
4562:
4563: OPEN layout_details_cur FOR l_sql USING p_all_layout_code;
4563: OPEN layout_details_cur FOR l_sql USING p_all_layout_code;
4564: FETCH layout_details_cur INTO l_integrator_code;
4565:
4566: IF l_debug_mode = 'Y' THEN
4567: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4568: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4569: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4571: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4564: FETCH layout_details_cur INTO l_integrator_code;
4565:
4566: IF l_debug_mode = 'Y' THEN
4567: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4568: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4569: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4571: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4565:
4566: IF l_debug_mode = 'Y' THEN
4567: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4568: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4569: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4571: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4573: END IF;
4566: IF l_debug_mode = 'Y' THEN
4567: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4568: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4569: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4571: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4573: END IF;
4574:
4567: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4568: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4569: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4571: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4573: END IF;
4574:
4575:
4568: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4569: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4571: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4572: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4573: END IF;
4574:
4575:
4576: IF l_integrator_code = 'FINPLAN_BUDGET_PERIODIC' THEN
4625:
4626: IF l_cost_amount_types_tbl.COUNT > 0 THEN
4627:
4628: IF l_debug_mode = 'Y' THEN
4629: pa_debug.g_err_stage:= 'Inserting cost seed values into pa_proj_fp_xl_amounts ';
4630: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4631: END IF;
4632: FORALL j IN l_cost_amount_types_tbl.FIRST..l_cost_amount_types_tbl.LAST
4633: INSERT INTO pa_fp_proj_xl_amt_types (
4626: IF l_cost_amount_types_tbl.COUNT > 0 THEN
4627:
4628: IF l_debug_mode = 'Y' THEN
4629: pa_debug.g_err_stage:= 'Inserting cost seed values into pa_proj_fp_xl_amounts ';
4630: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4631: END IF;
4632: FORALL j IN l_cost_amount_types_tbl.FIRST..l_cost_amount_types_tbl.LAST
4633: INSERT INTO pa_fp_proj_xl_amt_types (
4634: project_id
4655: , fnd_global.login_id );
4656: ELSE
4657:
4658: IF l_debug_mode = 'Y' THEN
4659: pa_debug.g_err_stage:= 'Not a cost plan type';
4660: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4661: END IF;
4662: END IF;
4663:
4656: ELSE
4657:
4658: IF l_debug_mode = 'Y' THEN
4659: pa_debug.g_err_stage:= 'Not a cost plan type';
4660: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4661: END IF;
4662: END IF;
4663:
4664: IF l_rev_amount_types_tbl.COUNT > 0 THEN
4663:
4664: IF l_rev_amount_types_tbl.COUNT > 0 THEN
4665:
4666: IF l_debug_mode = 'Y' THEN
4667: pa_debug.g_err_stage:= 'Inserting rev seed values into pa_proj_fp_xl_amounts ';
4668: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4669: END IF;
4670: FORALL j IN l_rev_amount_types_tbl.FIRST..l_rev_amount_types_tbl.LAST
4671: INSERT INTO pa_fp_proj_xl_amt_types (
4664: IF l_rev_amount_types_tbl.COUNT > 0 THEN
4665:
4666: IF l_debug_mode = 'Y' THEN
4667: pa_debug.g_err_stage:= 'Inserting rev seed values into pa_proj_fp_xl_amounts ';
4668: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4669: END IF;
4670: FORALL j IN l_rev_amount_types_tbl.FIRST..l_rev_amount_types_tbl.LAST
4671: INSERT INTO pa_fp_proj_xl_amt_types (
4672: project_id
4693: , fnd_global.login_id );
4694: ELSE
4695:
4696: IF l_debug_mode = 'Y' THEN
4697: pa_debug.g_err_stage:= 'Not a rev plan type';
4698: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4699: END IF;
4700: END IF;
4701:
4694: ELSE
4695:
4696: IF l_debug_mode = 'Y' THEN
4697: pa_debug.g_err_stage:= 'Not a rev plan type';
4698: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4699: END IF;
4700: END IF;
4701:
4702: IF l_all_amount_types_tbl.COUNT > 0 THEN
4701:
4702: IF l_all_amount_types_tbl.COUNT > 0 THEN
4703:
4704: IF l_debug_mode = 'Y' THEN
4705: pa_debug.g_err_stage:= 'Inserting all seed values into pa_proj_fp_xl_amounts ';
4706: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4707: END IF;
4708:
4709: FORALL j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST
4702: IF l_all_amount_types_tbl.COUNT > 0 THEN
4703:
4704: IF l_debug_mode = 'Y' THEN
4705: pa_debug.g_err_stage:= 'Inserting all seed values into pa_proj_fp_xl_amounts ';
4706: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4707: END IF;
4708:
4709: FORALL j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST
4710:
4733: , fnd_global.login_id );
4734:
4735: IF l_debug_mode = 'Y' THEN
4736: FOR j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST LOOP
4737: pa_debug.g_err_stage:= 'Inserting all seed values ' || l_all_amount_types_tbl(j);
4738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4739: END LOOP;
4740: END IF;
4741:
4734:
4735: IF l_debug_mode = 'Y' THEN
4736: FOR j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST LOOP
4737: pa_debug.g_err_stage:= 'Inserting all seed values ' || l_all_amount_types_tbl(j);
4738: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4739: END LOOP;
4740: END IF;
4741:
4742:
4742:
4743: ELSE
4744:
4745: IF l_debug_mode = 'Y' THEN
4746: pa_debug.g_err_stage:= 'Not a cost and rev same plan type';
4747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4748: END IF;
4749: END IF;
4750: pa_debug.Reset_Curr_Function;
4743: ELSE
4744:
4745: IF l_debug_mode = 'Y' THEN
4746: pa_debug.g_err_stage:= 'Not a cost and rev same plan type';
4747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4748: END IF;
4749: END IF;
4750: pa_debug.Reset_Curr_Function;
4751:
4746: pa_debug.g_err_stage:= 'Not a cost and rev same plan type';
4747: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4748: END IF;
4749: END IF;
4750: pa_debug.Reset_Curr_Function;
4751:
4752: EXCEPTION
4753:
4754: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4760: ,p_msg_count => l_msg_count
4761: ,p_msg_data => l_msg_data
4762: ,p_data => l_data
4763: ,p_msg_index_out => l_msg_index_out);
4764: pa_debug.g_err_stage := l_data;
4765: x_msg_data := l_data;
4766: x_msg_count := l_msg_count;
4767: ELSE
4768: x_msg_count := l_msg_count;
4766: x_msg_count := l_msg_count;
4767: ELSE
4768: x_msg_count := l_msg_count;
4769: END IF;
4770: IF p_pa_debug_mode = 'Y' THEN
4771: pa_debug.g_err_stage:='Invalid Arguments Passed';
4772: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4773: END IF;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4767: ELSE
4768: x_msg_count := l_msg_count;
4769: END IF;
4770: IF p_pa_debug_mode = 'Y' THEN
4771: pa_debug.g_err_stage:='Invalid Arguments Passed';
4772: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4773: END IF;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4775: pa_debug.reset_curr_function;
4768: x_msg_count := l_msg_count;
4769: END IF;
4770: IF p_pa_debug_mode = 'Y' THEN
4771: pa_debug.g_err_stage:='Invalid Arguments Passed';
4772: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4773: END IF;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4775: pa_debug.reset_curr_function;
4776: RAISE;
4771: pa_debug.g_err_stage:='Invalid Arguments Passed';
4772: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4773: END IF;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4775: pa_debug.reset_curr_function;
4776: RAISE;
4777:
4778: WHEN OTHERS THEN
4779: FND_MSG_PUB.add_exc_msg
4778: WHEN OTHERS THEN
4779: FND_MSG_PUB.add_exc_msg
4780: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB' ||
4781: 'Create_amt_types'
4782: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4783: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4784: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: pa_debug.Reset_Curr_Function;
4779: FND_MSG_PUB.add_exc_msg
4780: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB' ||
4781: 'Create_amt_types'
4782: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4783: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4784: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: pa_debug.Reset_Curr_Function;
4787: RAISE;
4780: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB' ||
4781: 'Create_amt_types'
4782: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4783: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4784: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: pa_debug.Reset_Curr_Function;
4787: RAISE;
4788:
4782: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4783: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4784: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: pa_debug.Reset_Curr_Function;
4787: RAISE;
4788:
4789: END Create_amt_types;
4790:
4808: ) IS
4809:
4810: l_stage NUMBER := 100;
4811: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub.copy_amt_types';
4812: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4813: --Start of variables used for debugging
4814: l_return_status VARCHAR2(1);
4815: l_msg_count NUMBER := 0;
4816: l_msg_data VARCHAR2(2000);
4821: l_debug_level5 CONSTANT NUMBER :=5;
4822:
4823:
4824: BEGIN
4825: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4826: p_debug_mode => l_debug_mode );
4827:
4828: x_msg_count := 0;
4829: x_return_status := FND_API.G_RET_STS_SUCCESS;
4827:
4828: x_msg_count := 0;
4829: x_return_status := FND_API.G_RET_STS_SUCCESS;
4830:
4831: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4832: l_debug_mode := NVL(l_debug_mode, 'Y');
4833:
4834: IF l_debug_mode = 'Y' THEN
4835: pa_debug.g_err_stage:='Validating input parameters';
4831: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4832: l_debug_mode := NVL(l_debug_mode, 'Y');
4833:
4834: IF l_debug_mode = 'Y' THEN
4835: pa_debug.g_err_stage:='Validating input parameters';
4836: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
4837: END IF;
4838:
4839:
4832: l_debug_mode := NVL(l_debug_mode, 'Y');
4833:
4834: IF l_debug_mode = 'Y' THEN
4835: pa_debug.g_err_stage:='Validating input parameters';
4836: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
4837: END IF;
4838:
4839:
4840: IF p_source_project_id IS NULL OR
4842: p_target_project_id IS NULL OR
4843: p_target_fin_plan_type_id IS NULL THEN
4844:
4845: IF l_debug_mode = 'Y' THEN
4846: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4847: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4848: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4843: p_target_fin_plan_type_id IS NULL THEN
4844:
4845: IF l_debug_mode = 'Y' THEN
4846: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4847: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4848: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4851: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4844:
4845: IF l_debug_mode = 'Y' THEN
4846: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4847: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4848: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4851: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4852: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4845: IF l_debug_mode = 'Y' THEN
4846: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4847: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4848: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4851: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4852: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4846: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4847: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4848: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4851: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4852: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4854: END IF;
4847: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4848: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4851: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4852: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4854: END IF;
4855:
4848: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4851: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4852: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4854: END IF;
4855:
4856: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4849: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4850: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4851: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4852: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4854: END IF;
4855:
4856: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4857: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4884: FROM PA_FP_PROJ_XL_AMT_TYPES WHERE
4885: project_id = p_source_project_id AND
4886: fin_plan_type_id = p_source_fin_plan_type_id ;
4887:
4888: PA_DEBUG.Reset_Curr_Function;
4889:
4890: EXCEPTION
4891:
4892: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4904: x_msg_count := l_msg_count;
4905: ELSE
4906: x_msg_count := l_msg_count;
4907: END IF;
4908: pa_debug.reset_curr_function();
4909:
4910: WHEN OTHERS THEN
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: x_msg_count := 1;
4915: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_proj_fp_options_pub'
4916: ,p_procedure_name => 'copy_amt_types');
4917:
4918: IF l_debug_mode = 'Y' THEN
4919: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4920: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4921: END IF;
4922: -- reset curr function
4923: pa_debug.Reset_Curr_Function();
4916: ,p_procedure_name => 'copy_amt_types');
4917:
4918: IF l_debug_mode = 'Y' THEN
4919: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4920: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4921: END IF;
4922: -- reset curr function
4923: pa_debug.Reset_Curr_Function();
4924: RAISE;
4919: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4920: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4921: END IF;
4922: -- reset curr function
4923: pa_debug.Reset_Curr_Function();
4924: RAISE;
4925: END copy_amt_types;
4926:
4927: -- This procedure is used to update the amount types for the periodic budget or forcasts of an existing plan type
4940: ) IS
4941:
4942: l_stage NUMBER := 100;
4943: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
4944: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4945: --Start of variables used for debugging
4946: l_return_status VARCHAR2(1);
4947: l_msg_count NUMBER := 0;
4948: l_msg_data VARCHAR2(2000);
4955:
4956:
4957:
4958: BEGIN
4959: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4960: p_debug_mode => l_debug_mode );
4961:
4962: x_msg_count := 0;
4963: x_return_status := FND_API.G_RET_STS_SUCCESS;
4961:
4962: x_msg_count := 0;
4963: x_return_status := FND_API.G_RET_STS_SUCCESS;
4964:
4965: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4966: l_debug_mode := NVL(l_debug_mode, 'Y');
4967:
4968: IF l_debug_mode = 'Y' THEN
4969: pa_debug.g_err_stage:='Validating input parameters';
4965: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4966: l_debug_mode := NVL(l_debug_mode, 'Y');
4967:
4968: IF l_debug_mode = 'Y' THEN
4969: pa_debug.g_err_stage:='Validating input parameters';
4970: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
4971: END IF;
4972:
4973:
4966: l_debug_mode := NVL(l_debug_mode, 'Y');
4967:
4968: IF l_debug_mode = 'Y' THEN
4969: pa_debug.g_err_stage:='Validating input parameters';
4970: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
4971: END IF;
4972:
4973:
4974: IF p_project_id IS NULL OR
4974: IF p_project_id IS NULL OR
4975: p_fin_plan_type_id IS NULL THEN
4976:
4977: IF l_debug_mode = 'Y' THEN
4978: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
4979: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4980: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
4981: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4982: END IF;
4975: p_fin_plan_type_id IS NULL THEN
4976:
4977: IF l_debug_mode = 'Y' THEN
4978: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
4979: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4980: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
4981: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4982: END IF;
4983:
4976:
4977: IF l_debug_mode = 'Y' THEN
4978: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
4979: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4980: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
4981: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4982: END IF;
4983:
4984: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4977: IF l_debug_mode = 'Y' THEN
4978: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
4979: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4980: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
4981: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4982: END IF;
4983:
4984: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4985: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4990:
4991: IF p_add_cost_amt_types_tbl.COUNT > 0 THEN
4992:
4993: IF l_debug_mode = 'Y' THEN
4994: pa_debug.g_err_stage:= 'Inserting cost amount types into pa_proj_fp_xl_amounts ';
4995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4996: END IF;
4997: FORALL j in p_add_cost_amt_types_tbl.FIRST..p_add_cost_amt_types_tbl.LAST
4998:
4991: IF p_add_cost_amt_types_tbl.COUNT > 0 THEN
4992:
4993: IF l_debug_mode = 'Y' THEN
4994: pa_debug.g_err_stage:= 'Inserting cost amount types into pa_proj_fp_xl_amounts ';
4995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4996: END IF;
4997: FORALL j in p_add_cost_amt_types_tbl.FIRST..p_add_cost_amt_types_tbl.LAST
4998:
4999: INSERT into pa_fp_proj_xl_amt_types (
5022:
5023: IF p_del_cost_amt_types_tbl.COUNT > 0 THEN
5024:
5025: IF l_debug_mode = 'Y' THEN
5026: pa_debug.g_err_stage:= 'Deleting cost amount types from pa_proj_fp_xl_amounts ';
5027: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5028: END IF;
5029: FORALL j in p_del_cost_amt_types_tbl.FIRST..p_del_cost_amt_types_tbl.LAST
5030:
5023: IF p_del_cost_amt_types_tbl.COUNT > 0 THEN
5024:
5025: IF l_debug_mode = 'Y' THEN
5026: pa_debug.g_err_stage:= 'Deleting cost amount types from pa_proj_fp_xl_amounts ';
5027: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5028: END IF;
5029: FORALL j in p_del_cost_amt_types_tbl.FIRST..p_del_cost_amt_types_tbl.LAST
5030:
5031: DELETE FROM pa_fp_proj_xl_amt_types WHERE
5037:
5038: IF p_add_rev_amt_types_tbl.COUNT > 0 THEN
5039:
5040: IF l_debug_mode = 'Y' THEN
5041: pa_debug.g_err_stage:= 'Inserting rev amount types into pa_proj_fp_xl_amounts ';
5042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5043: END IF;
5044: FORALL j in p_add_rev_amt_types_tbl.FIRST..p_add_rev_amt_types_tbl.LAST
5045:
5038: IF p_add_rev_amt_types_tbl.COUNT > 0 THEN
5039:
5040: IF l_debug_mode = 'Y' THEN
5041: pa_debug.g_err_stage:= 'Inserting rev amount types into pa_proj_fp_xl_amounts ';
5042: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5043: END IF;
5044: FORALL j in p_add_rev_amt_types_tbl.FIRST..p_add_rev_amt_types_tbl.LAST
5045:
5046: INSERT into pa_fp_proj_xl_amt_types (
5068: END IF;
5069:
5070: IF p_del_rev_amt_types_tbl.COUNT > 0 THEN
5071: IF l_debug_mode = 'Y' THEN
5072: pa_debug.g_err_stage:= 'Deleting rev amount types from pa_proj_fp_xl_amounts ';
5073: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5074: END IF;
5075: FORALL j in p_del_rev_amt_types_tbl.FIRST..p_del_rev_amt_types_tbl.LAST
5076:
5069:
5070: IF p_del_rev_amt_types_tbl.COUNT > 0 THEN
5071: IF l_debug_mode = 'Y' THEN
5072: pa_debug.g_err_stage:= 'Deleting rev amount types from pa_proj_fp_xl_amounts ';
5073: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5074: END IF;
5075: FORALL j in p_del_rev_amt_types_tbl.FIRST..p_del_rev_amt_types_tbl.LAST
5076:
5077: DELETE FROM pa_fp_proj_xl_amt_types WHERE
5082: END IF;
5083:
5084: IF p_add_all_amt_types_tbl.COUNT > 0 THEN
5085: IF l_debug_mode = 'Y' THEN
5086: pa_debug.g_err_stage:= 'Inserting all amount types into pa_proj_fp_xl_amounts ';
5087: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5088: END IF;
5089: IF l_debug_mode = 'Y' THEN
5090: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5083:
5084: IF p_add_all_amt_types_tbl.COUNT > 0 THEN
5085: IF l_debug_mode = 'Y' THEN
5086: pa_debug.g_err_stage:= 'Inserting all amount types into pa_proj_fp_xl_amounts ';
5087: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5088: END IF;
5089: IF l_debug_mode = 'Y' THEN
5090: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5091: pa_debug.g_err_stage:= 'Inserting value:::: ' || p_add_all_amt_types_tbl(j) ;
5087: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5088: END IF;
5089: IF l_debug_mode = 'Y' THEN
5090: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5091: pa_debug.g_err_stage:= 'Inserting value:::: ' || p_add_all_amt_types_tbl(j) ;
5092: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5093: END LOOP;
5094: END IF;
5095:
5088: END IF;
5089: IF l_debug_mode = 'Y' THEN
5090: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5091: pa_debug.g_err_stage:= 'Inserting value:::: ' || p_add_all_amt_types_tbl(j) ;
5092: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5093: END LOOP;
5094: END IF;
5095:
5096: FORALL j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST
5122: END IF;
5123:
5124: IF p_del_all_amt_types_tbl.COUNT > 0 THEN
5125: IF l_debug_mode = 'Y' THEN
5126: pa_debug.g_err_stage:= 'Deleting all amount from pa_proj_fp_xl_amounts ';
5127: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5128: END IF;
5129: FORALL j in p_del_all_amt_types_tbl.FIRST..p_del_all_amt_types_tbl.LAST
5130:
5123:
5124: IF p_del_all_amt_types_tbl.COUNT > 0 THEN
5125: IF l_debug_mode = 'Y' THEN
5126: pa_debug.g_err_stage:= 'Deleting all amount from pa_proj_fp_xl_amounts ';
5127: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5128: END IF;
5129: FORALL j in p_del_all_amt_types_tbl.FIRST..p_del_all_amt_types_tbl.LAST
5130:
5131: DELETE FROM pa_fp_proj_xl_amt_types WHERE
5133: fin_plan_type_id = p_fin_plan_type_id AND
5134: option_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL AND
5135: amount_type_code = p_del_all_amt_types_tbl(j) ;
5136: END IF;
5137: PA_DEBUG.Reset_Curr_Function;
5138: EXCEPTION
5139:
5140: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5141: l_msg_count := FND_MSG_PUB.count_msg;
5152: x_msg_count := l_msg_count;
5153: ELSE
5154: x_msg_count := l_msg_count;
5155: END IF;
5156: pa_debug.reset_curr_function();
5157:
5158: WHEN OTHERS THEN
5159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5160: x_msg_count := 1;
5163: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_proj_fp_options_pub'
5164: ,p_procedure_name => 'update_amt_types');
5165:
5166: IF l_debug_mode = 'Y' THEN
5167: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5168: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5169: END IF;
5170: -- reset curr function
5171: pa_debug.Reset_Curr_Function();
5164: ,p_procedure_name => 'update_amt_types');
5165:
5166: IF l_debug_mode = 'Y' THEN
5167: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5168: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5169: END IF;
5170: -- reset curr function
5171: pa_debug.Reset_Curr_Function();
5172: RAISE;
5167: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5168: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5169: END IF;
5170: -- reset curr function
5171: pa_debug.Reset_Curr_Function();
5172: RAISE;
5173:
5174: END update_amt_types;
5175: