[Home] [Help]
54: pa_debug.set_process('Refresh_FP_Elements: ' || 'PLSQL','LOG',l_debug_mode);
55: END IF;
56: x_msg_count := 0;
57:
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59:
60: IF (p_proj_fp_options_id IS NULL) THEN
61: pa_debug.g_err_stage := 'Err- Proj FP Options ID cannot be NULL.';
62: IF P_PA_DEBUG_MODE = 'Y' THEN
61: pa_debug.g_err_stage := 'Err- Proj FP Options ID cannot be NULL.';
62: IF P_PA_DEBUG_MODE = 'Y' THEN
63: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
64: END IF;
65: x_return_status := FND_API.G_RET_STS_ERROR;
66: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
67: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
68: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
69: END IF;
156: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
157: l_msg_count := FND_MSG_PUB.count_msg;
158: IF l_msg_count = 1 THEN
159: PA_INTERFACE_UTILS_PUB.get_messages
160: (p_encoded => FND_API.G_TRUE,
161: p_msg_index => 1,
162: p_msg_count => l_msg_count,
163: p_msg_data => l_msg_data,
164: p_data => l_data,
170: END IF;
171: pa_debug.reset_err_stack;
172: RAISE;
173: WHEN OTHERS THEN
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: x_msg_count := 1;
176: x_msg_data := SQLERRM;
177: FND_MSG_PUB.add_exc_msg
178: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Refresh_FP_Elements'
182: pa_debug.write('Refresh_FP_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
183: END IF;
184: pa_debug.reset_err_stack;
185:
186: raise FND_API.G_EXC_UNEXPECTED_ERROR;
187: END Refresh_FP_Elements;
188:
189: /*==================================================================================================
190: COPY_ELEMENTS: This procedure is used to copy FP Elements from the Source FP Option to the Target
269: pa_debug.set_process('Copy_Elements: ' || 'PLSQL','LOG',l_debug_mode);
270: END IF;
271: x_msg_count := 0;
272:
273: x_return_status := FND_API.G_RET_STS_SUCCESS;
274:
275: IF (p_to_proj_fp_options_id IS NULL) THEN
276: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Proj FP Options ID is NULL.';
277: IF P_PA_DEBUG_MODE = 'Y' THEN
277: IF P_PA_DEBUG_MODE = 'Y' THEN
278: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
279: END IF;
280:
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
283: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
284: END IF;
285:
288: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Target Element Type is NULL.';
289: IF P_PA_DEBUG_MODE = 'Y' THEN
290: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
291: END IF;
292: x_return_status := FND_API.G_RET_STS_ERROR;
293: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
294: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
295: END IF;
296:
299: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Source Element Type is NULL.';
300: IF P_PA_DEBUG_MODE = 'Y' THEN
301: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
302: END IF;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
305: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
306:
307: END IF;
840: ,x_return_status => x_return_status
841: ,x_msg_count => x_msg_count
842: ,x_msg_data => x_msg_data);
843:
844: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
845: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Copy_Excluded_Elements errored out '||x_msg_data;
846: IF P_PA_DEBUG_MODE = 'Y' THEN
847: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.g_err_stage,5);
848: END IF;
860: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
861: l_msg_count := FND_MSG_PUB.count_msg;
862: IF l_msg_count = 1 THEN
863: PA_INTERFACE_UTILS_PUB.get_messages
864: (p_encoded => FND_API.G_TRUE,
865: p_msg_index => 1,
866: p_msg_count => l_msg_count,
867: p_msg_data => l_msg_data,
868: p_data => l_data,
874: END IF;
875: pa_debug.reset_err_stack;
876: RAISE;
877: WHEN OTHERS THEN
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
879: x_msg_count := 1;
880: x_msg_data := SQLERRM;
881: FND_MSG_PUB.add_exc_msg
882: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Copy_Elements'
886: pa_debug.write('Copy_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
887: END IF;
888: pa_debug.reset_err_stack;
889:
890: raise FND_API.G_EXC_UNEXPECTED_ERROR;
891: END Copy_Elements;
892:
893: /*==================================================================================================
894: INSERT_DEFAULT: This procedure is used to insert records into FP Elements. This procedure is
1021: IF P_PA_DEBUG_MODE = 'Y' THEN
1022: pa_debug.set_process('Insert_Default: ' || 'PLSQL','LOG',l_debug_mode);
1023: END IF;
1024:
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1026:
1027: /* Check for the input parameters not being NULL. */
1028: IF (p_proj_fp_options_id IS NULL) THEN
1029: pa_debug.g_err_stage := TO_CHAR(l_Stage)||': Err- Proj FP Option ID cannot be NULL.';
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.g_err_stage,5);
1037: END IF;
1038: END IF;
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1041: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1042: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1043: END IF;
1423: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1424: l_msg_count := FND_MSG_PUB.count_msg;
1425: IF l_msg_count = 1 THEN
1426: PA_INTERFACE_UTILS_PUB.get_messages
1427: (p_encoded => FND_API.G_TRUE,
1428: p_msg_index => 1,
1429: p_msg_count => l_msg_count,
1430: p_msg_data => l_msg_data,
1431: p_data => l_data,
1437: END IF;
1438: pa_debug.reset_err_stack;
1439: RAISE;
1440: WHEN OTHERS THEN
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: x_msg_count := 1;
1443: x_msg_data := SQLERRM;
1444: FND_MSG_PUB.add_exc_msg
1445: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Default'
1449: pa_debug.write('Insert_Default: ' || l_module_name,pa_debug.G_Err_Stack,4);
1450: END IF;
1451: pa_debug.reset_err_stack;
1452:
1453: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1454: END Insert_Default;
1455:
1456: /*==================================================================================================
1457: DELETE_ELEMENTS: This procedure is used to delete records from PA_FP_ELEMENTS table for a
1486: IF P_PA_DEBUG_MODE = 'Y' THEN
1487: pa_debug.set_process('Delete_Elements: ' || 'PLSQL','LOG',l_debug_mode);
1488: END IF;
1489:
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
1491:
1492: /* Delete the records from the table PA_FP_Elements based on the Element_Type and
1493: the Element_Level. If the Element_Type is 'BOTH' then both the COST and
1494: REVENUE Planning Elements have to be deleted. */
1543: pa_debug.reset_err_stack;
1544:
1545: EXCEPTION
1546: WHEN OTHERS THEN
1547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1548: x_msg_count := 1;
1549: x_msg_data := SQLERRM;
1550: FND_MSG_PUB.add_exc_msg
1551: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Elements'
1555: pa_debug.write('Delete_Elements: ' || l_module_name,pa_debug.G_Err_Stack,4);
1556: END IF;
1557: pa_debug.reset_err_stack;
1558:
1559: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1560: END Delete_Elements;
1561:
1562:
1563: /*==================================================================================================
1605: IF P_PA_DEBUG_MODE = 'Y' THEN
1606: pa_debug.set_process('Delete_Element: ' || 'PLSQL','LOG',l_debug_mode);
1607: END IF;
1608:
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611: pa_debug.g_err_stage := 'calling pa_get_resource.get_uncateg_resource_info';
1612: IF P_PA_DEBUG_MODE = 'Y' THEN
1613: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.g_err_stage,1);
1803: pa_debug.reset_err_stack;
1804:
1805: EXCEPTION
1806: WHEN OTHERS THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: x_msg_count := 1;
1809: x_msg_data := SQLERRM;
1810: FND_MSG_PUB.add_exc_msg
1811: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Delete_Element'
1815: pa_debug.write('Delete_Element: ' || l_module_name,pa_debug.G_Err_Stack,4);
1816: END IF;
1817: pa_debug.reset_err_stack;
1818:
1819: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1820:
1821: END Delete_Element;
1822:
1823:
1857: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1858: l_debug_mode := NVL(l_debug_mode, 'Y');
1859:
1860: -- Initialize the return status to success
1861: x_return_status := FND_API.G_RET_STS_SUCCESS;
1862:
1863: IF P_PA_DEBUG_MODE = 'Y' THEN
1864: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1865: END IF;
1934:
1935: pa_debug.reset_err_stack;
1936: EXCEPTION
1937: WHEN OTHERS THEN
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1939: x_msg_count := 1;
1940: x_msg_data := SQLERRM;
1941: FND_MSG_PUB.add_exc_msg
1942: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows'
1946: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
1947: END IF;
1948: pa_debug.reset_err_stack;
1949:
1950: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1951:
1952: END Insert_Bulk_Rows;
1953:
1954: /*==================================================================================================
1978: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1979: l_debug_mode := NVL(l_debug_mode, 'Y');
1980:
1981: -- Initialize the return status to success
1982: x_return_status := FND_API.G_RET_STS_SUCCESS;
1983:
1984: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: pa_debug.set_process('Insert_Bulk_Rows: ' || 'PLSQL','LOG',l_debug_mode);
1986: END IF;
2041: pa_debug.reset_err_stack;
2042:
2043: EXCEPTION
2044: WHEN OTHERS THEN
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2046: x_msg_count := 1;
2047: x_msg_data := SQLERRM;
2048: FND_MSG_PUB.add_exc_msg
2049: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.Insert_Bulk_Rows_Res'
2053: pa_debug.write('Insert_Bulk_Rows: ' || l_module_name,pa_debug.G_Err_Stack,4);
2054: END IF;
2055: pa_debug.reset_err_stack;
2056:
2057: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2058:
2059: END Insert_Bulk_Rows_Res;
2060:
2061:
2179: );
2180: BEGIN
2181:
2182: x_msg_count := 0;
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2184: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_Enterable_Resources');
2185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2186: l_debug_mode := NVL(l_debug_mode, 'Y');
2187: IF P_PA_DEBUG_MODE = 'Y' THEN
2273: ,x_return_status => x_return_status
2274: ,x_msg_count => x_msg_count
2275: ,x_msg_data => x_msg_data);
2276:
2277: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2278: pa_debug.g_err_stage := 'Error while fetching uncat res list id info ...';
2279: IF P_PA_DEBUG_MODE = 'Y' THEN
2280: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2281: END IF;
2552:
2553: l_msg_count := FND_MSG_PUB.count_msg;
2554: IF l_msg_count = 1 THEN
2555: PA_INTERFACE_UTILS_PUB.get_messages
2556: (p_encoded => FND_API.G_TRUE
2557: ,p_msg_index => 1
2558: ,p_msg_count => l_msg_count
2559: ,p_msg_data => l_msg_data
2560: ,p_data => l_data
2569: IF P_PA_DEBUG_MODE = 'Y' THEN
2570: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2571: END IF;
2572:
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: pa_debug.reset_err_stack;
2575: RAISE;
2576:
2577: WHEN others THEN
2575: RAISE;
2576:
2577: WHEN others THEN
2578:
2579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: x_msg_count := 1;
2581: x_msg_data := SQLERRM;
2582: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
2583: ,p_procedure_name => 'CREATE_ENTERABLE_RESOURCES');
2585: IF P_PA_DEBUG_MODE = 'Y' THEN
2586: pa_debug.write('create_enterable_resources: ' || l_module_name,pa_debug.g_err_stage,5);
2587: END IF;
2588: pa_debug.reset_err_stack;
2589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2590:
2591: END create_enterable_resources;
2592:
2593: /*==================================================================================================
2619: WHEN NO_DATA_FOUND THEN
2620: l_proj_fp_elements_id := -99;
2621: RETURN l_proj_fp_elements_id; /* when no data found then return -99 */
2622: WHEN OTHERS THEN
2623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2624: END get_element_id;
2625:
2626: /*==================================================================================================
2627: get_element_plannable_flag: This procedure is used from setup pages to get the plannable flag in
2652: WHEN NO_DATA_FOUND THEN
2653: l_plannable_flag := 'N';
2654: RETURN l_plannable_flag;
2655: WHEN OTHERS THEN
2656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2657: END get_element_plannable_flag;
2658:
2659: /*==================================================================================================
2660: get_plan_amount_exists_flag: This procedure is used from setup pages to get the plan amount exists
2685: WHEN NO_DATA_FOUND THEN
2686: l_plan_amount_exists_flag := 'N';
2687: RETURN l_plan_amount_exists_flag;
2688: WHEN OTHERS THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END get_plan_amount_exists_flag;
2691:
2692: /*=======================================================================
2693: The following function returns resource_planning_level based upon the i/ps.
2982:
2983: BEGIN
2984:
2985: x_msg_count := 0;
2986: x_return_status := FND_API.G_RET_STS_SUCCESS;
2987:
2988: pa_debug.set_err_stack('Create_elements_from_version');
2989: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2990: l_debug_mode := NVL(l_debug_mode, 'Y');
3275:
3276: l_msg_count := FND_MSG_PUB.count_msg;
3277: IF l_msg_count = 1 THEN
3278: PA_INTERFACE_UTILS_PUB.get_messages
3279: (p_encoded => FND_API.G_TRUE
3280: ,p_msg_index => 1
3281: ,p_msg_count => l_msg_count
3282: ,p_msg_data => l_msg_data
3283: ,p_data => l_data
3290: IF p_pa_debug_mode = 'Y' THEN
3291: pa_debug.g_err_stage:='Invalid Arguments Passed';
3292: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3293: END IF;
3294: x_return_status:= FND_API.G_RET_STS_ERROR;
3295: pa_debug.reset_err_stack;
3296: RAISE;
3297:
3298: WHEN Mixed_Res_Plan_Level_Exc THEN
3304: CLOSE resources_for_task_level_cur;
3305: END IF;
3306:
3307: x_mixed_resource_planned_flag := 'Y';
3308: x_return_status:= FND_API.G_RET_STS_ERROR;
3309: IF p_pa_debug_mode = 'Y' THEN
3310: pa_debug.g_err_stage:='Budget_Version '||p_from_version_id ||' has mixed planning level';
3311: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3312: END IF;
3327: IF top_task_level_elements_cur%ISOPEN THEN
3328: CLOSE top_task_level_elements_cur;
3329: END IF;
3330:
3331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3332: x_msg_count := 1;
3333: x_msg_data := SQLERRM;
3334: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FP_UPGRADE_PKG'
3335: ,p_procedure_name => 'Create_elements_from_version');
3393: IF P_PA_DEBUG_MODE = 'Y' THEN
3394: pa_debug.set_process('refresh_res_list_changes: ' || 'PLSQL','LOG',l_debug_mode);
3395: END IF;
3396:
3397: x_return_status := FND_API.G_RET_STS_SUCCESS;
3398:
3399: IF (p_proj_fp_options_id IS NULL) or (p_element_type IS NULL) THEN
3400:
3401: IF P_PA_DEBUG_MODE = 'Y' THEN
3405: END IF;
3406:
3407: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3408: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3409: x_return_status := FND_API.G_RET_STS_ERROR;
3410: ELSE
3411:
3412: IF P_PA_DEBUG_MODE = 'Y' THEN
3413: pa_debug.g_err_stage := TO_CHAR(l_Stage)||'Input parameters are valid ';
3451: IF P_PA_DEBUG_MODE = 'Y' THEN
3452: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3453: END IF;
3454:
3455: x_return_status := FND_API.G_RET_STS_ERROR;
3456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3457: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3458: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3459: END IF;
3544: IF P_PA_DEBUG_MODE = 'Y' THEN
3545: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3546: END IF;
3547:
3548: x_return_status := FND_API.G_RET_STS_ERROR;
3549: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3550: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3551: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3552: END IF;
3631: IF P_PA_DEBUG_MODE = 'Y' THEN
3632: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.g_err_stage,5);
3633: END IF;
3634:
3635: x_return_status := FND_API.G_RET_STS_ERROR;
3636: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3637: p_msg_name => 'PA_FP_INV_PARAM_PASSED' );
3638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3639: END IF;
3716: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3717: l_msg_count := FND_MSG_PUB.count_msg;
3718: IF l_msg_count = 1 THEN
3719: PA_INTERFACE_UTILS_PUB.get_messages
3720: (p_encoded => FND_API.G_TRUE,
3721: p_msg_index => 1,
3722: p_msg_count => l_msg_count,
3723: p_msg_data => l_msg_data,
3724: p_data => l_data,
3731: pa_debug.reset_err_stack;
3732: RETURN;
3733:
3734: WHEN OTHERS THEN
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: x_msg_count := 1;
3737: x_msg_data := SQLERRM;
3738: FND_MSG_PUB.add_exc_msg
3739: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB.refresh_res_list_changes'
3743: pa_debug.write('refresh_res_list_changes: ' || l_module_name,pa_debug.G_Err_Stack,4);
3744: END IF;
3745: pa_debug.reset_err_stack;
3746:
3747: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3748: END refresh_res_list_changes;
3749:
3750: /*
3751: This API creates resource assignments and elements for a budget version.
3848:
3849: BEGIN
3850:
3851: x_msg_count := 0;
3852: x_return_status := FND_API.G_RET_STS_SUCCESS;
3853: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3854: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3855: l_debug_mode := NVL(l_debug_mode, 'Y');
3856: IF P_PA_DEBUG_MODE = 'Y' THEN
3960: ,x_msg_count => x_msg_count
3961: ,x_msg_data => x_msg_data
3962: );
3963:
3964: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3965: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3966: END IF;
3967:
3968: END IF;
3988: EXCEPTION
3989:
3990: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3991:
3992: x_return_status := FND_API.G_RET_STS_ERROR;
3993: l_msg_count := FND_MSG_PUB.count_msg;
3994: IF l_msg_count = 1 THEN
3995: PA_INTERFACE_UTILS_PUB.get_messages
3996: (p_encoded => FND_API.G_TRUE
3992: x_return_status := FND_API.G_RET_STS_ERROR;
3993: l_msg_count := FND_MSG_PUB.count_msg;
3994: IF l_msg_count = 1 THEN
3995: PA_INTERFACE_UTILS_PUB.get_messages
3996: (p_encoded => FND_API.G_TRUE
3997: ,p_msg_index => 1
3998: ,p_msg_count => l_msg_count
3999: ,p_msg_data => l_msg_data
4000: ,p_data => l_data
4013: RAISE;
4014:
4015: WHEN others THEN
4016:
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4018: x_msg_count := 1;
4019: x_msg_data := SQLERRM;
4020: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4021: ,p_procedure_name => 'CREATE_ASSGMT_FROM_ROLLUPTMP');
4088: ,p_parent_assignment_id => NULL
4089: ,x_row_id => l_row_id
4090: ,x_return_status => l_return_status);
4091:
4092: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4093: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
4094: IF P_PA_DEBUG_MODE = 'Y' THEN
4095: pa_debug.write('Insert_Resource_Assignment: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4096: END IF;
4205:
4206: BEGIN
4207:
4208: x_msg_count := 0;
4209: x_return_status := FND_API.G_RET_STS_SUCCESS;
4210: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4211: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4212: l_debug_mode := NVL(l_debug_mode, 'Y');
4213: IF P_PA_DEBUG_MODE = 'Y' THEN
4275: x_cur_work_bv_id => l_ci_apprv_cw_bv_id,
4276: x_return_status => l_return_status,
4277: x_msg_count => l_msg_count,
4278: x_msg_data => l_msg_data );
4279: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4280: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4281: END IF;
4282:
4283: /* Bug# 2676352 - Creating plannable elements based on the impacted task is ONLY applicable
4330: ,x_return_status => l_return_status
4331: ,x_msg_count => l_msg_count
4332: ,x_msg_data => l_msg_data );
4333:
4334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4335: IF P_PA_DEBUG_MODE = 'Y' THEN
4336: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4337: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4338: END IF;
4352: ,x_return_status => l_return_status
4353: ,x_msg_count => l_msg_count
4354: ,x_msg_data => l_msg_data );
4355:
4356: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4357: IF P_PA_DEBUG_MODE = 'Y' THEN
4358: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4359: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4360: END IF;
4429: ,x_return_status => l_return_status
4430: ,x_msg_count => l_msg_count
4431: ,x_msg_data => l_msg_data );
4432:
4433: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4434: IF P_PA_DEBUG_MODE = 'Y' THEN
4435: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4436: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4437: END IF;
4451: ,x_return_status => l_return_status
4452: ,x_msg_count => l_msg_count
4453: ,x_msg_data => l_msg_data );
4454:
4455: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4456: IF P_PA_DEBUG_MODE = 'Y' THEN
4457: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4458: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4459: END IF;
4472: EXCEPTION
4473:
4474: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4475:
4476: x_return_status := FND_API.G_RET_STS_ERROR;
4477: l_msg_count := FND_MSG_PUB.count_msg;
4478: IF l_msg_count = 1 THEN
4479: PA_INTERFACE_UTILS_PUB.get_messages
4480: (p_encoded => FND_API.G_TRUE
4476: x_return_status := FND_API.G_RET_STS_ERROR;
4477: l_msg_count := FND_MSG_PUB.count_msg;
4478: IF l_msg_count = 1 THEN
4479: PA_INTERFACE_UTILS_PUB.get_messages
4480: (p_encoded => FND_API.G_TRUE
4481: ,p_msg_index => 1
4482: ,p_msg_count => l_msg_count
4483: ,p_msg_data => l_msg_data
4484: ,p_data => l_data
4497: RAISE;
4498:
4499: WHEN others THEN
4500:
4501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4502: x_msg_count := 1;
4503: x_msg_data := SQLERRM;
4504: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4505: ,p_procedure_name => 'Create_CI_Resource_Assignments');
4649: AND parent_member_id IS NULL; -- to filter all the resource level records
4650:
4651: BEGIN
4652: x_msg_count := 0;
4653: x_return_status := FND_API.G_RET_STS_SUCCESS;
4654: PA_DEBUG.Set_Curr_Function( p_function => 'Add_resources_automatically',
4655: p_debug_mode => p_pa_debug_mode );
4656:
4657: -- Check for NOT NULL parameters
4986: EXCEPTION
4987:
4988: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4989:
4990: x_return_status := FND_API.G_RET_STS_ERROR;
4991: l_msg_count := FND_MSG_PUB.count_msg;
4992: IF l_msg_count = 1 THEN
4993: PA_INTERFACE_UTILS_PUB.get_messages
4994: (p_encoded => FND_API.G_TRUE
4990: x_return_status := FND_API.G_RET_STS_ERROR;
4991: l_msg_count := FND_MSG_PUB.count_msg;
4992: IF l_msg_count = 1 THEN
4993: PA_INTERFACE_UTILS_PUB.get_messages
4994: (p_encoded => FND_API.G_TRUE
4995: ,p_msg_index => 1
4996: ,p_msg_count => l_msg_count
4997: ,p_msg_data => l_msg_data
4998: ,p_data => l_data
5005: pa_debug.reset_curr_function;
5006: RETURN;
5007: WHEN others THEN
5008:
5009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5010: x_msg_count := 1;
5011: x_msg_data := SQLERRM;
5012: FND_MSG_PUB.add_exc_msg
5013: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
5050: l_records_deleted NUMBER;
5051: BEGIN
5052:
5053: x_msg_count := 0;
5054: x_return_status := FND_API.G_RET_STS_SUCCESS;
5055: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5056:
5057: pa_debug.set_curr_function( p_function => 'delete_task_elements',
5058: p_debug_mode => l_debug_mode );
5107: EXCEPTION
5108:
5109: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5110:
5111: x_return_status := FND_API.G_RET_STS_ERROR;
5112: l_msg_count := FND_MSG_PUB.count_msg;
5113:
5114: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5115: PA_INTERFACE_UTILS_PUB.get_messages
5112: l_msg_count := FND_MSG_PUB.count_msg;
5113:
5114: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5115: PA_INTERFACE_UTILS_PUB.get_messages
5116: (p_encoded => FND_API.G_TRUE
5117: ,p_msg_index => 1
5118: ,p_msg_count => l_msg_count
5119: ,p_msg_data => l_msg_data
5120: ,p_data => l_data
5128: RETURN;
5129:
5130: WHEN others THEN
5131:
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5133: x_msg_count := 1;
5134: x_msg_data := SQLERRM;
5135:
5136: FND_MSG_PUB.add_exc_msg
5216: AND pfe.task_id IN (c_task_id,c_top_task_id);
5217:
5218: BEGIN
5219: x_msg_count := 0;
5220: x_return_status := FND_API.G_RET_STS_SUCCESS;
5221: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5222:
5223: IF l_debug_mode = 'Y' THEN
5224: pa_debug.set_curr_function( p_function => 'Get_Task_Element_Attributes',
5400: pa_debug.g_err_stage:= 'Error returned by pa_task_utils.check_child_exists. Sqlerrcode ' || to_char(l_child_task_exists);
5401: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5402: END IF;
5403:
5404: RAISE FND_API.G_Exc_Unexpected_Error;
5405:
5406: END IF;
5407:
5408: ELSIF p_task_level = L_TASK_LEVEL_LOWEST THEN
5486: EXCEPTION
5487:
5488: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5489:
5490: x_return_status := FND_API.G_RET_STS_ERROR;
5491: l_msg_count := FND_MSG_PUB.count_msg;
5492:
5493: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5494: PA_INTERFACE_UTILS_PUB.get_messages
5491: l_msg_count := FND_MSG_PUB.count_msg;
5492:
5493: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5494: PA_INTERFACE_UTILS_PUB.get_messages
5495: (p_encoded => FND_API.G_TRUE
5496: ,p_msg_index => 1
5497: ,p_msg_count => l_msg_count
5498: ,p_msg_data => l_msg_data
5499: ,p_data => l_data
5510: RETURN;
5511:
5512: WHEN OTHERS THEN
5513:
5514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5515: x_msg_count := 1;
5516: x_msg_data := SQLERRM;
5517:
5518: FND_MSG_PUB.add_exc_msg
5628: L_PROCEDURE_NAME CONSTANT VARCHAR2(100):='add_task_to_option :'||l_module_name;
5629:
5630: BEGIN
5631: x_msg_count := 0;
5632: x_return_status := FND_API.G_RET_STS_SUCCESS;
5633: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5634:
5635:
5636: -- Check for business rules violations
5759: ,x_return_status => x_return_status
5760: ,x_msg_count => x_msg_count
5761: ,x_msg_data => x_msg_data);
5762:
5763: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5764:
5765: IF l_debug_mode = 'Y' THEN
5766: pa_debug.g_err_stage := 'Error in Get_Task_Element_Attributes for task'
5767: || p_tasks_tbl(i).task_id ;
5917: ,x_return_status => x_return_status
5918: ,x_msg_count => x_msg_count
5919: ,x_msg_data => x_msg_data);
5920:
5921: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5922:
5923: pa_debug.g_err_stage := 'Error while adding resoruces to task id ' || p_tasks_tbl(i).task_id ||
5924: 'for ' || p_element_type || ' option id ' || p_proj_fp_options_id;
5925: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5955: ,x_return_status => x_return_status
5956: ,x_msg_count => x_msg_count
5957: ,x_msg_data => x_msg_data);
5958:
5959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5960:
5961: pa_debug.g_err_stage := 'Error calling create enterable resoruces for version id'
5962: || proj_fp_options_rec.fin_plan_version_id;
5963: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5976: EXCEPTION
5977:
5978: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5979:
5980: x_return_status := FND_API.G_RET_STS_ERROR;
5981: l_msg_count := FND_MSG_PUB.count_msg;
5982:
5983: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5984: PA_INTERFACE_UTILS_PUB.get_messages
5981: l_msg_count := FND_MSG_PUB.count_msg;
5982:
5983: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5984: PA_INTERFACE_UTILS_PUB.get_messages
5985: (p_encoded => FND_API.G_TRUE
5986: ,p_msg_index => 1
5987: ,p_msg_count => l_msg_count
5988: ,p_msg_data => l_msg_data
5989: ,p_data => l_data
5999: RETURN;
6000:
6001: WHEN others THEN
6002:
6003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6004: x_msg_count := 1;
6005: x_msg_data := SQLERRM;
6006:
6007: FND_MSG_PUB.add_exc_msg
6068:
6069: BEGIN
6070:
6071: x_msg_count := 0;
6072: x_return_status := FND_API.G_RET_STS_SUCCESS;
6073: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6074:
6075:
6076: -- Check for business rules violations
6206: ,x_return_status => x_return_status
6207: ,x_msg_count => x_msg_count
6208: ,x_msg_data => x_msg_data);
6209:
6210: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6211:
6212: pa_debug.g_err_stage := 'Error while adding tasks to cost option id ' || p_refresh_fp_options_tbl(j);
6213: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6214:
6233: ,x_return_status => x_return_status
6234: ,x_msg_count => x_msg_count
6235: ,x_msg_data => x_msg_data);
6236:
6237: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6238:
6239: pa_debug.g_err_stage := 'Error while adding task id to revenue option id '
6240: || p_refresh_fp_options_tbl(j);
6241: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6258: ,x_return_status => x_return_status
6259: ,x_msg_count => x_msg_count
6260: ,x_msg_data => x_msg_data);
6261:
6262: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6263:
6264: pa_debug.g_err_stage := 'Error while adding task id to ALL option id '
6265: || p_refresh_fp_options_tbl(j);
6266: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6287: EXCEPTION
6288:
6289: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6290:
6291: x_return_status := FND_API.G_RET_STS_ERROR;
6292: l_msg_count := FND_MSG_PUB.count_msg;
6293:
6294: IF l_msg_count = 1 and x_msg_data IS NULL THEN
6295: PA_INTERFACE_UTILS_PUB.get_messages
6292: l_msg_count := FND_MSG_PUB.count_msg;
6293:
6294: IF l_msg_count = 1 and x_msg_data IS NULL THEN
6295: PA_INTERFACE_UTILS_PUB.get_messages
6296: (p_encoded => FND_API.G_TRUE
6297: ,p_msg_index => 1
6298: ,p_msg_count => l_msg_count
6299: ,p_msg_data => l_msg_data
6300: ,p_data => l_data
6310: RETURN;
6311:
6312: WHEN others THEN
6313:
6314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6315: x_msg_count := 1;
6316: x_msg_data := SQLERRM;
6317:
6318: FND_MSG_PUB.add_exc_msg
6543: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6544:
6545: END IF;
6546:
6547: RAISE FND_API.G_Exc_Unexpected_Error;
6548:
6549: END IF; /* l_child_tasks_exists = 1 */
6550:
6551: END IF; /* l_middle_task_tbl.exists(p_impacted_tasks_tbl(i).impacted_task_id) */
6556:
6557: BEGIN
6558:
6559: x_msg_count := 0;
6560: x_return_status := FND_API.G_RET_STS_SUCCESS;
6561: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6562:
6563: IF l_debug_mode = 'Y' THEN
6564: pa_debug.set_curr_function( p_function => 'maintain_plannable_tasks',
6783: ,x_msg_count => x_msg_count
6784: ,x_msg_data => x_msg_data);
6785:
6786:
6787: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6788:
6789: IF l_debug_mode = 'Y' THEN
6790: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6791: p_impacted_tasks_tbl(i).impacted_task_id;
6887: ,x_return_status => x_return_status
6888: ,x_msg_count => x_msg_count
6889: ,x_msg_data => x_msg_data);
6890:
6891: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6892:
6893: IF l_debug_mode = 'Y' THEN
6894: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6895: p_impacted_tasks_tbl(i).old_parent_task_id;
7017: ,x_return_status => x_return_status
7018: ,x_msg_count => x_msg_count
7019: ,x_msg_data => x_msg_data);
7020:
7021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7022:
7023: IF l_debug_mode = 'Y' THEN
7024: pa_debug.g_err_stage:= 'Error returned by delete_task_elements for task_id ' ||
7025: p_impacted_tasks_tbl(i).impacted_task_id;
7105: ,x_return_status => x_return_status
7106: ,x_msg_count => x_msg_count
7107: ,x_msg_data => x_msg_data);
7108:
7109: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7110:
7111: IF l_debug_mode = 'Y' THEN
7112: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
7113: p_impacted_tasks_tbl(i).old_parent_task_id;
7187: EXCEPTION
7188:
7189: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7190:
7191: x_return_status := FND_API.G_RET_STS_ERROR;
7192: l_msg_count := FND_MSG_PUB.count_msg;
7193:
7194: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7195: PA_INTERFACE_UTILS_PUB.get_messages
7192: l_msg_count := FND_MSG_PUB.count_msg;
7193:
7194: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7195: PA_INTERFACE_UTILS_PUB.get_messages
7196: (p_encoded => FND_API.G_TRUE
7197: ,p_msg_index => 1
7198: ,p_msg_count => l_msg_count
7199: ,p_msg_data => l_msg_data
7200: ,p_data => l_data
7215: RETURN;
7216:
7217: WHEN others THEN
7218:
7219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7220: x_msg_count := 1;
7221: x_msg_data := SQLERRM;
7222:
7223: FND_MSG_PUB.add_exc_msg