DBA Data[Home] [Help]

APPS.PA_FP_CALC_PLAN_PUB dependencies on PA_FP_CALC_PLAN_PUB

Line 1: PACKAGE BODY PA_FP_CALC_PLAN_PUB AS

1: PACKAGE BODY PA_FP_CALC_PLAN_PUB AS
2: --/* $Header: PAFPCPUB.pls 120.1.12000000.2 2007/09/11 08:51:13 anuragar ship $ */
3:
4: g_module_name VARCHAR2(100) := 'PA_FP_CALC_PLAN_PUB';
5: Invalid_Arg_Exc_WP Exception;

Line 4: g_module_name VARCHAR2(100) := 'PA_FP_CALC_PLAN_PUB';

1: PACKAGE BODY PA_FP_CALC_PLAN_PUB AS
2: --/* $Header: PAFPCPUB.pls 120.1.12000000.2 2007/09/11 08:51:13 anuragar ship $ */
3:
4: g_module_name VARCHAR2(100) := 'PA_FP_CALC_PLAN_PUB';
5: Invalid_Arg_Exc_WP Exception;
6: G_PKG_NAME VARCHAR2(100) := 'PA_FP_CALC_PLAN_PUB';
7:
8: -- Procedure : REFRESH_RATES

Line 6: G_PKG_NAME VARCHAR2(100) := 'PA_FP_CALC_PLAN_PUB';

2: --/* $Header: PAFPCPUB.pls 120.1.12000000.2 2007/09/11 08:51:13 anuragar ship $ */
3:
4: g_module_name VARCHAR2(100) := 'PA_FP_CALC_PLAN_PUB';
5: Invalid_Arg_Exc_WP Exception;
6: G_PKG_NAME VARCHAR2(100) := 'PA_FP_CALC_PLAN_PUB';
7:
8: -- Procedure : REFRESH_RATES
9: -- Type : Public Procedure
10: -- Purpose : This is an AMG API to refresh cost/conversion rates in bulk.

Line 190: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB :REFRESH_RATES: Printing Input parameters';

186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
188: --Print All Input Params
189: IF l_debug_mode = 'Y' THEN
190: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB :REFRESH_RATES: Printing Input parameters';
191: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
192: l_debug_level3);
193: Pa_Debug.WRITE(g_module_name,'p_pm_product_code'||':'||p_pm_product_code,
194: l_debug_level3);

Line 240: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB :REFRESH_RATES : Validating Input parameters';

236: savepoint REFRESH_RATES_PUBLIC;
237: END IF;
238: --Validate All Input Params
239: IF l_debug_mode = 'Y' THEN
240: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB :REFRESH_RATES : Validating Input parameters';
241: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
242: l_debug_level3);
243: END IF;
244:

Line 251: Pa_Debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : Both Project_id and Project_reference are null';

247: OR p_pm_project_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
248: )
249: THEN
250: IF l_debug_mode = 'Y' THEN
251: Pa_Debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : Both Project_id and Project_reference are null';
252: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
253: END IF;
254: RAISE Invalid_Arg_Exc_WP;
255: END IF;

Line 259: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : p_update_plan_type is not WORKPLAN or FINPLAN ';

255: END IF;
256:
257: IF ( p_update_plan_type NOT IN ('WORKPLAN', 'FINPLAN')) THEN
258: IF l_debug_mode = 'Y' THEN
259: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : p_update_plan_type is not WORKPLAN or FINPLAN ';
260: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
261: END IF;
262: RAISE Invalid_Arg_Exc_WP;
263: END IF;

Line 268: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : BOTH cost bill rate and conv rate flags are N';

264:
265: IF ( nvl ( p_refresh_cost_bill_rates_flag,'N' )='N' AND
266: nvl ( p_refresh_conv_rates_flag, 'N' ) = 'N' ) THEN
267: IF l_debug_mode = 'Y' THEN
268: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : BOTH cost bill rate and conv rate flags are N';
269: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
270: END IF;
271: RAISE Invalid_Arg_Exc_WP;
272: END IF;

Line 279: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : p_update_plan_type is WORKPLAN but str version id is not passed';

275: ( p_structure_version_id is null or p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) AND
276: ( p_budget_version_id is null or p_budget_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
277: ) THEN
278: IF l_debug_mode = 'Y' THEN
279: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : p_update_plan_type is WORKPLAN but str version id is not passed';
280: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
281: END IF;
282: pa_interface_utils_pub.map_new_amg_msg
283: ( p_old_message_code => 'PA_PS_STRUC_BV_VER_REQ'

Line 304: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : p_update_plan_type is FINPLAN but params not passed';

300: ) AND
301: ( p_budget_version_id is null or p_budget_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
302: ) THEN
303: IF l_debug_mode = 'Y' THEN
304: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : p_update_plan_type is FINPLAN but params not passed';
305: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
306: END IF;
307: RAISE Invalid_Arg_Exc_WP;
308: END IF;

Line 316: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : Txn_curr_code_tbl.count <> p_resource_asgn_id_tab.count';

312: (p_txn_curr_code_tab is not null and nvl(p_txn_curr_code_tab.last,0) > 0) AND
313: ( p_resource_asgn_id_tab.count <> p_txn_curr_code_tab.count )
314: THEN
315: IF l_debug_mode = 'Y' THEN
316: Pa_Debug.g_err_stage:= 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES : Txn_curr_code_tbl.count <> p_resource_asgn_id_tab.count';
317: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
318: END IF;
319: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
320: p_msg_name => 'PA_PASS_TXN_CURR_CODE');

Line 351: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling CHECK_EDIT_OK';

347: l_budget_version_id := null;
348: END IF;
349:
350: IF l_debug_mode = 'Y' THEN
351: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling CHECK_EDIT_OK';
352: Pa_Debug.WRITE(g_module_name,pa_debug.g_err_stage ,l_debug_level3);
353: Pa_Debug.WRITE(g_module_name,'l_project_id'||l_project_id,l_debug_level3);
354: Pa_Debug.WRITE(g_module_name,'p_structure_version_id'||p_structure_version_id,l_debug_level3);
355: Pa_Debug.WRITE(g_module_name,'l_budget_version_id'||l_budget_version_id,l_debug_level3);

Line 369: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling CHECK_EDIT_OK returned'||l_return_status;

365: , x_msg_data => l_msg_data
366: , x_msg_count => l_msg_count);
367:
368: IF l_debug_mode = 'Y' THEN
369: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling CHECK_EDIT_OK returned'||l_return_status;
370: Pa_Debug.WRITE(g_module_name,pa_debug.g_err_stage ,l_debug_level3);
371: Pa_Debug.WRITE(g_module_name,'l_budget_version_id'||l_budget_version_id,l_debug_level3);
372: END IF;
373:

Line 376: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :CHECK_EDIT_TASK_OK returned'||l_return_status ;

372: END IF;
373:
374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
375: IF l_debug_mode = 'Y' THEN
376: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :CHECK_EDIT_TASK_OK returned'||l_return_status ;
377: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
378: END IF;
379: RAISE FND_API.G_EXC_ERROR;
380: END IF;

Line 399: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info';

395: END IF;
396: CLOSE C_VALIDATE_FP_BUDGET_VERSION;
397: END IF;
398: IF l_debug_mode = 'Y' THEN
399: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info';
400: Pa_Debug.WRITE(g_module_name,pa_debug.g_err_stage ,l_debug_level3);
401: Pa_Debug.WRITE(g_module_name,'l_project_id'||l_project_id,l_debug_level3);
402: Pa_Debug.WRITE(g_module_name,'p_pm_project_reference'||p_pm_project_reference,l_debug_level3);
403: Pa_Debug.WRITE(g_module_name,'p_pm_product_code'||p_pm_product_code,l_debug_level3);

Line 453: Pa_Debug.WRITE(g_module_name,'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info'||l_return_status,l_debug_level3);

449: ,x_msg_data => l_msg_data
450: ,x_return_status => l_return_status
451: );
452: IF l_debug_mode = 'Y' THEN
453: Pa_Debug.WRITE(g_module_name,'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info'||l_return_status,l_debug_level3);
454: Pa_Debug.WRITE(g_module_name,'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info'||l_budget_version_id,l_debug_level3);
455: END IF;
456: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
457: IF l_debug_mode = 'Y' THEN

Line 454: Pa_Debug.WRITE(g_module_name,'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info'||l_budget_version_id,l_debug_level3);

450: ,x_return_status => l_return_status
451: );
452: IF l_debug_mode = 'Y' THEN
453: Pa_Debug.WRITE(g_module_name,'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info'||l_return_status,l_debug_level3);
454: Pa_Debug.WRITE(g_module_name,'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info'||l_budget_version_id,l_debug_level3);
455: END IF;
456: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
457: IF l_debug_mode = 'Y' THEN
458: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Validate_Header_Info returned'||l_return_status ;

Line 458: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Validate_Header_Info returned'||l_return_status ;

454: Pa_Debug.WRITE(g_module_name,'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Validate_Header_Info'||l_budget_version_id,l_debug_level3);
455: END IF;
456: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
457: IF l_debug_mode = 'Y' THEN
458: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Validate_Header_Info returned'||l_return_status ;
459: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
460: END IF;
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;

Line 605: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calculate returned '||l_return_status ;

601: , x_msg_data => l_msg_data
602: );
603: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
604: IF l_debug_mode = 'Y' THEN
605: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calculate returned '||l_return_status ;
606: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
607: END IF;
608: RAISE FND_API.G_EXC_ERROR;
609: END IF;

Line 615: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Calculate';

611: END IF;
612:
613: IF (l_call_with_res_txn_tbl_flag = 'Y' ) THEN
614: IF l_debug_mode = 'Y' THEN
615: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calling Calculate';
616: Pa_Debug.WRITE(g_module_name,pa_debug.g_err_stage ,l_debug_level3);
617: Pa_Debug.WRITE(g_module_name,'l_project_id'||l_project_id,l_debug_level3);
618: Pa_Debug.WRITE(g_module_name,'l_budget_version_id'||l_budget_version_id,l_debug_level3);
619: Pa_Debug.WRITE(g_module_name,'p_refresh_cost_bill_rates_flag'||p_refresh_cost_bill_rates_flag,l_debug_level3);

Line 640: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calculate returned '||l_return_status ;

636: , x_msg_data => l_msg_data
637: );
638: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
639: IF l_debug_mode = 'Y' THEN
640: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Calculate returned '||l_return_status ;
641: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,l_debug_level3);
642: END IF;
643: RAISE FND_API.G_EXC_ERROR;
644: END IF;

Line 707: x_msg_data := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Invalid Arguments are passed';

703: WHEN Invalid_Arg_Exc_WP THEN
704:
705: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
706: x_msg_count := 1;
707: x_msg_data := 'PA_FP_CALC_PLAN_PUB : REFRESH_RATES :Invalid Arguments are passed';
708:
709: IF p_commit = FND_API.G_TRUE THEN
710: ROLLBACK TO REFRESH_RATES_PUBLIC;
711: END IF;

Line 734: ( p_pkg_name => 'PA_FP_CALC_PLAN_PUB'

730: CLOSE c_validate_curr_code;
731: END IF;
732:
733: Fnd_Msg_Pub.add_exc_msg
734: ( p_pkg_name => 'PA_FP_CALC_PLAN_PUB'
735: , p_procedure_name => 'REFRESH_RATES'
736: , p_error_text => x_msg_data);
737:
738: IF l_debug_mode = 'Y' THEN

Line 777: ( p_pkg_name => 'PA_FP_CALC_PLAN_PUB'

773: CLOSE c_validate_curr_code;
774: END IF;
775:
776: Fnd_Msg_Pub.add_exc_msg
777: ( p_pkg_name => 'PA_FP_CALC_PLAN_PUB'
778: , p_procedure_name => 'REFRESH_RATES'
779: , p_error_text => x_msg_data);
780:
781: IF l_debug_mode = 'Y' THEN

Line 792: END PA_FP_CALC_PLAN_PUB;

788:
789: END REFRESH_RATES ;
790:
791:
792: END PA_FP_CALC_PLAN_PUB;