1: PACKAGE body PA_FP_COMMITMENT_AMOUNTS as
2: /* $Header: PAFPCMTB.pls 120.4 2010/06/15 06:56:57 paljain ship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:
6: PROCEDURE GET_COMMITMENT_AMTS
7: (P_PROJECT_ID IN PA_PROJ_FP_OPTIONS.PROJECT_ID%TYPE,
8: P_BUDGET_VERSION_ID IN PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE,
191: BEGIN
192: X_MSG_COUNT := 0;
193: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
194:
195: IF p_pa_debug_mode = 'Y' THEN
196: pa_debug.set_curr_function( p_function => 'GEN_COMMITMENT_AMOUNTS'
197: ,p_debug_mode => p_pa_debug_mode);
198: END IF;
199:
192: X_MSG_COUNT := 0;
193: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
194:
195: IF p_pa_debug_mode = 'Y' THEN
196: pa_debug.set_curr_function( p_function => 'GEN_COMMITMENT_AMOUNTS'
197: ,p_debug_mode => p_pa_debug_mode);
198: END IF;
199:
200: l_stru_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(P_PROJECT_ID=> P_PROJECT_ID);
193: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
194:
195: IF p_pa_debug_mode = 'Y' THEN
196: pa_debug.set_curr_function( p_function => 'GEN_COMMITMENT_AMOUNTS'
197: ,p_debug_mode => p_pa_debug_mode);
198: END IF;
199:
200: l_stru_sharing_code := PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(P_PROJECT_ID=> P_PROJECT_ID);
201:
240: AND NVL(CT.generation_error_flag,'N') = 'N'
241: AND ct.RESOURCE_CLASS = rc.RESOURCE_CLASS_CODE(+);
242:
243: IF l_TXN_SOURCE_ID_tab.count = 0 THEN
244: IF P_PA_DEBUG_MODE = 'Y' THEN
245: PA_DEBUG.Reset_Curr_Function;
246: END IF;
247: RETURN;
248: END IF;
241: AND ct.RESOURCE_CLASS = rc.RESOURCE_CLASS_CODE(+);
242:
243: IF l_TXN_SOURCE_ID_tab.count = 0 THEN
244: IF P_PA_DEBUG_MODE = 'Y' THEN
245: PA_DEBUG.Reset_Curr_Function;
246: END IF;
247: RETURN;
248: END IF;
249: --dbms_output.put_line('l_TXN_SOURCE_ID_tab.count: '||l_TXN_SOURCE_ID_tab.count);
267: l_TXN_WBS_ELEMENT_VER_ID_tab(bb):= null;
268: l_TXN_RBS_ELEMENT_ID_tab(bb) := null;
269: END LOOP;
270:
271: IF P_PA_DEBUG_MODE = 'Y' THEN
272: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
273: P_MSG => 'Before calling PA_RLMI_RBS_MAP_PUB.MAP_RLMI_RBS',
274: P_MODULE_NAME => l_module_name);
275: END IF;
322: X_TXN_ACCUM_HEADER_ID_TAB =>l_map_txn_accum_header_id_tab,
323: X_RETURN_STATUS => x_return_status,
324: X_MSG_COUNT => x_msg_count,
325: X_MSG_DATA => x_msg_data );
326: IF P_PA_DEBUG_MODE = 'Y' THEN
327: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
328: P_MSG => 'After calling PA_RLMI_RBS_MAP_PUB.MAP_RLMI_RBS: '||
329: x_return_status,
330: P_MODULE_NAME => l_module_name);
348: p_msg_name => 'PA_INVALID_MAPPING_ERR');
349: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
350: END IF;
351:
352: IF p_pa_debug_mode = 'Y' THEN
353: pa_fp_gen_amount_utils.fp_debug
354: (p_msg => 'Before calling pa_fp_gen_budget_amt_pub.create_res_asg',
355: p_module_name => l_module_name,
356: p_log_level => 5);
369: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
370: END IF;
371:
372: --dbms_output.put_line('Return status after calling PA_FP_GEN_BUDGET_AMT_PUB.CREATE_RES_ASG: '||X_RETURN_STATUS);
373: IF p_pa_debug_mode = 'Y' THEN
374: pa_fp_gen_amount_utils.fp_debug
375: (p_msg => 'Status after calling pa_fp_gen_budget_amt_pub.create_res_asg'
376: ||x_return_status,
377: p_module_name => l_module_name,
377: p_module_name => l_module_name,
378: p_log_level => 5);
379: END IF;
380:
381: IF p_pa_debug_mode = 'Y' THEN
382: pa_fp_gen_amount_utils.fp_debug
383: (p_msg => 'Before calling pa_fp_gen_budget_amt_pub.update_res_asg',
384: p_module_name => l_module_name,
385: p_log_level => 5);
398: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
399: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
400: END IF;
401: --dbms_output.put_line('Return status after calling PA_FP_GEN_BUDGET_AMT_PUB.UPDATE_RES_ASG: '||X_RETURN_STATUS);
402: IF p_pa_debug_mode = 'Y' THEN
403: pa_fp_gen_amount_utils.fp_debug
404: (p_msg => 'Status after calling pa_fp_gen_budget_amt_pub.update_res_asg'
405: ||x_return_status,
406: p_module_name => l_module_name,
532: 'OPEN_COMMITMENTS'
533: );
534: --dbms_output.put_line('calc_tmp2 table count: '||sql%rowcount);
535:
536: IF P_PA_DEBUG_MODE = 'Y' THEN
537: PA_DEBUG.Reset_Curr_Function;
538: END IF;
539:
540: EXCEPTION
533: );
534: --dbms_output.put_line('calc_tmp2 table count: '||sql%rowcount);
535:
536: IF P_PA_DEBUG_MODE = 'Y' THEN
537: PA_DEBUG.Reset_Curr_Function;
538: END IF;
539:
540: EXCEPTION
541: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN