[Home] [Help]
57: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
58: l_debug_mode := NVL(l_debug_mode, 'Y');
59:
60: -- Initialize the return status to success
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62: IF P_PA_DEBUG_MODE = 'Y' THEN
63: pa_debug.set_process('POPULATE_LOCAL_VARS: ' || 'PLSQL','LOG',l_debug_mode);
64: END IF;
65:
73: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
74: IF P_PA_DEBUG_MODE = 'Y' THEN
75: pa_debug.write('POPULATE_LOCAL_VARS: ' || l_module_name,pa_debug.g_err_stage,5);
76: END IF;
77: x_return_status := FND_API.G_RET_STS_ERROR;
78: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
79: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
80: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
81: END IF;
154: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
155: l_msg_count := FND_MSG_PUB.count_msg;
156: IF l_msg_count = 1 THEN
157: PA_INTERFACE_UTILS_PUB.get_messages
158: (p_encoded => FND_API.G_TRUE,
159: p_msg_index => 1,
160: p_msg_count => l_msg_count,
161: p_msg_data => l_msg_data,
162: p_data => l_data,
168: END IF;
169: pa_debug.reset_err_stack;
170: RAISE;
171: WHEN OTHERS THEN
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: x_msg_count := 1;
174: x_msg_data := SQLERRM;
175: FND_MSG_PUB.add_exc_msg
176: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
179: pa_debug.write('POPULATE_LOCAL_VARS: ' || l_module_name,SQLERRM,5);
180: END IF;
181: pa_debug.reset_err_stack;
182:
183: raise FND_API.G_EXC_UNEXPECTED_ERROR;
184:
185: END POPULATE_LOCAL_VARS;
186:
187:
330: IF P_PA_DEBUG_MODE = 'Y' THEN
331: pa_debug.write('INSERT_PARENT_REC_TMP: ' || l_module_name,SQLERRM,5);
332: END IF;
333:
334: raise FND_API.G_EXC_UNEXPECTED_ERROR;
335:
336: END Insert_Parent_Rec_Tmp;
337:
338: /*====================================================================================================
472: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
473: l_debug_mode := NVL(l_debug_mode, 'Y');
474:
475: -- Initialize the return status to success
476: x_return_status := FND_API.G_RET_STS_SUCCESS;
477:
478: IF P_PA_DEBUG_MODE = 'Y' THEN
479: pa_debug.set_process('ROLLUP_BUDGET_VERSION: ' || 'PLSQL','LOG',l_debug_mode);
480: END IF;
490: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
491: IF P_PA_DEBUG_MODE = 'Y' THEN
492: pa_debug.write('ROLLUP_BUDGET_VERSION: ' || l_module_name,pa_debug.g_err_stage,5);
493: END IF;
494: x_return_status := FND_API.G_RET_STS_ERROR;
495: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
496: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
497: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
498: END IF;
738: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
739: l_msg_count := FND_MSG_PUB.count_msg;
740: IF l_msg_count = 1 THEN
741: PA_INTERFACE_UTILS_PUB.get_messages
742: (p_encoded => FND_API.G_TRUE,
743: p_msg_index => 1,
744: p_msg_count => l_msg_count,
745: p_msg_data => l_msg_data,
746: p_data => l_data,
752: END IF;
753: pa_debug.reset_err_stack;
754: RAISE;
755: WHEN OTHERS THEN
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: x_msg_count := 1;
758: x_msg_data := SQLERRM;
759: FND_MSG_PUB.add_exc_msg
760: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
763: pa_debug.write('ROLLUP_BUDGET_VERSION: ' || l_module_name,SQLERRM,5);
764: END IF;
765: pa_debug.reset_err_stack;
766:
767: raise FND_API.G_EXC_UNEXPECTED_ERROR;
768: END ROLLUP_BUDGET_VERSION;
769:
770: /*===================================================================================================
771: REFRESH_RESOURCE_ASSIGNMENTS: This API refreshes the complete resource assignments table.
994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
995: l_debug_mode := NVL(l_debug_mode, 'Y');
996:
997: -- Initialize the return status to success
998: x_return_status := FND_API.G_RET_STS_SUCCESS;
999:
1000: IF P_PA_DEBUG_MODE = 'Y' THEN
1001: pa_debug.set_process('REFRESH_RESOURCE_ASSIGNMENTS: ' || 'PLSQL','LOG',l_debug_mode);
1002: END IF;
1012: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
1013: IF P_PA_DEBUG_MODE = 'Y' THEN
1014: pa_debug.write('REFRESH_RESOURCE_ASSIGNMENTS: ' || l_module_name,pa_debug.g_err_stage,5);
1015: END IF;
1016: x_return_status := FND_API.G_RET_STS_ERROR;
1017: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1018: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1019: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
1020: END IF;
1554: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
1555: l_msg_count := FND_MSG_PUB.count_msg;
1556: IF l_msg_count = 1 THEN
1557: PA_INTERFACE_UTILS_PUB.get_messages
1558: (p_encoded => FND_API.G_TRUE,
1559: p_msg_index => 1,
1560: p_msg_count => l_msg_count,
1561: p_msg_data => l_msg_data,
1562: p_data => l_data,
1568: END IF;
1569: pa_debug.reset_err_stack;
1570: RAISE;
1571: WHEN OTHERS THEN
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: x_msg_count := 1;
1574: x_msg_data := SQLERRM;
1575: FND_MSG_PUB.add_exc_msg
1576: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
1579: pa_debug.write('REFRESH_RESOURCE_ASSIGNMENTS: ' || l_module_name,SQLERRM,5);
1580: END IF;
1581: pa_debug.reset_err_stack;
1582:
1583: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1584: END REFRESH_RESOURCE_ASSIGNMENTS;
1585:
1586:
1587: /*==============================================================================================
1618: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1619: l_debug_mode := NVL(l_debug_mode, 'Y');
1620:
1621: -- Initialize the return status to success
1622: x_return_status := FND_API.G_RET_STS_SUCCESS;
1623:
1624: IF P_PA_DEBUG_MODE = 'Y' THEN
1625: pa_debug.set_process('UPDATE_RES_PARENT_ASSIGN_ID: ' || 'PLSQL','LOG',l_debug_mode);
1626: END IF;
1636: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
1637: IF P_PA_DEBUG_MODE = 'Y' THEN
1638: pa_debug.write('UPDATE_RES_PARENT_ASSIGN_ID: ' || l_module_name,pa_debug.g_err_stage,5);
1639: END IF;
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1642: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1643: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
1644: END IF;
1826: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
1827: l_msg_count := FND_MSG_PUB.count_msg;
1828: IF l_msg_count = 1 THEN
1829: PA_INTERFACE_UTILS_PUB.get_messages
1830: (p_encoded => FND_API.G_TRUE,
1831: p_msg_index => 1,
1832: p_msg_count => l_msg_count,
1833: p_msg_data => l_msg_data,
1834: p_data => l_data,
1840: END IF;
1841: pa_debug.reset_err_stack;
1842: RAISE;
1843: WHEN OTHERS THEN
1844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1845: x_msg_count := 1;
1846: x_msg_data := SQLERRM;
1847: FND_MSG_PUB.add_exc_msg
1848: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
1851: pa_debug.write('UPDATE_RES_PARENT_ASSIGN_ID: ' || l_module_name,SQLERRM,5);
1852: END IF;
1853: pa_debug.reset_err_stack;
1854:
1855: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1856:
1857: END UPDATE_RES_PARENT_ASSIGN_ID;
1858:
1859: /*==================================================================================================
1895: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1896: l_debug_mode := NVL(l_debug_mode, 'Y');
1897:
1898: -- Initialize the return status to success
1899: x_return_status := FND_API.G_RET_STS_SUCCESS;
1900:
1901: IF P_PA_DEBUG_MODE = 'Y' THEN
1902: pa_debug.set_process('Insert_Bulk_Rows_Res: ' || 'PLSQL','LOG',l_debug_mode);
1903: END IF;
1982: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
1983: l_msg_count := FND_MSG_PUB.count_msg;
1984: IF l_msg_count = 1 THEN
1985: PA_INTERFACE_UTILS_PUB.get_messages
1986: (p_encoded => FND_API.G_TRUE,
1987: p_msg_index => 1,
1988: p_msg_count => l_msg_count,
1989: p_msg_data => l_msg_data,
1990: p_data => l_data,
1996: END IF;
1997: pa_debug.reset_err_stack;
1998: RAISE;
1999: WHEN OTHERS THEN
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2001: x_msg_count := 1;
2002: x_msg_data := SQLERRM;
2003: FND_MSG_PUB.add_exc_msg
2004: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
2007: pa_debug.write('Insert_Bulk_Rows_Res: ' || l_module_name,SQLERRM,5);
2008: END IF;
2009: pa_debug.reset_err_stack;
2010:
2011: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2012: END Insert_Bulk_Rows_Res;
2013:
2014: /**************************************************************************************
2015: REFRESH_PERIOD_DENORM: This api does complete rollup of period denorm. It completely
2063: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2064: l_debug_mode := NVL(l_debug_mode, 'Y');
2065:
2066: -- Initialize the return status to success
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068:
2069: IF P_PA_DEBUG_MODE = 'Y' THEN
2070: pa_debug.set_process('REFRESH_PERIOD_DENORM: ' || 'PLSQL','LOG',l_debug_mode);
2071: END IF;
2081: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
2082: IF P_PA_DEBUG_MODE = 'Y' THEN
2083: pa_debug.write('REFRESH_PERIOD_DENORM: ' || l_module_name,pa_debug.g_err_stage,5);
2084: END IF;
2085: x_return_status := FND_API.G_RET_STS_ERROR;
2086: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2087: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2088: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
2089: END IF;
2429: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
2430: l_msg_count := FND_MSG_PUB.count_msg;
2431: IF l_msg_count = 1 THEN
2432: PA_INTERFACE_UTILS_PUB.get_messages
2433: (p_encoded => FND_API.G_TRUE,
2434: p_msg_index => 1,
2435: p_msg_count => l_msg_count,
2436: p_msg_data => l_msg_data,
2437: p_data => l_data,
2443: END IF;
2444: pa_debug.reset_err_stack;
2445: RAISE;
2446: WHEN OTHERS THEN
2447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2448: x_msg_count := 1;
2449: x_msg_data := SQLERRM;
2450: FND_MSG_PUB.add_exc_msg
2451: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
2454: pa_debug.write('REFRESH_PERIOD_DENORM: ' || l_module_name,SQLERRM,5);
2455: END IF;
2456: pa_debug.reset_err_stack;
2457:
2458: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2459: END REFRESH_PERIOD_DENORM;
2460:
2461:
2462: /***********************************************************************************************
2485: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2486: l_debug_mode := NVL(l_debug_mode, 'Y');
2487:
2488: -- Initialize the return status to success
2489: x_return_status := FND_API.G_RET_STS_SUCCESS;
2490:
2491: IF P_PA_DEBUG_MODE = 'Y' THEN
2492: pa_debug.set_process('UPDATE_DENORM_PARENT_ASSIGN_ID: ' || 'PLSQL','LOG',l_debug_mode);
2493: END IF;
2513: pa_debug.reset_err_stack;
2514:
2515: EXCEPTION
2516: WHEN OTHERS THEN
2517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2518: x_msg_count := 1;
2519: x_msg_data := SQLERRM;
2520: FND_MSG_PUB.add_exc_msg
2521: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
2524: pa_debug.write('UPDATE_DENORM_PARENT_ASSIGN_ID: ' || l_module_name,SQLERRM,5);
2525: END IF;
2526: pa_debug.reset_err_stack;
2527:
2528: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2529: END UPDATE_DENORM_PARENT_ASSIGN_ID;
2530:
2531: /***********************************************************************************************
2532: INSERT_MISSING_RES_PARENTS: This api creates missing parents for the records in input
2649: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2650: l_debug_mode := NVL(l_debug_mode, 'Y');
2651:
2652: -- Initialize the return status to success
2653: x_return_status := FND_API.G_RET_STS_SUCCESS;
2654:
2655: IF P_PA_DEBUG_MODE = 'Y' THEN
2656: pa_debug.set_process('INSERT_MISSING_RES_PARENTS: ' || 'PLSQL','LOG',l_debug_mode);
2657: END IF;
2667: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
2668: IF P_PA_DEBUG_MODE = 'Y' THEN
2669: pa_debug.write('INSERT_MISSING_RES_PARENTS: ' || l_module_name,pa_debug.g_err_stage,5);
2670: END IF;
2671: x_return_status := FND_API.G_RET_STS_ERROR;
2672: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2673: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2674: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
2675: END IF;
3307: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
3308: l_msg_count := FND_MSG_PUB.count_msg;
3309: IF l_msg_count = 1 THEN
3310: PA_INTERFACE_UTILS_PUB.get_messages
3311: (p_encoded => FND_API.G_TRUE,
3312: p_msg_index => 1,
3313: p_msg_count => l_msg_count,
3314: p_msg_data => l_msg_data,
3315: p_data => l_data,
3321: END IF;
3322: pa_debug.reset_err_stack;
3323: RAISE;
3324: WHEN OTHERS THEN
3325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3326: x_msg_count := 1;
3327: x_msg_data := SQLERRM;
3328: FND_MSG_PUB.add_exc_msg
3329: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
3332: pa_debug.write('INSERT_MISSING_RES_PARENTS: ' || l_module_name,SQLERRM,5);
3333: END IF;
3334: pa_debug.reset_err_stack;
3335:
3336: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3337: END INSERT_MISSING_RES_PARENTS;
3338:
3339: /***********************************************************************************************
3340: ROLLUP_RES_ASSIGNMENT_AMOUNTS: This API will take input from PA_FP_ROLLUP_TMP table
3399: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3400: l_debug_mode := NVL(l_debug_mode, 'Y');
3401:
3402: -- Initialize the return status to success
3403: x_return_status := FND_API.G_RET_STS_SUCCESS;
3404:
3405: IF P_PA_DEBUG_MODE = 'Y' THEN
3406: pa_debug.set_process('ROLLUP_RES_ASSIGNMENT_AMOUNTS: ' || 'PLSQL','LOG',l_debug_mode);
3407: END IF;
3416: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
3417: IF P_PA_DEBUG_MODE = 'Y' THEN
3418: pa_debug.write('ROLLUP_RES_ASSIGNMENT_AMOUNTS: ' || l_module_name,pa_debug.g_err_stage,5);
3419: END IF;
3420: x_return_status := FND_API.G_RET_STS_ERROR;
3421: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3422: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3423: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
3424: END IF;
3612: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
3613: l_msg_count := FND_MSG_PUB.count_msg;
3614: IF l_msg_count = 1 THEN
3615: PA_INTERFACE_UTILS_PUB.get_messages
3616: (p_encoded => FND_API.G_TRUE,
3617: p_msg_index => 1,
3618: p_msg_count => l_msg_count,
3619: p_msg_data => l_msg_data,
3620: p_data => l_data,
3626: END IF;
3627: pa_debug.reset_err_stack;
3628: RAISE;
3629: WHEN OTHERS THEN
3630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3631: x_msg_count := 1;
3632: x_msg_data := SQLERRM;
3633: FND_MSG_PUB.add_exc_msg
3634: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
3637: pa_debug.write('ROLLUP_RES_ASSIGNMENT_AMOUNTS: ' || l_module_name,SQLERRM,5);
3638: END IF;
3639: pa_debug.reset_err_stack;
3640:
3641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3642: END ROLLUP_RES_ASSIGNMENT_AMOUNTS;
3643:
3644: /***********************************************************************************************
3645: INSERT_MISSING_PARENT_DENORM: This API will only insert the parent level records for all the
3728: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3729: l_debug_mode := NVL(l_debug_mode, 'Y');
3730:
3731: -- Initialize the return status to success
3732: x_return_status := FND_API.G_RET_STS_SUCCESS;
3733:
3734: IF P_PA_DEBUG_MODE = 'Y' THEN
3735: pa_debug.set_process('INSERT_MISSING_PARENT_DENORM: ' || 'PLSQL','LOG',l_debug_mode);
3736: END IF;
3746: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
3747: IF P_PA_DEBUG_MODE = 'Y' THEN
3748: pa_debug.write('INSERT_MISSING_PARENT_DENORM: ' || l_module_name,pa_debug.g_err_stage,5);
3749: END IF;
3750: x_return_status := FND_API.G_RET_STS_ERROR;
3751: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3752: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3753: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
3754: END IF;
3919: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
3920: l_msg_count := FND_MSG_PUB.count_msg;
3921: IF l_msg_count = 1 THEN
3922: PA_INTERFACE_UTILS_PUB.get_messages
3923: (p_encoded => FND_API.G_TRUE,
3924: p_msg_index => 1,
3925: p_msg_count => l_msg_count,
3926: p_msg_data => l_msg_data,
3927: p_data => l_data,
3933: END IF;
3934: pa_debug.reset_err_stack;
3935: RAISE;
3936: WHEN OTHERS THEN
3937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3938: x_msg_count := 1;
3939: x_msg_data := SQLERRM;
3940: FND_MSG_PUB.add_exc_msg
3941: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
3944: pa_debug.write('INSERT_MISSING_PARENT_DENORM: ' || l_module_name,'sqlerrm = ' || SQLERRM,5);
3945: END IF;
3946: pa_debug.reset_err_stack;
3947:
3948: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3949: END INSERT_MISSING_PARENT_DENORM;
3950:
3951:
3952: /***********************************************************************************************
3980: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3981: l_debug_mode := NVL(l_debug_mode, 'Y');
3982:
3983: -- Initialize the return status to success
3984: x_return_status := FND_API.G_RET_STS_SUCCESS;
3985:
3986: IF P_PA_DEBUG_MODE = 'Y' THEN
3987: pa_debug.set_process('ROLLUP_DENORM_AMOUNTS: ' || 'PLSQL','LOG',l_debug_mode);
3988: END IF;
3998: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
3999: IF P_PA_DEBUG_MODE = 'Y' THEN
4000: pa_debug.write('ROLLUP_DENORM_AMOUNTS: ' || l_module_name,pa_debug.g_err_stage,5);
4001: END IF;
4002: x_return_status := FND_API.G_RET_STS_ERROR;
4003: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4004: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4005: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
4006: END IF;
4349: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
4350: l_msg_count := FND_MSG_PUB.count_msg;
4351: IF l_msg_count = 1 THEN
4352: PA_INTERFACE_UTILS_PUB.get_messages
4353: (p_encoded => FND_API.G_TRUE,
4354: p_msg_index => 1,
4355: p_msg_count => l_msg_count,
4356: p_msg_data => l_msg_data,
4357: p_data => l_data,
4363: END IF;
4364: pa_debug.reset_err_stack;
4365: RAISE;
4366: WHEN OTHERS THEN
4367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4368: x_msg_count := 1;
4369: x_msg_data := SQLERRM;
4370: FND_MSG_PUB.add_exc_msg
4371: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
4374: pa_debug.write('ROLLUP_DENORM_AMOUNTS: ' || l_module_name,SQLERRM,5);
4375: END IF;
4376: pa_debug.reset_err_stack;
4377:
4378: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4379: END ROLLUP_DENORM_AMOUNTS;
4380:
4381: /***********************************************************************************************
4382: DELETE_ELEMENT: Given a resource assignment id and txn currency code this API will delete the
4462: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4463: l_debug_mode := NVL(l_debug_mode, 'Y');
4464:
4465: -- Initialize the return status to success
4466: x_return_status := FND_API.G_RET_STS_SUCCESS;
4467:
4468: IF P_PA_DEBUG_MODE = 'Y' THEN
4469: pa_debug.set_process('DELETE_ELEMENT: ' || 'PLSQL','LOG',l_debug_mode);
4470: END IF;
4480: pa_debug.g_err_stage := 'Err- Budget Version ID cannot be NULL.';
4481: IF P_PA_DEBUG_MODE = 'Y' THEN
4482: pa_debug.write('DELETE_ELEMENT: ' || l_module_name,pa_debug.g_err_stage,5);
4483: END IF;
4484: x_return_status := FND_API.G_RET_STS_ERROR;
4485: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4486: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4487: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
4488: END IF;
4492: pa_debug.g_err_stage := 'Err- Resource Assignment ID cannot be NULL.';
4493: IF P_PA_DEBUG_MODE = 'Y' THEN
4494: pa_debug.write('DELETE_ELEMENT: ' || l_module_name,pa_debug.g_err_stage,5);
4495: END IF;
4496: x_return_status := FND_API.G_RET_STS_ERROR;
4497: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4498: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4499: RAISE PA_FP_ROLLUP_PKG.Invalid_Arg_Exc;
4500: END IF;
4791: ,x_return_status => x_return_status
4792: ,x_msg_count => x_msg_count
4793: ,x_msg_data => x_msg_data);
4794:
4795: IF x_return_Status <> FND_API.G_RET_STS_SUCCESS THEN
4796: IF P_PA_DEBUG_MODE = 'Y' THEN
4797: pa_debug.g_err_stage := 'pa_planning_transaction_utils.call_update_rep_lines_api errored .... ' || x_msg_data;
4798: pa_debug.write('DELETE_ELEMENT: ' || l_module_name,pa_debug.g_err_stage,5);
4799: END IF;
4839: x_msg_count => x_msg_count,
4840: x_msg_data => x_msg_data);
4841: END IF;
4842:
4843: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4844: RAISE g_mrc_exception;
4845: END IF;
4846:
4847: END IF;
4912: x_msg_count => x_msg_count,
4913: x_msg_data => x_msg_data);
4914: END IF;
4915:
4916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4917: RAISE g_mrc_exception;
4918: END IF;
4919:
4920: END IF;
5091: WHEN PA_FP_ROLLUP_PKG.Invalid_Arg_Exc THEN
5092: l_msg_count := FND_MSG_PUB.count_msg;
5093: IF l_msg_count = 1 THEN
5094: PA_INTERFACE_UTILS_PUB.get_messages
5095: (p_encoded => FND_API.G_TRUE,
5096: p_msg_index => 1,
5097: p_msg_count => l_msg_count,
5098: p_msg_data => l_msg_data,
5099: p_data => l_data,
5105: END IF;
5106: pa_debug.reset_err_stack;
5107: RAISE;
5108: WHEN OTHERS THEN
5109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5110: x_msg_count := 1;
5111: x_msg_data := SQLERRM;
5112: FND_MSG_PUB.add_exc_msg
5113: ( p_pkg_name => 'PA_FP_ROLLUP_PKG'
5116: pa_debug.write('DELETE_ELEMENT: ' || l_module_name,SQLERRM,5);
5117: END IF;
5118: pa_debug.reset_err_stack;
5119:
5120: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5121: END DELETE_ELEMENT;
5122:
5123: END PA_FP_ROLLUP_PKG;