[Home] [Help]
1: package body PA_PROJ_FP_OPTIONS_PUB as
2: /* $Header: PAFPOPPB.pls 120.15 2012/01/19 08:16:46 a5sharma 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);
606:
607: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY OR
608: l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
609:
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.g_err_stage := 'inside cost only preference code FP_Cols_Rec.cost_time_phased_code :: '||FP_Cols_Rec.cost_time_phased_code;
612: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
613: END IF;
614:
607: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY OR
608: l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
609:
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.g_err_stage := 'inside cost only preference code FP_Cols_Rec.cost_time_phased_code :: '||FP_Cols_Rec.cost_time_phased_code;
612: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
613: END IF;
614:
615: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
608: l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP ) THEN
609:
610: IF P_PA_DEBUG_MODE = 'Y' THEN
611: pa_debug.g_err_stage := 'inside cost only preference code FP_Cols_Rec.cost_time_phased_code :: '||FP_Cols_Rec.cost_time_phased_code;
612: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
613: END IF;
614:
615: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
616:
613: END IF;
614:
615: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
616:
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: 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;
619: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
620: END IF;
621:
614:
615: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
616:
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: 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;
619: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
620: END IF;
621:
622: IF plan_type_info_rec.plan_class_code = 'BUDGET' THEN
615: IF FP_Cols_Rec.cost_time_phased_code in ('G','P') THEN
616:
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: 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;
619: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
620: END IF;
621:
622: IF plan_type_info_rec.plan_class_code = 'BUDGET' THEN
623:
872: IF l_target_option_level_code <> PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PROJECT THEN
873: /* While copying project, the MC options should be inherited from the source option
874: i.e., from the source project's plan type or plan version */
875: IF p_source_proj_fp_option_id IS NOT NULL THEN
876: IF P_PA_DEBUG_MODE = 'Y' THEN
877: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from source option';
878: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
879: END IF;
880:
873: /* While copying project, the MC options should be inherited from the source option
874: i.e., from the source project's plan type or plan version */
875: IF p_source_proj_fp_option_id IS NOT NULL THEN
876: IF P_PA_DEBUG_MODE = 'Y' THEN
877: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from source option';
878: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
879: END IF;
880:
881: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
874: i.e., from the source project's plan type or plan version */
875: IF p_source_proj_fp_option_id IS NOT NULL THEN
876: IF P_PA_DEBUG_MODE = 'Y' THEN
877: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from source option';
878: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
879: END IF;
880:
881: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
882:
879: END IF;
880:
881: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
882:
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'retruned from get_fp_proj_mc_options';
885: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
886: END IF;
887:
880:
881: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
882:
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'retruned from get_fp_proj_mc_options';
885: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
886: END IF;
887:
888: ELSE
881: fp_mc_cols_rec := get_fp_proj_mc_options(p_source_proj_fp_option_id);
882:
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'retruned from get_fp_proj_mc_options';
885: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
886: END IF;
887:
888: ELSE
889: /* MC Options are always inherited from the Plan Type MC options. In this case
888: ELSE
889: /* MC Options are always inherited from the Plan Type MC options. In this case
890: plan type id cannot be null (validation done) */
891: IF l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
892: IF P_PA_DEBUG_MODE = 'Y' THEN
893: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from plan type';
894: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
895: END IF;
896:
889: /* MC Options are always inherited from the Plan Type MC options. In this case
890: plan type id cannot be null (validation done) */
891: IF l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
892: IF P_PA_DEBUG_MODE = 'Y' THEN
893: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from plan type';
894: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
895: END IF;
896:
897: fp_mc_cols_rec := get_fp_plan_type_mc_options(l_plan_type_id);
890: plan type id cannot be null (validation done) */
891: IF l_target_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE THEN
892: IF P_PA_DEBUG_MODE = 'Y' THEN
893: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from plan type';
894: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
895: END IF;
896:
897: fp_mc_cols_rec := get_fp_plan_type_mc_options(l_plan_type_id);
898:
897: fp_mc_cols_rec := get_fp_plan_type_mc_options(l_plan_type_id);
898:
899: ELSE
900: IF l_par_Proj_FP_Options_ID IS NOT NULL THEN
901: IF P_PA_DEBUG_MODE = 'Y' THEN
902: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from parent';
903: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
904: END IF;
905:
898:
899: ELSE
900: IF l_par_Proj_FP_Options_ID IS NOT NULL THEN
901: IF P_PA_DEBUG_MODE = 'Y' THEN
902: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from parent';
903: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
904: END IF;
905:
906: /* #2598361: Modified the call from get_fp_plan_type_mc_options to
899: ELSE
900: IF l_par_Proj_FP_Options_ID IS NOT NULL THEN
901: IF P_PA_DEBUG_MODE = 'Y' THEN
902: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': getting mc options from parent';
903: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
904: END IF;
905:
906: /* #2598361: Modified the call from get_fp_plan_type_mc_options to
907: get_fp_proj_mc_options as the option level code is Plan Version. */
907: get_fp_proj_mc_options as the option level code is Plan Version. */
908: fp_mc_cols_rec := get_fp_proj_mc_options(l_par_Proj_FP_Options_ID);
909: ELSE
910: /* there is no default value for mc rec */
911: IF P_PA_DEBUG_MODE = 'Y' THEN
912: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': mc options cannot be determined. these are nulls';
913: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
914: END IF;
915: fp_mc_cols_rec := null;
908: fp_mc_cols_rec := get_fp_proj_mc_options(l_par_Proj_FP_Options_ID);
909: ELSE
910: /* there is no default value for mc rec */
911: IF P_PA_DEBUG_MODE = 'Y' THEN
912: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': mc options cannot be determined. these are nulls';
913: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
914: END IF;
915: fp_mc_cols_rec := null;
916: END IF;
909: ELSE
910: /* there is no default value for mc rec */
911: IF P_PA_DEBUG_MODE = 'Y' THEN
912: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': mc options cannot be determined. these are nulls';
913: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
914: END IF;
915: fp_mc_cols_rec := null;
916: END IF;
917: END IF;
937: FP_Mc_Cols_Rec.project_cost_rate_date_type := Null;
938: FP_Mc_Cols_Rec.project_cost_rate_date := Null;
939: END IF;
940: END IF;
941: IF P_PA_DEBUG_MODE = 'Y' THEN
942: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with conv attr settings';
943: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
944: END IF;
945:
938: FP_Mc_Cols_Rec.project_cost_rate_date := Null;
939: END IF;
940: END IF;
941: IF P_PA_DEBUG_MODE = 'Y' THEN
942: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with conv attr settings';
943: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
944: END IF;
945:
946:
939: END IF;
940: END IF;
941: IF P_PA_DEBUG_MODE = 'Y' THEN
942: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with conv attr settings';
943: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
944: END IF;
945:
946:
947: l_stage := 500;
952: -- defaulted to PA/GL period inwhich nvl(project start date, sysdate)
953: -- falls
954: IF l_source_project_id <> p_target_project_id
955: THEN
956: IF P_PA_DEBUG_MODE = 'Y' THEN
957: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' About to call Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
958: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
959: END IF;
960:
953: -- falls
954: IF l_source_project_id <> p_target_project_id
955: THEN
956: IF P_PA_DEBUG_MODE = 'Y' THEN
957: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' About to call Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
958: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
959: END IF;
960:
961: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
954: IF l_source_project_id <> p_target_project_id
955: THEN
956: IF P_PA_DEBUG_MODE = 'Y' THEN
957: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' About to call Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
958: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
959: END IF;
960:
961: Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults(
962: p_project_id => p_target_project_id
971: ,x_plan_version_exists_flag => l_plan_version_exists_flag
972: ,x_prj_start_date => l_prj_start_date
973: ,x_prj_end_date => l_prj_end_date );
974:
975: IF P_PA_DEBUG_MODE = 'Y' THEN
976: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' After call to Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
977: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
978: END IF;
979:
972: ,x_prj_start_date => l_prj_start_date
973: ,x_prj_end_date => l_prj_end_date );
974:
975: IF P_PA_DEBUG_MODE = 'Y' THEN
976: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' After call to Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
977: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
978: END IF;
979:
980:
973: ,x_prj_end_date => l_prj_end_date );
974:
975: IF P_PA_DEBUG_MODE = 'Y' THEN
976: pa_debug.g_err_stage := TO_CHAR(l_Stage)||' After call to Pa_Prj_Period_Profile_Utils.Get_Prj_Defaults';
977: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
978: END IF;
979:
980:
981: IF FP_Cols_Rec.cost_current_planning_period IS NOT NULL THEN
1002: END IF;
1003: END IF;
1004:
1005: END IF;
1006: IF P_PA_DEBUG_MODE = 'Y' THEN
1007: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with Project defaults';
1008: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1009: END IF;
1010:
1003: END IF;
1004:
1005: END IF;
1006: IF P_PA_DEBUG_MODE = 'Y' THEN
1007: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with Project defaults';
1008: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1009: END IF;
1010:
1011: l_stage := 600;
1004:
1005: END IF;
1006: IF P_PA_DEBUG_MODE = 'Y' THEN
1007: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Done with Project defaults';
1008: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1009: END IF;
1010:
1011: l_stage := 600;
1012:
1016: 'Copying from a Source FP Option to an exisiting Target FP Option' (Copy From page).
1017: In this case the Target FP option details need to be updated with the
1018: details of the Source FP Option. */
1019:
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1022: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1023: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1024: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1017: In this case the Target FP option details need to be updated with the
1018: details of the Source FP Option. */
1019:
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1022: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1023: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1024: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1025: END IF;
1018: details of the Source FP Option. */
1019:
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1022: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1023: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1024: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1025: END IF;
1026:
1019:
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1022: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1023: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1024: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1025: END IF;
1026:
1027: /* Bug 3149010 - Logic of not overwritting attribs when the target is ALL */
1020: IF P_PA_DEBUG_MODE = 'Y' THEN
1021: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to update row';
1022: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1023: pa_debug.g_err_stage := 'plan in multi flag = ' || FP_Cols_Rec.plan_in_multi_curr_flag;
1024: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1025: END IF;
1026:
1027: /* Bug 3149010 - Logic of not overwritting attribs when the target is ALL */
1028:
1300: /* Since the Target FP Option is NULL, a new Proj FP Option has to be created
1301: from the Source FP Option. */
1302: l_stage := 600;
1303:
1304: IF P_PA_DEBUG_MODE = 'Y' THEN
1305: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1306: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1307: END IF;
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1301: from the Source FP Option. */
1302: l_stage := 600;
1303:
1304: IF P_PA_DEBUG_MODE = 'Y' THEN
1305: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1306: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1307: END IF;
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1302: l_stage := 600;
1303:
1304: IF P_PA_DEBUG_MODE = 'Y' THEN
1305: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1306: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1307: END IF;
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1310: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1304: IF P_PA_DEBUG_MODE = 'Y' THEN
1305: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1306: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1307: END IF;
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1310: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1311: END IF;
1312:
1305: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Calling Table Handler to insert row';
1306: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1307: END IF;
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1310: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1311: END IF;
1312:
1313: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1306: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1307: END IF;
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'About to insert the row';
1310: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1311: END IF;
1312:
1313: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1314:
1494: END IF; -- source project is null
1495: END IF; -- web adi profile
1496: END IF;
1497:
1498: IF P_PA_DEBUG_MODE = 'Y' THEN
1499: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1500: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1501: pa_debug.reset_err_stack;
1502: END IF;
1495: END IF; -- web adi profile
1496: END IF;
1497:
1498: IF P_PA_DEBUG_MODE = 'Y' THEN
1499: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1500: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1501: pa_debug.reset_err_stack;
1502: END IF;
1503:
1496: END IF;
1497:
1498: IF P_PA_DEBUG_MODE = 'Y' THEN
1499: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1500: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1501: pa_debug.reset_err_stack;
1502: END IF;
1503:
1504: EXCEPTION
1497:
1498: IF P_PA_DEBUG_MODE = 'Y' THEN
1499: pa_debug.g_err_stage := TO_CHAR(l_stage)||': End of Create_FP_Option';
1500: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,3);
1501: pa_debug.reset_err_stack;
1502: END IF;
1503:
1504: EXCEPTION
1505: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1516: x_msg_count := l_msg_count;
1517: ELSE
1518: x_msg_count := l_msg_count;
1519: END IF;
1520: IF P_PA_DEBUG_MODE = 'Y' THEN
1521: pa_debug.reset_err_stack;
1522: END IF;
1523: RAISE;
1524: WHEN OTHERS THEN
1517: ELSE
1518: x_msg_count := l_msg_count;
1519: END IF;
1520: IF P_PA_DEBUG_MODE = 'Y' THEN
1521: pa_debug.reset_err_stack;
1522: END IF;
1523: RAISE;
1524: WHEN OTHERS THEN
1525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1526: x_msg_count := 1;
1527: x_msg_data := SQLERRM;
1528: FND_MSG_PUB.add_exc_msg
1529: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1530: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1533: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1534: pa_debug.reset_err_stack;
1527: x_msg_data := SQLERRM;
1528: FND_MSG_PUB.add_exc_msg
1529: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1530: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1533: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1534: pa_debug.reset_err_stack;
1535: END IF;
1528: FND_MSG_PUB.add_exc_msg
1529: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1530: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1533: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1534: pa_debug.reset_err_stack;
1535: END IF;
1536: RAISE ;
1529: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Create_FP_Option'
1530: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1533: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1534: pa_debug.reset_err_stack;
1535: END IF;
1536: RAISE ;
1537: END Create_FP_Option;
1530: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1531: IF P_PA_DEBUG_MODE = 'Y' THEN
1532: pa_debug.write('Create_FP_Option: ' || l_module_name,SQLERRM,5);
1533: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.G_Err_Stack,5);
1534: pa_debug.reset_err_stack;
1535: END IF;
1536: RAISE ;
1537: END Create_FP_Option;
1538:
1608: l_target_cost_rate_flag pa_fin_plan_amount_sets.cost_rate_flag%TYPE;
1609: l_target_burd_rate_flag pa_fin_plan_amount_sets.burden_rate_flag%TYPE;
1610:
1611: BEGIN
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1615: l_debug_mode := NVL(l_debug_mode, 'Y');
1616: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1609: l_target_burd_rate_flag pa_fin_plan_amount_sets.burden_rate_flag%TYPE;
1610:
1611: BEGIN
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1615: l_debug_mode := NVL(l_debug_mode, 'Y');
1616: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1617: END IF;
1610:
1611: BEGIN
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1615: l_debug_mode := NVL(l_debug_mode, 'Y');
1616: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1617: END IF;
1618:
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options');
1614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1615: l_debug_mode := NVL(l_debug_mode, 'Y');
1616: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1617: END IF;
1618:
1619: x_return_status := FND_API.G_RET_STS_SUCCESS;
1620:
1654: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) OR
1655: (l_source_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
1656: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
1657:
1658: IF P_PA_DEBUG_MODE = 'Y' THEN
1659: pa_debug.g_err_stage := 'Err- Invalid Combination of Source and Target Preference code';
1660: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
1661: END IF;
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1655: (l_source_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY AND
1656: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
1657:
1658: IF P_PA_DEBUG_MODE = 'Y' THEN
1659: pa_debug.g_err_stage := 'Err- Invalid Combination of Source and Target Preference code';
1660: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
1661: END IF;
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1663: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1656: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
1657:
1658: IF P_PA_DEBUG_MODE = 'Y' THEN
1659: pa_debug.g_err_stage := 'Err- Invalid Combination of Source and Target Preference code';
1660: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
1661: END IF;
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1663: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1664: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1690:
1691: IF p_target_fp_options_id IS NOT NULL AND
1692: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
1693:
1694: IF P_PA_DEBUG_MODE = 'Y' THEN
1695: pa_debug.g_err_stage := 'Inside target opt id not null ' || p_target_fp_options_id ||
1696: ' and target pref code is ALL';
1697: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1698: END IF;
1691: IF p_target_fp_options_id IS NOT NULL AND
1692: l_target_fin_plan_pref = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
1693:
1694: IF P_PA_DEBUG_MODE = 'Y' THEN
1695: pa_debug.g_err_stage := 'Inside target opt id not null ' || p_target_fp_options_id ||
1696: ' and target pref code is ALL';
1697: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1698: END IF;
1699:
1693:
1694: IF P_PA_DEBUG_MODE = 'Y' THEN
1695: pa_debug.g_err_stage := 'Inside target opt id not null ' || p_target_fp_options_id ||
1696: ' and target pref code is ALL';
1697: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1698: END IF;
1699:
1700: SELECT all_amount_set_id
1701: INTO l_target_all_amount_set_id
1819: manokuma: This can happen only in case of copy project when source and
1820: target both will be sep. Hence no change required here
1821: */
1822:
1823: IF P_PA_DEBUG_MODE = 'Y' THEN
1824: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue separately.';
1825: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1826: END IF;
1827:
1820: target both will be sep. Hence no change required here
1821: */
1822:
1823: IF P_PA_DEBUG_MODE = 'Y' THEN
1824: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue separately.';
1825: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1826: END IF;
1827:
1828: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1821: */
1822:
1823: IF P_PA_DEBUG_MODE = 'Y' THEN
1824: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue separately.';
1825: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1826: END IF;
1827:
1828: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
1829:
1951: COST_ONLY COST_ONLY Copy "cost" to "cost"
1952: COST_AND_REV_SEP COST_ONLY Copy "cost" to "cost"
1953: */
1954:
1955: IF P_PA_DEBUG_MODE = 'Y' THEN
1956: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
1957: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1958: END IF;
1959:
1952: COST_AND_REV_SEP COST_ONLY Copy "cost" to "cost"
1953: */
1954:
1955: IF P_PA_DEBUG_MODE = 'Y' THEN
1956: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
1957: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1958: END IF;
1959:
1960: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
1953: */
1954:
1955: IF P_PA_DEBUG_MODE = 'Y' THEN
1956: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
1957: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1958: END IF;
1959:
1960: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
1961: (
1980: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1981: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1982: END IF;
1983:
1984: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost Only.';
1986: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1987: END IF;
1988:
1981: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1982: END IF;
1983:
1984: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost Only.';
1986: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1987: END IF;
1988:
1989:
1982: END IF;
1983:
1984: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost Only.';
1986: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
1987: END IF;
1988:
1989:
1990: -- Bug 3362316, 08-JAN-2003: Added New FP.M Columns --------------------------
2123: REVENUE_ONLY REVENUE_ONLY Copy "revenue" to "revenue"
2124: COST_AND_REV_SEP REVENUE_ONLY Copy "revenue" to "revenue"
2125: */
2126:
2127: IF P_PA_DEBUG_MODE = 'Y' THEN
2128: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2129: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2130: END IF;
2131:
2124: COST_AND_REV_SEP REVENUE_ONLY Copy "revenue" to "revenue"
2125: */
2126:
2127: IF P_PA_DEBUG_MODE = 'Y' THEN
2128: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2129: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2130: END IF;
2131:
2132:
2125: */
2126:
2127: IF P_PA_DEBUG_MODE = 'Y' THEN
2128: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2129: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2130: END IF;
2131:
2132:
2133: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
2286: COST_AND_REV_SAME COST_AND_REV_SAME Copy "all" to "all"
2287: COST_AND_REV_SEP COST_AND_REV_SAME Copy "cost" to "all"
2288: */
2289:
2290: IF P_PA_DEBUG_MODE = 'Y' THEN
2291: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2292: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2293: END IF;
2294:
2287: COST_AND_REV_SEP COST_AND_REV_SAME Copy "cost" to "all"
2288: */
2289:
2290: IF P_PA_DEBUG_MODE = 'Y' THEN
2291: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2292: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2293: END IF;
2294:
2295: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
2288: */
2289:
2290: IF P_PA_DEBUG_MODE = 'Y' THEN
2291: pa_debug.g_err_stage := 'calling PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID.';
2292: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2293: END IF;
2294:
2295: PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID
2296: (
2315: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2316: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2317: END IF;
2318:
2319: IF P_PA_DEBUG_MODE = 'Y' THEN
2320: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue together.';
2321: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2322: END IF;
2323:
2316: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2317: END IF;
2318:
2319: IF P_PA_DEBUG_MODE = 'Y' THEN
2320: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue together.';
2321: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2322: END IF;
2323:
2324: SELECT fin_plan_start_date fin_plan_start_date
2317: END IF;
2318:
2319: IF P_PA_DEBUG_MODE = 'Y' THEN
2320: pa_debug.g_err_stage := 'Target Fin Plan Pref Code is Cost and Revenue together.';
2321: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2322: END IF;
2323:
2324: SELECT fin_plan_start_date fin_plan_start_date
2325: ,fin_plan_end_date fin_plan_end_date
2449: WHERE proj_fp_options_id = p_proj_fp_options_id;
2450:
2451: END IF;
2452:
2453: IF P_PA_DEBUG_MODE = 'Y' THEN
2454: pa_debug.g_err_stage := 'End of Get_FP_Options';
2455: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2456: pa_debug.reset_err_stack;
2457: END IF;
2450:
2451: END IF;
2452:
2453: IF P_PA_DEBUG_MODE = 'Y' THEN
2454: pa_debug.g_err_stage := 'End of Get_FP_Options';
2455: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2456: pa_debug.reset_err_stack;
2457: END IF;
2458:
2451: END IF;
2452:
2453: IF P_PA_DEBUG_MODE = 'Y' THEN
2454: pa_debug.g_err_stage := 'End of Get_FP_Options';
2455: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2456: pa_debug.reset_err_stack;
2457: END IF;
2458:
2459: EXCEPTION
2452:
2453: IF P_PA_DEBUG_MODE = 'Y' THEN
2454: pa_debug.g_err_stage := 'End of Get_FP_Options';
2455: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2456: pa_debug.reset_err_stack;
2457: END IF;
2458:
2459: EXCEPTION
2460: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2471: x_msg_count := l_msg_count;
2472: ELSE
2473: x_msg_count := l_msg_count;
2474: END IF;
2475: IF P_PA_DEBUG_MODE = 'Y' THEN
2476: pa_debug.reset_err_stack;
2477: END IF;
2478: RAISE;
2479: WHEN OTHERS THEN
2472: ELSE
2473: x_msg_count := l_msg_count;
2474: END IF;
2475: IF P_PA_DEBUG_MODE = 'Y' THEN
2476: pa_debug.reset_err_stack;
2477: END IF;
2478: RAISE;
2479: WHEN OTHERS THEN
2480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2481: x_msg_count := 1;
2482: x_msg_data := SQLERRM;
2483: FND_MSG_PUB.add_exc_msg
2484: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2485: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2486: IF P_PA_DEBUG_MODE = 'Y' THEN
2487: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2488: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2489: pa_debug.reset_err_stack;
2482: x_msg_data := SQLERRM;
2483: FND_MSG_PUB.add_exc_msg
2484: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2485: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2486: IF P_PA_DEBUG_MODE = 'Y' THEN
2487: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2488: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2489: pa_debug.reset_err_stack;
2490: END IF;
2483: FND_MSG_PUB.add_exc_msg
2484: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2485: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2486: IF P_PA_DEBUG_MODE = 'Y' THEN
2487: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2488: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2489: pa_debug.reset_err_stack;
2490: END IF;
2491:
2484: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Options'
2485: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2486: IF P_PA_DEBUG_MODE = 'Y' THEN
2487: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2488: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2489: pa_debug.reset_err_stack;
2490: END IF;
2491:
2492: RAISE;
2485: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2486: IF P_PA_DEBUG_MODE = 'Y' THEN
2487: pa_debug.write('Get_FP_Options: ' || l_module_name,SQLERRM,5);
2488: pa_debug.write('Get_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
2489: pa_debug.reset_err_stack;
2490: END IF;
2491:
2492: RAISE;
2493: END Get_FP_Options;
2511: x_proj_fp_options_id pa_proj_fp_options.PROJ_FP_OPTIONS_ID%TYPE;
2512: l_debug_mode VARCHAR2(30);
2513:
2514: BEGIN
2515: IF P_PA_DEBUG_MODE = 'Y' THEN
2516: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2517: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2518: l_debug_mode := NVL(l_debug_mode, 'Y');
2519: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2512: l_debug_mode VARCHAR2(30);
2513:
2514: BEGIN
2515: IF P_PA_DEBUG_MODE = 'Y' THEN
2516: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2517: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2518: l_debug_mode := NVL(l_debug_mode, 'Y');
2519: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2520: END IF;
2513:
2514: BEGIN
2515: IF P_PA_DEBUG_MODE = 'Y' THEN
2516: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2517: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2518: l_debug_mode := NVL(l_debug_mode, 'Y');
2519: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2520: END IF;
2521:
2515: IF P_PA_DEBUG_MODE = 'Y' THEN
2516: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID');
2517: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2518: l_debug_mode := NVL(l_debug_mode, 'Y');
2519: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2520: END IF;
2521:
2522: SELECT fin_plan_option_level_code, project_id, fin_plan_type_id
2523: INTO l_fp_option_level_code, l_proj_id, l_fp_type_id
2528: Project and Plan Type has to be selected. */
2529:
2530: IF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
2531:
2532: IF P_PA_DEBUG_MODE = 'Y' THEN
2533: pa_debug.g_err_stage := 'Option Level Code is PLAN_VERSION.';
2534: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2535: END IF;
2536:
2529:
2530: IF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
2531:
2532: IF P_PA_DEBUG_MODE = 'Y' THEN
2533: pa_debug.g_err_stage := 'Option Level Code is PLAN_VERSION.';
2534: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2535: END IF;
2536:
2537: SELECT proj_fp_options_id
2530: IF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION) THEN
2531:
2532: IF P_PA_DEBUG_MODE = 'Y' THEN
2533: pa_debug.g_err_stage := 'Option Level Code is PLAN_VERSION.';
2534: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2535: END IF;
2536:
2537: SELECT proj_fp_options_id
2538: INTO x_proj_fp_options_id
2543:
2544: /* To get the Parent Option of a PLAN_TYPE, PROJECT option for the
2545: Project has to be selected. */
2546:
2547: IF P_PA_DEBUG_MODE = 'Y' THEN
2548: pa_debug.g_err_stage := 'Option Level Code is PLAN_TYPE.';
2549: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2550: END IF;
2551:
2544: /* To get the Parent Option of a PLAN_TYPE, PROJECT option for the
2545: Project has to be selected. */
2546:
2547: IF P_PA_DEBUG_MODE = 'Y' THEN
2548: pa_debug.g_err_stage := 'Option Level Code is PLAN_TYPE.';
2549: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2550: END IF;
2551:
2552: ELSIF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
2545: Project has to be selected. */
2546:
2547: IF P_PA_DEBUG_MODE = 'Y' THEN
2548: pa_debug.g_err_stage := 'Option Level Code is PLAN_TYPE.';
2549: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2550: END IF;
2551:
2552: ELSIF (l_fp_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE) THEN
2553: SELECT proj_fp_options_id
2557: AND project_id = l_proj_id;
2558:
2559: END IF;
2560:
2561: IF P_PA_DEBUG_MODE = 'Y' THEN
2562: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2563: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2564: pa_debug.reset_err_stack;
2565: END IF;
2558:
2559: END IF;
2560:
2561: IF P_PA_DEBUG_MODE = 'Y' THEN
2562: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2563: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2564: pa_debug.reset_err_stack;
2565: END IF;
2566:
2559: END IF;
2560:
2561: IF P_PA_DEBUG_MODE = 'Y' THEN
2562: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2563: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2564: pa_debug.reset_err_stack;
2565: END IF;
2566:
2567: RETURN x_proj_fp_options_id;
2560:
2561: IF P_PA_DEBUG_MODE = 'Y' THEN
2562: pa_debug.g_err_stage := 'End of Get_Parent_FP_Option_ID';
2563: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2564: pa_debug.reset_err_stack;
2565: END IF;
2566:
2567: RETURN x_proj_fp_options_id;
2568:
2570:
2571: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2572: values are created. */
2573: WHEN NO_DATA_FOUND THEN
2574: IF P_PA_DEBUG_MODE = 'Y' THEN
2575: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2576: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2577: END IF;
2578: RETURN NULL;
2571: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2572: values are created. */
2573: WHEN NO_DATA_FOUND THEN
2574: IF P_PA_DEBUG_MODE = 'Y' THEN
2575: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2576: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2577: END IF;
2578: RETURN NULL;
2579:
2572: values are created. */
2573: WHEN NO_DATA_FOUND THEN
2574: IF P_PA_DEBUG_MODE = 'Y' THEN
2575: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2576: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2577: END IF;
2578: RETURN NULL;
2579:
2580: WHEN OTHERS THEN
2579:
2580: WHEN OTHERS THEN
2581: FND_MSG_PUB.add_exc_msg
2582: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2583: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2584: IF P_PA_DEBUG_MODE = 'Y' THEN
2585: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2586: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2587: pa_debug.reset_err_stack;
2580: WHEN OTHERS THEN
2581: FND_MSG_PUB.add_exc_msg
2582: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2583: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2584: IF P_PA_DEBUG_MODE = 'Y' THEN
2585: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2586: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2587: pa_debug.reset_err_stack;
2588: END IF;
2581: FND_MSG_PUB.add_exc_msg
2582: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2583: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2584: IF P_PA_DEBUG_MODE = 'Y' THEN
2585: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2586: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2587: pa_debug.reset_err_stack;
2588: END IF;
2589: RAISE;
2582: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Parent_FP_Option_ID'
2583: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2584: IF P_PA_DEBUG_MODE = 'Y' THEN
2585: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2586: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2587: pa_debug.reset_err_stack;
2588: END IF;
2589: RAISE;
2590: END Get_Parent_FP_Option_ID;
2583: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2584: IF P_PA_DEBUG_MODE = 'Y' THEN
2585: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2586: pa_debug.write('Get_Parent_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2587: pa_debug.reset_err_stack;
2588: END IF;
2589: RAISE;
2590: END Get_Parent_FP_Option_ID;
2591:
2607: l_debug_mode VARCHAR2(30);
2608:
2609: BEGIN
2610:
2611: IF P_PA_DEBUG_MODE = 'Y' THEN
2612: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2613: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2614: l_debug_mode := NVL(l_debug_mode, 'Y');
2615: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2608:
2609: BEGIN
2610:
2611: IF P_PA_DEBUG_MODE = 'Y' THEN
2612: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2613: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2614: l_debug_mode := NVL(l_debug_mode, 'Y');
2615: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2616: END IF;
2609: BEGIN
2610:
2611: IF P_PA_DEBUG_MODE = 'Y' THEN
2612: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2613: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2614: l_debug_mode := NVL(l_debug_mode, 'Y');
2615: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2616: END IF;
2617:
2611: IF P_PA_DEBUG_MODE = 'Y' THEN
2612: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID');
2613: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2614: l_debug_mode := NVL(l_debug_mode, 'Y');
2615: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2616: END IF;
2617:
2618: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2619:
2616: END IF;
2617:
2618: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2619:
2620: IF P_PA_DEBUG_MODE = 'Y' THEN
2621: pa_debug.g_err_stage := 'Getting the value of Option Level code.';
2622: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2623: END IF;
2624:
2617:
2618: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2619:
2620: IF P_PA_DEBUG_MODE = 'Y' THEN
2621: pa_debug.g_err_stage := 'Getting the value of Option Level code.';
2622: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2623: END IF;
2624:
2625: IF p_project_id IS NOT NULL THEN
2618: /* Depending on the input parameters, we get the Option_Level_Code of the FP Option. */
2619:
2620: IF P_PA_DEBUG_MODE = 'Y' THEN
2621: pa_debug.g_err_stage := 'Getting the value of Option Level code.';
2622: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2623: END IF;
2624:
2625: IF p_project_id IS NOT NULL THEN
2626: IF p_plan_type_id IS NOT NULL THEN
2667: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_VERSION;
2668:
2669: END IF;
2670:
2671: IF P_PA_DEBUG_MODE = 'Y' THEN
2672: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2673: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2674: pa_debug.reset_err_stack;
2675: END IF;
2668:
2669: END IF;
2670:
2671: IF P_PA_DEBUG_MODE = 'Y' THEN
2672: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2673: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2674: pa_debug.reset_err_stack;
2675: END IF;
2676: RETURN x_proj_fp_options_id;
2669: END IF;
2670:
2671: IF P_PA_DEBUG_MODE = 'Y' THEN
2672: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2673: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2674: pa_debug.reset_err_stack;
2675: END IF;
2676: RETURN x_proj_fp_options_id;
2677:
2670:
2671: IF P_PA_DEBUG_MODE = 'Y' THEN
2672: pa_debug.g_err_stage := 'End of Get_FP_Option_ID';
2673: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2674: pa_debug.reset_err_stack;
2675: END IF;
2676: RETURN x_proj_fp_options_id;
2677:
2678: EXCEPTION
2679:
2680: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2681: values are created. */
2682: WHEN NO_DATA_FOUND THEN
2683: IF P_PA_DEBUG_MODE = 'Y' THEN
2684: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2685: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2686: END IF;
2687: RETURN NULL;
2680: /* If there is no parent found, then return the FP_Option_ID as NULL so that default
2681: values are created. */
2682: WHEN NO_DATA_FOUND THEN
2683: IF P_PA_DEBUG_MODE = 'Y' THEN
2684: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2685: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2686: END IF;
2687: RETURN NULL;
2688:
2681: values are created. */
2682: WHEN NO_DATA_FOUND THEN
2683: IF P_PA_DEBUG_MODE = 'Y' THEN
2684: pa_debug.g_err_stage := 'Parent not found, hence returning NULL proj_fp_option_id';
2685: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2686: END IF;
2687: RETURN NULL;
2688:
2689: WHEN OTHERS THEN
2688:
2689: WHEN OTHERS THEN
2690: FND_MSG_PUB.add_exc_msg
2691: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2692: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2693: IF P_PA_DEBUG_MODE = 'Y' THEN
2694: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2695: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2696: pa_debug.reset_err_stack;
2689: WHEN OTHERS THEN
2690: FND_MSG_PUB.add_exc_msg
2691: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2692: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2693: IF P_PA_DEBUG_MODE = 'Y' THEN
2694: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2695: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2696: pa_debug.reset_err_stack;
2697: END IF;
2690: FND_MSG_PUB.add_exc_msg
2691: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2692: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2693: IF P_PA_DEBUG_MODE = 'Y' THEN
2694: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2695: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2696: pa_debug.reset_err_stack;
2697: END IF;
2698: RAISE;
2691: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID'
2692: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2693: IF P_PA_DEBUG_MODE = 'Y' THEN
2694: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2695: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2696: pa_debug.reset_err_stack;
2697: END IF;
2698: RAISE;
2699: END Get_FP_Option_ID;
2692: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2693: IF P_PA_DEBUG_MODE = 'Y' THEN
2694: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,SQLERRM,5);
2695: pa_debug.write('Get_FP_Option_ID: ' || l_module_name,pa_debug.G_Err_Stack,5);
2696: pa_debug.reset_err_stack;
2697: END IF;
2698: RAISE;
2699: END Get_FP_Option_ID;
2700:
2822: rbs_version_rec rbs_version_cur%ROWTYPE;
2823:
2824: BEGIN
2825:
2826: IF P_PA_DEBUG_MODE = 'Y' THEN
2827: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2828: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2829: l_debug_mode := NVL(l_debug_mode, 'Y');
2830: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2823:
2824: BEGIN
2825:
2826: IF P_PA_DEBUG_MODE = 'Y' THEN
2827: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2828: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2829: l_debug_mode := NVL(l_debug_mode, 'Y');
2830: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2831: END IF;
2824: BEGIN
2825:
2826: IF P_PA_DEBUG_MODE = 'Y' THEN
2827: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2828: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2829: l_debug_mode := NVL(l_debug_mode, 'Y');
2830: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2831: END IF;
2832: l_return_status := FND_API.G_RET_STS_SUCCESS;
2826: IF P_PA_DEBUG_MODE = 'Y' THEN
2827: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options');
2828: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2829: l_debug_mode := NVL(l_debug_mode, 'Y');
2830: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2831: END IF;
2832: l_return_status := FND_API.G_RET_STS_SUCCESS;
2833: -- 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
2834: -- Bug 6413612 : Added substr to fetch only 1 character of profile value
2868: AND R1.uncategorized_flag = 'Y'
2869: AND R1.business_group_id = pim.business_group_id;
2870: EXCEPTION
2871: WHEN NO_DATA_FOUND THEN
2872: IF P_PA_DEBUG_MODE = 'Y' THEN
2873: pa_debug.g_err_stage := 'No uncat resource list found corresponding to the org_id';
2874: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2875: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2876: END IF;
2869: AND R1.business_group_id = pim.business_group_id;
2870: EXCEPTION
2871: WHEN NO_DATA_FOUND THEN
2872: IF P_PA_DEBUG_MODE = 'Y' THEN
2873: pa_debug.g_err_stage := 'No uncat resource list found corresponding to the org_id';
2874: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2875: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2876: END IF;
2877: END;
2870: EXCEPTION
2871: WHEN NO_DATA_FOUND THEN
2872: IF P_PA_DEBUG_MODE = 'Y' THEN
2873: pa_debug.g_err_stage := 'No uncat resource list found corresponding to the org_id';
2874: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2875: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2876: END IF;
2877: END;
2878:
2901:
2902: /* Following code is added in context of autobaseline */
2903: /* Bug#2619022 */
2904:
2905: IF P_PA_DEBUG_MODE = 'Y' THEN
2906: 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);
2907: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2908: END IF;
2909:
2902: /* Following code is added in context of autobaseline */
2903: /* Bug#2619022 */
2904:
2905: IF P_PA_DEBUG_MODE = 'Y' THEN
2906: 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);
2907: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2908: END IF;
2909:
2910: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2903: /* Bug#2619022 */
2904:
2905: IF P_PA_DEBUG_MODE = 'Y' THEN
2906: 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);
2907: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2908: END IF;
2909:
2910: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2911:
2908: END IF;
2909:
2910: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2911:
2912: IF P_PA_DEBUG_MODE = 'Y' THEN
2913: pa_debug.g_err_stage := 'Fetching funding level for project ';
2914: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2915: END IF;
2916:
2909:
2910: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2911:
2912: IF P_PA_DEBUG_MODE = 'Y' THEN
2913: pa_debug.g_err_stage := 'Fetching funding level for project ';
2914: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2915: END IF;
2916:
2917: SELECT NVL(baseline_funding_flag,'N')
2910: IF p_target_project_id IS NOT NULL AND p_plan_type_id IS NOT NULL THEN
2911:
2912: IF P_PA_DEBUG_MODE = 'Y' THEN
2913: pa_debug.g_err_stage := 'Fetching funding level for project ';
2914: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2915: END IF;
2916:
2917: SELECT NVL(baseline_funding_flag,'N')
2918: ,NVL(approved_rev_plan_type_flag,'N')
2922: ,pa_fin_plan_types_b ptb
2923: WHERE ppa.project_id = p_target_project_id
2924: AND ptb.fin_plan_type_id = p_plan_type_id;
2925:
2926: IF P_PA_DEBUG_MODE = 'Y' THEN
2927: pa_debug.g_err_stage := 'Autobaseline flag : '||l_autobaseline_flag||
2928: ' Project level funding : '||l_proj_level_funding;
2929: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2930: END IF;
2923: WHERE ppa.project_id = p_target_project_id
2924: AND ptb.fin_plan_type_id = p_plan_type_id;
2925:
2926: IF P_PA_DEBUG_MODE = 'Y' THEN
2927: pa_debug.g_err_stage := 'Autobaseline flag : '||l_autobaseline_flag||
2928: ' Project level funding : '||l_proj_level_funding;
2929: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2930: END IF;
2931:
2925:
2926: IF P_PA_DEBUG_MODE = 'Y' THEN
2927: pa_debug.g_err_stage := 'Autobaseline flag : '||l_autobaseline_flag||
2928: ' Project level funding : '||l_proj_level_funding;
2929: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2930: END IF;
2931:
2932: END IF;
2933:
2948: /* #2681045: Exception will be raised only if the error code that is being returned by
2949: the above call is SQL error and not a pre-defined one in the check_funding_level
2950: procedure. */
2951: IF (l_err_code < 0 OR l_err_code = 100) THEN
2952: IF P_PA_DEBUG_MODE = 'Y' THEN
2953: pa_debug.g_err_stage := 'Error returned by pa_billing_core.check_funding_level:Err_code:'
2954: || to_char(l_err_code) || ':Err_stage:' || l_err_stage
2955: || ':Err_stack' || l_err_stack;
2956: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
2949: the above call is SQL error and not a pre-defined one in the check_funding_level
2950: procedure. */
2951: IF (l_err_code < 0 OR l_err_code = 100) THEN
2952: IF P_PA_DEBUG_MODE = 'Y' THEN
2953: pa_debug.g_err_stage := 'Error returned by pa_billing_core.check_funding_level:Err_code:'
2954: || to_char(l_err_code) || ':Err_stage:' || l_err_stage
2955: || ':Err_stack' || l_err_stack;
2956: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
2957: END IF;
2952: IF P_PA_DEBUG_MODE = 'Y' THEN
2953: pa_debug.g_err_stage := 'Error returned by pa_billing_core.check_funding_level:Err_code:'
2954: || to_char(l_err_code) || ':Err_stage:' || l_err_stage
2955: || ':Err_stack' || l_err_stack;
2956: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
2957: END IF;
2958: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2959: END IF;
2960:
2966: ELSE
2967: l_rev_fin_plan_level_code := 'L'; /* default value */
2968: END IF;
2969:
2970: IF P_PA_DEBUG_MODE = 'Y' THEN
2971: pa_debug.g_err_stage := ' l_rev_fin_plan_level_code : '||l_rev_fin_plan_level_code
2972: ||' p_fin_plan_pref_code : '||p_fin_plan_preference_code;
2973: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2974: END IF;
2967: l_rev_fin_plan_level_code := 'L'; /* default value */
2968: END IF;
2969:
2970: IF P_PA_DEBUG_MODE = 'Y' THEN
2971: pa_debug.g_err_stage := ' l_rev_fin_plan_level_code : '||l_rev_fin_plan_level_code
2972: ||' p_fin_plan_pref_code : '||p_fin_plan_preference_code;
2973: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2974: END IF;
2975:
2969:
2970: IF P_PA_DEBUG_MODE = 'Y' THEN
2971: pa_debug.g_err_stage := ' l_rev_fin_plan_level_code : '||l_rev_fin_plan_level_code
2972: ||' p_fin_plan_pref_code : '||p_fin_plan_preference_code;
2973: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
2974: END IF;
2975:
2976: --+++ Start of changes for Bug :- 2625872 +++--
2977: -- Fetch the project and project functional currency codes of the project
2985: , x_msg_data => l_msg_data
2986: , x_return_status => l_return_status);
2987:
2988: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2989: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
2990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2991: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2992: END IF;
2993:
2986: , x_return_status => l_return_status);
2987:
2988: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2989: pa_debug.g_err_stage:= 'Could not obtain currency info for the project';
2990: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2991: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2992: END IF;
2993:
2994: -- If the project and project func currencies aren't equal
3031: -- dependent
3032:
3033: IF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
3034:
3035: IF P_PA_DEBUG_MODE = 'Y' THEN
3036: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost Only.';
3037: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3038: END IF;
3039:
3032:
3033: IF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
3034:
3035: IF P_PA_DEBUG_MODE = 'Y' THEN
3036: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost Only.';
3037: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3038: END IF;
3039:
3040: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
3033: IF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
3034:
3035: IF P_PA_DEBUG_MODE = 'Y' THEN
3036: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost Only.';
3037: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3038: END IF;
3039:
3040: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
3041: l_fp_cols_rec.cost_fin_plan_level_code := l_fin_plan_level_code;
3051: END IF;
3052:
3053: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
3054:
3055: IF P_PA_DEBUG_MODE = 'Y' THEN
3056: pa_debug.g_err_stage := 'Fin Plan Preference code is Revenue Only.';
3057: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3058: END IF;
3059:
3052:
3053: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
3054:
3055: IF P_PA_DEBUG_MODE = 'Y' THEN
3056: pa_debug.g_err_stage := 'Fin Plan Preference code is Revenue Only.';
3057: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3058: END IF;
3059:
3060: l_fp_cols_rec.revenue_amount_set_id := l_revenue_amount_set_id;
3053: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
3054:
3055: IF P_PA_DEBUG_MODE = 'Y' THEN
3056: pa_debug.g_err_stage := 'Fin Plan Preference code is Revenue Only.';
3057: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3058: END IF;
3059:
3060: l_fp_cols_rec.revenue_amount_set_id := l_revenue_amount_set_id;
3061: l_fp_cols_rec.revenue_fin_plan_level_code := l_rev_fin_plan_level_code;
3086: END IF;
3087:
3088: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3089:
3090: IF P_PA_DEBUG_MODE = 'Y' THEN
3091: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue together.';
3092: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3093: END IF;
3094:
3087:
3088: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3089:
3090: IF P_PA_DEBUG_MODE = 'Y' THEN
3091: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue together.';
3092: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3093: END IF;
3094:
3095: l_fp_cols_rec.all_amount_set_id := l_all_amount_set_id;
3088: ELSIF (p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3089:
3090: IF P_PA_DEBUG_MODE = 'Y' THEN
3091: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue together.';
3092: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3093: END IF;
3094:
3095: l_fp_cols_rec.all_amount_set_id := l_all_amount_set_id;
3096: l_fp_cols_rec.all_fin_plan_level_code := l_fin_plan_level_code;
3121: END IF;
3122:
3123: ELSIF ( p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
3124:
3125: IF P_PA_DEBUG_MODE = 'Y' THEN
3126: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue separately.';
3127: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3128: END IF;
3129:
3122:
3123: ELSIF ( p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
3124:
3125: IF P_PA_DEBUG_MODE = 'Y' THEN
3126: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue separately.';
3127: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3128: END IF;
3129:
3130: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
3123: ELSIF ( p_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
3124:
3125: IF P_PA_DEBUG_MODE = 'Y' THEN
3126: pa_debug.g_err_stage := 'Fin Plan Preference code is Cost and Revenue separately.';
3127: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3128: END IF;
3129:
3130: l_fp_cols_rec.cost_amount_set_id := l_cost_amount_set_id;
3131: l_fp_cols_rec.cost_fin_plan_level_code := l_fin_plan_level_code;
3191: -- Separate processing based on plan class code
3192: IF (plan_type_info_rec.plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET)
3193: THEN
3194:
3195: IF P_PA_DEBUG_MODE = 'Y' THEN
3196: pa_debug.g_err_stage := 'fetching generation columns for cost';
3197: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3198: END IF;
3199:
3192: IF (plan_type_info_rec.plan_class_code = PA_FP_CONSTANTS_PKG.G_PLAN_CLASS_BUDGET)
3193: THEN
3194:
3195: IF P_PA_DEBUG_MODE = 'Y' THEN
3196: pa_debug.g_err_stage := 'fetching generation columns for cost';
3197: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3198: END IF;
3199:
3200: -- Estimate to completion source code should be null
3193: THEN
3194:
3195: IF P_PA_DEBUG_MODE = 'Y' THEN
3196: pa_debug.g_err_stage := 'fetching generation columns for cost';
3197: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3198: END IF;
3199:
3200: -- Estimate to completion source code should be null
3201:
3262: -- When there is no other plan type set plan type id to the same plan type
3263: l_fp_cols_rec.gen_src_cost_plan_type_id := p_plan_type_id; --UT
3264: l_fp_cols_rec.gen_src_cost_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3265: When others then
3266: IF P_PA_DEBUG_MODE = 'Y' THEN
3267: pa_debug.g_err_stage := 'execption while fetching default source cost plan type id when approved plan type is not available ';
3268: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3269: END IF;
3270: End;
3263: l_fp_cols_rec.gen_src_cost_plan_type_id := p_plan_type_id; --UT
3264: l_fp_cols_rec.gen_src_cost_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3265: When others then
3266: IF P_PA_DEBUG_MODE = 'Y' THEN
3267: pa_debug.g_err_stage := 'execption while fetching default source cost plan type id when approved plan type is not available ';
3268: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3269: END IF;
3270: End;
3271: When others then
3264: l_fp_cols_rec.gen_src_cost_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3265: When others then
3266: IF P_PA_DEBUG_MODE = 'Y' THEN
3267: pa_debug.g_err_stage := 'execption while fetching default source cost plan type id when approved plan type is not available ';
3268: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3269: END IF;
3270: End;
3271: When others then
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3268: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3269: END IF;
3270: End;
3271: When others then
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.g_err_stage := 'execption while fetching approved default source cost plan type id ';
3274: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3275: END IF;
3276: Raise;
3269: END IF;
3270: End;
3271: When others then
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.g_err_stage := 'execption while fetching approved default source cost plan type id ';
3274: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3275: END IF;
3276: Raise;
3277: End;
3270: End;
3271: When others then
3272: IF P_PA_DEBUG_MODE = 'Y' THEN
3273: pa_debug.g_err_stage := 'execption while fetching approved default source cost plan type id ';
3274: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3275: END IF;
3276: Raise;
3277: End;
3278:
3405: l_fp_cols_rec.gen_src_rev_plan_type_id := p_plan_type_id;
3406: l_fp_cols_rec.gen_src_rev_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3407: END IF;
3408: When others then
3409: IF P_PA_DEBUG_MODE = 'Y' THEN
3410: pa_debug.g_err_stage := 'execption while fetching default source
3411: revenue plan type id when approved plan type is not available ';
3412: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3413: END IF;
3406: l_fp_cols_rec.gen_src_rev_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3407: END IF;
3408: When others then
3409: IF P_PA_DEBUG_MODE = 'Y' THEN
3410: pa_debug.g_err_stage := 'execption while fetching default source
3411: revenue plan type id when approved plan type is not available ';
3412: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3413: END IF;
3414:
3408: When others then
3409: IF P_PA_DEBUG_MODE = 'Y' THEN
3410: pa_debug.g_err_stage := 'execption while fetching default source
3411: revenue plan type id when approved plan type is not available ';
3412: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3413: END IF;
3414:
3415: End;
3416: When others then
3413: END IF;
3414:
3415: End;
3416: When others then
3417: IF P_PA_DEBUG_MODE = 'Y' THEN
3418: pa_debug.g_err_stage := 'execption while fetching approved default source
3419: revenue plan type id ';
3420: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3421: END IF;
3414:
3415: End;
3416: When others then
3417: IF P_PA_DEBUG_MODE = 'Y' THEN
3418: pa_debug.g_err_stage := 'execption while fetching approved default source
3419: revenue plan type id ';
3420: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3421: END IF;
3422: Raise;
3416: When others then
3417: IF P_PA_DEBUG_MODE = 'Y' THEN
3418: pa_debug.g_err_stage := 'execption while fetching approved default source
3419: revenue plan type id ';
3420: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3421: END IF;
3422: Raise;
3423: End;
3424: END IF; -- revenue or cost and rev sep
3497: -- When there is no other plan type set to the same plan type id being created
3498: l_fp_cols_rec.gen_src_all_plan_type_id := p_plan_type_id;
3499: l_fp_cols_rec.gen_src_all_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3500: When others then
3501: IF P_PA_DEBUG_MODE = 'Y' THEN
3502: pa_debug.g_err_stage := 'execption while fetching default source
3503: all plan type id when approved plan type is not available ';
3504: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3505: END IF;
3498: l_fp_cols_rec.gen_src_all_plan_type_id := p_plan_type_id;
3499: l_fp_cols_rec.gen_src_all_plan_ver_code := 'CURRENT_BASELINED'; -- Bug 3572548
3500: When others then
3501: IF P_PA_DEBUG_MODE = 'Y' THEN
3502: pa_debug.g_err_stage := 'execption while fetching default source
3503: all plan type id when approved plan type is not available ';
3504: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3505: END IF;
3506:
3500: When others then
3501: IF P_PA_DEBUG_MODE = 'Y' THEN
3502: pa_debug.g_err_stage := 'execption while fetching default source
3503: all plan type id when approved plan type is not available ';
3504: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3505: END IF;
3506:
3507: End;
3508: When others then
3505: END IF;
3506:
3507: End;
3508: When others then
3509: IF P_PA_DEBUG_MODE = 'Y' THEN
3510: pa_debug.g_err_stage := 'execption while fetching approved default source
3511: all plan type id ';
3512: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3513: END IF;
3506:
3507: End;
3508: When others then
3509: IF P_PA_DEBUG_MODE = 'Y' THEN
3510: pa_debug.g_err_stage := 'execption while fetching approved default source
3511: all plan type id ';
3512: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3513: END IF;
3514: Raise;
3508: When others then
3509: IF P_PA_DEBUG_MODE = 'Y' THEN
3510: pa_debug.g_err_stage := 'execption while fetching approved default source
3511: all plan type id ';
3512: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3513: END IF;
3514: Raise;
3515: End;
3516: ELSE -- Forecast plan type
3551: null;
3552:
3553: END IF;
3554:
3555: IF P_PA_DEBUG_MODE = 'Y' THEN
3556: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3557: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3558: pa_debug.reset_err_stack;
3559: END IF;
3552:
3553: END IF;
3554:
3555: IF P_PA_DEBUG_MODE = 'Y' THEN
3556: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3557: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3558: pa_debug.reset_err_stack;
3559: END IF;
3560:
3553: END IF;
3554:
3555: IF P_PA_DEBUG_MODE = 'Y' THEN
3556: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3557: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3558: pa_debug.reset_err_stack;
3559: END IF;
3560:
3561: RETURN l_fp_cols_rec;
3554:
3555: IF P_PA_DEBUG_MODE = 'Y' THEN
3556: pa_debug.g_err_stage := 'End of Get_Default_FP_Options';
3557: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
3558: pa_debug.reset_err_stack;
3559: END IF;
3560:
3561: RETURN l_fp_cols_rec;
3562:
3570: ,p_msg_count => l_msg_count
3571: ,p_msg_data => l_msg_data
3572: ,p_data => l_data
3573: ,p_msg_index_out => l_msg_index_out);
3574: pa_debug.g_err_stage := l_data;
3575: IF P_PA_DEBUG_MODE = 'Y' THEN
3576: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3577: END IF;
3578: END IF;
3571: ,p_msg_data => l_msg_data
3572: ,p_data => l_data
3573: ,p_msg_index_out => l_msg_index_out);
3574: pa_debug.g_err_stage := l_data;
3575: IF P_PA_DEBUG_MODE = 'Y' THEN
3576: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3577: END IF;
3578: END IF;
3579: pa_debug.g_err_stage:='Invalid Arguments Passed';
3572: ,p_data => l_data
3573: ,p_msg_index_out => l_msg_index_out);
3574: pa_debug.g_err_stage := l_data;
3575: IF P_PA_DEBUG_MODE = 'Y' THEN
3576: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3577: END IF;
3578: END IF;
3579: pa_debug.g_err_stage:='Invalid Arguments Passed';
3580: IF P_PA_DEBUG_MODE = 'Y' THEN
3575: IF P_PA_DEBUG_MODE = 'Y' THEN
3576: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3577: END IF;
3578: END IF;
3579: pa_debug.g_err_stage:='Invalid Arguments Passed';
3580: IF P_PA_DEBUG_MODE = 'Y' THEN
3581: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3582: pa_debug.reset_err_stack;
3583: END IF;
3576: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3577: END IF;
3578: END IF;
3579: pa_debug.g_err_stage:='Invalid Arguments Passed';
3580: IF P_PA_DEBUG_MODE = 'Y' THEN
3581: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3582: pa_debug.reset_err_stack;
3583: END IF;
3584: RAISE;
3577: END IF;
3578: END IF;
3579: pa_debug.g_err_stage:='Invalid Arguments Passed';
3580: IF P_PA_DEBUG_MODE = 'Y' THEN
3581: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3582: pa_debug.reset_err_stack;
3583: END IF;
3584: RAISE;
3585: WHEN OTHERS THEN
3578: END IF;
3579: pa_debug.g_err_stage:='Invalid Arguments Passed';
3580: IF P_PA_DEBUG_MODE = 'Y' THEN
3581: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,5);
3582: pa_debug.reset_err_stack;
3583: END IF;
3584: RAISE;
3585: WHEN OTHERS THEN
3586: FND_MSG_PUB.add_exc_msg
3584: RAISE;
3585: WHEN OTHERS THEN
3586: FND_MSG_PUB.add_exc_msg
3587: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3588: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3589: IF P_PA_DEBUG_MODE = 'Y' THEN
3590: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3591: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3592: pa_debug.reset_err_stack;
3585: WHEN OTHERS THEN
3586: FND_MSG_PUB.add_exc_msg
3587: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3588: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3589: IF P_PA_DEBUG_MODE = 'Y' THEN
3590: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3591: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3592: pa_debug.reset_err_stack;
3593: END IF;
3586: FND_MSG_PUB.add_exc_msg
3587: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3588: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3589: IF P_PA_DEBUG_MODE = 'Y' THEN
3590: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3591: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3592: pa_debug.reset_err_stack;
3593: END IF;
3594: RAISE;
3587: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Get_Default_FP_Options'
3588: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3589: IF P_PA_DEBUG_MODE = 'Y' THEN
3590: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3591: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3592: pa_debug.reset_err_stack;
3593: END IF;
3594: RAISE;
3595: END Get_Default_FP_Options;
3588: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3589: IF P_PA_DEBUG_MODE = 'Y' THEN
3590: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,SQLERRM,5);
3591: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.G_Err_Stack,5);
3592: pa_debug.reset_err_stack;
3593: END IF;
3594: RAISE;
3595: END Get_Default_FP_Options;
3596:
3736:
3737: BEGIN
3738:
3739: FND_MSG_PUB.initialize;
3740: IF P_PA_DEBUG_MODE = 'Y' THEN
3741: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3742: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3743: l_debug_mode := NVL(l_debug_mode, 'Y');
3744: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3737: BEGIN
3738:
3739: FND_MSG_PUB.initialize;
3740: IF P_PA_DEBUG_MODE = 'Y' THEN
3741: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3742: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3743: l_debug_mode := NVL(l_debug_mode, 'Y');
3744: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3745: END IF;
3738:
3739: FND_MSG_PUB.initialize;
3740: IF P_PA_DEBUG_MODE = 'Y' THEN
3741: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3742: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3743: l_debug_mode := NVL(l_debug_mode, 'Y');
3744: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3745: END IF;
3746: x_msg_count := 0;
3740: IF P_PA_DEBUG_MODE = 'Y' THEN
3741: pa_debug.init_err_stack('PA_PROJ_FP_OPTIONS_PUB.SYNCHRONIZE_BUDGET_VERSION');
3742: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3743: l_debug_mode := NVL(l_debug_mode, 'Y');
3744: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3745: END IF;
3746: x_msg_count := 0;
3747: x_return_status := FND_API.G_RET_STS_SUCCESS;
3748:
3748:
3749: -- Check if budget version id is null. if yes
3750: -- throw an error.
3751:
3752: IF P_PA_DEBUG_MODE = 'Y' THEN
3753: pa_debug.g_err_stage := 'Parameter Validation';
3754: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3755: END IF;
3756:
3749: -- Check if budget version id is null. if yes
3750: -- throw an error.
3751:
3752: IF P_PA_DEBUG_MODE = 'Y' THEN
3753: pa_debug.g_err_stage := 'Parameter Validation';
3754: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3755: END IF;
3756:
3757: IF (p_budget_version_id IS NULL) THEN
3750: -- throw an error.
3751:
3752: IF P_PA_DEBUG_MODE = 'Y' THEN
3753: pa_debug.g_err_stage := 'Parameter Validation';
3754: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3755: END IF;
3756:
3757: IF (p_budget_version_id IS NULL) THEN
3758:
3755: END IF;
3756:
3757: IF (p_budget_version_id IS NULL) THEN
3758:
3759: IF P_PA_DEBUG_MODE = 'Y' THEN
3760: pa_debug.g_err_stage := 'budget version id='||p_budget_version_id;
3761: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3762: END IF;
3763:
3756:
3757: IF (p_budget_version_id IS NULL) THEN
3758:
3759: IF P_PA_DEBUG_MODE = 'Y' THEN
3760: pa_debug.g_err_stage := 'budget version id='||p_budget_version_id;
3761: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3762: END IF;
3763:
3764: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3757: IF (p_budget_version_id IS NULL) THEN
3758:
3759: IF P_PA_DEBUG_MODE = 'Y' THEN
3760: pa_debug.g_err_stage := 'budget version id='||p_budget_version_id;
3761: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3762: END IF;
3763:
3764: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3765: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3767: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3768:
3769: END IF;
3770:
3771: IF P_PA_DEBUG_MODE = 'Y' THEN
3772: pa_debug.g_err_stage := 'Parameter validation complete';
3773: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3774: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3775: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3768:
3769: END IF;
3770:
3771: IF P_PA_DEBUG_MODE = 'Y' THEN
3772: pa_debug.g_err_stage := 'Parameter validation complete';
3773: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3774: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3775: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3776: END IF;
3769: END IF;
3770:
3771: IF P_PA_DEBUG_MODE = 'Y' THEN
3772: pa_debug.g_err_stage := 'Parameter validation complete';
3773: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3774: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3775: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3776: END IF;
3777:
3770:
3771: IF P_PA_DEBUG_MODE = 'Y' THEN
3772: pa_debug.g_err_stage := 'Parameter validation complete';
3773: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3774: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3775: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3776: END IF;
3777:
3778: -- Open and fetch fin plan version info cur
3771: IF P_PA_DEBUG_MODE = 'Y' THEN
3772: pa_debug.g_err_stage := 'Parameter validation complete';
3773: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3774: pa_debug.g_err_stage := 'Check if amounts exist for this version';
3775: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3776: END IF;
3777:
3778: -- Open and fetch fin plan version info cur
3779:
3786:
3787:
3788: /*
3789: IF(l_amount_exists = 'Y') THEN
3790: IF P_PA_DEBUG_MODE = 'Y' THEN
3791: pa_debug.g_err_stage := 'Amounts exist for this version - returning';
3792: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3793: END IF;
3794: return;
3787:
3788: /*
3789: IF(l_amount_exists = 'Y') THEN
3790: IF P_PA_DEBUG_MODE = 'Y' THEN
3791: pa_debug.g_err_stage := 'Amounts exist for this version - returning';
3792: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3793: END IF;
3794: return;
3795: END IF;
3788: /*
3789: IF(l_amount_exists = 'Y') THEN
3790: IF P_PA_DEBUG_MODE = 'Y' THEN
3791: pa_debug.g_err_stage := 'Amounts exist for this version - returning';
3792: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3793: END IF;
3794: return;
3795: END IF;
3796: */
3852:
3853: EXCEPTION
3854:
3855: WHEN NO_DATA_FOUND THEN
3856: IF P_PA_DEBUG_MODE = 'Y' THEN
3857: pa_debug.g_err_stage := 'Invalid budget version id='||p_budget_version_id;
3858: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3859: END IF;
3860:
3853: EXCEPTION
3854:
3855: WHEN NO_DATA_FOUND THEN
3856: IF P_PA_DEBUG_MODE = 'Y' THEN
3857: pa_debug.g_err_stage := 'Invalid budget version id='||p_budget_version_id;
3858: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3859: END IF;
3860:
3861: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3854:
3855: WHEN NO_DATA_FOUND THEN
3856: IF P_PA_DEBUG_MODE = 'Y' THEN
3857: pa_debug.g_err_stage := 'Invalid budget version id='||p_budget_version_id;
3858: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3859: END IF;
3860:
3861: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3862: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3863:
3864: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3865: END;
3866:
3867: IF P_PA_DEBUG_MODE = 'Y' THEN
3868: pa_debug.g_err_stage := 'Determine if period profile to be updated.If yes get the id';
3869: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3870: END IF;
3871:
3864: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3865: END;
3866:
3867: IF P_PA_DEBUG_MODE = 'Y' THEN
3868: pa_debug.g_err_stage := 'Determine if period profile to be updated.If yes get the id';
3869: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3870: END IF;
3871:
3872: IF (l_period_profile_id is NULL) THEN
3865: END;
3866:
3867: IF P_PA_DEBUG_MODE = 'Y' THEN
3868: pa_debug.g_err_stage := 'Determine if period profile to be updated.If yes get the id';
3869: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3870: END IF;
3871:
3872: IF (l_period_profile_id is NULL) THEN
3873: IF (l_curr_period_type in (PA_FP_CONSTANTS_PKG.G_PERIOD_TYPE_PA,
3945: update pa_budget_versions
3946: set period_profile_id = l_curr_period_profile_id
3947: where budget_version_id = p_budget_version_id;
3948:
3949: IF P_PA_DEBUG_MODE = 'Y' THEN
3950: pa_debug.g_err_stage := 'period profile id updated : updated id -> '||to_char(l_curr_period_profile_id);
3951: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3952: END IF;
3953: END IF;
3946: set period_profile_id = l_curr_period_profile_id
3947: where budget_version_id = p_budget_version_id;
3948:
3949: IF P_PA_DEBUG_MODE = 'Y' THEN
3950: pa_debug.g_err_stage := 'period profile id updated : updated id -> '||to_char(l_curr_period_profile_id);
3951: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3952: END IF;
3953: END IF;
3954: */
3947: where budget_version_id = p_budget_version_id;
3948:
3949: IF P_PA_DEBUG_MODE = 'Y' THEN
3950: pa_debug.g_err_stage := 'period profile id updated : updated id -> '||to_char(l_curr_period_profile_id);
3951: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3952: END IF;
3953: END IF;
3954: */
3955: IF P_PA_DEBUG_MODE = 'Y' THEN
3951: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
3952: END IF;
3953: END IF;
3954: */
3955: IF P_PA_DEBUG_MODE = 'Y' THEN
3956: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3957: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3958: pa_debug.reset_err_stack;
3959: END IF;
3952: END IF;
3953: END IF;
3954: */
3955: IF P_PA_DEBUG_MODE = 'Y' THEN
3956: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3957: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3958: pa_debug.reset_err_stack;
3959: END IF;
3960: EXCEPTION
3953: END IF;
3954: */
3955: IF P_PA_DEBUG_MODE = 'Y' THEN
3956: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3957: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3958: pa_debug.reset_err_stack;
3959: END IF;
3960: EXCEPTION
3961: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3954: */
3955: IF P_PA_DEBUG_MODE = 'Y' THEN
3956: pa_debug.g_err_stage := 'Exit Synchronize_Budget_version';
3957: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,2);
3958: pa_debug.reset_err_stack;
3959: END IF;
3960: EXCEPTION
3961: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3962: l_msg_count := FND_MSG_PUB.count_msg;
3973: ELSE
3974: x_msg_count := l_msg_count;
3975: END IF;
3976: x_return_status := FND_API.G_RET_STS_ERROR;
3977: IF P_PA_DEBUG_MODE = 'Y' THEN
3978: pa_debug.g_err_stage:='Invalid Arguments Passed';
3979: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3980: pa_debug.reset_err_stack;
3981: END IF;
3974: x_msg_count := l_msg_count;
3975: END IF;
3976: x_return_status := FND_API.G_RET_STS_ERROR;
3977: IF P_PA_DEBUG_MODE = 'Y' THEN
3978: pa_debug.g_err_stage:='Invalid Arguments Passed';
3979: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3980: pa_debug.reset_err_stack;
3981: END IF;
3982: RETURN;
3975: END IF;
3976: x_return_status := FND_API.G_RET_STS_ERROR;
3977: IF P_PA_DEBUG_MODE = 'Y' THEN
3978: pa_debug.g_err_stage:='Invalid Arguments Passed';
3979: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3980: pa_debug.reset_err_stack;
3981: END IF;
3982: RETURN;
3983:
3976: x_return_status := FND_API.G_RET_STS_ERROR;
3977: IF P_PA_DEBUG_MODE = 'Y' THEN
3978: pa_debug.g_err_stage:='Invalid Arguments Passed';
3979: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3980: pa_debug.reset_err_stack;
3981: END IF;
3982: RETURN;
3983:
3984: WHEN Others THEN
3986: x_msg_count := 1;
3987: x_msg_data := SQLERRM;
3988: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB'
3989: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3990: IF P_PA_DEBUG_MODE = 'Y' THEN
3991: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3992: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3993: pa_debug.reset_err_stack;
3994: END IF;
3987: x_msg_data := SQLERRM;
3988: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB'
3989: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3990: IF P_PA_DEBUG_MODE = 'Y' THEN
3991: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3992: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3993: pa_debug.reset_err_stack;
3994: END IF;
3995: RAISE;
3988: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB'
3989: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3990: IF P_PA_DEBUG_MODE = 'Y' THEN
3991: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3992: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3993: pa_debug.reset_err_stack;
3994: END IF;
3995: RAISE;
3996: END SYNCHRONIZE_BUDGET_VERSION;
3989: ,p_procedure_name => 'SYNCHRONIZE_BUDGET_VERSION');
3990: IF P_PA_DEBUG_MODE = 'Y' THEN
3991: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3992: pa_debug.write('SYNCHRONIZE_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
3993: pa_debug.reset_err_stack;
3994: END IF;
3995: RAISE;
3996: END SYNCHRONIZE_BUDGET_VERSION;
3997:
4033: src_plan_type_info_rec src_plan_type_info_cur%ROWTYPE;
4034:
4035: BEGIN
4036:
4037: IF P_PA_DEBUG_MODE = 'Y' THEN
4038: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
4039: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4040: l_debug_mode := NVL(l_debug_mode, 'Y');
4041: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4034:
4035: BEGIN
4036:
4037: IF P_PA_DEBUG_MODE = 'Y' THEN
4038: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
4039: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4040: l_debug_mode := NVL(l_debug_mode, 'Y');
4041: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4042: END IF;
4035: BEGIN
4036:
4037: IF P_PA_DEBUG_MODE = 'Y' THEN
4038: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
4039: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4040: l_debug_mode := NVL(l_debug_mode, 'Y');
4041: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4042: END IF;
4043:
4037: IF P_PA_DEBUG_MODE = 'Y' THEN
4038: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id');
4039: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4040: l_debug_mode := NVL(l_debug_mode, 'Y');
4041: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4042: END IF;
4043:
4044: IF P_PA_DEBUG_MODE = 'Y' THEN
4045: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4040: l_debug_mode := NVL(l_debug_mode, 'Y');
4041: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4042: END IF;
4043:
4044: IF P_PA_DEBUG_MODE = 'Y' THEN
4045: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4046: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4041: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4042: END IF;
4043:
4044: IF P_PA_DEBUG_MODE = 'Y' THEN
4045: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4046: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4042: END IF;
4043:
4044: IF P_PA_DEBUG_MODE = 'Y' THEN
4045: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4046: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4043:
4044: IF P_PA_DEBUG_MODE = 'Y' THEN
4045: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4046: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4044: IF P_PA_DEBUG_MODE = 'Y' THEN
4045: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4046: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4052: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4045: pa_debug.g_err_stage:='Opening src_plan_type_info_cur';
4046: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4052: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4053: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4046: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4052: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4053: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4054: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4047: pa_debug.g_err_stage:='p_target_project_id = '||p_target_project_id;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4052: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4053: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4054: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4055: END IF;
4048: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4052: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4053: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4054: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4055: END IF;
4056:
4049: pa_debug.g_err_stage:='p_target_version_type = '|| p_target_version_type;
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4052: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4053: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4054: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4055: END IF;
4056:
4057: OPEN src_plan_type_info_cur(p_gen_src_plan_type_id, p_target_project_id);
4050: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4051: pa_debug.g_err_stage:='p_gen_src_plan_type_id = '|| p_gen_src_plan_type_id;
4052: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4053: pa_debug.g_err_stage:='p_gen_src_plan_ver_code = '||p_gen_src_plan_ver_code;
4054: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4055: END IF;
4056:
4057: OPEN src_plan_type_info_cur(p_gen_src_plan_type_id, p_target_project_id);
4058: FETCH src_plan_type_info_cur INTO src_plan_type_info_rec;
4060: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4061: END IF;
4062: CLOSE src_plan_type_info_cur;
4063:
4064: IF P_PA_DEBUG_MODE = 'Y' THEN
4065: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4066: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4067: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4068: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4061: END IF;
4062: CLOSE src_plan_type_info_cur;
4063:
4064: IF P_PA_DEBUG_MODE = 'Y' THEN
4065: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4066: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4067: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4068: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4069: END IF;
4062: CLOSE src_plan_type_info_cur;
4063:
4064: IF P_PA_DEBUG_MODE = 'Y' THEN
4065: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4066: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4067: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4068: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4069: END IF;
4070:
4063:
4064: IF P_PA_DEBUG_MODE = 'Y' THEN
4065: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4066: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4067: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4068: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4069: END IF;
4070:
4071: IF (src_plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ) OR
4064: IF P_PA_DEBUG_MODE = 'Y' THEN
4065: pa_debug.g_err_stage:='After Closing src_plan_type_info_cur';
4066: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4067: pa_debug.g_err_stage:='src_plan_type_info_rec.fin_plan_preference_code = = '||src_plan_type_info_rec.fin_plan_preference_code;
4068: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4069: END IF;
4070:
4071: IF (src_plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY ) OR
4072: -- (src_plan_type_info_rec.fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY ) OR
4125: END IF;
4126:
4127: END IF; -- p_gen_src_plan_ver_code
4128:
4129: IF P_PA_DEBUG_MODE = 'Y' THEN
4130: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4131: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4132: pa_debug.reset_err_stack;
4133: END IF;
4126:
4127: END IF; -- p_gen_src_plan_ver_code
4128:
4129: IF P_PA_DEBUG_MODE = 'Y' THEN
4130: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4131: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4132: pa_debug.reset_err_stack;
4133: END IF;
4134:
4127: END IF; -- p_gen_src_plan_ver_code
4128:
4129: IF P_PA_DEBUG_MODE = 'Y' THEN
4130: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4131: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4132: pa_debug.reset_err_stack;
4133: END IF;
4134:
4135: RETURN l_gen_src_plan_version_id;
4128:
4129: IF P_PA_DEBUG_MODE = 'Y' THEN
4130: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4131: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4132: pa_debug.reset_err_stack;
4133: END IF;
4134:
4135: RETURN l_gen_src_plan_version_id;
4136:
4193:
4194: RETURN l_gen_src_plan_version_id;
4195:
4196:
4197: IF P_PA_DEBUG_MODE = 'Y' THEN
4198: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4199: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.reset_err_stack;
4201: END IF;
4194: RETURN l_gen_src_plan_version_id;
4195:
4196:
4197: IF P_PA_DEBUG_MODE = 'Y' THEN
4198: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4199: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.reset_err_stack;
4201: END IF;
4202:
4195:
4196:
4197: IF P_PA_DEBUG_MODE = 'Y' THEN
4198: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4199: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.reset_err_stack;
4201: END IF;
4202:
4203:
4196:
4197: IF P_PA_DEBUG_MODE = 'Y' THEN
4198: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4199: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4200: pa_debug.reset_err_stack;
4201: END IF;
4202:
4203:
4204: END IF; -- src plan type preference code
4202:
4203:
4204: END IF; -- src plan type preference code
4205:
4206: IF P_PA_DEBUG_MODE = 'Y' THEN
4207: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4208: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4209: pa_debug.reset_err_stack;
4210: END IF;
4203:
4204: END IF; -- src plan type preference code
4205:
4206: IF P_PA_DEBUG_MODE = 'Y' THEN
4207: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4208: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4209: pa_debug.reset_err_stack;
4210: END IF;
4211:
4204: END IF; -- src plan type preference code
4205:
4206: IF P_PA_DEBUG_MODE = 'Y' THEN
4207: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4208: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4209: pa_debug.reset_err_stack;
4210: END IF;
4211:
4212: EXCEPTION
4205:
4206: IF P_PA_DEBUG_MODE = 'Y' THEN
4207: pa_debug.g_err_stage := 'End of Gen_Src_Plan_Version_Id';
4208: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4209: pa_debug.reset_err_stack;
4210: END IF;
4211:
4212: EXCEPTION
4213: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4219: ,p_msg_count => l_msg_count
4220: ,p_msg_data => l_msg_data
4221: ,p_data => l_data
4222: ,p_msg_index_out => l_msg_index_out);
4223: pa_debug.g_err_stage := l_data;
4224: IF P_PA_DEBUG_MODE = 'Y' THEN
4225: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4226: END IF;
4227: END IF;
4220: ,p_msg_data => l_msg_data
4221: ,p_data => l_data
4222: ,p_msg_index_out => l_msg_index_out);
4223: pa_debug.g_err_stage := l_data;
4224: IF P_PA_DEBUG_MODE = 'Y' THEN
4225: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4226: END IF;
4227: END IF;
4228: pa_debug.g_err_stage:='Invalid Arguments Passed';
4221: ,p_data => l_data
4222: ,p_msg_index_out => l_msg_index_out);
4223: pa_debug.g_err_stage := l_data;
4224: IF P_PA_DEBUG_MODE = 'Y' THEN
4225: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4226: END IF;
4227: END IF;
4228: pa_debug.g_err_stage:='Invalid Arguments Passed';
4229: IF P_PA_DEBUG_MODE = 'Y' THEN
4224: IF P_PA_DEBUG_MODE = 'Y' THEN
4225: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4226: END IF;
4227: END IF;
4228: pa_debug.g_err_stage:='Invalid Arguments Passed';
4229: IF P_PA_DEBUG_MODE = 'Y' THEN
4230: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4231: pa_debug.reset_err_stack;
4232: END IF;
4225: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4226: END IF;
4227: END IF;
4228: pa_debug.g_err_stage:='Invalid Arguments Passed';
4229: IF P_PA_DEBUG_MODE = 'Y' THEN
4230: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4231: pa_debug.reset_err_stack;
4232: END IF;
4233: RAISE;
4226: END IF;
4227: END IF;
4228: pa_debug.g_err_stage:='Invalid Arguments Passed';
4229: IF P_PA_DEBUG_MODE = 'Y' THEN
4230: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4231: pa_debug.reset_err_stack;
4232: END IF;
4233: RAISE;
4234: WHEN OTHERS THEN
4227: END IF;
4228: pa_debug.g_err_stage:='Invalid Arguments Passed';
4229: IF P_PA_DEBUG_MODE = 'Y' THEN
4230: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4231: pa_debug.reset_err_stack;
4232: END IF;
4233: RAISE;
4234: WHEN OTHERS THEN
4235: FND_MSG_PUB.add_exc_msg
4233: RAISE;
4234: WHEN OTHERS THEN
4235: FND_MSG_PUB.add_exc_msg
4236: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4237: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4238: IF P_PA_DEBUG_MODE = 'Y' THEN
4239: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4240: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4241: pa_debug.reset_err_stack;
4234: WHEN OTHERS THEN
4235: FND_MSG_PUB.add_exc_msg
4236: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4237: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4238: IF P_PA_DEBUG_MODE = 'Y' THEN
4239: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4240: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4241: pa_debug.reset_err_stack;
4242: END IF;
4235: FND_MSG_PUB.add_exc_msg
4236: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4237: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4238: IF P_PA_DEBUG_MODE = 'Y' THEN
4239: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4240: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4241: pa_debug.reset_err_stack;
4242: END IF;
4243: RAISE;
4236: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_Plan_Version_Id'
4237: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4238: IF P_PA_DEBUG_MODE = 'Y' THEN
4239: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4240: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4241: pa_debug.reset_err_stack;
4242: END IF;
4243: RAISE;
4244: END Gen_Src_Plan_Version_Id;
4237: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4238: IF P_PA_DEBUG_MODE = 'Y' THEN
4239: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,SQLERRM,5);
4240: pa_debug.write('Gen_Src_Plan_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4241: pa_debug.reset_err_stack;
4242: END IF;
4243: RAISE;
4244: END Gen_Src_Plan_Version_Id;
4245:
4297: and bv.project_structure_version_id = ver.element_version_id
4298: and ver.current_working_flag = 'Y';
4299:
4300: BEGIN
4301: pa_debug.set_curr_function(
4302: p_function =>'XX.XXXX'
4303: ,p_debug_mode => l_debug_mode );
4304:
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4301: pa_debug.set_curr_function(
4302: p_function =>'XX.XXXX'
4303: ,p_debug_mode => l_debug_mode );
4304:
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4306: pa_debug.g_err_stage := 'Start of Gen_Src_WP_Version_Id';
4307: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4308: END IF;
4309:
4302: p_function =>'XX.XXXX'
4303: ,p_debug_mode => l_debug_mode );
4304:
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4306: pa_debug.g_err_stage := 'Start of Gen_Src_WP_Version_Id';
4307: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4308: END IF;
4309:
4310: IF p_gen_src_wp_ver_code = 'LAST_PUBLISHED' THEN
4303: ,p_debug_mode => l_debug_mode );
4304:
4305: IF P_PA_DEBUG_MODE = 'Y' THEN
4306: pa_debug.g_err_stage := 'Start of Gen_Src_WP_Version_Id';
4307: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4308: END IF;
4309:
4310: IF p_gen_src_wp_ver_code = 'LAST_PUBLISHED' THEN
4311:
4326: CLOSE current_working_wp_version_cur;
4327:
4328: END IF;
4329:
4330: IF P_PA_DEBUG_MODE = 'Y' THEN
4331: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4332: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4333: END IF;
4334: pa_debug.reset_curr_function();
4327:
4328: END IF;
4329:
4330: IF P_PA_DEBUG_MODE = 'Y' THEN
4331: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4332: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4333: END IF;
4334: pa_debug.reset_curr_function();
4335:
4328: END IF;
4329:
4330: IF P_PA_DEBUG_MODE = 'Y' THEN
4331: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4332: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4333: END IF;
4334: pa_debug.reset_curr_function();
4335:
4336: RETURN l_gen_src_wp_ver_id;
4330: IF P_PA_DEBUG_MODE = 'Y' THEN
4331: pa_debug.g_err_stage := 'End of Gen_Src_WP_Version_Id';
4332: pa_debug.write('Get_Default_FP_Options: ' || l_module_name,pa_debug.g_err_stage,3);
4333: END IF;
4334: pa_debug.reset_curr_function();
4335:
4336: RETURN l_gen_src_wp_ver_id;
4337:
4338: EXCEPTION
4345: ,p_msg_count => l_msg_count
4346: ,p_msg_data => l_msg_data
4347: ,p_data => l_data
4348: ,p_msg_index_out => l_msg_index_out);
4349: pa_debug.g_err_stage := l_data;
4350: IF P_PA_DEBUG_MODE = 'Y' THEN
4351: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4352: END IF;
4353: END IF;
4346: ,p_msg_data => l_msg_data
4347: ,p_data => l_data
4348: ,p_msg_index_out => l_msg_index_out);
4349: pa_debug.g_err_stage := l_data;
4350: IF P_PA_DEBUG_MODE = 'Y' THEN
4351: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4352: END IF;
4353: END IF;
4354: IF P_PA_DEBUG_MODE = 'Y' THEN
4347: ,p_data => l_data
4348: ,p_msg_index_out => l_msg_index_out);
4349: pa_debug.g_err_stage := l_data;
4350: IF P_PA_DEBUG_MODE = 'Y' THEN
4351: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4352: END IF;
4353: END IF;
4354: IF P_PA_DEBUG_MODE = 'Y' THEN
4355: pa_debug.g_err_stage:='Invalid Arguments Passed';
4350: IF P_PA_DEBUG_MODE = 'Y' THEN
4351: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4352: END IF;
4353: END IF;
4354: IF P_PA_DEBUG_MODE = 'Y' THEN
4355: pa_debug.g_err_stage:='Invalid Arguments Passed';
4356: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4357: END IF;
4358: pa_debug.reset_curr_function;
4351: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4352: END IF;
4353: END IF;
4354: IF P_PA_DEBUG_MODE = 'Y' THEN
4355: pa_debug.g_err_stage:='Invalid Arguments Passed';
4356: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4357: END IF;
4358: pa_debug.reset_curr_function;
4359: RAISE;
4352: END IF;
4353: END IF;
4354: IF P_PA_DEBUG_MODE = 'Y' THEN
4355: pa_debug.g_err_stage:='Invalid Arguments Passed';
4356: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4357: END IF;
4358: pa_debug.reset_curr_function;
4359: RAISE;
4360: WHEN OTHERS THEN
4354: IF P_PA_DEBUG_MODE = 'Y' THEN
4355: pa_debug.g_err_stage:='Invalid Arguments Passed';
4356: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.g_err_stage,5);
4357: END IF;
4358: pa_debug.reset_curr_function;
4359: RAISE;
4360: WHEN OTHERS THEN
4361: FND_MSG_PUB.add_exc_msg
4362: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4359: RAISE;
4360: WHEN OTHERS THEN
4361: FND_MSG_PUB.add_exc_msg
4362: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4363: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4364: IF P_PA_DEBUG_MODE = 'Y' THEN
4365: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4366: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4367: END IF;
4360: WHEN OTHERS THEN
4361: FND_MSG_PUB.add_exc_msg
4362: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4363: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4364: IF P_PA_DEBUG_MODE = 'Y' THEN
4365: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4366: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4367: END IF;
4368: pa_debug.reset_curr_function;
4361: FND_MSG_PUB.add_exc_msg
4362: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4363: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4364: IF P_PA_DEBUG_MODE = 'Y' THEN
4365: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4366: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4367: END IF;
4368: pa_debug.reset_curr_function;
4369: RAISE;
4362: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB.Gen_Src_WP_Version_Id'
4363: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
4364: IF P_PA_DEBUG_MODE = 'Y' THEN
4365: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4366: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4367: END IF;
4368: pa_debug.reset_curr_function;
4369: RAISE;
4370: END Gen_Src_WP_Version_Id;
4364: IF P_PA_DEBUG_MODE = 'Y' THEN
4365: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,SQLERRM,5);
4366: pa_debug.write('Gen_Src_WP_Version_Id: ' || l_module_name,pa_debug.G_Err_Stack,5);
4367: END IF;
4368: pa_debug.reset_curr_function;
4369: RAISE;
4370: END Gen_Src_WP_Version_Id;
4371:
4372:
4400: l_all_layout_type_code VARCHAR2(30);
4401: l_debug_mode VARCHAR2(30);
4402: l_stage NUMBER := 100;
4403: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
4404: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4405: l_msg_count NUMBER :=0;
4406: l_msg_data VARCHAR2(2000);
4407: l_data VARCHAR2(2000);
4408: l_msg_index_out NUMBER;
4423:
4424:
4425: BEGIN
4426:
4427: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4428: p_debug_mode => l_debug_mode );
4429:
4430: IF P_PA_DEBUG_MODE = 'Y' THEN
4431: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4426:
4427: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4428: p_debug_mode => l_debug_mode );
4429:
4430: IF P_PA_DEBUG_MODE = 'Y' THEN
4431: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4432: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4433: l_debug_mode := NVL(l_debug_mode, 'Y');
4434: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4427: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4428: p_debug_mode => l_debug_mode );
4429:
4430: IF P_PA_DEBUG_MODE = 'Y' THEN
4431: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4432: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4433: l_debug_mode := NVL(l_debug_mode, 'Y');
4434: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4435: END IF;
4428: p_debug_mode => l_debug_mode );
4429:
4430: IF P_PA_DEBUG_MODE = 'Y' THEN
4431: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4432: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4433: l_debug_mode := NVL(l_debug_mode, 'Y');
4434: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4435: END IF;
4436:
4430: IF P_PA_DEBUG_MODE = 'Y' THEN
4431: pa_debug.set_err_stack('PA_PROJ_FP_OPTIONS_PUB.Create_amt_types');
4432: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4433: l_debug_mode := NVL(l_debug_mode, 'Y');
4434: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
4435: END IF;
4436:
4437: x_return_status := FND_API.G_RET_STS_SUCCESS;
4438:
4438:
4439: IF p_project_id IS NULL OR p_fin_plan_type_id IS NULL OR p_plan_preference_code IS NULL THEN
4440:
4441: l_stage := 340;
4442: IF P_PA_DEBUG_MODE = 'Y' THEN
4443: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - projectid or plan types id or pref code id is NULL';
4444: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
4445: END IF;
4446: x_return_status := FND_API.G_RET_STS_ERROR;
4439: IF p_project_id IS NULL OR p_fin_plan_type_id IS NULL OR p_plan_preference_code IS NULL THEN
4440:
4441: l_stage := 340;
4442: IF P_PA_DEBUG_MODE = 'Y' THEN
4443: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - projectid or plan types id or pref code id is NULL';
4444: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
4445: END IF;
4446: x_return_status := FND_API.G_RET_STS_ERROR;
4447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4440:
4441: l_stage := 340;
4442: IF P_PA_DEBUG_MODE = 'Y' THEN
4443: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err - projectid or plan types id or pref code id is NULL';
4444: pa_debug.write('Create_FP_Option: ' || l_module_name,pa_debug.g_err_stage,5);
4445: END IF;
4446: x_return_status := FND_API.G_RET_STS_ERROR;
4447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4448: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4445: END IF;
4446: x_return_status := FND_API.G_RET_STS_ERROR;
4447: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4448: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4449: PA_DEBUG.Reset_Curr_Function;
4450: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4451: END IF;
4452:
4453: --Delete the existing amount types for the project/plan types from pa_fp_proj_xl_amt_types
4461: FROM pa_fin_plan_types_b
4462: WHERE fin_plan_type_id = p_fin_plan_type_id;
4463:
4464: IF l_debug_mode = 'Y' THEN
4465: 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;
4466: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4467: END IF;
4468:
4469:
4462: WHERE fin_plan_type_id = p_fin_plan_type_id;
4463:
4464: IF l_debug_mode = 'Y' THEN
4465: 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;
4466: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4467: END IF;
4468:
4469:
4470: --populating the seeded views
4477:
4478: x_return_status := FND_API.G_RET_STS_ERROR;
4479: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4480: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4481: PA_DEBUG.Reset_Curr_Function;
4482: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4483: ELSE
4484: OPEN layout_details_cur FOR l_sql USING p_cost_layout_code;
4485: FETCH layout_details_cur INTO l_integrator_code;
4484: OPEN layout_details_cur FOR l_sql USING p_cost_layout_code;
4485: FETCH layout_details_cur INTO l_integrator_code;
4486:
4487: IF l_debug_mode = 'Y' THEN
4488: pa_debug.g_err_stage:= 'l_integrator_code' || l_integrator_code || '::l_layout_name::'|| l_layout_name;
4489: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4490: END IF;
4491:
4492:
4485: FETCH layout_details_cur INTO l_integrator_code;
4486:
4487: IF l_debug_mode = 'Y' THEN
4488: pa_debug.g_err_stage:= 'l_integrator_code' || l_integrator_code || '::l_layout_name::'|| l_layout_name;
4489: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4490: END IF;
4491:
4492:
4493: IF l_integrator_code = 'FINPLAN_BUDGET_PERIODIC' THEN
4544:
4545: x_return_status := FND_API.G_RET_STS_ERROR;
4546: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4547: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4548: PA_DEBUG.Reset_Curr_Function;
4549: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4550: ELSE
4551: OPEN layout_details_cur FOR l_sql USING p_revenue_layout_code;
4552: FETCH layout_details_cur INTO l_integrator_code;
4600:
4601: x_return_status := FND_API.G_RET_STS_ERROR;
4602: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4603: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4604: PA_DEBUG.Reset_Curr_Function;
4605: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4606: ELSE
4607:
4608: OPEN layout_details_cur FOR l_sql USING p_all_layout_code;
4608: OPEN layout_details_cur FOR l_sql USING p_all_layout_code;
4609: FETCH layout_details_cur INTO l_integrator_code;
4610:
4611: IF l_debug_mode = 'Y' THEN
4612: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4613: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4614: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4615: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4616: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4609: FETCH layout_details_cur INTO l_integrator_code;
4610:
4611: IF l_debug_mode = 'Y' THEN
4612: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4613: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4614: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4615: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4616: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4617: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4610:
4611: IF l_debug_mode = 'Y' THEN
4612: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4613: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4614: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4615: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4616: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4617: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4618: END IF;
4611: IF l_debug_mode = 'Y' THEN
4612: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4613: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4614: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4615: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4616: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4617: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4618: END IF;
4619:
4612: pa_debug.g_err_stage:= 'p_all_layout_code :::::: ' || p_all_layout_code ;
4613: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4614: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4615: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4616: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4617: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4618: END IF;
4619:
4620:
4613: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4614: pa_debug.g_err_stage:= 'l_layout_name :::::: ' || l_layout_name;
4615: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4616: pa_debug.g_err_stage:= 'l_integrator_code :::::: ' || l_integrator_code;
4617: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4618: END IF;
4619:
4620:
4621: IF l_integrator_code = 'FINPLAN_BUDGET_PERIODIC' THEN
4670:
4671: IF l_cost_amount_types_tbl.COUNT > 0 THEN
4672:
4673: IF l_debug_mode = 'Y' THEN
4674: pa_debug.g_err_stage:= 'Inserting cost seed values into pa_proj_fp_xl_amounts ';
4675: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4676: END IF;
4677: FORALL j IN l_cost_amount_types_tbl.FIRST..l_cost_amount_types_tbl.LAST
4678: INSERT INTO pa_fp_proj_xl_amt_types (
4671: IF l_cost_amount_types_tbl.COUNT > 0 THEN
4672:
4673: IF l_debug_mode = 'Y' THEN
4674: pa_debug.g_err_stage:= 'Inserting cost seed values into pa_proj_fp_xl_amounts ';
4675: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4676: END IF;
4677: FORALL j IN l_cost_amount_types_tbl.FIRST..l_cost_amount_types_tbl.LAST
4678: INSERT INTO pa_fp_proj_xl_amt_types (
4679: project_id
4700: , fnd_global.login_id );
4701: ELSE
4702:
4703: IF l_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:= 'Not a cost plan type';
4705: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4706: END IF;
4707: END IF;
4708:
4701: ELSE
4702:
4703: IF l_debug_mode = 'Y' THEN
4704: pa_debug.g_err_stage:= 'Not a cost plan type';
4705: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4706: END IF;
4707: END IF;
4708:
4709: IF l_rev_amount_types_tbl.COUNT > 0 THEN
4708:
4709: IF l_rev_amount_types_tbl.COUNT > 0 THEN
4710:
4711: IF l_debug_mode = 'Y' THEN
4712: pa_debug.g_err_stage:= 'Inserting rev seed values into pa_proj_fp_xl_amounts ';
4713: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4714: END IF;
4715: FORALL j IN l_rev_amount_types_tbl.FIRST..l_rev_amount_types_tbl.LAST
4716: INSERT INTO pa_fp_proj_xl_amt_types (
4709: IF l_rev_amount_types_tbl.COUNT > 0 THEN
4710:
4711: IF l_debug_mode = 'Y' THEN
4712: pa_debug.g_err_stage:= 'Inserting rev seed values into pa_proj_fp_xl_amounts ';
4713: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4714: END IF;
4715: FORALL j IN l_rev_amount_types_tbl.FIRST..l_rev_amount_types_tbl.LAST
4716: INSERT INTO pa_fp_proj_xl_amt_types (
4717: project_id
4738: , fnd_global.login_id );
4739: ELSE
4740:
4741: IF l_debug_mode = 'Y' THEN
4742: pa_debug.g_err_stage:= 'Not a rev plan type';
4743: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4744: END IF;
4745: END IF;
4746:
4739: ELSE
4740:
4741: IF l_debug_mode = 'Y' THEN
4742: pa_debug.g_err_stage:= 'Not a rev plan type';
4743: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4744: END IF;
4745: END IF;
4746:
4747: IF l_all_amount_types_tbl.COUNT > 0 THEN
4746:
4747: IF l_all_amount_types_tbl.COUNT > 0 THEN
4748:
4749: IF l_debug_mode = 'Y' THEN
4750: pa_debug.g_err_stage:= 'Inserting all seed values into pa_proj_fp_xl_amounts ';
4751: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4752: END IF;
4753:
4754: FORALL j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST
4747: IF l_all_amount_types_tbl.COUNT > 0 THEN
4748:
4749: IF l_debug_mode = 'Y' THEN
4750: pa_debug.g_err_stage:= 'Inserting all seed values into pa_proj_fp_xl_amounts ';
4751: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4752: END IF;
4753:
4754: FORALL j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST
4755:
4778: , fnd_global.login_id );
4779:
4780: IF l_debug_mode = 'Y' THEN
4781: FOR j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST LOOP
4782: pa_debug.g_err_stage:= 'Inserting all seed values ' || l_all_amount_types_tbl(j);
4783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4784: END LOOP;
4785: END IF;
4786:
4779:
4780: IF l_debug_mode = 'Y' THEN
4781: FOR j IN l_all_amount_types_tbl.FIRST..l_all_amount_types_tbl.LAST LOOP
4782: pa_debug.g_err_stage:= 'Inserting all seed values ' || l_all_amount_types_tbl(j);
4783: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4784: END LOOP;
4785: END IF;
4786:
4787:
4787:
4788: ELSE
4789:
4790: IF l_debug_mode = 'Y' THEN
4791: pa_debug.g_err_stage:= 'Not a cost and rev same plan type';
4792: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4793: END IF;
4794: END IF;
4795: pa_debug.Reset_Curr_Function;
4788: ELSE
4789:
4790: IF l_debug_mode = 'Y' THEN
4791: pa_debug.g_err_stage:= 'Not a cost and rev same plan type';
4792: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4793: END IF;
4794: END IF;
4795: pa_debug.Reset_Curr_Function;
4796:
4791: pa_debug.g_err_stage:= 'Not a cost and rev same plan type';
4792: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4793: END IF;
4794: END IF;
4795: pa_debug.Reset_Curr_Function;
4796:
4797: EXCEPTION
4798:
4799: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4805: ,p_msg_count => l_msg_count
4806: ,p_msg_data => l_msg_data
4807: ,p_data => l_data
4808: ,p_msg_index_out => l_msg_index_out);
4809: pa_debug.g_err_stage := l_data;
4810: x_msg_data := l_data;
4811: x_msg_count := l_msg_count;
4812: ELSE
4813: x_msg_count := l_msg_count;
4811: x_msg_count := l_msg_count;
4812: ELSE
4813: x_msg_count := l_msg_count;
4814: END IF;
4815: IF p_pa_debug_mode = 'Y' THEN
4816: pa_debug.g_err_stage:='Invalid Arguments Passed';
4817: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4818: END IF;
4819: x_return_status := FND_API.G_RET_STS_ERROR;
4812: ELSE
4813: x_msg_count := l_msg_count;
4814: END IF;
4815: IF p_pa_debug_mode = 'Y' THEN
4816: pa_debug.g_err_stage:='Invalid Arguments Passed';
4817: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4818: END IF;
4819: x_return_status := FND_API.G_RET_STS_ERROR;
4820: pa_debug.reset_curr_function;
4813: x_msg_count := l_msg_count;
4814: END IF;
4815: IF p_pa_debug_mode = 'Y' THEN
4816: pa_debug.g_err_stage:='Invalid Arguments Passed';
4817: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4818: END IF;
4819: x_return_status := FND_API.G_RET_STS_ERROR;
4820: pa_debug.reset_curr_function;
4821: RAISE;
4816: pa_debug.g_err_stage:='Invalid Arguments Passed';
4817: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4818: END IF;
4819: x_return_status := FND_API.G_RET_STS_ERROR;
4820: pa_debug.reset_curr_function;
4821: RAISE;
4822:
4823: WHEN OTHERS THEN
4824: FND_MSG_PUB.add_exc_msg
4823: WHEN OTHERS THEN
4824: FND_MSG_PUB.add_exc_msg
4825: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB' ||
4826: 'Create_amt_types'
4827: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4828: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4829: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4831: pa_debug.Reset_Curr_Function;
4824: FND_MSG_PUB.add_exc_msg
4825: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB' ||
4826: 'Create_amt_types'
4827: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4828: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4829: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4831: pa_debug.Reset_Curr_Function;
4832: RAISE;
4825: ( p_pkg_name => 'PA_PROJ_FP_OPTIONS_PUB' ||
4826: 'Create_amt_types'
4827: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4828: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4829: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4831: pa_debug.Reset_Curr_Function;
4832: RAISE;
4833:
4827: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
4828: pa_debug.g_err_stage := 'Unexpected error in Create_amt_types:';
4829: pa_debug.write('Create_amt_types: ' || l_module_name,pa_debug.g_err_stage,5);
4830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4831: pa_debug.Reset_Curr_Function;
4832: RAISE;
4833:
4834: END Create_amt_types;
4835:
4853: ) IS
4854:
4855: l_stage NUMBER := 100;
4856: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub.copy_amt_types';
4857: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4858: --Start of variables used for debugging
4859: l_return_status VARCHAR2(1);
4860: l_msg_count NUMBER := 0;
4861: l_msg_data VARCHAR2(2000);
4866: l_debug_level5 CONSTANT NUMBER :=5;
4867:
4868:
4869: BEGIN
4870: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
4871: p_debug_mode => l_debug_mode );
4872:
4873: x_msg_count := 0;
4874: x_return_status := FND_API.G_RET_STS_SUCCESS;
4872:
4873: x_msg_count := 0;
4874: x_return_status := FND_API.G_RET_STS_SUCCESS;
4875:
4876: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4877: l_debug_mode := NVL(l_debug_mode, 'Y');
4878:
4879: IF l_debug_mode = 'Y' THEN
4880: pa_debug.g_err_stage:='Validating input parameters';
4876: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4877: l_debug_mode := NVL(l_debug_mode, 'Y');
4878:
4879: IF l_debug_mode = 'Y' THEN
4880: pa_debug.g_err_stage:='Validating input parameters';
4881: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
4882: END IF;
4883:
4884:
4877: l_debug_mode := NVL(l_debug_mode, 'Y');
4878:
4879: IF l_debug_mode = 'Y' THEN
4880: pa_debug.g_err_stage:='Validating input parameters';
4881: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
4882: END IF;
4883:
4884:
4885: IF p_source_project_id IS NULL OR
4887: p_target_project_id IS NULL OR
4888: p_target_fin_plan_type_id IS NULL THEN
4889:
4890: IF l_debug_mode = 'Y' THEN
4891: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4892: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4893: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4888: p_target_fin_plan_type_id IS NULL THEN
4889:
4890: IF l_debug_mode = 'Y' THEN
4891: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4892: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4893: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4896: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4889:
4890: IF l_debug_mode = 'Y' THEN
4891: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4892: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4893: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4896: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4897: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4890: IF l_debug_mode = 'Y' THEN
4891: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4892: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4893: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4896: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4897: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4898: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4891: pa_debug.g_err_stage:='p_source_project_id is '||p_source_project_id;
4892: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4893: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4896: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4897: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4898: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4899: END IF;
4892: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4893: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4896: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4897: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4898: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4899: END IF;
4900:
4893: pa_debug.g_err_stage:='p_source_fin_plan_type_id is '||p_source_fin_plan_type_id;
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4896: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4897: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4898: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4899: END IF;
4900:
4901: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4894: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4895: pa_debug.g_err_stage:='p_target_project_id is '||p_target_project_id;
4896: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4897: pa_debug.g_err_stage:='p_target_fin_plan_type_id is '||p_target_fin_plan_type_id;
4898: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4899: END IF;
4900:
4901: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4902: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4929: FROM PA_FP_PROJ_XL_AMT_TYPES WHERE
4930: project_id = p_source_project_id AND
4931: fin_plan_type_id = p_source_fin_plan_type_id ;
4932:
4933: PA_DEBUG.Reset_Curr_Function;
4934:
4935: EXCEPTION
4936:
4937: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4949: x_msg_count := l_msg_count;
4950: ELSE
4951: x_msg_count := l_msg_count;
4952: END IF;
4953: pa_debug.reset_curr_function();
4954:
4955: WHEN OTHERS THEN
4956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4957: x_msg_count := 1;
4960: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_proj_fp_options_pub'
4961: ,p_procedure_name => 'copy_amt_types');
4962:
4963: IF l_debug_mode = 'Y' THEN
4964: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4966: END IF;
4967: -- reset curr function
4968: pa_debug.Reset_Curr_Function();
4961: ,p_procedure_name => 'copy_amt_types');
4962:
4963: IF l_debug_mode = 'Y' THEN
4964: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4966: END IF;
4967: -- reset curr function
4968: pa_debug.Reset_Curr_Function();
4969: RAISE;
4964: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4966: END IF;
4967: -- reset curr function
4968: pa_debug.Reset_Curr_Function();
4969: RAISE;
4970: END copy_amt_types;
4971:
4972: -- This procedure is used to update the amount types for the periodic budget or forcasts of an existing plan type
4985: ) IS
4986:
4987: l_stage NUMBER := 100;
4988: l_module_name VARCHAR2(100) := 'pa.plsql.pa_proj_fp_options_pub';
4989: P_PA_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4990: --Start of variables used for debugging
4991: l_return_status VARCHAR2(1);
4992: l_msg_count NUMBER := 0;
4993: l_msg_data VARCHAR2(2000);
5000:
5001:
5002:
5003: BEGIN
5004: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
5005: p_debug_mode => l_debug_mode );
5006:
5007: x_msg_count := 0;
5008: x_return_status := FND_API.G_RET_STS_SUCCESS;
5006:
5007: x_msg_count := 0;
5008: x_return_status := FND_API.G_RET_STS_SUCCESS;
5009:
5010: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5011: l_debug_mode := NVL(l_debug_mode, 'Y');
5012:
5013: IF l_debug_mode = 'Y' THEN
5014: pa_debug.g_err_stage:='Validating input parameters';
5010: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
5011: l_debug_mode := NVL(l_debug_mode, 'Y');
5012:
5013: IF l_debug_mode = 'Y' THEN
5014: pa_debug.g_err_stage:='Validating input parameters';
5015: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
5016: END IF;
5017:
5018:
5011: l_debug_mode := NVL(l_debug_mode, 'Y');
5012:
5013: IF l_debug_mode = 'Y' THEN
5014: pa_debug.g_err_stage:='Validating input parameters';
5015: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
5016: END IF;
5017:
5018:
5019: IF p_project_id IS NULL OR
5019: IF p_project_id IS NULL OR
5020: p_fin_plan_type_id IS NULL THEN
5021:
5022: IF l_debug_mode = 'Y' THEN
5023: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
5024: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5025: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
5026: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5027: END IF;
5020: p_fin_plan_type_id IS NULL THEN
5021:
5022: IF l_debug_mode = 'Y' THEN
5023: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
5024: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5025: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
5026: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5027: END IF;
5028:
5021:
5022: IF l_debug_mode = 'Y' THEN
5023: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
5024: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5025: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
5026: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5027: END IF;
5028:
5029: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5022: IF l_debug_mode = 'Y' THEN
5023: pa_debug.g_err_stage:='p_project_id is '||p_project_id;
5024: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5025: pa_debug.g_err_stage:='p_fin_plan_type_id is '||p_fin_plan_type_id;
5026: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5027: END IF;
5028:
5029: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5030: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5035:
5036: IF p_add_cost_amt_types_tbl.COUNT > 0 THEN
5037:
5038: IF l_debug_mode = 'Y' THEN
5039: pa_debug.g_err_stage:= 'Inserting cost amount types into pa_proj_fp_xl_amounts ';
5040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5041: END IF;
5042: FORALL j in p_add_cost_amt_types_tbl.FIRST..p_add_cost_amt_types_tbl.LAST
5043:
5036: IF p_add_cost_amt_types_tbl.COUNT > 0 THEN
5037:
5038: IF l_debug_mode = 'Y' THEN
5039: pa_debug.g_err_stage:= 'Inserting cost amount types into pa_proj_fp_xl_amounts ';
5040: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5041: END IF;
5042: FORALL j in p_add_cost_amt_types_tbl.FIRST..p_add_cost_amt_types_tbl.LAST
5043:
5044: INSERT into pa_fp_proj_xl_amt_types (
5067:
5068: IF p_del_cost_amt_types_tbl.COUNT > 0 THEN
5069:
5070: IF l_debug_mode = 'Y' THEN
5071: pa_debug.g_err_stage:= 'Deleting cost amount types from pa_proj_fp_xl_amounts ';
5072: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5073: END IF;
5074: FORALL j in p_del_cost_amt_types_tbl.FIRST..p_del_cost_amt_types_tbl.LAST
5075:
5068: IF p_del_cost_amt_types_tbl.COUNT > 0 THEN
5069:
5070: IF l_debug_mode = 'Y' THEN
5071: pa_debug.g_err_stage:= 'Deleting cost amount types from pa_proj_fp_xl_amounts ';
5072: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5073: END IF;
5074: FORALL j in p_del_cost_amt_types_tbl.FIRST..p_del_cost_amt_types_tbl.LAST
5075:
5076: DELETE FROM pa_fp_proj_xl_amt_types WHERE
5082:
5083: IF p_add_rev_amt_types_tbl.COUNT > 0 THEN
5084:
5085: IF l_debug_mode = 'Y' THEN
5086: pa_debug.g_err_stage:= 'Inserting rev 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: FORALL j in p_add_rev_amt_types_tbl.FIRST..p_add_rev_amt_types_tbl.LAST
5090:
5083: IF p_add_rev_amt_types_tbl.COUNT > 0 THEN
5084:
5085: IF l_debug_mode = 'Y' THEN
5086: pa_debug.g_err_stage:= 'Inserting rev 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: FORALL j in p_add_rev_amt_types_tbl.FIRST..p_add_rev_amt_types_tbl.LAST
5090:
5091: INSERT into pa_fp_proj_xl_amt_types (
5113: END IF;
5114:
5115: IF p_del_rev_amt_types_tbl.COUNT > 0 THEN
5116: IF l_debug_mode = 'Y' THEN
5117: pa_debug.g_err_stage:= 'Deleting rev amount types from pa_proj_fp_xl_amounts ';
5118: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5119: END IF;
5120: FORALL j in p_del_rev_amt_types_tbl.FIRST..p_del_rev_amt_types_tbl.LAST
5121:
5114:
5115: IF p_del_rev_amt_types_tbl.COUNT > 0 THEN
5116: IF l_debug_mode = 'Y' THEN
5117: pa_debug.g_err_stage:= 'Deleting rev amount types from pa_proj_fp_xl_amounts ';
5118: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5119: END IF;
5120: FORALL j in p_del_rev_amt_types_tbl.FIRST..p_del_rev_amt_types_tbl.LAST
5121:
5122: DELETE FROM pa_fp_proj_xl_amt_types WHERE
5127: END IF;
5128:
5129: IF p_add_all_amt_types_tbl.COUNT > 0 THEN
5130: IF l_debug_mode = 'Y' THEN
5131: pa_debug.g_err_stage:= 'Inserting all amount types into pa_proj_fp_xl_amounts ';
5132: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5133: END IF;
5134: IF l_debug_mode = 'Y' THEN
5135: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5128:
5129: IF p_add_all_amt_types_tbl.COUNT > 0 THEN
5130: IF l_debug_mode = 'Y' THEN
5131: pa_debug.g_err_stage:= 'Inserting all amount types into pa_proj_fp_xl_amounts ';
5132: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5133: END IF;
5134: IF l_debug_mode = 'Y' THEN
5135: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5136: pa_debug.g_err_stage:= 'Inserting value:::: ' || p_add_all_amt_types_tbl(j) ;
5132: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5133: END IF;
5134: IF l_debug_mode = 'Y' THEN
5135: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5136: pa_debug.g_err_stage:= 'Inserting value:::: ' || p_add_all_amt_types_tbl(j) ;
5137: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5138: END LOOP;
5139: END IF;
5140:
5133: END IF;
5134: IF l_debug_mode = 'Y' THEN
5135: FOR j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST LOOP
5136: pa_debug.g_err_stage:= 'Inserting value:::: ' || p_add_all_amt_types_tbl(j) ;
5137: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5138: END LOOP;
5139: END IF;
5140:
5141: FORALL j in p_add_all_amt_types_tbl.FIRST..p_add_all_amt_types_tbl.LAST
5167: END IF;
5168:
5169: IF p_del_all_amt_types_tbl.COUNT > 0 THEN
5170: IF l_debug_mode = 'Y' THEN
5171: pa_debug.g_err_stage:= 'Deleting all amount from pa_proj_fp_xl_amounts ';
5172: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5173: END IF;
5174: FORALL j in p_del_all_amt_types_tbl.FIRST..p_del_all_amt_types_tbl.LAST
5175:
5168:
5169: IF p_del_all_amt_types_tbl.COUNT > 0 THEN
5170: IF l_debug_mode = 'Y' THEN
5171: pa_debug.g_err_stage:= 'Deleting all amount from pa_proj_fp_xl_amounts ';
5172: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5173: END IF;
5174: FORALL j in p_del_all_amt_types_tbl.FIRST..p_del_all_amt_types_tbl.LAST
5175:
5176: DELETE FROM pa_fp_proj_xl_amt_types WHERE
5178: fin_plan_type_id = p_fin_plan_type_id AND
5179: option_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL AND
5180: amount_type_code = p_del_all_amt_types_tbl(j) ;
5181: END IF;
5182: PA_DEBUG.Reset_Curr_Function;
5183: EXCEPTION
5184:
5185: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5186: l_msg_count := FND_MSG_PUB.count_msg;
5197: x_msg_count := l_msg_count;
5198: ELSE
5199: x_msg_count := l_msg_count;
5200: END IF;
5201: pa_debug.reset_curr_function();
5202:
5203: WHEN OTHERS THEN
5204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5205: x_msg_count := 1;
5208: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_proj_fp_options_pub'
5209: ,p_procedure_name => 'update_amt_types');
5210:
5211: IF l_debug_mode = 'Y' THEN
5212: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5213: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5214: END IF;
5215: -- reset curr function
5216: pa_debug.Reset_Curr_Function();
5209: ,p_procedure_name => 'update_amt_types');
5210:
5211: IF l_debug_mode = 'Y' THEN
5212: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5213: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5214: END IF;
5215: -- reset curr function
5216: pa_debug.Reset_Curr_Function();
5217: RAISE;
5212: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
5213: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5214: END IF;
5215: -- reset curr function
5216: pa_debug.Reset_Curr_Function();
5217: RAISE;
5218:
5219: END update_amt_types;
5220: