[Home] [Help]
2875: );
2876:
2877: BEGIN
2878:
2879: x_return_status := FND_API.G_RET_STS_SUCCESS;
2880: x_msg_count := NULL;
2881: x_msg_data := NULL;
2882: l_return_status := 'S';
2883: IF p_pa_debug_mode = 'Y' Then
3295: End If;
3296:
3297: EXCEPTION
3298: WHEN OTHERS THEN
3299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3300: x_msg_count := 1;
3301: x_msg_data := SQLCODE||SQLERRM;
3302: fnd_msg_pub.add_exc_msg
3303: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3391: Return;
3392:
3393: EXCEPTION
3394: WHEN OTHERS THEN
3395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3396: x_msg_data := SQLCODE||SQLERRM;
3397: print_msg('Errored in Reset_Planning_end_date API ['||x_msg_data||']');
3398: fnd_msg_pub.add_exc_msg
3399: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3762:
3763: EXCEPTION
3764:
3765: WHEN OTHERS THEN
3766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3767: fnd_msg_pub.add_exc_msg
3768: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3769: ,p_procedure_name => 'Get_Agreement_Details' );
3770: print_msg('Failed in Get_Agreement_Details substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
4568: End If;
4569:
4570: EXCEPTION
4571: WHEN OTHERS THEN
4572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4573: fnd_msg_pub.add_exc_msg
4574: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
4575: ,p_procedure_name => 'clear_closed_period_etcs' );
4576: IF p_pa_debug_mode = 'Y' Then
4684:
4685:
4686: EXCEPTION
4687: WHEN OTHERS THEN
4688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4689: fnd_msg_pub.add_exc_msg
4690: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
4691: ,p_procedure_name => 'Upd_spread_calc_tmp' );
4692: RAISE;
5171: l_pjf_init_revenue_tab pa_plsql_datatypes.NumTabTyp;
5172:
5173: BEGIN
5174:
5175: x_return_status := FND_API.G_RET_STS_SUCCESS;
5176: l_return_status := 'S';
5177: x_msg_data := NULL;
5178: g_stage := 'delete_budget_lines:100';
5179: IF p_pa_debug_mode = 'Y' Then
5611: End If;
5612: RAISE;
5613:
5614: WHEN OTHERS THEN
5615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5616: x_msg_count := 1;
5617: x_msg_data := 'Stage['||l_stage||SQLCODE||SQLERRM;
5618: fnd_msg_pub.add_exc_msg
5619: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5666: l_return_status VARCHAR2(30);
5667: l_error_msg_code Varchar2(100);
5668: BEGIN
5669:
5670: x_return_status := FND_API.G_RET_STS_SUCCESS;
5671: l_return_status := 'S';
5672: IF p_pa_debug_mode = 'Y' Then
5673: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.chk_req_rate_api_inputs');
5674: End If;
5734:
5735: EXCEPTION
5736: WHEN OTHERS THEN
5737:
5738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5739: fnd_msg_pub.add_exc_msg
5740: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5741: ,p_procedure_name => 'chk_req_rate_api_inputs' );
5742: IF p_pa_debug_mode = 'Y' Then
6265: pa_debug.reset_err_stack;
6266: End If;
6267: EXCEPTION
6268: WHEN OTHERS THEN
6269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6270: x_msg_data := sqlcode||sqlerrm;
6271: fnd_msg_pub.add_exc_msg
6272: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6273: ,p_procedure_name => 'populate_rollup_tmp' );
6364: ORDER BY tmp.resource_assignment_id,tmp.txn_currency_code;
6365:
6366: BEGIN
6367:
6368: x_return_status := FND_API.G_RET_STS_SUCCESS;
6369: IF p_pa_debug_mode = 'Y' Then
6370: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.mass_adjust');
6371: End If;
6372: g_stage := 'mass_adjust:100';
6699: pa_debug.reset_err_stack;
6700: End If;
6701: EXCEPTION
6702: WHEN OTHERS THEN
6703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6704: x_msg_data := sqlcode||sqlerrm;
6705: fnd_msg_pub.add_exc_msg
6706: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6707: ,p_procedure_name => 'mass_adjust' );
6997:
6998: rollup_ra_rec rollup_ra_csr%ROWTYPE;
6999: l_msg_index_out NUMBER;
7000: BEGIN
7001: x_return_status := FND_API.G_RET_STS_SUCCESS;
7002: l_stage := 6000;
7003:
7004: rollup_ra_rec := NULL;
7005: IF NOT rollup_ra_csr%ISOPEN THEN
7037: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7038: IF P_PA_DEBUG_MODE = 'Y' THEN
7039: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7040: END IF;
7041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7042: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
7043: FROM DUAL;
7044: print_msg('RETURN bvid => '||g_budget_version_id||' ,pid => '||g_project_id||' ,sesstime => '||g_session_time);
7045: RETURN;
7081: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7082: IF P_PA_DEBUG_MODE = 'Y' THEN
7083: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7084: END IF;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7086: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
7087: FROM DUAL;
7088: print_msg('RETURN bvid => '||g_budget_version_id||' ,pid => '||g_project_id||' ,sesstime => '||g_session_time);
7089: RETURN;
7097: */
7098:
7099: EXCEPTION WHEN OTHERS THEN
7100:
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: fnd_msg_pub.add_exc_msg
7103: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
7104: ,p_procedure_name => 'rollup_pf_pfc_to_bv' );
7105: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7107: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
7108: IF P_PA_DEBUG_MODE = 'Y' THEN
7109: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7110: END IF;
7111: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7112:
7113: END rollup_pf_pfc_to_bv;
7114:
7115: /* This API populates the spread records in the tmp table and finally spread api is called to process these records */
7400: BEGIN
7401: IF p_pa_debug_mode = 'Y' Then
7402: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency');
7403: End If;
7404: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
7405: l_return_status := 'S';
7406: l_msg_count := 0;
7407: l_msg_data := NULL;
7408: x_return_status := 'S';
7542: l_entire_msg_count := nvl(l_entire_msg_count,0) + nvl(l_msg_count,0);
7543: l_entire_msg_data := l_msg_data;
7544: --print_msg('After calling pa_fp_multi_currency_pkg.conv_mc_bulk msgData['||l_msg_data||'RetSts['||l_return_status||']msgCt['||l_msg_count||']');
7545:
7546: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7547: l_stage := 6600;
7548: print_msg(to_char(l_stage)||' Errored In convert_ra_txn_currency');
7549: l_entire_return_status := l_return_status;
7550: END IF;
7586:
7587:
7588: EXCEPTION
7589: WHEN OTHERS THEN
7590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7591: x_msg_count := 1;
7592: x_msg_data := sqlcode||sqlerrm;
7593: fnd_msg_pub.add_exc_msg
7594: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
8290: IF p_pa_debug_mode = 'Y' Then
8291: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8292: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8293: End If;
8294: l_return_status := FND_API.G_RET_STS_SUCCESS;
8295: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
8296: x_return_status := FND_API.G_RET_STS_SUCCESS;
8297:
8298: /* Initialize the msg stack */
8291: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8292: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8293: End If;
8294: l_return_status := FND_API.G_RET_STS_SUCCESS;
8295: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
8296: x_return_status := FND_API.G_RET_STS_SUCCESS;
8297:
8298: /* Initialize the msg stack */
8299: FND_MSG_PUB.initialize;
8292: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8293: End If;
8294: l_return_status := FND_API.G_RET_STS_SUCCESS;
8295: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
8296: x_return_status := FND_API.G_RET_STS_SUCCESS;
8297:
8298: /* Initialize the msg stack */
8299: FND_MSG_PUB.initialize;
8300:
9210: ,p_value3 => g_resource_name
9211: ,p_token4 => 'G_CURRENCY_CODE'
9212: ,p_value4 => l_txn_currency_code_override
9213: );
9214: l_entire_return_status := FND_API.G_RET_STS_ERROR;
9215: RAISE skip_record;
9216: Elsif (l_actual_exists_flag = 'Y' AND g_wp_version_flag = 'Y') Then
9217: OPEN get_line_info(l_resource_assignment_id);
9218: FETCH get_line_info INTO
9229: ,p_value3 => g_resource_name
9230: ,p_token4 => 'G_CURRENCY_CODE'
9231: ,p_value4 => l_txn_currency_code_override
9232: );
9233: l_entire_return_status := FND_API.G_RET_STS_ERROR;
9234: RAISE skip_record;
9235: /* Note: If only currency with out change in quantity, then refresh else spread the addl qty */
9236: ElsIF (NVL(l_delete_budget_lines,'N') <> 'Y' AND l_quantity_changed_flag = 'N'
9237: and NVL(p_apply_progress_flag,'N') <> 'Y' ) Then
9291: p_token3 => 'G_RESOURCE_NAME',
9292: p_value3 => g_resource_name,
9293: p_token4 => 'G_SPREAD_FROM_DATE',
9294: p_value4 => g_spread_from_date);
9295: l_entire_return_status := FND_API.G_RET_STS_ERROR;
9296: RAISE skip_record;
9297: End IF;
9298: END IF;
9299:
10695: IF l_return_status <> '0' THEN
10696: print_msg('retSts of calc_raw_cost ['||l_return_status||']l_msg_data['||l_msg_data||']'); --5028631
10697: x_return_status := 'E';
10698: x_msg_data := l_msg_data; --5028631
10699: l_entire_return_status := FND_API.G_RET_STS_ERROR;
10700: ADD_MSGTO_STACK( P_MSG_NAME => x_msg_data); --5028631
10701: GOTO END_OF_PROCESS; --5028631
10702: END IF;
10703:
10772:
10773: IF l_return_status <> '0' THEN
10774: x_return_status := 'E';
10775: x_msg_data := l_msg_data; --5028631
10776: l_entire_return_status := FND_API.G_RET_STS_ERROR;
10777: ADD_MSGTO_STACK( P_MSG_NAME => x_msg_data); --5028631
10778: GOTO END_OF_PROCESS; --5028631
10779: END IF;
10780:
10823: );
10824: IF l_return_status <> '0' THEN
10825: x_return_status := 'E';
10826: x_msg_data := l_msg_data; --5028631
10827: l_entire_return_status := FND_API.G_RET_STS_ERROR;
10828: ADD_MSGTO_STACK( P_MSG_NAME => x_msg_data); --5028631
10829: GOTO END_OF_PROCESS; --5028631
10830: END IF;
10831:
10923: ,x_msg_data => l_msg_data --5028631
10924: );
10925: l_pls_end_time := dbms_utility.get_time;
10926: print_plsql_time('End of Update_rounding_diff:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10927: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10928: x_return_status := l_return_status;
10929: x_msg_data := l_msg_data; --5028631
10930: l_entire_return_status := l_return_status;
10931: END IF;
10988: print_plsql_time('End of Currency ConversionTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
10989: If P_PA_DEBUG_MODE = 'Y' Then
10990: print_msg('AFter calling convert_txn_currency API returnSTS['||l_return_status||']');
10991: End if;
10992: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10993: x_return_status := l_return_status;
10994: x_msg_data := l_msg_data; --5028631
10995: l_entire_return_status := l_return_status;
10996: END IF;
11009: ,x_msg_count => x_msg_count
11010: ,x_msg_data => l_msg_data --5028631
11011: );
11012: --print_msg('AFter calling Update_PCPFC_rounding_diff retSts['||l_return_status||']');
11013: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11014: x_return_status := l_return_status;
11015: x_msg_data := l_msg_data; --5028631
11016: l_entire_return_status := l_return_status;
11017: END IF;
11133: );
11134:
11135: EXCEPTION
11136: WHEN OTHERS THEN
11137: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11138: begin
11139: SELECT lock_flag INTO l_locked
11140: FROM pji_pjp_wbs_header where plan_version_id = p_budget_version_id;
11141: EXCEPTION
11145: NULL;
11146: END;
11147: IF NVL(l_locked,'X') = 'P' THEN
11148: FND_MSG_PUB.initialize;
11149: l_return_status := FND_API.G_RET_STS_ERROR;
11150:
11151: FND_MESSAGE.SET_NAME('PA', 'PA_FP_LOCKED_BY_PROCESSING');
11152: Fnd_Msg_Pub.add_detail(p_message_type=>FND_API.G_RET_STS_ERROR);
11153: END IF;
11148: FND_MSG_PUB.initialize;
11149: l_return_status := FND_API.G_RET_STS_ERROR;
11150:
11151: FND_MESSAGE.SET_NAME('PA', 'PA_FP_LOCKED_BY_PROCESSING');
11152: Fnd_Msg_Pub.add_detail(p_message_type=>FND_API.G_RET_STS_ERROR);
11153: END IF;
11154: END IF;
11155: END;
11156:
11191: print_plsql_time('End of rollup_pf_pfc_to_raTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11192: If P_PA_DEBUG_MODE = 'Y' Then
11193: print_msg('After calling pa_fp_calc_plan_pkg.rollup_pf_pfc_to_ra retSts['||l_return_status||']msgData['||l_msg_data||']');
11194: End if;
11195: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11196: x_return_status := l_return_status;
11197: l_entire_return_status := l_return_status;
11198: x_msg_data := l_msg_data; --5028631
11199: print_msg('Errored in pa_fp_calc_plan_pkg.rollup_pf_pfc_to_ra');
11258: );
11259: If P_PA_DEBUG_MODE = 'Y' Then
11260: print_msg('After calling Populate_rollup_WithMrcRecs retSts['||l_return_status||']msgData['||l_msg_data||']');
11261: End if;
11262: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11263: x_return_status := l_return_status;
11264: l_entire_return_status := l_return_status;
11265: x_msg_data := l_msg_data; --5028631
11266: print_msg('Failed Unexpected exception in Populate_rollup_WithMrcRecs API['||sqlcode||sqlerrm);
11281: );
11282: If P_PA_DEBUG_MODE = 'Y' Then
11283: print_msg('After calling pa_mrc_finplan.maintain_all_mc_budget_lines retSts['||l_return_status||']msgData['||l_msg_data||']');
11284: end if;
11285: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11286: x_return_status := l_return_status;
11287: l_entire_return_status := l_return_status;
11288: x_msg_data := l_msg_data; --5028631
11289: print_msg('Failed Unexpected exception in MRC API['||sqlcode||sqlerrm);
11314: print_plsql_time('End of rollup_pf_pfc_to_bvTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11315: If P_PA_DEBUG_MODE = 'Y' Then
11316: print_msg('After calling pa_fp_calc_plan_pkg.rollup_pf_pfc_to_bv retSts['||l_return_status||']msgData['||l_msg_data||']');
11317: End if;
11318: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11319: x_return_status := l_return_status;
11320: l_entire_return_status := l_return_status;
11321: x_msg_data := l_msg_data; --5028631
11322: GOTO END_OF_PROCESS;
11338: );
11339: If P_PA_DEBUG_MODE = 'Y' Then
11340: print_msg('After calling pa_fp_gen_amount_utils.get_plan_version_dtls retSts['||l_return_status||']msgData['||l_msg_data||']');
11341: End if;
11342: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11343: x_return_status := l_return_status;
11344: l_entire_return_status := l_return_status;
11345: x_msg_data := l_msg_data; --5028631
11346: GOTO END_OF_PROCESS;
11360: );
11361: If P_PA_DEBUG_MODE = 'Y' Then
11362: print_msg('AFter calling pa_fp_gen_budget_amt_pub.insert_txn_currency API retSts['||l_return_status||']x_msg_date['||l_msg_data||']');
11363: End if;
11364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11365: x_return_status := l_return_status;
11366: l_entire_return_status := l_return_status;
11367: x_msg_data := l_msg_data; --5028631
11368: GOTO END_OF_PROCESS;
11408: ElsIf x_return_status <> 'S' Then
11409: x_msg_count := fnd_msg_pub.count_msg;
11410: IF x_msg_count = 1 THEN
11411: pa_interface_utils_pub.get_messages
11412: ( p_encoded => FND_API.G_TRUE
11413: ,p_msg_index => 1
11414: ,p_data => x_msg_data
11415: ,p_msg_index_out => l_msg_index_out
11416: );
11461: print_plsql_time('End of CalculateAPI:Total time :['||(l_pls_end_time-l_calc_start_time)||']');
11462:
11463: EXCEPTION
11464: WHEN OTHERS THEN
11465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11466: IF p_pa_debug_mode = 'Y' Then
11467: pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
11468: pa_debug.reset_err_stack;
11469: End If;
11707:
11708: EXCEPTION
11709:
11710: WHEN OTHERS THEN
11711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11712: If x_msg_data is NULL Then
11713: x_msg_data := sqlcode||sqlerrm;
11714: End If;
11715: IF p_pa_debug_mode = 'Y' Then
15957: pa_debug.reset_err_stack;
15958: End If;
15959: EXCEPTION
15960: WHEN OTHERS THEN
15961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15962: x_msg_data := sqlcode||sqlerrm;
15963: fnd_msg_pub.add_exc_msg
15964: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
15965: ,p_procedure_name => 'Process_skipped_records' );