284: --Standard begin of API savepoint
285: SAVEPOINT create_draft_budget_pub;
286: p_msg_count := 0;
287: p_return_status := FND_API.G_RET_STS_SUCCESS;
288: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
289: l_module_name := 'create_draft_budget' || g_module_name;
290:
291: -- Changes for bug 3182963
292: IF l_debug_mode = 'Y' THEN
289: l_module_name := 'create_draft_budget' || g_module_name;
290:
291: -- Changes for bug 3182963
292: IF l_debug_mode = 'Y' THEN
293: pa_debug.set_curr_function( p_function => 'create_draft_budget',
294: p_debug_mode => l_debug_mode );
295: END IF;
296:
297:
513: END IF;
514: */
515:
516: IF l_debug_mode = 'Y' THEN
517: pa_debug.g_err_stage := 'About to call validate header info';
518: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
519: END IF;
520:
521: --Call the api that validates the input information
514: */
515:
516: IF l_debug_mode = 'Y' THEN
517: pa_debug.g_err_stage := 'About to call validate header info';
518: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
519: END IF;
520:
521: --Call the api that validates the input information
522: pa_budget_pvt.Validate_Header_Info
571:
572: END IF;
573:
574: IF l_debug_mode = 'Y' THEN
575: pa_debug.g_err_stage := 'Validate Header got executed successfully';
576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
577: END IF;
578:
579: -- Copy the input pl/sql table to a local pl/sql table. This is necessary since the
572: END IF;
573:
574: IF l_debug_mode = 'Y' THEN
575: pa_debug.g_err_stage := 'Validate Header got executed successfully';
576: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
577: END IF;
578:
579: -- Copy the input pl/sql table to a local pl/sql table. This is necessary since the
580: -- input table is a IN variable and hence read only.
609: FROM pa_projects_all
610: WHERE project_id=l_project_id;
611:
612: IF l_debug_mode = 'Y' THEN
613: pa_debug.g_err_stage := 'Got the budget type details and segment1 of the project';
614: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
615: END IF;
616:
617:
610: WHERE project_id=l_project_id;
611:
612: IF l_debug_mode = 'Y' THEN
613: pa_debug.g_err_stage := 'Got the budget type details and segment1 of the project';
614: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
615: END IF;
616:
617:
618: /* After bug fix for bug 4052562, note that the below API returns UOM from rlm table as DOLLARS instead of
640: -- RAISE FND_API.G_EXC_ERROR;
641: END IF; -- IF l_err_code <> 0 THEN
642:
643: IF l_debug_mode = 'Y' THEN
644: pa_debug.g_err_stage := 'Got the uncategorized res list info';
645: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
646: END IF;
647:
648: --Added by Xin Liu for supporting Project Connect 4.0
641: END IF; -- IF l_err_code <> 0 THEN
642:
643: IF l_debug_mode = 'Y' THEN
644: pa_debug.g_err_stage := 'Got the uncategorized res list info';
645: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
646: END IF;
647:
648: --Added by Xin Liu for supporting Project Connect 4.0
649: --5/6/2003
791: END IF;
792:
793:
794: IF l_debug_mode = 'Y' THEN
795: pa_debug.g_err_stage := 'Done with the initialisation of flex fields, dexcription, etc';
796: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
797: END IF;
798:
799:
792:
793:
794: IF l_debug_mode = 'Y' THEN
795: pa_debug.g_err_stage := 'Done with the initialisation of flex fields, dexcription, etc';
796: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
797: END IF;
798:
799:
800: IF p_budget_type_code IS NOT NULL AND
884:
885: END IF;
886:
887: IF l_debug_mode = 'Y' THEN
888: pa_debug.g_err_stage := 'Error executing create draft';
889: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
890: END IF;
891:
892: RAISE FND_API.G_EXC_ERROR;
885: END IF;
886:
887: IF l_debug_mode = 'Y' THEN
888: pa_debug.g_err_stage := 'Error executing create draft';
889: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
890: END IF;
891:
892: RAISE FND_API.G_EXC_ERROR;
893:
904:
905: END IF;
906:
907: IF l_debug_mode = 'Y' THEN
908: pa_debug.g_err_stage := 'SQL Error executing create draft';
909: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
910: END IF;
911:
912:
905: END IF;
906:
907: IF l_debug_mode = 'Y' THEN
908: pa_debug.g_err_stage := 'SQL Error executing create draft';
909: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
910: END IF;
911:
912:
913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
914:
915: END IF;
916:
917: IF l_debug_mode = 'Y' THEN
918: pa_debug.g_err_stage := 'Created the version in the budget model';
919: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
920: END IF;
921:
922: -- Commenting out this select as the create draft now returns the id of hte
915: END IF;
916:
917: IF l_debug_mode = 'Y' THEN
918: pa_debug.g_err_stage := 'Created the version in the budget model';
919: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
920: END IF;
921:
922: -- Commenting out this select as the create draft now returns the id of hte
923: -- newly created version
925: -- INTO l_budget_version_id --PA_BUDGET_UTILS.create_draft returns nothing: BUG.
926: -- FROM SYS.DUAL;
927:
928: IF l_debug_mode = 'Y' THEN
929: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
930: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
931:
932: pa_debug.g_err_stage := 'About to call validate budget lines';
933: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
926: -- FROM SYS.DUAL;
927:
928: IF l_debug_mode = 'Y' THEN
929: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
930: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
931:
932: pa_debug.g_err_stage := 'About to call validate budget lines';
933: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
934: END IF;
928: IF l_debug_mode = 'Y' THEN
929: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
930: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
931:
932: pa_debug.g_err_stage := 'About to call validate budget lines';
933: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
934: END IF;
935:
936: --Validate the budget lines.
929: pa_debug.g_err_stage := 'Created version is is '|| l_budget_version_id ;
930: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
931:
932: pa_debug.g_err_stage := 'About to call validate budget lines';
933: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
934: END IF;
935:
936: --Validate the budget lines.
937: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1204:
1205: END IF;
1206:
1207: IF l_debug_mode = 'Y' THEN
1208: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
1209: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1210: END IF;
1211:
1212: END IF;--IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1205: END IF;
1206:
1207: IF l_debug_mode = 'Y' THEN
1208: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
1209: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1210: END IF;
1211:
1212: END IF;--IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1213:
1308: THEN
1309: p_budget_lines_out(i).return_status := l_return_status;
1310:
1311: IF l_debug_mode = 'Y' THEN
1312: pa_debug.g_err_stage := 'Unexpected Error inserting line '||i;
1313: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1314: END IF;
1315:
1316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: p_budget_lines_out(i).return_status := l_return_status;
1310:
1311: IF l_debug_mode = 'Y' THEN
1312: pa_debug.g_err_stage := 'Unexpected Error inserting line '||i;
1313: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1314: END IF;
1315:
1316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1317:
1319: THEN
1320: p_budget_lines_out(i).return_status := l_return_status;
1321: p_multiple_task_msg := 'F';
1322: IF l_debug_mode = 'Y' THEN
1323: pa_debug.g_err_stage := 'Error inserting line '||i;
1324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1325: END IF;
1326:
1327: -- RAISE FND_API.G_EXC_ERROR;
1320: p_budget_lines_out(i).return_status := l_return_status;
1321: p_multiple_task_msg := 'F';
1322: IF l_debug_mode = 'Y' THEN
1323: pa_debug.g_err_stage := 'Error inserting line '||i;
1324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1325: END IF;
1326:
1327: -- RAISE FND_API.G_EXC_ERROR;
1328:
1328:
1329: END IF;
1330:
1331: IF l_debug_mode = 'Y' THEN
1332: pa_debug.g_err_stage := 'Done with the insertion of line '||i;
1333: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1334: END IF;
1335:
1336:
1329: END IF;
1330:
1331: IF l_debug_mode = 'Y' THEN
1332: pa_debug.g_err_stage := 'Done with the insertion of line '||i;
1333: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1334: END IF;
1335:
1336:
1337: i := l_budget_lines_in.next(i);
1361:
1362: END IF;
1363:
1364: IF l_debug_mode = 'Y' THEN
1365: pa_debug.g_err_stage := 'l_allow_qty_flag is '||l_allow_qty_flag;
1366: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1367: END IF;
1368:
1369: --Call the api only if budget lines exist
1362: END IF;
1363:
1364: IF l_debug_mode = 'Y' THEN
1365: pa_debug.g_err_stage := 'l_allow_qty_flag is '||l_allow_qty_flag;
1366: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1367: END IF;
1368:
1369: --Call the api only if budget lines exist
1370: -- dbms_output.put_line('l_budget_lines_in.last '||l_budget_lines_in.last);
1370: -- dbms_output.put_line('l_budget_lines_in.last '||l_budget_lines_in.last);
1371: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1372:
1373: IF l_debug_mode = 'Y' THEN
1374: pa_debug.g_err_stage := 'About to call validate budget lines in finplan model';
1375: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1376: END IF;
1377:
1378: --Added by Xin Liu. Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
1371: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
1372:
1373: IF l_debug_mode = 'Y' THEN
1374: pa_debug.g_err_stage := 'About to call validate budget lines in finplan model';
1375: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1376: END IF;
1377:
1378: --Added by Xin Liu. Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
1379: FOR i in l_budget_lines_in.FIRST..l_budget_lines_in.LAST LOOP
1645:
1646: END IF;
1647:
1648: IF l_debug_mode = 'Y' THEN
1649: pa_debug.g_err_stage := 'Validate budget lines got executed successfully';
1650: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1651: END IF;
1652:
1653: -- Initialise the index for the fin plan lines table
1646: END IF;
1647:
1648: IF l_debug_mode = 'Y' THEN
1649: pa_debug.g_err_stage := 'Validate budget lines got executed successfully';
1650: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1651: END IF;
1652:
1653: -- Initialise the index for the fin plan lines table
1654: j :=1;
1976:
1977: END LOOP;--Loop for copying fin plan lines into table of type rollup temp
1978:
1979: IF l_debug_mode = 'Y' THEN
1980: pa_debug.g_err_stage := 'Done with the copying of budget lines to fin plan lines';
1981: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1982: END IF;
1983:
1984: END IF;
1977: END LOOP;--Loop for copying fin plan lines into table of type rollup temp
1978:
1979: IF l_debug_mode = 'Y' THEN
1980: pa_debug.g_err_stage := 'Done with the copying of budget lines to fin plan lines';
1981: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1982: END IF;
1983:
1984: END IF;
1985:
1983:
1984: END IF;
1985:
1986: IF l_debug_mode = 'Y' THEN
1987: pa_debug.g_err_stage := 'About to call the create draft api in fin plan pvt';
1988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1989: END IF;
1990:
1991: -- If either of the create , replace current working version flags are Y then lock the
1984: END IF;
1985:
1986: IF l_debug_mode = 'Y' THEN
1987: pa_debug.g_err_stage := 'About to call the create draft api in fin plan pvt';
1988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1989: END IF;
1990:
1991: -- If either of the create , replace current working version flags are Y then lock the
1992: -- Current working version.
2030:
2031: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2032:
2033: IF l_debug_mode = 'Y' THEN
2034: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2036: END IF;
2037: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2038:
2031: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2032:
2033: IF l_debug_mode = 'Y' THEN
2034: pa_debug.g_err_stage := 'Error executing get refresh plan ele dtls';
2035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2036: END IF;
2037: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2038:
2039: END IF;
2040:
2041: IF ( NVL(l_refresh_required_flag, 'N') = 'Y' ) THEN
2042:
2043: IF l_debug_mode = 'Y' THEN
2044: pa_debug.g_err_stage := 'Plan version must be refreshed for new plannable-task state.';
2045: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2046: END IF;
2047:
2048: pa_interface_utils_pub.map_new_amg_msg
2041: IF ( NVL(l_refresh_required_flag, 'N') = 'Y' ) THEN
2042:
2043: IF l_debug_mode = 'Y' THEN
2044: pa_debug.g_err_stage := 'Plan version must be refreshed for new plannable-task state.';
2045: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2046: END IF;
2047:
2048: pa_interface_utils_pub.map_new_amg_msg
2049: ( p_old_message_code => 'PA_FP_AMG_WBS_IN_PROC_MSG'
2084:
2085: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2086:
2087: IF l_debug_mode = 'Y' THEN
2088: pa_debug.g_err_stage := 'Error executing lock unlock version';
2089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2090: END IF;
2091: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2092:
2085: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2086:
2087: IF l_debug_mode = 'Y' THEN
2088: pa_debug.g_err_stage := 'Error executing lock unlock version';
2089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2090: END IF;
2091: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2092:
2093: END IF;
2188:
2189: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2190:
2191: IF l_debug_mode = 'Y' THEN
2192: pa_debug.g_err_stage := 'Error executing lock unlock version';
2193: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2194: END IF;
2195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2196: END IF;
2189: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2190:
2191: IF l_debug_mode = 'Y' THEN
2192: pa_debug.g_err_stage := 'Error executing lock unlock version';
2193: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2194: END IF;
2195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2196: END IF;
2197: END IF;
2198: --Changes ended for Bug #4680197
2199:
2200:
2201: IF l_debug_mode = 'Y' THEN
2202: pa_debug.g_err_stage := 'Succesfully executed the fin plan pvt create draft ';
2203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2204: END IF;
2205:
2206:
2199:
2200:
2201: IF l_debug_mode = 'Y' THEN
2202: pa_debug.g_err_stage := 'Succesfully executed the fin plan pvt create draft ';
2203: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2204: END IF;
2205:
2206:
2207:
2207:
2208: END IF;--IF p_budget_type_code IS NOT NULL
2209:
2210: IF l_debug_mode = 'Y' THEN
2211: pa_debug.g_err_stage := 'About to check the overlapping dates';
2212: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2213: END IF;
2214:
2215: -- check for overlapping dates
2208: END IF;--IF p_budget_type_code IS NOT NULL
2209:
2210: IF l_debug_mode = 'Y' THEN
2211: pa_debug.g_err_stage := 'About to check the overlapping dates';
2212: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2213: END IF;
2214:
2215: -- check for overlapping dates
2216: pa_budget_lines_v_pkg.check_overlapping_dates( x_budget_version_id => l_budget_version_id
2228: FND_MSG_PUB.add;
2229: END IF;
2230:
2231: IF l_debug_mode = 'Y' THEN
2232: pa_debug.g_err_stage := 'Error executing check_overlapping_dates';
2233: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2234: END IF;
2235:
2236:
2229: END IF;
2230:
2231: IF l_debug_mode = 'Y' THEN
2232: pa_debug.g_err_stage := 'Error executing check_overlapping_dates';
2233: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2234: END IF;
2235:
2236:
2237: RAISE FND_API.G_EXC_ERROR;
2249:
2250: END IF;
2251:
2252: IF l_debug_mode = 'Y' THEN
2253: pa_debug.g_err_stage := 'Unexpected Error executing check_overlapping_dates';
2254: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2255: END IF;
2256:
2257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2250: END IF;
2251:
2252: IF l_debug_mode = 'Y' THEN
2253: pa_debug.g_err_stage := 'Unexpected Error executing check_overlapping_dates';
2254: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2255: END IF;
2256:
2257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2258:
2276:
2277: END IF;
2278:
2279: IF l_debug_mode = 'Y' THEN
2280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS got executed successfully';
2281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2282: END IF;
2283:
2284:
2277: END IF;
2278:
2279: IF l_debug_mode = 'Y' THEN
2280: pa_debug.g_err_stage := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS got executed successfully';
2281: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2282: END IF;
2283:
2284:
2285: --summarizing the totals in the table pa_budget_versions
2287: /*Summarizing of totals should be done only in the buget model*/
2288: IF (p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR and p_budget_type_code IS NOT NULL) THEN
2289:
2290: IF l_debug_mode = 'Y' THEN
2291: pa_debug.g_err_stage := 'About to summarize totals in budget model';
2292: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2293: END IF;
2294:
2295: pa_budget_utils.summerize_project_totals( x_budget_version_id => l_budget_version_id
2288: IF (p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR and p_budget_type_code IS NOT NULL) THEN
2289:
2290: IF l_debug_mode = 'Y' THEN
2291: pa_debug.g_err_stage := 'About to summarize totals in budget model';
2292: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2293: END IF;
2294:
2295: pa_budget_utils.summerize_project_totals( x_budget_version_id => l_budget_version_id
2296: , x_err_code => l_err_code
2331:
2332: END IF;
2333:
2334: IF l_debug_mode = 'Y' THEN
2335: pa_debug.g_err_stage := 'Error in summarizing totals in budget model';
2336: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2337: END IF;
2338:
2339:
2332: END IF;
2333:
2334: IF l_debug_mode = 'Y' THEN
2335: pa_debug.g_err_stage := 'Error in summarizing totals in budget model';
2336: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2337: END IF;
2338:
2339:
2340: RAISE FND_API.G_EXC_ERROR;
2352:
2353: END IF;
2354:
2355: IF l_debug_mode = 'Y' THEN
2356: pa_debug.g_err_stage := 'Unexpected Error in summarizing totals in budget model';
2357: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2358: END IF;
2359:
2360:
2353: END IF;
2354:
2355: IF l_debug_mode = 'Y' THEN
2356: pa_debug.g_err_stage := 'Unexpected Error in summarizing totals in budget model';
2357: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2358: END IF;
2359:
2360:
2361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: IF FND_API.TO_BOOLEAN( p_commit )
2370: THEN
2371:
2372: IF l_debug_mode = 'Y' THEN
2373: pa_debug.g_err_stage := 'About to do a COMMIT';
2374: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2375: END IF;
2376:
2377: COMMIT;
2370: THEN
2371:
2372: IF l_debug_mode = 'Y' THEN
2373: pa_debug.g_err_stage := 'About to do a COMMIT';
2374: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2375: END IF;
2376:
2377: COMMIT;
2378: END IF;
2377: COMMIT;
2378: END IF;
2379:
2380: IF l_debug_mode = 'Y' THEN
2381: pa_debug.g_err_stage := 'Leaving create draft budget';
2382: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2383: END IF;
2384:
2385: --Changes for bug 3182963
2378: END IF;
2379:
2380: IF l_debug_mode = 'Y' THEN
2381: pa_debug.g_err_stage := 'Leaving create draft budget';
2382: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2383: END IF;
2384:
2385: --Changes for bug 3182963
2386: IF l_debug_mode = 'Y' THEN
2383: END IF;
2384:
2385: --Changes for bug 3182963
2386: IF l_debug_mode = 'Y' THEN
2387: pa_debug.reset_curr_function;
2388: END IF;
2389:
2390:
2391: EXCEPTION
2416: p_msg_count := l_msg_count;
2417: END IF;
2418:
2419: IF l_debug_mode = 'Y' THEN
2420: pa_debug.reset_curr_function;
2421: END IF;
2422:
2423: -- dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2424:
2437: ( p_count => p_msg_count ,
2438: p_data => p_msg_data );
2439: --Changes for bug 3182963
2440: IF l_debug_mode = 'Y' THEN
2441: pa_debug.reset_curr_function;
2442: END IF;
2443:
2444:
2445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2456: p_data => p_msg_data );
2457:
2458: --Changes for bug 3182963
2459: IF l_debug_mode = 'Y' THEN
2460: pa_debug.reset_curr_function;
2461: END IF;
2462:
2463:
2464: WHEN ROW_ALREADY_LOCKED
2484: p_data => p_msg_data );
2485:
2486: --Changes for bug 3182963
2487: IF l_debug_mode = 'Y' THEN
2488: pa_debug.reset_curr_function;
2489: END IF;
2490:
2491:
2492: WHEN OTHERS
2511: p_data => p_msg_data );
2512:
2513: --Changes for bug 3182963
2514: IF l_debug_mode = 'Y' THEN
2515: pa_debug.reset_curr_function;
2516: END IF;
2517:
2518:
2519: END create_draft_budget;
3507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3508:
3509: END IF;
3510:
3511: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3512:
3513:
3514: pa_debug.set_curr_function( p_function => 'baseline_budget',
3515: p_debug_mode => l_debug_mode );
3510:
3511: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3512:
3513:
3514: pa_debug.set_curr_function( p_function => 'baseline_budget',
3515: p_debug_mode => l_debug_mode );
3516:
3517:
3518: --Initialize the message table if requested.
3562: ,p_attribute5 => '');
3563: END IF;
3564:
3565: IF l_debug_mode = 'Y' THEN
3566: pa_debug.g_err_stage:= 'Product code is missing';
3567: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3568: END IF;
3569:
3570: -- RAISE FND_API.G_EXC_ERROR;
3563: END IF;
3564:
3565: IF l_debug_mode = 'Y' THEN
3566: pa_debug.g_err_stage:= 'Product code is missing';
3567: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3568: END IF;
3569:
3570: -- RAISE FND_API.G_EXC_ERROR;
3571: l_any_error_occurred_flag := 'Y';
3598: p_return_status := FND_API.G_RET_STS_ERROR;
3599: -- RAISE FND_API.G_EXC_ERROR;
3600: l_any_error_occurred_flag := 'Y';
3601: IF l_debug_mode = 'Y' THEN
3602: pa_debug.g_err_stage:= 'Product code is invalid';
3603: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3604: END IF;
3605: -- dbms_output.put_line('Product Code is invalid');
3606: END IF;
3599: -- RAISE FND_API.G_EXC_ERROR;
3600: l_any_error_occurred_flag := 'Y';
3601: IF l_debug_mode = 'Y' THEN
3602: pa_debug.g_err_stage:= 'Product code is invalid';
3603: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3604: END IF;
3605: -- dbms_output.put_line('Product Code is invalid');
3606: END IF;
3607: -- dbms_output.put_line('Validated the code');
3691:
3692: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
3693:
3694: IF l_debug_mode = 'Y' THEN
3695: pa_debug.g_err_stage:= 'Convert_pm_projref_to_id returned status '||l_return_status;
3696: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3697: END IF;
3698:
3699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3692: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
3693:
3694: IF l_debug_mode = 'Y' THEN
3695: pa_debug.g_err_stage:= 'Convert_pm_projref_to_id returned status '||l_return_status;
3696: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3697: END IF;
3698:
3699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3700: THEN
3722: ,p_attribute5 => '');
3723: END IF;
3724:
3725: IF l_debug_mode = 'Y' THEN
3726: pa_debug.g_err_stage:= 'Project id is null ';
3727: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3728: END IF;
3729:
3730: RAISE FND_API.G_EXC_ERROR;
3723: END IF;
3724:
3725: IF l_debug_mode = 'Y' THEN
3726: pa_debug.g_err_stage:= 'Project id is null ';
3727: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3728: END IF;
3729:
3730: RAISE FND_API.G_EXC_ERROR;
3731:
3763: (p_app_short_name => 'PA',
3764: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
3765:
3766: IF l_debug_mode = 'Y' THEN
3767: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are null ';
3768: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3769: END IF;
3770:
3771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3764: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
3765:
3766: IF l_debug_mode = 'Y' THEN
3767: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are null ';
3768: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3769: END IF;
3770:
3771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3772:
3782: (p_app_short_name => 'PA',
3783: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
3784:
3785: IF l_debug_mode = 'Y' THEN
3786: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are not null ';
3787: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3788: END IF;
3789:
3790: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3783: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
3784:
3785: IF l_debug_mode = 'Y' THEN
3786: pa_debug.g_err_stage:= 'budget type code and fin plan type id, both are not null ';
3787: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3788: END IF;
3789:
3790: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3791:
3809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3810: l_security_ret_code = 'N' THEN
3811:
3812: IF l_debug_mode = 'Y' THEN
3813: pa_debug.g_err_stage := 'Security API failed' ;
3814: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3815: END IF;
3816:
3817: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3810: l_security_ret_code = 'N' THEN
3811:
3812: IF l_debug_mode = 'Y' THEN
3813: pa_debug.g_err_stage := 'Security API failed' ;
3814: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3815: END IF;
3816:
3817: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3818:
3841: END IF;
3842:
3843: CLOSE l_budget_types_csr;
3844: IF l_debug_mode = 'Y' THEN
3845: pa_debug.g_err_stage:= 'Invalid budget type ';
3846: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3847: END IF;
3848:
3849: RAISE FND_API.G_EXC_ERROR;
3842:
3843: CLOSE l_budget_types_csr;
3844: IF l_debug_mode = 'Y' THEN
3845: pa_debug.g_err_stage:= 'Invalid budget type ';
3846: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3847: END IF;
3848:
3849: RAISE FND_API.G_EXC_ERROR;
3850:
3861: (p_app_short_name => 'PA',
3862: p_msg_name => 'PA_FP_CANT_BLINE_FCST_BUD_TYPE');
3863: END IF;
3864: IF l_debug_mode = 'Y' THEN
3865: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3866: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3867: END IF;
3868: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3869: END IF;
3862: p_msg_name => 'PA_FP_CANT_BLINE_FCST_BUD_TYPE');
3863: END IF;
3864: IF l_debug_mode = 'Y' THEN
3865: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
3866: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
3867: END IF;
3868: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3869: END IF;
3870:
3886:
3887: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3888:
3889: IF l_debug_mode = 'Y' THEN
3890: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
3891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3892: END IF;
3893:
3894:
3887: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3888:
3889: IF l_debug_mode = 'Y' THEN
3890: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
3891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3892: END IF;
3893:
3894:
3895: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3903: FETCH l_plan_type_option_csr INTO l_dummy;
3904: IF l_plan_type_option_csr%NOTFOUND THEN
3905:
3906: IF l_debug_mode = 'Y' THEN
3907: pa_debug.g_err_stage := 'Plan type options does not exiss' ;
3908: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3909: END IF;
3910:
3911: SELECT name
3904: IF l_plan_type_option_csr%NOTFOUND THEN
3905:
3906: IF l_debug_mode = 'Y' THEN
3907: pa_debug.g_err_stage := 'Plan type options does not exiss' ;
3908: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3909: END IF;
3910:
3911: SELECT name
3912: INTO l_fin_plan_type_name
3924:
3925: CLOSE l_plan_type_option_csr;
3926:
3927: IF l_debug_mode = 'Y' THEN
3928: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3929: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3930: END IF;
3931:
3932: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3925: CLOSE l_plan_type_option_csr;
3926:
3927: IF l_debug_mode = 'Y' THEN
3928: pa_debug.g_err_stage:= 'Plan type is not yet added to the project';
3929: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3930: END IF;
3931:
3932: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3933:
3957: -- dbms_output.put_line('Got the version type');
3958: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3959:
3960: IF l_debug_mode = 'Y' THEN
3961: pa_debug.g_err_stage := 'get_version_type failed' ;
3962: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3963: END IF;
3964:
3965: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3958: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3959:
3960: IF l_debug_mode = 'Y' THEN
3961: pa_debug.g_err_stage := 'get_version_type failed' ;
3962: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3963: END IF;
3964:
3965: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3966:
3980: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
3981: l_security_ret_code = 'N' THEN
3982:
3983: IF l_debug_mode = 'Y' THEN
3984: pa_debug.g_err_stage := 'Security API failed' ;
3985: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3986: END IF;
3987:
3988: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3981: l_security_ret_code = 'N' THEN
3982:
3983: IF l_debug_mode = 'Y' THEN
3984: pa_debug.g_err_stage := 'Security API failed' ;
3985: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3986: END IF;
3987:
3988: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3989:
4030:
4031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4032: THEN
4033: IF l_debug_mode = 'Y' THEN
4034: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
4035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4036: END IF;
4037:
4038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4032: THEN
4033: IF l_debug_mode = 'Y' THEN
4034: pa_debug.g_err_stage := 'Unexpected error in budget ctrl options' ;
4035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4036: END IF;
4037:
4038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4039:
4144: CLOSE l_budget_versions_csr;
4145: RAISE FND_API.G_EXC_ERROR;
4146:
4147: IF l_debug_mode = 'Y' THEN
4148: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4149: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4150: END IF;
4151: l_any_error_occurred_flag := 'Y';
4152: ELSE
4145: RAISE FND_API.G_EXC_ERROR;
4146:
4147: IF l_debug_mode = 'Y' THEN
4148: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4149: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4150: END IF;
4151: l_any_error_occurred_flag := 'Y';
4152: ELSE
4153:
4170: ,x_msg_data => l_msg_data );
4171:
4172: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4173: IF l_debug_mode = 'Y' THEN
4174: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4176: END IF;
4177: l_any_error_occurred_flag := 'Y';
4178: END IF;
4171:
4172: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4173: IF l_debug_mode = 'Y' THEN
4174: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4175: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4176: END IF;
4177: l_any_error_occurred_flag := 'Y';
4178: END IF;
4179:
4196: -- Current working version
4197: RAISE FND_API.G_EXC_ERROR;
4198: l_any_error_occurred_flag := 'Y';
4199: IF l_debug_mode = 'Y' THEN
4200: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4202: END IF;
4203:
4204: END IF;
4197: RAISE FND_API.G_EXC_ERROR;
4198: l_any_error_occurred_flag := 'Y';
4199: IF l_debug_mode = 'Y' THEN
4200: pa_debug.g_err_stage := 'Curr working version does not exist' ;
4201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4202: END IF;
4203:
4204: END IF;
4205:
4212: ,x_msg_data => l_msg_data);
4213:
4214: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4215: IF l_debug_mode = 'Y' THEN
4216: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4217: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4218: END IF;
4219: l_any_error_occurred_flag := 'Y';
4220: END IF;
4213:
4214: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4215: IF l_debug_mode = 'Y' THEN
4216: pa_debug.g_err_stage := 'Unexpected error in Get_Baselined_Version_Info' ;
4217: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4218: END IF;
4219: l_any_error_occurred_flag := 'Y';
4220: END IF;
4221:
4241: ,x_msg_data => p_msg_data );
4242:
4243: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4244: IF(l_debug_mode='Y') THEN
4245: pa_debug.g_err_stage := 'Auto baseline API falied';
4246: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4247: END IF;
4248: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4249: END IF;
4242:
4243: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4244: IF(l_debug_mode='Y') THEN
4245: pa_debug.g_err_stage := 'Auto baseline API falied';
4246: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4247: END IF;
4248: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4249: END IF;
4250:
4250:
4251:
4252: IF l_result = 'F' THEN
4253: IF(l_debug_mode='Y') THEN
4254: pa_debug.g_err_stage := 'Auto baseline checks falied';
4255: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4256: END IF;
4257: l_any_error_occurred_flag:='Y';
4258: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4251:
4252: IF l_result = 'F' THEN
4253: IF(l_debug_mode='Y') THEN
4254: pa_debug.g_err_stage := 'Auto baseline checks falied';
4255: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4256: END IF;
4257: l_any_error_occurred_flag:='Y';
4258: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4259: ,p_msg_name => 'PA_FP_APP_REV_BL_VER_AB_PROJ'
4299:
4300: CLOSE l_budget_lines_csr;
4301: l_any_error_occurred_flag := 'Y';
4302: IF l_debug_mode = 'Y' THEN
4303: pa_debug.g_err_stage := 'Budget Lines do not exist for current working version' ;
4304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4305: END IF;
4306: ELSE
4307: CLOSE l_budget_lines_csr;
4300: CLOSE l_budget_lines_csr;
4301: l_any_error_occurred_flag := 'Y';
4302: IF l_debug_mode = 'Y' THEN
4303: pa_debug.g_err_stage := 'Budget Lines do not exist for current working version' ;
4304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4305: END IF;
4306: ELSE
4307: CLOSE l_budget_lines_csr;
4308:
4329:
4330: CLOSE l_resource_assignments_csr;
4331: l_any_error_occurred_flag := 'Y';
4332: IF l_debug_mode = 'Y' THEN
4333: pa_debug.g_err_stage := 'Budget Lines do not exist for current working version' ;
4334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4335: END IF;
4336: ELSE
4337: CLOSE l_resource_assignments_csr;
4330: CLOSE l_resource_assignments_csr;
4331: l_any_error_occurred_flag := 'Y';
4332: IF l_debug_mode = 'Y' THEN
4333: pa_debug.g_err_stage := 'Budget Lines do not exist for current working version' ;
4334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4335: END IF;
4336: ELSE
4337: CLOSE l_resource_assignments_csr;
4338:
4410: IF p_budget_type_code IS NOT NULL
4411: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4412:
4413: IF l_debug_mode = 'Y' THEN
4414: pa_debug.g_err_stage := 'About to verify the budget rules in budget model' ;
4415: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4416: END IF;
4417:
4418:
4411: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4412:
4413: IF l_debug_mode = 'Y' THEN
4414: pa_debug.g_err_stage := 'About to verify the budget rules in budget model' ;
4415: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4416: END IF;
4417:
4418:
4419: -- ------------------------------------------------------------------------------------
4557:
4558: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4559:
4560: IF l_debug_mode = 'Y' THEN
4561: pa_debug.g_err_stage := 'Error executing lock unlock version';
4562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4563: END IF;
4564: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4565:
4558: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4559:
4560: IF l_debug_mode = 'Y' THEN
4561: pa_debug.g_err_stage := 'Error executing lock unlock version';
4562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4563: END IF;
4564: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4565:
4566: END IF;
4639: -- Stop further processing if any errors are reported
4640: -- dbms_output.put_line('l_any_error_occurred_flag is '||l_any_error_occurred_flag);
4641: IF(l_any_error_occurred_flag='Y') THEN
4642: IF(l_debug_mode='Y') THEN
4643: pa_debug.g_err_stage := 'About to display all the messages';
4644: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4645: END IF;
4646: -- dbms_output.put_line('Displaying all messages');
4647: l_return_status := FND_API.G_RET_STS_ERROR;
4640: -- dbms_output.put_line('l_any_error_occurred_flag is '||l_any_error_occurred_flag);
4641: IF(l_any_error_occurred_flag='Y') THEN
4642: IF(l_debug_mode='Y') THEN
4643: pa_debug.g_err_stage := 'About to display all the messages';
4644: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
4645: END IF;
4646: -- dbms_output.put_line('Displaying all messages');
4647: l_return_status := FND_API.G_RET_STS_ERROR;
4648: l_any_error_occurred_flag := 'Y';
4728:
4729: END IF;
4730:
4731: IF l_debug_mode = 'Y' THEN
4732: pa_debug.g_err_stage := 'Budget rules verified' ;
4733: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4734: END IF;
4735:
4736: -- -------------------------------------------------------------------------------------
4729: END IF;
4730:
4731: IF l_debug_mode = 'Y' THEN
4732: pa_debug.g_err_stage := 'Budget rules verified' ;
4733: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4734: END IF;
4735:
4736: -- -------------------------------------------------------------------------------------
4737:
4746: IF p_budget_type_code IS NOT NULL
4747: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4748:
4749: IF l_debug_mode = 'Y' THEN
4750: pa_debug.g_err_stage := 'About to baseline the budget ' ;
4751: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4752: END IF;
4753:
4754: -- dbms_output.put_line('About to call the baseline api in budget core');
4747: AND p_budget_type_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
4748:
4749: IF l_debug_mode = 'Y' THEN
4750: pa_debug.g_err_stage := 'About to baseline the budget ' ;
4751: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4752: END IF;
4753:
4754: -- dbms_output.put_line('About to call the baseline api in budget core');
4755: pa_budget_core.baseline ( x_draft_version_id => l_curr_working_version_id
4841: --Get the record version number of the current working version (As it will be incremented by the lock_unlock_version)
4842: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4843:
4844: IF l_debug_mode = 'Y' THEN
4845: pa_debug.g_err_stage := 'About to baseline the finplan ' ;
4846: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4847: END IF;
4848:
4849: -- dbms_output.put_line('About to call baseline api');
4842: l_CW_record_version_number :=pa_fin_plan_utils.Retrieve_Record_Version_Number(l_curr_working_version_id);
4843:
4844: IF l_debug_mode = 'Y' THEN
4845: pa_debug.g_err_stage := 'About to baseline the finplan ' ;
4846: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4847: END IF;
4848:
4849: -- dbms_output.put_line('About to call baseline api');
4850:
4874:
4875: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4876:
4877: IF l_debug_mode = 'Y' THEN
4878: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4879: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4880: END IF;
4881: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4882:
4875: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4876:
4877: IF l_debug_mode = 'Y' THEN
4878: pa_debug.g_err_stage:= 'Error in fin plan pub baseline ';
4879: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4880: END IF;
4881: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4882:
4883: END IF;
4888: --as the orginal version
4889: IF (l_mark_as_original = 'Y') THEN
4890:
4891: IF l_debug_mode = 'Y' THEN
4892: pa_debug.g_err_stage := 'About to mark the created version as original baselined ' ;
4893: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4894: END IF;
4895:
4896: -- Fetch the details current baselined version
4889: IF (l_mark_as_original = 'Y') THEN
4890:
4891: IF l_debug_mode = 'Y' THEN
4892: pa_debug.g_err_stage := 'About to mark the created version as original baselined ' ;
4893: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4894: END IF;
4895:
4896: -- Fetch the details current baselined version
4897: pa_fin_plan_utils.Get_Baselined_Version_Info(
4935: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
4936: l_msg_count <> 0THEN
4937:
4938: IF l_debug_mode = 'Y' THEN
4939: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4940: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4941: END IF;
4942: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4943:
4936: l_msg_count <> 0THEN
4937:
4938: IF l_debug_mode = 'Y' THEN
4939: pa_debug.g_err_stage:= 'Error while marking the newly created version as the original version ';
4940: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level5);
4941: END IF;
4942: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4943:
4944: END IF;
4959:
4960: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4961:
4962: IF l_debug_mode = 'Y' THEN
4963: pa_debug.g_err_stage := 'Error executing lock unlock version';
4964: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4965: END IF;
4966: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4967:
4960: IF p_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4961:
4962: IF l_debug_mode = 'Y' THEN
4963: pa_debug.g_err_stage := 'Error executing lock unlock version';
4964: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4965: END IF;
4966: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4967:
4968: END IF;
4978: COMMIT;
4979: END IF;
4980:
4981: IF l_debug_mode = 'Y' THEN
4982: pa_debug.g_err_stage:= 'Leaving baseline budget';
4983: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level3);
4984: END IF;
4985:
4986: pa_debug.reset_curr_function;
4979: END IF;
4980:
4981: IF l_debug_mode = 'Y' THEN
4982: pa_debug.g_err_stage:= 'Leaving baseline budget';
4983: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level3);
4984: END IF;
4985:
4986: pa_debug.reset_curr_function;
4987:
4982: pa_debug.g_err_stage:= 'Leaving baseline budget';
4983: pa_debug.write('baseline_budget ' || g_module_name,pa_debug.g_err_stage,l_debug_level3);
4984: END IF;
4985:
4986: pa_debug.reset_curr_function;
4987:
4988:
4989: EXCEPTION
4990:
5009: p_msg_count := l_msg_count;
5010: ELSE
5011: p_msg_count := l_msg_count;
5012: END IF;
5013: pa_debug.reset_curr_function;
5014:
5015: RETURN;
5016:
5017: WHEN FND_API.G_EXC_ERROR
5025: FND_MSG_PUB.Count_And_Get
5026: ( p_count => p_msg_count ,
5027: p_data => p_msg_data );
5028:
5029: pa_debug.reset_curr_function;
5030:
5031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5032: THEN
5033:
5039: FND_MSG_PUB.Count_And_Get
5040: ( p_count => p_msg_count ,
5041: p_data => p_msg_data );
5042:
5043: pa_debug.reset_curr_function;
5044:
5045: WHEN ROW_ALREADY_LOCKED
5046: THEN
5047:
5064: FND_MSG_PUB.Count_And_Get
5065: (p_count => p_msg_count
5066: , p_data => p_msg_data
5067: );
5068: pa_debug.reset_curr_function;
5069:
5070:
5071: WHEN OTHERS
5072: THEN
5087: FND_MSG_PUB.Count_And_Get
5088: ( p_count => p_msg_count ,
5089: p_data => p_msg_data );
5090:
5091: pa_debug.reset_curr_function;
5092:
5093:
5094: END baseline_budget;
5095:
5245: SAVEPOINT add_budget_line_pub;
5246:
5247: p_msg_count := 0;
5248: p_return_status := FND_API.G_RET_STS_SUCCESS;
5249: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5250: l_module_name := g_module_name || ':Add_Budget_Line';
5251:
5252: IF ( l_debug_mode = 'Y' )
5253: THEN
5250: l_module_name := g_module_name || ':Add_Budget_Line';
5251:
5252: IF ( l_debug_mode = 'Y' )
5253: THEN
5254: pa_debug.set_curr_function( p_function => 'Add_Budget_Line',
5255: p_debug_mode => l_debug_mode );
5256: END IF;
5257:
5258: IF ( l_debug_mode = 'Y' )
5256: END IF;
5257:
5258: IF ( l_debug_mode = 'Y' )
5259: THEN
5260: pa_debug.g_err_stage:='Entering ' || l_api_name;
5261: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5262: END IF;
5263:
5264: --Initialize the message table if requested.
5257:
5258: IF ( l_debug_mode = 'Y' )
5259: THEN
5260: pa_debug.g_err_stage:='Entering ' || l_api_name;
5261: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5262: END IF;
5263:
5264: --Initialize the message table if requested.
5265: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5325: ,x_return_status => p_return_status );
5326:
5327: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5328: IF(l_debug_mode='Y') THEN
5329: pa_debug.g_err_stage := 'validate header info API falied';
5330: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5331: END IF;
5332: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5333: END IF;
5326:
5327: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5328: IF(l_debug_mode='Y') THEN
5329: pa_debug.g_err_stage := 'validate header info API falied';
5330: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5331: END IF;
5332: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5333: END IF;
5334:
5413:
5414: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5415: THEN
5416: IF(l_debug_mode='Y') THEN
5417: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5419: END IF;
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421:
5414: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5415: THEN
5416: IF(l_debug_mode='Y') THEN
5417: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - unexpected error';
5418: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5419: END IF;
5420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5421:
5422: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5421:
5422: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5423: THEN
5424: IF(l_debug_mode='Y') THEN
5425: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5427: END IF;
5428: RAISE FND_API.G_EXC_ERROR;
5429: END IF;
5422: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
5423: THEN
5424: IF(l_debug_mode='Y') THEN
5425: pa_debug.g_err_stage := 'PA_BUDGET_PVT.insert_budget_line API falied - expected error';
5426: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5427: END IF;
5428: RAISE FND_API.G_EXC_ERROR;
5429: END IF;
5430:
5438: IF l_err_code > 0
5439: THEN
5440:
5441: IF(l_debug_mode='Y') THEN
5442: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5443: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5444: END IF;
5445:
5446: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5439: THEN
5440:
5441: IF(l_debug_mode='Y') THEN
5442: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5443: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5444: END IF;
5445:
5446: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5447: THEN
5456: ELSIF l_err_code < 0
5457: THEN
5458:
5459: IF(l_debug_mode='Y') THEN
5460: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5461: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5462: END IF;
5463:
5464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5457: THEN
5458:
5459: IF(l_debug_mode='Y') THEN
5460: pa_debug.g_err_stage := 'check_overlapping_dates API falied';
5461: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5462: END IF;
5463:
5464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5465: THEN
5483:
5484: IF l_err_code > 0 THEN
5485:
5486: IF(l_debug_mode='Y') THEN
5487: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5489: END IF;
5490:
5491: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5484: IF l_err_code > 0 THEN
5485:
5486: IF(l_debug_mode='Y') THEN
5487: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5488: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5489: END IF;
5490:
5491: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5492: THEN
5520:
5521: ELSIF l_err_code < 0 THEN
5522:
5523: IF(l_debug_mode='Y') THEN
5524: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5526: END IF;
5527:
5528: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5521: ELSIF l_err_code < 0 THEN
5522:
5523: IF(l_debug_mode='Y') THEN
5524: pa_debug.g_err_stage := 'summerize_project_totals API falied';
5525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5526: END IF;
5527:
5528: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5529: THEN
5782:
5783: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5784: THEN
5785: IF(l_debug_mode='Y') THEN
5786: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5788: END IF;
5789: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5790: END IF;
5783: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5784: THEN
5785: IF(l_debug_mode='Y') THEN
5786: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
5787: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5788: END IF;
5789: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5790: END IF;
5791:
5842: ,x_return_status => p_return_status );
5843:
5844: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5845: IF(l_debug_mode='Y') THEN
5846: pa_debug.g_err_stage := 'validate budget lines API falied';
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5848: END IF;
5849: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5850: END IF;
5843:
5844: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5845: IF(l_debug_mode='Y') THEN
5846: pa_debug.g_err_stage := 'validate budget lines API falied';
5847: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5848: END IF;
5849: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5850: END IF;
5851:
5923: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5924: -- Error message is not added here as the api lock_unlock_version
5925: -- adds the message to stack
5926: IF(l_debug_mode='Y') THEN
5927: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5928: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5929: END IF;
5930: RAISE FND_API.G_EXC_ERROR;
5931: END IF;
5924: -- Error message is not added here as the api lock_unlock_version
5925: -- adds the message to stack
5926: IF(l_debug_mode='Y') THEN
5927: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
5928: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5929: END IF;
5930: RAISE FND_API.G_EXC_ERROR;
5931: END IF;
5932:
5942:
5943: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5944: THEN
5945: IF(l_debug_mode='Y') THEN
5946: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5948: END IF;
5949: RAISE FND_API.G_EXC_ERROR;
5950: END IF;
5943: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
5944: THEN
5945: IF(l_debug_mode='Y') THEN
5946: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
5947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5948: END IF;
5949: RAISE FND_API.G_EXC_ERROR;
5950: END IF;
5951:
5967: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5968: -- Error message is not added here as the api lock_unlock_version
5969: -- adds the message to stack
5970: IF(l_debug_mode='Y') THEN
5971: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5972: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5973: END IF;
5974: RAISE FND_API.G_EXC_ERROR;
5975: END IF;
5968: -- Error message is not added here as the api lock_unlock_version
5969: -- adds the message to stack
5970: IF(l_debug_mode='Y') THEN
5971: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
5972: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
5973: END IF;
5974: RAISE FND_API.G_EXC_ERROR;
5975: END IF;
5976:
5983: COMMIT;
5984: END IF;
5985:
5986: IF(l_debug_mode='Y') THEN
5987: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
5988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5989: END IF;
5990:
5991: IF ( l_debug_mode = 'Y' ) THEN
5984: END IF;
5985:
5986: IF(l_debug_mode='Y') THEN
5987: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
5988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5989: END IF;
5990:
5991: IF ( l_debug_mode = 'Y' ) THEN
5992: pa_debug.reset_curr_function;
5988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5989: END IF;
5990:
5991: IF ( l_debug_mode = 'Y' ) THEN
5992: pa_debug.reset_curr_function;
5993: END IF;
5994:
5995: EXCEPTION
5996:
6016: p_msg_count := l_msg_count;
6017: END IF;
6018:
6019: IF ( l_debug_mode = 'Y' ) THEN
6020: pa_debug.reset_curr_function;
6021: END IF;
6022:
6023: RETURN;
6024:
6034: ( p_count => p_msg_count ,
6035: p_data => p_msg_data );
6036:
6037: IF ( l_debug_mode = 'Y' ) THEN
6038: pa_debug.reset_curr_function;
6039: END IF;
6040:
6041:
6042: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6050: ( p_count => p_msg_count ,
6051: p_data => p_msg_data );
6052:
6053: IF ( l_debug_mode = 'Y' ) THEN
6054: pa_debug.reset_curr_function;
6055: END IF;
6056:
6057:
6058: WHEN ROW_ALREADY_LOCKED
6078: ( p_count => p_msg_count ,
6079: p_data => p_msg_data );
6080:
6081: IF ( l_debug_mode = 'Y' ) THEN
6082: pa_debug.reset_curr_function;
6083: END IF;
6084:
6085:
6086: WHEN OTHERS
6101: ( p_count => p_msg_count ,
6102: p_data => p_msg_data );
6103:
6104: IF ( l_debug_mode = 'Y' ) THEN
6105: pa_debug.reset_curr_function;
6106: END IF;
6107:
6108: END Add_Budget_Line;
6109:
6262: END IF;
6263:
6264: p_msg_count := 0;
6265: p_return_status := FND_API.G_RET_STS_SUCCESS;
6266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6267:
6268: IF ( l_debug_mode = 'Y' )
6269: THEN
6270: pa_debug.set_curr_function( p_function => 'delete_draft_budget',
6266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6267:
6268: IF ( l_debug_mode = 'Y' )
6269: THEN
6270: pa_debug.set_curr_function( p_function => 'delete_draft_budget',
6271: p_debug_mode => l_debug_mode );
6272: END IF;
6273:
6274: -- Initialize the message table if requested.
6318: (p_app_short_name => 'PA',
6319: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
6320:
6321: IF l_debug_mode = 'Y' THEN
6322: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
6323: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6324: END IF;
6325:
6326: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6319: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
6320:
6321: IF l_debug_mode = 'Y' THEN
6322: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
6323: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6324: END IF;
6325:
6326: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6327:
6338: (p_app_short_name => 'PA',
6339: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
6340:
6341: IF l_debug_mode = 'Y' THEN
6342: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
6343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6344: END IF;
6345:
6346: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6339: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
6340:
6341: IF l_debug_mode = 'Y' THEN
6342: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
6343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6344: END IF;
6345:
6346: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6347:
6366: ,p_attribute4 => ''
6367: ,p_attribute5 => '');
6368: END IF;
6369: IF l_debug_mode = 'Y' THEN
6370: pa_debug.g_err_stage := 'Product code is missing' ;
6371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6372: END IF;
6373:
6374: -- RAISE FND_API.G_EXC_ERROR;
6367: ,p_attribute5 => '');
6368: END IF;
6369: IF l_debug_mode = 'Y' THEN
6370: pa_debug.g_err_stage := 'Product code is missing' ;
6371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6372: END IF;
6373:
6374: -- RAISE FND_API.G_EXC_ERROR;
6375: l_any_error_occurred_flag:='Y' ;
6399: p_return_status := FND_API.G_RET_STS_ERROR;
6400: --RAISE FND_API.G_EXC_ERROR;
6401: l_any_error_occurred_flag:='Y';
6402: IF l_debug_mode = 'Y' THEN
6403: pa_debug.g_err_stage := 'Product code is invalid' ;
6404: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6405: END IF;
6406:
6407: END IF;
6400: --RAISE FND_API.G_EXC_ERROR;
6401: l_any_error_occurred_flag:='Y';
6402: IF l_debug_mode = 'Y' THEN
6403: pa_debug.g_err_stage := 'Product code is invalid' ;
6404: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6405: END IF;
6406:
6407: END IF;
6408:
6418:
6419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6420: THEN
6421: IF l_debug_mode = 'Y' THEN
6422: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6423: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6424: END IF;
6425:
6426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6420: THEN
6421: IF l_debug_mode = 'Y' THEN
6422: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
6423: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6424: END IF;
6425:
6426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6427:
6427:
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6429: THEN
6430: IF l_debug_mode = 'Y' THEN
6431: pa_debug.g_err_stage := 'Error while getting project id' ;
6432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6433: END IF;
6434:
6435: RAISE FND_API.G_EXC_ERROR;
6428: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6429: THEN
6430: IF l_debug_mode = 'Y' THEN
6431: pa_debug.g_err_stage := 'Error while getting project id' ;
6432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6433: END IF;
6434:
6435: RAISE FND_API.G_EXC_ERROR;
6436:
6462: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR
6463: l_security_ret_code = 'N') THEN
6464: -- dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
6465: IF l_debug_mode = 'Y' THEN
6466: pa_debug.g_err_stage:= 'Security API Failed';
6467: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6468: END IF;
6469:
6470: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6463: l_security_ret_code = 'N') THEN
6464: -- dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
6465: IF l_debug_mode = 'Y' THEN
6466: pa_debug.g_err_stage:= 'Security API Failed';
6467: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6468: END IF;
6469:
6470: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6471: END IF;
6489: ,p_attribute4 => ''
6490: ,p_attribute5 => '');
6491: END IF;
6492: IF l_debug_mode = 'Y' THEN
6493: pa_debug.g_err_stage := 'Budget Type is invalid' ;
6494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6495: END IF;
6496:
6497:
6490: ,p_attribute5 => '');
6491: END IF;
6492: IF l_debug_mode = 'Y' THEN
6493: pa_debug.g_err_stage := 'Budget Type is invalid' ;
6494: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6495: END IF;
6496:
6497:
6498: CLOSE l_budget_type_csr;
6510: (p_app_short_name => 'PA',
6511: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
6512: END IF;
6513: IF l_debug_mode = 'Y' THEN
6514: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
6515: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6516: END IF;
6517: l_any_error_occurred_flag := 'Y';
6518: END IF;
6511: p_msg_name => 'PA_FP_CANT_EDIT_FCST_BUD_TYPE');
6512: END IF;
6513: IF l_debug_mode = 'Y' THEN
6514: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
6515: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6516: END IF;
6517: l_any_error_occurred_flag := 'Y';
6518: END IF;
6519:
6542: ,p_attribute4 => ''
6543: ,p_attribute5 => '');
6544: END IF;
6545: IF l_debug_mode = 'Y' THEN
6546: pa_debug.g_err_stage := 'Budget version does not exist' ;
6547: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6548: END IF;
6549:
6550:
6543: ,p_attribute5 => '');
6544: END IF;
6545: IF l_debug_mode = 'Y' THEN
6546: pa_debug.g_err_stage := 'Budget version does not exist' ;
6547: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6548: END IF;
6549:
6550:
6551: CLOSE l_budget_version_csr;
6561: --then we do not proceed with delete.
6562: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_id) )
6563: THEN
6564: IF(l_debug_mode='Y') THEN
6565: pa_debug.g_err_stage := 'Cannnot delete budget version - '
6566: || 'budgetary control is enabled';
6567: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6568: END IF;
6569:
6563: THEN
6564: IF(l_debug_mode='Y') THEN
6565: pa_debug.g_err_stage := 'Cannnot delete budget version - '
6566: || 'budgetary control is enabled';
6567: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6568: END IF;
6569:
6570: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6571: THEN
6589:
6590: --Stop Further processing if any errors are reported
6591: IF(l_any_error_occurred_flag='Y') THEN
6592: IF(l_debug_mode='Y') THEN
6593: pa_debug.g_err_stage := 'About to display all the messages';
6594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6595: END IF;
6596: p_return_status := FND_API.G_RET_STS_ERROR;
6597: l_any_error_occurred_flag := 'Y';
6590: --Stop Further processing if any errors are reported
6591: IF(l_any_error_occurred_flag='Y') THEN
6592: IF(l_debug_mode='Y') THEN
6593: pa_debug.g_err_stage := 'About to display all the messages';
6594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6595: END IF;
6596: p_return_status := FND_API.G_RET_STS_ERROR;
6597: l_any_error_occurred_flag := 'Y';
6598: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6611:
6612: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
6613: THEN
6614: IF(l_debug_mode='Y') THEN
6615: pa_debug.g_err_stage := 'Delete draft falied';
6616: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6617: END IF;
6618: pa_interface_utils_pub.map_new_amg_msg
6619: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
6612: IF NOT pa_project_pvt.check_valid_message(l_err_stage)
6613: THEN
6614: IF(l_debug_mode='Y') THEN
6615: pa_debug.g_err_stage := 'Delete draft falied';
6616: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6617: END IF;
6618: pa_interface_utils_pub.map_new_amg_msg
6619: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
6620: ,p_msg_attribute => 'CHANGE'
6626: ,p_attribute4 => ''
6627: ,p_attribute5 => '');
6628: ELSE
6629: IF(l_debug_mode='Y') THEN
6630: pa_debug.g_err_stage := 'Error in Delete draft';
6631: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6632: END IF;
6633:
6634: pa_interface_utils_pub.map_new_amg_msg
6627: ,p_attribute5 => '');
6628: ELSE
6629: IF(l_debug_mode='Y') THEN
6630: pa_debug.g_err_stage := 'Error in Delete draft';
6631: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6632: END IF;
6633:
6634: pa_interface_utils_pub.map_new_amg_msg
6635: ( p_old_message_code => l_err_stage
6653:
6654: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6655: THEN
6656: IF(l_debug_mode='Y') THEN
6657: pa_debug.g_err_stage := 'Unexpected Error in Delete draft';
6658: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6659: END IF;
6660:
6661: FND_MSG_PUB.add_exc_msg
6654: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6655: THEN
6656: IF(l_debug_mode='Y') THEN
6657: pa_debug.g_err_stage := 'Unexpected Error in Delete draft';
6658: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6659: END IF;
6660:
6661: FND_MSG_PUB.add_exc_msg
6662: ( p_pkg_name => 'PA_BUDGET_UTILS'
6686: -- Throw the error if the above API is not successfully executed
6687: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6688:
6689: IF l_debug_mode = 'Y' THEN
6690: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6692: END IF;
6693:
6694: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6687: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6688:
6689: IF l_debug_mode = 'Y' THEN
6690: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
6691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6692: END IF;
6693:
6694: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6695:
6712: (p_app_short_name => 'PA',
6713: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
6714: END IF;
6715: IF l_debug_mode = 'Y' THEN
6716: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
6717: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6718: END IF;
6719:
6720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6713: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
6714: END IF;
6715: IF l_debug_mode = 'Y' THEN
6716: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
6717: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6718: END IF;
6719:
6720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6721:
6740:
6741: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6742:
6743: IF l_debug_mode = 'Y' THEN
6744: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
6745: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6746: END IF;
6747: -- dbms_output.put_line('Exc in getting ver type');
6748:
6741: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6742:
6743: IF l_debug_mode = 'Y' THEN
6744: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
6745: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6746: END IF;
6747: -- dbms_output.put_line('Exc in getting ver type');
6748:
6749: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6764: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
6765: l_security_ret_code='N') THEN
6766: -- dbms_output.put_line('Exc in security');
6767: IF l_debug_mode = 'Y' THEN
6768: pa_debug.g_err_stage := 'Security API failed' ;
6769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6770: END IF;
6771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6772: END IF;
6765: l_security_ret_code='N') THEN
6766: -- dbms_output.put_line('Exc in security');
6767: IF l_debug_mode = 'Y' THEN
6768: pa_debug.g_err_stage := 'Security API failed' ;
6769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6770: END IF;
6771: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6772: END IF;
6773:
6811: ,p_token1 => 'BUDGET_VERSION_ID'
6812: ,p_value1 => l_budget_version_id);
6813: END IF;
6814: IF l_debug_mode = 'Y' THEN
6815: pa_debug.g_err_stage := 'i/p version is ci version' ;
6816: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6817: END IF;
6818: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6819: END IF;
6812: ,p_value1 => l_budget_version_id);
6813: END IF;
6814: IF l_debug_mode = 'Y' THEN
6815: pa_debug.g_err_stage := 'i/p version is ci version' ;
6816: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6817: END IF;
6818: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6819: END IF;
6820:
6821: END IF; --version_number IS NULL
6822:
6823: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6824: IF l_debug_mode = 'Y' THEN
6825: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6826: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6827: END IF;
6828:
6829: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6822:
6823: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6824: IF l_debug_mode = 'Y' THEN
6825: pa_debug.g_err_stage := 'get Version Id Failed ' ;
6826: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6827: END IF;
6828:
6829: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6830: END IF;
6850: ,p_value3 => ll_version_number );
6851: END IF;
6852:
6853: IF l_debug_mode = 'Y' THEN
6854: pa_debug.g_err_stage := 'Working Budget Version does not exist' ;
6855: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6856: END IF;
6857: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6858:
6851: END IF;
6852:
6853: IF l_debug_mode = 'Y' THEN
6854: pa_debug.g_err_stage := 'Working Budget Version does not exist' ;
6855: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6856: END IF;
6857: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6858:
6859: END IF;
6869: (p_app_short_name => 'PA',
6870: p_msg_name => 'PA_FP_CANT_DEL_ORG_FCST_PLAN');
6871: END IF;
6872: IF l_debug_mode = 'Y' THEN
6873: pa_debug.g_err_stage := 'Cannot delete draft budgets attached' ||
6874: 'to an organisation forecasting project';
6875: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6876: END IF;
6877:
6871: END IF;
6872: IF l_debug_mode = 'Y' THEN
6873: pa_debug.g_err_stage := 'Cannot delete draft budgets attached' ||
6874: 'to an organisation forecasting project';
6875: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6876: END IF;
6877:
6878: p_return_status := FND_API.G_RET_STS_ERROR;
6879: l_any_error_occurred_flag:='Y' ;
6895: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6896: -- Error message is not added here as the api lock_unlock_version
6897: -- adds the message to stack
6898: IF(l_debug_mode='Y') THEN
6899: pa_debug.g_err_stage := 'Failed in locking the version';
6900: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6901: END IF;
6902: l_any_error_occurred_flag:='Y';
6903: END IF;
6896: -- Error message is not added here as the api lock_unlock_version
6897: -- adds the message to stack
6898: IF(l_debug_mode='Y') THEN
6899: pa_debug.g_err_stage := 'Failed in locking the version';
6900: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6901: END IF;
6902: l_any_error_occurred_flag:='Y';
6903: END IF;
6904:
6904:
6905: --Stop Further processing if any errors are reported
6906: IF(l_any_error_occurred_flag='Y') THEN
6907: IF(l_debug_mode='Y') THEN
6908: pa_debug.g_err_stage := 'About to display all the messages';
6909: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6910: END IF;
6911: p_return_status := FND_API.G_RET_STS_ERROR;
6912: l_any_error_occurred_flag := 'Y';
6905: --Stop Further processing if any errors are reported
6906: IF(l_any_error_occurred_flag='Y') THEN
6907: IF(l_debug_mode='Y') THEN
6908: pa_debug.g_err_stage := 'About to display all the messages';
6909: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6910: END IF;
6911: p_return_status := FND_API.G_RET_STS_ERROR;
6912: l_any_error_occurred_flag := 'Y';
6913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6926:
6927: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6928:
6929: IF(l_debug_mode='Y') THEN
6930: pa_debug.g_err_stage := 'Failed in deleting the version';
6931: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6932: END IF;
6933: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6934: END IF;
6927: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6928:
6929: IF(l_debug_mode='Y') THEN
6930: pa_debug.g_err_stage := 'Failed in deleting the version';
6931: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
6932: END IF;
6933: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6934: END IF;
6935:
6993: END IF;
6994:
6995:
6996: IF(l_debug_mode='Y') THEN
6997: pa_debug.g_err_stage := 'Exiting delete draft budget';
6998: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
6999: END IF;
7000:
7001: IF ( l_debug_mode = 'Y' ) THEN
6994:
6995:
6996: IF(l_debug_mode='Y') THEN
6997: pa_debug.g_err_stage := 'Exiting delete draft budget';
6998: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
6999: END IF;
7000:
7001: IF ( l_debug_mode = 'Y' ) THEN
7002: pa_debug.reset_curr_function;
6998: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
6999: END IF;
7000:
7001: IF ( l_debug_mode = 'Y' ) THEN
7002: pa_debug.reset_curr_function;
7003: END IF;
7004:
7005: EXCEPTION
7006: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7021: ELSE
7022: p_msg_count := l_msg_count;
7023: END IF;
7024: IF ( l_debug_mode = 'Y' ) THEN
7025: pa_debug.reset_curr_function;
7026: END IF;
7027: RETURN;
7028:
7029: WHEN FND_API.G_EXC_ERROR
7036: FND_MSG_PUB.Count_And_Get
7037: ( p_count => p_msg_count ,
7038: p_data => p_msg_data );
7039: IF ( l_debug_mode = 'Y' ) THEN
7040: pa_debug.reset_curr_function;
7041: END IF;
7042:
7043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7044: THEN
7050: FND_MSG_PUB.Count_And_Get
7051: ( p_count => p_msg_count ,
7052: p_data => p_msg_data );
7053: IF ( l_debug_mode = 'Y' ) THEN
7054: pa_debug.reset_curr_function;
7055: END IF;
7056:
7057: WHEN ROW_ALREADY_LOCKED
7058: THEN
7075: FND_MSG_PUB.Count_And_Get
7076: ( p_count => p_msg_count ,
7077: p_data => p_msg_data );
7078: IF ( l_debug_mode = 'Y' ) THEN
7079: pa_debug.reset_curr_function;
7080: END IF;
7081:
7082: WHEN OTHERS THEN
7083:
7096: FND_MSG_PUB.Count_And_Get
7097: ( p_count => p_msg_count ,
7098: p_data => p_msg_data );
7099: IF ( l_debug_mode = 'Y' ) THEN
7100: pa_debug.reset_curr_function;
7101: END IF;
7102:
7103: END delete_draft_budget;
7104:
7258: SAVEPOINT delete_baseline_budget_pub;
7259:
7260: p_msg_count := 0;
7261: p_return_status := FND_API.G_RET_STS_SUCCESS;
7262: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7263:
7264: IF ( l_debug_mode = 'Y' )
7265: THEN
7266: pa_debug.set_curr_function( p_function => 'delete_baseline_budget',
7262: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7263:
7264: IF ( l_debug_mode = 'Y' )
7265: THEN
7266: pa_debug.set_curr_function( p_function => 'delete_baseline_budget',
7267: p_debug_mode => l_debug_mode );
7268: END IF;
7269:
7270: IF ( l_debug_mode = 'Y' )
7268: END IF;
7269:
7270: IF ( l_debug_mode = 'Y' )
7271: THEN
7272: pa_debug.g_err_stage:='Entering ' || l_api_name;
7273: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7274: END IF;
7275:
7276: --Initialize the message table if requested.
7269:
7270: IF ( l_debug_mode = 'Y' )
7271: THEN
7272: pa_debug.g_err_stage:='Entering ' || l_api_name;
7273: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7274: END IF;
7275:
7276: --Initialize the message table if requested.
7277:
7339: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
7340: END IF;
7341:
7342: IF l_debug_mode = 'Y' THEN
7343: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
7344: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7345: END IF;
7346:
7347: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7340: END IF;
7341:
7342: IF l_debug_mode = 'Y' THEN
7343: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
7344: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7345: END IF;
7346:
7347: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7348:
7360: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
7361: END IF;
7362:
7363: IF l_debug_mode = 'Y' THEN
7364: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
7365: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7366: END IF;
7367:
7368: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7361: END IF;
7362:
7363: IF l_debug_mode = 'Y' THEN
7364: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
7365: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7366: END IF;
7367:
7368: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7369:
7382: (p_app_short_name => 'PA',
7383: p_msg_name => 'PA_PRODUCT_CODE_IS_MISSING_AMG');
7384: END IF;
7385: IF l_debug_mode = 'Y' THEN
7386: pa_debug.g_err_stage := 'Product code is missing' ;
7387: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7388: END IF;
7389:
7390: p_return_status := FND_API.G_RET_STS_ERROR;
7383: p_msg_name => 'PA_PRODUCT_CODE_IS_MISSING_AMG');
7384: END IF;
7385: IF l_debug_mode = 'Y' THEN
7386: pa_debug.g_err_stage := 'Product code is missing' ;
7387: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7388: END IF;
7389:
7390: p_return_status := FND_API.G_RET_STS_ERROR;
7391: l_any_error_occurred_flag:='Y' ;
7408: END IF;
7409: p_return_status := FND_API.G_RET_STS_ERROR;
7410: l_any_error_occurred_flag:='Y';
7411: IF l_debug_mode = 'Y' THEN
7412: pa_debug.g_err_stage := 'Product code is invalid' ;
7413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7414: END IF;
7415:
7416: END IF; --l_pm_product_code <> 'X'
7409: p_return_status := FND_API.G_RET_STS_ERROR;
7410: l_any_error_occurred_flag:='Y';
7411: IF l_debug_mode = 'Y' THEN
7412: pa_debug.g_err_stage := 'Product code is invalid' ;
7413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7414: END IF;
7415:
7416: END IF; --l_pm_product_code <> 'X'
7417:
7427: (p_app_short_name => 'PA',
7428: p_msg_name => 'PA_FP_VERSION_NUMBER_REQD');
7429: END IF;
7430: IF l_debug_mode = 'Y' THEN
7431: pa_debug.g_err_stage := 'Version Number is missing' ;
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7433: END IF;
7434:
7435: p_return_status := FND_API.G_RET_STS_ERROR;
7428: p_msg_name => 'PA_FP_VERSION_NUMBER_REQD');
7429: END IF;
7430: IF l_debug_mode = 'Y' THEN
7431: pa_debug.g_err_stage := 'Version Number is missing' ;
7432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7433: END IF;
7434:
7435: p_return_status := FND_API.G_RET_STS_ERROR;
7436: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7447:
7448: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7449: THEN
7450: IF l_debug_mode = 'Y' THEN
7451: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7452: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7453: END IF;
7454:
7455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7448: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7449: THEN
7450: IF l_debug_mode = 'Y' THEN
7451: pa_debug.g_err_stage := 'Unexpected error while getting project id' ;
7452: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7453: END IF;
7454:
7455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7456:
7456:
7457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7458: THEN
7459: IF l_debug_mode = 'Y' THEN
7460: pa_debug.g_err_stage := 'Error while getting project id' ;
7461: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7462: END IF;
7463:
7464: RAISE FND_API.G_EXC_ERROR;
7457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7458: THEN
7459: IF l_debug_mode = 'Y' THEN
7460: pa_debug.g_err_stage := 'Error while getting project id' ;
7461: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7462: END IF;
7463:
7464: RAISE FND_API.G_EXC_ERROR;
7465:
7493: ,p_attribute4 => ''
7494: ,p_attribute5 => '');
7495: END IF;
7496: IF l_debug_mode = 'Y' THEN
7497: pa_debug.g_err_stage := 'Budget Type is invalid' ;
7498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7499: END IF;
7500:
7501: CLOSE l_budget_type_csr;
7494: ,p_attribute5 => '');
7495: END IF;
7496: IF l_debug_mode = 'Y' THEN
7497: pa_debug.g_err_stage := 'Budget Type is invalid' ;
7498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7499: END IF;
7500:
7501: CLOSE l_budget_type_csr;
7502: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7520: (p_app_short_name => 'PA',
7521: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7522: END IF;
7523: IF l_debug_mode = 'Y' THEN
7524: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7526: END IF;
7527:
7528: p_return_status := FND_API.G_RET_STS_ERROR;
7521: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7522: END IF;
7523: IF l_debug_mode = 'Y' THEN
7524: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7525: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7526: END IF;
7527:
7528: p_return_status := FND_API.G_RET_STS_ERROR;
7529: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7538: p_msg_name => 'PA_FP_DEL_CUR_OR_ORIG_BASELINE');
7539: END IF;
7540:
7541: IF l_debug_mode = 'Y' THEN
7542: pa_debug.g_err_stage := 'baseline versions marked as current' ||
7543: 'or current original can not be deleted';
7544: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7545: END IF;
7546:
7540:
7541: IF l_debug_mode = 'Y' THEN
7542: pa_debug.g_err_stage := 'baseline versions marked as current' ||
7543: 'or current original can not be deleted';
7544: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7545: END IF;
7546:
7547: p_return_status := FND_API.G_RET_STS_ERROR;
7548: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7574: -- validation fails.
7575: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR l_security_ret_code = 'N')
7576: THEN
7577: IF l_debug_mode = 'Y' THEN
7578: pa_debug.g_err_stage:= 'Security API Failed';
7579: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7580: END IF;
7581:
7582: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7575: IF (p_return_status<>FND_API.G_RET_STS_SUCCESS OR l_security_ret_code = 'N')
7576: THEN
7577: IF l_debug_mode = 'Y' THEN
7578: pa_debug.g_err_stage:= 'Security API Failed';
7579: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7580: END IF;
7581:
7582: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7583: END IF;
7588: --then we do not proceed with delete.
7589: IF ( PA_BUDGET_PVT.is_bc_enabled_for_budget(l_budget_version_no_rec.budget_version_id) )
7590: THEN
7591: IF(l_debug_mode='Y') THEN
7592: pa_debug.g_err_stage := 'Cannnot delete budget version - '
7593: || 'budgetary control is enabled';
7594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7595: END IF;
7596:
7590: THEN
7591: IF(l_debug_mode='Y') THEN
7592: pa_debug.g_err_stage := 'Cannnot delete budget version - '
7593: || 'budgetary control is enabled';
7594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7595: END IF;
7596:
7597: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7598: THEN
7614:
7615: --Stop Further processing if any errors are reported
7616: IF(l_any_error_occurred_flag='Y') THEN
7617: IF(l_debug_mode='Y') THEN
7618: pa_debug.g_err_stage := 'About to display all the messages';
7619: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7620: END IF;
7621: p_return_status := FND_API.G_RET_STS_ERROR;
7622: l_any_error_occurred_flag := 'Y';
7615: --Stop Further processing if any errors are reported
7616: IF(l_any_error_occurred_flag='Y') THEN
7617: IF(l_debug_mode='Y') THEN
7618: pa_debug.g_err_stage := 'About to display all the messages';
7619: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7620: END IF;
7621: p_return_status := FND_API.G_RET_STS_ERROR;
7622: l_any_error_occurred_flag := 'Y';
7623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7635: THEN
7636: IF NOT PA_PROJECT_PVT.check_valid_message(l_err_stage)
7637: THEN
7638: IF(l_debug_mode='Y') THEN
7639: pa_debug.g_err_stage := 'PA_BUDGET_UTILS.DELETE_DRAFT falied';
7640: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7641: END IF;
7642: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7643: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
7636: IF NOT PA_PROJECT_PVT.check_valid_message(l_err_stage)
7637: THEN
7638: IF(l_debug_mode='Y') THEN
7639: pa_debug.g_err_stage := 'PA_BUDGET_UTILS.DELETE_DRAFT falied';
7640: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7641: END IF;
7642: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7643: ( p_old_message_code => 'PA_DELETE_DRAFT_FAILED'
7644: ,p_msg_attribute => 'CHANGE'
7652:
7653: ELSE --valid error message has been returned by Delete_Draft
7654:
7655: IF(l_debug_mode='Y') THEN
7656: pa_debug.g_err_stage := 'Error in Delete_draft api';
7657: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7658: END IF;
7659: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7660: ( p_old_message_code => l_err_stage
7653: ELSE --valid error message has been returned by Delete_Draft
7654:
7655: IF(l_debug_mode='Y') THEN
7656: pa_debug.g_err_stage := 'Error in Delete_draft api';
7657: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7658: END IF;
7659: PA_INTERFACE_UTILS_PUB.map_new_amg_msg
7660: ( p_old_message_code => l_err_stage
7661: ,p_msg_attribute => 'CHANGE'
7675:
7676: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7677: THEN
7678: IF(l_debug_mode='Y') THEN
7679: pa_debug.g_err_stage := 'Unexpected Error in Delete_draft api';
7680: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7681: END IF;
7682:
7683: FND_MSG_PUB.add_exc_msg
7676: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7677: THEN
7678: IF(l_debug_mode='Y') THEN
7679: pa_debug.g_err_stage := 'Unexpected Error in Delete_draft api';
7680: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7681: END IF;
7682:
7683: FND_MSG_PUB.add_exc_msg
7684: ( p_pkg_name => 'PA_BUDGET_UTILS'
7702: ,x_msg_data => p_msg_data);
7703: --Throw the error if the above API is not successfully executed
7704: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7705: IF l_debug_mode = 'Y' THEN
7706: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7708: END IF;
7709: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7710:
7703: --Throw the error if the above API is not successfully executed
7704: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7705: IF l_debug_mode = 'Y' THEN
7706: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
7707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7708: END IF;
7709: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7710:
7711: END IF;
7725: (p_app_short_name => 'PA',
7726: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
7727: END IF;
7728: IF l_debug_mode = 'Y' THEN
7729: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
7730: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7731: END IF;
7732:
7733: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7726: p_msg_name => 'PA_FP_CANT_DEL_WP_DATA');
7727: END IF;
7728: IF l_debug_mode = 'Y' THEN
7729: pa_debug.g_err_stage := 'Fin Plan Type Id is used for WP' ;
7730: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7731: END IF;
7732:
7733: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7734:
7744: ,x_msg_data => p_msg_data);
7745:
7746: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7747: IF l_debug_mode = 'Y' THEN
7748: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7749: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7750: END IF;
7751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7752: END IF;
7745:
7746: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7747: IF l_debug_mode = 'Y' THEN
7748: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
7749: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7750: END IF;
7751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7752: END IF;
7753:
7765:
7766: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
7767: l_security_ret_code='N') THEN
7768: IF l_debug_mode = 'Y' THEN
7769: pa_debug.g_err_stage := 'Security API failed' ;
7770: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7771: END IF;
7772: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7773: END IF;
7766: IF (p_return_status <>FND_API.G_RET_STS_SUCCESS OR
7767: l_security_ret_code='N') THEN
7768: IF l_debug_mode = 'Y' THEN
7769: pa_debug.g_err_stage := 'Security API failed' ;
7770: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7771: END IF;
7772: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7773: END IF;
7774:
7789: (p_app_short_name => 'PA',
7790: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7791: END IF;
7792: IF l_debug_mode = 'Y' THEN
7793: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7794: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7795: END IF;
7796:
7797: p_return_status := FND_API.G_RET_STS_ERROR;
7790: p_msg_name => 'PA_FP_VERSION_NO_IS_INVALID');
7791: END IF;
7792: IF l_debug_mode = 'Y' THEN
7793: pa_debug.g_err_stage := 'Budget version number is invalid' ;
7794: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7795: END IF;
7796:
7797: p_return_status := FND_API.G_RET_STS_ERROR;
7798: l_any_error_occurred_flag:='Y' ;
7807: (p_app_short_name => 'PA',
7808: p_msg_name => 'PA_FP_CANT_DEL_ORG_FCST_PLAN');
7809: END IF;
7810: IF l_debug_mode = 'Y' THEN
7811: pa_debug.g_err_stage := 'Cannot delete baseline budgets attached' ||
7812: 'to an organisation forecasting project';
7813: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7814: END IF;
7815:
7809: END IF;
7810: IF l_debug_mode = 'Y' THEN
7811: pa_debug.g_err_stage := 'Cannot delete baseline budgets attached' ||
7812: 'to an organisation forecasting project';
7813: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
7814: END IF;
7815:
7816: p_return_status := FND_API.G_RET_STS_ERROR;
7817: l_any_error_occurred_flag:='Y' ;
7819:
7820: --Stop Further processing if any errors are reported
7821: IF(l_any_error_occurred_flag='Y') THEN
7822: IF(l_debug_mode='Y') THEN
7823: pa_debug.g_err_stage := 'About to display all the messages';
7824: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7825: END IF;
7826: p_return_status := FND_API.G_RET_STS_ERROR;
7827: l_any_error_occurred_flag := 'Y';
7820: --Stop Further processing if any errors are reported
7821: IF(l_any_error_occurred_flag='Y') THEN
7822: IF(l_debug_mode='Y') THEN
7823: pa_debug.g_err_stage := 'About to display all the messages';
7824: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7825: END IF;
7826: p_return_status := FND_API.G_RET_STS_ERROR;
7827: l_any_error_occurred_flag := 'Y';
7828: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7841:
7842: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7843:
7844: IF(l_debug_mode='Y') THEN
7845: pa_debug.g_err_stage := 'Failed in deleting the version';
7846: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7847: END IF;
7848: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7849: END IF;
7842: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7843:
7844: IF(l_debug_mode='Y') THEN
7845: pa_debug.g_err_stage := 'Failed in deleting the version';
7846: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
7847: END IF;
7848: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7849: END IF;
7850:
7904: COMMIT;
7905: END IF;
7906:
7907: IF(l_debug_mode='Y') THEN
7908: pa_debug.g_err_stage := 'Exiting delete baseline budget version';
7909: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7910: END IF;
7911:
7912: IF ( l_debug_mode = 'Y' ) THEN
7905: END IF;
7906:
7907: IF(l_debug_mode='Y') THEN
7908: pa_debug.g_err_stage := 'Exiting delete baseline budget version';
7909: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7910: END IF;
7911:
7912: IF ( l_debug_mode = 'Y' ) THEN
7913: pa_debug.reset_curr_function;
7909: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7910: END IF;
7911:
7912: IF ( l_debug_mode = 'Y' ) THEN
7913: pa_debug.reset_curr_function;
7914: END IF;
7915:
7916: EXCEPTION
7917: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc
7934: p_msg_count := l_msg_count;
7935: END IF;
7936:
7937: IF ( l_debug_mode = 'Y' ) THEN
7938: pa_debug.reset_curr_function;
7939: END IF;
7940:
7941: RETURN;
7942:
7951: ( p_count => p_msg_count ,
7952: p_data => p_msg_data );
7953:
7954: IF ( l_debug_mode = 'Y' ) THEN
7955: pa_debug.reset_curr_function;
7956: END IF;
7957:
7958: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7959: THEN
7966: ( p_count => p_msg_count ,
7967: p_data => p_msg_data );
7968:
7969: IF ( l_debug_mode = 'Y' ) THEN
7970: pa_debug.reset_curr_function;
7971: END IF;
7972:
7973: WHEN ROW_ALREADY_LOCKED
7974: THEN
7992: ( p_count => p_msg_count ,
7993: p_data => p_msg_data );
7994:
7995: IF ( l_debug_mode = 'Y' ) THEN
7996: pa_debug.reset_curr_function;
7997: END IF;
7998:
7999: WHEN OTHERS THEN
8000:
8014: ( p_count => p_msg_count ,
8015: p_data => p_msg_data );
8016:
8017: IF ( l_debug_mode = 'Y' ) THEN
8018: pa_debug.reset_curr_function;
8019: END IF;
8020:
8021: END delete_baseline_budget;
8022:
8262: SAVEPOINT delete_budget_line_pub;
8263:
8264: p_msg_count := 0;
8265: p_return_status := FND_API.G_RET_STS_SUCCESS;
8266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8267: l_module_name := g_module_name || ':Delete_Budget_Line ';
8268:
8269: IF ( l_debug_mode = 'Y' )
8270: THEN
8267: l_module_name := g_module_name || ':Delete_Budget_Line ';
8268:
8269: IF ( l_debug_mode = 'Y' )
8270: THEN
8271: pa_debug.set_curr_function( p_function => l_api_name
8272: ,p_debug_mode => l_debug_mode );
8273: END IF;
8274:
8275: IF ( l_debug_mode = 'Y' )
8273: END IF;
8274:
8275: IF ( l_debug_mode = 'Y' )
8276: THEN
8277: pa_debug.g_err_stage:='Entering ' || l_api_name;
8278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8279: END IF;
8280:
8281: --Initialize the message table if requested.
8274:
8275: IF ( l_debug_mode = 'Y' )
8276: THEN
8277: pa_debug.g_err_stage:='Entering ' || l_api_name;
8278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8279: END IF;
8280:
8281: --Initialize the message table if requested.
8282: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8329: ,x_return_status => p_return_status );
8330:
8331: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8332: IF(l_debug_mode='Y') THEN
8333: pa_debug.g_err_stage := 'validate header info API falied';
8334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8335: END IF;
8336: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8337: END IF;
8330:
8331: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8332: IF(l_debug_mode='Y') THEN
8333: pa_debug.g_err_stage := 'validate header info API falied';
8334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8335: END IF;
8336: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8337: END IF;
8338:
8654: ,p_value4 => to_char(l_start_date) );
8655: END IF;
8656:
8657: IF l_debug_mode = 'Y' THEN
8658: pa_debug.g_err_stage := 'For multi-currency enabled, currency code is'
8659: || 'null but start_date is not null';
8660: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8661: END IF;
8662:
8656:
8657: IF l_debug_mode = 'Y' THEN
8658: pa_debug.g_err_stage := 'For multi-currency enabled, currency code is'
8659: || 'null but start_date is not null';
8660: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8661: END IF;
8662:
8663: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8664: END IF;
8702: ,p_value5 => to_char(l_start_date) );
8703: END IF;
8704:
8705: IF l_debug_mode = 'Y' THEN
8706: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8708: END IF;
8709:
8710: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8703: END IF;
8704:
8705: IF l_debug_mode = 'Y' THEN
8706: pa_debug.g_err_stage := 'Forecast Line has actuals and hence cannot be edited';
8707: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8708: END IF;
8709:
8710: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8711: END IF;--end of actuals-on-FORECAST check
8914: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8915: -- Error message is not added here as the api lock_unlock_version
8916: -- adds the message to stack
8917: IF(l_debug_mode='Y') THEN
8918: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8919: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8920: END IF;
8921: RAISE FND_API.G_EXC_ERROR;
8922: END IF;
8915: -- Error message is not added here as the api lock_unlock_version
8916: -- adds the message to stack
8917: IF(l_debug_mode='Y') THEN
8918: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
8919: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8920: END IF;
8921: RAISE FND_API.G_EXC_ERROR;
8922: END IF;
8923:
8935: ,x_msg_data => p_msg_data
8936: );
8937: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8938: IF(l_debug_mode='Y') THEN
8939: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8940: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8941: END IF;
8942: RAISE FND_API.G_EXC_ERROR;
8943: END IF;
8936: );
8937: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8938: IF(l_debug_mode='Y') THEN
8939: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8940: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8941: END IF;
8942: RAISE FND_API.G_EXC_ERROR;
8943: END IF;
8944: /* End of code for Bug# 5998035 */
8960: END IF;
8961:
8962: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8963: IF(l_debug_mode='Y') THEN
8964: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8966: END IF;
8967: RAISE FND_API.G_EXC_ERROR;
8968: END IF;
8961:
8962: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8963: IF(l_debug_mode='Y') THEN
8964: pa_debug.g_err_stage := 'PA_FP_CALC_PLAN_PKG.calculate API has thrown error';
8965: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8966: END IF;
8967: RAISE FND_API.G_EXC_ERROR;
8968: END IF;
8969:
8984: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8985: -- Error message is not added here as the api lock_unlock_version
8986: -- adds the message to stack
8987: IF(l_debug_mode='Y') THEN
8988: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8989: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8990: END IF;
8991: RAISE FND_API.G_EXC_ERROR;
8992: END IF;
8985: -- Error message is not added here as the api lock_unlock_version
8986: -- adds the message to stack
8987: IF(l_debug_mode='Y') THEN
8988: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
8989: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8990: END IF;
8991: RAISE FND_API.G_EXC_ERROR;
8992: END IF;
8993:
8998: COMMIT;
8999: END IF;
9000:
9001: IF ( l_debug_mode = 'Y' ) THEN
9002: pa_debug.reset_curr_function;
9003: END IF;
9004:
9005:
9006: EXCEPTION
9027: p_msg_count := l_msg_count;
9028: END IF;
9029:
9030: IF ( l_debug_mode = 'Y' ) THEN
9031: pa_debug.reset_curr_function;
9032: END IF;
9033:
9034: RETURN;
9035:
9045: ( p_count => p_msg_count ,
9046: p_data => p_msg_data );
9047:
9048: IF ( l_debug_mode = 'Y' ) THEN
9049: pa_debug.reset_curr_function;
9050: END IF;
9051:
9052:
9053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9061: ( p_count => p_msg_count ,
9062: p_data => p_msg_data );
9063:
9064: IF ( l_debug_mode = 'Y' ) THEN
9065: pa_debug.reset_curr_function;
9066: END IF;
9067:
9068:
9069: WHEN ROW_ALREADY_LOCKED
9088: ( p_count => p_msg_count ,
9089: p_data => p_msg_data );
9090:
9091: IF ( l_debug_mode = 'Y' ) THEN
9092: pa_debug.reset_curr_function;
9093: END IF;
9094:
9095:
9096: WHEN OTHERS THEN
9111: ( p_count => p_msg_count ,
9112: p_data => p_msg_data );
9113:
9114: IF ( l_debug_mode = 'Y' ) THEN
9115: pa_debug.reset_curr_function;
9116: END IF;
9117:
9118: END delete_budget_line;
9119:
9822: ,x_return_status => p_return_status );
9823:
9824: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9825: IF(l_debug_mode='Y') THEN
9826: pa_debug.g_err_stage := 'validate header info API falied';
9827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9828: END IF;
9829: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9830: END IF;
9823:
9824: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9825: IF(l_debug_mode='Y') THEN
9826: pa_debug.g_err_stage := 'validate header info API falied';
9827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9828: END IF;
9829: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9830: END IF;
9831:
9901:
9902: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9903:
9904: IF l_debug_mode = 'Y' THEN
9905: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9906: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9907: END IF;
9908:
9909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9902: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
9903:
9904: IF l_debug_mode = 'Y' THEN
9905: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
9906: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,5);
9907: END IF;
9908:
9909: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9910: END IF;
10500:
10501: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
10502:
10503: IF l_debug_mode = 'Y' THEN
10504: pa_debug.g_err_stage := 'Error executing lock unlock version';
10505: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10506: END IF;
10507:
10508: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10501: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
10502:
10503: IF l_debug_mode = 'Y' THEN
10504: pa_debug.g_err_stage := 'Error executing lock unlock version';
10505: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10506: END IF;
10507:
10508: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10509:
10509:
10510: END IF;
10511:
10512: IF l_debug_mode = 'Y' THEN
10513: pa_debug.g_err_stage := 'About to call set current working version';
10514: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10515: END IF;
10516:
10517: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
10510: END IF;
10511:
10512: IF l_debug_mode = 'Y' THEN
10513: pa_debug.g_err_stage := 'About to call set current working version';
10514: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10515: END IF;
10516:
10517: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
10518: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
10528: x_msg_data => l_msg_data);
10529:
10530: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10531: IF l_debug_mode= 'Y' THEN
10532: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10533: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10534: END IF;
10535: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10536: END IF;
10529:
10530: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10531: IF l_debug_mode= 'Y' THEN
10532: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
10533: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
10534: END IF;
10535: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10536: END IF;
10537:
10584: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
10585: END IF;
10586:
10587: IF l_debug_mode = 'Y' THEN
10588: pa_debug.g_err_stage := 'Preference code is -> ' || l_plan_pref_code;
10589: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10590: END IF;
10591:
10592:
10585: END IF;
10586:
10587: IF l_debug_mode = 'Y' THEN
10588: pa_debug.g_err_stage := 'Preference code is -> ' || l_plan_pref_code;
10589: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10590: END IF;
10591:
10592:
10593: --Get the amount set id.
10619: l_amount_set_id := l_all_amount_set_id;
10620: END IF;
10621:
10622: IF l_debug_mode = 'Y' THEN
10623: pa_debug.g_err_stage:= 'Amount set id is -> ' || l_amount_set_id;
10624: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10625: END IF;
10626:
10627: l_proj_fp_options_id_new := PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID
10620: END IF;
10621:
10622: IF l_debug_mode = 'Y' THEN
10623: pa_debug.g_err_stage:= 'Amount set id is -> ' || l_amount_set_id;
10624: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,3);
10625: END IF;
10626:
10627: l_proj_fp_options_id_new := PA_PROJ_FP_OPTIONS_PUB.Get_FP_Option_ID
10628: (p_project_id => l_project_id
10655: -- Changes for the bug 3453650
10656: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
10657:
10658: IF l_debug_mode = 'Y' THEN
10659: pa_debug.g_err_stage := 'About to call validate budget lines in Budgets model';
10660: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10661: END IF;
10662:
10663: --Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
10656: IF ( nvl(l_budget_lines_in.last,0) > 0 ) THEN
10657:
10658: IF l_debug_mode = 'Y' THEN
10659: pa_debug.g_err_stage := 'About to call validate budget lines in Budgets model';
10660: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10661: END IF;
10662:
10663: --Handle G_MISS_XXX for l_budget_lines_in before calling Validate_Budget_Lines.
10664: FOR i in l_budget_lines_in.FIRST..l_budget_lines_in.LAST LOOP
11100: x_msg_data => p_msg_data);
11101:
11102: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11103: IF l_debug_mode = 'Y' THEN
11104: pa_debug.g_err_stage:= 'valid_rate_type returned error';
11105: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11106: END IF;
11107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11108: END IF;
11101:
11102: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11103: IF l_debug_mode = 'Y' THEN
11104: pa_debug.g_err_stage:= 'valid_rate_type returned error';
11105: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11106: END IF;
11107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11108: END IF;
11109:
11134:
11135: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11136: p_return_status:=FND_API.G_RET_STS_ERROR;
11137: IF l_debug_mode = 'Y' THEN
11138: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
11139: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11140: END IF;
11141: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11142: END IF;
11135: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11136: p_return_status:=FND_API.G_RET_STS_ERROR;
11137: IF l_debug_mode = 'Y' THEN
11138: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
11139: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11140: END IF;
11141: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11142: END IF;
11143:
11141: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11142: END IF;
11143:
11144: IF l_debug_mode = 'Y' THEN
11145: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with multi currency conversion attributes';
11146: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11147: END IF;
11148:
11149: update pa_proj_fp_options
11142: END IF;
11143:
11144: IF l_debug_mode = 'Y' THEN
11145: pa_debug.g_err_stage := 'Updating pa_proj_fp_options with multi currency conversion attributes';
11146: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11147: END IF;
11148:
11149: update pa_proj_fp_options
11150: set
12614:
12615: -- dbms_output.put_line ('after Calling add_finplan_lines ' || l_return_status || ' p_multiple_task_msg ' || p_multiple_task_msg);
12616:
12617: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12618: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12619: IF L_DEBUG_MODE = 'Y' THEN
12620: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12621: END IF;
12622: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12616:
12617: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12618: pa_debug.g_err_stage:= 'Error Calling ADD_FINPLAN_LINES';
12619: IF L_DEBUG_MODE = 'Y' THEN
12620: pa_debug.write('UPDATE_BUDGET: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12621: END IF;
12622: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12623: END IF;
12624: END IF;
12641:
12642: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
12643:
12644: IF l_debug_mode = 'Y' THEN
12645: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12646: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12647: END IF;
12648:
12649: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12642: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
12643:
12644: IF l_debug_mode = 'Y' THEN
12645: pa_debug.g_err_stage := 'Error in lock unlock version - Cannot lock the version';
12646: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
12647: END IF;
12648:
12649: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12650: END IF;
12765: p_msg_count := l_msg_count;
12766: END IF;
12767: --Changes for bug 3182963
12768: IF l_debug_mode = 'Y' THEN
12769: pa_debug.reset_curr_function;
12770: END IF;
12771: -- dbms_output.put_line('Invalid_Arg_Exc MSG count in the stack ' || l_msg_count);
12772:
12773: RETURN;
13320: SAVEPOINT update_budget_line_pub;
13321:
13322: p_msg_count := 0;
13323: p_return_status := FND_API.G_RET_STS_SUCCESS;
13324: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
13325: l_module_name := g_module_name || ':Update_Budget_Line ';
13326:
13327: IF ( l_debug_mode = 'Y' )
13328: THEN
13325: l_module_name := g_module_name || ':Update_Budget_Line ';
13326:
13327: IF ( l_debug_mode = 'Y' )
13328: THEN
13329: pa_debug.set_curr_function( p_function => l_api_name
13330: ,p_debug_mode => l_debug_mode );
13331: END IF;
13332:
13333: IF ( l_debug_mode = 'Y' )
13331: END IF;
13332:
13333: IF ( l_debug_mode = 'Y' )
13334: THEN
13335: pa_debug.g_err_stage:='Entering ' || l_api_name;
13336: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13337: END IF;
13338:
13339: --Initialize the message table if requested.
13332:
13333: IF ( l_debug_mode = 'Y' )
13334: THEN
13335: pa_debug.g_err_stage:='Entering ' || l_api_name;
13336: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
13337: END IF;
13338:
13339: --Initialize the message table if requested.
13340: IF FND_API.TO_BOOLEAN( p_init_msg_list )
13387: ,x_return_status => p_return_status );
13388:
13389: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13390: IF(l_debug_mode='Y') THEN
13391: pa_debug.g_err_stage := 'validate header info API falied';
13392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13393: END IF;
13394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13395: END IF;
13388:
13389: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13390: IF(l_debug_mode='Y') THEN
13391: pa_debug.g_err_stage := 'validate header info API falied';
13392: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13393: END IF;
13394: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13395: END IF;
13396:
13723:
13724: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13725: THEN
13726: IF(l_debug_mode='Y') THEN
13727: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13729: END IF;
13730: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13731: END IF;
13724: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
13725: THEN
13726: IF(l_debug_mode='Y') THEN
13727: pa_debug.g_err_stage := 'get_plan_amount_flags API falied';
13728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13729: END IF;
13730: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13731: END IF;
13732:
13785: ,x_return_status => p_return_status );
13786:
13787: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13788: IF(l_debug_mode='Y') THEN
13789: pa_debug.g_err_stage := 'validate budget lines API falied';
13790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13791: END IF;
13792: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13793: END IF;
13786:
13787: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13788: IF(l_debug_mode='Y') THEN
13789: pa_debug.g_err_stage := 'validate budget lines API falied';
13790: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13791: END IF;
13792: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13793: END IF;
13794:
13923:
13924: IF l_err_code > 0
13925: THEN
13926: IF(l_debug_mode='Y') THEN
13927: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13929: END IF;
13930:
13931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13924: IF l_err_code > 0
13925: THEN
13926: IF(l_debug_mode='Y') THEN
13927: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13928: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13929: END IF;
13930:
13931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
13932: THEN
13961: ELSIF l_err_code < 0
13962: THEN
13963:
13964: IF(l_debug_mode='Y') THEN
13965: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13966: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13967: END IF;
13968:
13969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13962: THEN
13963:
13964: IF(l_debug_mode='Y') THEN
13965: pa_debug.g_err_stage := 'summerize_project_totals API falied';
13966: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13967: END IF;
13968:
13969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13970: THEN
14094: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14095: -- Error message is not added here as the api lock_unlock_version
14096: -- adds the message to stack
14097: IF(l_debug_mode='Y') THEN
14098: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
14099: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
14100: END IF;
14101: RAISE FND_API.G_EXC_ERROR;
14102: END IF;
14095: -- Error message is not added here as the api lock_unlock_version
14096: -- adds the message to stack
14097: IF(l_debug_mode='Y') THEN
14098: pa_debug.g_err_stage := 'Failed in locking the version ' || l_budget_version_id;
14099: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
14100: END IF;
14101: RAISE FND_API.G_EXC_ERROR;
14102: END IF;
14103:
14113:
14114: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
14115: THEN
14116: IF(l_debug_mode='Y') THEN
14117: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
14118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
14119: END IF;
14120: RAISE FND_API.G_EXC_ERROR;
14121: END IF;
14114: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
14115: THEN
14116: IF(l_debug_mode='Y') THEN
14117: pa_debug.g_err_stage := 'PA_FIN_PLAN_PVT.add_fin_plan_lines API falied';
14118: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
14119: END IF;
14120: RAISE FND_API.G_EXC_ERROR;
14121: END IF;
14122:
14138: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14139: -- Error message is not added here as the api lock_unlock_version
14140: -- adds the message to stack
14141: IF(l_debug_mode='Y') THEN
14142: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
14143: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
14144: END IF;
14145: RAISE FND_API.G_EXC_ERROR;
14146: END IF;
14139: -- Error message is not added here as the api lock_unlock_version
14140: -- adds the message to stack
14141: IF(l_debug_mode='Y') THEN
14142: pa_debug.g_err_stage := 'Failed in unlocking the version ' || l_budget_version_id;
14143: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
14144: END IF;
14145: RAISE FND_API.G_EXC_ERROR;
14146: END IF;
14147:
14154: COMMIT;
14155: END IF;
14156:
14157: IF(l_debug_mode='Y') THEN
14158: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
14159: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
14160: END IF;
14161:
14162: IF ( l_debug_mode = 'Y' ) THEN
14155: END IF;
14156:
14157: IF(l_debug_mode='Y') THEN
14158: pa_debug.g_err_stage := 'Exiting ' || l_api_name;
14159: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
14160: END IF;
14161:
14162: IF ( l_debug_mode = 'Y' ) THEN
14163: pa_debug.reset_curr_function;
14159: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
14160: END IF;
14161:
14162: IF ( l_debug_mode = 'Y' ) THEN
14163: pa_debug.reset_curr_function;
14164: END IF;
14165:
14166:
14167: EXCEPTION
14188: p_msg_count := l_msg_count;
14189: END IF;
14190:
14191: IF ( l_debug_mode = 'Y' ) THEN
14192: pa_debug.reset_curr_function;
14193: END IF;
14194:
14195: RETURN;
14196:
14206: ( p_count => p_msg_count ,
14207: p_data => p_msg_data );
14208:
14209: IF ( l_debug_mode = 'Y' ) THEN
14210: pa_debug.reset_curr_function;
14211: END IF;
14212:
14213:
14214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
14222: ( p_count => p_msg_count ,
14223: p_data => p_msg_data );
14224:
14225: IF ( l_debug_mode = 'Y' ) THEN
14226: pa_debug.reset_curr_function;
14227: END IF;
14228:
14229:
14230: WHEN ROW_ALREADY_LOCKED
14250: ( p_count => p_msg_count ,
14251: p_data => p_msg_data );
14252:
14253: IF ( l_debug_mode = 'Y' ) THEN
14254: pa_debug.reset_curr_function;
14255: END IF;
14256:
14257:
14258: WHEN OTHERS
14273: ( p_count => p_msg_count ,
14274: p_data => p_msg_data );
14275:
14276: IF ( l_debug_mode = 'Y' ) THEN
14277: pa_debug.reset_curr_function;
14278: END IF;
14279:
14280: END update_budget_line;
14281:
14483: l_record_version_number pa_budget_versions.record_version_number%TYPE;
14484: l_budget_type_code pa_budget_versions.budget_type_code%TYPE;
14485: l_ci_id pa_budget_versions.ci_id%TYPE;
14486:
14487: l_debug_mode VARCHAR2(30):= NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
14488: l_debug_level3 CONSTANT NUMBER := 3;
14489: l_debug_level5 CONSTANT NUMBER := 5;
14490:
14491: l_plsql_max_array_size NUMBER := 200;
14902: (p_app_short_name => 'PA',
14903: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
14904:
14905: IF l_debug_mode = 'Y' THEN
14906: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
14907: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14908: END IF;
14909: RAISE FND_API.G_EXC_ERROR;
14910: END IF;
14903: p_msg_name => 'PA_BUDGET_FP_BOTH_MISSING');
14904:
14905: IF l_debug_mode = 'Y' THEN
14906: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info are missing';
14907: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14908: END IF;
14909: RAISE FND_API.G_EXC_ERROR;
14910: END IF;
14911:
14919: (p_app_short_name => 'PA',
14920: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
14921:
14922: IF l_debug_mode = 'Y' THEN
14923: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
14924: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14925: END IF;
14926: RAISE FND_API.G_EXC_ERROR;
14927: END IF;
14920: p_msg_name => 'PA_BUDGET_FP_BOTH_NOT_NULL');
14921:
14922: IF l_debug_mode = 'Y' THEN
14923: pa_debug.g_err_stage:= 'Fin Plan type info and budget type info both are provided';
14924: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14925: END IF;
14926: RAISE FND_API.G_EXC_ERROR;
14927: END IF;
14928:
14950: ,p_token1 => 'BUDGET_VERSION_ID'
14951: ,p_value1 => p_budget_version_id);
14952:
14953: IF l_debug_mode = 'Y' THEN
14954: pa_debug.g_err_stage := 'No budget version exists with i/p version id' ;
14955: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14956: END IF;
14957: CLOSE budget_version_info_cur;
14958: RAISE FND_API.G_EXC_ERROR;
14951: ,p_value1 => p_budget_version_id);
14952:
14953: IF l_debug_mode = 'Y' THEN
14954: pa_debug.g_err_stage := 'No budget version exists with i/p version id' ;
14955: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14956: END IF;
14957: CLOSE budget_version_info_cur;
14958: RAISE FND_API.G_EXC_ERROR;
14959:
14966: p_app_short_name => 'PA'
14967: ,p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH');
14968:
14969: IF l_debug_mode = 'Y' THEN
14970: pa_debug.g_err_stage := 'i/p version doesnot belong to i/p project' ;
14971: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14972: END IF;
14973: CLOSE budget_version_info_cur;
14974: RAISE FND_API.G_EXC_ERROR;
14967: ,p_msg_name => 'PA_FP_PROJ_VERSION_MISMATCH');
14968:
14969: IF l_debug_mode = 'Y' THEN
14970: pa_debug.g_err_stage := 'i/p version doesnot belong to i/p project' ;
14971: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14972: END IF;
14973: CLOSE budget_version_info_cur;
14974: RAISE FND_API.G_EXC_ERROR;
14975: END IF;
14982: p_app_short_name => 'PA'
14983: ,p_msg_name => 'PA_FP_INVALID_VERSION_STATUS');
14984:
14985: IF l_debug_mode = 'Y' THEN
14986: pa_debug.g_err_stage := 'i/p version is not a working version' ;
14987: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14988: END IF;
14989: CLOSE budget_version_info_cur;
14990: RAISE FND_API.G_EXC_ERROR;
14983: ,p_msg_name => 'PA_FP_INVALID_VERSION_STATUS');
14984:
14985: IF l_debug_mode = 'Y' THEN
14986: pa_debug.g_err_stage := 'i/p version is not a working version' ;
14987: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
14988: END IF;
14989: CLOSE budget_version_info_cur;
14990: RAISE FND_API.G_EXC_ERROR;
14991: END IF;
14998: ,p_msg_name => 'PA_FP_CI_VERSION_NON_EDITABLE'
14999: ,p_token1 => 'BUDGET_VERSION_ID'
15000: ,p_value1 => p_budget_version_id);
15001: IF l_debug_mode = 'Y' THEN
15002: pa_debug.g_err_stage := 'i/p version is ci version' ;
15003: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15004: END IF;
15005: CLOSE budget_version_info_cur;
15006: RAISE FND_API.G_EXC_ERROR;
14999: ,p_token1 => 'BUDGET_VERSION_ID'
15000: ,p_value1 => p_budget_version_id);
15001: IF l_debug_mode = 'Y' THEN
15002: pa_debug.g_err_stage := 'i/p version is ci version' ;
15003: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15004: END IF;
15005: CLOSE budget_version_info_cur;
15006: RAISE FND_API.G_EXC_ERROR;
15007: END IF;
15030: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE'
15031: );
15032:
15033: IF l_debug_mode = 'Y' THEN
15034: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
15035: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15036: END IF;
15037: RAISE FND_API.G_EXC_ERROR;
15038: END IF;
15031: );
15032:
15033: IF l_debug_mode = 'Y' THEN
15034: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
15035: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15036: END IF;
15037: RAISE FND_API.G_EXC_ERROR;
15038: END IF;
15039: --bug #3636409. Validation for WorkPlan Versions which cannot be edited using this AMG interface.
15040:
15041: IF l_workplan_flag = 'Y' THEN
15042:
15043: IF l_debug_mode = 'Y' THEN
15044: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
15045: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15046: END IF;
15047:
15048: PA_UTILS.ADD_MESSAGE
15041: IF l_workplan_flag = 'Y' THEN
15042:
15043: IF l_debug_mode = 'Y' THEN
15044: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
15045: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15046: END IF;
15047:
15048: PA_UTILS.ADD_MESSAGE
15049: (p_app_short_name => 'PA',
15079: -- Get the status of the current working version. If the status is submitted then
15080: -- it can not be updated/deleted
15081: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
15082: IF l_debug_mode = 'Y' THEN
15083: pa_debug.g_err_stage := 'Version exists in submitted status';
15084: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15085: END IF;
15086: PA_UTILS.ADD_MESSAGE
15087: ( p_app_short_name => 'PA',
15080: -- it can not be updated/deleted
15081: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
15082: IF l_debug_mode = 'Y' THEN
15083: pa_debug.g_err_stage := 'Version exists in submitted status';
15084: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15085: END IF;
15086: PA_UTILS.ADD_MESSAGE
15087: ( p_app_short_name => 'PA',
15088: p_msg_name => 'PA_FP_VER_SUB_STS');
15109:
15110: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15111:
15112: IF l_debug_mode = 'Y' THEN
15113: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15114: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15115: END IF;
15116:
15117: RAISE FND_API.G_EXC_ERROR;
15110: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15111:
15112: IF l_debug_mode = 'Y' THEN
15113: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15114: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15115: END IF;
15116:
15117: RAISE FND_API.G_EXC_ERROR;
15118: END IF;
15121:
15122: IF l_editable_flag = 'N' THEN
15123:
15124: IF l_debug_mode = 'Y' THEN
15125: pa_debug.g_err_stage := 'Plan type is not editable' ;
15126: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15127: END IF;
15128:
15129: PA_UTILS.ADD_MESSAGE
15122: IF l_editable_flag = 'N' THEN
15123:
15124: IF l_debug_mode = 'Y' THEN
15125: pa_debug.g_err_stage := 'Plan type is not editable' ;
15126: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15127: END IF;
15128:
15129: PA_UTILS.ADD_MESSAGE
15130: (p_app_short_name => 'PA',
15180:
15181: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15182:
15183: IF l_debug_mode = 'Y' THEN
15184: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
15185: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15186: END IF;
15187: RAISE FND_API.G_EXC_ERROR;
15188: END IF;
15181: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15182:
15183: IF l_debug_mode = 'Y' THEN
15184: pa_debug.g_err_stage := 'Plan Type validation have failed' ;
15185: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15186: END IF;
15187: RAISE FND_API.G_EXC_ERROR;
15188: END IF;
15189:
15209: p_msg_name => 'PA_FP_ORG_FCST_PLAN_TYPE'
15210: );
15211:
15212: IF l_debug_mode = 'Y' THEN
15213: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
15214: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15215: END IF;
15216: RAISE FND_API.G_EXC_ERROR;
15217: END IF;
15210: );
15211:
15212: IF l_debug_mode = 'Y' THEN
15213: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
15214: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15215: END IF;
15216: RAISE FND_API.G_EXC_ERROR;
15217: END IF;
15218: EXCEPTION
15217: END IF;
15218: EXCEPTION
15219: WHEN OTHERS THEN
15220: IF l_debug_mode = 'Y' THEN
15221: pa_debug.g_err_stage := 'Unexpected error while fetching the plan type code'||SQLERRM ;
15222: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15223: END IF;
15224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15225: END;
15218: EXCEPTION
15219: WHEN OTHERS THEN
15220: IF l_debug_mode = 'Y' THEN
15221: pa_debug.g_err_stage := 'Unexpected error while fetching the plan type code'||SQLERRM ;
15222: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15223: END IF;
15224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15225: END;
15226:
15228:
15229: IF l_workplan_flag = 'Y' THEN
15230:
15231: IF l_debug_mode = 'Y' THEN
15232: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
15233: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15234: END IF;
15235:
15236: PA_UTILS.ADD_MESSAGE
15229: IF l_workplan_flag = 'Y' THEN
15230:
15231: IF l_debug_mode = 'Y' THEN
15232: pa_debug.g_err_stage := 'WorkPlan Versions cannot be edited using this AMG interface' ;
15233: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15234: END IF;
15235:
15236: PA_UTILS.ADD_MESSAGE
15237: (p_app_short_name => 'PA',
15256: p_token2 => 'PLAN_TYPE',
15257: p_value2 => l_fin_plan_type_name);
15258:
15259: IF l_debug_mode = 'Y' THEN
15260: pa_debug.g_err_stage := 'plan type not attached to project' ;
15261: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15262: END IF;
15263: CLOSE proj_fp_options_cur;
15264: RAISE FND_API.G_EXC_ERROR;
15257: p_value2 => l_fin_plan_type_name);
15258:
15259: IF l_debug_mode = 'Y' THEN
15260: pa_debug.g_err_stage := 'plan type not attached to project' ;
15261: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15262: END IF;
15263: CLOSE proj_fp_options_cur;
15264: RAISE FND_API.G_EXC_ERROR;
15265: END IF;
15290: ,x_msg_data => p_msg_data);
15291:
15292: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15293: IF l_debug_mode = 'Y' THEN
15294: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15295: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15296: END IF;
15297: RAISE FND_API.G_EXC_ERROR;
15298: END IF;
15291:
15292: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15293: IF l_debug_mode = 'Y' THEN
15294: pa_debug.g_err_stage := 'getversiontype Failed ' ;
15295: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15296: END IF;
15297: RAISE FND_API.G_EXC_ERROR;
15298: END IF;
15299:
15315:
15316: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15317:
15318: IF l_debug_mode = 'Y' THEN
15319: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15320: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15321: END IF;
15322:
15323: RAISE FND_API.G_EXC_ERROR;
15316: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15317:
15318: IF l_debug_mode = 'Y' THEN
15319: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
15320: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15321: END IF;
15322:
15323: RAISE FND_API.G_EXC_ERROR;
15324: END IF;
15327:
15328: IF l_editable_flag = 'N' THEN
15329:
15330: IF l_debug_mode = 'Y' THEN
15331: pa_debug.g_err_stage := 'Plan type is not editable' ;
15332: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15333: END IF;
15334:
15335: PA_UTILS.ADD_MESSAGE
15328: IF l_editable_flag = 'N' THEN
15329:
15330: IF l_debug_mode = 'Y' THEN
15331: pa_debug.g_err_stage := 'Plan type is not editable' ;
15332: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15333: END IF;
15334:
15335: PA_UTILS.ADD_MESSAGE
15336: (p_app_short_name => 'PA',
15365: ,x_msg_data => p_msg_data );
15366:
15367: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15368: IF l_debug_mode = 'Y' THEN
15369: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15370: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15371: END IF;
15372: RAISE FND_API.G_EXC_ERROR;
15373: END IF;
15366:
15367: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15368: IF l_debug_mode = 'Y' THEN
15369: pa_debug.g_err_stage := 'getVersionId api Failed ' ;
15370: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15371: END IF;
15372: RAISE FND_API.G_EXC_ERROR;
15373: END IF;
15374:
15381: ,p_token1 => 'BUDGET_VERSION_ID'
15382: ,p_value1 => p_budget_version_id);
15383:
15384: IF l_debug_mode = 'Y' THEN
15385: pa_debug.g_err_stage := 'i/p version is ci version' ;
15386: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15387: END IF;
15388: RAISE FND_API.G_EXC_ERROR;
15389: END IF;
15382: ,p_value1 => p_budget_version_id);
15383:
15384: IF l_debug_mode = 'Y' THEN
15385: pa_debug.g_err_stage := 'i/p version is ci version' ;
15386: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15387: END IF;
15388: RAISE FND_API.G_EXC_ERROR;
15389: END IF;
15390: ELSE
15401: ,x_msg_data => p_msg_data );
15402:
15403: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15404: IF l_debug_mode = 'Y' THEN
15405: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15406: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15407: END IF;
15408: RAISE FND_API.G_EXC_ERROR;
15409: END IF;
15402:
15403: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15404: IF l_debug_mode = 'Y' THEN
15405: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
15406: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15407: END IF;
15408: RAISE FND_API.G_EXC_ERROR;
15409: END IF;
15410:
15427: p_token3 => 'VERSION_NUMBER',
15428: p_value3 => p_budget_Version_number );
15429:
15430: IF l_debug_mode = 'Y' THEN
15431: pa_debug.g_err_stage := 'Budget Version does not exist' ;
15432: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15433: END IF;
15434: RAISE FND_API.G_EXC_ERROR;
15435: Else
15428: p_value3 => p_budget_Version_number );
15429:
15430: IF l_debug_mode = 'Y' THEN
15431: pa_debug.g_err_stage := 'Budget Version does not exist' ;
15432: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15433: END IF;
15434: RAISE FND_API.G_EXC_ERROR;
15435: Else
15436: -- Fetch budget version info
15466: -- Get the status of the current working version. If the status is submitted then
15467: -- it can not be updated/deleted
15468: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
15469: IF l_debug_mode = 'Y' THEN
15470: pa_debug.g_err_stage := 'Version exists in submitted status';
15471: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15472: END IF;
15473: PA_UTILS.ADD_MESSAGE
15474: ( p_app_short_name => 'PA',
15467: -- it can not be updated/deleted
15468: IF nvl(budget_version_info_rec.budget_status_code,'X') = 'S' THEN
15469: IF l_debug_mode = 'Y' THEN
15470: pa_debug.g_err_stage := 'Version exists in submitted status';
15471: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15472: END IF;
15473: PA_UTILS.ADD_MESSAGE
15474: ( p_app_short_name => 'PA',
15475: p_msg_name => 'PA_FP_VER_SUB_STS');
15489: ,x_msg_data => p_msg_data);
15490:
15491: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15492: IF l_debug_mode = 'Y' THEN
15493: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15494: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15495: END IF;
15496: RAISE FND_API.G_EXC_ERROR;
15497: END IF;
15490:
15491: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15492: IF l_debug_mode = 'Y' THEN
15493: pa_debug.g_err_stage := 'Validate plan processing code api Failed ' ;
15494: pa_debug.write('Processing Code'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15495: END IF;
15496: RAISE FND_API.G_EXC_ERROR;
15497: END IF;
15498:
15574: (p_app_short_name => 'PA',
15575: p_msg_name => 'PA_NO_BUDGET_VERSION');
15576:
15577: IF l_debug_mode = 'Y' THEN
15578: pa_debug.g_err_stage := 'Draft Budget Version does not exist' ;
15579: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15580: END IF;
15581: CLOSE draft_version_cur;
15582: RAISE FND_API.G_EXC_ERROR;
15575: p_msg_name => 'PA_NO_BUDGET_VERSION');
15576:
15577: IF l_debug_mode = 'Y' THEN
15578: pa_debug.g_err_stage := 'Draft Budget Version does not exist' ;
15579: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15580: END IF;
15581: CLOSE draft_version_cur;
15582: RAISE FND_API.G_EXC_ERROR;
15583: ELSE
15606: ,x_msg_data => p_msg_data );
15607:
15608: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15609: IF(l_debug_mode='Y') THEN
15610: pa_debug.g_err_stage := 'Auto baseline API falied';
15611: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15612: END IF;
15613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15614: END IF;
15607:
15608: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15609: IF(l_debug_mode='Y') THEN
15610: pa_debug.g_err_stage := 'Auto baseline API falied';
15611: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15612: END IF;
15613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15614: END IF;
15615:
15614: END IF;
15615:
15616: IF l_result = 'F' THEN
15617: IF(l_debug_mode='Y') THEN
15618: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
15619: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15620: END IF;
15621: PA_UTILS.ADD_MESSAGE(
15622: p_app_short_name => 'PA'
15615:
15616: IF l_result = 'F' THEN
15617: IF(l_debug_mode='Y') THEN
15618: pa_debug.g_err_stage := 'Auto baselining enabled for the project';
15619: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15620: END IF;
15621: PA_UTILS.ADD_MESSAGE(
15622: p_app_short_name => 'PA'
15623: ,p_msg_name => 'PA_FP_AB_AR_VER_NON_EDITABLE'
15639: ,x_msg_data => p_msg_data );
15640:
15641: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15642: IF(l_debug_mode='Y') THEN
15643: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15644: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15645: END IF;
15646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15647: END IF;
15640:
15641: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15642: IF(l_debug_mode='Y') THEN
15643: pa_debug.g_err_stage := 'get_version_type_for_bdgt_type API falied';
15644: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15645: END IF;
15646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15647: END IF;
15648: END IF;
15669:
15670: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_security_ret_code <> 'Y') THEN
15671:
15672: IF l_debug_mode = 'Y' THEN
15673: pa_debug.g_err_stage:= 'Security API Failed';
15674: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15675: END IF;
15676:
15677: RAISE FND_API.G_EXC_ERROR;
15670: IF (p_return_status <> FND_API.G_RET_STS_SUCCESS OR l_security_ret_code <> 'Y') THEN
15671:
15672: IF l_debug_mode = 'Y' THEN
15673: pa_debug.g_err_stage:= 'Security API Failed';
15674: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level3);
15675: END IF;
15676:
15677: RAISE FND_API.G_EXC_ERROR;
15678: END IF;
15702:
15703: -- Error message is not added here as the api lock_unlock_version
15704: -- adds the message to stack
15705: IF(l_debug_mode='Y') THEN
15706: pa_debug.g_err_stage := 'Failed in locking the version';
15707: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15708: END IF;
15709:
15710: RAISE FND_API.G_EXC_ERROR;
15703: -- Error message is not added here as the api lock_unlock_version
15704: -- adds the message to stack
15705: IF(l_debug_mode='Y') THEN
15706: pa_debug.g_err_stage := 'Failed in locking the version';
15707: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15708: END IF;
15709:
15710: RAISE FND_API.G_EXC_ERROR;
15711: END IF;
15764: -- calling api above adds the error message to stack hence not adding the error message here.
15765: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15766: THEN
15767: IF l_debug_mode = 'Y' THEN
15768: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15770: END IF;
15771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15772: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15765: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15766: THEN
15767: IF l_debug_mode = 'Y' THEN
15768: pa_debug.g_err_stage:= 'Calculate_Amounts returned unexp error';
15769: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15770: END IF;
15771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15772: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15773: THEN
15771: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15772: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15773: THEN
15774: IF l_debug_mode = 'Y' THEN
15775: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15776: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15777: END IF;
15778: RAISE FND_API.G_EXC_ERROR;
15779: END IF;
15772: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15773: THEN
15774: IF l_debug_mode = 'Y' THEN
15775: pa_debug.g_err_stage:= 'Calculate_Amounts returned error';
15776: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15777: END IF;
15778: RAISE FND_API.G_EXC_ERROR;
15779: END IF;
15780:
15801: -- calling api above adds the error message to stack hence not adding the error message here.
15802: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15803: THEN
15804: IF l_debug_mode = 'Y' THEN
15805: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15807: END IF;
15808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15809: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15802: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15803: THEN
15804: IF l_debug_mode = 'Y' THEN
15805: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
15806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15807: END IF;
15808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15809: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15810: THEN
15808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15809: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15810: THEN
15811: IF l_debug_mode = 'Y' THEN
15812: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15813: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15814: END IF;
15815: RAISE FND_API.G_EXC_ERROR;
15816: END IF;
15809: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
15810: THEN
15811: IF l_debug_mode = 'Y' THEN
15812: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
15813: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
15814: END IF;
15815: RAISE FND_API.G_EXC_ERROR;
15816: END IF;
15817:
15872: ,l_projfunc_revenue_tbl
15873: LIMIT l_plsql_max_array_size;
15874:
15875: IF(l_debug_mode='Y') THEN
15876: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
15877: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15878: END IF;
15879:
15880: -- For each of the budget line fetched call client extension apis
15873: LIMIT l_plsql_max_array_size;
15874:
15875: IF(l_debug_mode='Y') THEN
15876: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
15877: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
15878: END IF;
15879:
15880: -- For each of the budget line fetched call client extension apis
15881:
16390: THEN
16391: IF (l_txn_raw_cost_tbl(i) is null) then
16392: l_calculated_raw_cost := l_calculated_burdened_cost;
16393: IF(l_debug_mode='Y') THEN
16394: pa_debug.g_err_stage := 'Assigning BC to RC. When BC is entered by the user, BC is copied to RC ';
16395: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16396: END IF;
16397: Elsif l_txn_raw_cost_tbl(i) is not null THEN
16398: l_calculated_burdened_cost := null;
16391: IF (l_txn_raw_cost_tbl(i) is null) then
16392: l_calculated_raw_cost := l_calculated_burdened_cost;
16393: IF(l_debug_mode='Y') THEN
16394: pa_debug.g_err_stage := 'Assigning BC to RC. When BC is entered by the user, BC is copied to RC ';
16395: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16396: END IF;
16397: Elsif l_txn_raw_cost_tbl(i) is not null THEN
16398: l_calculated_burdened_cost := null;
16399: l_calculated_revenue := null;
16397: Elsif l_txn_raw_cost_tbl(i) is not null THEN
16398: l_calculated_burdened_cost := null;
16399: l_calculated_revenue := null;
16400: IF(l_debug_mode='Y') THEN
16401: pa_debug.g_err_stage := 'When existing RC is nulled out, BC and Rev are also nulled out';
16402: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16403: END IF;
16404: End IF;
16405: END IF;
16398: l_calculated_burdened_cost := null;
16399: l_calculated_revenue := null;
16400: IF(l_debug_mode='Y') THEN
16401: pa_debug.g_err_stage := 'When existing RC is nulled out, BC and Rev are also nulled out';
16402: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16403: END IF;
16404: End IF;
16405: END IF;
16406: /* Bug 5006031 Issue 8 End */
16512: END IF;
16513:
16514: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16515: IF(l_debug_mode='Y') THEN
16516: pa_debug.g_err_stage := 'MRC failed';
16517: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16518: END IF;
16519: RAISE FND_API.G_EXC_ERROR;
16520: END IF;
16513:
16514: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16515: IF(l_debug_mode='Y') THEN
16516: pa_debug.g_err_stage := 'MRC failed';
16517: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16518: END IF;
16519: RAISE FND_API.G_EXC_ERROR;
16520: END IF;
16521: */
16560:
16561: END IF;
16562:
16563: IF(l_debug_mode='Y') THEN
16564: pa_debug.g_err_stage := 'summerize_project_totals api failed';
16565: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16566: END IF;
16567:
16568: RAISE FND_API.G_EXC_ERROR;
16561: END IF;
16562:
16563: IF(l_debug_mode='Y') THEN
16564: pa_debug.g_err_stage := 'summerize_project_totals api failed';
16565: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16566: END IF;
16567:
16568: RAISE FND_API.G_EXC_ERROR;
16569:
16580:
16581: END IF;
16582:
16583: IF(l_debug_mode='Y') THEN
16584: pa_debug.g_err_stage := 'summerize_project_totals api failed with unexpected error ';
16585: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16586: END IF;
16587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16588:
16581: END IF;
16582:
16583: IF(l_debug_mode='Y') THEN
16584: pa_debug.g_err_stage := 'summerize_project_totals api failed with unexpected error ';
16585: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16586: END IF;
16587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16588:
16589: END IF;
16606: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16607: -- Error message is not added here as the api lock_unlock_version
16608: -- adds the message to stack
16609: IF(l_debug_mode='Y') THEN
16610: pa_debug.g_err_stage := 'Failed in locking the version';
16611: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16612: END IF;
16613: RAISE FND_API.G_EXC_ERROR;
16614: END IF;*/
16607: -- Error message is not added here as the api lock_unlock_version
16608: -- adds the message to stack
16609: IF(l_debug_mode='Y') THEN
16610: pa_debug.g_err_stage := 'Failed in locking the version';
16611: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16612: END IF;
16613: RAISE FND_API.G_EXC_ERROR;
16614: END IF;*/
16615:
16624: ,x_msg_data => p_msg_data);
16625:
16626: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16627: IF l_debug_mode = 'Y' THEN
16628: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16629: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16630: END IF;
16631: RAISE FND_API.G_EXC_ERROR;
16632: END IF;
16625:
16626: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16627: IF l_debug_mode = 'Y' THEN
16628: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
16629: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16630: END IF;
16631: RAISE FND_API.G_EXC_ERROR;
16632: END IF;
16633:
16641: X_MSG_DATA => p_msg_data);
16642:
16643: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16644: IF l_debug_mode = 'Y' THEN
16645: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16646: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16647: END IF;
16648: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16649: END IF;
16642:
16643: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16644: IF l_debug_mode = 'Y' THEN
16645: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
16646: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16647: END IF;
16648: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16649: END IF;
16650:
16658: x_msg_count => p_msg_count );
16659:
16660: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16661: IF l_debug_mode = 'Y' THEN
16662: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16663: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16664: END IF;
16665: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16666: END IF;
16659:
16660: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16661: IF l_debug_mode = 'Y' THEN
16662: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
16663: pa_debug.write(g_module_name,pa_debug.g_err_stage,l_debug_level5);
16664: END IF;
16665: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
16666: END IF;
16667:
16677:
16678:
16679: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16680: IF l_debug_mode = 'Y' THEN
16681: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16682: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16683: END IF;
16684: RAISE FND_API.G_EXC_ERROR;
16685: END IF;
16678:
16679: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16680: IF l_debug_mode = 'Y' THEN
16681: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
16682: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16683: END IF;
16684: RAISE FND_API.G_EXC_ERROR;
16685: END IF;
16686: -- Bug Fix: 4569365. Removed MRC code.
16694: END IF;
16695:
16696: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16697: IF l_debug_mode = 'Y' THEN
16698: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16699: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16700: END IF;
16701: RAISE FND_API.G_EXC_ERROR;
16702: END IF;
16695:
16696: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16697: IF l_debug_mode = 'Y' THEN
16698: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
16699: pa_debug.write('Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16700: END IF;
16701: RAISE FND_API.G_EXC_ERROR;
16702: END IF;
16703:
16713: END IF;
16714:
16715: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16716: IF l_debug_mode = 'Y' THEN
16717: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16718: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16719: END IF;
16720: RAISE FND_API.G_EXC_ERROR;
16721: END IF;
16714:
16715: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16716: IF l_debug_mode = 'Y' THEN
16717: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
16718: pa_debug.write('Calculate_Amounts: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
16719: END IF;
16720: RAISE FND_API.G_EXC_ERROR;
16721: END IF;
16722: */
16768: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16769: -- Error message is not added here as the api lock_unlock_version
16770: -- adds the message to stack
16771: IF(l_debug_mode='Y') THEN
16772: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16773: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16774: END IF;
16775: RAISE FND_API.G_EXC_ERROR;
16776: END IF;
16769: -- Error message is not added here as the api lock_unlock_version
16770: -- adds the message to stack
16771: IF(l_debug_mode='Y') THEN
16772: pa_debug.g_err_stage := 'Failed in Unlocking the version';
16773: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16774: END IF;
16775: RAISE FND_API.G_EXC_ERROR;
16776: END IF;
16777:
16819: ,l_projfunc_revenue_tbl
16820: LIMIT l_plsql_max_array_size;
16821:
16822: IF(l_debug_mode='Y') THEN
16823: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
16824: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16825: END IF;
16826:
16827: IF NVL(l_rowid_tbl.last,0) >= 1 THEN
16820: LIMIT l_plsql_max_array_size;
16821:
16822: IF(l_debug_mode='Y') THEN
16823: pa_debug.g_err_stage := 'fetched ' || sql%rowcount || ' records';
16824: pa_debug.write( 'Calculate_Amounts'||g_module_name,pa_debug.g_err_stage,l_debug_level5);
16825: END IF;
16826:
16827: IF NVL(l_rowid_tbl.last,0) >= 1 THEN
16828: FOR i IN l_rowid_tbl.first .. l_rowid_tbl.last
17609: SAVEPOINT create_draft_finplan_pub;
17610:
17611: x_msg_count := 0;
17612: x_return_status := FND_API.G_RET_STS_SUCCESS;
17613: pa_debug.set_err_stack('PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN');
17614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
17615: l_debug_mode := NVL(l_debug_mode, 'Y');
17616:
17617: IF ( l_debug_mode = 'Y' )
17610:
17611: x_msg_count := 0;
17612: x_return_status := FND_API.G_RET_STS_SUCCESS;
17613: pa_debug.set_err_stack('PA_BUDGET_PUB.CREATE_DRAFT_FINPLAN');
17614: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
17615: l_debug_mode := NVL(l_debug_mode, 'Y');
17616:
17617: IF ( l_debug_mode = 'Y' )
17618: THEN
17615: l_debug_mode := NVL(l_debug_mode, 'Y');
17616:
17617: IF ( l_debug_mode = 'Y' )
17618: THEN
17619: pa_debug.set_process(l_procedure_name || 'PLSQL','LOG',l_debug_mode);
17620: pa_debug.g_err_stage:='Entering CREATE_DRAFT_FINPLAN';
17621: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17622: END IF;
17623:
17616:
17617: IF ( l_debug_mode = 'Y' )
17618: THEN
17619: pa_debug.set_process(l_procedure_name || 'PLSQL','LOG',l_debug_mode);
17620: pa_debug.g_err_stage:='Entering CREATE_DRAFT_FINPLAN';
17621: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17622: END IF;
17623:
17624: l_msg_count := 0;
17617: IF ( l_debug_mode = 'Y' )
17618: THEN
17619: pa_debug.set_process(l_procedure_name || 'PLSQL','LOG',l_debug_mode);
17620: pa_debug.g_err_stage:='Entering CREATE_DRAFT_FINPLAN';
17621: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17622: END IF;
17623:
17624: l_msg_count := 0;
17625: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17621: pa_debug.write('CREATE_DRAFT_FINPLAN: ' || g_module_name,pa_debug.g_err_stage,2);
17622: END IF;
17623:
17624: l_msg_count := 0;
17625: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17626: l_module_name := 'create_draft_finplan' || g_module_name;
17627:
17628: IF ( l_debug_mode = 'Y' )
17629: THEN
17626: l_module_name := 'create_draft_finplan' || g_module_name;
17627:
17628: IF ( l_debug_mode = 'Y' )
17629: THEN
17630: pa_debug.set_curr_function( p_function => 'create_draft_finplan'
17631: ,p_debug_mode => l_debug_mode );
17632: END IF;
17633:
17634: l_resource_list_name := p_resource_list_name ;
17936: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17937: END IF;
17938:
17939: IF l_debug_mode = 'Y' THEN
17940: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
17941: END IF;
17942:
17943: IF (l_curr_work_version_id IS NOT NULL) THEN
17944:
17959: );
17960:
17961: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17962: IF l_debug_mode = 'Y' THEN
17963: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17964: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17965: END IF;
17966: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17967: END IF;
17960:
17961: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
17962: IF l_debug_mode = 'Y' THEN
17963: pa_debug.g_err_stage := 'Error in lock unlock version - cannot delete working version';
17964: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
17965: END IF;
17966: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17967: END IF;
17968:
17975: ,x_msg_data => x_msg_data
17976: );
17977: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
17978: THEN
17979: pa_debug.g_err_stage:= 'Could not delete the current working version';
17980: IF l_debug_mode = 'Y' THEN
17981: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17982: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17983: END IF;
17977: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
17978: THEN
17979: pa_debug.g_err_stage:= 'Could not delete the current working version';
17980: IF l_debug_mode = 'Y' THEN
17981: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17982: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17983: END IF;
17984: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17985: ELSE
17982: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
17983: END IF;
17984: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17985: ELSE
17986: pa_debug.g_err_stage:= 'Deleted the current working version';
17987: IF l_debug_mode = 'Y' THEN
17988: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17989: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17990: END IF;
17984: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
17985: ELSE
17986: pa_debug.g_err_stage:= 'Deleted the current working version';
17987: IF l_debug_mode = 'Y' THEN
17988: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
17989: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
17990: END IF;
17991: END IF;
17992: END IF; --p_replace_current_working_flag = 'Y'
18000: l_plan_pref_code := PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME;
18001: END IF;
18002:
18003: IF l_debug_mode = 'Y' THEN
18004: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
18005: pa_debug.write(l_procedure_name ||
18006: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18007: END IF;
18008:
18001: END IF;
18002:
18003: IF l_debug_mode = 'Y' THEN
18004: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
18005: pa_debug.write(l_procedure_name ||
18006: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18007: END IF;
18008:
18009: --Bug 5475184. The below block will be used to get the cost/bill rate flags from the plan type option.
18002:
18003: IF l_debug_mode = 'Y' THEN
18004: pa_debug.g_err_stage:= 'Preference code is [' || l_plan_pref_code || ']';
18005: pa_debug.write(l_procedure_name ||
18006: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18007: END IF;
18008:
18009: --Bug 5475184. The below block will be used to get the cost/bill rate flags from the plan type option.
18010: --These flags will be set for the new plan version that will be created instead of always setting
18022: AND fin_plan_type_id=l_fin_plan_type_id
18023: AND fin_plan_version_id IS NULL;
18024:
18025: IF l_debug_mode = 'Y' THEN
18026: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
18027: pa_debug.write(l_procedure_name ||
18028: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18029: END IF;
18030:
18023: AND fin_plan_version_id IS NULL;
18024:
18025: IF l_debug_mode = 'Y' THEN
18026: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
18027: pa_debug.write(l_procedure_name ||
18028: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18029: END IF;
18030:
18031: --Get the plan type flag values
18024:
18025: IF l_debug_mode = 'Y' THEN
18026: pa_debug.g_err_stage:= 'Plan Type amount set id is [' || l_pt_amount_set_id || ']';
18027: pa_debug.write(l_procedure_name ||
18028: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18029: END IF;
18030:
18031: --Get the plan type flag values
18032: pa_fin_plan_utils.get_plan_amount_flags (
18044: x_return_status => x_return_status,
18045: x_message_data => x_msg_data);
18046:
18047: IF l_debug_mode = 'Y' THEN
18048: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
18049: pa_debug.write(l_procedure_name ||
18050: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18051:
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18045: x_message_data => x_msg_data);
18046:
18047: IF l_debug_mode = 'Y' THEN
18048: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
18049: pa_debug.write(l_procedure_name ||
18050: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18051:
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18053: pa_debug.write(l_procedure_name ||
18046:
18047: IF l_debug_mode = 'Y' THEN
18048: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
18049: pa_debug.write(l_procedure_name ||
18050: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18051:
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18048: pa_debug.g_err_stage:= 'Return status from pa_fin_plan_utils.get_plan_amount_flags is [' || x_return_status || ']';
18049: pa_debug.write(l_procedure_name ||
18050: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18051:
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18049: pa_debug.write(l_procedure_name ||
18050: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18051:
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18050: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18051:
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18052: pa_debug.g_err_stage:= 'l_pt_bill_rate_flag is [' || l_pt_bill_rate_flag || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18053: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18061: pa_debug.write(l_procedure_name ||
18054: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18055:
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18061: pa_debug.write(l_procedure_name ||
18062: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18056: pa_debug.g_err_stage:= 'l_pt_cost_rate_flag is [' || l_pt_cost_rate_flag || ']';
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18061: pa_debug.write(l_procedure_name ||
18062: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18063:
18064: END IF;
18057: pa_debug.write(l_procedure_name ||
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18061: pa_debug.write(l_procedure_name ||
18062: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18063:
18064: END IF;
18065:
18058: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18059:
18060: pa_debug.g_err_stage:= 'l_pt_burden_rate_flag is [' || l_pt_burden_rate_flag || ']';
18061: pa_debug.write(l_procedure_name ||
18062: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18063:
18064: END IF;
18065:
18066: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18064: END IF;
18065:
18066: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18067:
18068: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
18069: IF l_debug_mode = 'Y' THEN
18070: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
18071: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18072: END IF;
18066: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18067:
18068: pa_debug.g_err_stage:= 'pa_fin_plan_utils.get_plan_amount_flags returned error';
18069: IF l_debug_mode = 'Y' THEN
18070: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,
18071: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18072: END IF;
18073: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18074:
18100: ,x_message_data => x_msg_data
18101: );
18102: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18103: IF l_debug_mode = 'Y' THEN
18104: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
18105: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
18106: END IF;
18107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18108: END IF;
18101: );
18102: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18103: IF l_debug_mode = 'Y' THEN
18104: pa_debug.g_err_stage := 'Error in pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID';
18105: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,5);
18106: END IF;
18107: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18108: END IF;
18109:
18123: l_allow_qty_flag := l_all_qty_flag; -- p_all_qty_flag; Bug 5478041
18124: END IF;
18125:
18126: IF l_debug_mode = 'Y' THEN
18127: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
18128: pa_debug.write(l_procedure_name ||
18129: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18130: END IF;
18131:
18124: END IF;
18125:
18126: IF l_debug_mode = 'Y' THEN
18127: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
18128: pa_debug.write(l_procedure_name ||
18129: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18130: END IF;
18131:
18132: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18125:
18126: IF l_debug_mode = 'Y' THEN
18127: pa_debug.g_err_stage:= 'Amount set id is [' || l_amount_set_id || ']';
18128: pa_debug.write(l_procedure_name ||
18129: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18130: END IF;
18131:
18132: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18133:
18131:
18132: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18133:
18134: IF l_debug_mode = 'Y' THEN
18135: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
18136: pa_debug.write(l_procedure_name ||
18137: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18138: END IF;
18139:
18132: l_struct_elem_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18133:
18134: IF l_debug_mode = 'Y' THEN
18135: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
18136: pa_debug.write(l_procedure_name ||
18137: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18138: END IF;
18139:
18140: l_created_version_id := NULL;
18133:
18134: IF l_debug_mode = 'Y' THEN
18135: pa_debug.g_err_stage:= 'l_struct_elem_version_id is [' || l_struct_elem_version_id || ']';
18136: pa_debug.write(l_procedure_name ||
18137: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18138: END IF;
18139:
18140: l_created_version_id := NULL;
18141:
18140: l_created_version_id := NULL;
18141:
18142:
18143: IF l_debug_mode = 'Y' THEN
18144: pa_debug.g_err_stage:= 'Calling Create_Version';
18145: pa_debug.write(l_procedure_name ||
18146: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18147: END IF;
18148:
18141:
18142:
18143: IF l_debug_mode = 'Y' THEN
18144: pa_debug.g_err_stage:= 'Calling Create_Version';
18145: pa_debug.write(l_procedure_name ||
18146: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18147: END IF;
18148:
18149: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
18142:
18143: IF l_debug_mode = 'Y' THEN
18144: pa_debug.g_err_stage:= 'Calling Create_Version';
18145: pa_debug.write(l_procedure_name ||
18146: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
18147: END IF;
18148:
18149: --dbms_output.put_line('calling pa_fin_plan_pub.Create_Version');
18150: pa_fin_plan_pub.Create_Version (
18195: ,x_msg_count => x_msg_count
18196: ,x_msg_data => x_msg_data );
18197:
18198: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18199: pa_debug.g_err_stage:= 'Error Create_Version';
18200: IF l_debug_mode = 'Y' THEN
18201: pa_debug.write( l_procedure_name ||
18202: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18203: END IF;
18197:
18198: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18199: pa_debug.g_err_stage:= 'Error Create_Version';
18200: IF l_debug_mode = 'Y' THEN
18201: pa_debug.write( l_procedure_name ||
18202: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18203: END IF;
18204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18205: END IF;
18198: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18199: pa_debug.g_err_stage:= 'Error Create_Version';
18200: IF l_debug_mode = 'Y' THEN
18201: pa_debug.write( l_procedure_name ||
18202: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18203: END IF;
18204: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18205: END IF;
18206: --dbms_output.put_line('after calling pa_fin_plan_pub.Create_Version l_created_version_id is [' || to_char(l_created_version_id) ||']');
18794: RAISE FND_API.G_EXC_ERROR;
18795: END IF;
18796: IF ( l_created_version_id <> l_CW_version_id )
18797: THEN
18798: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18799: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18800: IF l_debug_mode = 'Y' THEN
18801: pa_debug.write( l_procedure_name ||
18802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18797: THEN
18798: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18799: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18800: IF l_debug_mode = 'Y' THEN
18801: pa_debug.write( l_procedure_name ||
18802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18803: END IF;
18804:
18805: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18798: pa_debug.g_err_stage:= 'l_created_version_id [' || TO_CHAR(l_created_version_id) ||
18799: '] is not same as l_CW_version_id [' || TO_CHAR(l_CW_version_id) || ']';
18800: IF l_debug_mode = 'Y' THEN
18801: pa_debug.write( l_procedure_name ||
18802: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18803: END IF;
18804:
18805: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18806:
18823: x_msg_data => x_msg_data) ;
18824:
18825: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18826: IF l_debug_mode = 'Y' THEN
18827: pa_debug.g_err_stage := 'Error executing lock unlock version';
18828: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18829: END IF;
18830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18831: END IF;
18824:
18825: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
18826: IF l_debug_mode = 'Y' THEN
18827: pa_debug.g_err_stage := 'Error executing lock unlock version';
18828: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
18829: END IF;
18830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18831: END IF;
18832: IF l_debug_mode = 'Y' THEN
18829: END IF;
18830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18831: END IF;
18832: IF l_debug_mode = 'Y' THEN
18833: pa_debug.g_err_stage := 'About to call set current working version';
18834: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
18835: END IF;
18836:
18837:
18830: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18831: END IF;
18832: IF l_debug_mode = 'Y' THEN
18833: pa_debug.g_err_stage := 'About to call set current working version';
18834: pa_debug.write(l_procedure_name || g_module_name,pa_debug.g_err_stage,3);
18835: END IF;
18836:
18837:
18838: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
18848: x_msg_data => x_msg_data);
18849:
18850: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18851: IF l_debug_mode = 'Y' THEN
18852: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18853: pa_debug.write('CREATE_DRAFT: ' ||
18854: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18855: END IF;
18856: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18849:
18850: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18851: IF l_debug_mode = 'Y' THEN
18852: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18853: pa_debug.write('CREATE_DRAFT: ' ||
18854: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18855: END IF;
18856: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18857: END IF;
18850: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18851: IF l_debug_mode = 'Y' THEN
18852: pa_debug.g_err_stage:= 'Error executing Set_Current_Working ';
18853: pa_debug.write('CREATE_DRAFT: ' ||
18854: g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
18855: END IF;
18856: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
18857: END IF;
18858: END IF; --l_created_version_id <> l_CW_version_id
18892: IF FND_API.TO_BOOLEAN( p_commit )
18893: THEN
18894:
18895: IF l_debug_mode = 'Y' THEN
18896: pa_debug.g_err_stage := 'About to do a COMMIT';
18897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18898: END IF;
18899:
18900: COMMIT;
18893: THEN
18894:
18895: IF l_debug_mode = 'Y' THEN
18896: pa_debug.g_err_stage := 'About to do a COMMIT';
18897: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18898: END IF;
18899:
18900: COMMIT;
18901: END IF;
18900: COMMIT;
18901: END IF;
18902:
18903: IF l_debug_mode = 'Y' THEN
18904: pa_debug.g_err_stage := 'Leaving create draft finplan';
18905: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18906:
18907: pa_debug.reset_curr_function;
18908: END IF;
18901: END IF;
18902:
18903: IF l_debug_mode = 'Y' THEN
18904: pa_debug.g_err_stage := 'Leaving create draft finplan';
18905: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18906:
18907: pa_debug.reset_curr_function;
18908: END IF;
18909:
18903: IF l_debug_mode = 'Y' THEN
18904: pa_debug.g_err_stage := 'Leaving create draft finplan';
18905: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18906:
18907: pa_debug.reset_curr_function;
18908: END IF;
18909:
18910: EXCEPTION
18911: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
18912:
18913: ROLLBACK TO create_draft_finplan_pub;
18914:
18915: IF l_debug_mode = 'Y' THEN
18916: pa_debug.g_err_stage:='In invalid args exception';
18917: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18918: END IF;
18919:
18920: l_msg_count := FND_MSG_PUB.count_msg;
18913: ROLLBACK TO create_draft_finplan_pub;
18914:
18915: IF l_debug_mode = 'Y' THEN
18916: pa_debug.g_err_stage:='In invalid args exception';
18917: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18918: END IF;
18919:
18920: l_msg_count := FND_MSG_PUB.count_msg;
18921: IF l_msg_count = 1 THEN
18920: l_msg_count := FND_MSG_PUB.count_msg;
18921: IF l_msg_count = 1 THEN
18922:
18923: IF l_debug_mode = 'Y' THEN
18924: pa_debug.g_err_stage:='In invalid args exception 1';
18925: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18926: END IF;
18927:
18928: PA_INTERFACE_UTILS_PUB.get_messages
18921: IF l_msg_count = 1 THEN
18922:
18923: IF l_debug_mode = 'Y' THEN
18924: pa_debug.g_err_stage:='In invalid args exception 1';
18925: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18926: END IF;
18927:
18928: PA_INTERFACE_UTILS_PUB.get_messages
18929: ( p_encoded => FND_API.G_TRUE
18936: x_msg_data := l_msg_data;
18937: x_msg_count := l_msg_count;
18938: ELSE
18939: IF l_debug_mode = 'Y' THEN
18940: pa_debug.g_err_stage:='In invalid args exception 2';
18941: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18942: END IF;
18943: x_msg_count := l_msg_count;
18944: END IF;
18937: x_msg_count := l_msg_count;
18938: ELSE
18939: IF l_debug_mode = 'Y' THEN
18940: pa_debug.g_err_stage:='In invalid args exception 2';
18941: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18942: END IF;
18943: x_msg_count := l_msg_count;
18944: END IF;
18945:
18946:
18947: x_return_status := FND_API.G_RET_STS_ERROR;
18948:
18949: IF l_debug_mode = 'Y' THEN
18950: pa_debug.g_err_stage:='In invalid args exception 3';
18951: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18952: pa_debug.reset_curr_function;
18953: END IF;
18954:
18947: x_return_status := FND_API.G_RET_STS_ERROR;
18948:
18949: IF l_debug_mode = 'Y' THEN
18950: pa_debug.g_err_stage:='In invalid args exception 3';
18951: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18952: pa_debug.reset_curr_function;
18953: END IF;
18954:
18955: WHEN OTHERS THEN
18948:
18949: IF l_debug_mode = 'Y' THEN
18950: pa_debug.g_err_stage:='In invalid args exception 3';
18951: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18952: pa_debug.reset_curr_function;
18953: END IF;
18954:
18955: WHEN OTHERS THEN
18956:
18963: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
18964: ,p_procedure_name => 'Update_Planning_Transactions');
18965:
18966: IF l_debug_mode = 'Y' THEN
18967: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
18968: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18969: pa_debug.reset_curr_function;
18970: END IF;
18971:
18964: ,p_procedure_name => 'Update_Planning_Transactions');
18965:
18966: IF l_debug_mode = 'Y' THEN
18967: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
18968: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18969: pa_debug.reset_curr_function;
18970: END IF;
18971:
18972: RAISE;
18965:
18966: IF l_debug_mode = 'Y' THEN
18967: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
18968: pa_debug.write(l_module_name,pa_debug.g_err_stage, 3);
18969: pa_debug.reset_curr_function;
18970: END IF;
18971:
18972: RAISE;
18973:
19476: l_err_field varchar2(20);
19477:
19478: BEGIN
19479: -- Set the error stack.
19480: pa_debug.set_err_stack('PA_BUDGET_PUB.update_plannning_element_attr');
19481:
19482: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
19483: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
19484: l_debug_mode := NVL(l_debug_mode, 'Y');
19479: -- Set the error stack.
19480: pa_debug.set_err_stack('PA_BUDGET_PUB.update_plannning_element_attr');
19481:
19482: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
19483: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
19484: l_debug_mode := NVL(l_debug_mode, 'Y');
19485:
19486: -- Initialize the return status to success
19487: x_return_status := FND_API.G_RET_STS_SUCCESS;
19505: IF (p_fin_plan_type_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
19506: p_fin_plan_type_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
19507: THEN
19508: IF l_debug_mode = 'Y' THEN
19509: pa_debug.write_file('Parameter p_fin_plan_type_id = ' || p_fin_plan_type_id, 5);
19510: pa_debug.write_file('Parameter p_fin_plan_type_name = ' || p_fin_plan_type_name, 5);
19511: END IF;
19512: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19513: END IF;
19506: p_fin_plan_type_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
19507: THEN
19508: IF l_debug_mode = 'Y' THEN
19509: pa_debug.write_file('Parameter p_fin_plan_type_id = ' || p_fin_plan_type_id, 5);
19510: pa_debug.write_file('Parameter p_fin_plan_type_name = ' || p_fin_plan_type_name, 5);
19511: END IF;
19512: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19513: END IF;
19514:
19594: -- Bug 9610380 : Start
19595: IF (l_distribute_amounts is NULL) OR (l_distribute_amounts <> 'N' AND l_distribute_amounts <> 'Y')
19596: THEN
19597: IF l_debug_mode = 'Y' THEN
19598: pa_debug.write_file('Failed because the value of p_distrib_amts is not valid',5);
19599: END IF;
19600: l_err_value := l_distribute_amounts;
19601: l_err_field := 'p_distribute_amounts';
19602: FND_MESSAGE.SET_NAME('PA','PA_PMC_INVALID_LOV_VAL');
19608: -- Bug 9610380 : End
19609:
19610: if p_planning_element_rec_tbl.count = 0 then
19611: IF l_debug_mode = 'Y' THEN
19612: pa_debug.write_file('No Planning Elements Passed',5);
19613: END IF;
19614: pa_debug.reset_err_stack;
19615: return;
19616: end if;
19610: if p_planning_element_rec_tbl.count = 0 then
19611: IF l_debug_mode = 'Y' THEN
19612: pa_debug.write_file('No Planning Elements Passed',5);
19613: END IF;
19614: pa_debug.reset_err_stack;
19615: return;
19616: end if;
19617:
19618:
19671: */
19672: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19673: THEN
19674: IF l_debug_mode = 'Y' THEN
19675: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_header_info',5);
19676: END IF;
19677: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19678: END IF;
19679:
19789:
19790: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19791:
19792: IF l_debug_mode = 'Y' THEN
19793: pa_debug.write_file('Failed due to error in pa_budget_pvt.validate_budget_lines',5);
19794: END IF;
19795: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19796: END IF;
19797:
19975:
19976: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
19977: THEN
19978: IF l_debug_mode = 'Y' THEN
19979: pa_debug.write_file('Failed due to error in update_planning_transactions',5);
19980: END IF;
19981: raise PA_FP_CONSTANTS_PKG.INVALID_ARG_EXC;
19982: END IF;
19983:
19982: END IF;
19983:
19984:
19985:
19986: pa_debug.reset_err_stack;
19987:
19988: EXCEPTION
19989: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
19990:
20004: x_msg_count := l_msg_count;
20005: x_msg_data := l_msg_data;
20006: END IF;
20007: IF l_debug_mode = 'Y' THEN
20008: pa_debug.g_err_stage:='Invalid Arguments Passed';
20009: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20010: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
20011: END IF;
20012:
20005: x_msg_data := l_msg_data;
20006: END IF;
20007: IF l_debug_mode = 'Y' THEN
20008: pa_debug.g_err_stage:='Invalid Arguments Passed';
20009: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20010: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
20011: END IF;
20012:
20013: x_return_status:= FND_API.G_RET_STS_ERROR;
20006: END IF;
20007: IF l_debug_mode = 'Y' THEN
20008: pa_debug.g_err_stage:='Invalid Arguments Passed';
20009: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20010: pa_debug.write_file('update_plannning_element_attr ' || x_msg_data,5);
20011: END IF;
20012:
20013: x_return_status:= FND_API.G_RET_STS_ERROR;
20014:
20012:
20013: x_return_status:= FND_API.G_RET_STS_ERROR;
20014:
20015:
20016: pa_debug.reset_err_stack;
20017:
20018:
20019: WHEN Others THEN
20020:
20024: x_msg_data := SQLERRM;
20025: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
20026: ,p_procedure_name => 'update_plannning_element_attr');
20027: IF l_debug_mode = 'Y' THEN
20028: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
20029: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20030: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
20031: END IF;
20032:
20025: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_PUB'
20026: ,p_procedure_name => 'update_plannning_element_attr');
20027: IF l_debug_mode = 'Y' THEN
20028: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
20029: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20030: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
20031: END IF;
20032:
20033: pa_debug.reset_err_stack;
20026: ,p_procedure_name => 'update_plannning_element_attr');
20027: IF l_debug_mode = 'Y' THEN
20028: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
20029: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20030: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
20031: END IF;
20032:
20033: pa_debug.reset_err_stack;
20034:
20029: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
20030: pa_debug.write_file('update_plannning_element_attr ' || pa_debug.G_Err_Stack,5);
20031: END IF;
20032:
20033: pa_debug.reset_err_stack;
20034:
20035: END update_plannning_element_attr;
20036:
20037: