[Home] [Help]
282: --Standard begin of API savepoint
283: SAVEPOINT create_draft_budget_pub;
284: p_msg_count := 0;
285: p_return_status := FND_API.G_RET_STS_SUCCESS;
286: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
287: l_module_name := 'create_draft_budget' || g_module_name;
288:
289: -- Changes for bug 3182963
290: IF l_debug_mode = 'Y' THEN
287: l_module_name := 'create_draft_budget' || g_module_name;
288:
289: -- Changes for bug 3182963
290: IF l_debug_mode = 'Y' THEN
291: pa_debug.set_curr_function( p_function => 'create_draft_budget',
292: p_debug_mode => l_debug_mode );
293: END IF;
294:
295:
511: END IF;
512: */
513:
514: IF l_debug_mode = 'Y' THEN
515: pa_debug.g_err_stage := 'About to call validate header info';
516: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
517: END IF;
518:
519: --Call the api that validates the input information
512: */
513:
514: IF l_debug_mode = 'Y' THEN
515: pa_debug.g_err_stage := 'About to call validate header info';
516: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
517: END IF;
518:
519: --Call the api that validates the input information
520: pa_budget_pvt.Validate_Header_Info
569:
570: END IF;
571:
572: IF l_debug_mode = 'Y' THEN
573: pa_debug.g_err_stage := 'Validate Header got executed successfully';
574: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
575: END IF;
576:
577: -- Copy the input pl/sql table to a local pl/sql table. This is necessary since the
570: END IF;
571:
572: IF l_debug_mode = 'Y' THEN
573: pa_debug.g_err_stage := 'Validate Header got executed successfully';
574: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
575: END IF;
576:
577: -- Copy the input pl/sql table to a local pl/sql table. This is necessary since the
578: -- input table is a IN variable and hence read only.
607: FROM pa_projects_all
608: WHERE project_id=l_project_id;
609:
610: IF l_debug_mode = 'Y' THEN
611: pa_debug.g_err_stage := 'Got the budget type details and segment1 of the project';
612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
613: END IF;
614:
615:
608: WHERE project_id=l_project_id;
609:
610: IF l_debug_mode = 'Y' THEN
611: pa_debug.g_err_stage := 'Got the budget type details and segment1 of the project';
612: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
613: END IF;
614:
615:
616: /* After bug fix for bug 4052562, note that the below API returns UOM from rlm table as DOLLARS instead of
638: -- RAISE FND_API.G_EXC_ERROR;
639: END IF; -- IF l_err_code <> 0 THEN
640:
641: IF l_debug_mode = 'Y' THEN
642: pa_debug.g_err_stage := 'Got the uncategorized res list info';
643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
644: END IF;
645:
646: --Added by Xin Liu for supporting Project Connect 4.0
639: END IF; -- IF l_err_code <> 0 THEN
640:
641: IF l_debug_mode = 'Y' THEN
642: pa_debug.g_err_stage := 'Got the uncategorized res list info';
643: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
644: END IF;
645:
646: --Added by Xin Liu for supporting Project Connect 4.0
647: --5/6/2003
789: END IF;
790:
791:
792: IF l_debug_mode = 'Y' THEN
793: pa_debug.g_err_stage := 'Done with the initialisation of flex fields, dexcription, etc';
794: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
795: END IF;
796:
797:
790:
791:
792: IF l_debug_mode = 'Y' THEN
793: pa_debug.g_err_stage := 'Done with the initialisation of flex fields, dexcription, etc';
794: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
795: END IF;
796:
797:
798: IF p_budget_type_code IS NOT NULL AND
882:
883: END IF;
884:
885: IF l_debug_mode = 'Y' THEN
886: pa_debug.g_err_stage := 'Error executing create draft';
887: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
888: END IF;
889:
890: RAISE FND_API.G_EXC_ERROR;
883: END IF;
884:
885: IF l_debug_mode = 'Y' THEN
886: pa_debug.g_err_stage := 'Error executing create draft';
887: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
888: END IF;
889:
890: RAISE FND_API.G_EXC_ERROR;
891:
902:
903: END IF;
904:
905: IF l_debug_mode = 'Y' THEN
906: pa_debug.g_err_stage := 'SQL Error executing create draft';
907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
908: END IF;
909:
910:
903: END IF;
904:
905: IF l_debug_mode = 'Y' THEN
906: pa_debug.g_err_stage := 'SQL Error executing create draft';
907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
908: END IF;
909:
910:
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912:
913: END IF;
914:
915: IF l_debug_mode = 'Y' THEN
916: pa_debug.g_err_stage := 'Created the version in the budget model';
917: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
918: END IF;
919:
920: -- Commenting out this select as the create draft now returns the id of hte
913: END IF;
914:
915: IF l_debug_mode = 'Y' THEN
916: pa_debug.g_err_stage := 'Created the version in the budget model';
917: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
918: END IF;
919:
920: -- Commenting out this select as the create draft now returns the id of hte
921: -- newly created version
923: -- INTO l_budget_version_id --PA_BUDGET_UTILS.create_draft returns nothing: BUG.
924: -- FROM SYS.DUAL;
925:
926: IF l_debug_mode = 'Y' THEN
927: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
929:
930: pa_debug.g_err_stage := 'About to call validate budget lines';
931: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
924: -- FROM SYS.DUAL;
925:
926: IF l_debug_mode = 'Y' THEN
927: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
929:
930: pa_debug.g_err_stage := 'About to call validate budget lines';
931: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
932: END IF;
926: IF l_debug_mode = 'Y' THEN
927: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
929:
930: pa_debug.g_err_stage := 'About to call validate budget lines';
931: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
932: END IF;
933:
934: --Validate the budget lines.
927: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
929:
930: pa_debug.g_err_stage := 'About to call validate budget lines';
931: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
932: END IF;
933:
934: --Validate the budget lines.
935: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1193:
1194: END IF;
1195:
1196: IF l_debug_mode = 'Y' THEN
1197: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
1198: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1199: END IF;
1200:
1201: END IF;--IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1194: END IF;
1195:
1196: IF l_debug_mode = 'Y' THEN
1197: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
1198: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1199: END IF;
1200:
1201: END IF;--IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1202:
1296: THEN
1297: p_budget_lines_out(i).return_status := l_return_status;
1298:
1299: IF l_debug_mode = 'Y' THEN
1300: pa_debug.g_err_stage := 'Unexpected Error inserting line '||i;
1301: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1302: END IF;
1303:
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: p_budget_lines_out(i).return_status := l_return_status;
1298:
1299: IF l_debug_mode = 'Y' THEN
1300: pa_debug.g_err_stage := 'Unexpected Error inserting line '||i;
1301: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1302: END IF;
1303:
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305:
1307: THEN
1308: p_budget_lines_out(i).return_status := l_return_status;
1309: p_multiple_task_msg := 'F';
1310: IF l_debug_mode = 'Y' THEN
1311: pa_debug.g_err_stage := 'Error inserting line '||i;
1312: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1313: END IF;
1314:
1315: -- RAISE FND_API.G_EXC_ERROR;
1308: p_budget_lines_out(i).return_status := l_return_status;
1309: p_multiple_task_msg := 'F';
1310: IF l_debug_mode = 'Y' THEN
1311: pa_debug.g_err_stage := 'Error inserting line '||i;
1312: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1313: END IF;
1314:
1315: -- RAISE FND_API.G_EXC_ERROR;
1316:
1316:
1317: END IF;
1318:
1319: IF l_debug_mode = 'Y' THEN
1320: pa_debug.g_err_stage := 'Done with the insertion of line '||i;
1321: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1322: END IF;
1323:
1324:
1317: END IF;
1318:
1319: IF l_debug_mode = 'Y' THEN
1320: pa_debug.g_err_stage := 'Done with the insertion of line '||i;
1321: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1322: END IF;
1323:
1324:
1325: i := l_budget_lines_in.next(i);
1349:
1350: END IF;
1351:
1352: IF l_debug_mode = 'Y' THEN
1353: pa_debug.g_err_stage := 'l_allow_qty_flag is '||l_allow_qty_flag;
1354: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1355: END IF;
1356:
1357: --Call the api only if budget lines exist
1350: END IF;
1351:
1352: IF l_debug_mode = 'Y' THEN
1353: pa_debug.g_err_stage := 'l_allow_qty_flag is '||l_allow_qty_flag;
1354: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1355: END IF;
1356:
1357: --Call the api only if budget lines exist
1358: -- dbms_output.put_line('l_budget_lines_in.last '||l_budget_lines_in.last);
1358: -- dbms_output.put_line('l_budget_lines_in.last '||l_budget_lines_in.last);
1359: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1360:
1361: IF l_debug_mode = 'Y' THEN
1362: pa_debug.g_err_stage := 'About to call validate budget lines in finplan model';
1363: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1364: END IF;
1365:
1366: --Added by Xin Liu. Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
1359: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1360:
1361: IF l_debug_mode = 'Y' THEN
1362: pa_debug.g_err_stage := 'About to call validate budget lines in finplan model';
1363: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1364: END IF;
1365:
1366: --Added by Xin Liu. Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
1367: FOR i in l_budget_lines_in.FIRST..l_budget_lines_in.LAST LOOP
1624:
1625: END IF;
1626:
1627: IF l_debug_mode = 'Y' THEN
1628: pa_debug.g_err_stage := 'Validate budget lines got executed successfully';
1629: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1630: END IF;
1631:
1632: -- Initialise the index for the fin plan lines table
1625: END IF;
1626:
1627: IF l_debug_mode = 'Y' THEN
1628: pa_debug.g_err_stage := 'Validate budget lines got executed successfully';
1629: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1630: END IF;
1631:
1632: -- Initialise the index for the fin plan lines table
1633: j :=1;
1951:
1952: END LOOP;--Loop for copying fin plan lines into table of type rollup temp
1953:
1954: IF l_debug_mode = 'Y' THEN
1955: pa_debug.g_err_stage := 'Done with the copying of budget lines to fin plan lines';
1956: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1957: END IF;
1958:
1959: END IF;
1952: END LOOP;--Loop for copying fin plan lines into table of type rollup temp
1953:
1954: IF l_debug_mode = 'Y' THEN
1955: pa_debug.g_err_stage := 'Done with the copying of budget lines to fin plan lines';
1956: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1957: END IF;
1958:
1959: END IF;
1960:
1958:
1959: END IF;
1960:
1961: IF l_debug_mode = 'Y' THEN
1962: pa_debug.g_err_stage := 'About to call the create draft api in fin plan pvt';
1963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1964: END IF;
1965:
1966: -- If either of the create , replace current working version flags are Y then lock the
1959: END IF;
1960:
1961: IF l_debug_mode = 'Y' THEN
1962: pa_debug.g_err_stage := 'About to call the create draft api in fin plan pvt';
1963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1964: END IF;
1965:
1966: -- If either of the create , replace current working version flags are Y then lock the
1967: -- Current working version.
2005:
2006: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2007:
2008: IF l_debug_mode = 'Y' THEN
2009: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2010: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2011: END IF;
2012: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2013:
2006: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2007:
2008: IF l_debug_mode = 'Y' THEN
2009: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2010: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2011: END IF;
2012: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2013:
2014: END IF;
2015:
2016: IF ( NVL(l_refresh_required_flag, 'N') = 'Y' ) THEN
2017:
2018: IF l_debug_mode = 'Y' THEN
2019: pa_debug.g_err_stage := 'Plan version must be refreshed for new plannable-task state.';
2020: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2021: END IF;
2022:
2023: pa_interface_utils_pub.map_new_amg_msg
2016: IF ( NVL(l_refresh_required_flag, 'N') = 'Y' ) THEN
2017:
2018: IF l_debug_mode = 'Y' THEN
2019: pa_debug.g_err_stage := 'Plan version must be refreshed for new plannable-task state.';
2020: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2021: END IF;
2022:
2023: pa_interface_utils_pub.map_new_amg_msg
2024: ( p_old_message_code => 'PA_FP_AMG_WBS_IN_PROC_MSG'
2059:
2060: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2061:
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'Error executing lock unlock version';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2065: END IF;
2066: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2067:
2060: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2061:
2062: IF l_debug_mode = 'Y' THEN
2063: pa_debug.g_err_stage := 'Error executing lock unlock version';
2064: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2065: END IF;
2066: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2067:
2068: END IF;
2162:
2163: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2164:
2165: IF l_debug_mode = 'Y' THEN
2166: pa_debug.g_err_stage := 'Error executing lock unlock version';
2167: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2168: END IF;
2169: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2170: END IF;
2163: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2164:
2165: IF l_debug_mode = 'Y' THEN
2166: pa_debug.g_err_stage := 'Error executing lock unlock version';
2167: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2168: END IF;
2169: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2170: END IF;
2171: END IF;
2172: --Changes ended for Bug #4680197
2173:
2174:
2175: IF l_debug_mode = 'Y' THEN
2176: pa_debug.g_err_stage := 'Succesfully executed the fin plan pvt create draft ';
2177: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2178: END IF;
2179:
2180:
2173:
2174:
2175: IF l_debug_mode = 'Y' THEN
2176: pa_debug.g_err_stage := 'Succesfully executed the fin plan pvt create draft ';
2177: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2178: END IF;
2179:
2180:
2181:
2181:
2182: END IF;--IF p_budget_type_code IS NOT NULL
2183:
2184: IF l_debug_mode = 'Y' THEN
2185: pa_debug.g_err_stage := 'About to check the overlapping dates';
2186: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2187: END IF;
2188:
2189: -- check for overlapping dates
2182: END IF;--IF p_budget_type_code IS NOT NULL
2183:
2184: IF l_debug_mode = 'Y' THEN
2185: pa_debug.g_err_stage := 'About to check the overlapping dates';
2186: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2187: END IF;
2188:
2189: -- check for overlapping dates
2190: pa_budget_lines_v_pkg.check_overlapping_dates( x_budget_version_id => l_budget_version_id
2202: FND_MSG_PUB.add;
2203: END IF;
2204:
2205: IF l_debug_mode = 'Y' THEN
2206: pa_debug.g_err_stage := 'Error executing check_overlapping_dates';
2207: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2208: END IF;
2209:
2210:
2203: END IF;
2204:
2205: IF l_debug_mode = 'Y' THEN
2206: pa_debug.g_err_stage := 'Error executing check_overlapping_dates';
2207: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2208: END IF;
2209:
2210:
2211: RAISE FND_API.G_EXC_ERROR;
2223:
2224: END IF;
2225:
2226: IF l_debug_mode = 'Y' THEN
2227: pa_debug.g_err_stage := 'Unexpected Error executing check_overlapping_dates';
2228: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2229: END IF;
2230:
2231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2224: END IF;
2225:
2226: IF l_debug_mode = 'Y' THEN
2227: pa_debug.g_err_stage := 'Unexpected Error executing check_overlapping_dates';
2228: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2229: END IF;
2230:
2231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2232:
2250:
2251: END IF;
2252:
2253: IF l_debug_mode = 'Y' THEN
2254: pa_debug.g_err_stage := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS got executed successfully';
2255: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2256: END IF;
2257:
2258:
2251: END IF;
2252:
2253: IF l_debug_mode = 'Y' THEN
2254: pa_debug.g_err_stage := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS got executed successfully';
2255: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2256: END IF;
2257:
2258:
2259: --summarizing the totals in the table pa_budget_versions
2261: /*Summarizing of totals should be done only in the buget model*/
2262: IF (p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR and p_budget_type_code IS NOT NULL) THEN
2263:
2264: IF l_debug_mode = 'Y' THEN
2265: pa_debug.g_err_stage := 'About to summarize totals in budget model';
2266: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2267: END IF;
2268:
2269: pa_budget_utils.summerize_project_totals( x_budget_version_id => l_budget_version_id
2262: IF (p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR and p_budget_type_code IS NOT NULL) THEN
2263:
2264: IF l_debug_mode = 'Y' THEN
2265: pa_debug.g_err_stage := 'About to summarize totals in budget model';
2266: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2267: END IF;
2268:
2269: pa_budget_utils.summerize_project_totals( x_budget_version_id => l_budget_version_id
2270: , x_err_code => l_err_code
2305:
2306: END IF;
2307:
2308: IF l_debug_mode = 'Y' THEN
2309: pa_debug.g_err_stage := 'Error in summarizing totals in budget model';
2310: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2311: END IF;
2312:
2313:
2306: END IF;
2307:
2308: IF l_debug_mode = 'Y' THEN
2309: pa_debug.g_err_stage := 'Error in summarizing totals in budget model';
2310: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2311: END IF;
2312:
2313:
2314: RAISE FND_API.G_EXC_ERROR;
2326:
2327: END IF;
2328:
2329: IF l_debug_mode = 'Y' THEN
2330: pa_debug.g_err_stage := 'Unexpected Error in summarizing totals in budget model';
2331: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2332: END IF;
2333:
2334:
2327: END IF;
2328:
2329: IF l_debug_mode = 'Y' THEN
2330: pa_debug.g_err_stage := 'Unexpected Error in summarizing totals in budget model';
2331: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2332: END IF;
2333:
2334:
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2343: IF FND_API.TO_BOOLEAN( p_commit )
2344: THEN
2345:
2346: IF l_debug_mode = 'Y' THEN
2347: pa_debug.g_err_stage := 'About to do a COMMIT';
2348: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2349: END IF;
2350:
2351: COMMIT;
2344: THEN
2345:
2346: IF l_debug_mode = 'Y' THEN
2347: pa_debug.g_err_stage := 'About to do a COMMIT';
2348: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2349: END IF;
2350:
2351: COMMIT;
2352: END IF;
2351: COMMIT;
2352: END IF;
2353:
2354: IF l_debug_mode = 'Y' THEN
2355: pa_debug.g_err_stage := 'Leaving create draft budget';
2356: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2357: END IF;
2358:
2359: --Changes for bug 3182963
2352: END IF;
2353:
2354: IF l_debug_mode = 'Y' THEN
2355: pa_debug.g_err_stage := 'Leaving create draft budget';
2356: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2357: END IF;
2358:
2359: --Changes for bug 3182963
2360: IF l_debug_mode = 'Y' THEN
2357: END IF;
2358:
2359: --Changes for bug 3182963
2360: IF l_debug_mode = 'Y' THEN
2361: pa_debug.reset_curr_function;
2362: END IF;
2363:
2364:
2365: EXCEPTION
2390: p_msg_count := l_msg_count;
2391: END IF;
2392:
2393: IF l_debug_mode = 'Y' THEN
2394: pa_debug.reset_curr_function;
2395: END IF;
2396:
2397: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2398:
2411: ( p_count => p_msg_count ,
2412: p_data => p_msg_data );
2413: --Changes for bug 3182963
2414: IF l_debug_mode = 'Y' THEN
2415: pa_debug.reset_curr_function;
2416: END IF;
2417:
2418:
2419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2430: p_data => p_msg_data );
2431:
2432: --Changes for bug 3182963
2433: IF l_debug_mode = 'Y' THEN
2434: pa_debug.reset_curr_function;
2435: END IF;
2436:
2437:
2438: WHEN ROW_ALREADY_LOCKED
2458: p_data => p_msg_data );
2459:
2460: --Changes for bug 3182963
2461: IF l_debug_mode = 'Y' THEN
2462: pa_debug.reset_curr_function;
2463: END IF;
2464:
2465:
2466: WHEN OTHERS
2485: p_data => p_msg_data );
2486:
2487: --Changes for bug 3182963
2488: IF l_debug_mode = 'Y' THEN
2489: pa_debug.reset_curr_function;
2490: END IF;
2491:
2492:
2493: END create_draft_budget;
3435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3436:
3437: END IF;
3438:
3439: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3440:
3441:
3442: pa_debug.set_curr_function( p_function => 'baseline_budget',
3443: p_debug_mode => l_debug_mode );
3438:
3439: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3440:
3441:
3442: pa_debug.set_curr_function( p_function => 'baseline_budget',
3443: p_debug_mode => l_debug_mode );
3444:
3445:
3446: --Initialize the message table if requested.
3490: ,p_attribute5 => '');
3491: END IF;
3492:
3493: IF l_debug_mode = 'Y' THEN
3494: pa_debug.g_err_stage:= 'Product code is missing';
3495: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3496: END IF;
3497:
3498: -- RAISE FND_API.G_EXC_ERROR;
3491: END IF;
3492:
3493: IF l_debug_mode = 'Y' THEN
3494: pa_debug.g_err_stage:= 'Product code is missing';
3495: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3496: END IF;
3497:
3498: -- RAISE FND_API.G_EXC_ERROR;
3499: l_any_error_occurred_flag := 'Y';
3526: p_return_status := FND_API.G_RET_STS_ERROR;
3527: -- RAISE FND_API.G_EXC_ERROR;
3528: l_any_error_occurred_flag := 'Y';
3529: IF l_debug_mode = 'Y' THEN
3530: pa_debug.g_err_stage:= 'Product code is invalid';
3531: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3532: END IF;
3533: -- dbms_output.put_line('Product Code is invalid');
3534: END IF;
3527: -- RAISE FND_API.G_EXC_ERROR;
3528: l_any_error_occurred_flag := 'Y';
3529: IF l_debug_mode = 'Y' THEN
3530: pa_debug.g_err_stage:= 'Product code is invalid';
3531: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3532: END IF;
3533: -- dbms_output.put_line('Product Code is invalid');
3534: END IF;
3535: -- dbms_output.put_line('Validated the code');
3619:
3620: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
3621:
3622: IF l_debug_mode = 'Y' THEN
3623: pa_debug.g_err_stage:= 'Convert_pm_projref_to_id returned status '||l_return_status;
3624: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3625: END IF;
3626:
3627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3620: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
3621:
3622: IF l_debug_mode = 'Y' THEN
3623: pa_debug.g_err_stage:= 'Convert_pm_projref_to_id returned status '||l_return_status;
3624: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3625: END IF;
3626:
3627: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3628: THEN
3650: ,p_attribute5 => '');
3651: END IF;
3652:
3653: IF l_debug_mode = 'Y' THEN
3654: pa_debug.g_err_stage:= 'Project id is null ';
3655: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3656: END IF;
3657:
3658: RAISE FND_API.G_EXC_ERROR;
3651: END IF;
3652:
3653: IF l_debug_mode = 'Y' THEN
3654: pa_debug.g_err_stage:= 'Project id is null ';
3655: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3656: END IF;
3657:
3658: RAISE FND_API.G_EXC_ERROR;
3659:
3691: (p_app_short_name => 'PA',
3692: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
3693:
3694: IF l_debug_mode = 'Y' THEN
3695: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are null ';
3696: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3697: END IF;
3698:
3699: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3692: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
3693:
3694: IF l_debug_mode = 'Y' THEN
3695: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are null ';
3696: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3697: END IF;
3698:
3699: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3700:
3710: (p_app_short_name => 'PA',
3711: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
3712:
3713: IF l_debug_mode = 'Y' THEN
3714: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are not null ';
3715: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3716: END IF;
3717:
3718: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3711: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
3712:
3713: IF l_debug_mode = 'Y' THEN
3714: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are not null ';
3715: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3716: END IF;
3717:
3718: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3719:
3737: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3738: l_security_ret_code = 'N' THEN
3739:
3740: IF l_debug_mode = 'Y' THEN
3741: pa_debug.g_err_stage := 'Security API failed' ;
3742: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3743: END IF;
3744:
3745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3738: l_security_ret_code = 'N' THEN
3739:
3740: IF l_debug_mode = 'Y' THEN
3741: pa_debug.g_err_stage := 'Security API failed' ;
3742: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3743: END IF;
3744:
3745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3746:
3769: END IF;
3770:
3771: CLOSE l_budget_types_csr;
3772: IF l_debug_mode = 'Y' THEN
3773: pa_debug.g_err_stage:= 'Invalid budget type ';
3774: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3775: END IF;
3776:
3777: RAISE FND_API.G_EXC_ERROR;
3770:
3771: CLOSE l_budget_types_csr;
3772: IF l_debug_mode = 'Y' THEN
3773: pa_debug.g_err_stage:= 'Invalid budget type ';
3774: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3775: END IF;
3776:
3777: RAISE FND_API.G_EXC_ERROR;
3778:
3789: (p_app_short_name => 'PA',
3790: p_msg_name => 'PA_FP_CANT_BLINE_FCST_BUD_TYPE');
3791: END IF;
3792: IF l_debug_mode = 'Y' THEN
3793: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3794: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3795: END IF;
3796: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3797: END IF;
3790: p_msg_name => 'PA_FP_CANT_BLINE_FCST_BUD_TYPE');
3791: END IF;
3792: IF l_debug_mode = 'Y' THEN
3793: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3794: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3795: END IF;
3796: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3797: END IF;
3798:
3814:
3815: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3816:
3817: IF l_debug_mode = 'Y' THEN
3818: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
3819: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3820: END IF;
3821:
3822:
3815: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3816:
3817: IF l_debug_mode = 'Y' THEN
3818: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
3819: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3820: END IF;
3821:
3822:
3823: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3831: FETCH l_plan_type_option_csr INTO l_dummy;
3832: IF l_plan_type_option_csr%NOTFOUND THEN
3833:
3834: IF l_debug_mode = 'Y' THEN
3835: pa_debug.g_err_stage := 'Plan type options does not exiss' ;
3836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3837: END IF;
3838:
3839: SELECT name
3832: IF l_plan_type_option_csr%NOTFOUND THEN
3833:
3834: IF l_debug_mode = 'Y' THEN
3835: pa_debug.g_err_stage := 'Plan type options does not exiss' ;
3836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3837: END IF;
3838:
3839: SELECT name
3840: INTO l_fin_plan_type_name
3852:
3853: CLOSE l_plan_type_option_csr;
3854:
3855: IF l_debug_mode = 'Y' THEN
3856: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3858: END IF;
3859:
3860: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3853: CLOSE l_plan_type_option_csr;
3854:
3855: IF l_debug_mode = 'Y' THEN
3856: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3858: END IF;
3859:
3860: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3861:
3885: -- dbms_output.put_line('Got the version type');
3886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887:
3888: IF l_debug_mode = 'Y' THEN
3889: pa_debug.g_err_stage := 'get_version_type failed' ;
3890: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3891: END IF;
3892:
3893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887:
3888: IF l_debug_mode = 'Y' THEN
3889: pa_debug.g_err_stage := 'get_version_type failed' ;
3890: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3891: END IF;
3892:
3893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3894:
3908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3909: l_security_ret_code = 'N' THEN
3910:
3911: IF l_debug_mode = 'Y' THEN
3912: pa_debug.g_err_stage := 'Security API failed' ;
3913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3914: END IF;
3915:
3916: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3909: l_security_ret_code = 'N' THEN
3910:
3911: IF l_debug_mode = 'Y' THEN
3912: pa_debug.g_err_stage := 'Security API failed' ;
3913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3914: END IF;
3915:
3916: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3917:
3958:
3959: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3960: THEN
3961: IF l_debug_mode = 'Y' THEN
3962: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
3963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3964: END IF;
3965:
3966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3959: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3960: THEN
3961: IF l_debug_mode = 'Y' THEN
3962: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
3963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3964: END IF;
3965:
3966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3967:
4072: CLOSE l_budget_versions_csr;
4073: RAISE FND_API.G_EXC_ERROR;
4074:
4075: IF l_debug_mode = 'Y' THEN
4076: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4078: END IF;
4079: l_any_error_occurred_flag := 'Y';
4080: ELSE
4073: RAISE FND_API.G_EXC_ERROR;
4074:
4075: IF l_debug_mode = 'Y' THEN
4076: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4078: END IF;
4079: l_any_error_occurred_flag := 'Y';
4080: ELSE
4081:
4098: ,x_msg_data => l_msg_data );
4099:
4100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4101: IF l_debug_mode = 'Y' THEN
4102: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4103: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4104: END IF;
4105: l_any_error_occurred_flag := 'Y';
4106: END IF;
4099:
4100: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4101: IF l_debug_mode = 'Y' THEN
4102: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4103: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4104: END IF;
4105: l_any_error_occurred_flag := 'Y';
4106: END IF;
4107:
4124: -- Current working version
4125: RAISE FND_API.G_EXC_ERROR;
4126: l_any_error_occurred_flag := 'Y';
4127: IF l_debug_mode = 'Y' THEN
4128: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4130: END IF;
4131:
4132: END IF;
4125: RAISE FND_API.G_EXC_ERROR;
4126: l_any_error_occurred_flag := 'Y';
4127: IF l_debug_mode = 'Y' THEN
4128: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4130: END IF;
4131:
4132: END IF;
4133:
4140: ,x_msg_data => l_msg_data);
4141:
4142: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4143: IF l_debug_mode = 'Y' THEN
4144: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4145: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4146: END IF;
4147: l_any_error_occurred_flag := 'Y';
4148: END IF;
4141:
4142: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4143: IF l_debug_mode = 'Y' THEN
4144: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4145: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4146: END IF;
4147: l_any_error_occurred_flag := 'Y';
4148: END IF;
4149:
4169: ,x_msg_data => p_msg_data );
4170:
4171: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4172: IF(l_debug_mode='Y') THEN
4173: pa_debug.g_err_stage := 'Auto baseline API falied';
4174: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4175: END IF;
4176: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4177: END IF;
4170:
4171: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4172: IF(l_debug_mode='Y') THEN
4173: pa_debug.g_err_stage := 'Auto baseline API falied';
4174: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4175: END IF;
4176: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4177: END IF;
4178:
4178:
4179:
4180: IF l_result = 'F' THEN
4181: IF(l_debug_mode='Y') THEN
4182: pa_debug.g_err_stage := 'Auto baseline checks falied';
4183: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4184: END IF;
4185: l_any_error_occurred_flag:='Y';
4186: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4179:
4180: IF l_result = 'F' THEN
4181: IF(l_debug_mode='Y') THEN
4182: pa_debug.g_err_stage := 'Auto baseline checks falied';
4183: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4184: END IF;
4185: l_any_error_occurred_flag:='Y';
4186: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4187: ,p_msg_name => 'PA_FP_APP_REV_BL_VER_AB_PROJ'
4224: CLOSE l_budget_lines_csr;
4225: -- RAISE FND_API.G_EXC_ERROR;
4226: l_any_error_occurred_flag := 'Y';
4227: IF l_debug_mode = 'Y' THEN
4228: pa_debug.g_err_stage := 'Budget Lines do not exist for current working version' ;
4229: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4230: END IF;
4231:
4232: ELSE
4225: -- RAISE FND_API.G_EXC_ERROR;
4226: l_any_error_occurred_flag := 'Y';
4227: IF l_debug_mode = 'Y' THEN
4228: pa_debug.g_err_stage := 'Budget Lines do not exist for current working version' ;
4229: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4230: END IF;
4231:
4232: ELSE
4233:
4304: IF p_budget_type_code IS NOT NULL
4305: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4306:
4307: IF l_debug_mode = 'Y' THEN
4308: pa_debug.g_err_stage := 'About to verify the budget rules in budget model' ;
4309: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4310: END IF;
4311:
4312:
4305: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4306:
4307: IF l_debug_mode = 'Y' THEN
4308: pa_debug.g_err_stage := 'About to verify the budget rules in budget model' ;
4309: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4310: END IF;
4311:
4312:
4313: -- ------------------------------------------------------------------------------------
4451:
4452: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4453:
4454: IF l_debug_mode = 'Y' THEN
4455: pa_debug.g_err_stage := 'Error executing lock unlock version';
4456: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4457: END IF;
4458: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4459:
4452: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4453:
4454: IF l_debug_mode = 'Y' THEN
4455: pa_debug.g_err_stage := 'Error executing lock unlock version';
4456: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4457: END IF;
4458: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4459:
4460: END IF;
4533: -- Stop further processing if any errors are reported
4534: -- dbms_output.put_line('l_any_error_occurred_flag is '||l_any_error_occurred_flag);
4535: IF(l_any_error_occurred_flag='Y') THEN
4536: IF(l_debug_mode='Y') THEN
4537: pa_debug.g_err_stage := 'About to display all the messages';
4538: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4539: END IF;
4540: -- dbms_output.put_line('Displaying all messages');
4541: l_return_status := FND_API.G_RET_STS_ERROR;
4534: -- dbms_output.put_line('l_any_error_occurred_flag is '||l_any_error_occurred_flag);
4535: IF(l_any_error_occurred_flag='Y') THEN
4536: IF(l_debug_mode='Y') THEN
4537: pa_debug.g_err_stage := 'About to display all the messages';
4538: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4539: END IF;
4540: -- dbms_output.put_line('Displaying all messages');
4541: l_return_status := FND_API.G_RET_STS_ERROR;
4542: l_any_error_occurred_flag := 'Y';
4622:
4623: END IF;
4624:
4625: IF l_debug_mode = 'Y' THEN
4626: pa_debug.g_err_stage := 'Budget rules verified' ;
4627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4628: END IF;
4629:
4630: -- -------------------------------------------------------------------------------------
4623: END IF;
4624:
4625: IF l_debug_mode = 'Y' THEN
4626: pa_debug.g_err_stage := 'Budget rules verified' ;
4627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4628: END IF;
4629:
4630: -- -------------------------------------------------------------------------------------
4631:
4640: IF p_budget_type_code IS NOT NULL
4641: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4642:
4643: IF l_debug_mode = 'Y' THEN
4644: pa_debug.g_err_stage := 'About to baseline the budget ' ;
4645: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4646: END IF;
4647:
4648: -- dbms_output.put_line('About to call the baseline api in budget core');
4641: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4642:
4643: IF l_debug_mode = 'Y' THEN
4644: pa_debug.g_err_stage := 'About to baseline the budget ' ;
4645: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4646: END IF;
4647:
4648: -- dbms_output.put_line('About to call the baseline api in budget core');
4649: pa_budget_core.baseline ( x_draft_version_id => l_curr_working_version_id
4735: --Get the record version number of the current working version (As it will be incremented by the lock_unlock_version)
4736: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4737:
4738: IF l_debug_mode = 'Y' THEN
4739: pa_debug.g_err_stage := 'About to baseline the finplan ' ;
4740: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4741: END IF;
4742:
4743: -- dbms_output.put_line('About to call baseline api');
4736: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4737:
4738: IF l_debug_mode = 'Y' THEN
4739: pa_debug.g_err_stage := 'About to baseline the finplan ' ;
4740: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4741: END IF;
4742:
4743: -- dbms_output.put_line('About to call baseline api');
4744:
4768:
4769: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4770:
4771: IF l_debug_mode = 'Y' THEN
4772: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4773: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4774: END IF;
4775: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4776:
4769: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4770:
4771: IF l_debug_mode = 'Y' THEN
4772: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4773: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4774: END IF;
4775: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4776:
4777: END IF;
4782: --as the orginal version
4783: IF (l_mark_as_original = 'Y') THEN
4784:
4785: IF l_debug_mode = 'Y' THEN
4786: pa_debug.g_err_stage := 'About to mark the created version as original baselined ' ;
4787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4788: END IF;
4789:
4790: -- Fetch the details current baselined version
4783: IF (l_mark_as_original = 'Y') THEN
4784:
4785: IF l_debug_mode = 'Y' THEN
4786: pa_debug.g_err_stage := 'About to mark the created version as original baselined ' ;
4787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4788: END IF;
4789:
4790: -- Fetch the details current baselined version
4791: pa_fin_plan_utils.Get_Baselined_Version_Info(
4829: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
4830: l_msg_count <> 0THEN
4831:
4832: IF l_debug_mode = 'Y' THEN
4833: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4834: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4835: END IF;
4836: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4837:
4830: l_msg_count <> 0THEN
4831:
4832: IF l_debug_mode = 'Y' THEN
4833: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4834: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4835: END IF;
4836: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4837:
4838: END IF;
4853:
4854: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4855:
4856: IF l_debug_mode = 'Y' THEN
4857: pa_debug.g_err_stage := 'Error executing lock unlock version';
4858: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4859: END IF;
4860: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4861:
4854: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4855:
4856: IF l_debug_mode = 'Y' THEN
4857: pa_debug.g_err_stage := 'Error executing lock unlock version';
4858: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4859: END IF;
4860: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4861:
4862: END IF;
4872: COMMIT;
4873: END IF;
4874:
4875: IF l_debug_mode = 'Y' THEN
4876: pa_debug.g_err_stage:= 'Leaving baseline budget';
4877: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level3);
4878: END IF;
4879:
4880: pa_debug.reset_curr_function;
4873: END IF;
4874:
4875: IF l_debug_mode = 'Y' THEN
4876: pa_debug.g_err_stage:= 'Leaving baseline budget';
4877: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level3);
4878: END IF;
4879:
4880: pa_debug.reset_curr_function;
4881:
4876: pa_debug.g_err_stage:= 'Leaving baseline budget';
4877: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level3);
4878: END IF;
4879:
4880: pa_debug.reset_curr_function;
4881:
4882:
4883: EXCEPTION
4884:
4903: p_msg_count := l_msg_count;
4904: ELSE
4905: p_msg_count := l_msg_count;
4906: END IF;
4907: pa_debug.reset_curr_function;
4908:
4909: RETURN;
4910:
4911: WHEN FND_API.G_EXC_ERROR
4919: FND_MSG_PUB.Count_And_Get
4920: ( p_count => p_msg_count ,
4921: p_data => p_msg_data );
4922:
4923: pa_debug.reset_curr_function;
4924:
4925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4926: THEN
4927:
4933: FND_MSG_PUB.Count_And_Get
4934: ( p_count => p_msg_count ,
4935: p_data => p_msg_data );
4936:
4937: pa_debug.reset_curr_function;
4938:
4939: WHEN ROW_ALREADY_LOCKED
4940: THEN
4941:
4958: FND_MSG_PUB.Count_And_Get
4959: (p_count => p_msg_count
4960: , p_data => p_msg_data
4961: );
4962: pa_debug.reset_curr_function;
4963:
4964:
4965: WHEN OTHERS
4966: THEN
4981: FND_MSG_PUB.Count_And_Get
4982: ( p_count => p_msg_count ,
4983: p_data => p_msg_data );
4984:
4985: pa_debug.reset_curr_function;
4986:
4987:
4988: END baseline_budget;
4989:
5131: SAVEPOINT add_budget_line_pub;
5132:
5133: p_msg_count := 0;
5134: p_return_status := FND_API.G_RET_STS_SUCCESS;
5135: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5136: l_module_name := g_module_name || ':Add_Budget_Line';
5137:
5138: IF ( l_debug_mode = 'Y' )
5139: THEN
5136: l_module_name := g_module_name || ':Add_Budget_Line';
5137:
5138: IF ( l_debug_mode = 'Y' )
5139: THEN
5140: pa_debug.set_curr_function( p_function => 'Add_Budget_Line',
5141: p_debug_mode => l_debug_mode );
5142: END IF;
5143:
5144: IF ( l_debug_mode = 'Y' )
5142: END IF;
5143:
5144: IF ( l_debug_mode = 'Y' )
5145: THEN
5146: pa_debug.g_err_stage:='Entering ' || l_api_name;
5147: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5148: END IF;
5149:
5150: --Initialize the message table if requested.
5143:
5144: IF ( l_debug_mode = 'Y' )
5145: THEN
5146: pa_debug.g_err_stage:='Entering ' || l_api_name;
5147: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5148: END IF;
5149:
5150: --Initialize the message table if requested.
5151: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5198: ,x_return_status => p_return_status );
5199:
5200: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5201: IF(l_debug_mode='Y') THEN
5202: pa_debug.g_err_stage := 'validate header info API falied';
5203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5204: END IF;
5205: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5206: END IF;
5199:
5200: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5201: IF(l_debug_mode='Y') THEN
5202: pa_debug.g_err_stage := 'validate header info API falied';
5203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5204: END IF;
5205: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5206: END IF;
5207:
5276:
5277: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5278: THEN
5279: IF(l_debug_mode='Y') THEN
5280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5282: END IF;
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284:
5277: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5278: THEN
5279: IF(l_debug_mode='Y') THEN
5280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5282: END IF;
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284:
5285: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5284:
5285: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5286: THEN
5287: IF(l_debug_mode='Y') THEN
5288: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5290: END IF;
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5285: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5286: THEN
5287: IF(l_debug_mode='Y') THEN
5288: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5289: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5290: END IF;
5291: RAISE FND_API.G_EXC_ERROR;
5292: END IF;
5293:
5301: IF l_err_code > 0
5302: THEN
5303:
5304: IF(l_debug_mode='Y') THEN
5305: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5306: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5307: END IF;
5308:
5309: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5302: THEN
5303:
5304: IF(l_debug_mode='Y') THEN
5305: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5306: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5307: END IF;
5308:
5309: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5310: THEN
5319: ELSIF l_err_code < 0
5320: THEN
5321:
5322: IF(l_debug_mode='Y') THEN
5323: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5325: END IF;
5326:
5327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5320: THEN
5321:
5322: IF(l_debug_mode='Y') THEN
5323: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5325: END IF;
5326:
5327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5328: THEN
5346:
5347: IF l_err_code > 0 THEN
5348:
5349: IF(l_debug_mode='Y') THEN
5350: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5351: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5352: END IF;
5353:
5354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5347: IF l_err_code > 0 THEN
5348:
5349: IF(l_debug_mode='Y') THEN
5350: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5351: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5352: END IF;
5353:
5354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5355: THEN
5383:
5384: ELSIF l_err_code < 0 THEN
5385:
5386: IF(l_debug_mode='Y') THEN
5387: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5388: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5389: END IF;
5390:
5391: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5384: ELSIF l_err_code < 0 THEN
5385:
5386: IF(l_debug_mode='Y') THEN
5387: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5388: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5389: END IF;
5390:
5391: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5392: THEN
5631:
5632: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5633: THEN
5634: IF(l_debug_mode='Y') THEN
5635: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5636: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5637: END IF;
5638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5639: END IF;
5632: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5633: THEN
5634: IF(l_debug_mode='Y') THEN
5635: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5636: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5637: END IF;
5638: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5639: END IF;
5640:
5691: ,x_return_status => p_return_status );
5692:
5693: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5694: IF(l_debug_mode='Y') THEN
5695: pa_debug.g_err_stage := 'validate budget lines API falied';
5696: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5697: END IF;
5698: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5699: END IF;
5692:
5693: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5694: IF(l_debug_mode='Y') THEN
5695: pa_debug.g_err_stage := 'validate budget lines API falied';
5696: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5697: END IF;
5698: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5699: END IF;
5700:
5771: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5772: -- Error message is not added here as the api lock_unlock_version
5773: -- adds the message to stack
5774: IF(l_debug_mode='Y') THEN
5775: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5776: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5777: END IF;
5778: RAISE FND_API.G_EXC_ERROR;
5779: END IF;
5772: -- Error message is not added here as the api lock_unlock_version
5773: -- adds the message to stack
5774: IF(l_debug_mode='Y') THEN
5775: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5776: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5777: END IF;
5778: RAISE FND_API.G_EXC_ERROR;
5779: END IF;
5780:
5790:
5791: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5792: THEN
5793: IF(l_debug_mode='Y') THEN
5794: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5796: END IF;
5797: RAISE FND_API.G_EXC_ERROR;
5798: END IF;
5791: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5792: THEN
5793: IF(l_debug_mode='Y') THEN
5794: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5796: END IF;
5797: RAISE FND_API.G_EXC_ERROR;
5798: END IF;
5799:
5815: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5816: -- Error message is not added here as the api lock_unlock_version
5817: -- adds the message to stack
5818: IF(l_debug_mode='Y') THEN
5819: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5820: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5821: END IF;
5822: RAISE FND_API.G_EXC_ERROR;
5823: END IF;
5816: -- Error message is not added here as the api lock_unlock_version
5817: -- adds the message to stack
5818: IF(l_debug_mode='Y') THEN
5819: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5820: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5821: END IF;
5822: RAISE FND_API.G_EXC_ERROR;
5823: END IF;
5824:
5831: COMMIT;
5832: END IF;
5833:
5834: IF(l_debug_mode='Y') THEN
5835: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
5836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5837: END IF;
5838:
5839: IF ( l_debug_mode = 'Y' ) THEN
5832: END IF;
5833:
5834: IF(l_debug_mode='Y') THEN
5835: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
5836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5837: END IF;
5838:
5839: IF ( l_debug_mode = 'Y' ) THEN
5840: pa_debug.reset_curr_function;
5836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5837: END IF;
5838:
5839: IF ( l_debug_mode = 'Y' ) THEN
5840: pa_debug.reset_curr_function;
5841: END IF;
5842:
5843: EXCEPTION
5844:
5864: p_msg_count := l_msg_count;
5865: END IF;
5866:
5867: IF ( l_debug_mode = 'Y' ) THEN
5868: pa_debug.reset_curr_function;
5869: END IF;
5870:
5871: RETURN;
5872:
5882: ( p_count => p_msg_count ,
5883: p_data => p_msg_data );
5884:
5885: IF ( l_debug_mode = 'Y' ) THEN
5886: pa_debug.reset_curr_function;
5887: END IF;
5888:
5889:
5890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5898: ( p_count => p_msg_count ,
5899: p_data => p_msg_data );
5900:
5901: IF ( l_debug_mode = 'Y' ) THEN
5902: pa_debug.reset_curr_function;
5903: END IF;
5904:
5905:
5906: WHEN ROW_ALREADY_LOCKED
5926: ( p_count => p_msg_count ,
5927: p_data => p_msg_data );
5928:
5929: IF ( l_debug_mode = 'Y' ) THEN
5930: pa_debug.reset_curr_function;
5931: END IF;
5932:
5933:
5934: WHEN OTHERS
5949: ( p_count => p_msg_count ,
5950: p_data => p_msg_data );
5951:
5952: IF ( l_debug_mode = 'Y' ) THEN
5953: pa_debug.reset_curr_function;
5954: END IF;
5955:
5956: END Add_Budget_Line;
5957:
6110: END IF;
6111:
6112: p_msg_count := 0;
6113: p_return_status := FND_API.G_RET_STS_SUCCESS;
6114: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6115:
6116: IF ( l_debug_mode = 'Y' )
6117: THEN
6118: pa_debug.set_curr_function( p_function => 'delete_draft_budget',
6114: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6115:
6116: IF ( l_debug_mode = 'Y' )
6117: THEN
6118: pa_debug.set_curr_function( p_function => 'delete_draft_budget',
6119: p_debug_mode => l_debug_mode );
6120: END IF;
6121:
6122: -- Initialize the message table if requested.
6166: (p_app_short_name => 'PA',
6167: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
6168:
6169: IF l_debug_mode = 'Y' THEN
6170: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
6171: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6172: END IF;
6173:
6174: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6167: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
6168:
6169: IF l_debug_mode = 'Y' THEN
6170: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
6171: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6172: END IF;
6173:
6174: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6175:
6186: (p_app_short_name => 'PA',
6187: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
6188:
6189: IF l_debug_mode = 'Y' THEN
6190: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
6191: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6192: END IF;
6193:
6194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6187: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
6188:
6189: IF l_debug_mode = 'Y' THEN
6190: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
6191: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6192: END IF;
6193:
6194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6195:
6214: ,p_attribute4 => ''
6215: ,p_attribute5 => '');
6216: END IF;
6217: IF l_debug_mode = 'Y' THEN
6218: pa_debug.g_err_stage := 'Product code is missing' ;
6219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6220: END IF;
6221:
6222: -- RAISE FND_API.G_EXC_ERROR;
6215: ,p_attribute5 => '');
6216: END IF;
6217: IF l_debug_mode = 'Y' THEN
6218: pa_debug.g_err_stage := 'Product code is missing' ;
6219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6220: END IF;
6221:
6222: -- RAISE FND_API.G_EXC_ERROR;
6223: l_any_error_occurred_flag:='Y' ;
6247: p_return_status := FND_API.G_RET_STS_ERROR;
6248: --RAISE FND_API.G_EXC_ERROR;
6249: l_any_error_occurred_flag:='Y';
6250: IF l_debug_mode = 'Y' THEN
6251: pa_debug.g_err_stage := 'Product code is invalid' ;
6252: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6253: END IF;
6254:
6255: END IF;
6248: --RAISE FND_API.G_EXC_ERROR;
6249: l_any_error_occurred_flag:='Y';
6250: IF l_debug_mode = 'Y' THEN
6251: pa_debug.g_err_stage := 'Product code is invalid' ;
6252: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6253: END IF;
6254:
6255: END IF;
6256:
6266:
6267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6268: THEN
6269: IF l_debug_mode = 'Y' THEN
6270: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6271: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6272: END IF;
6273:
6274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6268: THEN
6269: IF l_debug_mode = 'Y' THEN
6270: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6271: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6272: END IF;
6273:
6274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6275:
6275:
6276: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6277: THEN
6278: IF l_debug_mode = 'Y' THEN
6279: pa_debug.g_err_stage := 'Error while getting project id' ;
6280: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6281: END IF;
6282:
6283: RAISE FND_API.G_EXC_ERROR;
6276: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6277: THEN
6278: IF l_debug_mode = 'Y' THEN
6279: pa_debug.g_err_stage := 'Error while getting project id' ;
6280: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6281: END IF;
6282:
6283: RAISE FND_API.G_EXC_ERROR;
6284:
6310: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR
6311: l_security_ret_code = 'N') THEN
6312: -- dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
6313: IF l_debug_mode = 'Y' THEN
6314: pa_debug.g_err_stage:= 'Security API Failed';
6315: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6316: END IF;
6317:
6318: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6311: l_security_ret_code = 'N') THEN
6312: -- dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
6313: IF l_debug_mode = 'Y' THEN
6314: pa_debug.g_err_stage:= 'Security API Failed';
6315: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6316: END IF;
6317:
6318: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6319: END IF;
6337: ,p_attribute4 => ''
6338: ,p_attribute5 => '');
6339: END IF;
6340: IF l_debug_mode = 'Y' THEN
6341: pa_debug.g_err_stage := 'Budget Type is invalid' ;
6342: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6343: END IF;
6344:
6345:
6338: ,p_attribute5 => '');
6339: END IF;
6340: IF l_debug_mode = 'Y' THEN
6341: pa_debug.g_err_stage := 'Budget Type is invalid' ;
6342: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6343: END IF;
6344:
6345:
6346: CLOSE l_budget_type_csr;
6358: (p_app_short_name => 'PA',
6359: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
6360: END IF;
6361: IF l_debug_mode = 'Y' THEN
6362: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
6363: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6364: END IF;
6365: l_any_error_occurred_flag := 'Y';
6366: END IF;
6359: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
6360: END IF;
6361: IF l_debug_mode = 'Y' THEN
6362: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
6363: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6364: END IF;
6365: l_any_error_occurred_flag := 'Y';
6366: END IF;
6367:
6390: ,p_attribute4 => ''
6391: ,p_attribute5 => '');
6392: END IF;
6393: IF l_debug_mode = 'Y' THEN
6394: pa_debug.g_err_stage := 'Budget version does not exist' ;
6395: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6396: END IF;
6397:
6398:
6391: ,p_attribute5 => '');
6392: END IF;
6393: IF l_debug_mode = 'Y' THEN
6394: pa_debug.g_err_stage := 'Budget version does not exist' ;
6395: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6396: END IF;
6397:
6398:
6399: CLOSE l_budget_version_csr;
6409: --then we do not proceed with delete.
6410: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_id) )
6411: THEN
6412: IF(l_debug_mode='Y') THEN
6413: pa_debug.g_err_stage := 'Cannnot delete budget version - '
6414: || 'budgetary control is enabled';
6415: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6416: END IF;
6417:
6411: THEN
6412: IF(l_debug_mode='Y') THEN
6413: pa_debug.g_err_stage := 'Cannnot delete budget version - '
6414: || 'budgetary control is enabled';
6415: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6416: END IF;
6417:
6418: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6419: THEN
6437:
6438: --Stop Further processing if any errors are reported
6439: IF(l_any_error_occurred_flag='Y') THEN
6440: IF(l_debug_mode='Y') THEN
6441: pa_debug.g_err_stage := 'About to display all the messages';
6442: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6443: END IF;
6444: p_return_status := FND_API.G_RET_STS_ERROR;
6445: l_any_error_occurred_flag := 'Y';
6438: --Stop Further processing if any errors are reported
6439: IF(l_any_error_occurred_flag='Y') THEN
6440: IF(l_debug_mode='Y') THEN
6441: pa_debug.g_err_stage := 'About to display all the messages';
6442: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6443: END IF;
6444: p_return_status := FND_API.G_RET_STS_ERROR;
6445: l_any_error_occurred_flag := 'Y';
6446: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6459:
6460: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
6461: THEN
6462: IF(l_debug_mode='Y') THEN
6463: pa_debug.g_err_stage := 'Delete draft falied';
6464: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6465: END IF;
6466: pa_interface_utils_pub.map_new_amg_msg
6467: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
6460: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
6461: THEN
6462: IF(l_debug_mode='Y') THEN
6463: pa_debug.g_err_stage := 'Delete draft falied';
6464: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6465: END IF;
6466: pa_interface_utils_pub.map_new_amg_msg
6467: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
6468: ,p_msg_attribute => 'CHANGE'
6474: ,p_attribute4 => ''
6475: ,p_attribute5 => '');
6476: ELSE
6477: IF(l_debug_mode='Y') THEN
6478: pa_debug.g_err_stage := 'Error in Delete draft';
6479: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6480: END IF;
6481:
6482: pa_interface_utils_pub.map_new_amg_msg
6475: ,p_attribute5 => '');
6476: ELSE
6477: IF(l_debug_mode='Y') THEN
6478: pa_debug.g_err_stage := 'Error in Delete draft';
6479: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6480: END IF;
6481:
6482: pa_interface_utils_pub.map_new_amg_msg
6483: ( p_old_message_code => l_err_stage
6501:
6502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6503: THEN
6504: IF(l_debug_mode='Y') THEN
6505: pa_debug.g_err_stage := 'Unexpected Error in Delete draft';
6506: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6507: END IF;
6508:
6509: FND_MSG_PUB.add_exc_msg
6502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6503: THEN
6504: IF(l_debug_mode='Y') THEN
6505: pa_debug.g_err_stage := 'Unexpected Error in Delete draft';
6506: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6507: END IF;
6508:
6509: FND_MSG_PUB.add_exc_msg
6510: ( p_pkg_name => 'PA_BUDGET_UTILS'
6534: -- Throw the error if the above API is not successfully executed
6535: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6536:
6537: IF l_debug_mode = 'Y' THEN
6538: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6539: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6540: END IF;
6541:
6542: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6535: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6536:
6537: IF l_debug_mode = 'Y' THEN
6538: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6539: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6540: END IF;
6541:
6542: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6543:
6560: (p_app_short_name => 'PA',
6561: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
6562: END IF;
6563: IF l_debug_mode = 'Y' THEN
6564: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
6565: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6566: END IF;
6567:
6568: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6561: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
6562: END IF;
6563: IF l_debug_mode = 'Y' THEN
6564: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
6565: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6566: END IF;
6567:
6568: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6569:
6588:
6589: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6590:
6591: IF l_debug_mode = 'Y' THEN
6592: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
6593: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6594: END IF;
6595: -- dbms_output.put_line('Exc in getting ver type');
6596:
6589: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6590:
6591: IF l_debug_mode = 'Y' THEN
6592: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
6593: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6594: END IF;
6595: -- dbms_output.put_line('Exc in getting ver type');
6596:
6597: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6612: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
6613: l_security_ret_code='N') THEN
6614: -- dbms_output.put_line('Exc in security');
6615: IF l_debug_mode = 'Y' THEN
6616: pa_debug.g_err_stage := 'Security API failed' ;
6617: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6618: END IF;
6619: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6620: END IF;
6613: l_security_ret_code='N') THEN
6614: -- dbms_output.put_line('Exc in security');
6615: IF l_debug_mode = 'Y' THEN
6616: pa_debug.g_err_stage := 'Security API failed' ;
6617: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6618: END IF;
6619: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6620: END IF;
6621:
6659: ,p_token1 => 'BUDGET_VERSION_ID'
6660: ,p_value1 => l_budget_version_id);
6661: END IF;
6662: IF l_debug_mode = 'Y' THEN
6663: pa_debug.g_err_stage := 'i/p version is ci version' ;
6664: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6665: END IF;
6666: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6667: END IF;
6660: ,p_value1 => l_budget_version_id);
6661: END IF;
6662: IF l_debug_mode = 'Y' THEN
6663: pa_debug.g_err_stage := 'i/p version is ci version' ;
6664: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6665: END IF;
6666: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6667: END IF;
6668:
6669: END IF; --version_number IS NULL
6670:
6671: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6672: IF l_debug_mode = 'Y' THEN
6673: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6675: END IF;
6676:
6677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6670:
6671: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6672: IF l_debug_mode = 'Y' THEN
6673: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6674: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6675: END IF;
6676:
6677: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6678: END IF;
6698: ,p_value3 => ll_version_number );
6699: END IF;
6700:
6701: IF l_debug_mode = 'Y' THEN
6702: pa_debug.g_err_stage := 'Working Budget Version does not exist' ;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6704: END IF;
6705: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6706:
6699: END IF;
6700:
6701: IF l_debug_mode = 'Y' THEN
6702: pa_debug.g_err_stage := 'Working Budget Version does not exist' ;
6703: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6704: END IF;
6705: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6706:
6707: END IF;
6717: (p_app_short_name => 'PA',
6718: p_msg_name => 'PA_FP_CANT_DEL_ORG_FCST_PLAN');
6719: END IF;
6720: IF l_debug_mode = 'Y' THEN
6721: pa_debug.g_err_stage := 'Cannot delete draft budgets attached' ||
6722: 'to an organisation forecasting project';
6723: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6724: END IF;
6725:
6719: END IF;
6720: IF l_debug_mode = 'Y' THEN
6721: pa_debug.g_err_stage := 'Cannot delete draft budgets attached' ||
6722: 'to an organisation forecasting project';
6723: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6724: END IF;
6725:
6726: p_return_status := FND_API.G_RET_STS_ERROR;
6727: l_any_error_occurred_flag:='Y' ;
6743: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6744: -- Error message is not added here as the api lock_unlock_version
6745: -- adds the message to stack
6746: IF(l_debug_mode='Y') THEN
6747: pa_debug.g_err_stage := 'Failed in locking the version';
6748: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6749: END IF;
6750: l_any_error_occurred_flag:='Y';
6751: END IF;
6744: -- Error message is not added here as the api lock_unlock_version
6745: -- adds the message to stack
6746: IF(l_debug_mode='Y') THEN
6747: pa_debug.g_err_stage := 'Failed in locking the version';
6748: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6749: END IF;
6750: l_any_error_occurred_flag:='Y';
6751: END IF;
6752:
6752:
6753: --Stop Further processing if any errors are reported
6754: IF(l_any_error_occurred_flag='Y') THEN
6755: IF(l_debug_mode='Y') THEN
6756: pa_debug.g_err_stage := 'About to display all the messages';
6757: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6758: END IF;
6759: p_return_status := FND_API.G_RET_STS_ERROR;
6760: l_any_error_occurred_flag := 'Y';
6753: --Stop Further processing if any errors are reported
6754: IF(l_any_error_occurred_flag='Y') THEN
6755: IF(l_debug_mode='Y') THEN
6756: pa_debug.g_err_stage := 'About to display all the messages';
6757: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6758: END IF;
6759: p_return_status := FND_API.G_RET_STS_ERROR;
6760: l_any_error_occurred_flag := 'Y';
6761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6774:
6775: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6776:
6777: IF(l_debug_mode='Y') THEN
6778: pa_debug.g_err_stage := 'Failed in deleting the version';
6779: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6780: END IF;
6781: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6782: END IF;
6775: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6776:
6777: IF(l_debug_mode='Y') THEN
6778: pa_debug.g_err_stage := 'Failed in deleting the version';
6779: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6780: END IF;
6781: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6782: END IF;
6783:
6841: END IF;
6842:
6843:
6844: IF(l_debug_mode='Y') THEN
6845: pa_debug.g_err_stage := 'Exiting delete draft budget';
6846: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
6847: END IF;
6848:
6849: IF ( l_debug_mode = 'Y' ) THEN
6842:
6843:
6844: IF(l_debug_mode='Y') THEN
6845: pa_debug.g_err_stage := 'Exiting delete draft budget';
6846: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
6847: END IF;
6848:
6849: IF ( l_debug_mode = 'Y' ) THEN
6850: pa_debug.reset_curr_function;
6846: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
6847: END IF;
6848:
6849: IF ( l_debug_mode = 'Y' ) THEN
6850: pa_debug.reset_curr_function;
6851: END IF;
6852:
6853: EXCEPTION
6854: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6869: ELSE
6870: p_msg_count := l_msg_count;
6871: END IF;
6872: IF ( l_debug_mode = 'Y' ) THEN
6873: pa_debug.reset_curr_function;
6874: END IF;
6875: RETURN;
6876:
6877: WHEN FND_API.G_EXC_ERROR
6884: FND_MSG_PUB.Count_And_Get
6885: ( p_count => p_msg_count ,
6886: p_data => p_msg_data );
6887: IF ( l_debug_mode = 'Y' ) THEN
6888: pa_debug.reset_curr_function;
6889: END IF;
6890:
6891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6892: THEN
6898: FND_MSG_PUB.Count_And_Get
6899: ( p_count => p_msg_count ,
6900: p_data => p_msg_data );
6901: IF ( l_debug_mode = 'Y' ) THEN
6902: pa_debug.reset_curr_function;
6903: END IF;
6904:
6905: WHEN ROW_ALREADY_LOCKED
6906: THEN
6923: FND_MSG_PUB.Count_And_Get
6924: ( p_count => p_msg_count ,
6925: p_data => p_msg_data );
6926: IF ( l_debug_mode = 'Y' ) THEN
6927: pa_debug.reset_curr_function;
6928: END IF;
6929:
6930: WHEN OTHERS THEN
6931:
6944: FND_MSG_PUB.Count_And_Get
6945: ( p_count => p_msg_count ,
6946: p_data => p_msg_data );
6947: IF ( l_debug_mode = 'Y' ) THEN
6948: pa_debug.reset_curr_function;
6949: END IF;
6950:
6951: END delete_draft_budget;
6952:
7104: SAVEPOINT delete_baseline_budget_pub;
7105:
7106: p_msg_count := 0;
7107: p_return_status := FND_API.G_RET_STS_SUCCESS;
7108: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7109:
7110: IF ( l_debug_mode = 'Y' )
7111: THEN
7112: pa_debug.set_curr_function( p_function => 'delete_baseline_budget',
7108: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7109:
7110: IF ( l_debug_mode = 'Y' )
7111: THEN
7112: pa_debug.set_curr_function( p_function => 'delete_baseline_budget',
7113: p_debug_mode => l_debug_mode );
7114: END IF;
7115:
7116: IF ( l_debug_mode = 'Y' )
7114: END IF;
7115:
7116: IF ( l_debug_mode = 'Y' )
7117: THEN
7118: pa_debug.g_err_stage:='Entering ' || l_api_name;
7119: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7120: END IF;
7121:
7122: --Initialize the message table if requested.
7115:
7116: IF ( l_debug_mode = 'Y' )
7117: THEN
7118: pa_debug.g_err_stage:='Entering ' || l_api_name;
7119: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7120: END IF;
7121:
7122: --Initialize the message table if requested.
7123:
7185: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
7186: END IF;
7187:
7188: IF l_debug_mode = 'Y' THEN
7189: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
7190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7191: END IF;
7192:
7193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7186: END IF;
7187:
7188: IF l_debug_mode = 'Y' THEN
7189: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
7190: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7191: END IF;
7192:
7193: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7194:
7206: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
7207: END IF;
7208:
7209: IF l_debug_mode = 'Y' THEN
7210: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
7211: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7212: END IF;
7213:
7214: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7207: END IF;
7208:
7209: IF l_debug_mode = 'Y' THEN
7210: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
7211: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7212: END IF;
7213:
7214: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7215:
7228: (p_app_short_name => 'PA',
7229: p_msg_name => 'PA_PRODUCT_CODE_IS_MISSING_AMG');
7230: END IF;
7231: IF l_debug_mode = 'Y' THEN
7232: pa_debug.g_err_stage := 'Product code is missing' ;
7233: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7234: END IF;
7235:
7236: p_return_status := FND_API.G_RET_STS_ERROR;
7229: p_msg_name => 'PA_PRODUCT_CODE_IS_MISSING_AMG');
7230: END IF;
7231: IF l_debug_mode = 'Y' THEN
7232: pa_debug.g_err_stage := 'Product code is missing' ;
7233: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7234: END IF;
7235:
7236: p_return_status := FND_API.G_RET_STS_ERROR;
7237: l_any_error_occurred_flag:='Y' ;
7254: END IF;
7255: p_return_status := FND_API.G_RET_STS_ERROR;
7256: l_any_error_occurred_flag:='Y';
7257: IF l_debug_mode = 'Y' THEN
7258: pa_debug.g_err_stage := 'Product code is invalid' ;
7259: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7260: END IF;
7261:
7262: END IF; --l_pm_product_code <> 'X'
7255: p_return_status := FND_API.G_RET_STS_ERROR;
7256: l_any_error_occurred_flag:='Y';
7257: IF l_debug_mode = 'Y' THEN
7258: pa_debug.g_err_stage := 'Product code is invalid' ;
7259: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7260: END IF;
7261:
7262: END IF; --l_pm_product_code <> 'X'
7263:
7273: (p_app_short_name => 'PA',
7274: p_msg_name => 'PA_FP_VERSION_NUMBER_REQD');
7275: END IF;
7276: IF l_debug_mode = 'Y' THEN
7277: pa_debug.g_err_stage := 'Version Number is missing' ;
7278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7279: END IF;
7280:
7281: p_return_status := FND_API.G_RET_STS_ERROR;
7274: p_msg_name => 'PA_FP_VERSION_NUMBER_REQD');
7275: END IF;
7276: IF l_debug_mode = 'Y' THEN
7277: pa_debug.g_err_stage := 'Version Number is missing' ;
7278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7279: END IF;
7280:
7281: p_return_status := FND_API.G_RET_STS_ERROR;
7282: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7293:
7294: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7295: THEN
7296: IF l_debug_mode = 'Y' THEN
7297: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7298: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7299: END IF;
7300:
7301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7294: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7295: THEN
7296: IF l_debug_mode = 'Y' THEN
7297: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7298: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7299: END IF;
7300:
7301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7302:
7302:
7303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7304: THEN
7305: IF l_debug_mode = 'Y' THEN
7306: pa_debug.g_err_stage := 'Error while getting project id' ;
7307: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7308: END IF;
7309:
7310: RAISE FND_API.G_EXC_ERROR;
7303: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7304: THEN
7305: IF l_debug_mode = 'Y' THEN
7306: pa_debug.g_err_stage := 'Error while getting project id' ;
7307: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7308: END IF;
7309:
7310: RAISE FND_API.G_EXC_ERROR;
7311:
7339: ,p_attribute4 => ''
7340: ,p_attribute5 => '');
7341: END IF;
7342: IF l_debug_mode = 'Y' THEN
7343: pa_debug.g_err_stage := 'Budget Type is invalid' ;
7344: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7345: END IF;
7346:
7347: CLOSE l_budget_type_csr;
7340: ,p_attribute5 => '');
7341: END IF;
7342: IF l_debug_mode = 'Y' THEN
7343: pa_debug.g_err_stage := 'Budget Type is invalid' ;
7344: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7345: END IF;
7346:
7347: CLOSE l_budget_type_csr;
7348: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7366: (p_app_short_name => 'PA',
7367: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7368: END IF;
7369: IF l_debug_mode = 'Y' THEN
7370: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7372: END IF;
7373:
7374: p_return_status := FND_API.G_RET_STS_ERROR;
7367: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7368: END IF;
7369: IF l_debug_mode = 'Y' THEN
7370: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7372: END IF;
7373:
7374: p_return_status := FND_API.G_RET_STS_ERROR;
7375: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7384: p_msg_name => 'PA_FP_DEL_CUR_OR_ORIG_BASELINE');
7385: END IF;
7386:
7387: IF l_debug_mode = 'Y' THEN
7388: pa_debug.g_err_stage := 'baseline versions marked as current' ||
7389: 'or current original can not be deleted';
7390: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7391: END IF;
7392:
7386:
7387: IF l_debug_mode = 'Y' THEN
7388: pa_debug.g_err_stage := 'baseline versions marked as current' ||
7389: 'or current original can not be deleted';
7390: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7391: END IF;
7392:
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7420: -- validation fails.
7421: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR l_security_ret_code = 'N')
7422: THEN
7423: IF l_debug_mode = 'Y' THEN
7424: pa_debug.g_err_stage:= 'Security API Failed';
7425: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7426: END IF;
7427:
7428: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7421: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR l_security_ret_code = 'N')
7422: THEN
7423: IF l_debug_mode = 'Y' THEN
7424: pa_debug.g_err_stage:= 'Security API Failed';
7425: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7426: END IF;
7427:
7428: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7429: END IF;
7434: --then we do not proceed with delete.
7435: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_no_rec.budget_version_id) )
7436: THEN
7437: IF(l_debug_mode='Y') THEN
7438: pa_debug.g_err_stage := 'Cannnot delete budget version - '
7439: || 'budgetary control is enabled';
7440: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7441: END IF;
7442:
7436: THEN
7437: IF(l_debug_mode='Y') THEN
7438: pa_debug.g_err_stage := 'Cannnot delete budget version - '
7439: || 'budgetary control is enabled';
7440: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7441: END IF;
7442:
7443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7444: THEN
7460:
7461: --Stop Further processing if any errors are reported
7462: IF(l_any_error_occurred_flag='Y') THEN
7463: IF(l_debug_mode='Y') THEN
7464: pa_debug.g_err_stage := 'About to display all the messages';
7465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7466: END IF;
7467: p_return_status := FND_API.G_RET_STS_ERROR;
7468: l_any_error_occurred_flag := 'Y';
7461: --Stop Further processing if any errors are reported
7462: IF(l_any_error_occurred_flag='Y') THEN
7463: IF(l_debug_mode='Y') THEN
7464: pa_debug.g_err_stage := 'About to display all the messages';
7465: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7466: END IF;
7467: p_return_status := FND_API.G_RET_STS_ERROR;
7468: l_any_error_occurred_flag := 'Y';
7469: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7481: THEN
7482: IF NOT PA_PROJECT_PVT.check_valid_message(l_err_stage)
7483: THEN
7484: IF(l_debug_mode='Y') THEN
7485: pa_debug.g_err_stage := 'PA_BUDGET_UTILS.DELETE_DRAFT falied';
7486: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7487: END IF;
7488: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7489: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
7482: IF NOT PA_PROJECT_PVT.check_valid_message(l_err_stage)
7483: THEN
7484: IF(l_debug_mode='Y') THEN
7485: pa_debug.g_err_stage := 'PA_BUDGET_UTILS.DELETE_DRAFT falied';
7486: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7487: END IF;
7488: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7489: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
7490: ,p_msg_attribute => 'CHANGE'
7498:
7499: ELSE --valid error message has been returned by Delete_Draft
7500:
7501: IF(l_debug_mode='Y') THEN
7502: pa_debug.g_err_stage := 'Error in Delete_draft api';
7503: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7504: END IF;
7505: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7506: ( p_old_message_code => l_err_stage
7499: ELSE --valid error message has been returned by Delete_Draft
7500:
7501: IF(l_debug_mode='Y') THEN
7502: pa_debug.g_err_stage := 'Error in Delete_draft api';
7503: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7504: END IF;
7505: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7506: ( p_old_message_code => l_err_stage
7507: ,p_msg_attribute => 'CHANGE'
7521:
7522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7523: THEN
7524: IF(l_debug_mode='Y') THEN
7525: pa_debug.g_err_stage := 'Unexpected Error in Delete_draft api';
7526: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7527: END IF;
7528:
7529: FND_MSG_PUB.add_exc_msg
7522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7523: THEN
7524: IF(l_debug_mode='Y') THEN
7525: pa_debug.g_err_stage := 'Unexpected Error in Delete_draft api';
7526: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7527: END IF;
7528:
7529: FND_MSG_PUB.add_exc_msg
7530: ( p_pkg_name => 'PA_BUDGET_UTILS'
7548: ,x_msg_data => p_msg_data);
7549: --Throw the error if the above API is not successfully executed
7550: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7551: IF l_debug_mode = 'Y' THEN
7552: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7553: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7554: END IF;
7555: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7556:
7549: --Throw the error if the above API is not successfully executed
7550: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7551: IF l_debug_mode = 'Y' THEN
7552: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7553: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7554: END IF;
7555: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7556:
7557: END IF;
7571: (p_app_short_name => 'PA',
7572: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
7573: END IF;
7574: IF l_debug_mode = 'Y' THEN
7575: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
7576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7577: END IF;
7578:
7579: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7572: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
7573: END IF;
7574: IF l_debug_mode = 'Y' THEN
7575: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
7576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7577: END IF;
7578:
7579: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7580:
7590: ,x_msg_data => p_msg_data);
7591:
7592: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7593: IF l_debug_mode = 'Y' THEN
7594: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7595: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7596: END IF;
7597: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7598: END IF;
7591:
7592: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7593: IF l_debug_mode = 'Y' THEN
7594: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7595: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7596: END IF;
7597: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7598: END IF;
7599:
7611:
7612: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
7613: l_security_ret_code='N') THEN
7614: IF l_debug_mode = 'Y' THEN
7615: pa_debug.g_err_stage := 'Security API failed' ;
7616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7617: END IF;
7618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7619: END IF;
7612: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
7613: l_security_ret_code='N') THEN
7614: IF l_debug_mode = 'Y' THEN
7615: pa_debug.g_err_stage := 'Security API failed' ;
7616: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7617: END IF;
7618: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7619: END IF;
7620:
7635: (p_app_short_name => 'PA',
7636: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7637: END IF;
7638: IF l_debug_mode = 'Y' THEN
7639: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7641: END IF;
7642:
7643: p_return_status := FND_API.G_RET_STS_ERROR;
7636: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7637: END IF;
7638: IF l_debug_mode = 'Y' THEN
7639: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7641: END IF;
7642:
7643: p_return_status := FND_API.G_RET_STS_ERROR;
7644: l_any_error_occurred_flag:='Y' ;
7653: (p_app_short_name => 'PA',
7654: p_msg_name => 'PA_FP_CANT_DEL_ORG_FCST_PLAN');
7655: END IF;
7656: IF l_debug_mode = 'Y' THEN
7657: pa_debug.g_err_stage := 'Cannot delete baseline budgets attached' ||
7658: 'to an organisation forecasting project';
7659: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7660: END IF;
7661:
7655: END IF;
7656: IF l_debug_mode = 'Y' THEN
7657: pa_debug.g_err_stage := 'Cannot delete baseline budgets attached' ||
7658: 'to an organisation forecasting project';
7659: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7660: END IF;
7661:
7662: p_return_status := FND_API.G_RET_STS_ERROR;
7663: l_any_error_occurred_flag:='Y' ;
7665:
7666: --Stop Further processing if any errors are reported
7667: IF(l_any_error_occurred_flag='Y') THEN
7668: IF(l_debug_mode='Y') THEN
7669: pa_debug.g_err_stage := 'About to display all the messages';
7670: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7671: END IF;
7672: p_return_status := FND_API.G_RET_STS_ERROR;
7673: l_any_error_occurred_flag := 'Y';
7666: --Stop Further processing if any errors are reported
7667: IF(l_any_error_occurred_flag='Y') THEN
7668: IF(l_debug_mode='Y') THEN
7669: pa_debug.g_err_stage := 'About to display all the messages';
7670: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7671: END IF;
7672: p_return_status := FND_API.G_RET_STS_ERROR;
7673: l_any_error_occurred_flag := 'Y';
7674: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7687:
7688: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7689:
7690: IF(l_debug_mode='Y') THEN
7691: pa_debug.g_err_stage := 'Failed in deleting the version';
7692: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7693: END IF;
7694: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7695: END IF;
7688: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7689:
7690: IF(l_debug_mode='Y') THEN
7691: pa_debug.g_err_stage := 'Failed in deleting the version';
7692: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7693: END IF;
7694: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7695: END IF;
7696:
7750: COMMIT;
7751: END IF;
7752:
7753: IF(l_debug_mode='Y') THEN
7754: pa_debug.g_err_stage := 'Exiting delete baseline budget version';
7755: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7756: END IF;
7757:
7758: IF ( l_debug_mode = 'Y' ) THEN
7751: END IF;
7752:
7753: IF(l_debug_mode='Y') THEN
7754: pa_debug.g_err_stage := 'Exiting delete baseline budget version';
7755: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7756: END IF;
7757:
7758: IF ( l_debug_mode = 'Y' ) THEN
7759: pa_debug.reset_curr_function;
7755: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7756: END IF;
7757:
7758: IF ( l_debug_mode = 'Y' ) THEN
7759: pa_debug.reset_curr_function;
7760: END IF;
7761:
7762: EXCEPTION
7763: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
7780: p_msg_count := l_msg_count;
7781: END IF;
7782:
7783: IF ( l_debug_mode = 'Y' ) THEN
7784: pa_debug.reset_curr_function;
7785: END IF;
7786:
7787: RETURN;
7788:
7797: ( p_count => p_msg_count ,
7798: p_data => p_msg_data );
7799:
7800: IF ( l_debug_mode = 'Y' ) THEN
7801: pa_debug.reset_curr_function;
7802: END IF;
7803:
7804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7805: THEN
7812: ( p_count => p_msg_count ,
7813: p_data => p_msg_data );
7814:
7815: IF ( l_debug_mode = 'Y' ) THEN
7816: pa_debug.reset_curr_function;
7817: END IF;
7818:
7819: WHEN ROW_ALREADY_LOCKED
7820: THEN
7838: ( p_count => p_msg_count ,
7839: p_data => p_msg_data );
7840:
7841: IF ( l_debug_mode = 'Y' ) THEN
7842: pa_debug.reset_curr_function;
7843: END IF;
7844:
7845: WHEN OTHERS THEN
7846:
7860: ( p_count => p_msg_count ,
7861: p_data => p_msg_data );
7862:
7863: IF ( l_debug_mode = 'Y' ) THEN
7864: pa_debug.reset_curr_function;
7865: END IF;
7866:
7867: END delete_baseline_budget;
7868:
8098: SAVEPOINT delete_budget_line_pub;
8099:
8100: p_msg_count := 0;
8101: p_return_status := FND_API.G_RET_STS_SUCCESS;
8102: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8103: l_module_name := g_module_name || ':Delete_Budget_Line ';
8104:
8105: IF ( l_debug_mode = 'Y' )
8106: THEN
8103: l_module_name := g_module_name || ':Delete_Budget_Line ';
8104:
8105: IF ( l_debug_mode = 'Y' )
8106: THEN
8107: pa_debug.set_curr_function( p_function => l_api_name
8108: ,p_debug_mode => l_debug_mode );
8109: END IF;
8110:
8111: IF ( l_debug_mode = 'Y' )
8109: END IF;
8110:
8111: IF ( l_debug_mode = 'Y' )
8112: THEN
8113: pa_debug.g_err_stage:='Entering ' || l_api_name;
8114: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8115: END IF;
8116:
8117: --Initialize the message table if requested.
8110:
8111: IF ( l_debug_mode = 'Y' )
8112: THEN
8113: pa_debug.g_err_stage:='Entering ' || l_api_name;
8114: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8115: END IF;
8116:
8117: --Initialize the message table if requested.
8118: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8165: ,x_return_status => p_return_status );
8166:
8167: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8168: IF(l_debug_mode='Y') THEN
8169: pa_debug.g_err_stage := 'validate header info API falied';
8170: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8171: END IF;
8172: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8173: END IF;
8166:
8167: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8168: IF(l_debug_mode='Y') THEN
8169: pa_debug.g_err_stage := 'validate header info API falied';
8170: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8171: END IF;
8172: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8173: END IF;
8174:
8475: ,p_value4 => to_char(l_start_date) );
8476: END IF;
8477:
8478: IF l_debug_mode = 'Y' THEN
8479: pa_debug.g_err_stage := 'For multi-currency enabled, currency code is'
8480: || 'null but start_date is not null';
8481: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8482: END IF;
8483:
8477:
8478: IF l_debug_mode = 'Y' THEN
8479: pa_debug.g_err_stage := 'For multi-currency enabled, currency code is'
8480: || 'null but start_date is not null';
8481: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8482: END IF;
8483:
8484: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8485: END IF;
8523: ,p_value5 => to_char(l_start_date) );
8524: END IF;
8525:
8526: IF l_debug_mode = 'Y' THEN
8527: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8529: END IF;
8530:
8531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8524: END IF;
8525:
8526: IF l_debug_mode = 'Y' THEN
8527: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8529: END IF;
8530:
8531: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8532: END IF;--end of actuals-on-FORECAST check
8735: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8736: -- Error message is not added here as the api lock_unlock_version
8737: -- adds the message to stack
8738: IF(l_debug_mode='Y') THEN
8739: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8740: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8741: END IF;
8742: RAISE FND_API.G_EXC_ERROR;
8743: END IF;
8736: -- Error message is not added here as the api lock_unlock_version
8737: -- adds the message to stack
8738: IF(l_debug_mode='Y') THEN
8739: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8740: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8741: END IF;
8742: RAISE FND_API.G_EXC_ERROR;
8743: END IF;
8744:
8756: ,x_msg_data => p_msg_data
8757: );
8758: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8759: IF(l_debug_mode='Y') THEN
8760: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8761: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8762: END IF;
8763: RAISE FND_API.G_EXC_ERROR;
8764: END IF;
8757: );
8758: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8759: IF(l_debug_mode='Y') THEN
8760: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8761: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8762: END IF;
8763: RAISE FND_API.G_EXC_ERROR;
8764: END IF;
8765: /* End of code for Bug# 5998035 */
8781: END IF;
8782:
8783: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8784: IF(l_debug_mode='Y') THEN
8785: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8786: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8787: END IF;
8788: RAISE FND_API.G_EXC_ERROR;
8789: END IF;
8782:
8783: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8784: IF(l_debug_mode='Y') THEN
8785: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8786: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8787: END IF;
8788: RAISE FND_API.G_EXC_ERROR;
8789: END IF;
8790:
8805: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8806: -- Error message is not added here as the api lock_unlock_version
8807: -- adds the message to stack
8808: IF(l_debug_mode='Y') THEN
8809: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8810: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8811: END IF;
8812: RAISE FND_API.G_EXC_ERROR;
8813: END IF;
8806: -- Error message is not added here as the api lock_unlock_version
8807: -- adds the message to stack
8808: IF(l_debug_mode='Y') THEN
8809: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8810: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8811: END IF;
8812: RAISE FND_API.G_EXC_ERROR;
8813: END IF;
8814:
8819: COMMIT;
8820: END IF;
8821:
8822: IF ( l_debug_mode = 'Y' ) THEN
8823: pa_debug.reset_curr_function;
8824: END IF;
8825:
8826:
8827: EXCEPTION
8848: p_msg_count := l_msg_count;
8849: END IF;
8850:
8851: IF ( l_debug_mode = 'Y' ) THEN
8852: pa_debug.reset_curr_function;
8853: END IF;
8854:
8855: RETURN;
8856:
8866: ( p_count => p_msg_count ,
8867: p_data => p_msg_data );
8868:
8869: IF ( l_debug_mode = 'Y' ) THEN
8870: pa_debug.reset_curr_function;
8871: END IF;
8872:
8873:
8874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8882: ( p_count => p_msg_count ,
8883: p_data => p_msg_data );
8884:
8885: IF ( l_debug_mode = 'Y' ) THEN
8886: pa_debug.reset_curr_function;
8887: END IF;
8888:
8889:
8890: WHEN ROW_ALREADY_LOCKED
8909: ( p_count => p_msg_count ,
8910: p_data => p_msg_data );
8911:
8912: IF ( l_debug_mode = 'Y' ) THEN
8913: pa_debug.reset_curr_function;
8914: END IF;
8915:
8916:
8917: WHEN OTHERS THEN
8932: ( p_count => p_msg_count ,
8933: p_data => p_msg_data );
8934:
8935: IF ( l_debug_mode = 'Y' ) THEN
8936: pa_debug.reset_curr_function;
8937: END IF;
8938:
8939: END delete_budget_line;
8940:
9639: ,x_return_status => p_return_status );
9640:
9641: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9642: IF(l_debug_mode='Y') THEN
9643: pa_debug.g_err_stage := 'validate header info API falied';
9644: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9645: END IF;
9646: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9647: END IF;
9640:
9641: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9642: IF(l_debug_mode='Y') THEN
9643: pa_debug.g_err_stage := 'validate header info API falied';
9644: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9645: END IF;
9646: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9647: END IF;
9648:
9718:
9719: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9720:
9721: IF l_debug_mode = 'Y' THEN
9722: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9723: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9724: END IF;
9725:
9726: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9719: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9720:
9721: IF l_debug_mode = 'Y' THEN
9722: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9723: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9724: END IF;
9725:
9726: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9727: END IF;
10317:
10318: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
10319:
10320: IF l_debug_mode = 'Y' THEN
10321: pa_debug.g_err_stage := 'Error executing lock unlock version';
10322: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10323: END IF;
10324:
10325: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10318: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
10319:
10320: IF l_debug_mode = 'Y' THEN
10321: pa_debug.g_err_stage := 'Error executing lock unlock version';
10322: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10323: END IF;
10324:
10325: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10326:
10326:
10327: END IF;
10328:
10329: IF l_debug_mode = 'Y' THEN
10330: pa_debug.g_err_stage := 'About to call set current working version';
10331: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10332: END IF;
10333:
10334: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
10327: END IF;
10328:
10329: IF l_debug_mode = 'Y' THEN
10330: pa_debug.g_err_stage := 'About to call set current working version';
10331: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10332: END IF;
10333:
10334: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
10335: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10345: x_msg_data => l_msg_data);
10346:
10347: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10348: IF l_debug_mode= 'Y' THEN
10349: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10350: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10351: END IF;
10352: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10353: END IF;
10346:
10347: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10348: IF l_debug_mode= 'Y' THEN
10349: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10350: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10351: END IF;
10352: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10353: END IF;
10354:
10401: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10402: END IF;
10403:
10404: IF l_debug_mode = 'Y' THEN
10405: pa_debug.g_err_stage := 'Preference code is -> ' || l_plan_pref_code;
10406: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10407: END IF;
10408:
10409:
10402: END IF;
10403:
10404: IF l_debug_mode = 'Y' THEN
10405: pa_debug.g_err_stage := 'Preference code is -> ' || l_plan_pref_code;
10406: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10407: END IF;
10408:
10409:
10410: --Get the amount set id.
10436: l_amount_set_id := l_all_amount_set_id;
10437: END IF;
10438:
10439: IF l_debug_mode = 'Y' THEN
10440: pa_debug.g_err_stage:= 'Amount set id is -> ' || l_amount_set_id;
10441: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10442: END IF;
10443:
10444: l_proj_fp_options_id_new := PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID
10437: END IF;
10438:
10439: IF l_debug_mode = 'Y' THEN
10440: pa_debug.g_err_stage:= 'Amount set id is -> ' || l_amount_set_id;
10441: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10442: END IF;
10443:
10444: l_proj_fp_options_id_new := PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID
10445: (p_project_id => l_project_id
10472: -- Changes for the bug 3453650
10473: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
10474:
10475: IF l_debug_mode = 'Y' THEN
10476: pa_debug.g_err_stage := 'About to call validate budget lines in Budgets model';
10477: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10478: END IF;
10479:
10480: --Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
10473: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
10474:
10475: IF l_debug_mode = 'Y' THEN
10476: pa_debug.g_err_stage := 'About to call validate budget lines in Budgets model';
10477: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10478: END IF;
10479:
10480: --Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
10481: FOR i in l_budget_lines_in.FIRST..l_budget_lines_in.LAST LOOP
10902: x_msg_data => p_msg_data);
10903:
10904: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10905: IF l_debug_mode = 'Y' THEN
10906: pa_debug.g_err_stage:= 'valid_rate_type returned error';
10907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10908: END IF;
10909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10910: END IF;
10903:
10904: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10905: IF l_debug_mode = 'Y' THEN
10906: pa_debug.g_err_stage:= 'valid_rate_type returned error';
10907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10908: END IF;
10909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10910: END IF;
10911:
10936:
10937: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10938: p_return_status:=FND_API.G_RET_STS_ERROR;
10939: IF l_debug_mode = 'Y' THEN
10940: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
10941: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10942: END IF;
10943: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10944: END IF;
10937: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10938: p_return_status:=FND_API.G_RET_STS_ERROR;
10939: IF l_debug_mode = 'Y' THEN
10940: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
10941: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10942: END IF;
10943: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10944: END IF;
10945:
10943: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10944: END IF;
10945:
10946: IF l_debug_mode = 'Y' THEN
10947: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with multi currency conversion attributes';
10948: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10949: END IF;
10950:
10951: update pa_proj_fp_options
10944: END IF;
10945:
10946: IF l_debug_mode = 'Y' THEN
10947: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with multi currency conversion attributes';
10948: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10949: END IF;
10950:
10951: update pa_proj_fp_options
10952: set
12397:
12398: -- dbms_output.put_line ('after Calling add_finplan_lines ' || l_return_status || ' p_multiple_task_msg ' || p_multiple_task_msg);
12399:
12400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12401: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12402: IF L_DEBUG_MODE = 'Y' THEN
12403: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12404: END IF;
12405: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12399:
12400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12401: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12402: IF L_DEBUG_MODE = 'Y' THEN
12403: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12404: END IF;
12405: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12406: END IF;
12407: END IF;
12424:
12425: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
12426:
12427: IF l_debug_mode = 'Y' THEN
12428: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12429: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12430: END IF;
12431:
12432: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12425: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
12426:
12427: IF l_debug_mode = 'Y' THEN
12428: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12429: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12430: END IF;
12431:
12432: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12433: END IF;
12548: p_msg_count := l_msg_count;
12549: END IF;
12550: --Changes for bug 3182963
12551: IF l_debug_mode = 'Y' THEN
12552: pa_debug.reset_curr_function;
12553: END IF;
12554: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12555:
12556: RETURN;
13094: SAVEPOINT update_budget_line_pub;
13095:
13096: p_msg_count := 0;
13097: p_return_status := FND_API.G_RET_STS_SUCCESS;
13098: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
13099: l_module_name := g_module_name || ':Update_Budget_Line ';
13100:
13101: IF ( l_debug_mode = 'Y' )
13102: THEN
13099: l_module_name := g_module_name || ':Update_Budget_Line ';
13100:
13101: IF ( l_debug_mode = 'Y' )
13102: THEN
13103: pa_debug.set_curr_function( p_function => l_api_name
13104: ,p_debug_mode => l_debug_mode );
13105: END IF;
13106:
13107: IF ( l_debug_mode = 'Y' )
13105: END IF;
13106:
13107: IF ( l_debug_mode = 'Y' )
13108: THEN
13109: pa_debug.g_err_stage:='Entering ' || l_api_name;
13110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13111: END IF;
13112:
13113: --Initialize the message table if requested.
13106:
13107: IF ( l_debug_mode = 'Y' )
13108: THEN
13109: pa_debug.g_err_stage:='Entering ' || l_api_name;
13110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13111: END IF;
13112:
13113: --Initialize the message table if requested.
13114: IF FND_API.TO_BOOLEAN( p_init_msg_list )
13161: ,x_return_status => p_return_status );
13162:
13163: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13164: IF(l_debug_mode='Y') THEN
13165: pa_debug.g_err_stage := 'validate header info API falied';
13166: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13167: END IF;
13168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13169: END IF;
13162:
13163: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13164: IF(l_debug_mode='Y') THEN
13165: pa_debug.g_err_stage := 'validate header info API falied';
13166: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13167: END IF;
13168: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13169: END IF;
13170:
13479:
13480: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13481: THEN
13482: IF(l_debug_mode='Y') THEN
13483: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13484: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13485: END IF;
13486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13487: END IF;
13480: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13481: THEN
13482: IF(l_debug_mode='Y') THEN
13483: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13484: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13485: END IF;
13486: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13487: END IF;
13488:
13541: ,x_return_status => p_return_status );
13542:
13543: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13544: IF(l_debug_mode='Y') THEN
13545: pa_debug.g_err_stage := 'validate budget lines API falied';
13546: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13547: END IF;
13548: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13549: END IF;
13542:
13543: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13544: IF(l_debug_mode='Y') THEN
13545: pa_debug.g_err_stage := 'validate budget lines API falied';
13546: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13547: END IF;
13548: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13549: END IF;
13550:
13678:
13679: IF l_err_code > 0
13680: THEN
13681: IF(l_debug_mode='Y') THEN
13682: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13683: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13684: END IF;
13685:
13686: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13679: IF l_err_code > 0
13680: THEN
13681: IF(l_debug_mode='Y') THEN
13682: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13683: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13684: END IF;
13685:
13686: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13687: THEN
13716: ELSIF l_err_code < 0
13717: THEN
13718:
13719: IF(l_debug_mode='Y') THEN
13720: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13721: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13722: END IF;
13723:
13724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13717: THEN
13718:
13719: IF(l_debug_mode='Y') THEN
13720: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13721: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13722: END IF;
13723:
13724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13725: THEN
13848: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13849: -- Error message is not added here as the api lock_unlock_version
13850: -- adds the message to stack
13851: IF(l_debug_mode='Y') THEN
13852: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
13853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
13854: END IF;
13855: RAISE FND_API.G_EXC_ERROR;
13856: END IF;
13849: -- Error message is not added here as the api lock_unlock_version
13850: -- adds the message to stack
13851: IF(l_debug_mode='Y') THEN
13852: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
13853: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
13854: END IF;
13855: RAISE FND_API.G_EXC_ERROR;
13856: END IF;
13857:
13867:
13868: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13869: THEN
13870: IF(l_debug_mode='Y') THEN
13871: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
13872: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13873: END IF;
13874: RAISE FND_API.G_EXC_ERROR;
13875: END IF;
13868: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13869: THEN
13870: IF(l_debug_mode='Y') THEN
13871: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
13872: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13873: END IF;
13874: RAISE FND_API.G_EXC_ERROR;
13875: END IF;
13876:
13892: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13893: -- Error message is not added here as the api lock_unlock_version
13894: -- adds the message to stack
13895: IF(l_debug_mode='Y') THEN
13896: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
13897: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
13898: END IF;
13899: RAISE FND_API.G_EXC_ERROR;
13900: END IF;
13893: -- Error message is not added here as the api lock_unlock_version
13894: -- adds the message to stack
13895: IF(l_debug_mode='Y') THEN
13896: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
13897: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
13898: END IF;
13899: RAISE FND_API.G_EXC_ERROR;
13900: END IF;
13901:
13908: COMMIT;
13909: END IF;
13910:
13911: IF(l_debug_mode='Y') THEN
13912: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
13913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13914: END IF;
13915:
13916: IF ( l_debug_mode = 'Y' ) THEN
13909: END IF;
13910:
13911: IF(l_debug_mode='Y') THEN
13912: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
13913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13914: END IF;
13915:
13916: IF ( l_debug_mode = 'Y' ) THEN
13917: pa_debug.reset_curr_function;
13913: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13914: END IF;
13915:
13916: IF ( l_debug_mode = 'Y' ) THEN
13917: pa_debug.reset_curr_function;
13918: END IF;
13919:
13920:
13921: EXCEPTION
13942: p_msg_count := l_msg_count;
13943: END IF;
13944:
13945: IF ( l_debug_mode = 'Y' ) THEN
13946: pa_debug.reset_curr_function;
13947: END IF;
13948:
13949: RETURN;
13950:
13960: ( p_count => p_msg_count ,
13961: p_data => p_msg_data );
13962:
13963: IF ( l_debug_mode = 'Y' ) THEN
13964: pa_debug.reset_curr_function;
13965: END IF;
13966:
13967:
13968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
13976: ( p_count => p_msg_count ,
13977: p_data => p_msg_data );
13978:
13979: IF ( l_debug_mode = 'Y' ) THEN
13980: pa_debug.reset_curr_function;
13981: END IF;
13982:
13983:
13984: WHEN ROW_ALREADY_LOCKED
14004: ( p_count => p_msg_count ,
14005: p_data => p_msg_data );
14006:
14007: IF ( l_debug_mode = 'Y' ) THEN
14008: pa_debug.reset_curr_function;
14009: END IF;
14010:
14011:
14012: WHEN OTHERS
14027: ( p_count => p_msg_count ,
14028: p_data => p_msg_data );
14029:
14030: IF ( l_debug_mode = 'Y' ) THEN
14031: pa_debug.reset_curr_function;
14032: END IF;
14033:
14034: END update_budget_line;
14035:
14237: l_record_version_number pa_budget_versions.record_version_number%TYPE;
14238: l_budget_type_code pa_budget_versions.budget_type_code%TYPE;
14239: l_ci_id pa_budget_versions.ci_id%TYPE;
14240:
14241: l_debug_mode VARCHAR2(30):= NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
14242: l_debug_level3 CONSTANT NUMBER := 3;
14243: l_debug_level5 CONSTANT NUMBER := 5;
14244:
14245: l_plsql_max_array_size NUMBER := 200;
14656: (p_app_short_name => 'PA',
14657: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
14658:
14659: IF l_debug_mode = 'Y' THEN
14660: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
14661: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14662: END IF;
14663: RAISE FND_API.G_EXC_ERROR;
14664: END IF;
14657: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
14658:
14659: IF l_debug_mode = 'Y' THEN
14660: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
14661: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14662: END IF;
14663: RAISE FND_API.G_EXC_ERROR;
14664: END IF;
14665:
14673: (p_app_short_name => 'PA',
14674: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
14675:
14676: IF l_debug_mode = 'Y' THEN
14677: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
14678: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14679: END IF;
14680: RAISE FND_API.G_EXC_ERROR;
14681: END IF;
14674: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
14675:
14676: IF l_debug_mode = 'Y' THEN
14677: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
14678: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14679: END IF;
14680: RAISE FND_API.G_EXC_ERROR;
14681: END IF;
14682:
14704: ,p_token1 => 'BUDGET_VERSION_ID'
14705: ,p_value1 => p_budget_version_id);
14706:
14707: IF l_debug_mode = 'Y' THEN
14708: pa_debug.g_err_stage := 'No budget version exists with i/p version id' ;
14709: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14710: END IF;
14711: CLOSE budget_version_info_cur;
14712: RAISE FND_API.G_EXC_ERROR;
14705: ,p_value1 => p_budget_version_id);
14706:
14707: IF l_debug_mode = 'Y' THEN
14708: pa_debug.g_err_stage := 'No budget version exists with i/p version id' ;
14709: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14710: END IF;
14711: CLOSE budget_version_info_cur;
14712: RAISE FND_API.G_EXC_ERROR;
14713:
14720: p_app_short_name => 'PA'
14721: ,p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH');
14722:
14723: IF l_debug_mode = 'Y' THEN
14724: pa_debug.g_err_stage := 'i/p version doesnot belong to i/p project' ;
14725: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14726: END IF;
14727: CLOSE budget_version_info_cur;
14728: RAISE FND_API.G_EXC_ERROR;
14721: ,p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH');
14722:
14723: IF l_debug_mode = 'Y' THEN
14724: pa_debug.g_err_stage := 'i/p version doesnot belong to i/p project' ;
14725: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14726: END IF;
14727: CLOSE budget_version_info_cur;
14728: RAISE FND_API.G_EXC_ERROR;
14729: END IF;
14736: p_app_short_name => 'PA'
14737: ,p_msg_name => 'PA_FP_INVALID_VERSION_STATUS');
14738:
14739: IF l_debug_mode = 'Y' THEN
14740: pa_debug.g_err_stage := 'i/p version is not a working version' ;
14741: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14742: END IF;
14743: CLOSE budget_version_info_cur;
14744: RAISE FND_API.G_EXC_ERROR;
14737: ,p_msg_name => 'PA_FP_INVALID_VERSION_STATUS');
14738:
14739: IF l_debug_mode = 'Y' THEN
14740: pa_debug.g_err_stage := 'i/p version is not a working version' ;
14741: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14742: END IF;
14743: CLOSE budget_version_info_cur;
14744: RAISE FND_API.G_EXC_ERROR;
14745: END IF;
14752: ,p_msg_name => 'PA_FP_CI_VERSION_NON_EDITABLE'
14753: ,p_token1 => 'BUDGET_VERSION_ID'
14754: ,p_value1 => p_budget_version_id);
14755: IF l_debug_mode = 'Y' THEN
14756: pa_debug.g_err_stage := 'i/p version is ci version' ;
14757: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14758: END IF;
14759: CLOSE budget_version_info_cur;
14760: RAISE FND_API.G_EXC_ERROR;
14753: ,p_token1 => 'BUDGET_VERSION_ID'
14754: ,p_value1 => p_budget_version_id);
14755: IF l_debug_mode = 'Y' THEN
14756: pa_debug.g_err_stage := 'i/p version is ci version' ;
14757: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14758: END IF;
14759: CLOSE budget_version_info_cur;
14760: RAISE FND_API.G_EXC_ERROR;
14761: END IF;
14784: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE'
14785: );
14786:
14787: IF l_debug_mode = 'Y' THEN
14788: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
14789: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14790: END IF;
14791: RAISE FND_API.G_EXC_ERROR;
14792: END IF;
14785: );
14786:
14787: IF l_debug_mode = 'Y' THEN
14788: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
14789: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14790: END IF;
14791: RAISE FND_API.G_EXC_ERROR;
14792: END IF;
14793: --bug #3636409. Validation for WorkPlan Versions which cannot be edited using this AMG interface.
14794:
14795: IF l_workplan_flag = 'Y' THEN
14796:
14797: IF l_debug_mode = 'Y' THEN
14798: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
14799: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14800: END IF;
14801:
14802: PA_UTILS.ADD_MESSAGE
14795: IF l_workplan_flag = 'Y' THEN
14796:
14797: IF l_debug_mode = 'Y' THEN
14798: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
14799: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14800: END IF;
14801:
14802: PA_UTILS.ADD_MESSAGE
14803: (p_app_short_name => 'PA',
14833: -- Get the status of the current working version. If the status is submitted then
14834: -- it can not be updated/deleted
14835: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
14836: IF l_debug_mode = 'Y' THEN
14837: pa_debug.g_err_stage := 'Version exists in submitted status';
14838: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14839: END IF;
14840: PA_UTILS.ADD_MESSAGE
14841: ( p_app_short_name => 'PA',
14834: -- it can not be updated/deleted
14835: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
14836: IF l_debug_mode = 'Y' THEN
14837: pa_debug.g_err_stage := 'Version exists in submitted status';
14838: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14839: END IF;
14840: PA_UTILS.ADD_MESSAGE
14841: ( p_app_short_name => 'PA',
14842: p_msg_name => 'PA_FP_VER_SUB_STS');
14863:
14864: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14865:
14866: IF l_debug_mode = 'Y' THEN
14867: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
14868: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14869: END IF;
14870:
14871: RAISE FND_API.G_EXC_ERROR;
14864: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14865:
14866: IF l_debug_mode = 'Y' THEN
14867: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
14868: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14869: END IF;
14870:
14871: RAISE FND_API.G_EXC_ERROR;
14872: END IF;
14875:
14876: IF l_editable_flag = 'N' THEN
14877:
14878: IF l_debug_mode = 'Y' THEN
14879: pa_debug.g_err_stage := 'Plan type is not editable' ;
14880: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14881: END IF;
14882:
14883: PA_UTILS.ADD_MESSAGE
14876: IF l_editable_flag = 'N' THEN
14877:
14878: IF l_debug_mode = 'Y' THEN
14879: pa_debug.g_err_stage := 'Plan type is not editable' ;
14880: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
14881: END IF;
14882:
14883: PA_UTILS.ADD_MESSAGE
14884: (p_app_short_name => 'PA',
14934:
14935: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14936:
14937: IF l_debug_mode = 'Y' THEN
14938: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
14939: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14940: END IF;
14941: RAISE FND_API.G_EXC_ERROR;
14942: END IF;
14935: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14936:
14937: IF l_debug_mode = 'Y' THEN
14938: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
14939: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14940: END IF;
14941: RAISE FND_API.G_EXC_ERROR;
14942: END IF;
14943:
14963: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE'
14964: );
14965:
14966: IF l_debug_mode = 'Y' THEN
14967: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
14968: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14969: END IF;
14970: RAISE FND_API.G_EXC_ERROR;
14971: END IF;
14964: );
14965:
14966: IF l_debug_mode = 'Y' THEN
14967: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
14968: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14969: END IF;
14970: RAISE FND_API.G_EXC_ERROR;
14971: END IF;
14972: EXCEPTION
14971: END IF;
14972: EXCEPTION
14973: WHEN OTHERS THEN
14974: IF l_debug_mode = 'Y' THEN
14975: pa_debug.g_err_stage := 'Unexpected error while fetching the plan type code'||SQLERRM ;
14976: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14977: END IF;
14978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14979: END;
14972: EXCEPTION
14973: WHEN OTHERS THEN
14974: IF l_debug_mode = 'Y' THEN
14975: pa_debug.g_err_stage := 'Unexpected error while fetching the plan type code'||SQLERRM ;
14976: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14977: END IF;
14978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14979: END;
14980:
14982:
14983: IF l_workplan_flag = 'Y' THEN
14984:
14985: IF l_debug_mode = 'Y' THEN
14986: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
14987: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14988: END IF;
14989:
14990: PA_UTILS.ADD_MESSAGE
14983: IF l_workplan_flag = 'Y' THEN
14984:
14985: IF l_debug_mode = 'Y' THEN
14986: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
14987: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14988: END IF;
14989:
14990: PA_UTILS.ADD_MESSAGE
14991: (p_app_short_name => 'PA',
15010: p_token2 => 'PLAN_TYPE',
15011: p_value2 => l_fin_plan_type_name);
15012:
15013: IF l_debug_mode = 'Y' THEN
15014: pa_debug.g_err_stage := 'plan type not attached to project' ;
15015: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15016: END IF;
15017: CLOSE proj_fp_options_cur;
15018: RAISE FND_API.G_EXC_ERROR;
15011: p_value2 => l_fin_plan_type_name);
15012:
15013: IF l_debug_mode = 'Y' THEN
15014: pa_debug.g_err_stage := 'plan type not attached to project' ;
15015: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15016: END IF;
15017: CLOSE proj_fp_options_cur;
15018: RAISE FND_API.G_EXC_ERROR;
15019: END IF;
15044: ,x_msg_data => p_msg_data);
15045:
15046: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15047: IF l_debug_mode = 'Y' THEN
15048: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15049: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15050: END IF;
15051: RAISE FND_API.G_EXC_ERROR;
15052: END IF;
15045:
15046: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15047: IF l_debug_mode = 'Y' THEN
15048: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15049: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15050: END IF;
15051: RAISE FND_API.G_EXC_ERROR;
15052: END IF;
15053:
15069:
15070: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15071:
15072: IF l_debug_mode = 'Y' THEN
15073: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15074: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15075: END IF;
15076:
15077: RAISE FND_API.G_EXC_ERROR;
15070: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15071:
15072: IF l_debug_mode = 'Y' THEN
15073: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15074: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15075: END IF;
15076:
15077: RAISE FND_API.G_EXC_ERROR;
15078: END IF;
15081:
15082: IF l_editable_flag = 'N' THEN
15083:
15084: IF l_debug_mode = 'Y' THEN
15085: pa_debug.g_err_stage := 'Plan type is not editable' ;
15086: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15087: END IF;
15088:
15089: PA_UTILS.ADD_MESSAGE
15082: IF l_editable_flag = 'N' THEN
15083:
15084: IF l_debug_mode = 'Y' THEN
15085: pa_debug.g_err_stage := 'Plan type is not editable' ;
15086: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15087: END IF;
15088:
15089: PA_UTILS.ADD_MESSAGE
15090: (p_app_short_name => 'PA',
15119: ,x_msg_data => p_msg_data );
15120:
15121: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15122: IF l_debug_mode = 'Y' THEN
15123: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15124: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15125: END IF;
15126: RAISE FND_API.G_EXC_ERROR;
15127: END IF;
15120:
15121: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15122: IF l_debug_mode = 'Y' THEN
15123: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15124: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15125: END IF;
15126: RAISE FND_API.G_EXC_ERROR;
15127: END IF;
15128:
15135: ,p_token1 => 'BUDGET_VERSION_ID'
15136: ,p_value1 => p_budget_version_id);
15137:
15138: IF l_debug_mode = 'Y' THEN
15139: pa_debug.g_err_stage := 'i/p version is ci version' ;
15140: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15141: END IF;
15142: RAISE FND_API.G_EXC_ERROR;
15143: END IF;
15136: ,p_value1 => p_budget_version_id);
15137:
15138: IF l_debug_mode = 'Y' THEN
15139: pa_debug.g_err_stage := 'i/p version is ci version' ;
15140: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15141: END IF;
15142: RAISE FND_API.G_EXC_ERROR;
15143: END IF;
15144: ELSE
15155: ,x_msg_data => p_msg_data );
15156:
15157: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15158: IF l_debug_mode = 'Y' THEN
15159: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15160: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15161: END IF;
15162: RAISE FND_API.G_EXC_ERROR;
15163: END IF;
15156:
15157: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15158: IF l_debug_mode = 'Y' THEN
15159: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15160: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15161: END IF;
15162: RAISE FND_API.G_EXC_ERROR;
15163: END IF;
15164:
15181: p_token3 => 'VERSION_NUMBER',
15182: p_value3 => p_budget_Version_number );
15183:
15184: IF l_debug_mode = 'Y' THEN
15185: pa_debug.g_err_stage := 'Budget Version does not exist' ;
15186: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15187: END IF;
15188: RAISE FND_API.G_EXC_ERROR;
15189: Else
15182: p_value3 => p_budget_Version_number );
15183:
15184: IF l_debug_mode = 'Y' THEN
15185: pa_debug.g_err_stage := 'Budget Version does not exist' ;
15186: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15187: END IF;
15188: RAISE FND_API.G_EXC_ERROR;
15189: Else
15190: -- Fetch budget version info
15220: -- Get the status of the current working version. If the status is submitted then
15221: -- it can not be updated/deleted
15222: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
15223: IF l_debug_mode = 'Y' THEN
15224: pa_debug.g_err_stage := 'Version exists in submitted status';
15225: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15226: END IF;
15227: PA_UTILS.ADD_MESSAGE
15228: ( p_app_short_name => 'PA',
15221: -- it can not be updated/deleted
15222: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
15223: IF l_debug_mode = 'Y' THEN
15224: pa_debug.g_err_stage := 'Version exists in submitted status';
15225: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15226: END IF;
15227: PA_UTILS.ADD_MESSAGE
15228: ( p_app_short_name => 'PA',
15229: p_msg_name => 'PA_FP_VER_SUB_STS');
15243: ,x_msg_data => p_msg_data);
15244:
15245: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15246: IF l_debug_mode = 'Y' THEN
15247: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15248: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15249: END IF;
15250: RAISE FND_API.G_EXC_ERROR;
15251: END IF;
15244:
15245: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15246: IF l_debug_mode = 'Y' THEN
15247: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15248: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15249: END IF;
15250: RAISE FND_API.G_EXC_ERROR;
15251: END IF;
15252:
15328: (p_app_short_name => 'PA',
15329: p_msg_name => 'PA_NO_BUDGET_VERSION');
15330:
15331: IF l_debug_mode = 'Y' THEN
15332: pa_debug.g_err_stage := 'Draft Budget Version does not exist' ;
15333: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15334: END IF;
15335: CLOSE draft_version_cur;
15336: RAISE FND_API.G_EXC_ERROR;
15329: p_msg_name => 'PA_NO_BUDGET_VERSION');
15330:
15331: IF l_debug_mode = 'Y' THEN
15332: pa_debug.g_err_stage := 'Draft Budget Version does not exist' ;
15333: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15334: END IF;
15335: CLOSE draft_version_cur;
15336: RAISE FND_API.G_EXC_ERROR;
15337: ELSE
15360: ,x_msg_data => p_msg_data );
15361:
15362: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15363: IF(l_debug_mode='Y') THEN
15364: pa_debug.g_err_stage := 'Auto baseline API falied';
15365: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15366: END IF;
15367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15368: END IF;
15361:
15362: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15363: IF(l_debug_mode='Y') THEN
15364: pa_debug.g_err_stage := 'Auto baseline API falied';
15365: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15366: END IF;
15367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15368: END IF;
15369:
15368: END IF;
15369:
15370: IF l_result = 'F' THEN
15371: IF(l_debug_mode='Y') THEN
15372: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
15373: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15374: END IF;
15375: PA_UTILS.ADD_MESSAGE(
15376: p_app_short_name => 'PA'
15369:
15370: IF l_result = 'F' THEN
15371: IF(l_debug_mode='Y') THEN
15372: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
15373: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15374: END IF;
15375: PA_UTILS.ADD_MESSAGE(
15376: p_app_short_name => 'PA'
15377: ,p_msg_name => 'PA_FP_AB_AR_VER_NON_EDITABLE'
15393: ,x_msg_data => p_msg_data );
15394:
15395: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15396: IF(l_debug_mode='Y') THEN
15397: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15398: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15399: END IF;
15400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15401: END IF;
15394:
15395: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15396: IF(l_debug_mode='Y') THEN
15397: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15398: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15399: END IF;
15400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15401: END IF;
15402: END IF;
15423:
15424: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_security_ret_code <> 'Y') THEN
15425:
15426: IF l_debug_mode = 'Y' THEN
15427: pa_debug.g_err_stage:= 'Security API Failed';
15428: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15429: END IF;
15430:
15431: RAISE FND_API.G_EXC_ERROR;
15424: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_security_ret_code <> 'Y') THEN
15425:
15426: IF l_debug_mode = 'Y' THEN
15427: pa_debug.g_err_stage:= 'Security API Failed';
15428: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15429: END IF;
15430:
15431: RAISE FND_API.G_EXC_ERROR;
15432: END IF;
15456:
15457: -- Error message is not added here as the api lock_unlock_version
15458: -- adds the message to stack
15459: IF(l_debug_mode='Y') THEN
15460: pa_debug.g_err_stage := 'Failed in locking the version';
15461: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15462: END IF;
15463:
15464: RAISE FND_API.G_EXC_ERROR;
15457: -- Error message is not added here as the api lock_unlock_version
15458: -- adds the message to stack
15459: IF(l_debug_mode='Y') THEN
15460: pa_debug.g_err_stage := 'Failed in locking the version';
15461: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15462: END IF;
15463:
15464: RAISE FND_API.G_EXC_ERROR;
15465: END IF;
15518: -- calling api above adds the error message to stack hence not adding the error message here.
15519: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15520: THEN
15521: IF l_debug_mode = 'Y' THEN
15522: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15524: END IF;
15525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15526: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15519: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15520: THEN
15521: IF l_debug_mode = 'Y' THEN
15522: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15523: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15524: END IF;
15525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15526: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15527: THEN
15525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15526: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15527: THEN
15528: IF l_debug_mode = 'Y' THEN
15529: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15530: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15531: END IF;
15532: RAISE FND_API.G_EXC_ERROR;
15533: END IF;
15526: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15527: THEN
15528: IF l_debug_mode = 'Y' THEN
15529: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15530: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15531: END IF;
15532: RAISE FND_API.G_EXC_ERROR;
15533: END IF;
15534:
15555: -- calling api above adds the error message to stack hence not adding the error message here.
15556: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15557: THEN
15558: IF l_debug_mode = 'Y' THEN
15559: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15560: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15561: END IF;
15562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15563: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15556: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15557: THEN
15558: IF l_debug_mode = 'Y' THEN
15559: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15560: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15561: END IF;
15562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15563: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15564: THEN
15562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15563: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15564: THEN
15565: IF l_debug_mode = 'Y' THEN
15566: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15567: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15568: END IF;
15569: RAISE FND_API.G_EXC_ERROR;
15570: END IF;
15563: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15564: THEN
15565: IF l_debug_mode = 'Y' THEN
15566: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15567: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15568: END IF;
15569: RAISE FND_API.G_EXC_ERROR;
15570: END IF;
15571:
15626: ,l_projfunc_revenue_tbl
15627: LIMIT l_plsql_max_array_size;
15628:
15629: IF(l_debug_mode='Y') THEN
15630: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
15631: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15632: END IF;
15633:
15634: -- For each of the budget line fetched call client extension apis
15627: LIMIT l_plsql_max_array_size;
15628:
15629: IF(l_debug_mode='Y') THEN
15630: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
15631: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15632: END IF;
15633:
15634: -- For each of the budget line fetched call client extension apis
15635:
16141: THEN
16142: IF (l_txn_raw_cost_tbl(i) is null) then
16143: l_calculated_raw_cost := l_calculated_burdened_cost;
16144: IF(l_debug_mode='Y') THEN
16145: pa_debug.g_err_stage := 'Assigning BC to RC. When BC is entered by the user, BC is copied to RC ';
16146: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16147: END IF;
16148: Elsif l_txn_raw_cost_tbl(i) is not null THEN
16149: l_calculated_burdened_cost := null;
16142: IF (l_txn_raw_cost_tbl(i) is null) then
16143: l_calculated_raw_cost := l_calculated_burdened_cost;
16144: IF(l_debug_mode='Y') THEN
16145: pa_debug.g_err_stage := 'Assigning BC to RC. When BC is entered by the user, BC is copied to RC ';
16146: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16147: END IF;
16148: Elsif l_txn_raw_cost_tbl(i) is not null THEN
16149: l_calculated_burdened_cost := null;
16150: l_calculated_revenue := null;
16148: Elsif l_txn_raw_cost_tbl(i) is not null THEN
16149: l_calculated_burdened_cost := null;
16150: l_calculated_revenue := null;
16151: IF(l_debug_mode='Y') THEN
16152: pa_debug.g_err_stage := 'When existing RC is nulled out, BC and Rev are also nulled out';
16153: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16154: END IF;
16155: End IF;
16156: END IF;
16149: l_calculated_burdened_cost := null;
16150: l_calculated_revenue := null;
16151: IF(l_debug_mode='Y') THEN
16152: pa_debug.g_err_stage := 'When existing RC is nulled out, BC and Rev are also nulled out';
16153: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16154: END IF;
16155: End IF;
16156: END IF;
16157: /* Bug 5006031 Issue 8 End */
16263: END IF;
16264:
16265: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16266: IF(l_debug_mode='Y') THEN
16267: pa_debug.g_err_stage := 'MRC failed';
16268: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16269: END IF;
16270: RAISE FND_API.G_EXC_ERROR;
16271: END IF;
16264:
16265: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16266: IF(l_debug_mode='Y') THEN
16267: pa_debug.g_err_stage := 'MRC failed';
16268: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16269: END IF;
16270: RAISE FND_API.G_EXC_ERROR;
16271: END IF;
16272: */
16311:
16312: END IF;
16313:
16314: IF(l_debug_mode='Y') THEN
16315: pa_debug.g_err_stage := 'summerize_project_totals api failed';
16316: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16317: END IF;
16318:
16319: RAISE FND_API.G_EXC_ERROR;
16312: END IF;
16313:
16314: IF(l_debug_mode='Y') THEN
16315: pa_debug.g_err_stage := 'summerize_project_totals api failed';
16316: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16317: END IF;
16318:
16319: RAISE FND_API.G_EXC_ERROR;
16320:
16331:
16332: END IF;
16333:
16334: IF(l_debug_mode='Y') THEN
16335: pa_debug.g_err_stage := 'summerize_project_totals api failed with unexpected error ';
16336: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16337: END IF;
16338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16339:
16332: END IF;
16333:
16334: IF(l_debug_mode='Y') THEN
16335: pa_debug.g_err_stage := 'summerize_project_totals api failed with unexpected error ';
16336: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16337: END IF;
16338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16339:
16340: END IF;
16357: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16358: -- Error message is not added here as the api lock_unlock_version
16359: -- adds the message to stack
16360: IF(l_debug_mode='Y') THEN
16361: pa_debug.g_err_stage := 'Failed in locking the version';
16362: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16363: END IF;
16364: RAISE FND_API.G_EXC_ERROR;
16365: END IF;*/
16358: -- Error message is not added here as the api lock_unlock_version
16359: -- adds the message to stack
16360: IF(l_debug_mode='Y') THEN
16361: pa_debug.g_err_stage := 'Failed in locking the version';
16362: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16363: END IF;
16364: RAISE FND_API.G_EXC_ERROR;
16365: END IF;*/
16366:
16375: ,x_msg_data => p_msg_data);
16376:
16377: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16378: IF l_debug_mode = 'Y' THEN
16379: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16380: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16381: END IF;
16382: RAISE FND_API.G_EXC_ERROR;
16383: END IF;
16376:
16377: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16378: IF l_debug_mode = 'Y' THEN
16379: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16380: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16381: END IF;
16382: RAISE FND_API.G_EXC_ERROR;
16383: END IF;
16384:
16392: X_MSG_DATA => p_msg_data);
16393:
16394: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16395: IF l_debug_mode = 'Y' THEN
16396: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16397: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16398: END IF;
16399: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16400: END IF;
16393:
16394: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16395: IF l_debug_mode = 'Y' THEN
16396: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16397: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16398: END IF;
16399: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16400: END IF;
16401:
16409: x_msg_count => p_msg_count );
16410:
16411: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16412: IF l_debug_mode = 'Y' THEN
16413: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16414: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16415: END IF;
16416: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16417: END IF;
16410:
16411: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16412: IF l_debug_mode = 'Y' THEN
16413: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16414: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16415: END IF;
16416: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16417: END IF;
16418:
16428:
16429:
16430: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16431: IF l_debug_mode = 'Y' THEN
16432: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16433: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16434: END IF;
16435: RAISE FND_API.G_EXC_ERROR;
16436: END IF;
16429:
16430: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16431: IF l_debug_mode = 'Y' THEN
16432: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16433: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16434: END IF;
16435: RAISE FND_API.G_EXC_ERROR;
16436: END IF;
16437: -- Bug Fix: 4569365. Removed MRC code.
16445: END IF;
16446:
16447: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16448: IF l_debug_mode = 'Y' THEN
16449: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16450: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16451: END IF;
16452: RAISE FND_API.G_EXC_ERROR;
16453: END IF;
16446:
16447: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16448: IF l_debug_mode = 'Y' THEN
16449: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16450: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16451: END IF;
16452: RAISE FND_API.G_EXC_ERROR;
16453: END IF;
16454:
16464: END IF;
16465:
16466: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16467: IF l_debug_mode = 'Y' THEN
16468: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16469: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16470: END IF;
16471: RAISE FND_API.G_EXC_ERROR;
16472: END IF;
16465:
16466: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16467: IF l_debug_mode = 'Y' THEN
16468: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16469: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16470: END IF;
16471: RAISE FND_API.G_EXC_ERROR;
16472: END IF;
16473: */
16519: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16520: -- Error message is not added here as the api lock_unlock_version
16521: -- adds the message to stack
16522: IF(l_debug_mode='Y') THEN
16523: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16524: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16525: END IF;
16526: RAISE FND_API.G_EXC_ERROR;
16527: END IF;
16520: -- Error message is not added here as the api lock_unlock_version
16521: -- adds the message to stack
16522: IF(l_debug_mode='Y') THEN
16523: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16524: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16525: END IF;
16526: RAISE FND_API.G_EXC_ERROR;
16527: END IF;
16528:
16570: ,l_projfunc_revenue_tbl
16571: LIMIT l_plsql_max_array_size;
16572:
16573: IF(l_debug_mode='Y') THEN
16574: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
16575: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16576: END IF;
16577:
16578: IF NVL(l_rowid_tbl.last,0) >= 1 THEN
16571: LIMIT l_plsql_max_array_size;
16572:
16573: IF(l_debug_mode='Y') THEN
16574: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
16575: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16576: END IF;
16577:
16578: IF NVL(l_rowid_tbl.last,0) >= 1 THEN
16579: FOR i IN l_rowid_tbl.first .. l_rowid_tbl.last
17349: SAVEPOINT create_draft_finplan_pub;
17350:
17351: x_msg_count := 0;
17352: x_return_status := FND_API.G_RET_STS_SUCCESS;
17353: pa_debug.set_err_stack('PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN');
17354: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
17355: l_debug_mode := NVL(l_debug_mode, 'Y');
17356:
17357: IF ( l_debug_mode = 'Y' )
17350:
17351: x_msg_count := 0;
17352: x_return_status := FND_API.G_RET_STS_SUCCESS;
17353: pa_debug.set_err_stack('PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN');
17354: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
17355: l_debug_mode := NVL(l_debug_mode, 'Y');
17356:
17357: IF ( l_debug_mode = 'Y' )
17358: THEN
17355: l_debug_mode := NVL(l_debug_mode, 'Y');
17356:
17357: IF ( l_debug_mode = 'Y' )
17358: THEN
17359: pa_debug.set_process(l_procedure_name || 'PLSQL','LOG',l_debug_mode);
17360: pa_debug.g_err_stage:='Entering CREATE_DRAFT_FINPLAN';
17361: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17362: END IF;
17363:
17356:
17357: IF ( l_debug_mode = 'Y' )
17358: THEN
17359: pa_debug.set_process(l_procedure_name || 'PLSQL','LOG',l_debug_mode);
17360: pa_debug.g_err_stage:='Entering CREATE_DRAFT_FINPLAN';
17361: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17362: END IF;
17363:
17364: l_msg_count := 0;
17357: IF ( l_debug_mode = 'Y' )
17358: THEN
17359: pa_debug.set_process(l_procedure_name || 'PLSQL','LOG',l_debug_mode);
17360: pa_debug.g_err_stage:='Entering CREATE_DRAFT_FINPLAN';
17361: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17362: END IF;
17363:
17364: l_msg_count := 0;
17365: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17361: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17362: END IF;
17363:
17364: l_msg_count := 0;
17365: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17366: l_module_name := 'create_draft_finplan' || g_module_name;
17367:
17368: IF ( l_debug_mode = 'Y' )
17369: THEN
17366: l_module_name := 'create_draft_finplan' || g_module_name;
17367:
17368: IF ( l_debug_mode = 'Y' )
17369: THEN
17370: pa_debug.set_curr_function( p_function => 'create_draft_finplan'
17371: ,p_debug_mode => l_debug_mode );
17372: END IF;
17373:
17374: l_resource_list_name := p_resource_list_name ;
17676: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17677: END IF;
17678:
17679: IF l_debug_mode = 'Y' THEN
17680: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
17681: END IF;
17682:
17683: IF (l_curr_work_version_id IS NOT NULL) THEN
17684:
17699: );
17700:
17701: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17702: IF l_debug_mode = 'Y' THEN
17703: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17704: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17705: END IF;
17706: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17707: END IF;
17700:
17701: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17702: IF l_debug_mode = 'Y' THEN
17703: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17704: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17705: END IF;
17706: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17707: END IF;
17708:
17715: ,x_msg_data => x_msg_data
17716: );
17717: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
17718: THEN
17719: pa_debug.g_err_stage:= 'Could not delete the current working version';
17720: IF l_debug_mode = 'Y' THEN
17721: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17722: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17723: END IF;
17717: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
17718: THEN
17719: pa_debug.g_err_stage:= 'Could not delete the current working version';
17720: IF l_debug_mode = 'Y' THEN
17721: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17722: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17723: END IF;
17724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17725: ELSE
17722: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17723: END IF;
17724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17725: ELSE
17726: pa_debug.g_err_stage:= 'Deleted the current working version';
17727: IF l_debug_mode = 'Y' THEN
17728: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17729: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17730: END IF;
17724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17725: ELSE
17726: pa_debug.g_err_stage:= 'Deleted the current working version';
17727: IF l_debug_mode = 'Y' THEN
17728: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17729: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17730: END IF;
17731: END IF;
17732: END IF; --p_replace_current_working_flag = 'Y'
17740: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
17741: END IF;
17742:
17743: IF l_debug_mode = 'Y' THEN
17744: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
17745: pa_debug.write(l_procedure_name ||
17746: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17747: END IF;
17748:
17741: END IF;
17742:
17743: IF l_debug_mode = 'Y' THEN
17744: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
17745: pa_debug.write(l_procedure_name ||
17746: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17747: END IF;
17748:
17749: --Bug 5475184. The below block will be used to get the cost/bill rate flags from the plan type option.
17742:
17743: IF l_debug_mode = 'Y' THEN
17744: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
17745: pa_debug.write(l_procedure_name ||
17746: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17747: END IF;
17748:
17749: --Bug 5475184. The below block will be used to get the cost/bill rate flags from the plan type option.
17750: --These flags will be set for the new plan version that will be created instead of always setting
17762: AND fin_plan_type_id=l_fin_plan_type_id
17763: AND fin_plan_version_id IS NULL;
17764:
17765: IF l_debug_mode = 'Y' THEN
17766: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
17767: pa_debug.write(l_procedure_name ||
17768: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17769: END IF;
17770:
17763: AND fin_plan_version_id IS NULL;
17764:
17765: IF l_debug_mode = 'Y' THEN
17766: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
17767: pa_debug.write(l_procedure_name ||
17768: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17769: END IF;
17770:
17771: --Get the plan type flag values
17764:
17765: IF l_debug_mode = 'Y' THEN
17766: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
17767: pa_debug.write(l_procedure_name ||
17768: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17769: END IF;
17770:
17771: --Get the plan type flag values
17772: pa_fin_plan_utils.get_plan_amount_flags (
17784: x_return_status => x_return_status,
17785: x_message_data => x_msg_data);
17786:
17787: IF l_debug_mode = 'Y' THEN
17788: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
17789: pa_debug.write(l_procedure_name ||
17790: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17791:
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17785: x_message_data => x_msg_data);
17786:
17787: IF l_debug_mode = 'Y' THEN
17788: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
17789: pa_debug.write(l_procedure_name ||
17790: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17791:
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17793: pa_debug.write(l_procedure_name ||
17786:
17787: IF l_debug_mode = 'Y' THEN
17788: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
17789: pa_debug.write(l_procedure_name ||
17790: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17791:
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17788: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
17789: pa_debug.write(l_procedure_name ||
17790: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17791:
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17789: pa_debug.write(l_procedure_name ||
17790: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17791:
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17790: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17791:
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17792: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17793: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17801: pa_debug.write(l_procedure_name ||
17794: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17795:
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17801: pa_debug.write(l_procedure_name ||
17802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17796: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17801: pa_debug.write(l_procedure_name ||
17802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17803:
17804: END IF;
17797: pa_debug.write(l_procedure_name ||
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17801: pa_debug.write(l_procedure_name ||
17802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17803:
17804: END IF;
17805:
17798: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17799:
17800: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
17801: pa_debug.write(l_procedure_name ||
17802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17803:
17804: END IF;
17805:
17806: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17804: END IF;
17805:
17806: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17807:
17808: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
17809: IF l_debug_mode = 'Y' THEN
17810: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17811: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17812: END IF;
17806: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17807:
17808: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
17809: IF l_debug_mode = 'Y' THEN
17810: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17811: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17812: END IF;
17813: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17814:
17840: ,x_message_data => x_msg_data
17841: );
17842: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17843: IF l_debug_mode = 'Y' THEN
17844: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
17845: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17846: END IF;
17847: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17848: END IF;
17841: );
17842: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17843: IF l_debug_mode = 'Y' THEN
17844: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
17845: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17846: END IF;
17847: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17848: END IF;
17849:
17863: l_allow_qty_flag := l_all_qty_flag; -- p_all_qty_flag; Bug 5478041
17864: END IF;
17865:
17866: IF l_debug_mode = 'Y' THEN
17867: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
17868: pa_debug.write(l_procedure_name ||
17869: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17870: END IF;
17871:
17864: END IF;
17865:
17866: IF l_debug_mode = 'Y' THEN
17867: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
17868: pa_debug.write(l_procedure_name ||
17869: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17870: END IF;
17871:
17872: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
17865:
17866: IF l_debug_mode = 'Y' THEN
17867: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
17868: pa_debug.write(l_procedure_name ||
17869: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17870: END IF;
17871:
17872: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
17873:
17871:
17872: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
17873:
17874: IF l_debug_mode = 'Y' THEN
17875: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
17876: pa_debug.write(l_procedure_name ||
17877: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17878: END IF;
17879:
17872: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
17873:
17874: IF l_debug_mode = 'Y' THEN
17875: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
17876: pa_debug.write(l_procedure_name ||
17877: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17878: END IF;
17879:
17880: l_created_version_id := NULL;
17873:
17874: IF l_debug_mode = 'Y' THEN
17875: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
17876: pa_debug.write(l_procedure_name ||
17877: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17878: END IF;
17879:
17880: l_created_version_id := NULL;
17881:
17880: l_created_version_id := NULL;
17881:
17882:
17883: IF l_debug_mode = 'Y' THEN
17884: pa_debug.g_err_stage:= 'Calling Create_Version';
17885: pa_debug.write(l_procedure_name ||
17886: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17887: END IF;
17888:
17881:
17882:
17883: IF l_debug_mode = 'Y' THEN
17884: pa_debug.g_err_stage:= 'Calling Create_Version';
17885: pa_debug.write(l_procedure_name ||
17886: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17887: END IF;
17888:
17889: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
17882:
17883: IF l_debug_mode = 'Y' THEN
17884: pa_debug.g_err_stage:= 'Calling Create_Version';
17885: pa_debug.write(l_procedure_name ||
17886: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17887: END IF;
17888:
17889: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
17890: pa_fin_plan_pub.Create_Version (
17935: ,x_msg_count => x_msg_count
17936: ,x_msg_data => x_msg_data );
17937:
17938: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17939: pa_debug.g_err_stage:= 'Error Create_Version';
17940: IF l_debug_mode = 'Y' THEN
17941: pa_debug.write( l_procedure_name ||
17942: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17943: END IF;
17937:
17938: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17939: pa_debug.g_err_stage:= 'Error Create_Version';
17940: IF l_debug_mode = 'Y' THEN
17941: pa_debug.write( l_procedure_name ||
17942: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17943: END IF;
17944: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17945: END IF;
17938: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
17939: pa_debug.g_err_stage:= 'Error Create_Version';
17940: IF l_debug_mode = 'Y' THEN
17941: pa_debug.write( l_procedure_name ||
17942: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17943: END IF;
17944: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17945: END IF;
17946: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
18522: RAISE FND_API.G_EXC_ERROR;
18523: END IF;
18524: IF ( l_created_version_id <> l_CW_version_id )
18525: THEN
18526: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18527: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18528: IF l_debug_mode = 'Y' THEN
18529: pa_debug.write( l_procedure_name ||
18530: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18525: THEN
18526: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18527: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18528: IF l_debug_mode = 'Y' THEN
18529: pa_debug.write( l_procedure_name ||
18530: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18531: END IF;
18532:
18533: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18526: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18527: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18528: IF l_debug_mode = 'Y' THEN
18529: pa_debug.write( l_procedure_name ||
18530: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18531: END IF;
18532:
18533: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18534:
18551: x_msg_data => x_msg_data) ;
18552:
18553: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18554: IF l_debug_mode = 'Y' THEN
18555: pa_debug.g_err_stage := 'Error executing lock unlock version';
18556: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18557: END IF;
18558: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18559: END IF;
18552:
18553: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18554: IF l_debug_mode = 'Y' THEN
18555: pa_debug.g_err_stage := 'Error executing lock unlock version';
18556: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18557: END IF;
18558: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18559: END IF;
18560: IF l_debug_mode = 'Y' THEN
18557: END IF;
18558: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18559: END IF;
18560: IF l_debug_mode = 'Y' THEN
18561: pa_debug.g_err_stage := 'About to call set current working version';
18562: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
18563: END IF;
18564:
18565:
18558: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18559: END IF;
18560: IF l_debug_mode = 'Y' THEN
18561: pa_debug.g_err_stage := 'About to call set current working version';
18562: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
18563: END IF;
18564:
18565:
18566: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18576: x_msg_data => x_msg_data);
18577:
18578: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18579: IF l_debug_mode = 'Y' THEN
18580: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18581: pa_debug.write('CREATE_DRAFT: ' ||
18582: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18583: END IF;
18584: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18577:
18578: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18579: IF l_debug_mode = 'Y' THEN
18580: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18581: pa_debug.write('CREATE_DRAFT: ' ||
18582: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18583: END IF;
18584: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18585: END IF;
18578: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18579: IF l_debug_mode = 'Y' THEN
18580: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18581: pa_debug.write('CREATE_DRAFT: ' ||
18582: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18583: END IF;
18584: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18585: END IF;
18586: END IF; --l_created_version_id <> l_CW_version_id
18620: IF FND_API.TO_BOOLEAN( p_commit )
18621: THEN
18622:
18623: IF l_debug_mode = 'Y' THEN
18624: pa_debug.g_err_stage := 'About to do a COMMIT';
18625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18626: END IF;
18627:
18628: COMMIT;
18621: THEN
18622:
18623: IF l_debug_mode = 'Y' THEN
18624: pa_debug.g_err_stage := 'About to do a COMMIT';
18625: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18626: END IF;
18627:
18628: COMMIT;
18629: END IF;
18628: COMMIT;
18629: END IF;
18630:
18631: IF l_debug_mode = 'Y' THEN
18632: pa_debug.g_err_stage := 'Leaving create draft finplan';
18633: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18634:
18635: pa_debug.reset_curr_function;
18636: END IF;
18629: END IF;
18630:
18631: IF l_debug_mode = 'Y' THEN
18632: pa_debug.g_err_stage := 'Leaving create draft finplan';
18633: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18634:
18635: pa_debug.reset_curr_function;
18636: END IF;
18637:
18631: IF l_debug_mode = 'Y' THEN
18632: pa_debug.g_err_stage := 'Leaving create draft finplan';
18633: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18634:
18635: pa_debug.reset_curr_function;
18636: END IF;
18637:
18638: EXCEPTION
18639: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
18640:
18641: ROLLBACK TO create_draft_finplan_pub;
18642:
18643: IF l_debug_mode = 'Y' THEN
18644: pa_debug.g_err_stage:='In invalid args exception';
18645: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18646: END IF;
18647:
18648: l_msg_count := FND_MSG_PUB.count_msg;
18641: ROLLBACK TO create_draft_finplan_pub;
18642:
18643: IF l_debug_mode = 'Y' THEN
18644: pa_debug.g_err_stage:='In invalid args exception';
18645: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18646: END IF;
18647:
18648: l_msg_count := FND_MSG_PUB.count_msg;
18649: IF l_msg_count = 1 THEN
18648: l_msg_count := FND_MSG_PUB.count_msg;
18649: IF l_msg_count = 1 THEN
18650:
18651: IF l_debug_mode = 'Y' THEN
18652: pa_debug.g_err_stage:='In invalid args exception 1';
18653: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18654: END IF;
18655:
18656: PA_INTERFACE_UTILS_PUB.get_messages
18649: IF l_msg_count = 1 THEN
18650:
18651: IF l_debug_mode = 'Y' THEN
18652: pa_debug.g_err_stage:='In invalid args exception 1';
18653: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18654: END IF;
18655:
18656: PA_INTERFACE_UTILS_PUB.get_messages
18657: ( p_encoded => FND_API.G_TRUE
18664: x_msg_data := l_msg_data;
18665: x_msg_count := l_msg_count;
18666: ELSE
18667: IF l_debug_mode = 'Y' THEN
18668: pa_debug.g_err_stage:='In invalid args exception 2';
18669: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18670: END IF;
18671: x_msg_count := l_msg_count;
18672: END IF;
18665: x_msg_count := l_msg_count;
18666: ELSE
18667: IF l_debug_mode = 'Y' THEN
18668: pa_debug.g_err_stage:='In invalid args exception 2';
18669: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18670: END IF;
18671: x_msg_count := l_msg_count;
18672: END IF;
18673:
18674:
18675: x_return_status := FND_API.G_RET_STS_ERROR;
18676:
18677: IF l_debug_mode = 'Y' THEN
18678: pa_debug.g_err_stage:='In invalid args exception 3';
18679: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18680: pa_debug.reset_curr_function;
18681: END IF;
18682:
18675: x_return_status := FND_API.G_RET_STS_ERROR;
18676:
18677: IF l_debug_mode = 'Y' THEN
18678: pa_debug.g_err_stage:='In invalid args exception 3';
18679: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18680: pa_debug.reset_curr_function;
18681: END IF;
18682:
18683: WHEN OTHERS THEN
18676:
18677: IF l_debug_mode = 'Y' THEN
18678: pa_debug.g_err_stage:='In invalid args exception 3';
18679: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18680: pa_debug.reset_curr_function;
18681: END IF;
18682:
18683: WHEN OTHERS THEN
18684:
18691: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
18692: ,p_procedure_name => 'Update_Planning_Transactions');
18693:
18694: IF l_debug_mode = 'Y' THEN
18695: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
18696: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18697: pa_debug.reset_curr_function;
18698: END IF;
18699:
18692: ,p_procedure_name => 'Update_Planning_Transactions');
18693:
18694: IF l_debug_mode = 'Y' THEN
18695: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
18696: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18697: pa_debug.reset_curr_function;
18698: END IF;
18699:
18700: RAISE;
18693:
18694: IF l_debug_mode = 'Y' THEN
18695: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
18696: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18697: pa_debug.reset_curr_function;
18698: END IF;
18699:
18700: RAISE;
18701:
19178:
19179:
19180: BEGIN
19181: -- Set the error stack.
19182: pa_debug.set_err_stack('PA_BUDGET_PUB.update_plannning_element_attr');
19183:
19184: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
19185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
19186: l_debug_mode := NVL(l_debug_mode, 'Y');
19181: -- Set the error stack.
19182: pa_debug.set_err_stack('PA_BUDGET_PUB.update_plannning_element_attr');
19183:
19184: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
19185: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
19186: l_debug_mode := NVL(l_debug_mode, 'Y');
19187:
19188: -- Initialize the return status to success
19189: x_return_status := FND_API.G_RET_STS_SUCCESS;
19257: --end initialize
19258:
19259: if p_planning_element_rec_tbl.count = 0 then
19260: IF l_debug_mode = 'Y' THEN
19261: pa_debug.write_file('No Planning Elements Passed',5);
19262: END IF;
19263: pa_debug.reset_err_stack;
19264: return;
19265: end if;
19259: if p_planning_element_rec_tbl.count = 0 then
19260: IF l_debug_mode = 'Y' THEN
19261: pa_debug.write_file('No Planning Elements Passed',5);
19262: END IF;
19263: pa_debug.reset_err_stack;
19264: return;
19265: end if;
19266:
19267:
19320: */
19321: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19322: THEN
19323: IF l_debug_mode = 'Y' THEN
19324: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19325: END IF;
19326: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19327: END IF;
19328:
19435:
19436: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19437:
19438: IF l_debug_mode = 'Y' THEN
19439: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19440: END IF;
19441: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19442: END IF;
19443:
19620:
19621: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19622: THEN
19623: IF l_debug_mode = 'Y' THEN
19624: pa_debug.write_file('Failed due to error in update_planning_transactions',5);
19625: END IF;
19626: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19627: END IF;
19628:
19627: END IF;
19628:
19629:
19630:
19631: pa_debug.reset_err_stack;
19632:
19633: EXCEPTION
19634: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
19635:
19649: x_msg_count := l_msg_count;
19650: x_msg_data := l_msg_data;
19651: END IF;
19652: IF l_debug_mode = 'Y' THEN
19653: pa_debug.g_err_stage:='Invalid Arguments Passed';
19654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19655: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
19656: END IF;
19657:
19650: x_msg_data := l_msg_data;
19651: END IF;
19652: IF l_debug_mode = 'Y' THEN
19653: pa_debug.g_err_stage:='Invalid Arguments Passed';
19654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19655: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
19656: END IF;
19657:
19658: x_return_status:= FND_API.G_RET_STS_ERROR;
19651: END IF;
19652: IF l_debug_mode = 'Y' THEN
19653: pa_debug.g_err_stage:='Invalid Arguments Passed';
19654: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19655: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
19656: END IF;
19657:
19658: x_return_status:= FND_API.G_RET_STS_ERROR;
19659:
19657:
19658: x_return_status:= FND_API.G_RET_STS_ERROR;
19659:
19660:
19661: pa_debug.reset_err_stack;
19662:
19663:
19664: WHEN Others THEN
19665:
19669: x_msg_data := SQLERRM;
19670: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
19671: ,p_procedure_name => 'update_plannning_element_attr');
19672: IF l_debug_mode = 'Y' THEN
19673: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
19674: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19675: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
19676: END IF;
19677:
19670: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
19671: ,p_procedure_name => 'update_plannning_element_attr');
19672: IF l_debug_mode = 'Y' THEN
19673: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
19674: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19675: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
19676: END IF;
19677:
19678: pa_debug.reset_err_stack;
19671: ,p_procedure_name => 'update_plannning_element_attr');
19672: IF l_debug_mode = 'Y' THEN
19673: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
19674: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19675: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
19676: END IF;
19677:
19678: pa_debug.reset_err_stack;
19679:
19674: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
19675: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
19676: END IF;
19677:
19678: pa_debug.reset_err_stack;
19679:
19680: END update_plannning_element_attr;
19681:
19682: