[Home] [Help]
152: return -999;
153:
154: END;
155:
156: PROCEDURE UPDATE_TASK_PROG_REQ_DATE(p_commit in varchar2 := FND_API.G_TRUE,
157: p_object_id in number,
158: p_object_type in varchar2,
159: x_return_status out NOCOPY varchar2, --File.Sql.39 bug 4440895
160: x_msg_count out NOCOPY number, --File.Sql.39 bug 4440895
183: l_object_page_layout_id number;
184: x_next_reporting_date date;
185: x_report_end_date date;
186: BEGIN
187: x_return_status := FND_API.G_RET_STS_SUCCESS;
188:
189: OPEN get_setup_info;
190: FETCH get_setup_info INTO l_object_id, l_object_type, l_report_cycle_id,l_next_reporting_date, l_record_version_number, l_initial_progress_status, l_final_progress_status, l_rollup_progress_status, l_object_page_layout_id;
191: CLOSE get_setup_info;
228: x_msg_data => x_msg_data
229: );
230: END IF;
231:
232: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
233: COMMIT;
234: END IF;
235: -- Introduced Exception Block : 4537865
236: EXCEPTION
234: END IF;
235: -- Introduced Exception Block : 4537865
236: EXCEPTION
237: WHEN OTHERS THEN
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
239: x_msg_count := 1;
240: x_msg_data := SUBSTRB(SQLERRM,1,240);
241:
242: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_PROGRESS_UTILS'
246: RAISE;
247: END UPDATE_TASK_PROG_REQ_DATE;
248:
249: PROCEDURE adjust_reminder_date(
250: p_commit in varchar2 := FND_API.G_TRUE
251: ,p_project_id IN NUMBER
252: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
253: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
254: ,x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
286: SET next_reporting_date = l_reporting_date
287: WHERE object_id = p_project_id
288: AND object_type = 'PA_PROJECTS'
289: AND page_type_code = 'TPR';
290: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
291: COMMIT;
292: end if;
293: End If;
294:
295: EXCEPTION
296: When OTHERS then
297:
298: -- 4537865
299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300: x_msg_count := 1 ;
301: x_msg_data := SUBSTRB(SQLERRM,1,240);
302: Fnd_Msg_Pub.add_exc_msg
303: ( p_pkg_name => 'PA_PROGRESS_UTILS'
1772:
1773: l_proj_element_id NUMBER;
1774:
1775: BEGIN
1776: x_return_status := FND_API.G_RET_STS_SUCCESS;
1777:
1778: IF p_structure_version_id IS NULL
1779: THEN
1780: IF p_object_type = 'PA_TASKS'
1807: ;
1808: END IF;
1809:
1810: EXCEPTION
1811: WHEN FND_API.G_EXC_ERROR THEN
1812: x_return_status := FND_API.G_RET_STS_ERROR;
1813: WHEN OTHERS THEN
1814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1815: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
1808: END IF;
1809:
1810: EXCEPTION
1811: WHEN FND_API.G_EXC_ERROR THEN
1812: x_return_status := FND_API.G_RET_STS_ERROR;
1813: WHEN OTHERS THEN
1814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1815: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
1816: p_procedure_name => 'clear_prog_outdated_flag',
1810: EXCEPTION
1811: WHEN FND_API.G_EXC_ERROR THEN
1812: x_return_status := FND_API.G_RET_STS_ERROR;
1813: WHEN OTHERS THEN
1814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1815: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
1816: p_procedure_name => 'clear_prog_outdated_flag',
1817: p_error_text => SUBSTRB(SQLERRM,1,120));
1818: x_msg_count := FND_MSG_PUB.count_msg;
2953: -- Bug 4372462 : Rewritten this API again...
2954:
2955: PROCEDURE convert_currency_amounts(
2956: p_api_version IN NUMBER :=1.0
2957: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2958: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2959: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2960: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2961: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2954:
2955: PROCEDURE convert_currency_amounts(
2956: p_api_version IN NUMBER :=1.0
2957: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2958: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2959: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2960: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2961: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2962: ,p_debug_mode IN VARCHAR2 :='N'
2955: PROCEDURE convert_currency_amounts(
2956: p_api_version IN NUMBER :=1.0
2957: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2958: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2959: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2960: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2961: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2962: ,p_debug_mode IN VARCHAR2 :='N'
2963: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2956: p_api_version IN NUMBER :=1.0
2957: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2958: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2959: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2960: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2961: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2962: ,p_debug_mode IN VARCHAR2 :='N'
2963: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2964: ,p_project_id IN NUMBER
3129:
3130:
3131: BEGIN
3132:
3133: x_return_status := FND_API.G_RET_STS_SUCCESS;
3134: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',l_user_id,l_login_id,275,null,null), 'N');
3135:
3136: IF g1_debug_mode = 'Y' THEN
3137: pa_debug.write(x_Module=>'PA_PROGRESS_UTILS.CONVERT_CURRENCY_AMOUNTS', x_Msg => 'Starts', x_Log_Level=> 3);
3218: IF p_budget_version_id IS NULL OR p_res_assignment_id IS NULL THEN
3219: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3220: ,p_msg_name => 'PA_INV_PARAM_PASSED');
3221: x_msg_data := 'PA_INV_PARAM_PASSED';
3222: x_return_status := FND_API.G_RET_STS_ERROR;
3223: RAISE FND_API.G_EXC_ERROR;
3224: END IF;
3225:
3226: OPEN bgt_line_rates(p_budget_version_id, p_res_assignment_id, p_txn_curr_code, p_as_of_date);
3219: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3220: ,p_msg_name => 'PA_INV_PARAM_PASSED');
3221: x_msg_data := 'PA_INV_PARAM_PASSED';
3222: x_return_status := FND_API.G_RET_STS_ERROR;
3223: RAISE FND_API.G_EXC_ERROR;
3224: END IF;
3225:
3226: OPEN bgt_line_rates(p_budget_version_id, p_res_assignment_id, p_txn_curr_code, p_as_of_date);
3227: FETCH bgt_line_rates INTO l_bgt_line_rates;
3273: IF l_project_cost_exchange_rate IS NULL THEN
3274: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3275: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3276: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3277: x_return_status := FND_API.G_RET_STS_ERROR;
3278: RAISE FND_API.G_EXC_ERROR;
3279: END IF;
3280: ELSE
3281: P_project_curr_code := l_project_curr_code;
3274: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3275: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3276: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3277: x_return_status := FND_API.G_RET_STS_ERROR;
3278: RAISE FND_API.G_EXC_ERROR;
3279: END IF;
3280: ELSE
3281: P_project_curr_code := l_project_curr_code;
3282: P_project_rate_type := nvl(l_bgt_line_rates.project_cost_rate_Type,l_proj_all.project_cost_rate_type);
3322: IF l_projfunc_cost_exchange_rate IS NULL THEN
3323: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3324: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3325: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3326: x_return_status := FND_API.G_RET_STS_ERROR;
3327: RAISE FND_API.G_EXC_ERROR;
3328: END IF;
3329: ELSE
3330: P_projfunc_curr_code := l_projfunc_curr_code;
3323: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3324: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3325: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3326: x_return_status := FND_API.G_RET_STS_ERROR;
3327: RAISE FND_API.G_EXC_ERROR;
3328: END IF;
3329: ELSE
3330: P_projfunc_curr_code := l_projfunc_curr_code;
3331: P_projfunc_cost_rate_type := nvl(l_bgt_line_rates.projfunc_cost_rate_type,l_proj_all.projfunc_cost_rate_type);
3373: IF l_project_cost_exchange_rate IS NULL THEN
3374: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3375: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3376: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3377: x_return_status := FND_API.G_RET_STS_ERROR;
3378: RAISE FND_API.G_EXC_ERROR;
3379: END IF;
3380: ELSE
3381: P_project_curr_code := l_project_curr_code;
3374: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3375: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3376: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3377: x_return_status := FND_API.G_RET_STS_ERROR;
3378: RAISE FND_API.G_EXC_ERROR;
3379: END IF;
3380: ELSE
3381: P_project_curr_code := l_project_curr_code;
3382: P_project_rate_type := l_proj_all.project_cost_rate_type;
3416: IF l_projfunc_cost_exchange_rate IS NULL THEN
3417: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3418: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3419: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3420: x_return_status := FND_API.G_RET_STS_ERROR;
3421: RAISE FND_API.G_EXC_ERROR;
3422: END IF;
3423: ELSE
3424: P_projfunc_curr_code := l_projfunc_curr_code;
3417: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3418: ,p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ');
3419: x_msg_data := 'PA_FP_USER_EXCH_RATE_REQ';
3420: x_return_status := FND_API.G_RET_STS_ERROR;
3421: RAISE FND_API.G_EXC_ERROR;
3422: END IF;
3423: ELSE
3424: P_projfunc_curr_code := l_projfunc_curr_code;
3425: P_projfunc_cost_rate_type := l_proj_all.projfunc_cost_rate_type;
3523: WHEN OTHERS THEN
3524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
3525: p_procedure_name => 'CONVERT_CURRENCY_AMOUNTS',
3526: p_error_text => SUBSTRB('pa_multi_currency_txn.get_currency_amounts:'||SQLERRM,1,120));
3527: RAISE FND_API.G_EXC_ERROR;
3528:
3529: END;
3530: --bug 3828542 start
3531: IF ( l_status IS NOT NULL ) THEN
3535: l_return_status := 'E';
3536: END IF;
3537: --bug 3828542 end
3538:
3539: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3540: x_return_status := 'E';
3541: RAISE FND_API.G_EXC_ERROR;
3542: END IF;
3543:
3537: --bug 3828542 end
3538:
3539: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3540: x_return_status := 'E';
3541: RAISE FND_API.G_EXC_ERROR;
3542: END IF;
3543:
3544:
3545: IF l_pc_conv = 'N' THEN
3571:
3572: END IF;
3573:
3574: EXCEPTION
3575: when FND_API.G_EXC_ERROR then
3576: x_return_status := FND_API.G_RET_STS_ERROR;
3577:
3578: -- 4537865 : Start
3579: ---- p_project_curr_code := NULL ; 5081809
3572: END IF;
3573:
3574: EXCEPTION
3575: when FND_API.G_EXC_ERROR then
3576: x_return_status := FND_API.G_RET_STS_ERROR;
3577:
3578: -- 4537865 : Start
3579: ---- p_project_curr_code := NULL ; 5081809
3580: P_project_rate_type := NULL ;
3587: P_projfunc_cost_exch_rate := NULL ;
3588: P_projfunc_raw_cost := NULL ;
3589: -- 4537865 : End
3590:
3591: when FND_API.G_EXC_UNEXPECTED_ERROR then
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3593: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
3594: p_procedure_name => 'convert_currency_amounts',
3595: p_error_text => SUBSTRB(SQLERRM,1,120));
3588: P_projfunc_raw_cost := NULL ;
3589: -- 4537865 : End
3590:
3591: when FND_API.G_EXC_UNEXPECTED_ERROR then
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3593: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
3594: p_procedure_name => 'convert_currency_amounts',
3595: p_error_text => SUBSTRB(SQLERRM,1,120));
3596: -- 4537865 : Start
3606: P_projfunc_raw_cost := NULL ;
3607: -- 4537865 : End
3608:
3609: when OTHERS then
3610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3611: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
3612: p_procedure_name => 'convert_currency_amounts',
3613: p_error_text => SUBSTRB(SQLERRM,1,120));
3614:
3645: WHEN OTHERS THEN
3646: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
3647: p_procedure_name => 'get_time_phase_period',
3648: p_error_text => SUBSTRB('PA_FIN_PLAN_UTILS.Get_wp_bv_time_phase:'||SQLERRM,1,120));
3649: RAISE FND_API.G_EXC_ERROR;
3650: END;
3651:
3652: RETURN(l_time_phase_code);
3653: END get_time_phase_period;
5139: CLOSE C_GET_PUBLISHED_AMOUNT;
5140: END IF;
5141: EXCEPTION
5142: WHEN OTHERS THEN
5143: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5144: x_msg_count := 1;
5145: x_msg_data := SUBSTRB(SQLERRM,1,120);
5146:
5147: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
6133: AND Structure_type = p_structure_type;
6134:
6135:
6136: BEGIN
6137: x_return_status := FND_API.G_RET_STS_SUCCESS ;
6138: X_base_percent_complete := null; --bug 3879461
6139:
6140: IF ( p_structure_version_id IS NULL AND p_structure_status IS NULL ) OR
6141: ( p_structure_status = 'PUBLISHED')
6191:
6192: -- Progress Management Changes. Bug # 3420093.
6193:
6194: EXCEPTION WHEN OTHERS THEN
6195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6196: x_Msg_Count := 0;
6197: x_Msg_Data := '';
6198: fnd_msg_pub.add_exc_msg( p_pkg_name => 'PA_PROGRESS_UTILS'
6199: ,p_procedure_name => 'REDEFAULT_BASE_PC'
6197: x_Msg_Data := '';
6198: fnd_msg_pub.add_exc_msg( p_pkg_name => 'PA_PROGRESS_UTILS'
6199: ,p_procedure_name => 'REDEFAULT_BASE_PC'
6200: ,p_error_text => SUBSTRB(SQLERRM,1,120));
6201: RAISE FND_API.G_EXC_ERROR;
6202: END REDEFAULT_BASE_PC;
6203:
6204: Procedure RECALCULATE_PROG_STATS (
6205: p_project_id IN NUMBER
6277: --bug 4308359, end
6278:
6279:
6280: BEGIN
6281: x_return_status := FND_API.G_RET_STS_SUCCESS ;
6282:
6283: Select TASK_WEIGHT_BASIS_CODE
6284: INTO l_TASK_WEIGHT_BASIS_CODE
6285: From pa_proj_progress_attr
6464:
6465: -- Progress Management Changes. Bug # 3420093.
6466:
6467: EXCEPTION WHEN OTHERS THEN
6468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6469: x_Msg_Count := 1; -- 4537865 Corrected as '1' .Earlier it was defined as '0'
6470: x_Msg_Data := SUBSTRB(SQLERRM,1,120) ; -- 4537865 : Corrected as err message stack .Earlier it was ''
6471: fnd_msg_pub.add_exc_msg( p_pkg_name => 'PA_PROGRESS_UTILS'
6472: ,p_procedure_name => 'RECALCULATE_PROG_STATS'
6480: x_Sch_At_Completion := NULL ;
6481: x_Complete_Performance_Index := 0 ;
6482: -- 4537865
6483:
6484: RAISE FND_API.G_EXC_ERROR;
6485: END RECALCULATE_PROG_STATS;
6486:
6487: -- Bug 3879461 : This function is not used
6488: Procedure DEF_DATES_FROM_RESOURCES (
6509: AND As_Of_Date = p_As_Of_Date
6510: AND Structure_type = p_structure_type;
6511:
6512: BEGIN
6513: x_return_status := FND_API.G_RET_STS_SUCCESS ;
6514:
6515: Open CUR_Est_Sch_Dates;
6516: FETCH CUR_Est_Sch_Dates Into
6517: x_Estimated_Start_Date, x_Estimated_Finish_Date, x_Actual_Start_Date, x_Actual_Finish_Date;
6517: x_Estimated_Start_Date, x_Estimated_Finish_Date, x_Actual_Start_Date, x_Actual_Finish_Date;
6518: Close CUR_Est_Sch_Dates;
6519:
6520: EXCEPTION WHEN OTHERS THEN
6521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6522: x_Msg_Count := 1; -- 4537865 Changed from 0 to 1.
6523: x_Msg_Data := SUBSTRB(SQLERRM,1,120); -- 4537865 Changed from '' to SUBSTRB(SQLERRM,1,120)
6524:
6525: -- 4537865
6531:
6532: fnd_msg_pub.add_exc_msg( p_pkg_name => 'PA_PROGRESS_UTILS'
6533: ,p_procedure_name => 'DEF_DATES_FROM_RESOURCES'
6534: ,p_error_text => x_msg_data);
6535: RAISE FND_API.G_EXC_ERROR;
6536: END DEF_DATES_FROM_RESOURCES;
6537:
6538: --- End of addding new APIs
6539:
7233:
7234: BEGIN
7235: savepoint get_actuals_for_task;
7236:
7237: l_return_status := FND_API.G_RET_STS_SUCCESS;
7238:
7239:
7240: /* Begin commenting the following code as we are now accepting workplan task id's in the API.
7241:
7361: x_return_status := l_return_status;
7362: x_msg_count := l_msg_count;
7363: x_msg_data := l_msg_data;
7364:
7365: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7366: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7367: p_msg_name => l_msg_data);
7368: x_msg_data := l_msg_data;
7369: x_return_status := 'E';
7367: p_msg_name => l_msg_data);
7368: x_msg_data := l_msg_data;
7369: x_return_status := 'E';
7370: x_msg_count := l_msg_count;
7371: RAISE FND_API.G_EXC_ERROR;
7372: END IF;
7373:
7374: EXCEPTION
7375:
7372: END IF;
7373:
7374: EXCEPTION
7375:
7376: when FND_API.G_EXC_ERROR then
7377: rollback to get_actuals_for_task;
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379:
7380: when FND_API.G_EXC_UNEXPECTED_ERROR then
7374: EXCEPTION
7375:
7376: when FND_API.G_EXC_ERROR then
7377: rollback to get_actuals_for_task;
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379:
7380: when FND_API.G_EXC_UNEXPECTED_ERROR then
7381: rollback to get_actuals_for_task;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7376: when FND_API.G_EXC_ERROR then
7377: rollback to get_actuals_for_task;
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379:
7380: when FND_API.G_EXC_UNEXPECTED_ERROR then
7381: rollback to get_actuals_for_task;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
7384: p_procedure_name => 'get_actuals_for_task',
7378: x_return_status := FND_API.G_RET_STS_ERROR;
7379:
7380: when FND_API.G_EXC_UNEXPECTED_ERROR then
7381: rollback to get_actuals_for_task;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
7384: p_procedure_name => 'get_actuals_for_task',
7385: p_error_text => SUBSTRB(SQLERRM,1,120));
7386: when OTHERS then
7384: p_procedure_name => 'get_actuals_for_task',
7385: p_error_text => SUBSTRB(SQLERRM,1,120));
7386: when OTHERS then
7387: rollback to get_actuals_fortask;
7388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7389: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
7390: p_procedure_name => 'get_actuals_for_task',
7391: p_error_text => SUBSTRB(SQLERRM,1,120));
7392: raise;
7648: EXCEPTION
7649: WHEN NO_DATA_FOUND THEN
7650: null;
7651: WHEN OTHERS THEN
7652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7653: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
7654: p_procedure_name => 'get_last_etc_all',
7655: p_error_text => SUBSTRB(SQLERRM,1,120));
7656: raise;
7737: EXCEPTION
7738: WHEN NO_DATA_FOUND THEN
7739: null;
7740: WHEN OTHERS THEN
7741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7742: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_UTILS',
7743: p_procedure_name => 'get_last_etc_all',
7744: p_error_text => SUBSTRB(SQLERRM,1,120));
7745:
8315: --maansari6/14 bug 3686920
8316: ,p_structure_version_id IN NUMBER default null
8317: ,p_currency_code IN VARCHAR2 default null
8318: --maansari6/14 bug 3686920
8319: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8320: ,p_calling_mode IN VARCHAR2 := 'ACTUAL_RATES' -- Bug 3627315
8321: --,P_dummy_override_raw_cost IN NUMBER Bug 3632946
8322: --,P_override_txn_currency_code IN VARCHAR2 Bug 3632946
8323: ,x_resource_curr_code OUT NOCOPY VARCHAR2
8599:
8600:
8601: Begin
8602:
8603: l_return_status := FND_API.G_RET_STS_SUCCESS ;
8604: -- FPM Dev CR 8 : Added debug messages
8605: g1_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
8606:
8607: IF FND_API.TO_BOOLEAN(NVL(p_init_msg_list,FND_API.G_FALSE)) THEN -- Added for required prarameter validation
8603: l_return_status := FND_API.G_RET_STS_SUCCESS ;
8604: -- FPM Dev CR 8 : Added debug messages
8605: g1_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
8606:
8607: IF FND_API.TO_BOOLEAN(NVL(p_init_msg_list,FND_API.G_FALSE)) THEN -- Added for required prarameter validation
8608: FND_MSG_PUB.initialize;
8609: END IF;
8610:
8611:
8728: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_progress_utils',
8729: p_procedure_name => 'Get_Res_Rate_Burden_Multiplier',
8730: p_error_text => SUBSTRB('pa_planning_resource_utils.get_resource_defaults:'||SQLERRM,1,120));
8731: pa_debug.write(x_Module=>'PA_PROGRESS_UTILS.Get_Res_Rate_Burden_Multiplier', x_Msg => 'p_error_text='||SUBSTRB('pa_planning_resource_utils.get_resource_defaults:'||SQLERRM,1,120), x_Log_Level=> 3);
8732: raise fnd_api.g_exc_error;
8733: END;
8734:
8735: -- IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN --------------------------------{
8736: FOR i IN l_res_list_memb_id_tbl.FIRST .. l_res_list_memb_id_tbl.LAST LOOP
8731: pa_debug.write(x_Module=>'PA_PROGRESS_UTILS.Get_Res_Rate_Burden_Multiplier', x_Msg => 'p_error_text='||SUBSTRB('pa_planning_resource_utils.get_resource_defaults:'||SQLERRM,1,120), x_Log_Level=> 3);
8732: raise fnd_api.g_exc_error;
8733: END;
8734:
8735: -- IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN --------------------------------{
8736: FOR i IN l_res_list_memb_id_tbl.FIRST .. l_res_list_memb_id_tbl.LAST LOOP
8737:
8738: -- Bug 3965584 : Values will be taken only if they are not presnt already
8739: IF l_person_id IS NULL THEN
9001: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_progress_utils',
9002: p_procedure_name => 'Get_Res_Rate_Burden_Multiplier',
9003: p_error_text => SUBSTRB('Pa_Fp_wp_gen_amt_utils.get_wp_version_id:'||SQLERRM,1,120));
9004: pa_debug.write(x_Module=>'Pa_Fp_wp_gen_amt_utils.get_wp_version_id', x_Msg => 'p_error_text='||SUBSTRB('PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS:'||SQLERRM,1,120), x_Log_Level=> 3);
9005: raise fnd_api.g_exc_error;
9006: END;
9007:
9008: -- Bug 3691289 , rates from pa_proj_fp_options shd be selected always as we need them further even in actual rate mode
9009: -- IF p_calling_mode = 'PLAN_RATES'
9100: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_progress_utils',
9101: p_procedure_name => 'Get_Res_Rate_Burden_Multiplier',
9102: p_error_text => SUBSTRB('PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS:'||SQLERRM,1,120));
9103: pa_debug.write(x_Module=>'PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS', x_Msg => 'p_error_text='||SUBSTRB('PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DTLS:'||SQLERRM,1,120), x_Log_Level=> 3);
9104: raise fnd_api.g_exc_error;
9105: END;
9106:
9107: IF l_return_status <> 'S' AND l_msg_data IS NOT NULL THEN
9108: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9109: p_msg_name => l_msg_data);
9110: x_msg_data := l_msg_data;
9111: x_return_status := 'E';
9112: x_msg_count := fnd_msg_pub.count_msg;
9113: RAISE FND_API.G_EXC_ERROR;
9114: END IF;
9115:
9116:
9117: -- END IF; --<< p_calling_modfe = 'PLAN_RATES'
9353: ,x_msg_count => l_msg_count
9354: ,x_msg_data => l_msg_data
9355: );
9356: --added for Bug 4537865
9357: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
9358: l_raw_cost := l_new_raw_cost;
9359: END IF;
9360: --added for Bug 4537865
9361: IF g1_debug_mode = 'Y' THEN
9384: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_progress_utils',
9385: p_procedure_name => 'Get_Res_Rate_Burden_Multiplier',
9386: p_error_text => SUBSTRB('PA_PLAN_REVENUE.Get_plan_res_class_rates:'||SQLERRM,1,120));
9387: pa_debug.write(x_Module=>'PA_PLAN_REVENUE.Get_plan_res_class_rates', x_Msg => 'p_error_text='||SUBSTRB('PA_PLAN_REVENUE.Get_plan_res_class_rates:'||SQLERRM,1,120), x_Log_Level=> 3);
9388: raise fnd_api.g_exc_error;
9389: END;
9390: END IF; --< l_return_status <> 'S'>
9391: --bug 3733606
9392:
9419: p_msg_name => l_raw_cost_rejection_code);
9420: x_msg_data := l_raw_cost_rejection_code;
9421: x_return_status := 'E';
9422: x_msg_count := fnd_msg_pub.count_msg;
9423: RAISE FND_API.G_EXC_ERROR;
9424: END IF;
9425:
9426: IF l_burden_cost_rejection_code IS NOT NULL AND l_burden_override_rate IS NULL --bug 3821299 do not throw error if there is override.
9427: THEN
9429: p_msg_name => l_burden_cost_rejection_code);
9430: x_msg_data := l_burden_cost_rejection_code;
9431: x_return_status := 'E';
9432: x_msg_count := fnd_msg_pub.count_msg;
9433: RAISE FND_API.G_EXC_ERROR;
9434: END IF;
9435:
9436: ELSE -- l_rate_based_flag = 'N' bug# 3801523
9437: IF g1_debug_mode = 'Y' THEN
9500: p_msg_name => l_msg_data);
9501: x_msg_data := l_msg_data;
9502: x_return_status := 'E';
9503: x_msg_count := fnd_msg_pub.count_msg;
9504: RAISE FND_API.G_EXC_ERROR;
9505: END IF;
9506: --maansari6/5
9507: -- END LOOP; Bug 3965584 : Reduced the scope of FOR LOOP
9508: -- END IF; ---------------------------------------------------------------------------}
9510: x_msg_count := fnd_msg_pub.count_msg; -- FPM Dev CR 8
9511:
9512: EXCEPTION
9513: -- FPM Dev CR 5
9514: WHEN FND_API.G_EXC_ERROR THEN
9515: x_return_status := FND_API.G_RET_STS_ERROR;
9516: x_msg_count := FND_MSG_PUB.Count_Msg;
9517: If x_msg_count = 1 THEN
9518: pa_interface_utils_pub.get_messages
9511:
9512: EXCEPTION
9513: -- FPM Dev CR 5
9514: WHEN FND_API.G_EXC_ERROR THEN
9515: x_return_status := FND_API.G_RET_STS_ERROR;
9516: x_msg_count := FND_MSG_PUB.Count_Msg;
9517: If x_msg_count = 1 THEN
9518: pa_interface_utils_pub.get_messages
9519: (p_encoded => FND_API.G_TRUE,
9515: x_return_status := FND_API.G_RET_STS_ERROR;
9516: x_msg_count := FND_MSG_PUB.Count_Msg;
9517: If x_msg_count = 1 THEN
9518: pa_interface_utils_pub.get_messages
9519: (p_encoded => FND_API.G_TRUE,
9520: p_msg_index => 1,
9521: p_msg_count => x_msg_count,
9522: p_msg_data => x_msg_data,
9523: -- p_data => x_msg_data, * commented for Bug: 4537865
9536:
9537: WHEN l_insufficient_paramters THEN
9538: PA_UTILS.add_message('PA','PA_PROG_INSUFFICIENT_PARA',
9539: 'RES_NAME', l_resource_alias);
9540: x_return_status := FND_API.G_RET_STS_ERROR;
9541: x_msg_data := 'PA_PROG_INSUFFICIENT_PARA';
9542: x_msg_count := FND_MSG_PUB.Count_Msg;
9543: If x_msg_count = 1 THEN
9544: pa_interface_utils_pub.get_messages
9541: x_msg_data := 'PA_PROG_INSUFFICIENT_PARA';
9542: x_msg_count := FND_MSG_PUB.Count_Msg;
9543: If x_msg_count = 1 THEN
9544: pa_interface_utils_pub.get_messages
9545: (p_encoded => FND_API.G_TRUE,
9546: p_msg_index => 1,
9547: p_msg_count => x_msg_count,
9548: p_msg_data => x_msg_data,
9549: -- p_data => x_msg_data, * commented for Bug: 4537865
9560: x_resource_burden_rate := NULL ;
9561: X_burden_multiplier := NULL ;
9562:
9563: WHEN OTHERS THEN
9564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9565: x_msg_count := 1;
9566: x_msg_data := SUBSTR(SQLERRM,1,120);
9567: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROGRESS_UTILS',
9568: p_procedure_name => 'Get_Res_Rate_Burden_Multiplier');
9567: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROGRESS_UTILS',
9568: p_procedure_name => 'Get_Res_Rate_Burden_Multiplier');
9569: If x_msg_count = 1 THEN
9570: pa_interface_utils_pub.get_messages
9571: (p_encoded => FND_API.G_TRUE,
9572: p_msg_index => 1,
9573: p_msg_count => x_msg_count,
9574: p_msg_data => x_msg_data,
9575: -- p_data => x_msg_data, * commented for Bug: 4537865
9814: pa_debug.write(x_Module=>'PA_PROGRESS_UTILS.convert_effort_to_cost', x_Msg => 'p_rate_based_flag='||p_rate_based_flag, x_Log_Level=> 3);
9815: pa_debug.write(x_Module=>'PA_PROGRESS_UTILS.convert_effort_to_cost', x_Msg => 'p_act_rawcost_tc='||p_act_rawcost_tc, x_Log_Level=> 3);
9816: END IF;
9817:
9818: x_return_status := fnd_api.g_ret_sts_success ; -- 4537865
9819:
9820: If (p_rate_based_flag = 'N') then
9821: -- If (p_rate_based_flag = 'N') the Rawcost values are inputs.
9822: l_etc_rawcost_tc := nvl(x_etc_rawcost_tc,0);
9852: ,x_return_status => l_return_status
9853: ,x_msg_count => l_msg_count
9854: ,x_msg_data => l_msg_data);
9855:
9856: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9857: x_return_status := 'E';
9858: RAISE FND_API.G_EXC_ERROR;
9859: END IF;
9860:
9854: ,x_msg_data => l_msg_data);
9855:
9856: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9857: x_return_status := 'E';
9858: RAISE FND_API.G_EXC_ERROR;
9859: END IF;
9860:
9861: l_etc_rawcost_tc := (nvl(p_etc_effort,0) * nvl(l_plan_res_raw_rate,0));
9862:
9888: ,x_return_status => l_return_status
9889: ,x_msg_count => l_msg_count
9890: ,x_msg_data => l_msg_data);
9891:
9892: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9893: x_return_status := 'E';
9894: RAISE FND_API.G_EXC_ERROR;
9895: END IF;
9896:
9890: ,x_msg_data => l_msg_data);
9891:
9892: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9893: x_return_status := 'E';
9894: RAISE FND_API.G_EXC_ERROR;
9895: END IF;
9896:
9897: IF g1_debug_mode = 'Y' THEN
9898: pa_debug.write(x_Module=>'PA_PROGRESS_UTILS.convert_effort_to_cost', x_Msg => '2. l_plan_res_raw_rate='||l_plan_res_raw_rate, x_Log_Level=> 3);
9956: x_prcnt_spent_rawcost_tc := nvl(l_prcnt_spent_rawcost_tc,0);
9957: x_eac_rawcost_tc := nvl(l_eac_rawcost_tc,0);
9958:
9959: EXCEPTION
9960: WHEN FND_API.G_EXC_ERROR THEN
9961: x_return_status := FND_API.G_RET_STS_ERROR;
9962: x_msg_count := Fnd_Msg_Pub.count_msg;
9963:
9964: -- 4537865
9957: x_eac_rawcost_tc := nvl(l_eac_rawcost_tc,0);
9958:
9959: EXCEPTION
9960: WHEN FND_API.G_EXC_ERROR THEN
9961: x_return_status := FND_API.G_RET_STS_ERROR;
9962: x_msg_count := Fnd_Msg_Pub.count_msg;
9963:
9964: -- 4537865
9965: x_act_rawcost_tc_this_period := 0 ;
9971: x_prcnt_spent_rawcost_tc := 0 ;
9972: x_eac_rawcost_tc := 0 ;
9973:
9974: WHEN OTHERS THEN
9975: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
9976: x_msg_count := 1;
9977: x_msg_data := SUBSTRB(SQLERRM,1,240);
9978:
9979: -- 4537865
10185: l_error_count NUMBER;
10186: l_debug_mode varchar2(1);
10187: BEGIN
10188: -- Bug 4348814 : Added Debug Msgs
10189: x_return_status := FND_API.G_RET_STS_SUCCESS;
10190:
10191: l_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
10192:
10193: IF l_debug_mode = 'Y' THEN
10209: END IF;
10210:
10211:
10212: IF l_error_count > 0 THEN
10213: x_return_status := FND_API.G_RET_STS_ERROR;
10214: FOR i in 1..l_error_count LOOP
10215: IF i = 1 THEN
10216: l_error_msg := l_task_number_tbl(i) || ', ' || l_alias_tbl(i) || ', ' || l_actual_currency_tbl(i);
10217: ELSE
10245: END IF;
10246: END IF;
10247:
10248: EXCEPTION WHEN OTHERS THEN
10249: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ; -- 4537865
10250: RAISE;
10251:
10252: END check_txn_currency_diff;
10253:
10323: l_num_blocks NUMBER;
10324:
10325: BEGIN
10326:
10327: x_return_status := FND_API.G_RET_STS_SUCCESS;
10328:
10329: l_num_of_asgmts := p_task_assignment_tbl.COUNT;
10330:
10331: SELECT to_number(value)
10407: -- Progress applied to the working version. Check the other business rules.
10408: ELSE -- l_lat_pub_prog_flag_tbl(k) <> 'Y'
10409:
10410: -- Cannot change the planning resource if progress has been applied to the working version.
10411: IF ( l_new_rlm_id_tbl(k) = FND_API.G_MISS_NUM AND l_old_rlm_id_tbl IS NOT NULL) OR
10412: ( l_new_rlm_id_tbl(k) <> FND_API.G_MISS_NUM AND l_new_rlm_id_tbl(k) IS NOT NULL
10413: AND ( l_new_rlm_id_tbl(k) <> l_old_rlm_id_tbl(k) OR l_old_rlm_id_tbl(k) IS NULL) ) THEN
10414: l_viol_indicator := 2;
10415: END IF;
10408: ELSE -- l_lat_pub_prog_flag_tbl(k) <> 'Y'
10409:
10410: -- Cannot change the planning resource if progress has been applied to the working version.
10411: IF ( l_new_rlm_id_tbl(k) = FND_API.G_MISS_NUM AND l_old_rlm_id_tbl IS NOT NULL) OR
10412: ( l_new_rlm_id_tbl(k) <> FND_API.G_MISS_NUM AND l_new_rlm_id_tbl(k) IS NOT NULL
10413: AND ( l_new_rlm_id_tbl(k) <> l_old_rlm_id_tbl(k) OR l_old_rlm_id_tbl(k) IS NULL) ) THEN
10414: l_viol_indicator := 2;
10415: END IF;
10416:
10414: l_viol_indicator := 2;
10415: END IF;
10416:
10417: -- Cannot change the project role if progress has been applied to the working version.
10418: IF ( l_new_project_role_id_tbl(k) = FND_API.G_MISS_NUM AND l_old_project_role_id_tbl(k) IS NOT NULL )
10419: OR ( l_new_project_role_id_tbl(k) <> FND_API.G_MISS_NUM AND l_new_project_role_id_tbl(k) IS NOT NULL AND
10420: ( l_old_project_role_id_tbl(k) <> l_new_project_role_id_tbl(k) OR l_old_project_role_id_tbl(k) IS NULL ) ) THEN
10421: l_viol_indicator := 3;
10422: END IF;
10415: END IF;
10416:
10417: -- Cannot change the project role if progress has been applied to the working version.
10418: IF ( l_new_project_role_id_tbl(k) = FND_API.G_MISS_NUM AND l_old_project_role_id_tbl(k) IS NOT NULL )
10419: OR ( l_new_project_role_id_tbl(k) <> FND_API.G_MISS_NUM AND l_new_project_role_id_tbl(k) IS NOT NULL AND
10420: ( l_old_project_role_id_tbl(k) <> l_new_project_role_id_tbl(k) OR l_old_project_role_id_tbl(k) IS NULL ) ) THEN
10421: l_viol_indicator := 3;
10422: END IF;
10423: /* Bug Fix 5726773
10424: As a part of supporting negative quantities and amounts the following check is commented out.
10425:
10426: -- Cannot decrease planned quantity below actual quantity.
10427: IF ( l_actual_qty_tbl(k) IS NOT NULL AND l_new_total_qty_tbl(k) IS NOT NULL AND
10428: ( l_new_total_qty_tbl(k) = FND_API.G_MISS_NUM OR l_new_total_qty_tbl(k) < l_actual_qty_tbl(k) ) ) THEN
10429: l_viol_indicator := 4;
10430: END IF;
10431: */
10432: -- End of Bug Fix 5726773
10436: -- If the assignment is completed.
10437: IF ( l_actual_finish_date_tbl(k) IS NOT NULL ) THEN
10438:
10439: -- Cannot change the scheduled start date if an actual end date has been entered.
10440: IF ( l_new_sched_start_date_tbl(k) = FND_API.G_MISS_DATE AND l_old_sched_start_date_tbl(k) IS NOT NULL )
10441: OR ( l_new_sched_start_date_tbl(k) <> FND_API.G_MISS_DATE AND l_new_sched_start_date_tbl(k) IS NOT NULL AND
10442: (l_new_sched_start_date_tbl(k) <> l_old_sched_start_date_tbl(k) OR l_old_sched_start_date_tbl(k) IS NULL) ) THEN
10443: l_viol_indicator := 6;
10444: END IF;
10437: IF ( l_actual_finish_date_tbl(k) IS NOT NULL ) THEN
10438:
10439: -- Cannot change the scheduled start date if an actual end date has been entered.
10440: IF ( l_new_sched_start_date_tbl(k) = FND_API.G_MISS_DATE AND l_old_sched_start_date_tbl(k) IS NOT NULL )
10441: OR ( l_new_sched_start_date_tbl(k) <> FND_API.G_MISS_DATE AND l_new_sched_start_date_tbl(k) IS NOT NULL AND
10442: (l_new_sched_start_date_tbl(k) <> l_old_sched_start_date_tbl(k) OR l_old_sched_start_date_tbl(k) IS NULL) ) THEN
10443: l_viol_indicator := 6;
10444: END IF;
10445:
10443: l_viol_indicator := 6;
10444: END IF;
10445:
10446: -- Cannot change the scheduled finish date if an actual end date has been entered.
10447: IF ( l_new_sched_finish_date_tbl(k) = FND_API.G_MISS_DATE
10448: AND l_old_sched_finish_date_tbl(k) IS NOT NULL ) OR
10449: ( l_new_sched_finish_date_tbl(k) <> FND_API.G_MISS_DATE AND
10450: l_new_sched_finish_date_tbl(k) IS NOT NULL AND ( l_new_sched_finish_date_tbl(k) <> l_old_sched_finish_date_tbl(k)
10451: OR l_old_sched_finish_date_tbl(k) IS NULL) ) THEN
10445:
10446: -- Cannot change the scheduled finish date if an actual end date has been entered.
10447: IF ( l_new_sched_finish_date_tbl(k) = FND_API.G_MISS_DATE
10448: AND l_old_sched_finish_date_tbl(k) IS NOT NULL ) OR
10449: ( l_new_sched_finish_date_tbl(k) <> FND_API.G_MISS_DATE AND
10450: l_new_sched_finish_date_tbl(k) IS NOT NULL AND ( l_new_sched_finish_date_tbl(k) <> l_old_sched_finish_date_tbl(k)
10451: OR l_old_sched_finish_date_tbl(k) IS NULL) ) THEN
10452: l_viol_indicator := 7;
10453: END IF;
10458: END IF; -- l_lat_pub_prog_flag_tbl(k) = 'Y'
10459:
10460: IF l_viol_indicator IS NOT NULL THEN
10461:
10462: x_return_status := FND_API.G_RET_STS_ERROR;
10463:
10464: IF l_viol_indicator = 1 THEN
10465: PA_UTILS.ADD_MESSAGE
10466: (
10497:
10498: END IF; -- l_num_of_asgmts > 0
10499:
10500: EXCEPTION WHEN OTHERS THEN
10501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10502: RAISE;
10503:
10504: END check_prog_for_update_asgmts;
10505:
10614: l_track_wp_cost_flag VARCHAR2(1) := 'Y'; -- Bug 3921624
10615:
10616:
10617: BEGIN
10618: l_return_status := fnd_api.g_ret_sts_success ; -- 4537865
10619: g1_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
10620:
10621: IF g1_debug_mode = 'Y' THEN
10622: pa_debug.write(x_Module=>'PA_PROGRESS_UTILS.convert_effort_to_cost_brdn_pc', x_Msg => 'p_resource_list_mem_id='||p_resource_list_mem_id, x_Log_Level=> 3);
10674: ,x_return_status => l_return_status
10675: ,x_msg_count => l_msg_count
10676: ,x_msg_data => l_msg_data);
10677:
10678: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10679: x_return_status := 'E';
10680: RAISE FND_API.G_EXC_ERROR;
10681: END IF;
10682:
10676: ,x_msg_data => l_msg_data);
10677:
10678: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10679: x_return_status := 'E';
10680: RAISE FND_API.G_EXC_ERROR;
10681: END IF;
10682:
10683: -- 3.2). If the rate_based_flag is 'Y' and the resource burden rate currency code is not the same as the txn currency code, convert the resource burden rate into txn currency.
10684: -- To do this we use the API: PA_PROGRESS_UTILS.CONVERT_CURRENCY_AMOUNTS() and we pass in
10710: ,x_msg_count => l_msg_count
10711: ,x_msg_data => l_msg_data
10712: );
10713:
10714: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10715: x_return_status := 'E';
10716: RAISE FND_API.G_EXC_ERROR;
10717: END IF;
10718:
10712: );
10713:
10714: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10715: x_return_status := 'E';
10716: RAISE FND_API.G_EXC_ERROR;
10717: END IF;
10718:
10719: l_plan_res_burden_rate_etc := l_rawcost_pc;
10720:
10748: ,x_return_status => l_return_status
10749: ,x_msg_count => l_msg_count
10750: ,x_msg_data => l_msg_data);
10751:
10752: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10753: x_return_status := 'E';
10754: RAISE FND_API.G_EXC_ERROR;
10755: END IF;
10756:
10750: ,x_msg_data => l_msg_data);
10751:
10752: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10753: x_return_status := 'E';
10754: RAISE FND_API.G_EXC_ERROR;
10755: END IF;
10756:
10757: -- 4.2). If the rate_based_flag is 'Y' and the resource burden rate currency code is
10758: -- not the same as the txn currency code, convert the resource burden rate into txn currency.
10785: ,x_msg_count => l_msg_count
10786: ,x_msg_data => l_msg_data
10787: );
10788:
10789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10790: x_return_status := 'E';
10791: RAISE FND_API.G_EXC_ERROR;
10792: END IF;
10793:
10787: );
10788:
10789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10790: x_return_status := 'E';
10791: RAISE FND_API.G_EXC_ERROR;
10792: END IF;
10793:
10794: l_plan_res_burden_rate_act := l_rawcost_pc;
10795: END IF;
10855: ,x_msg_count => l_msg_count
10856: ,x_msg_data => l_msg_data
10857: );
10858:
10859: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10860: x_return_status := 'E';
10861: RAISE FND_API.G_EXC_ERROR;
10862: END IF;
10863:
10857: );
10858:
10859: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10860: x_return_status := 'E';
10861: RAISE FND_API.G_EXC_ERROR;
10862: END IF;
10863:
10864: l_etc_brdncost_pc := l_rawcost_pc;
10865:
10891: ,x_msg_count => l_msg_count
10892: ,x_msg_data => l_msg_data
10893: );
10894:
10895: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10896: x_return_status := 'E';
10897: RAISE FND_API.G_EXC_ERROR;
10898: END IF;
10899:
10893: );
10894:
10895: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10896: x_return_status := 'E';
10897: RAISE FND_API.G_EXC_ERROR;
10898: END IF;
10899:
10900: l_act_brdncost_pc_this_period := l_rawcost_pc;
10901:
10940: x_msg_data := l_msg_data;
10941:
10942: EXCEPTION
10943:
10944: WHEN FND_API.G_EXC_ERROR THEN
10945: x_return_status := FND_API.G_RET_STS_ERROR;
10946: x_msg_count := Fnd_Msg_Pub.count_msg;
10947:
10948: -- 4537865
10941:
10942: EXCEPTION
10943:
10944: WHEN FND_API.G_EXC_ERROR THEN
10945: x_return_status := FND_API.G_RET_STS_ERROR;
10946: x_msg_count := Fnd_Msg_Pub.count_msg;
10947:
10948: -- 4537865
10949: x_act_brdncost_pc_this_period := 0 ;
10955: x_prcnt_spent_brdncost_pc := 0 ;
10956: x_eac_brdncost_pc := 0 ;
10957:
10958: WHEN OTHERS THEN
10959: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10960: x_msg_count := 1;
10961: x_msg_data := SUBSTRB(SQLERRM,1,240);
10962: -- 4537865
10963: x_act_brdncost_pc_this_period := 0 ;
11429: ,x_msg_count => x_msg_count
11430: ,x_msg_data => x_msg_data);
11431: x_res_raw_rate := l_plan_res_raw_rate;
11432:
11433: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11434: RAISE FND_API.G_EXC_ERROR;
11435: END IF;
11436:
11437: -- 3.2). If the rate_based_flag is 'Y' and the resource burden rate currency code is not the same as the txn currency code, convert the resource burden rate into txn currency.
11430: ,x_msg_data => x_msg_data);
11431: x_res_raw_rate := l_plan_res_raw_rate;
11432:
11433: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11434: RAISE FND_API.G_EXC_ERROR;
11435: END IF;
11436:
11437: -- 3.2). If the rate_based_flag is 'Y' and the resource burden rate currency code is not the same as the txn currency code, convert the resource burden rate into txn currency.
11438: -- to do this we use the API: PA_PROGRESS_UTILS.CONVERT_CURRENCY_AMOUNTS() and we pass in
11464: ,x_msg_count => x_msg_count
11465: ,x_msg_data => x_msg_data
11466: );
11467:
11468: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11469: RAISE FND_API.G_EXC_ERROR;
11470: END IF;
11471:
11472: l_plan_res_burden_rate_etc := l_rawcost_pc;
11465: ,x_msg_data => x_msg_data
11466: );
11467:
11468: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11469: RAISE FND_API.G_EXC_ERROR;
11470: END IF;
11471:
11472: l_plan_res_burden_rate_etc := l_rawcost_pc;
11473: if (l_plan_res_raw_rate <> l_plan_res_burden_rate_etc) then
11494: ,x_msg_count => x_msg_count
11495: ,x_msg_data => x_msg_data
11496: );
11497:
11498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11499: RAISE FND_API.G_EXC_ERROR;
11500: END IF;
11501: x_res_raw_rate := l_rawcost_pc;
11502: end if;
11495: ,x_msg_data => x_msg_data
11496: );
11497:
11498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11499: RAISE FND_API.G_EXC_ERROR;
11500: END IF;
11501: x_res_raw_rate := l_rawcost_pc;
11502: end if;
11503: END IF;
11540: ,x_msg_count => x_msg_count
11541: ,x_msg_data => x_msg_data
11542: );
11543:
11544: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11545: RAISE FND_API.G_EXC_ERROR;
11546: END IF;
11547: x_rawcost_pc := l_rawcost_pc;
11548: x_rawcost_fc := l_rawcost_fc;
11541: ,x_msg_data => x_msg_data
11542: );
11543:
11544: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11545: RAISE FND_API.G_EXC_ERROR;
11546: END IF;
11547: x_rawcost_pc := l_rawcost_pc;
11548: x_rawcost_fc := l_rawcost_fc;
11549:
11571: ,x_msg_count => x_msg_count
11572: ,x_msg_data => x_msg_data
11573: );
11574:
11575: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11576: RAISE FND_API.G_EXC_ERROR;
11577: END IF;
11578: x_brdncost_pc := l_rawcost_pc;
11579: x_brdncost_fc := l_rawcost_fc;
11572: ,x_msg_data => x_msg_data
11573: );
11574:
11575: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11576: RAISE FND_API.G_EXC_ERROR;
11577: END IF;
11578: x_brdncost_pc := l_rawcost_pc;
11579: x_brdncost_fc := l_rawcost_fc;
11580: --Bug 5027965
11607:
11608:
11609: EXCEPTION
11610:
11611: WHEN FND_API.G_EXC_ERROR THEN
11612: x_return_status := FND_API.G_RET_STS_ERROR;
11613: x_msg_count := Fnd_Msg_Pub.count_msg;
11614:
11615: -- 4537865
11608:
11609: EXCEPTION
11610:
11611: WHEN FND_API.G_EXC_ERROR THEN
11612: x_return_status := FND_API.G_RET_STS_ERROR;
11613: x_msg_count := Fnd_Msg_Pub.count_msg;
11614:
11615: -- 4537865
11616:
11621: x_rawcost_fc := NULL ;
11622: x_brdncost_fc := NULL ;
11623:
11624: WHEN OTHERS THEN
11625: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
11626: x_msg_count := 1;
11627: x_msg_data := SUBSTRB(SQLERRM,1,240);
11628:
11629: -- 4537865