[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.
3853:
3854: BEGIN
3855:
3856: x_msg_count := 0;
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3858: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.CREATE_ASSGMT_FROM_ROLLUPTMP');
3859: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3860: l_debug_mode := NVL(l_debug_mode, 'Y');
3861: IF P_PA_DEBUG_MODE = 'Y' THEN
3967: ,x_msg_count => x_msg_count
3968: ,x_msg_data => x_msg_data
3969: );
3970:
3971: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3972: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3973: END IF;
3974:
3975: END IF;
3997: EXCEPTION
3998:
3999: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4000:
4001: x_return_status := FND_API.G_RET_STS_ERROR;
4002: l_msg_count := FND_MSG_PUB.count_msg;
4003: IF l_msg_count = 1 THEN
4004: PA_INTERFACE_UTILS_PUB.get_messages
4005: (p_encoded => FND_API.G_TRUE
4001: x_return_status := FND_API.G_RET_STS_ERROR;
4002: l_msg_count := FND_MSG_PUB.count_msg;
4003: IF l_msg_count = 1 THEN
4004: PA_INTERFACE_UTILS_PUB.get_messages
4005: (p_encoded => FND_API.G_TRUE
4006: ,p_msg_index => 1
4007: ,p_msg_count => l_msg_count
4008: ,p_msg_data => l_msg_data
4009: ,p_data => l_data
4022: RAISE;
4023:
4024: WHEN others THEN
4025:
4026: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4027: x_msg_count := 1;
4028: x_msg_data := SQLERRM;
4029: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4030: ,p_procedure_name => 'CREATE_ASSGMT_FROM_ROLLUPTMP');
4097: ,p_parent_assignment_id => NULL
4098: ,x_row_id => l_row_id
4099: ,x_return_status => l_return_status);
4100:
4101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4102: pa_debug.g_err_stage:= 'Exception while inserting a row into pa_resource_assignments;';
4103: IF P_PA_DEBUG_MODE = 'Y' THEN
4104: pa_debug.write('Insert_Resource_Assignment: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4105: END IF;
4214:
4215: BEGIN
4216:
4217: x_msg_count := 0;
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: pa_debug.set_err_stack('PA_FP_ELEMENTS_PUB.Create_CI_Resource_Assignments');
4220: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4221: l_debug_mode := NVL(l_debug_mode, 'Y');
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4284: x_cur_work_bv_id => l_ci_apprv_cw_bv_id,
4285: x_return_status => l_return_status,
4286: x_msg_count => l_msg_count,
4287: x_msg_data => l_msg_data );
4288: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4289: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4290: END IF;
4291:
4292: /* Bug# 2676352 - Creating plannable elements based on the impacted task is ONLY applicable
4339: ,x_return_status => l_return_status
4340: ,x_msg_count => l_msg_count
4341: ,x_msg_data => l_msg_data );
4342:
4343: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4344: IF P_PA_DEBUG_MODE = 'Y' THEN
4345: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4346: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4347: END IF;
4361: ,x_return_status => l_return_status
4362: ,x_msg_count => l_msg_count
4363: ,x_msg_data => l_msg_data );
4364:
4365: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4366: IF P_PA_DEBUG_MODE = 'Y' THEN
4367: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4368: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4369: END IF;
4438: ,x_return_status => l_return_status
4439: ,x_msg_count => l_msg_count
4440: ,x_msg_data => l_msg_data );
4441:
4442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4443: IF P_PA_DEBUG_MODE = 'Y' THEN
4444: pa_debug.g_err_stage := 'The call to create_res_task_map returned with error';
4445: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4446: END IF;
4460: ,x_return_status => l_return_status
4461: ,x_msg_count => l_msg_count
4462: ,x_msg_data => l_msg_data );
4463:
4464: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4465: IF P_PA_DEBUG_MODE = 'Y' THEN
4466: pa_debug.g_err_stage := 'The call to copy_resource_assignments returned with error';
4467: pa_debug.write('Create_CI_Resource_Assignments: ' || l_module_name,pa_debug.g_err_stage,3);
4468: END IF;
4481: EXCEPTION
4482:
4483: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4484:
4485: x_return_status := FND_API.G_RET_STS_ERROR;
4486: l_msg_count := FND_MSG_PUB.count_msg;
4487: IF l_msg_count = 1 THEN
4488: PA_INTERFACE_UTILS_PUB.get_messages
4489: (p_encoded => FND_API.G_TRUE
4485: x_return_status := FND_API.G_RET_STS_ERROR;
4486: l_msg_count := FND_MSG_PUB.count_msg;
4487: IF l_msg_count = 1 THEN
4488: PA_INTERFACE_UTILS_PUB.get_messages
4489: (p_encoded => FND_API.G_TRUE
4490: ,p_msg_index => 1
4491: ,p_msg_count => l_msg_count
4492: ,p_msg_data => l_msg_data
4493: ,p_data => l_data
4506: RAISE;
4507:
4508: WHEN others THEN
4509:
4510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4511: x_msg_count := 1;
4512: x_msg_data := SQLERRM;
4513: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
4514: ,p_procedure_name => 'Create_CI_Resource_Assignments');
4658: AND parent_member_id IS NULL; -- to filter all the resource level records
4659:
4660: BEGIN
4661: x_msg_count := 0;
4662: x_return_status := FND_API.G_RET_STS_SUCCESS;
4663: PA_DEBUG.Set_Curr_Function( p_function => 'Add_resources_automatically',
4664: p_debug_mode => p_pa_debug_mode );
4665:
4666: -- Check for NOT NULL parameters
4995: EXCEPTION
4996:
4997: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4998:
4999: x_return_status := FND_API.G_RET_STS_ERROR;
5000: l_msg_count := FND_MSG_PUB.count_msg;
5001: IF l_msg_count = 1 THEN
5002: PA_INTERFACE_UTILS_PUB.get_messages
5003: (p_encoded => FND_API.G_TRUE
4999: x_return_status := FND_API.G_RET_STS_ERROR;
5000: l_msg_count := FND_MSG_PUB.count_msg;
5001: IF l_msg_count = 1 THEN
5002: PA_INTERFACE_UTILS_PUB.get_messages
5003: (p_encoded => FND_API.G_TRUE
5004: ,p_msg_index => 1
5005: ,p_msg_count => l_msg_count
5006: ,p_msg_data => l_msg_data
5007: ,p_data => l_data
5014: pa_debug.reset_curr_function;
5015: RETURN;
5016: WHEN others THEN
5017:
5018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5019: x_msg_count := 1;
5020: x_msg_data := SQLERRM;
5021: FND_MSG_PUB.add_exc_msg
5022: ( p_pkg_name => 'PA_FP_ELEMENTS_PUB'
5059: l_records_deleted NUMBER;
5060: BEGIN
5061:
5062: x_msg_count := 0;
5063: x_return_status := FND_API.G_RET_STS_SUCCESS;
5064: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5065:
5066: pa_debug.set_curr_function( p_function => 'delete_task_elements',
5067: p_debug_mode => l_debug_mode );
5116: EXCEPTION
5117:
5118: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5119:
5120: x_return_status := FND_API.G_RET_STS_ERROR;
5121: l_msg_count := FND_MSG_PUB.count_msg;
5122:
5123: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5124: PA_INTERFACE_UTILS_PUB.get_messages
5121: l_msg_count := FND_MSG_PUB.count_msg;
5122:
5123: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5124: PA_INTERFACE_UTILS_PUB.get_messages
5125: (p_encoded => FND_API.G_TRUE
5126: ,p_msg_index => 1
5127: ,p_msg_count => l_msg_count
5128: ,p_msg_data => l_msg_data
5129: ,p_data => l_data
5137: RETURN;
5138:
5139: WHEN others THEN
5140:
5141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5142: x_msg_count := 1;
5143: x_msg_data := SQLERRM;
5144:
5145: FND_MSG_PUB.add_exc_msg
5225: AND pfe.task_id IN (c_task_id,c_top_task_id);
5226:
5227: BEGIN
5228: x_msg_count := 0;
5229: x_return_status := FND_API.G_RET_STS_SUCCESS;
5230: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5231:
5232: IF l_debug_mode = 'Y' THEN
5233: pa_debug.set_curr_function( p_function => 'Get_Task_Element_Attributes',
5409: pa_debug.g_err_stage:= 'Error returned by pa_task_utils.check_child_exists. Sqlerrcode ' || to_char(l_child_task_exists);
5410: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5411: END IF;
5412:
5413: RAISE FND_API.G_Exc_Unexpected_Error;
5414:
5415: END IF;
5416:
5417: ELSIF p_task_level = L_TASK_LEVEL_LOWEST THEN
5495: EXCEPTION
5496:
5497: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5498:
5499: x_return_status := FND_API.G_RET_STS_ERROR;
5500: l_msg_count := FND_MSG_PUB.count_msg;
5501:
5502: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5503: PA_INTERFACE_UTILS_PUB.get_messages
5500: l_msg_count := FND_MSG_PUB.count_msg;
5501:
5502: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5503: PA_INTERFACE_UTILS_PUB.get_messages
5504: (p_encoded => FND_API.G_TRUE
5505: ,p_msg_index => 1
5506: ,p_msg_count => l_msg_count
5507: ,p_msg_data => l_msg_data
5508: ,p_data => l_data
5519: RETURN;
5520:
5521: WHEN OTHERS THEN
5522:
5523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524: x_msg_count := 1;
5525: x_msg_data := SQLERRM;
5526:
5527: FND_MSG_PUB.add_exc_msg
5637: L_PROCEDURE_NAME CONSTANT VARCHAR2(100):='add_task_to_option :'||l_module_name;
5638:
5639: BEGIN
5640: x_msg_count := 0;
5641: x_return_status := FND_API.G_RET_STS_SUCCESS;
5642: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5643:
5644:
5645: -- Check for business rules violations
5768: ,x_return_status => x_return_status
5769: ,x_msg_count => x_msg_count
5770: ,x_msg_data => x_msg_data);
5771:
5772: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5773:
5774: IF l_debug_mode = 'Y' THEN
5775: pa_debug.g_err_stage := 'Error in Get_Task_Element_Attributes for task'
5776: || p_tasks_tbl(i).task_id ;
5926: ,x_return_status => x_return_status
5927: ,x_msg_count => x_msg_count
5928: ,x_msg_data => x_msg_data);
5929:
5930: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5931:
5932: pa_debug.g_err_stage := 'Error while adding resoruces to task id ' || p_tasks_tbl(i).task_id ||
5933: 'for ' || p_element_type || ' option id ' || p_proj_fp_options_id;
5934: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5964: ,x_return_status => x_return_status
5965: ,x_msg_count => x_msg_count
5966: ,x_msg_data => x_msg_data);
5967:
5968: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5969:
5970: pa_debug.g_err_stage := 'Error calling create enterable resoruces for version id'
5971: || proj_fp_options_rec.fin_plan_version_id;
5972: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
5985: EXCEPTION
5986:
5987: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5988:
5989: x_return_status := FND_API.G_RET_STS_ERROR;
5990: l_msg_count := FND_MSG_PUB.count_msg;
5991:
5992: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5993: PA_INTERFACE_UTILS_PUB.get_messages
5990: l_msg_count := FND_MSG_PUB.count_msg;
5991:
5992: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5993: PA_INTERFACE_UTILS_PUB.get_messages
5994: (p_encoded => FND_API.G_TRUE
5995: ,p_msg_index => 1
5996: ,p_msg_count => l_msg_count
5997: ,p_msg_data => l_msg_data
5998: ,p_data => l_data
6008: RETURN;
6009:
6010: WHEN others THEN
6011:
6012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6013: x_msg_count := 1;
6014: x_msg_data := SQLERRM;
6015:
6016: FND_MSG_PUB.add_exc_msg
6077:
6078: BEGIN
6079:
6080: x_msg_count := 0;
6081: x_return_status := FND_API.G_RET_STS_SUCCESS;
6082: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6083:
6084:
6085: -- Check for business rules violations
6215: ,x_return_status => x_return_status
6216: ,x_msg_count => x_msg_count
6217: ,x_msg_data => x_msg_data);
6218:
6219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6220:
6221: pa_debug.g_err_stage := 'Error while adding tasks to cost option id ' || p_refresh_fp_options_tbl(j);
6222: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6223:
6242: ,x_return_status => x_return_status
6243: ,x_msg_count => x_msg_count
6244: ,x_msg_data => x_msg_data);
6245:
6246: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6247:
6248: pa_debug.g_err_stage := 'Error while adding task id to revenue option id '
6249: || p_refresh_fp_options_tbl(j);
6250: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6267: ,x_return_status => x_return_status
6268: ,x_msg_count => x_msg_count
6269: ,x_msg_data => x_msg_data);
6270:
6271: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6272:
6273: pa_debug.g_err_stage := 'Error while adding task id to ALL option id '
6274: || p_refresh_fp_options_tbl(j);
6275: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
6296: EXCEPTION
6297:
6298: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6299:
6300: x_return_status := FND_API.G_RET_STS_ERROR;
6301: l_msg_count := FND_MSG_PUB.count_msg;
6302:
6303: IF l_msg_count = 1 and x_msg_data IS NULL THEN
6304: PA_INTERFACE_UTILS_PUB.get_messages
6301: l_msg_count := FND_MSG_PUB.count_msg;
6302:
6303: IF l_msg_count = 1 and x_msg_data IS NULL THEN
6304: PA_INTERFACE_UTILS_PUB.get_messages
6305: (p_encoded => FND_API.G_TRUE
6306: ,p_msg_index => 1
6307: ,p_msg_count => l_msg_count
6308: ,p_msg_data => l_msg_data
6309: ,p_data => l_data
6319: RETURN;
6320:
6321: WHEN others THEN
6322:
6323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6324: x_msg_count := 1;
6325: x_msg_data := SQLERRM;
6326:
6327: FND_MSG_PUB.add_exc_msg
6552: pa_debug.write(l_module_name,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
6553:
6554: END IF;
6555:
6556: RAISE FND_API.G_Exc_Unexpected_Error;
6557:
6558: END IF; /* l_child_tasks_exists = 1 */
6559:
6560: END IF; /* l_middle_task_tbl.exists(p_impacted_tasks_tbl(i).impacted_task_id) */
6565:
6566: BEGIN
6567:
6568: x_msg_count := 0;
6569: x_return_status := FND_API.G_RET_STS_SUCCESS;
6570: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6571:
6572: IF l_debug_mode = 'Y' THEN
6573: pa_debug.set_curr_function( p_function => 'maintain_plannable_tasks',
6792: ,x_msg_count => x_msg_count
6793: ,x_msg_data => x_msg_data);
6794:
6795:
6796: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6797:
6798: IF l_debug_mode = 'Y' THEN
6799: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6800: p_impacted_tasks_tbl(i).impacted_task_id;
6896: ,x_return_status => x_return_status
6897: ,x_msg_count => x_msg_count
6898: ,x_msg_data => x_msg_data);
6899:
6900: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6901:
6902: IF l_debug_mode = 'Y' THEN
6903: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
6904: p_impacted_tasks_tbl(i).old_parent_task_id;
7026: ,x_return_status => x_return_status
7027: ,x_msg_count => x_msg_count
7028: ,x_msg_data => x_msg_data);
7029:
7030: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7031:
7032: IF l_debug_mode = 'Y' THEN
7033: pa_debug.g_err_stage:= 'Error returned by delete_task_elements for task_id ' ||
7034: p_impacted_tasks_tbl(i).impacted_task_id;
7114: ,x_return_status => x_return_status
7115: ,x_msg_count => x_msg_count
7116: ,x_msg_data => x_msg_data);
7117:
7118: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7119:
7120: IF l_debug_mode = 'Y' THEN
7121: pa_debug.g_err_stage:= 'Error returned by make_new_tasks_plannable for task_id ' ||
7122: p_impacted_tasks_tbl(i).old_parent_task_id;
7196: EXCEPTION
7197:
7198: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7199:
7200: x_return_status := FND_API.G_RET_STS_ERROR;
7201: l_msg_count := FND_MSG_PUB.count_msg;
7202:
7203: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7204: PA_INTERFACE_UTILS_PUB.get_messages
7201: l_msg_count := FND_MSG_PUB.count_msg;
7202:
7203: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7204: PA_INTERFACE_UTILS_PUB.get_messages
7205: (p_encoded => FND_API.G_TRUE
7206: ,p_msg_index => 1
7207: ,p_msg_count => l_msg_count
7208: ,p_msg_data => l_msg_data
7209: ,p_data => l_data
7224: RETURN;
7225:
7226: WHEN others THEN
7227:
7228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7229: x_msg_count := 1;
7230: x_msg_data := SQLERRM;
7231:
7232: FND_MSG_PUB.add_exc_msg